In [ ]:
. ./nbs_header.ps1
. ./core.ps1
In [ ]:
{ . "$ScriptDir/../apps/builder/build.ps1" } | Invoke-Block
── markdown ────────────────────────────────────────────────────────────────────
╭──────────────────────────────────────────────────────────────────────────────╮
│ # DibParser (Polyglot) │
╰──────────────────────────────────────────────────────────────────────────────╯
── fsharp ──────────────────────────────────────────────────────────────────────
#!import ../../lib/fsharp/Notebooks.dib
#!import ../../lib/fsharp/Testing.dib
── fsharp - import ─────────────────────────────────────────────────────────────
#r
"C:/Users/i574n/.nuget/packages/dotnet-repl/0.1.204/tools/net7.0/any/Microsoft.A
spNetCore.Html.Abstractions.dll"
#r
"C:/Users/i574n/.nuget/packages/dotnet-repl/0.1.204/tools/net7.0/any/Microsoft.D
otNet.Interactive.dll"
#r
"C:/Users/i574n/.nuget/packages/dotnet-repl/0.1.204/tools/net7.0/any/Microsoft.D
otNet.Interactive.FSharp.dll"
#r
"C:/Users/i574n/.nuget/packages/dotnet-repl/0.1.204/tools/net7.0/any/Microsoft.D
otNet.Interactive.Formatting.dll"
open System
open System.IO
open System.Text
open Microsoft.DotNet.Interactive.Formatting
── fsharp - import ─────────────────────────────────────────────────────────────
#r
"C:/Users/i574n/.nuget/packages/dotnet-repl/0.1.204/tools/net7.0/any/Microsoft.D
otNet.Interactive.FSharp.dll"
open Microsoft.DotNet.Interactive.FSharp.FSharpKernelHelpers
#r
"C:/Users/i574n/.nuget/packages/dotnet-repl/0.1.204/tools/net7.0/any/Microsoft.D
otNet.Interactive.dll"
open type Microsoft.DotNet.Interactive.Kernel
── fsharp - import ─────────────────────────────────────────────────────────────
//// test
Formatter.ListExpansionLimit <- 100
── fsharp - import ─────────────────────────────────────────────────────────────
type [[<Struct>]] US0 =
| US0_0
| US0_1
and [[<Struct>]] US1 =
| US1_0 of f0_0 : US0
| US1_1
let rec closure0 () (v0 : (unit -> unit)) : System.IDisposable =
let v1 : System.IDisposable option = None
let mutable _v1 = v1
#if FABLE_COMPILER_RUST && !WASM && !CONTRACT
let v2 : System.IDisposable = null |> unbox<System.IDisposable>
v2
#endif
#if FABLE_COMPILER_RUST && WASM
let v3 : System.IDisposable = null |> unbox<System.IDisposable>
v3
#endif
#if FABLE_COMPILER_RUST && CONTRACT
let v4 : System.IDisposable = null |> unbox<System.IDisposable>
v4
#endif
#if !FABLE_COMPILER && !FABLE_COMPILER_RUST && !FABLE_COMPILER_TYPESCRIPT &&
!WASM && !CONTRACT
let v5 : System.ID...
── fsharp - import ─────────────────────────────────────────────────────────────
type Mut0 = {mutable l0 : int32; mutable l1 : string}
and Mut1 = {mutable l0 : int32}
let rec closure1 (v0 : string) (v1 : string) : bool =
let v2 : bool = v1.Contains v0
v2
and closure0 () (v0 : string) : (string -> bool) =
closure1(v0)
and closure3 (v0 : string) (v1 : string) : bool =
let v2 : bool = v1.EndsWith v0
v2
and closure2 () (v0 : string) : (string -> bool) =
closure3(v0)
and closure6 (v0 : int32, v1 : char) (v2 : string) : string =
let v3 : string = v2.PadLeft (v0, v1)
v3
and closure5 (v0 : int32) (v1 : char) : (string -> string) =
closure6(v0, v1)
and closure4 () (v0 : int32) : (char -> (string -> string)) =
closure5(v0)
and closure8 (v0 : int32) (v1 : string) : string =
let v2 : stri...
── fsharp - import ─────────────────────────────────────────────────────────────
type ICryptoCreateHash = abstract createHash: x: string -> obj
type Mut0 = {mutable l0 : int32}
let rec method0 (v0 : int32, v1 : Mut0) : bool =
let v2 : int32 = v1.l0
let v3 : bool = v2 < v0
v3
and method1 () : string =
let v0 : string = ""
v0
and closure0 () (v0 : string) : string =
let v1 : string option = None
let mutable _v1 = v1
#if FABLE_COMPILER_RUST && !WASM && !CONTRACT
let v2 : string = null |> unbox<string>
v2
#endif
#if FABLE_COMPILER_RUST && WASM
let v3 : string = null |> unbox<string>
v3
#endif
#if FABLE_COMPILER_RUST && CONTRACT
let v4 : string = null |> unbox<string>
v4
#endif
#if !FABLE_COMPILER && !FABLE_COMPILER_RUST && !FABLE_COMPILER_TYP...
── fsharp - import ─────────────────────────────────────────────────────────────
let rec closure1 (v0 : System.Guid) (v1 : System.DateTime) : System.Guid =
let v2 : (System.Guid -> string) = _.ToString()
let v3 : string = v2 v0
let v4 : string = v1.ToString "yyyyMMdd-HHmm-ssff-ffff-f"
let v5 : System.Guid = System.Guid $"{v4}{v3.[[v4.Length..]]}"
v5
and closure0 () (v0 : System.Guid) : (System.DateTime -> System.Guid) =
closure1(v0)
and closure5 (v0 : string, v1 : string) (v2 : string) : string =
let v3 : string = v2.Replace (v0, v1)
v3
and closure4 (v0 : string) (v1 : string) : (string -> string) =
closure5(v0, v1)
and closure3 () (v0 : string) : (string -> (string -> string)) =
closure4(v0)
and method0 () : (string -> (string -> (string -> string))) =
closure3()
and closure2 (...
── fsharp - import ─────────────────────────────────────────────────────────────
let rec closure0 () (v0 : System.Threading.CancellationToken) :
Async<System.Threading.CancellationToken> =
let v1 : Async<System.Threading.CancellationToken> option = None
let mutable _v1 = v1
#if FABLE_COMPILER_RUST && !WASM && !CONTRACT
let v2 : Async<System.Threading.CancellationToken> = null |>
unbox<Async<System.Threading.CancellationToken>>
v2
#endif
#if FABLE_COMPILER_RUST && WASM
let v3 : Async<System.Threading.CancellationToken> = null |>
unbox<Async<System.Threading.CancellationToken>>
v3
#endif
#if FABLE_COMPILER_RUST && CONTRACT
let v4 : Async<System.Threading.CancellationToken> = null |>
unbox<Async<System.Threading.CancellationToken>>
v4
#endif
#if !FABLE_COMPILER...
── fsharp - import ─────────────────────────────────────────────────────────────
#if FABLE_COMPILER
[[<CompilationRepresentation (CompilationRepresentationFlags.ModuleSuffix)>]]
module System =
module Diagnostics =
type Process = unit
type DataReceivedEventArgs = unit
#endif
module State = let mutable trace_state = None
type [[<Struct>]] US0 =
| US0_0
| US0_1
| US0_2
| US0_3
| US0_4
and UH0 =
| UH0_0
| UH0_1 of char * UH0
and [[<Struct>]] US2 =
| US2_0
| US2_1
and [[<Struct>]] US1 =
| US1_0
| US1_1 of f1_0 : US2
| US1_2
and [[<Struct>]] US3 =
| US3_0 of f0_0 : string
| US3_1
and Mut0 = {mutable l0 : int64}
and Mut1 = {mutable l0 : bool}
and Mut2 = {mutable l0 : US0}
and [[<Struct>]] US4 =
| US4_0 of f0_0 : int64
| US4_1
and [[<Struct>]] US5 =
| US5_0 of f0_0 : i...
── fsharp - import ─────────────────────────────────────────────────────────────
#if FABLE_COMPILER // file_system.types
[[<Fable.Core.Erase; Fable.Core.Emit("str")>]] type Str = class end
[[<Fable.Core.Erase; Fable.Core.Emit("base64::DecodeError")>]] type
base64_DecodeError = class end
[[<Fable.Core.Erase; Fable.Core.Emit("borsh::io::Error")>]] type borsh_io_Error
= class end
[[<Fable.Core.Erase; Fable.Core.Emit("js_sys::JsString")>]] type js_sys_JsString
= class end
[[<Fable.Core.Erase; Fable.Core.Emit("serde_json::Error")>]] type
serde_json_Error = class end
[[<Fable.Core.Erase; Fable.Core.Emit("serde_json::Value")>]] type
serde_json_Value = class end
[[<Fable.Core.Erase; Fable.Core.Emit("serde_wasm_bindgen::Error")>]] type
serde_wasm_bindgen_Error = class end
[[<Fable.Core.Erase; Fable.Core.Emit("std::ffi::OsStr")>]] type std_ffi_O...
── fsharp - import ─────────────────────────────────────────────────────────────
module State = let mutable trace_state = None
type [[<Struct>]] US0 =
| US0_0
| US0_1
| US0_2
| US0_3
| US0_4
and Mut0 = {mutable l0 : int64}
and Mut1 = {mutable l0 : bool}
and Mut2 = {mutable l0 : US0}
and [[<Struct>]] US1 =
| US1_0 of f0_0 : int64
| US1_1
and [[<Struct>]] US2 =
| US2_0 of f0_0 : int64
| US2_1
let rec method1 (v0 : int64 option) : int64 option =
v0
and method2 (v0 : int64 option) : int64 option =
v0
and closure3 () () : struct (Mut0 * Mut1 * Mut1 * Mut2 * int64 option) =
let v0 : Mut1 = {l0 = true} : Mut1
let v1 : Mut0 = {l0 = 0L} : Mut0
let v2 : US0 = US0_0
let v3 : Mut2 = {l0 = v2} : Mut2
let v4 : Mut1 = {l0 = false} : Mut1
let v5 : int64 option option = None
...
── fsharp - import ─────────────────────────────────────────────────────────────
module SpiralTrace =
let get_trace_state () =
#if !INTERACTIVE
Trace.get_trace_state ()
#else
get_trace_state ()
#endif
let trace x =
#if !INTERACTIVE
Trace.trace x
#else
trace x
#endif
type TraceLevel =
#if !INTERACTIVE
Trace.US0
#else
US0
#endif
#if !FABLE_COMPILER && !WASM && !CONTRACT
module SpiralAsync =
let merge_cancellation_token_with_default_async x =
#if !INTERACTIVE
Async_.merge_cancellation_token_with_default_async x
#else
merge_cancellation_token_with_default_async x
#endif
module SpiralRuntime =
let get_executable_suffix () =
#if !INTERACTIVE
Runtime.get_executable_suffix ()
#else
get_executable_suffix ()
#endif
let is...
── fsharp - import ─────────────────────────────────────────────────────────────
#r @"../../../../../../../.nuget/packages/expecto/10.2.1/lib/net6.0/Expecto.dll"
── fsharp - import ─────────────────────────────────────────────────────────────
//// test
type AssertExceptionFormatter (ex) =
member _.Text =
ex.ToString()
.Replace("32m", "<span style=\"color: green;\">")
.Replace("36m", "</span>")
.Replace("31m", "<span style=\"color: red;\">")
.Replace("\n", "<br/>\n")
Formatter.Register<AssertExceptionFormatter> ((fun (x :
AssertExceptionFormatter) -> x.Text), "text/html")
── fsharp - import ─────────────────────────────────────────────────────────────
//// test
let inline __expect fn log expected actual =
if log then printfn $"{actual.ToDisplayString ()}"
try
"Testing.__expect" |> fn actual expected
with :? Expecto.AssertException as ex ->
AssertExceptionFormatter(ex).Display () |> ignore
failwith (ex.GetType().FullName)
let inline __contains log expected actual = __expect Expecto.Expect.contains log
expected actual
let inline _contains expected actual = __contains true expected actual
let inline __assertEqual log expected actual = __expect Expecto.Expect.equal log
expected actual
let inline _assertEqual expected actual = __assertEqual true expected actual
let inline __isGreaterThan log expected actual = __expect
Expecto.Expect.isGreaterThan log ex...
── fsharp - import ─────────────────────────────────────────────────────────────
//// test
let inline __isBetween log a b actual =
let inline isBetween actual (a, b) _ =
__isGreaterThanOrEqual log a actual
__isLessThanOrEqual log b actual
__expect isBetween log (a, b) actual
let inline _isBetween a b actual = __isBetween true a b actual
── pwsh ────────────────────────────────────────────────────────────────────────
ls ~/.nuget/packages/argu
╭─[ 541.95ms - stdout ]────────────────────────────────────────────────────────╮
│ │
│ Directory: C:\Users\i574n\.nuget\packages\argu │
│ │
│ Mode LastWriteTime Length[ │
│ 32;1m Name │
│ ---- ------------- ------ [ │
│ 32;1m---- │
│ d---- 2023-05-17 3:38 PM 6.1.1 │
│ d---- 2024-03-12 8:22 PM 6.1.4 │
│ d---- 2024-01-29 5:12 PM 6.1.5 │
│ d---- 2024-03-12 8:20 PM 6.2.0 │
│ d---- 2024-02-23 6:50 PM 6.2.1 │
│ d---- 2024-03-12 8:15 PM 6.2.2 │
│ │
│ │
╰──────────────────────────────────────────────────────────────────────────────╯
── fsharp ──────────────────────────────────────────────────────────────────────
#r
@"../../../../../../../.nuget/packages/fsharp.control.asyncseq/3.2.1/lib/netstan
dard2.1/FSharp.Control.AsyncSeq.dll"
#r
@"../../../../../../../.nuget/packages/system.reactive/6.0.1-preview.1/lib/net6.
0/System.Reactive.dll"
#r
@"../../../../../../../.nuget/packages/system.reactive.linq/6.0.1-preview.1/lib/
netstandard2.0/System.Reactive.Linq.dll"
#r
@"../../../../../../../.nuget/packages/argu/6.2.2/lib/netstandard2.0/Argu.dll"
#r
@"../../../../../../../.nuget/packages/system.commandline/2.0.0-beta4.22272.1/li
b/net6.0/System.CommandLine.dll"
#r
@"../../../../../../../.nuget/packages/fparsec/2.0.0-beta2/lib/netstandard2.1/FP
arsec.dll"
#r
@"../../../../../../../.nuget/packages/fparsec/2.0.0-beta2/lib/netstandard2.1/FP
arsecCS.dll"
── fsharp ──────────────────────────────────────────────────────────────────────
#!import ../../lib/fsharp/Common.fs
#!import ../../lib/fsharp/CommonFSharp.fs
#!import ../../lib/fsharp/Async.fs
#!import ../../lib/fsharp/AsyncSeq.fs
#!import ../../lib/fsharp/Runtime.fs
#!import ../../lib/fsharp/FileSystem.fs
── fsharp - import ─────────────────────────────────────────────────────────────
#if !INTERACTIVE
namespace Polyglot
#endif
module Common =
#if !INTERACTIVE
open Lib
#endif
let nl = System.Environment.NewLine
let q = @""""
let inline cons head tail = head :: tail
/// ## memoize
let inline memoize fn =
let result = lazy fn ()
fun () -> result.Value
/// ## TraceLevel
type TraceLevel =
| Verbose
| Debug
| Info
| Warning
| Critical
let inline getLocals () = ""
/// ## trace
let to_trace_level = function
| Verbose -> SpiralTrace.TraceLevel.US0_0
| Debug -> SpiralTrace.TraceLevel.US0_1
| Info -> SpiralTrace.TraceLevel.US0_2
| Warning -> SpiralTrace.TraceLevel.US0_3
| Critical ->...
── fsharp - import ─────────────────────────────────────────────────────────────
#if !INTERACTIVE
namespace Polyglot
#endif
module CommonFSharp =
open Common
/// ## getUnionCaseName
let inline getUnionCaseName<'T> (x: 'T) =
match Reflection.FSharpValue.GetUnionFields(x, typeof<'T>) with
| case, _ -> case.Name
── fsharp - import ─────────────────────────────────────────────────────────────
#if !INTERACTIVE
namespace Polyglot
#endif
module Async =
#if !INTERACTIVE
open Lib
#endif
open Common
/// ## choice
let inline choice asyncs = async {
let e = Event<_> ()
use cts = new System.Threading.CancellationTokenSource ()
let fn =
asyncs
|> Seq.map (fun a -> async {
let! x = a
e.Trigger x
})
|> Async.Parallel
|> Async.Ignore
Async.Start (fn, cts.Token)
let! result = Async.AwaitEvent e.Publish
cts.Cancel ()
return result
}
/// ## map
let inline map fn a = async {
let! x = a
return fn x
}
/// ## catch
let inline catch a =
...
── fsharp - import ─────────────────────────────────────────────────────────────
#if !INTERACTIVE
namespace Polyglot
#endif
module AsyncSeq =
#if !INTERACTIVE
open Lib
#endif
open Common
/// ## subscribeEvent
let inline subscribeEvent (event: IEvent<'H, 'A>) map =
let observable = System.Reactive.Linq.Observable.FromEventPattern<'H,
'A>(event.AddHandler, event.RemoveHandler)
System.Reactive.Linq.Observable.Select (observable, fun event -> map
event.EventArgs)
|> FSharp.Control.AsyncSeq.ofObservableBuffered
let subscribeToken (token : System.Threading.CancellationToken) =
let tcs = new System.Threading.Tasks.TaskCompletionSource ()
System.Action tcs.SetResult |> token.Register |> ignore
let start = System.DateTime.Now.Ticks
FSharp.Control.A...
── fsharp - import ─────────────────────────────────────────────────────────────
#if !INTERACTIVE
namespace Polyglot
#endif
module Runtime =
#if !INTERACTIVE
open Lib
#endif
open Common
/// ## splitArgs
let inline splitArgs commandLine =
commandLine
|> System.CommandLine.Parsing.CommandLineStringSplitter.Instance.Split
/// ## parseArgs
let inline parseArgs<'T when 'T :> Argu.IArgParserTemplate> args =
let assemblyName =
System.Reflection.Assembly.GetEntryAssembly().GetName().Name
let errorHandler : Argu.IExiter =
if [[ "Microsoft.DotNet.Interactive.App"; "dotnet-repl" ]] |>
List.contains assemblyName
then Argu.ExceptionExiter ()
else Argu.ProcessExiter (function Argu.ErrorCode.HelpText -> None |
_ -> Some System.ConsoleColor...
── fsharp - import ─────────────────────────────────────────────────────────────
#if !INTERACTIVE
namespace Polyglot
#endif
module FileSystem =
#if !INTERACTIVE
open Lib
#endif
open Common
open SpiralFileSystem.Operators
/// ## watchDirectory
[[<RequireQualifiedAccess>]]
type FileSystemChangeType =
| Failure
| Changed
| Created
| Deleted
| Renamed
[[<RequireQualifiedAccess>]]
type FileSystemChange =
| Failure of exn: exn
| Changed of path: string * content: string option
| Created of path: string * content: string option
| Deleted of path: string
| Renamed of oldPath: string * (string * string option)
let inline watchDirectoryWithFilter filter shouldReadContent path =
let fullPath = path |> Sys...
── fsharp ──────────────────────────────────────────────────────────────────────
#if !INTERACTIVE
open Lib
#endif
── fsharp ──────────────────────────────────────────────────────────────────────
open Common
open FParsec
── markdown ────────────────────────────────────────────────────────────────────
╭──────────────────────────────────────────────────────────────────────────────╮
│ ## escapeCell (test) │
╰──────────────────────────────────────────────────────────────────────────────╯
── fsharp ──────────────────────────────────────────────────────────────────────
//// test
let inline escapeCell input =
input
|> SpiralSm.split "\n"
|> Array.map (function
| line when line |> SpiralSm.starts_with "\\#!" || line |>
SpiralSm.starts_with "\\#r" ->
System.Text.RegularExpressions.Regex.Replace (line, "^\\\\#", "#")
| line -> line
)
|> SpiralSm.concat "\n"
── fsharp ──────────────────────────────────────────────────────────────────────
//// test
$"a{nl}\\#!magic{nl}b{nl}"
|> escapeCell
|> _assertEqual (
$"a{nl}#!magic{nl}b{nl}"
)
╭─[ 45.94ms - stdout ]─────────────────────────────────────────────────────────╮
│ a │
│ #!magic │
│ b │
│ │
│ │
╰──────────────────────────────────────────────────────────────────────────────╯
── markdown ────────────────────────────────────────────────────────────────────
╭──────────────────────────────────────────────────────────────────────────────╮
│ ## magicMarker │
╰──────────────────────────────────────────────────────────────────────────────╯
── fsharp ──────────────────────────────────────────────────────────────────────
let magicMarker : Parser<string, unit> = pstring "#!"
── fsharp ──────────────────────────────────────────────────────────────────────
//// test
"#!magic"
|> run magicMarker
|> _assertEqual (
Success ("#!", (), Position ("", 2, 1, 3))
)
╭─[ 44.62ms - stdout ]─────────────────────────────────────────────────────────╮
│ Success │
│ Item1: #! │
│ Item2: <null> │
│ Item3: Position │
│ Index: 2 │
│ Line: 1 │
│ Column: 3 │
│ StreamName: │
│ │
╰──────────────────────────────────────────────────────────────────────────────╯
── fsharp ──────────────────────────────────────────────────────────────────────
//// test
"##!magic"
|> run magicMarker
|> _assertEqual (
Failure (
$"Error in Ln: 1 Col: 1{nl}##!magic{nl}^{nl}Expecting: '#!'{nl}",
ParserError (
Position ("", 0, 1, 1),
(),
ErrorMessageList (ExpectedString "#!")
),
()
)
)
╭─[ 49.57ms - stdout ]─────────────────────────────────────────────────────────╮
│ Failure │
│ Item1: Error in Ln: 1 Col: 1 │
│ ##!magic │
│ ^ │
│ Expecting: '#!' │
│ │
│ Item2: ParserError │
│ Position: Position │
│ Index: 0 │
│ Line: 1 │
│ Column: 1 │
│ StreamName: │
│ UserState: <null> │
│ Messages: ErrorMessageList │
│ Head: ExpectedString │
│ String: #! │
│ Type: ExpectedString │
│ Tail: <null> │
│ Item3: <null> │
│ │
╰──────────────────────────────────────────────────────────────────────────────╯
── markdown ────────────────────────────────────────────────────────────────────
╭──────────────────────────────────────────────────────────────────────────────╮
│ ## magicCommand │
╰──────────────────────────────────────────────────────────────────────────────╯
── fsharp ──────────────────────────────────────────────────────────────────────
let magicCommand =
magicMarker
>>. manyTill anyChar newline
|>> (System.String.Concat >> SpiralSm.trim)
── fsharp ──────────────────────────────────────────────────────────────────────
//// test
"#!magic
a"
|> run magicCommand
|> _assertEqual (
Success ("magic", (), Position ("", 8, 2, 1))
)
╭─[ 44.57ms - stdout ]─────────────────────────────────────────────────────────╮
│ Success │
│ Item1: magic │
│ Item2: <null> │
│ Item3: Position │
│ Index: 8 │
│ Line: 2 │
│ Column: 1 │
│ StreamName: │
│ │
╰──────────────────────────────────────────────────────────────────────────────╯
── fsharp ──────────────────────────────────────────────────────────────────────
//// test
" #!magic
a"
|> run magicCommand
|> _assertEqual (
Failure (
$"Error in Ln: 1 Col: 1{nl} #!magic{nl}^{nl}Expecting: '#!'{nl}",
ParserError (
Position ("", 0, 1, 1),
(),
ErrorMessageList (ExpectedString "#!")
),
()
)
)
╭─[ 34.67ms - stdout ]─────────────────────────────────────────────────────────╮
│ Failure │
│ Item1: Error in Ln: 1 Col: 1 │
│ #!magic │
│ ^ │
│ Expecting: '#!' │
│ │
│ Item2: ParserError │
│ Position: Position │
│ Index: 0 │
│ Line: 1 │
│ Column: 1 │
│ StreamName: │
│ UserState: <null> │
│ Messages: ErrorMessageList │
│ Head: ExpectedString │
│ String: #! │
│ Type: ExpectedString │
│ Tail: <null> │
│ Item3: <null> │
│ │
╰──────────────────────────────────────────────────────────────────────────────╯
── markdown ────────────────────────────────────────────────────────────────────
╭──────────────────────────────────────────────────────────────────────────────╮
│ ## content │
╰──────────────────────────────────────────────────────────────────────────────╯
── fsharp ──────────────────────────────────────────────────────────────────────
let content =
(newline >>. magicMarker) <|> (eof >>. preturn "")
|> attempt
|> lookAhead
|> manyTill anyChar
|>> (System.String.Concat >> SpiralSm.trim)
── fsharp ──────────────────────────────────────────────────────────────────────
//// test
"#!magic
a
"
|> run content
|> _assertEqual (
Success ("#!magic
a", (), Position ("", 14, 7, 1))
)
╭─[ 31.55ms - stdout ]─────────────────────────────────────────────────────────╮
│ Success │
│ Item1: #!magic │
│ │
│ │
│ a │
│ Item2: <null> │
│ Item3: Position │
│ Index: 14 │
│ Line: 7 │
│ Column: 1 │
│ StreamName: │
│ │
╰──────────────────────────────────────────────────────────────────────────────╯
── markdown ────────────────────────────────────────────────────────────────────
╭──────────────────────────────────────────────────────────────────────────────╮
│ ## Block │
╰──────────────────────────────────────────────────────────────────────────────╯
── fsharp ──────────────────────────────────────────────────────────────────────
type Block =
{
magic : string
content : string
}
── markdown ────────────────────────────────────────────────────────────────────
╭──────────────────────────────────────────────────────────────────────────────╮
│ ## block │
╰──────────────────────────────────────────────────────────────────────────────╯
── fsharp ──────────────────────────────────────────────────────────────────────
let block =
pipe2
magicCommand
content
(fun magic content ->
{
magic = magic
content = content
})
── fsharp ──────────────────────────────────────────────────────────────────────
//// test
"#!magic
a
"
|> run block
|> _assertEqual (
Success (
{ magic = "magic"; content = "a" },
(),
Position ("", 14, 7, 1)
)
)
╭─[ 34.74ms - stdout ]─────────────────────────────────────────────────────────╮
│ Success │
│ Item1: Block │
│ magic: magic │
│ content: a │
│ Item2: <null> │
│ Item3: Position │
│ Index: 14 │
│ Line: 7 │
│ Column: 1 │
│ StreamName: │
│ │
╰──────────────────────────────────────────────────────────────────────────────╯
── markdown ────────────────────────────────────────────────────────────────────
╭──────────────────────────────────────────────────────────────────────────────╮
│ ## blocks │
╰──────────────────────────────────────────────────────────────────────────────╯
── fsharp ──────────────────────────────────────────────────────────────────────
let blocks =
skipMany newline
>>. sepEndBy block (skipMany1 newline)
── fsharp ──────────────────────────────────────────────────────────────────────
//// test
"#!magic1
a
\#!magic2
b
"
|> escapeCell
|> run blocks
|> _assertEqual (
Success (
[[
{ magic = "magic1"; content = "a" }
{ magic = "magic2"; content = "b" }
]],
(),
Position ("", 26, 9, 1)
)
)
╭─[ 47.53ms - stdout ]─────────────────────────────────────────────────────────╮
│ Success │
│ Item1: FSharpList<Block> │
│ - magic: magic1 │
│ content: a │
│ - magic: magic2 │
│ content: b │
│ Item2: <null> │
│ Item3: Position │
│ Index: 26 │
│ Line: 9 │
│ Column: 1 │
│ StreamName: │
│ │
╰──────────────────────────────────────────────────────────────────────────────╯
── markdown ────────────────────────────────────────────────────────────────────
╭──────────────────────────────────────────────────────────────────────────────╮
│ ## Output │
╰──────────────────────────────────────────────────────────────────────────────╯
── fsharp ──────────────────────────────────────────────────────────────────────
type Output =
| Fs
| Md
| Spi
| Spir
let inline kernelOutputs magic =
match magic with
| "fsharp" -> [[ Fs ]]
| "markdown" -> [[ Md ]]
| "spiral" -> [[ Spi; Spir ]]
| _ -> [[]]
── markdown ────────────────────────────────────────────────────────────────────
╭──────────────────────────────────────────────────────────────────────────────╮
│ ## formatBlock │
╰──────────────────────────────────────────────────────────────────────────────╯
── fsharp ──────────────────────────────────────────────────────────────────────
let inline formatBlock output (block : Block) =
match output, block with
| output, { magic = "markdown"; content = content } ->
let markdownComment =
match output with
| Spi | Spir -> "// // "
| Fs -> "/// "
| _ -> ""
content
|> SpiralSm.split "\n"
|> Array.map (SpiralSm.trim_end [[||]])
|> Array.filter (SpiralSm.ends_with " (test)" >> not)
|> Array.map (function
| "" -> markdownComment |> SpiralSm.trim
| line -> System.Text.RegularExpressions.Regex.Replace (line,
"^\\s*", $"$&{markdownComment}")
)
|> SpiralSm.concat "\n"
| Fs, { magic = "fsharp"; content = content } ->
let trimmedContent = content |> SpiralSm.trim
if trimmedContent |> SpiralSm.starts_with "//// test" || trimmedContent
|> SpiralSm.starts_with "//// ignore"
then ""
else
content
|> SpiralSm.split "\n"
|> Array.filter (SpiralSm.trim_start [[||]] >> SpiralSm.starts_with
"#r" >> not)
|> SpiralSm.concat "\n"
| (Spi | Spir), { magic = "spiral"; content = content } ->
let trimmedContent = content |> SpiralSm.trim
if trimmedContent |> SpiralSm.starts_with "// // test" || trimmedContent
|> SpiralSm.starts_with "// // ignore"
then ""
else content
| _ -> ""
── fsharp ──────────────────────────────────────────────────────────────────────
//// test
"#!markdown
a
b
c
\#!markdown
c
\#!fsharp
let a = 1"
|> escapeCell
|> run block
|> function
| Success (block, _, _) -> formatBlock Fs block
| Failure (msg, _, _) -> failwith msg
|> _assertEqual "/// a
///
/// b
///
/// c"
╭─[ 48.87ms - stdout ]─────────────────────────────────────────────────────────╮
│ /// a │
│ /// │
│ /// b │
│ /// │
│ /// c │
│ │
╰──────────────────────────────────────────────────────────────────────────────╯
── markdown ────────────────────────────────────────────────────────────────────
╭──────────────────────────────────────────────────────────────────────────────╮
│ ## formatBlocks │
╰──────────────────────────────────────────────────────────────────────────────╯
── fsharp ──────────────────────────────────────────────────────────────────────
let inline formatBlocks output blocks =
blocks
|> List.map (formatBlock output)
|> List.filter ((<>) "")
|> SpiralSm.concat "\n\n"
|> fun s -> s + "\n"
── fsharp ──────────────────────────────────────────────────────────────────────
//// test
"#!markdown
a
b
\#!markdown
c
\#!fsharp
let a = 1
\#!markdown
d (test)
\#!fsharp
//// test
let a = 2
\#!markdown
e
\#!fsharp
let a = 3"
|> escapeCell
|> run blocks
|> function
| Success (blocks, _, _) -> formatBlocks Fs blocks
| Failure (msg, _, _) -> failwith msg
|> _assertEqual "/// a
///
/// b
/// c
let a = 1
/// e
let a = 3
"
╭─[ 53.58ms - stdout ]─────────────────────────────────────────────────────────╮
│ /// a │
│ /// │
│ /// b │
│ │
│ /// c │
│ │
│ let a = 1 │
│ │
│ /// e │
│ │
│ let a = 3 │
│ │
│ │
╰──────────────────────────────────────────────────────────────────────────────╯
── markdown ────────────────────────────────────────────────────────────────────
╭──────────────────────────────────────────────────────────────────────────────╮
│ ## parse │
╰──────────────────────────────────────────────────────────────────────────────╯
── fsharp ──────────────────────────────────────────────────────────────────────
let inline parse output input =
match run blocks input with
| Success (blocks, _, _) ->
let blocks =
blocks
|> List.filter (fun block ->
block.magic |> kernelOutputs |> List.contains output ||
block.magic = "markdown"
)
match blocks with
| { magic = "markdown"; content = content } :: _
when output = Fs
&& content |> SpiralSm.starts_with "# "
&& content |> SpiralSm.ends_with ")"
->
let inline indentBlock (block : Block) =
{ block with
content =
block.content
|> SpiralSm.split "\n"
|> Array.fold
(fun (lines, isMultiline) line ->
let trimmedLine = line |> SpiralSm.trim
if trimmedLine = ""
then "" :: lines, isMultiline
else
let inline singleQuoteLine () =
trimmedLine |> Seq.sumBy ((=) '"' >>
System.Convert.ToInt32) = 1
&& trimmedLine |> SpiralSm.contains
@"'""'" |> not
&& trimmedLine |> SpiralSm.ends_with "{"
|> not
&& trimmedLine |> SpiralSm.ends_with
"{|" |> not
&& trimmedLine |> SpiralSm.starts_with
"}" |> not
&& trimmedLine |> SpiralSm.starts_with
"|}" |> not
match isMultiline, trimmedLine |>
SpiralSm.split_string [[| $"{q}{q}{q}" |]] with
| false, [[| _; _ |]] ->
$" {line}" :: lines, true
| true, [[| _; _ |]] ->
line :: lines, false
| false, _ when singleQuoteLine () ->
$" {line}" :: lines, true
| false, _ when line |> SpiralSm.starts_with
"#" && block.magic = "fsharp" ->
line :: lines, false
| false, _ ->
$" {line}" :: lines, false
| true, _ when singleQuoteLine () && line |>
SpiralSm.starts_with " " ->
$" {line}" :: lines, false
| true, _ when singleQuoteLine () ->
line :: lines, false
| true, _ ->
line :: lines, true
)
([[]], false)
|> fst
|> List.rev
|> SpiralSm.concat "\n"
}
let moduleName, namespaceName =
System.Text.RegularExpressions.Regex.Match (content, @"# (.*)
\((.*)\)$")
|> fun m -> m.Groups.[[1]].Value, m.Groups.[[2]].Value
let moduleBlock =
{
magic = "fsharp"
content =
$"#if !INTERACTIVE
namespace {namespaceName}
#endif
module {moduleName} ="
}
blocks
|> List.indexed
|> List.fold
(fun blocks (index, block) ->
match index with
| 0 -> blocks
| 1 -> indentBlock block :: moduleBlock :: blocks
| _ -> indentBlock block :: blocks
)
[[]]
|> List.rev
| _ -> blocks
|> Result.Ok
| Failure (errorMsg, _, _) -> Result.Error errorMsg
── fsharp ──────────────────────────────────────────────────────────────────────
//// test
let example1 =
$"""#!meta
{{"kernelInfo":{{"defaultKernelName":"fsharp","items":[[{{"aliases":[[]],"name":
"fsharp"}},{{"aliases":[[]],"name":"fsharp"}}]]}}}}
\#!markdown
# TestModule (TestNamespace)
\#!fsharp
\#!import file.dib
\#!fsharp
\#r "nuget:Expecto"
\#!markdown
## ParserLibrary
\#!fsharp
open System
\#!markdown
## x (test)
\#!fsharp
//// ignore
let x = 1
\#!spiral
// // test
inl x = 0i32
\#!spiral
inl x = 0i32
\#!markdown
### TextInput
\#!fsharp
let str1 = "abc
def"
let str2 =
"abc\
def"
let str3 =
$"1{{
1
}}1"
let str4 =
$"1{{({{|
a = 1
|}}).a}}1"
let str5 =
"abc \
def"
let x =
match '"' with
| '"' -> true
| _ -> false
let long1 = {q}{q}{q}a{q}{q}{q}
let long2 =
{q}{q}{q}
a
{q}{q}{q}
\#!fsharp
type Position =
{{
#if INTERACTIVE
line : string
#else
line : int
#endif
column : int
}}"""
|> escapeCell
── fsharp ──────────────────────────────────────────────────────────────────────
//// test
example1
|> parse Fs
|> Result.toOption
|> Option.get
|> (formatBlocks Fs)
|> _assertEqual $"""#if !INTERACTIVE
namespace TestNamespace
#endif
module TestModule =
/// ## ParserLibrary
open System
/// ### TextInput
let str1 = "abc
def"
let str2 =
"abc\
def"
let str3 =
$"1{{
1
}}1"
let str4 =
$"1{{({{|
a = 1
|}}).a}}1"
let str5 =
"abc \
def"
let x =
match '"' with
| '"' -> true
| _ -> false
let long1 = {q}{q}{q}a{q}{q}{q}
let long2 =
{q}{q}{q}
a
{q}{q}{q}
type Position =
{{
#if INTERACTIVE
line : string
#else
line : int
#endif
column : int
}}
"""
╭─[ 140.33ms - stdout ]────────────────────────────────────────────────────────╮
│ #if !INTERACTIVE │
│ namespace TestNamespace │
│ #endif │
│ │
│ module TestModule = │
│ │
│ /// ## ParserLibrary │
│ │
│ open System │
│ │
│ /// ### TextInput │
│ │
│ let str1 = "abc │
│ def" │
│ │
│ let str2 = │
│ "abc\ │
│ def" │
│ │
│ let str3 = │
│ $"1{ │
│ 1 │
│ }1" │
│ │
│ let str4 = │
│ $"1{({| │
│ a = 1 │
│ |}).a}1" │
│ │
│ let str5 = │
│ "abc \ │
│ def" │
│ │
│ let x = │
│ match '"' with │
│ | '"' -> true │
│ | _ -> false │
│ │
│ let long1 = """a""" │
│ │
│ let long2 = │
│ """ │
│ a │
│ """ │
│ │
│ type Position = │
│ { │
│ #if INTERACTIVE │
│ line : string │
│ #else │
│ line : int │
│ #endif │
│ column : int │
│ } │
│ │
│ │
╰──────────────────────────────────────────────────────────────────────────────╯
── fsharp ──────────────────────────────────────────────────────────────────────
//// test
example1
|> parse Md
|> Result.toOption
|> Option.get
|> (formatBlocks Md)
|> _assertEqual "# TestModule (TestNamespace)
## ParserLibrary
### TextInput
"
╭─[ 132.18ms - stdout ]────────────────────────────────────────────────────────╮
│ # TestModule (TestNamespace) │
│ │
│ ## ParserLibrary │
│ │
│ ### TextInput │
│ │
│ │
╰──────────────────────────────────────────────────────────────────────────────╯
── fsharp ──────────────────────────────────────────────────────────────────────
//// test
example1
|> parse Spi
|> Result.toOption
|> Option.get
|> (formatBlocks Spi)
|> _assertEqual "// // # TestModule (TestNamespace)
// // ## ParserLibrary
inl x = 0i32
// // ### TextInput
"
╭─[ 131.68ms - stdout ]────────────────────────────────────────────────────────╮
│ // // # TestModule (TestNamespace) │
│ │
│ // // ## ParserLibrary │
│ │
│ inl x = 0i32 │
│ │
│ // // ### TextInput │
│ │
│ │
╰──────────────────────────────────────────────────────────────────────────────╯
── markdown ────────────────────────────────────────────────────────────────────
╭──────────────────────────────────────────────────────────────────────────────╮
│ ## parseDibCode │
╰──────────────────────────────────────────────────────────────────────────────╯
── fsharp ──────────────────────────────────────────────────────────────────────
let inline parseDibCode output file = async {
let getLocals () = $"output: {output} / file: {file} / {getLocals ()}"
trace Debug (fun () -> "parseDibCode") getLocals
let! input = file |> SpiralFileSystem.read_all_text_async
match parse output input with
| Result.Ok blocks -> return blocks |> formatBlocks output
| Result.Error msg -> return failwith msg
}
── markdown ────────────────────────────────────────────────────────────────────
╭──────────────────────────────────────────────────────────────────────────────╮
│ ## writeDibCode │
╰──────────────────────────────────────────────────────────────────────────────╯
── fsharp ──────────────────────────────────────────────────────────────────────
let inline writeDibCode output path = async {
let getLocals () = $"output: {output} / path: {path} / {getLocals ()}"
trace Debug (fun () -> "writeDibCode") getLocals
let! result = parseDibCode output path
let outputPath = path |> SpiralSm.replace ".dib" $".{output |> string |>
SpiralSm.to_lower}"
do! result |> SpiralFileSystem.write_all_text_async outputPath
}
── markdown ────────────────────────────────────────────────────────────────────
╭──────────────────────────────────────────────────────────────────────────────╮
│ ## Arguments │
╰──────────────────────────────────────────────────────────────────────────────╯
── fsharp ──────────────────────────────────────────────────────────────────────
[[<RequireQualifiedAccess>]]
type Arguments =
| [[<Argu.ArguAttributes.MainCommand; Argu.ArguAttributes.Mandatory>]]
File of file : string * Output
interface Argu.IArgParserTemplate with
member s.Usage =
match s with
| File _ -> nameof File
── fsharp ──────────────────────────────────────────────────────────────────────
//// test
Argu.ArgumentParser.Create<Arguments>().PrintUsage ()
╭─[ 87.98ms - return value ]───────────────────────────────────────────────────╮
│ USAGE: dotnet-repl [--help] <file> <fs|md|spi|spir> │
│ │
│ FILE: │
│ │
│ <file> <fs|md|spi|spir> │
│ File │
│ │
│ OPTIONS: │
│ │
│ --help display this list of options. │
│ │
╰──────────────────────────────────────────────────────────────────────────────╯
── markdown ────────────────────────────────────────────────────────────────────
╭──────────────────────────────────────────────────────────────────────────────╮
│ ## main │
╰──────────────────────────────────────────────────────────────────────────────╯
── fsharp ──────────────────────────────────────────────────────────────────────
let main args =
let argsMap = args |> Runtime.parseArgsMap<Arguments>
let files =
argsMap.[[nameof Arguments.File]]
|> List.map (function
| Arguments.File (path, output) -> path, output
)
files
|> List.map (fun (path, output) -> path |> writeDibCode output)
|> Async.Parallel
|> Async.Ignore
|> Async.runWithTimeout 30000
|> function
| Some () -> 0
| None -> 1
── fsharp ──────────────────────────────────────────────────────────────────────
//// test
let args =
System.Environment.GetEnvironmentVariable "ARGS"
|> Runtime.splitArgs
|> Seq.toArray
match args with
| [[||]] -> 0
| args -> if main args = 0 then 0 else failwith "main failed"
╭─[ 126.15ms - return value ]──────────────────────────────────────────────────╮
│ <div class="dni-plaintext"><pre>0</pre></div><style> │
│ .dni-code-hint { │
│ font-style: italic; │
│ overflow: hidden; │
│ white-space: nowrap; │
│ } │
│ .dni-treeview { │
│ white-space: nowrap; │
│ } │
│ .dni-treeview td { │
│ vertical-align: top; │
│ text-align: start; │
│ } │
│ details.dni-treeview { │
│ padding-left: 1em; │
│ } │
│ table td { │
│ text-align: start; │
│ } │
│ table tr { │
│ vertical-align: top; │
│ margin: 0em 0px; │
│ } │
│ table tr td pre │
│ { │
│ vertical-align: top !important; │
│ margin: 0em 0px !important; │
│ } │
│ table th { │
│ text-align: start; │
│ } │
│ </style> │
╰──────────────────────────────────────────────────────────────────────────────╯
╭─[ 140.22ms - stdout ]────────────────────────────────────────────────────────╮
│ 00:00:00 #1 [debug] writeDibCode / output: Fs / path: Builder.dib │
│ 00:00:00 #2 [debug] parseDibCode / output: Fs / file: Builder.dib │
│ │
╰──────────────────────────────────────────────────────────────────────────────╯
── markdown ────────────────────────────────────────────────────────────────────
╭──────────────────────────────────────────────────────────────────────────────╮
│ # Builder (Polyglot) │
╰──────────────────────────────────────────────────────────────────────────────╯
── fsharp ──────────────────────────────────────────────────────────────────────
#r
@"../../../../../../../.nuget/packages/fsharp.control.asyncseq/3.2.1/lib/netstan
dard2.1/FSharp.Control.AsyncSeq.dll"
#r
@"../../../../../../../.nuget/packages/system.reactive/6.0.1-preview.1/lib/net6.
0/System.Reactive.dll"
#r
@"../../../../../../../.nuget/packages/system.reactive.linq/6.0.1-preview.1/lib/
netstandard2.0/System.Reactive.Linq.dll"
#r
@"../../../../../../../.nuget/packages/argu/6.2.2/lib/netstandard2.0/Argu.dll"
#r
@"../../../../../../../.nuget/packages/system.commandline/2.0.0-beta4.22272.1/li
b/net6.0/System.CommandLine.dll"
── fsharp - import ─────────────────────────────────────────────────────────────
#r
"C:/Users/i574n/.nuget/packages/dotnet-repl/0.1.204/tools/net7.0/any/Microsoft.A
spNetCore.Html.Abstractions.dll"
#r
"C:/Users/i574n/.nuget/packages/dotnet-repl/0.1.204/tools/net7.0/any/Microsoft.D
otNet.Interactive.dll"
#r
"C:/Users/i574n/.nuget/packages/dotnet-repl/0.1.204/tools/net7.0/any/Microsoft.D
otNet.Interactive.FSharp.dll"
#r
"C:/Users/i574n/.nuget/packages/dotnet-repl/0.1.204/tools/net7.0/any/Microsoft.D
otNet.Interactive.Formatting.dll"
open System
open System.IO
open System.Text
open Microsoft.DotNet.Interactive.Formatting
── fsharp - import ─────────────────────────────────────────────────────────────
#r
"C:/Users/i574n/.nuget/packages/dotnet-repl/0.1.204/tools/net7.0/any/Microsoft.D
otNet.Interactive.FSharp.dll"
open Microsoft.DotNet.Interactive.FSharp.FSharpKernelHelpers
#r
"C:/Users/i574n/.nuget/packages/dotnet-repl/0.1.204/tools/net7.0/any/Microsoft.D
otNet.Interactive.dll"
open type Microsoft.DotNet.Interactive.Kernel
── fsharp ──────────────────────────────────────────────────────────────────────
#!import ../../lib/fsharp/Notebooks.dib
#!import ../../lib/fsharp/Testing.dib
── fsharp - import ─────────────────────────────────────────────────────────────
//// test
Formatter.ListExpansionLimit <- 100
── fsharp - import ─────────────────────────────────────────────────────────────
type [[<Struct>]] US0 =
| US0_0
| US0_1
and [[<Struct>]] US1 =
| US1_0 of f0_0 : US0
| US1_1
let rec closure0 () (v0 : (unit -> unit)) : System.IDisposable =
let v1 : System.IDisposable option = None
let mutable _v1 = v1
#if FABLE_COMPILER_RUST && !WASM && !CONTRACT
let v2 : System.IDisposable = null |> unbox<System.IDisposable>
v2
#endif
#if FABLE_COMPILER_RUST && WASM
let v3 : System.IDisposable = null |> unbox<System.IDisposable>
v3
#endif
#if FABLE_COMPILER_RUST && CONTRACT
let v4 : System.IDisposable = null |> unbox<System.IDisposable>
v4
#endif
#if !FABLE_COMPILER && !FABLE_COMPILER_RUST && !FABLE_COMPILER_TYPESCRIPT &&
!WASM && !CONTRACT
let v5 : System.ID...
── fsharp - import ─────────────────────────────────────────────────────────────
type Mut0 = {mutable l0 : int32; mutable l1 : string}
and Mut1 = {mutable l0 : int32}
let rec closure1 (v0 : string) (v1 : string) : bool =
let v2 : bool = v1.Contains v0
v2
and closure0 () (v0 : string) : (string -> bool) =
closure1(v0)
and closure3 (v0 : string) (v1 : string) : bool =
let v2 : bool = v1.EndsWith v0
v2
and closure2 () (v0 : string) : (string -> bool) =
closure3(v0)
and closure6 (v0 : int32, v1 : char) (v2 : string) : string =
let v3 : string = v2.PadLeft (v0, v1)
v3
and closure5 (v0 : int32) (v1 : char) : (string -> string) =
closure6(v0, v1)
and closure4 () (v0 : int32) : (char -> (string -> string)) =
closure5(v0)
and closure8 (v0 : int32) (v1 : string) : string =
let v2 : stri...
── fsharp - import ─────────────────────────────────────────────────────────────
type ICryptoCreateHash = abstract createHash: x: string -> obj
type Mut0 = {mutable l0 : int32}
let rec method0 (v0 : int32, v1 : Mut0) : bool =
let v2 : int32 = v1.l0
let v3 : bool = v2 < v0
v3
and method1 () : string =
let v0 : string = ""
v0
and closure0 () (v0 : string) : string =
let v1 : string option = None
let mutable _v1 = v1
#if FABLE_COMPILER_RUST && !WASM && !CONTRACT
let v2 : string = null |> unbox<string>
v2
#endif
#if FABLE_COMPILER_RUST && WASM
let v3 : string = null |> unbox<string>
v3
#endif
#if FABLE_COMPILER_RUST && CONTRACT
let v4 : string = null |> unbox<string>
v4
#endif
#if !FABLE_COMPILER && !FABLE_COMPILER_RUST && !FABLE_COMPILER_TYP...
── fsharp - import ─────────────────────────────────────────────────────────────
let rec closure1 (v0 : System.Guid) (v1 : System.DateTime) : System.Guid =
let v2 : (System.Guid -> string) = _.ToString()
let v3 : string = v2 v0
let v4 : string = v1.ToString "yyyyMMdd-HHmm-ssff-ffff-f"
let v5 : System.Guid = System.Guid $"{v4}{v3.[[v4.Length..]]}"
v5
and closure0 () (v0 : System.Guid) : (System.DateTime -> System.Guid) =
closure1(v0)
and closure5 (v0 : string, v1 : string) (v2 : string) : string =
let v3 : string = v2.Replace (v0, v1)
v3
and closure4 (v0 : string) (v1 : string) : (string -> string) =
closure5(v0, v1)
and closure3 () (v0 : string) : (string -> (string -> string)) =
closure4(v0)
and method0 () : (string -> (string -> (string -> string))) =
closure3()
and closure2 (...
── fsharp - import ─────────────────────────────────────────────────────────────
let rec closure0 () (v0 : System.Threading.CancellationToken) :
Async<System.Threading.CancellationToken> =
let v1 : Async<System.Threading.CancellationToken> option = None
let mutable _v1 = v1
#if FABLE_COMPILER_RUST && !WASM && !CONTRACT
let v2 : Async<System.Threading.CancellationToken> = null |>
unbox<Async<System.Threading.CancellationToken>>
v2
#endif
#if FABLE_COMPILER_RUST && WASM
let v3 : Async<System.Threading.CancellationToken> = null |>
unbox<Async<System.Threading.CancellationToken>>
v3
#endif
#if FABLE_COMPILER_RUST && CONTRACT
let v4 : Async<System.Threading.CancellationToken> = null |>
unbox<Async<System.Threading.CancellationToken>>
v4
#endif
#if !FABLE_COMPILER...
── fsharp - import ─────────────────────────────────────────────────────────────
#if FABLE_COMPILER
[[<CompilationRepresentation (CompilationRepresentationFlags.ModuleSuffix)>]]
module System =
module Diagnostics =
type Process = unit
type DataReceivedEventArgs = unit
#endif
module State = let mutable trace_state = None
type [[<Struct>]] US0 =
| US0_0
| US0_1
| US0_2
| US0_3
| US0_4
and UH0 =
| UH0_0
| UH0_1 of char * UH0
and [[<Struct>]] US2 =
| US2_0
| US2_1
and [[<Struct>]] US1 =
| US1_0
| US1_1 of f1_0 : US2
| US1_2
and [[<Struct>]] US3 =
| US3_0 of f0_0 : string
| US3_1
and Mut0 = {mutable l0 : int64}
and Mut1 = {mutable l0 : bool}
and Mut2 = {mutable l0 : US0}
and [[<Struct>]] US4 =
| US4_0 of f0_0 : int64
| US4_1
and [[<Struct>]] US5 =
| US5_0 of f0_0 : i...
── fsharp - import ─────────────────────────────────────────────────────────────
#if FABLE_COMPILER // file_system.types
[[<Fable.Core.Erase; Fable.Core.Emit("str")>]] type Str = class end
[[<Fable.Core.Erase; Fable.Core.Emit("base64::DecodeError")>]] type
base64_DecodeError = class end
[[<Fable.Core.Erase; Fable.Core.Emit("borsh::io::Error")>]] type borsh_io_Error
= class end
[[<Fable.Core.Erase; Fable.Core.Emit("js_sys::JsString")>]] type js_sys_JsString
= class end
[[<Fable.Core.Erase; Fable.Core.Emit("serde_json::Error")>]] type
serde_json_Error = class end
[[<Fable.Core.Erase; Fable.Core.Emit("serde_json::Value")>]] type
serde_json_Value = class end
[[<Fable.Core.Erase; Fable.Core.Emit("serde_wasm_bindgen::Error")>]] type
serde_wasm_bindgen_Error = class end
[[<Fable.Core.Erase; Fable.Core.Emit("std::ffi::OsStr")>]] type std_ffi_O...
── fsharp - import ─────────────────────────────────────────────────────────────
module State = let mutable trace_state = None
type [[<Struct>]] US0 =
| US0_0
| US0_1
| US0_2
| US0_3
| US0_4
and Mut0 = {mutable l0 : int64}
and Mut1 = {mutable l0 : bool}
and Mut2 = {mutable l0 : US0}
and [[<Struct>]] US1 =
| US1_0 of f0_0 : int64
| US1_1
and [[<Struct>]] US2 =
| US2_0 of f0_0 : int64
| US2_1
let rec method1 (v0 : int64 option) : int64 option =
v0
and method2 (v0 : int64 option) : int64 option =
v0
and closure3 () () : struct (Mut0 * Mut1 * Mut1 * Mut2 * int64 option) =
let v0 : Mut1 = {l0 = true} : Mut1
let v1 : Mut0 = {l0 = 0L} : Mut0
let v2 : US0 = US0_0
let v3 : Mut2 = {l0 = v2} : Mut2
let v4 : Mut1 = {l0 = false} : Mut1
let v5 : int64 option option = None
...
── fsharp - import ─────────────────────────────────────────────────────────────
module SpiralTrace =
let get_trace_state () =
#if !INTERACTIVE
Trace.get_trace_state ()
#else
get_trace_state ()
#endif
let trace x =
#if !INTERACTIVE
Trace.trace x
#else
trace x
#endif
type TraceLevel =
#if !INTERACTIVE
Trace.US0
#else
US0
#endif
#if !FABLE_COMPILER && !WASM && !CONTRACT
module SpiralAsync =
let merge_cancellation_token_with_default_async x =
#if !INTERACTIVE
Async_.merge_cancellation_token_with_default_async x
#else
merge_cancellation_token_with_default_async x
#endif
module SpiralRuntime =
let get_executable_suffix () =
#if !INTERACTIVE
Runtime.get_executable_suffix ()
#else
get_executable_suffix ()
#endif
let is...
── fsharp - import ─────────────────────────────────────────────────────────────
#r @"../../../../../../../.nuget/packages/expecto/10.2.1/lib/net6.0/Expecto.dll"
── fsharp - import ─────────────────────────────────────────────────────────────
//// test
type AssertExceptionFormatter (ex) =
member _.Text =
ex.ToString()
.Replace("32m", "<span style=\"color: green;\">")
.Replace("36m", "</span>")
.Replace("31m", "<span style=\"color: red;\">")
.Replace("\n", "<br/>\n")
Formatter.Register<AssertExceptionFormatter> ((fun (x :
AssertExceptionFormatter) -> x.Text), "text/html")
── fsharp - import ─────────────────────────────────────────────────────────────
//// test
let inline __expect fn log expected actual =
if log then printfn $"{actual.ToDisplayString ()}"
try
"Testing.__expect" |> fn actual expected
with :? Expecto.AssertException as ex ->
AssertExceptionFormatter(ex).Display () |> ignore
failwith (ex.GetType().FullName)
let inline __contains log expected actual = __expect Expecto.Expect.contains log
expected actual
let inline _contains expected actual = __contains true expected actual
let inline __assertEqual log expected actual = __expect Expecto.Expect.equal log
expected actual
let inline _assertEqual expected actual = __assertEqual true expected actual
let inline __isGreaterThan log expected actual = __expect
Expecto.Expect.isGreaterThan log ex...
── fsharp - import ─────────────────────────────────────────────────────────────
//// test
let inline __isBetween log a b actual =
let inline isBetween actual (a, b) _ =
__isGreaterThanOrEqual log a actual
__isLessThanOrEqual log b actual
__expect isBetween log (a, b) actual
let inline _isBetween a b actual = __isBetween true a b actual
── fsharp ──────────────────────────────────────────────────────────────────────
#!import ../../lib/fsharp/Common.fs
#!import ../../lib/fsharp/CommonFSharp.fs
#!import ../../lib/fsharp/Async.fs
#!import ../../lib/fsharp/AsyncSeq.fs
#!import ../../lib/fsharp/Networking.fs
#!import ../../lib/fsharp/Runtime.fs
#!import ../../lib/fsharp/FileSystem.fs
── fsharp - import ─────────────────────────────────────────────────────────────
#if !INTERACTIVE
namespace Polyglot
#endif
module Common =
#if !INTERACTIVE
open Lib
#endif
let nl = System.Environment.NewLine
let q = @""""
let inline cons head tail = head :: tail
/// ## memoize
let inline memoize fn =
let result = lazy fn ()
fun () -> result.Value
/// ## TraceLevel
type TraceLevel =
| Verbose
| Debug
| Info
| Warning
| Critical
let inline getLocals () = ""
/// ## trace
let to_trace_level = function
| Verbose -> SpiralTrace.TraceLevel.US0_0
| Debug -> SpiralTrace.TraceLevel.US0_1
| Info -> SpiralTrace.TraceLevel.US0_2
| Warning -> SpiralTrace.TraceLevel.US0_3
| Critical ->...
── fsharp - import ─────────────────────────────────────────────────────────────
#if !INTERACTIVE
namespace Polyglot
#endif
module CommonFSharp =
open Common
/// ## getUnionCaseName
let inline getUnionCaseName<'T> (x: 'T) =
match Reflection.FSharpValue.GetUnionFields(x, typeof<'T>) with
| case, _ -> case.Name
── fsharp - import ─────────────────────────────────────────────────────────────
#if !INTERACTIVE
namespace Polyglot
#endif
module Async =
#if !INTERACTIVE
open Lib
#endif
open Common
/// ## choice
let inline choice asyncs = async {
let e = Event<_> ()
use cts = new System.Threading.CancellationTokenSource ()
let fn =
asyncs
|> Seq.map (fun a -> async {
let! x = a
e.Trigger x
})
|> Async.Parallel
|> Async.Ignore
Async.Start (fn, cts.Token)
let! result = Async.AwaitEvent e.Publish
cts.Cancel ()
return result
}
/// ## map
let inline map fn a = async {
let! x = a
return fn x
}
/// ## catch
let inline catch a =
...
── fsharp - import ─────────────────────────────────────────────────────────────
#if !INTERACTIVE
namespace Polyglot
#endif
module AsyncSeq =
#if !INTERACTIVE
open Lib
#endif
open Common
/// ## subscribeEvent
let inline subscribeEvent (event: IEvent<'H, 'A>) map =
let observable = System.Reactive.Linq.Observable.FromEventPattern<'H,
'A>(event.AddHandler, event.RemoveHandler)
System.Reactive.Linq.Observable.Select (observable, fun event -> map
event.EventArgs)
|> FSharp.Control.AsyncSeq.ofObservableBuffered
let subscribeToken (token : System.Threading.CancellationToken) =
let tcs = new System.Threading.Tasks.TaskCompletionSource ()
System.Action tcs.SetResult |> token.Register |> ignore
let start = System.DateTime.Now.Ticks
FSharp.Control.A...
── fsharp - import ─────────────────────────────────────────────────────────────
#if !INTERACTIVE
namespace Polyglot
#endif
module Networking =
#if !INTERACTIVE
open Lib
#endif
open Common
/// ## testPortOpen
let inline testPortOpen port = async {
let! ct = Async.CancellationToken
use client = new System.Net.Sockets.TcpClient ()
try
do! client.ConnectAsync ("127.0.0.1", port, ct) |>
Async.awaitValueTaskUnit
return true
with ex ->
trace Verbose (fun () -> $"testPortOpen / ex: {ex |>
SpiralSm.format_exception}") getLocals
return false
}
let inline testPortOpenTimeout timeout port = async {
let! result =
testPortOpen port
|> Async.runWithTimeoutAsync timeout
return
...
── fsharp - import ─────────────────────────────────────────────────────────────
#if !INTERACTIVE
namespace Polyglot
#endif
module Runtime =
#if !INTERACTIVE
open Lib
#endif
open Common
/// ## splitArgs
let inline splitArgs commandLine =
commandLine
|> System.CommandLine.Parsing.CommandLineStringSplitter.Instance.Split
/// ## parseArgs
let inline parseArgs<'T when 'T :> Argu.IArgParserTemplate> args =
let assemblyName =
System.Reflection.Assembly.GetEntryAssembly().GetName().Name
let errorHandler : Argu.IExiter =
if [[ "Microsoft.DotNet.Interactive.App"; "dotnet-repl" ]] |>
List.contains assemblyName
then Argu.ExceptionExiter ()
else Argu.ProcessExiter (function Argu.ErrorCode.HelpText -> None |
_ -> Some System.ConsoleColor...
── fsharp - import ─────────────────────────────────────────────────────────────
#if !INTERACTIVE
namespace Polyglot
#endif
module FileSystem =
#if !INTERACTIVE
open Lib
#endif
open Common
open SpiralFileSystem.Operators
/// ## watchDirectory
[[<RequireQualifiedAccess>]]
type FileSystemChangeType =
| Failure
| Changed
| Created
| Deleted
| Renamed
[[<RequireQualifiedAccess>]]
type FileSystemChange =
| Failure of exn: exn
| Changed of path: string * content: string option
| Created of path: string * content: string option
| Deleted of path: string
| Renamed of oldPath: string * (string * string option)
let inline watchDirectoryWithFilter filter shouldReadContent path =
let fullPath = path |> Sys...
── fsharp ──────────────────────────────────────────────────────────────────────
#if !INTERACTIVE
open Lib
#endif
── fsharp ──────────────────────────────────────────────────────────────────────
open Common
open SpiralFileSystem.Operators
── markdown ────────────────────────────────────────────────────────────────────
╭──────────────────────────────────────────────────────────────────────────────╮
│ ## buildProject │
╰──────────────────────────────────────────────────────────────────────────────╯
── fsharp ──────────────────────────────────────────────────────────────────────
let inline buildProject runtime outputDir path = async {
let fullPath = path |> System.IO.Path.GetFullPath
let fileDir = fullPath |> System.IO.Path.GetDirectoryName
let extension = fullPath |> System.IO.Path.GetExtension
let getLocals () = $"fullPath: {fullPath} / {getLocals ()}"
trace Debug (fun () -> "buildProject") getLocals
match extension with
| ".fsproj" -> ()
| _ -> failwith "Invalid project file"
let runtimes =
runtime
|> Option.map List.singleton
|> Option.defaultValue [[ "linux-x64"; "win-x64" ]]
let outputDir = outputDir |> Option.defaultValue "dist"
return!
runtimes
|> List.map (fun runtime -> async {
let command = $@"dotnet publish ""{path}"" --configuration Release
--output ""{outputDir}"" --runtime {runtime}"
let! exitCode, _result =
SpiralRuntime.execute_with_options_async struct (None, command,
None, None, Some fileDir)
return exitCode
})
|> Async.Sequential
|> Async.map Array.sum
}
── markdown ────────────────────────────────────────────────────────────────────
╭──────────────────────────────────────────────────────────────────────────────╮
│ ## persistCodeProject │
╰──────────────────────────────────────────────────────────────────────────────╯
── fsharp ──────────────────────────────────────────────────────────────────────
let inline persistCodeProject packages modules name code = async {
let getLocals () = $"packages: {packages} / modules: {modules} / name:
{name} / code.Length: {code |> String.length} / {getLocals ()}"
trace Debug (fun () -> "persistCodeProject") getLocals
let repositoryRoot = SpiralFileSystem.get_source_directory () |>
SpiralFileSystem.find_parent ".paket" false
let targetDir = repositoryRoot </> "target/polyglot/builder" </> name
System.IO.Directory.CreateDirectory targetDir |> ignore
let filePath = targetDir </> $"{name}.fs" |> System.IO.Path.GetFullPath
do! code |> SpiralFileSystem.write_all_text_exists filePath
let modulesCode =
modules
|> List.map (fun path -> $"""<Compile Include="{repositoryRoot </>
path}" />""")
|> SpiralSm.concat "\n "
let fsprojPath = targetDir </> $"{name}.fsproj"
let fsprojCode = $"""<Project Sdk="Microsoft.NET.Sdk">
<PropertyGroup>
<TargetFramework>net9.0</TargetFramework>
<LangVersion>preview</LangVersion>
<RollForward>Major</RollForward>
<TargetLatestRuntimePatch>true</TargetLatestRuntimePatch>
<PublishAot>false</PublishAot>
<PublishTrimmed>false</PublishTrimmed>
<PublishSingleFile>true</PublishSingleFile>
<SelfContained>true</SelfContained>
<Version>0.0.1-alpha.1</Version>
<OutputType>Exe</OutputType>
</PropertyGroup>
<ItemGroup>
{modulesCode}
<Compile Include="{filePath}" />
</ItemGroup>
<Import Project="{repositoryRoot}/.paket/Paket.Restore.targets" />
</Project>
"""
do! fsprojCode |> SpiralFileSystem.write_all_text_exists fsprojPath
let paketReferencesPath = targetDir </> "paket.references"
let paketReferencesCode =
"FSharp.Core" :: packages
|> SpiralSm.concat "\n"
do! paketReferencesCode |> SpiralFileSystem.write_all_text_exists
paketReferencesPath
return fsprojPath
}
── markdown ────────────────────────────────────────────────────────────────────
╭──────────────────────────────────────────────────────────────────────────────╮
│ ## buildCode │
╰──────────────────────────────────────────────────────────────────────────────╯
── fsharp ──────────────────────────────────────────────────────────────────────
let inline buildCode runtime packages modules outputDir name code = async {
let! fsprojPath = code |> persistCodeProject packages modules name
return! fsprojPath |> buildProject runtime outputDir
}
── fsharp ──────────────────────────────────────────────────────────────────────
//// test
"1 + 1 |> ignore"
|> buildCode None [[]] [[]] None "test1"
|> Async.runWithTimeout 180000
|> _assertEqual (Some 0)
╭─[ 9.13s - stdout ]───────────────────────────────────────────────────────────╮
│ 00:00:00 #1 [debug] persistCodeProject / packages: [] / modules: [] / name: │
│ test1 / code.Length: 15 │
│ 00:00:00 #2 [debug] buildProject / fullPath: │
│ C:\home\git\polyglot\target\polyglot\builder\test1\test1.fsproj │
│ 00:00:00 #1 [debug] execute_with_options_async / options: struct (None, │
│ "dotnet publish │
│ "C:\home\git\polyglot\target/polyglot/builder\test1\test1.fsproj" │
│ --configuration Release --output "dist" --runtime linux-x64", │
│ None, None, Some │
│ "C:\home\git\polyglot\target\polyglot\builder\test1") │
│ 00:00:00 #2 [verbose] > MSBuild version 17.10.0-preview-24101-01+07fd5d51f │
│ for .NET │
│ 00:00:00 #3 [verbose] > Determining projects to restore... │
│ 00:00:02 #4 [verbose] > Restored │
│ C:\home\git\polyglot\target\polyglot\builder\test1\test1.fsproj (in 1.01 │
│ sec). │
│ 00:00:02 #5 [verbose] > │
│ C:\Users\i574n\scoop\apps\dotnet-sdk-preview\current\sdk\9.0.100-preview.1.2 │
│ 4101.2\Sdks\Microsoft.NET.Sdk\targets\Microsoft.NET.RuntimeIdentifierInferen │
│ ce.targets(313,5): message NETSDK1057: You are using a preview version of │
│ .NET. See: https://aka.ms/dotnet-support-policy [ │
│ C:\home\git\polyglot\target\polyglot\builder\test1\test1.fsproj] │
│ 00:00:02 #6 [verbose] > test1 -> │
│ C:\home\git\polyglot\target\polyglot\builder\test1\bin\Release\net9.0\linux- │
│ x64\test1.dll │
│ 00:00:04 #7 [verbose] > test1 -> │
│ C:\home\git\polyglot\target\polyglot\builder\test1\dist\ │
│ 00:00:04 #8 [debug] execute_with_options_async / exit_code: 0 / │
│ output.Length: 695 │
│ 00:00:04 #9 [debug] execute_with_options_async / options: struct (None, │
│ "dotnet publish │
│ "C:\home\git\polyglot\target/polyglot/builder\test1\test1.fsproj" │
│ --configuration Release --output "dist" --runtime win-x64", │
│ None, None, Some │
│ "C:\home\git\polyglot\target\polyglot\builder\test1") │
│ 00:00:04 #10 [verbose] > MSBuild version 17.10.0-preview-24101-01+07fd5d51f │
│ for .NET │
│ 00:00:04 #11 [verbose] > Determining projects to restore... │
│ 00:00:05 #12 [verbose] > Restored │
│ C:\home\git\polyglot\target\polyglot\builder\test1\test1.fsproj (in 285 ms). │
│ 00:00:05 #13 [verbose] > │
│ C:\Users\i574n\scoop\apps\dotnet-sdk-preview\current\sdk\9.0.100-preview.1.2 │
│ 4101.2\Sdks\Microsoft.NET.Sdk\targets\Microsoft.NET.RuntimeIdentifierInferen │
│ ce.targets(313,5): message NETSDK1057: You are using a preview version of │
│ .NET. See: https://aka.ms/dotnet-support-policy [ │
│ C:\home\git\polyglot\target\polyglot\builder\test1\test1.fsproj] │
│ 00:00:06 #14 [verbose] > test1 -> │
│ C:\home\git\polyglot\target\polyglot\builder\test1\bin\Release\net9.0\win-x6 │
│ 4\test1.dll │
│ 00:00:08 #15 [verbose] > test1 -> │
│ C:\home\git\polyglot\target\polyglot\builder\test1\dist\ │
│ 00:00:08 #16 [debug] execute_with_options_async / exit_code: 0 / │
│ output.Length: 691 │
│ FSharpOption<Int32> │
│ Value: 0 │
│ │
╰──────────────────────────────────────────────────────────────────────────────╯
── fsharp ──────────────────────────────────────────────────────────────────────
//// test
"1 + a |> ignore"
|> buildCode None [[]] [[]] None "test2"
|> Async.runWithTimeout 180000
|> _assertEqual (Some 2)
╭─[ 5.74s - stdout ]───────────────────────────────────────────────────────────╮
│ 00:00:09 #3 [debug] persistCodeProject / packages: [] / modules: [] / name: │
│ test2 / code.Length: 15 │
│ 00:00:09 #4 [debug] buildProject / fullPath: │
│ C:\home\git\polyglot\target\polyglot\builder\test2\test2.fsproj │
│ 00:00:09 #17 [debug] execute_with_options_async / options: struct (None, │
│ "dotnet publish │
│ "C:\home\git\polyglot\target/polyglot/builder\test2\test2.fsproj" │
│ --configuration Release --output "dist" --runtime linux-x64", │
│ None, None, Some │
│ "C:\home\git\polyglot\target\polyglot\builder\test2") │
│ 00:00:09 #18 [verbose] > MSBuild version 17.10.0-preview-24101-01+07fd5d51f │
│ for .NET │
│ 00:00:09 #19 [verbose] > Determining projects to restore... │
│ 00:00:10 #20 [verbose] > Restored │
│ C:\home\git\polyglot\target\polyglot\builder\test2\test2.fsproj (in 294 ms). │
│ 00:00:10 #21 [verbose] > │
│ C:\Users\i574n\scoop\apps\dotnet-sdk-preview\current\sdk\9.0.100-preview.1.2 │
│ 4101.2\Sdks\Microsoft.NET.Sdk\targets\Microsoft.NET.RuntimeIdentifierInferen │
│ ce.targets(313,5): message NETSDK1057: You are using a preview version of │
│ .NET. See: https://aka.ms/dotnet-support-policy [ │
│ C:\home\git\polyglot\target\polyglot\builder\test2\test2.fsproj] │
│ 00:00:11 #22 [verbose] > │
│ C:\home\git\polyglot\target\polyglot\builder\test2\test2.fs(1,5): error │
│ FS0039: The value or constructor 'a' is not defined. [ │
│ C:\home\git\polyglot\target\polyglot\builder\test2\test2.fsproj] │
│ 00:00:11 #23 [debug] execute_with_options_async / exit_code: 1 / │
│ output.Length: 715 │
│ 00:00:11 #24 [debug] execute_with_options_async / options: struct (None, │
│ "dotnet publish │
│ "C:\home\git\polyglot\target/polyglot/builder\test2\test2.fsproj" │
│ --configuration Release --output "dist" --runtime win-x64", │
│ None, None, Some │
│ "C:\home\git\polyglot\target\polyglot\builder\test2") │
│ 00:00:12 #25 [verbose] > MSBuild version 17.10.0-preview-24101-01+07fd5d51f │
│ for .NET │
│ 00:00:12 #26 [verbose] > Determining projects to restore... │
│ 00:00:13 #27 [verbose] > Restored │
│ C:\home\git\polyglot\target\polyglot\builder\test2\test2.fsproj (in 279 ms). │
│ 00:00:13 #28 [verbose] > │
│ C:\Users\i574n\scoop\apps\dotnet-sdk-preview\current\sdk\9.0.100-preview.1.2 │
│ 4101.2\Sdks\Microsoft.NET.Sdk\targets\Microsoft.NET.RuntimeIdentifierInferen │
│ ce.targets(313,5): message NETSDK1057: You are using a preview version of │
│ .NET. See: https://aka.ms/dotnet-support-policy [ │
│ C:\home\git\polyglot\target\polyglot\builder\test2\test2.fsproj] │
│ 00:00:14 #29 [verbose] > │
│ C:\home\git\polyglot\target\polyglot\builder\test2\test2.fs(1,5): error │
│ FS0039: The value or constructor 'a' is not defined. [ │
│ C:\home\git\polyglot\target\polyglot\builder\test2\test2.fsproj] │
│ 00:00:14 #30 [debug] execute_with_options_async / exit_code: 1 / │
│ output.Length: 715 │
│ FSharpOption<Int32> │
│ Value: 2 │
│ │
╰──────────────────────────────────────────────────────────────────────────────╯
── markdown ────────────────────────────────────────────────────────────────────
╭──────────────────────────────────────────────────────────────────────────────╮
│ ## readFile │
╰──────────────────────────────────────────────────────────────────────────────╯
── fsharp ──────────────────────────────────────────────────────────────────────
let inline readFile path = async {
let! code = path |> SpiralFileSystem.read_all_text_async
let code = System.Text.RegularExpressions.Regex.Replace (
code,
@"( *)(let\s+main\s+.*?\s*=)",
fun m -> m.Groups.[[1]].Value + "[[<EntryPoint>]]\n" +
m.Groups.[[1]].Value + m.Groups.[[2]].Value
)
let codeTrim = code |> SpiralSm.trim_end [[||]]
return
if codeTrim |> SpiralSm.ends_with "\n()"
then codeTrim |> SpiralSm.slice 0 ((codeTrim |> String.length) - 3)
else code
}
── markdown ────────────────────────────────────────────────────────────────────
╭──────────────────────────────────────────────────────────────────────────────╮
│ ## buildFile │
╰──────────────────────────────────────────────────────────────────────────────╯
── fsharp ──────────────────────────────────────────────────────────────────────
let inline buildFile runtime packages modules path = async {
let fullPath = path |> System.IO.Path.GetFullPath
let dir = fullPath |> System.IO.Path.GetDirectoryName
let name = fullPath |> System.IO.Path.GetFileNameWithoutExtension
let! code = fullPath |> readFile
return! code |> buildCode runtime packages modules (dir </> "dist" |> Some)
name
}
── markdown ────────────────────────────────────────────────────────────────────
╭──────────────────────────────────────────────────────────────────────────────╮
│ ## persistFile │
╰──────────────────────────────────────────────────────────────────────────────╯
── fsharp ──────────────────────────────────────────────────────────────────────
let inline persistFile packages modules path = async {
let fullPath = path |> System.IO.Path.GetFullPath
let name = fullPath |> System.IO.Path.GetFileNameWithoutExtension
let! code = fullPath |> readFile
return! code |> persistCodeProject packages modules name
}
── markdown ────────────────────────────────────────────────────────────────────
╭──────────────────────────────────────────────────────────────────────────────╮
│ ## Arguments │
╰──────────────────────────────────────────────────────────────────────────────╯
── fsharp ──────────────────────────────────────────────────────────────────────
[[<RequireQualifiedAccess>]]
type Arguments =
| [[<Argu.ArguAttributes.MainCommand; Argu.ArguAttributes.ExactlyOnce>]]
Path of path : string
| [[<Argu.ArguAttributes.Unique>]] Packages of packages : string list
| [[<Argu.ArguAttributes.Unique>]] Modules of modules : string list
| [[<Argu.ArguAttributes.Unique>]] Runtime of runtime : string
| [[<Argu.ArguAttributes.Unique>]] Persist_Only
interface Argu.IArgParserTemplate with
member s.Usage =
match s with
| Path _ -> nameof Path
| Packages _ -> nameof Packages
| Modules _ -> nameof Modules
| Runtime _ -> nameof Runtime
| Persist_Only -> nameof Persist_Only
── fsharp ──────────────────────────────────────────────────────────────────────
//// test
Argu.ArgumentParser.Create<Arguments>().PrintUsage ()
╭─[ 97.93ms - return value ]───────────────────────────────────────────────────╮
│ USAGE: dotnet-repl [--help] [--packages [<packages>...]] │
│ [--modules [<modules>...]] [--runtime <runtime>] │
│ [--persist-only] <path> │
│ │
│ PATH: │
│ │
│ <path> Path │
│ │
│ OPTIONS: │
│ │
│ --packages [<packages>...] │
│ Packages │
│ --modules [<modules>...] │
│ Modules │
│ --runtime <runtime> Runtime │
│ --persist-only Persist_Only │
│ --help display this list of options. │
│ │
╰──────────────────────────────────────────────────────────────────────────────╯
── markdown ────────────────────────────────────────────────────────────────────
╭──────────────────────────────────────────────────────────────────────────────╮
│ ## main │
╰──────────────────────────────────────────────────────────────────────────────╯
── fsharp ──────────────────────────────────────────────────────────────────────
let main args =
let argsMap = args |> Runtime.parseArgsMap<Arguments>
let path =
match argsMap.[[nameof Arguments.Path]] with
| [[ Arguments.Path path ]] -> Some path
| _ -> None
|> Option.get
let packages =
match argsMap |> Map.tryFind (nameof Arguments.Packages) with
| Some [[ Arguments.Packages packages ]] -> packages
| _ -> [[]]
let modules =
match argsMap |> Map.tryFind (nameof Arguments.Modules) with
| Some [[ Arguments.Modules modules ]] -> modules
| _ -> [[]]
let runtime =
match argsMap |> Map.tryFind (nameof Arguments.Runtime) with
| Some [[ Arguments.Runtime runtime ]] -> Some runtime
| _ -> None
let persistOnly = argsMap |> Map.containsKey (nameof Arguments.Persist_Only)
if persistOnly
then path |> persistFile packages modules |> Async.map (fun _ -> 0)
else path |> buildFile runtime packages modules
|> Async.runWithTimeout (60000 * 60)
|> function
| Some exitCode -> exitCode
| None -> 1
── fsharp ──────────────────────────────────────────────────────────────────────
//// test
let args =
System.Environment.GetEnvironmentVariable "ARGS"
|> Runtime.splitArgs
|> Seq.toArray
match args with
| [[||]] -> 0
| args -> if main args = 0 then 0 else failwith "main failed"
╭─[ 9.09s - return value ]─────────────────────────────────────────────────────╮
│ <div class="dni-plaintext"><pre>0</pre></div><style> │
│ .dni-code-hint { │
│ font-style: italic; │
│ overflow: hidden; │
│ white-space: nowrap; │
│ } │
│ .dni-treeview { │
│ white-space: nowrap; │
│ } │
│ .dni-treeview td { │
│ vertical-align: top; │
│ text-align: start; │
│ } │
│ details.dni-treeview { │
│ padding-left: 1em; │
│ } │
│ table td { │
│ text-align: start; │
│ } │
│ table tr { │
│ vertical-align: top; │
│ margin: 0em 0px; │
│ } │
│ table tr td pre │
│ { │
│ vertical-align: top !important; │
│ margin: 0em 0px !important; │
│ } │
│ table th { │
│ text-align: start; │
│ } │
│ </style> │
╰──────────────────────────────────────────────────────────────────────────────╯
╭─[ 9.10s - stdout ]───────────────────────────────────────────────────────────╮
│ 00:00:15 #5 [debug] persistCodeProject / packages: [Argu; │
│ FSharp.Control.AsyncSeq; System.CommandLine; ... ] / modules: [ │
│ lib/spiral/common.fsx; lib/spiral/sm.fsx; lib/spiral/crypto.fsx; ... ] / │
│ name: Builder / code.Length: 7031 │
│ 00:00:15 #6 [debug] buildProject / fullPath: │
│ C:\home\git\polyglot\target\polyglot\builder\Builder\Builder.fsproj │
│ 00:00:15 #31 [debug] execute_with_options_async / options: struct (None, │
│ "dotnet publish │
│ "C:\home\git\polyglot\target/polyglot/builder\Builder\Builder.fsproj" │
│ --configuration Release --output "C:\home\git\polyglot\apps\builder\dist" │
│ --runtime linux-x64", │
│ None, None, Some │
│ "C:\home\git\polyglot\target\polyglot\builder\Builder") │
│ 00:00:15 #32 [verbose] > MSBuild version 17.10.0-preview-24101-01+07fd5d51f │
│ for .NET │
│ 00:00:16 #33 [verbose] > Determining projects to restore... │
│ 00:00:16 #34 [verbose] > Restored │
│ C:\home\git\polyglot\target\polyglot\builder\Builder\Builder.fsproj (in 344 │
│ ms). │
│ 00:00:16 #35 [verbose] > │
│ C:\Users\i574n\scoop\apps\dotnet-sdk-preview\current\sdk\9.0.100-preview.1.2 │
│ 4101.2\Sdks\Microsoft.NET.Sdk\targets\Microsoft.NET.RuntimeIdentifierInferen │
│ ce.targets(313,5): message NETSDK1057: You are using a preview version of │
│ .NET. See: https://aka.ms/dotnet-support-policy [ │
│ C:\home\git\polyglot\target\polyglot\builder\Builder\Builder.fsproj] │
│ 00:00:17 #36 [verbose] > Builder -> │
│ C:\home\git\polyglot\target\polyglot\builder\Builder\bin\Release\net9.0\linu │
│ x-x64\Builder.dll │
│ 00:00:19 #37 [verbose] > Builder -> │
│ C:\home\git\polyglot\apps\builder\dist\ │
│ 00:00:19 #38 [debug] execute_with_options_async / exit_code: 0 / │
│ output.Length: 692 │
│ 00:00:19 #39 [debug] execute_with_options_async / options: struct (None, │
│ "dotnet publish │
│ "C:\home\git\polyglot\target/polyglot/builder\Builder\Builder.fsproj" │
│ --configuration Release --output "C:\home\git\polyglot\apps\builder\dist" │
│ --runtime win-x64", │
│ None, None, Some │
│ "C:\home\git\polyglot\target\polyglot\builder\Builder") │
│ 00:00:19 #40 [verbose] > MSBuild version 17.10.0-preview-24101-01+07fd5d51f │
│ for .NET │
│ 00:00:19 #41 [verbose] > Determining projects to restore... │
│ 00:00:20 #42 [verbose] > Restored │
│ C:\home\git\polyglot\target\polyglot\builder\Builder\Builder.fsproj (in 330 │
│ ms). │
│ 00:00:20 #43 [verbose] > │
│ C:\Users\i574n\scoop\apps\dotnet-sdk-preview\current\sdk\9.0.100-preview.1.2 │
│ 4101.2\Sdks\Microsoft.NET.Sdk\targets\Microsoft.NET.RuntimeIdentifierInferen │
│ ce.targets(313,5): message NETSDK1057: You are using a preview version of │
│ .NET. See: https://aka.ms/dotnet-support-policy [ │
│ C:\home\git\polyglot\target\polyglot\builder\Builder\Builder.fsproj] │
│ 00:00:21 #44 [verbose] > Builder -> │
│ C:\home\git\polyglot\target\polyglot\builder\Builder\bin\Release\net9.0\win- │
│ x64\Builder.dll │
│ 00:00:24 #45 [verbose] > Builder -> │
│ C:\home\git\polyglot\apps\builder\dist\ │
│ 00:00:24 #46 [debug] execute_with_options_async / exit_code: 0 / │
│ output.Length: 690 │
│ │
╰──────────────────────────────────────────────────────────────────────────────╯
[NbConvertApp] Converting notebook Builder.dib.ipynb to html
C:\Users\i574n\scoop\apps\python\current\Lib\site-packages\nbformat\__init__.py:93: MissingIDFieldWarning: Code cell is missing an id field, this will become a hard error in future nbformat versions. You may want to use `normalize()` on your notebooks before validations (available since nbformat 5.1.4). Previous versions of nbformat are fixing this issue transparently, and will stop doing so in the future.
validate(nb)
C:\Users\i574n\scoop\apps\python\current\Lib\site-packages\nbconvert\filters\highlight.py:71: UserWarning: IPython3 lexer unavailable, falling back on Python 3
return _pygments_highlight(
[NbConvertApp] Writing 327707 bytes to Builder.dib.html
In [ ]:
{ . "$ScriptDir/../apps/parser/build.ps1" } | Invoke-Block
── markdown ────────────────────────────────────────────────────────────────────
╭──────────────────────────────────────────────────────────────────────────────╮
│ # DibParser (Polyglot) │
╰──────────────────────────────────────────────────────────────────────────────╯
── fsharp ──────────────────────────────────────────────────────────────────────
#!import ../../lib/fsharp/Notebooks.dib
#!import ../../lib/fsharp/Testing.dib
── fsharp - import ─────────────────────────────────────────────────────────────
#r
"C:/Users/i574n/.nuget/packages/dotnet-repl/0.1.204/tools/net7.0/any/Microsoft.A
spNetCore.Html.Abstractions.dll"
#r
"C:/Users/i574n/.nuget/packages/dotnet-repl/0.1.204/tools/net7.0/any/Microsoft.D
otNet.Interactive.dll"
#r
"C:/Users/i574n/.nuget/packages/dotnet-repl/0.1.204/tools/net7.0/any/Microsoft.D
otNet.Interactive.FSharp.dll"
#r
"C:/Users/i574n/.nuget/packages/dotnet-repl/0.1.204/tools/net7.0/any/Microsoft.D
otNet.Interactive.Formatting.dll"
open System
open System.IO
open System.Text
open Microsoft.DotNet.Interactive.Formatting
── fsharp - import ─────────────────────────────────────────────────────────────
#r
"C:/Users/i574n/.nuget/packages/dotnet-repl/0.1.204/tools/net7.0/any/Microsoft.D
otNet.Interactive.FSharp.dll"
open Microsoft.DotNet.Interactive.FSharp.FSharpKernelHelpers
#r
"C:/Users/i574n/.nuget/packages/dotnet-repl/0.1.204/tools/net7.0/any/Microsoft.D
otNet.Interactive.dll"
open type Microsoft.DotNet.Interactive.Kernel
── fsharp - import ─────────────────────────────────────────────────────────────
//// test
Formatter.ListExpansionLimit <- 100
── fsharp - import ─────────────────────────────────────────────────────────────
type [[<Struct>]] US0 =
| US0_0
| US0_1
and [[<Struct>]] US1 =
| US1_0 of f0_0 : US0
| US1_1
let rec closure0 () (v0 : (unit -> unit)) : System.IDisposable =
let v1 : System.IDisposable option = None
let mutable _v1 = v1
#if FABLE_COMPILER_RUST && !WASM && !CONTRACT
let v2 : System.IDisposable = null |> unbox<System.IDisposable>
v2
#endif
#if FABLE_COMPILER_RUST && WASM
let v3 : System.IDisposable = null |> unbox<System.IDisposable>
v3
#endif
#if FABLE_COMPILER_RUST && CONTRACT
let v4 : System.IDisposable = null |> unbox<System.IDisposable>
v4
#endif
#if !FABLE_COMPILER && !FABLE_COMPILER_RUST && !FABLE_COMPILER_TYPESCRIPT &&
!WASM && !CONTRACT
let v5 : System.ID...
── fsharp - import ─────────────────────────────────────────────────────────────
type Mut0 = {mutable l0 : int32; mutable l1 : string}
and Mut1 = {mutable l0 : int32}
let rec closure1 (v0 : string) (v1 : string) : bool =
let v2 : bool = v1.Contains v0
v2
and closure0 () (v0 : string) : (string -> bool) =
closure1(v0)
and closure3 (v0 : string) (v1 : string) : bool =
let v2 : bool = v1.EndsWith v0
v2
and closure2 () (v0 : string) : (string -> bool) =
closure3(v0)
and closure6 (v0 : int32, v1 : char) (v2 : string) : string =
let v3 : string = v2.PadLeft (v0, v1)
v3
and closure5 (v0 : int32) (v1 : char) : (string -> string) =
closure6(v0, v1)
and closure4 () (v0 : int32) : (char -> (string -> string)) =
closure5(v0)
and closure8 (v0 : int32) (v1 : string) : string =
let v2 : stri...
── fsharp - import ─────────────────────────────────────────────────────────────
type ICryptoCreateHash = abstract createHash: x: string -> obj
type Mut0 = {mutable l0 : int32}
let rec method0 (v0 : int32, v1 : Mut0) : bool =
let v2 : int32 = v1.l0
let v3 : bool = v2 < v0
v3
and method1 () : string =
let v0 : string = ""
v0
and closure0 () (v0 : string) : string =
let v1 : string option = None
let mutable _v1 = v1
#if FABLE_COMPILER_RUST && !WASM && !CONTRACT
let v2 : string = null |> unbox<string>
v2
#endif
#if FABLE_COMPILER_RUST && WASM
let v3 : string = null |> unbox<string>
v3
#endif
#if FABLE_COMPILER_RUST && CONTRACT
let v4 : string = null |> unbox<string>
v4
#endif
#if !FABLE_COMPILER && !FABLE_COMPILER_RUST && !FABLE_COMPILER_TYP...
── fsharp - import ─────────────────────────────────────────────────────────────
let rec closure1 (v0 : System.Guid) (v1 : System.DateTime) : System.Guid =
let v2 : (System.Guid -> string) = _.ToString()
let v3 : string = v2 v0
let v4 : string = v1.ToString "yyyyMMdd-HHmm-ssff-ffff-f"
let v5 : System.Guid = System.Guid $"{v4}{v3.[[v4.Length..]]}"
v5
and closure0 () (v0 : System.Guid) : (System.DateTime -> System.Guid) =
closure1(v0)
and closure5 (v0 : string, v1 : string) (v2 : string) : string =
let v3 : string = v2.Replace (v0, v1)
v3
and closure4 (v0 : string) (v1 : string) : (string -> string) =
closure5(v0, v1)
and closure3 () (v0 : string) : (string -> (string -> string)) =
closure4(v0)
and method0 () : (string -> (string -> (string -> string))) =
closure3()
and closure2 (...
── fsharp - import ─────────────────────────────────────────────────────────────
let rec closure0 () (v0 : System.Threading.CancellationToken) :
Async<System.Threading.CancellationToken> =
let v1 : Async<System.Threading.CancellationToken> option = None
let mutable _v1 = v1
#if FABLE_COMPILER_RUST && !WASM && !CONTRACT
let v2 : Async<System.Threading.CancellationToken> = null |>
unbox<Async<System.Threading.CancellationToken>>
v2
#endif
#if FABLE_COMPILER_RUST && WASM
let v3 : Async<System.Threading.CancellationToken> = null |>
unbox<Async<System.Threading.CancellationToken>>
v3
#endif
#if FABLE_COMPILER_RUST && CONTRACT
let v4 : Async<System.Threading.CancellationToken> = null |>
unbox<Async<System.Threading.CancellationToken>>
v4
#endif
#if !FABLE_COMPILER...
── fsharp - import ─────────────────────────────────────────────────────────────
#if FABLE_COMPILER
[[<CompilationRepresentation (CompilationRepresentationFlags.ModuleSuffix)>]]
module System =
module Diagnostics =
type Process = unit
type DataReceivedEventArgs = unit
#endif
module State = let mutable trace_state = None
type [[<Struct>]] US0 =
| US0_0
| US0_1
| US0_2
| US0_3
| US0_4
and UH0 =
| UH0_0
| UH0_1 of char * UH0
and [[<Struct>]] US2 =
| US2_0
| US2_1
and [[<Struct>]] US1 =
| US1_0
| US1_1 of f1_0 : US2
| US1_2
and [[<Struct>]] US3 =
| US3_0 of f0_0 : string
| US3_1
and Mut0 = {mutable l0 : int64}
and Mut1 = {mutable l0 : bool}
and Mut2 = {mutable l0 : US0}
and [[<Struct>]] US4 =
| US4_0 of f0_0 : int64
| US4_1
and [[<Struct>]] US5 =
| US5_0 of f0_0 : i...
── fsharp - import ─────────────────────────────────────────────────────────────
#if FABLE_COMPILER // file_system.types
[[<Fable.Core.Erase; Fable.Core.Emit("str")>]] type Str = class end
[[<Fable.Core.Erase; Fable.Core.Emit("base64::DecodeError")>]] type
base64_DecodeError = class end
[[<Fable.Core.Erase; Fable.Core.Emit("borsh::io::Error")>]] type borsh_io_Error
= class end
[[<Fable.Core.Erase; Fable.Core.Emit("js_sys::JsString")>]] type js_sys_JsString
= class end
[[<Fable.Core.Erase; Fable.Core.Emit("serde_json::Error")>]] type
serde_json_Error = class end
[[<Fable.Core.Erase; Fable.Core.Emit("serde_json::Value")>]] type
serde_json_Value = class end
[[<Fable.Core.Erase; Fable.Core.Emit("serde_wasm_bindgen::Error")>]] type
serde_wasm_bindgen_Error = class end
[[<Fable.Core.Erase; Fable.Core.Emit("std::ffi::OsStr")>]] type std_ffi_O...
── fsharp - import ─────────────────────────────────────────────────────────────
module State = let mutable trace_state = None
type [[<Struct>]] US0 =
| US0_0
| US0_1
| US0_2
| US0_3
| US0_4
and Mut0 = {mutable l0 : int64}
and Mut1 = {mutable l0 : bool}
and Mut2 = {mutable l0 : US0}
and [[<Struct>]] US1 =
| US1_0 of f0_0 : int64
| US1_1
and [[<Struct>]] US2 =
| US2_0 of f0_0 : int64
| US2_1
let rec method1 (v0 : int64 option) : int64 option =
v0
and method2 (v0 : int64 option) : int64 option =
v0
and closure3 () () : struct (Mut0 * Mut1 * Mut1 * Mut2 * int64 option) =
let v0 : Mut1 = {l0 = true} : Mut1
let v1 : Mut0 = {l0 = 0L} : Mut0
let v2 : US0 = US0_0
let v3 : Mut2 = {l0 = v2} : Mut2
let v4 : Mut1 = {l0 = false} : Mut1
let v5 : int64 option option = None
...
── fsharp - import ─────────────────────────────────────────────────────────────
module SpiralTrace =
let get_trace_state () =
#if !INTERACTIVE
Trace.get_trace_state ()
#else
get_trace_state ()
#endif
let trace x =
#if !INTERACTIVE
Trace.trace x
#else
trace x
#endif
type TraceLevel =
#if !INTERACTIVE
Trace.US0
#else
US0
#endif
#if !FABLE_COMPILER && !WASM && !CONTRACT
module SpiralAsync =
let merge_cancellation_token_with_default_async x =
#if !INTERACTIVE
Async_.merge_cancellation_token_with_default_async x
#else
merge_cancellation_token_with_default_async x
#endif
module SpiralRuntime =
let get_executable_suffix () =
#if !INTERACTIVE
Runtime.get_executable_suffix ()
#else
get_executable_suffix ()
#endif
let is...
── fsharp - import ─────────────────────────────────────────────────────────────
#r @"../../../../../../../.nuget/packages/expecto/10.2.1/lib/net6.0/Expecto.dll"
── fsharp - import ─────────────────────────────────────────────────────────────
//// test
type AssertExceptionFormatter (ex) =
member _.Text =
ex.ToString()
.Replace("32m", "<span style=\"color: green;\">")
.Replace("36m", "</span>")
.Replace("31m", "<span style=\"color: red;\">")
.Replace("\n", "<br/>\n")
Formatter.Register<AssertExceptionFormatter> ((fun (x :
AssertExceptionFormatter) -> x.Text), "text/html")
── fsharp - import ─────────────────────────────────────────────────────────────
//// test
let inline __expect fn log expected actual =
if log then printfn $"{actual.ToDisplayString ()}"
try
"Testing.__expect" |> fn actual expected
with :? Expecto.AssertException as ex ->
AssertExceptionFormatter(ex).Display () |> ignore
failwith (ex.GetType().FullName)
let inline __contains log expected actual = __expect Expecto.Expect.contains log
expected actual
let inline _contains expected actual = __contains true expected actual
let inline __assertEqual log expected actual = __expect Expecto.Expect.equal log
expected actual
let inline _assertEqual expected actual = __assertEqual true expected actual
let inline __isGreaterThan log expected actual = __expect
Expecto.Expect.isGreaterThan log ex...
── fsharp - import ─────────────────────────────────────────────────────────────
//// test
let inline __isBetween log a b actual =
let inline isBetween actual (a, b) _ =
__isGreaterThanOrEqual log a actual
__isLessThanOrEqual log b actual
__expect isBetween log (a, b) actual
let inline _isBetween a b actual = __isBetween true a b actual
── pwsh ────────────────────────────────────────────────────────────────────────
ls ~/.nuget/packages/argu
╭─[ 520.43ms - stdout ]────────────────────────────────────────────────────────╮
│ │
│ Directory: C:\Users\i574n\.nuget\packages\argu │
│ │
│ Mode LastWriteTime Length[ │
│ 32;1m Name │
│ ---- ------------- ------ [ │
│ 32;1m---- │
│ d---- 2023-05-17 3:38 PM 6.1.1 │
│ d---- 2024-03-12 8:22 PM 6.1.4 │
│ d---- 2024-01-29 5:12 PM 6.1.5 │
│ d---- 2024-03-12 8:20 PM 6.2.0 │
│ d---- 2024-02-23 6:50 PM 6.2.1 │
│ d---- 2024-03-12 8:15 PM 6.2.2 │
│ │
│ │
╰──────────────────────────────────────────────────────────────────────────────╯
── fsharp ──────────────────────────────────────────────────────────────────────
#r
@"../../../../../../../.nuget/packages/fsharp.control.asyncseq/3.2.1/lib/netstan
dard2.1/FSharp.Control.AsyncSeq.dll"
#r
@"../../../../../../../.nuget/packages/system.reactive/6.0.1-preview.1/lib/net6.
0/System.Reactive.dll"
#r
@"../../../../../../../.nuget/packages/system.reactive.linq/6.0.1-preview.1/lib/
netstandard2.0/System.Reactive.Linq.dll"
#r
@"../../../../../../../.nuget/packages/argu/6.2.2/lib/netstandard2.0/Argu.dll"
#r
@"../../../../../../../.nuget/packages/system.commandline/2.0.0-beta4.22272.1/li
b/net6.0/System.CommandLine.dll"
#r
@"../../../../../../../.nuget/packages/fparsec/2.0.0-beta2/lib/netstandard2.1/FP
arsec.dll"
#r
@"../../../../../../../.nuget/packages/fparsec/2.0.0-beta2/lib/netstandard2.1/FP
arsecCS.dll"
── fsharp ──────────────────────────────────────────────────────────────────────
#!import ../../lib/fsharp/Common.fs
#!import ../../lib/fsharp/CommonFSharp.fs
#!import ../../lib/fsharp/Async.fs
#!import ../../lib/fsharp/AsyncSeq.fs
#!import ../../lib/fsharp/Runtime.fs
#!import ../../lib/fsharp/FileSystem.fs
── fsharp - import ─────────────────────────────────────────────────────────────
#if !INTERACTIVE
namespace Polyglot
#endif
module Common =
#if !INTERACTIVE
open Lib
#endif
let nl = System.Environment.NewLine
let q = @""""
let inline cons head tail = head :: tail
/// ## memoize
let inline memoize fn =
let result = lazy fn ()
fun () -> result.Value
/// ## TraceLevel
type TraceLevel =
| Verbose
| Debug
| Info
| Warning
| Critical
let inline getLocals () = ""
/// ## trace
let to_trace_level = function
| Verbose -> SpiralTrace.TraceLevel.US0_0
| Debug -> SpiralTrace.TraceLevel.US0_1
| Info -> SpiralTrace.TraceLevel.US0_2
| Warning -> SpiralTrace.TraceLevel.US0_3
| Critical ->...
── fsharp - import ─────────────────────────────────────────────────────────────
#if !INTERACTIVE
namespace Polyglot
#endif
module CommonFSharp =
open Common
/// ## getUnionCaseName
let inline getUnionCaseName<'T> (x: 'T) =
match Reflection.FSharpValue.GetUnionFields(x, typeof<'T>) with
| case, _ -> case.Name
── fsharp - import ─────────────────────────────────────────────────────────────
#if !INTERACTIVE
namespace Polyglot
#endif
module Async =
#if !INTERACTIVE
open Lib
#endif
open Common
/// ## choice
let inline choice asyncs = async {
let e = Event<_> ()
use cts = new System.Threading.CancellationTokenSource ()
let fn =
asyncs
|> Seq.map (fun a -> async {
let! x = a
e.Trigger x
})
|> Async.Parallel
|> Async.Ignore
Async.Start (fn, cts.Token)
let! result = Async.AwaitEvent e.Publish
cts.Cancel ()
return result
}
/// ## map
let inline map fn a = async {
let! x = a
return fn x
}
/// ## catch
let inline catch a =
...
── fsharp - import ─────────────────────────────────────────────────────────────
#if !INTERACTIVE
namespace Polyglot
#endif
module AsyncSeq =
#if !INTERACTIVE
open Lib
#endif
open Common
/// ## subscribeEvent
let inline subscribeEvent (event: IEvent<'H, 'A>) map =
let observable = System.Reactive.Linq.Observable.FromEventPattern<'H,
'A>(event.AddHandler, event.RemoveHandler)
System.Reactive.Linq.Observable.Select (observable, fun event -> map
event.EventArgs)
|> FSharp.Control.AsyncSeq.ofObservableBuffered
let subscribeToken (token : System.Threading.CancellationToken) =
let tcs = new System.Threading.Tasks.TaskCompletionSource ()
System.Action tcs.SetResult |> token.Register |> ignore
let start = System.DateTime.Now.Ticks
FSharp.Control.A...
── fsharp - import ─────────────────────────────────────────────────────────────
#if !INTERACTIVE
namespace Polyglot
#endif
module Runtime =
#if !INTERACTIVE
open Lib
#endif
open Common
/// ## splitArgs
let inline splitArgs commandLine =
commandLine
|> System.CommandLine.Parsing.CommandLineStringSplitter.Instance.Split
/// ## parseArgs
let inline parseArgs<'T when 'T :> Argu.IArgParserTemplate> args =
let assemblyName =
System.Reflection.Assembly.GetEntryAssembly().GetName().Name
let errorHandler : Argu.IExiter =
if [[ "Microsoft.DotNet.Interactive.App"; "dotnet-repl" ]] |>
List.contains assemblyName
then Argu.ExceptionExiter ()
else Argu.ProcessExiter (function Argu.ErrorCode.HelpText -> None |
_ -> Some System.ConsoleColor...
── fsharp - import ─────────────────────────────────────────────────────────────
#if !INTERACTIVE
namespace Polyglot
#endif
module FileSystem =
#if !INTERACTIVE
open Lib
#endif
open Common
open SpiralFileSystem.Operators
/// ## watchDirectory
[[<RequireQualifiedAccess>]]
type FileSystemChangeType =
| Failure
| Changed
| Created
| Deleted
| Renamed
[[<RequireQualifiedAccess>]]
type FileSystemChange =
| Failure of exn: exn
| Changed of path: string * content: string option
| Created of path: string * content: string option
| Deleted of path: string
| Renamed of oldPath: string * (string * string option)
let inline watchDirectoryWithFilter filter shouldReadContent path =
let fullPath = path |> Sys...
── fsharp ──────────────────────────────────────────────────────────────────────
#if !INTERACTIVE
open Lib
#endif
── fsharp ──────────────────────────────────────────────────────────────────────
open Common
open FParsec
── markdown ────────────────────────────────────────────────────────────────────
╭──────────────────────────────────────────────────────────────────────────────╮
│ ## escapeCell (test) │
╰──────────────────────────────────────────────────────────────────────────────╯
── fsharp ──────────────────────────────────────────────────────────────────────
//// test
let inline escapeCell input =
input
|> SpiralSm.split "\n"
|> Array.map (function
| line when line |> SpiralSm.starts_with "\\#!" || line |>
SpiralSm.starts_with "\\#r" ->
System.Text.RegularExpressions.Regex.Replace (line, "^\\\\#", "#")
| line -> line
)
|> SpiralSm.concat "\n"
── fsharp ──────────────────────────────────────────────────────────────────────
//// test
$"a{nl}\\#!magic{nl}b{nl}"
|> escapeCell
|> _assertEqual (
$"a{nl}#!magic{nl}b{nl}"
)
╭─[ 46.80ms - stdout ]─────────────────────────────────────────────────────────╮
│ a │
│ #!magic │
│ b │
│ │
│ │
╰──────────────────────────────────────────────────────────────────────────────╯
── markdown ────────────────────────────────────────────────────────────────────
╭──────────────────────────────────────────────────────────────────────────────╮
│ ## magicMarker │
╰──────────────────────────────────────────────────────────────────────────────╯
── fsharp ──────────────────────────────────────────────────────────────────────
let magicMarker : Parser<string, unit> = pstring "#!"
── fsharp ──────────────────────────────────────────────────────────────────────
//// test
"#!magic"
|> run magicMarker
|> _assertEqual (
Success ("#!", (), Position ("", 2, 1, 3))
)
╭─[ 46.15ms - stdout ]─────────────────────────────────────────────────────────╮
│ Success │
│ Item1: #! │
│ Item2: <null> │
│ Item3: Position │
│ Index: 2 │
│ Line: 1 │
│ Column: 3 │
│ StreamName: │
│ │
╰──────────────────────────────────────────────────────────────────────────────╯
── fsharp ──────────────────────────────────────────────────────────────────────
//// test
"##!magic"
|> run magicMarker
|> _assertEqual (
Failure (
$"Error in Ln: 1 Col: 1{nl}##!magic{nl}^{nl}Expecting: '#!'{nl}",
ParserError (
Position ("", 0, 1, 1),
(),
ErrorMessageList (ExpectedString "#!")
),
()
)
)
╭─[ 51.59ms - stdout ]─────────────────────────────────────────────────────────╮
│ Failure │
│ Item1: Error in Ln: 1 Col: 1 │
│ ##!magic │
│ ^ │
│ Expecting: '#!' │
│ │
│ Item2: ParserError │
│ Position: Position │
│ Index: 0 │
│ Line: 1 │
│ Column: 1 │
│ StreamName: │
│ UserState: <null> │
│ Messages: ErrorMessageList │
│ Head: ExpectedString │
│ String: #! │
│ Type: ExpectedString │
│ Tail: <null> │
│ Item3: <null> │
│ │
╰──────────────────────────────────────────────────────────────────────────────╯
── markdown ────────────────────────────────────────────────────────────────────
╭──────────────────────────────────────────────────────────────────────────────╮
│ ## magicCommand │
╰──────────────────────────────────────────────────────────────────────────────╯
── fsharp ──────────────────────────────────────────────────────────────────────
let magicCommand =
magicMarker
>>. manyTill anyChar newline
|>> (System.String.Concat >> SpiralSm.trim)
── fsharp ──────────────────────────────────────────────────────────────────────
//// test
"#!magic
a"
|> run magicCommand
|> _assertEqual (
Success ("magic", (), Position ("", 8, 2, 1))
)
╭─[ 48.70ms - stdout ]─────────────────────────────────────────────────────────╮
│ Success │
│ Item1: magic │
│ Item2: <null> │
│ Item3: Position │
│ Index: 8 │
│ Line: 2 │
│ Column: 1 │
│ StreamName: │
│ │
╰──────────────────────────────────────────────────────────────────────────────╯
── fsharp ──────────────────────────────────────────────────────────────────────
//// test
" #!magic
a"
|> run magicCommand
|> _assertEqual (
Failure (
$"Error in Ln: 1 Col: 1{nl} #!magic{nl}^{nl}Expecting: '#!'{nl}",
ParserError (
Position ("", 0, 1, 1),
(),
ErrorMessageList (ExpectedString "#!")
),
()
)
)
╭─[ 37.78ms - stdout ]─────────────────────────────────────────────────────────╮
│ Failure │
│ Item1: Error in Ln: 1 Col: 1 │
│ #!magic │
│ ^ │
│ Expecting: '#!' │
│ │
│ Item2: ParserError │
│ Position: Position │
│ Index: 0 │
│ Line: 1 │
│ Column: 1 │
│ StreamName: │
│ UserState: <null> │
│ Messages: ErrorMessageList │
│ Head: ExpectedString │
│ String: #! │
│ Type: ExpectedString │
│ Tail: <null> │
│ Item3: <null> │
│ │
╰──────────────────────────────────────────────────────────────────────────────╯
── markdown ────────────────────────────────────────────────────────────────────
╭──────────────────────────────────────────────────────────────────────────────╮
│ ## content │
╰──────────────────────────────────────────────────────────────────────────────╯
── fsharp ──────────────────────────────────────────────────────────────────────
let content =
(newline >>. magicMarker) <|> (eof >>. preturn "")
|> attempt
|> lookAhead
|> manyTill anyChar
|>> (System.String.Concat >> SpiralSm.trim)
── fsharp ──────────────────────────────────────────────────────────────────────
//// test
"#!magic
a
"
|> run content
|> _assertEqual (
Success ("#!magic
a", (), Position ("", 14, 7, 1))
)
╭─[ 33.96ms - stdout ]─────────────────────────────────────────────────────────╮
│ Success │
│ Item1: #!magic │
│ │
│ │
│ a │
│ Item2: <null> │
│ Item3: Position │
│ Index: 14 │
│ Line: 7 │
│ Column: 1 │
│ StreamName: │
│ │
╰──────────────────────────────────────────────────────────────────────────────╯
── markdown ────────────────────────────────────────────────────────────────────
╭──────────────────────────────────────────────────────────────────────────────╮
│ ## Block │
╰──────────────────────────────────────────────────────────────────────────────╯
── fsharp ──────────────────────────────────────────────────────────────────────
type Block =
{
magic : string
content : string
}
── markdown ────────────────────────────────────────────────────────────────────
╭──────────────────────────────────────────────────────────────────────────────╮
│ ## block │
╰──────────────────────────────────────────────────────────────────────────────╯
── fsharp ──────────────────────────────────────────────────────────────────────
let block =
pipe2
magicCommand
content
(fun magic content ->
{
magic = magic
content = content
})
── fsharp ──────────────────────────────────────────────────────────────────────
//// test
"#!magic
a
"
|> run block
|> _assertEqual (
Success (
{ magic = "magic"; content = "a" },
(),
Position ("", 14, 7, 1)
)
)
╭─[ 37.68ms - stdout ]─────────────────────────────────────────────────────────╮
│ Success │
│ Item1: Block │
│ magic: magic │
│ content: a │
│ Item2: <null> │
│ Item3: Position │
│ Index: 14 │
│ Line: 7 │
│ Column: 1 │
│ StreamName: │
│ │
╰──────────────────────────────────────────────────────────────────────────────╯
── markdown ────────────────────────────────────────────────────────────────────
╭──────────────────────────────────────────────────────────────────────────────╮
│ ## blocks │
╰──────────────────────────────────────────────────────────────────────────────╯
── fsharp ──────────────────────────────────────────────────────────────────────
let blocks =
skipMany newline
>>. sepEndBy block (skipMany1 newline)
── fsharp ──────────────────────────────────────────────────────────────────────
//// test
"#!magic1
a
\#!magic2
b
"
|> escapeCell
|> run blocks
|> _assertEqual (
Success (
[[
{ magic = "magic1"; content = "a" }
{ magic = "magic2"; content = "b" }
]],
(),
Position ("", 26, 9, 1)
)
)
╭─[ 47.16ms - stdout ]─────────────────────────────────────────────────────────╮
│ Success │
│ Item1: FSharpList<Block> │
│ - magic: magic1 │
│ content: a │
│ - magic: magic2 │
│ content: b │
│ Item2: <null> │
│ Item3: Position │
│ Index: 26 │
│ Line: 9 │
│ Column: 1 │
│ StreamName: │
│ │
╰──────────────────────────────────────────────────────────────────────────────╯
── markdown ────────────────────────────────────────────────────────────────────
╭──────────────────────────────────────────────────────────────────────────────╮
│ ## Output │
╰──────────────────────────────────────────────────────────────────────────────╯
── fsharp ──────────────────────────────────────────────────────────────────────
type Output =
| Fs
| Md
| Spi
| Spir
let inline kernelOutputs magic =
match magic with
| "fsharp" -> [[ Fs ]]
| "markdown" -> [[ Md ]]
| "spiral" -> [[ Spi; Spir ]]
| _ -> [[]]
── markdown ────────────────────────────────────────────────────────────────────
╭──────────────────────────────────────────────────────────────────────────────╮
│ ## formatBlock │
╰──────────────────────────────────────────────────────────────────────────────╯
── fsharp ──────────────────────────────────────────────────────────────────────
let inline formatBlock output (block : Block) =
match output, block with
| output, { magic = "markdown"; content = content } ->
let markdownComment =
match output with
| Spi | Spir -> "// // "
| Fs -> "/// "
| _ -> ""
content
|> SpiralSm.split "\n"
|> Array.map (SpiralSm.trim_end [[||]])
|> Array.filter (SpiralSm.ends_with " (test)" >> not)
|> Array.map (function
| "" -> markdownComment |> SpiralSm.trim
| line -> System.Text.RegularExpressions.Regex.Replace (line,
"^\\s*", $"$&{markdownComment}")
)
|> SpiralSm.concat "\n"
| Fs, { magic = "fsharp"; content = content } ->
let trimmedContent = content |> SpiralSm.trim
if trimmedContent |> SpiralSm.starts_with "//// test" || trimmedContent
|> SpiralSm.starts_with "//// ignore"
then ""
else
content
|> SpiralSm.split "\n"
|> Array.filter (SpiralSm.trim_start [[||]] >> SpiralSm.starts_with
"#r" >> not)
|> SpiralSm.concat "\n"
| (Spi | Spir), { magic = "spiral"; content = content } ->
let trimmedContent = content |> SpiralSm.trim
if trimmedContent |> SpiralSm.starts_with "// // test" || trimmedContent
|> SpiralSm.starts_with "// // ignore"
then ""
else content
| _ -> ""
── fsharp ──────────────────────────────────────────────────────────────────────
//// test
"#!markdown
a
b
c
\#!markdown
c
\#!fsharp
let a = 1"
|> escapeCell
|> run block
|> function
| Success (block, _, _) -> formatBlock Fs block
| Failure (msg, _, _) -> failwith msg
|> _assertEqual "/// a
///
/// b
///
/// c"
╭─[ 52.68ms - stdout ]─────────────────────────────────────────────────────────╮
│ /// a │
│ /// │
│ /// b │
│ /// │
│ /// c │
│ │
╰──────────────────────────────────────────────────────────────────────────────╯
── markdown ────────────────────────────────────────────────────────────────────
╭──────────────────────────────────────────────────────────────────────────────╮
│ ## formatBlocks │
╰──────────────────────────────────────────────────────────────────────────────╯
── fsharp ──────────────────────────────────────────────────────────────────────
let inline formatBlocks output blocks =
blocks
|> List.map (formatBlock output)
|> List.filter ((<>) "")
|> SpiralSm.concat "\n\n"
|> fun s -> s + "\n"
── fsharp ──────────────────────────────────────────────────────────────────────
//// test
"#!markdown
a
b
\#!markdown
c
\#!fsharp
let a = 1
\#!markdown
d (test)
\#!fsharp
//// test
let a = 2
\#!markdown
e
\#!fsharp
let a = 3"
|> escapeCell
|> run blocks
|> function
| Success (blocks, _, _) -> formatBlocks Fs blocks
| Failure (msg, _, _) -> failwith msg
|> _assertEqual "/// a
///
/// b
/// c
let a = 1
/// e
let a = 3
"
╭─[ 58.37ms - stdout ]─────────────────────────────────────────────────────────╮
│ /// a │
│ /// │
│ /// b │
│ │
│ /// c │
│ │
│ let a = 1 │
│ │
│ /// e │
│ │
│ let a = 3 │
│ │
│ │
╰──────────────────────────────────────────────────────────────────────────────╯
── markdown ────────────────────────────────────────────────────────────────────
╭──────────────────────────────────────────────────────────────────────────────╮
│ ## parse │
╰──────────────────────────────────────────────────────────────────────────────╯
── fsharp ──────────────────────────────────────────────────────────────────────
let inline parse output input =
match run blocks input with
| Success (blocks, _, _) ->
let blocks =
blocks
|> List.filter (fun block ->
block.magic |> kernelOutputs |> List.contains output ||
block.magic = "markdown"
)
match blocks with
| { magic = "markdown"; content = content } :: _
when output = Fs
&& content |> SpiralSm.starts_with "# "
&& content |> SpiralSm.ends_with ")"
->
let inline indentBlock (block : Block) =
{ block with
content =
block.content
|> SpiralSm.split "\n"
|> Array.fold
(fun (lines, isMultiline) line ->
let trimmedLine = line |> SpiralSm.trim
if trimmedLine = ""
then "" :: lines, isMultiline
else
let inline singleQuoteLine () =
trimmedLine |> Seq.sumBy ((=) '"' >>
System.Convert.ToInt32) = 1
&& trimmedLine |> SpiralSm.contains
@"'""'" |> not
&& trimmedLine |> SpiralSm.ends_with "{"
|> not
&& trimmedLine |> SpiralSm.ends_with
"{|" |> not
&& trimmedLine |> SpiralSm.starts_with
"}" |> not
&& trimmedLine |> SpiralSm.starts_with
"|}" |> not
match isMultiline, trimmedLine |>
SpiralSm.split_string [[| $"{q}{q}{q}" |]] with
| false, [[| _; _ |]] ->
$" {line}" :: lines, true
| true, [[| _; _ |]] ->
line :: lines, false
| false, _ when singleQuoteLine () ->
$" {line}" :: lines, true
| false, _ when line |> SpiralSm.starts_with
"#" && block.magic = "fsharp" ->
line :: lines, false
| false, _ ->
$" {line}" :: lines, false
| true, _ when singleQuoteLine () && line |>
SpiralSm.starts_with " " ->
$" {line}" :: lines, false
| true, _ when singleQuoteLine () ->
line :: lines, false
| true, _ ->
line :: lines, true
)
([[]], false)
|> fst
|> List.rev
|> SpiralSm.concat "\n"
}
let moduleName, namespaceName =
System.Text.RegularExpressions.Regex.Match (content, @"# (.*)
\((.*)\)$")
|> fun m -> m.Groups.[[1]].Value, m.Groups.[[2]].Value
let moduleBlock =
{
magic = "fsharp"
content =
$"#if !INTERACTIVE
namespace {namespaceName}
#endif
module {moduleName} ="
}
blocks
|> List.indexed
|> List.fold
(fun blocks (index, block) ->
match index with
| 0 -> blocks
| 1 -> indentBlock block :: moduleBlock :: blocks
| _ -> indentBlock block :: blocks
)
[[]]
|> List.rev
| _ -> blocks
|> Result.Ok
| Failure (errorMsg, _, _) -> Result.Error errorMsg
── fsharp ──────────────────────────────────────────────────────────────────────
//// test
let example1 =
$"""#!meta
{{"kernelInfo":{{"defaultKernelName":"fsharp","items":[[{{"aliases":[[]],"name":
"fsharp"}},{{"aliases":[[]],"name":"fsharp"}}]]}}}}
\#!markdown
# TestModule (TestNamespace)
\#!fsharp
\#!import file.dib
\#!fsharp
\#r "nuget:Expecto"
\#!markdown
## ParserLibrary
\#!fsharp
open System
\#!markdown
## x (test)
\#!fsharp
//// ignore
let x = 1
\#!spiral
// // test
inl x = 0i32
\#!spiral
inl x = 0i32
\#!markdown
### TextInput
\#!fsharp
let str1 = "abc
def"
let str2 =
"abc\
def"
let str3 =
$"1{{
1
}}1"
let str4 =
$"1{{({{|
a = 1
|}}).a}}1"
let str5 =
"abc \
def"
let x =
match '"' with
| '"' -> true
| _ -> false
let long1 = {q}{q}{q}a{q}{q}{q}
let long2 =
{q}{q}{q}
a
{q}{q}{q}
\#!fsharp
type Position =
{{
#if INTERACTIVE
line : string
#else
line : int
#endif
column : int
}}"""
|> escapeCell
── fsharp ──────────────────────────────────────────────────────────────────────
//// test
example1
|> parse Fs
|> Result.toOption
|> Option.get
|> (formatBlocks Fs)
|> _assertEqual $"""#if !INTERACTIVE
namespace TestNamespace
#endif
module TestModule =
/// ## ParserLibrary
open System
/// ### TextInput
let str1 = "abc
def"
let str2 =
"abc\
def"
let str3 =
$"1{{
1
}}1"
let str4 =
$"1{{({{|
a = 1
|}}).a}}1"
let str5 =
"abc \
def"
let x =
match '"' with
| '"' -> true
| _ -> false
let long1 = {q}{q}{q}a{q}{q}{q}
let long2 =
{q}{q}{q}
a
{q}{q}{q}
type Position =
{{
#if INTERACTIVE
line : string
#else
line : int
#endif
column : int
}}
"""
╭─[ 145.45ms - stdout ]────────────────────────────────────────────────────────╮
│ #if !INTERACTIVE │
│ namespace TestNamespace │
│ #endif │
│ │
│ module TestModule = │
│ │
│ /// ## ParserLibrary │
│ │
│ open System │
│ │
│ /// ### TextInput │
│ │
│ let str1 = "abc │
│ def" │
│ │
│ let str2 = │
│ "abc\ │
│ def" │
│ │
│ let str3 = │
│ $"1{ │
│ 1 │
│ }1" │
│ │
│ let str4 = │
│ $"1{({| │
│ a = 1 │
│ |}).a}1" │
│ │
│ let str5 = │
│ "abc \ │
│ def" │
│ │
│ let x = │
│ match '"' with │
│ | '"' -> true │
│ | _ -> false │
│ │
│ let long1 = """a""" │
│ │
│ let long2 = │
│ """ │
│ a │
│ """ │
│ │
│ type Position = │
│ { │
│ #if INTERACTIVE │
│ line : string │
│ #else │
│ line : int │
│ #endif │
│ column : int │
│ } │
│ │
│ │
╰──────────────────────────────────────────────────────────────────────────────╯
── fsharp ──────────────────────────────────────────────────────────────────────
//// test
example1
|> parse Md
|> Result.toOption
|> Option.get
|> (formatBlocks Md)
|> _assertEqual "# TestModule (TestNamespace)
## ParserLibrary
### TextInput
"
╭─[ 128.87ms - stdout ]────────────────────────────────────────────────────────╮
│ # TestModule (TestNamespace) │
│ │
│ ## ParserLibrary │
│ │
│ ### TextInput │
│ │
│ │
╰──────────────────────────────────────────────────────────────────────────────╯
── fsharp ──────────────────────────────────────────────────────────────────────
//// test
example1
|> parse Spi
|> Result.toOption
|> Option.get
|> (formatBlocks Spi)
|> _assertEqual "// // # TestModule (TestNamespace)
// // ## ParserLibrary
inl x = 0i32
// // ### TextInput
"
╭─[ 140.50ms - stdout ]────────────────────────────────────────────────────────╮
│ // // # TestModule (TestNamespace) │
│ │
│ // // ## ParserLibrary │
│ │
│ inl x = 0i32 │
│ │
│ // // ### TextInput │
│ │
│ │
╰──────────────────────────────────────────────────────────────────────────────╯
── markdown ────────────────────────────────────────────────────────────────────
╭──────────────────────────────────────────────────────────────────────────────╮
│ ## parseDibCode │
╰──────────────────────────────────────────────────────────────────────────────╯
── fsharp ──────────────────────────────────────────────────────────────────────
let inline parseDibCode output file = async {
let getLocals () = $"output: {output} / file: {file} / {getLocals ()}"
trace Debug (fun () -> "parseDibCode") getLocals
let! input = file |> SpiralFileSystem.read_all_text_async
match parse output input with
| Result.Ok blocks -> return blocks |> formatBlocks output
| Result.Error msg -> return failwith msg
}
── markdown ────────────────────────────────────────────────────────────────────
╭──────────────────────────────────────────────────────────────────────────────╮
│ ## writeDibCode │
╰──────────────────────────────────────────────────────────────────────────────╯
── fsharp ──────────────────────────────────────────────────────────────────────
let inline writeDibCode output path = async {
let getLocals () = $"output: {output} / path: {path} / {getLocals ()}"
trace Debug (fun () -> "writeDibCode") getLocals
let! result = parseDibCode output path
let outputPath = path |> SpiralSm.replace ".dib" $".{output |> string |>
SpiralSm.to_lower}"
do! result |> SpiralFileSystem.write_all_text_async outputPath
}
── markdown ────────────────────────────────────────────────────────────────────
╭──────────────────────────────────────────────────────────────────────────────╮
│ ## Arguments │
╰──────────────────────────────────────────────────────────────────────────────╯
── fsharp ──────────────────────────────────────────────────────────────────────
[[<RequireQualifiedAccess>]]
type Arguments =
| [[<Argu.ArguAttributes.MainCommand; Argu.ArguAttributes.Mandatory>]]
File of file : string * Output
interface Argu.IArgParserTemplate with
member s.Usage =
match s with
| File _ -> nameof File
── fsharp ──────────────────────────────────────────────────────────────────────
//// test
Argu.ArgumentParser.Create<Arguments>().PrintUsage ()
╭─[ 86.81ms - return value ]───────────────────────────────────────────────────╮
│ USAGE: dotnet-repl [--help] <file> <fs|md|spi|spir> │
│ │
│ FILE: │
│ │
│ <file> <fs|md|spi|spir> │
│ File │
│ │
│ OPTIONS: │
│ │
│ --help display this list of options. │
│ │
╰──────────────────────────────────────────────────────────────────────────────╯
── markdown ────────────────────────────────────────────────────────────────────
╭──────────────────────────────────────────────────────────────────────────────╮
│ ## main │
╰──────────────────────────────────────────────────────────────────────────────╯
── fsharp ──────────────────────────────────────────────────────────────────────
let main args =
let argsMap = args |> Runtime.parseArgsMap<Arguments>
let files =
argsMap.[[nameof Arguments.File]]
|> List.map (function
| Arguments.File (path, output) -> path, output
)
files
|> List.map (fun (path, output) -> path |> writeDibCode output)
|> Async.Parallel
|> Async.Ignore
|> Async.runWithTimeout 30000
|> function
| Some () -> 0
| None -> 1
── fsharp ──────────────────────────────────────────────────────────────────────
//// test
let args =
System.Environment.GetEnvironmentVariable "ARGS"
|> Runtime.splitArgs
|> Seq.toArray
match args with
| [[||]] -> 0
| args -> if main args = 0 then 0 else failwith "main failed"
╭─[ 136.66ms - return value ]──────────────────────────────────────────────────╮
│ <div class="dni-plaintext"><pre>0</pre></div><style> │
│ .dni-code-hint { │
│ font-style: italic; │
│ overflow: hidden; │
│ white-space: nowrap; │
│ } │
│ .dni-treeview { │
│ white-space: nowrap; │
│ } │
│ .dni-treeview td { │
│ vertical-align: top; │
│ text-align: start; │
│ } │
│ details.dni-treeview { │
│ padding-left: 1em; │
│ } │
│ table td { │
│ text-align: start; │
│ } │
│ table tr { │
│ vertical-align: top; │
│ margin: 0em 0px; │
│ } │
│ table tr td pre │
│ { │
│ vertical-align: top !important; │
│ margin: 0em 0px !important; │
│ } │
│ table th { │
│ text-align: start; │
│ } │
│ </style> │
╰──────────────────────────────────────────────────────────────────────────────╯
╭─[ 148.36ms - stdout ]────────────────────────────────────────────────────────╮
│ 00:00:00 #1 [debug] writeDibCode / output: Fs / path: DibParser.dib │
│ 00:00:00 #2 [debug] parseDibCode / output: Fs / file: DibParser.dib │
│ │
╰──────────────────────────────────────────────────────────────────────────────╯
[NbConvertApp] Converting notebook DibParser.dib.ipynb to html
C:\Users\i574n\scoop\apps\python\current\Lib\site-packages\nbformat\__init__.py:93: MissingIDFieldWarning: Code cell is missing an id field, this will become a hard error in future nbformat versions. You may want to use `normalize()` on your notebooks before validations (available since nbformat 5.1.4). Previous versions of nbformat are fixing this issue transparently, and will stop doing so in the future.
validate(nb)
C:\Users\i574n\scoop\apps\python\current\Lib\site-packages\nbconvert\filters\highlight.py:71: UserWarning: IPython3 lexer unavailable, falling back on Python 3
return _pygments_highlight(
[NbConvertApp] Writing 369380 bytes to DibParser.dib.html
00:00:00 #1 [debug] persistCodeProject / packages: [Argu; FParsec; FSharp.Control.AsyncSeq; ... ] / modules: [lib/spiral/common.fsx; lib/spiral/sm.fsx; lib/spiral/crypto.fsx; ... ] / name: DibParser / code.Length: 9188
00:00:00 #2 [debug] buildProject / fullPath: C:\home\git\polyglot\target\polyglot\builder\DibParser\DibParser.fsproj
00:00:00 #1 [debug] execute_with_options_async / options: struct (None,
"dotnet publish "C:\home\git\polyglot\target/polyglot/builder\DibParser\DibParser.fsproj" --configuration Release --output "C:\home\git\polyglot\apps\parser\dist" --runtime linux-x64",
None, None,
Some "C:\home\git\polyglot\target\polyglot\builder\DibParser")
00:00:00 #2 [verbose] > MSBuild version 17.10.0-preview-24101-01+07fd5d51f for .NET
00:00:00 #3 [verbose] > Determining projects to restore...
00:00:01 #4 [verbose] > Restored C:\home\git\polyglot\target\polyglot\builder\DibParser\DibParser.fsproj (in 334 ms).
00:00:01 #5 [verbose] > C:\Users\i574n\scoop\apps\dotnet-sdk-preview\current\sdk\9.0.100-preview.1.24101.2\Sdks\Microsoft.NET.Sdk\targets\Microsoft.NET.RuntimeIdentifierInference.targets(313,5): message NETSDK1057: You are using a preview version of .NET. See: https://aka.ms/dotnet-support-policy [C:\home\git\polyglot\target\polyglot\builder\DibParser\DibParser.fsproj]
00:00:02 #6 [verbose] > DibParser -> C:\home\git\polyglot\target\polyglot\builder\DibParser\bin\Release\net9.0\linux-x64\DibParser.dll
00:00:03 #7 [verbose] > DibParser -> C:\home\git\polyglot\apps\parser\dist\
00:00:03 #8 [debug] execute_with_options_async / exit_code: 0 / output.Length: 707
00:00:03 #9 [debug] execute_with_options_async / options: struct (None,
"dotnet publish "C:\home\git\polyglot\target/polyglot/builder\DibParser\DibParser.fsproj" --configuration Release --output "C:\home\git\polyglot\apps\parser\dist" --runtime win-x64",
None, None,
Some "C:\home\git\polyglot\target\polyglot\builder\DibParser")
00:00:03 #10 [verbose] > MSBuild version 17.10.0-preview-24101-01+07fd5d51f for .NET
00:00:04 #11 [verbose] > Determining projects to restore...
00:00:05 #12 [verbose] > Restored C:\home\git\polyglot\target\polyglot\builder\DibParser\DibParser.fsproj (in 341 ms).
00:00:05 #13 [verbose] > C:\Users\i574n\scoop\apps\dotnet-sdk-preview\current\sdk\9.0.100-preview.1.24101.2\Sdks\Microsoft.NET.Sdk\targets\Microsoft.NET.RuntimeIdentifierInference.targets(313,5): message NETSDK1057: You are using a preview version of .NET. See: https://aka.ms/dotnet-support-policy [C:\home\git\polyglot\target\polyglot\builder\DibParser\DibParser.fsproj]
00:00:05 #14 [verbose] > DibParser -> C:\home\git\polyglot\target\polyglot\builder\DibParser\bin\Release\net9.0\win-x64\DibParser.dll
00:00:09 #15 [verbose] > DibParser -> C:\home\git\polyglot\apps\parser\dist\
00:00:09 #16 [debug] execute_with_options_async / exit_code: 0 / output.Length: 705
── markdown ────────────────────────────────────────────────────────────────────
╭──────────────────────────────────────────────────────────────────────────────╮
│ # JsonParser (Polyglot) │
╰──────────────────────────────────────────────────────────────────────────────╯
── fsharp ──────────────────────────────────────────────────────────────────────
#!import ../../lib/fsharp/Notebooks.dib
#!import ../../lib/fsharp/Testing.dib
── fsharp - import ─────────────────────────────────────────────────────────────
#r
"C:/Users/i574n/.nuget/packages/dotnet-repl/0.1.204/tools/net7.0/any/Microsoft.A
spNetCore.Html.Abstractions.dll"
#r
"C:/Users/i574n/.nuget/packages/dotnet-repl/0.1.204/tools/net7.0/any/Microsoft.D
otNet.Interactive.dll"
#r
"C:/Users/i574n/.nuget/packages/dotnet-repl/0.1.204/tools/net7.0/any/Microsoft.D
otNet.Interactive.FSharp.dll"
#r
"C:/Users/i574n/.nuget/packages/dotnet-repl/0.1.204/tools/net7.0/any/Microsoft.D
otNet.Interactive.Formatting.dll"
open System
open System.IO
open System.Text
open Microsoft.DotNet.Interactive.Formatting
── fsharp - import ─────────────────────────────────────────────────────────────
#r
"C:/Users/i574n/.nuget/packages/dotnet-repl/0.1.204/tools/net7.0/any/Microsoft.D
otNet.Interactive.FSharp.dll"
open Microsoft.DotNet.Interactive.FSharp.FSharpKernelHelpers
#r
"C:/Users/i574n/.nuget/packages/dotnet-repl/0.1.204/tools/net7.0/any/Microsoft.D
otNet.Interactive.dll"
open type Microsoft.DotNet.Interactive.Kernel
── fsharp - import ─────────────────────────────────────────────────────────────
//// test
Formatter.ListExpansionLimit <- 100
── fsharp - import ─────────────────────────────────────────────────────────────
type [[<Struct>]] US0 =
| US0_0
| US0_1
and [[<Struct>]] US1 =
| US1_0 of f0_0 : US0
| US1_1
let rec closure0 () (v0 : (unit -> unit)) : System.IDisposable =
let v1 : System.IDisposable option = None
let mutable _v1 = v1
#if FABLE_COMPILER_RUST && !WASM && !CONTRACT
let v2 : System.IDisposable = null |> unbox<System.IDisposable>
v2
#endif
#if FABLE_COMPILER_RUST && WASM
let v3 : System.IDisposable = null |> unbox<System.IDisposable>
v3
#endif
#if FABLE_COMPILER_RUST && CONTRACT
let v4 : System.IDisposable = null |> unbox<System.IDisposable>
v4
#endif
#if !FABLE_COMPILER && !FABLE_COMPILER_RUST && !FABLE_COMPILER_TYPESCRIPT &&
!WASM && !CONTRACT
let v5 : System.ID...
── fsharp - import ─────────────────────────────────────────────────────────────
type Mut0 = {mutable l0 : int32; mutable l1 : string}
and Mut1 = {mutable l0 : int32}
let rec closure1 (v0 : string) (v1 : string) : bool =
let v2 : bool = v1.Contains v0
v2
and closure0 () (v0 : string) : (string -> bool) =
closure1(v0)
and closure3 (v0 : string) (v1 : string) : bool =
let v2 : bool = v1.EndsWith v0
v2
and closure2 () (v0 : string) : (string -> bool) =
closure3(v0)
and closure6 (v0 : int32, v1 : char) (v2 : string) : string =
let v3 : string = v2.PadLeft (v0, v1)
v3
and closure5 (v0 : int32) (v1 : char) : (string -> string) =
closure6(v0, v1)
and closure4 () (v0 : int32) : (char -> (string -> string)) =
closure5(v0)
and closure8 (v0 : int32) (v1 : string) : string =
let v2 : stri...
── fsharp - import ─────────────────────────────────────────────────────────────
type ICryptoCreateHash = abstract createHash: x: string -> obj
type Mut0 = {mutable l0 : int32}
let rec method0 (v0 : int32, v1 : Mut0) : bool =
let v2 : int32 = v1.l0
let v3 : bool = v2 < v0
v3
and method1 () : string =
let v0 : string = ""
v0
and closure0 () (v0 : string) : string =
let v1 : string option = None
let mutable _v1 = v1
#if FABLE_COMPILER_RUST && !WASM && !CONTRACT
let v2 : string = null |> unbox<string>
v2
#endif
#if FABLE_COMPILER_RUST && WASM
let v3 : string = null |> unbox<string>
v3
#endif
#if FABLE_COMPILER_RUST && CONTRACT
let v4 : string = null |> unbox<string>
v4
#endif
#if !FABLE_COMPILER && !FABLE_COMPILER_RUST && !FABLE_COMPILER_TYP...
── fsharp - import ─────────────────────────────────────────────────────────────
let rec closure1 (v0 : System.Guid) (v1 : System.DateTime) : System.Guid =
let v2 : (System.Guid -> string) = _.ToString()
let v3 : string = v2 v0
let v4 : string = v1.ToString "yyyyMMdd-HHmm-ssff-ffff-f"
let v5 : System.Guid = System.Guid $"{v4}{v3.[[v4.Length..]]}"
v5
and closure0 () (v0 : System.Guid) : (System.DateTime -> System.Guid) =
closure1(v0)
and closure5 (v0 : string, v1 : string) (v2 : string) : string =
let v3 : string = v2.Replace (v0, v1)
v3
and closure4 (v0 : string) (v1 : string) : (string -> string) =
closure5(v0, v1)
and closure3 () (v0 : string) : (string -> (string -> string)) =
closure4(v0)
and method0 () : (string -> (string -> (string -> string))) =
closure3()
and closure2 (...
── fsharp - import ─────────────────────────────────────────────────────────────
let rec closure0 () (v0 : System.Threading.CancellationToken) :
Async<System.Threading.CancellationToken> =
let v1 : Async<System.Threading.CancellationToken> option = None
let mutable _v1 = v1
#if FABLE_COMPILER_RUST && !WASM && !CONTRACT
let v2 : Async<System.Threading.CancellationToken> = null |>
unbox<Async<System.Threading.CancellationToken>>
v2
#endif
#if FABLE_COMPILER_RUST && WASM
let v3 : Async<System.Threading.CancellationToken> = null |>
unbox<Async<System.Threading.CancellationToken>>
v3
#endif
#if FABLE_COMPILER_RUST && CONTRACT
let v4 : Async<System.Threading.CancellationToken> = null |>
unbox<Async<System.Threading.CancellationToken>>
v4
#endif
#if !FABLE_COMPILER...
── fsharp - import ─────────────────────────────────────────────────────────────
#if FABLE_COMPILER
[[<CompilationRepresentation (CompilationRepresentationFlags.ModuleSuffix)>]]
module System =
module Diagnostics =
type Process = unit
type DataReceivedEventArgs = unit
#endif
module State = let mutable trace_state = None
type [[<Struct>]] US0 =
| US0_0
| US0_1
| US0_2
| US0_3
| US0_4
and UH0 =
| UH0_0
| UH0_1 of char * UH0
and [[<Struct>]] US2 =
| US2_0
| US2_1
and [[<Struct>]] US1 =
| US1_0
| US1_1 of f1_0 : US2
| US1_2
and [[<Struct>]] US3 =
| US3_0 of f0_0 : string
| US3_1
and Mut0 = {mutable l0 : int64}
and Mut1 = {mutable l0 : bool}
and Mut2 = {mutable l0 : US0}
and [[<Struct>]] US4 =
| US4_0 of f0_0 : int64
| US4_1
and [[<Struct>]] US5 =
| US5_0 of f0_0 : i...
── fsharp - import ─────────────────────────────────────────────────────────────
#if FABLE_COMPILER // file_system.types
[[<Fable.Core.Erase; Fable.Core.Emit("str")>]] type Str = class end
[[<Fable.Core.Erase; Fable.Core.Emit("base64::DecodeError")>]] type
base64_DecodeError = class end
[[<Fable.Core.Erase; Fable.Core.Emit("borsh::io::Error")>]] type borsh_io_Error
= class end
[[<Fable.Core.Erase; Fable.Core.Emit("js_sys::JsString")>]] type js_sys_JsString
= class end
[[<Fable.Core.Erase; Fable.Core.Emit("serde_json::Error")>]] type
serde_json_Error = class end
[[<Fable.Core.Erase; Fable.Core.Emit("serde_json::Value")>]] type
serde_json_Value = class end
[[<Fable.Core.Erase; Fable.Core.Emit("serde_wasm_bindgen::Error")>]] type
serde_wasm_bindgen_Error = class end
[[<Fable.Core.Erase; Fable.Core.Emit("std::ffi::OsStr")>]] type std_ffi_O...
── fsharp - import ─────────────────────────────────────────────────────────────
module State = let mutable trace_state = None
type [[<Struct>]] US0 =
| US0_0
| US0_1
| US0_2
| US0_3
| US0_4
and Mut0 = {mutable l0 : int64}
and Mut1 = {mutable l0 : bool}
and Mut2 = {mutable l0 : US0}
and [[<Struct>]] US1 =
| US1_0 of f0_0 : int64
| US1_1
and [[<Struct>]] US2 =
| US2_0 of f0_0 : int64
| US2_1
let rec method1 (v0 : int64 option) : int64 option =
v0
and method2 (v0 : int64 option) : int64 option =
v0
and closure3 () () : struct (Mut0 * Mut1 * Mut1 * Mut2 * int64 option) =
let v0 : Mut1 = {l0 = true} : Mut1
let v1 : Mut0 = {l0 = 0L} : Mut0
let v2 : US0 = US0_0
let v3 : Mut2 = {l0 = v2} : Mut2
let v4 : Mut1 = {l0 = false} : Mut1
let v5 : int64 option option = None
...
── fsharp - import ─────────────────────────────────────────────────────────────
module SpiralTrace =
let get_trace_state () =
#if !INTERACTIVE
Trace.get_trace_state ()
#else
get_trace_state ()
#endif
let trace x =
#if !INTERACTIVE
Trace.trace x
#else
trace x
#endif
type TraceLevel =
#if !INTERACTIVE
Trace.US0
#else
US0
#endif
#if !FABLE_COMPILER && !WASM && !CONTRACT
module SpiralAsync =
let merge_cancellation_token_with_default_async x =
#if !INTERACTIVE
Async_.merge_cancellation_token_with_default_async x
#else
merge_cancellation_token_with_default_async x
#endif
module SpiralRuntime =
let get_executable_suffix () =
#if !INTERACTIVE
Runtime.get_executable_suffix ()
#else
get_executable_suffix ()
#endif
let is...
── fsharp - import ─────────────────────────────────────────────────────────────
#r @"../../../../../../../.nuget/packages/expecto/10.2.1/lib/net6.0/Expecto.dll"
── fsharp - import ─────────────────────────────────────────────────────────────
//// test
type AssertExceptionFormatter (ex) =
member _.Text =
ex.ToString()
.Replace("32m", "<span style=\"color: green;\">")
.Replace("36m", "</span>")
.Replace("31m", "<span style=\"color: red;\">")
.Replace("\n", "<br/>\n")
Formatter.Register<AssertExceptionFormatter> ((fun (x :
AssertExceptionFormatter) -> x.Text), "text/html")
── fsharp - import ─────────────────────────────────────────────────────────────
//// test
let inline __expect fn log expected actual =
if log then printfn $"{actual.ToDisplayString ()}"
try
"Testing.__expect" |> fn actual expected
with :? Expecto.AssertException as ex ->
AssertExceptionFormatter(ex).Display () |> ignore
failwith (ex.GetType().FullName)
let inline __contains log expected actual = __expect Expecto.Expect.contains log
expected actual
let inline _contains expected actual = __contains true expected actual
let inline __assertEqual log expected actual = __expect Expecto.Expect.equal log
expected actual
let inline _assertEqual expected actual = __assertEqual true expected actual
let inline __isGreaterThan log expected actual = __expect
Expecto.Expect.isGreaterThan log ex...
── fsharp - import ─────────────────────────────────────────────────────────────
//// test
let inline __isBetween log a b actual =
let inline isBetween actual (a, b) _ =
__isGreaterThanOrEqual log a actual
__isLessThanOrEqual log b actual
__expect isBetween log (a, b) actual
let inline _isBetween a b actual = __isBetween true a b actual
── fsharp ──────────────────────────────────────────────────────────────────────
#!import ../../lib/fsharp/Common.fs
#!import Parser.fs
── fsharp - import ─────────────────────────────────────────────────────────────
#if !INTERACTIVE
namespace Polyglot
#endif
module Common =
#if !INTERACTIVE
open Lib
#endif
let nl = System.Environment.NewLine
let q = @""""
let inline cons head tail = head :: tail
/// ## memoize
let inline memoize fn =
let result = lazy fn ()
fun () -> result.Value
/// ## TraceLevel
type TraceLevel =
| Verbose
| Debug
| Info
| Warning
| Critical
let inline getLocals () = ""
/// ## trace
let to_trace_level = function
| Verbose -> SpiralTrace.TraceLevel.US0_0
| Debug -> SpiralTrace.TraceLevel.US0_1
| Info -> SpiralTrace.TraceLevel.US0_2
| Warning -> SpiralTrace.TraceLevel.US0_3
| Critical ->...
── fsharp - import ─────────────────────────────────────────────────────────────
#if !INTERACTIVE
namespace Polyglot
#endif
module Parser =
open Common
/// ### TextInput
type Position =
{
line : int
column : int
}
let initialPos = { line = 0; column = 0 }
let inline incrCol (pos : Position) =
{ pos with column = pos.column + 1 }
let inline incrLine pos =
{ line = pos.line + 1; column = 0 }
type InputState =
{
lines : string[[]]
position : Position
}
let inline fromStr str =
{
lines =
if str |> String.IsNullOrEmpty
then [[||]]
else str |> SpiralSm.split_string [[| "\r\n"; "\n" |]]
position = initialPos
}
...
── fsharp ──────────────────────────────────────────────────────────────────────
open Common
open Parser
── markdown ────────────────────────────────────────────────────────────────────
╭──────────────────────────────────────────────────────────────────────────────╮
│ ## JsonParser │
╰──────────────────────────────────────────────────────────────────────────────╯
── fsharp ──────────────────────────────────────────────────────────────────────
(*
// --------------------------------
JSON spec from http://www.json.org/
// --------------------------------
The JSON spec is available at [[json.org]](http://www.json.org/). I'll paraphase
it here:
* A `value` can be a `string` or a `number` or a `bool` or `null` or an `object`
or an `array`.
* These structures can be nested.
* A `string` is a sequence of zero or more Unicode characters, wrapped in double
quotes, using backslash escapes.
* A `number` is very much like a C or Java number, except that the octal and
hexadecimal formats are not used.
* A `boolean` is the literal `true` or `false`
* A `null` is the literal `null`
* An `object` is an unordered set of name/value pairs.
* An object begins with { (left brace) and ends with } (right brace).
* Each name is followed by : (colon) and the name/value pairs are separated by
, (comma).
* An `array` is an ordered collection of values.
* An array begins with [[ (left bracket) and ends with ]] (right bracket).
* Values are separated by , (comma).
* Whitespace can be inserted between any pair of tokens.
*)
── fsharp ──────────────────────────────────────────────────────────────────────
//// test
let inline parserEqual (expected : ParseResult<'a>) (actual : ParseResult<'a *
Input>) =
match actual, expected with
| Success (_actual, _), Success _expected ->
printResult actual
_actual |> _assertEqual _expected
| Failure (l1, e1, p1), Failure (l2, e2, p2) when l1 = l2 && e1 = e2 && p1 =
p2 ->
printResult actual
| _ ->
printfn $"Actual: {actual}"
printfn $"Expected: {expected}"
failwith "Parse failed"
actual
── markdown ────────────────────────────────────────────────────────────────────
╭──────────────────────────────────────────────────────────────────────────────╮
│ ### JValue │
╰──────────────────────────────────────────────────────────────────────────────╯
── fsharp ──────────────────────────────────────────────────────────────────────
type JValue =
| JString of string
| JNumber of float
| JBool of bool
| JNull
| JObject of Map<string, JValue>
| JArray of JValue list
── fsharp ──────────────────────────────────────────────────────────────────────
let jValue, jValueRef = createParserForwardedToRef<JValue> ()
── markdown ────────────────────────────────────────────────────────────────────
╭──────────────────────────────────────────────────────────────────────────────╮
│ ### jNull │
╰──────────────────────────────────────────────────────────────────────────────╯
── fsharp ──────────────────────────────────────────────────────────────────────
let jNull =
pstring "null"
>>% JNull
<?> "null"
── fsharp ──────────────────────────────────────────────────────────────────────
//// test
jValueRef <|
choice
[[
jNull
]]
── fsharp ──────────────────────────────────────────────────────────────────────
//// test
run jValue "null"
|> parserEqual (Success JNull)
╭─[ 208.14ms - return value ]──────────────────────────────────────────────────╮
│ <details open="open" class="dni-treeview"><summary><span │
│ class="dni-code-hint"><code>Success (JNull, { lines = [ │
│ |"null"|]<br/> position = { line = 0<br/> │
│ column = 4 } │
│ })</code></span></summary><div><table><thead><tr></tr></thead><tbody><tr><td │
│ >Item</td><td><details class="dni-treeview"><summary><span │
│ class="dni-code-hint"><code>(JNull, { lines = [|"null"|]<br/> │
│ position = { line = 0<br/> column = 4 } │
│ })</code></span></summary><div><table><thead><tr></tr></thead><tbody><tr><td │
│ >Item1</td><td><details class="dni-treeview"><summary><span │
│ class="dni-code-hint"><code>JNull</code></span></summary><div><table><thead> │
│ <tr></tr></thead><tbody><tr><td>IsJString</td><td><d... │
╰──────────────────────────────────────────────────────────────────────────────╯
╭─[ 216.78ms - stdout ]────────────────────────────────────────────────────────╮
│ JNull │
│ JValue │
│ IsJString: False │
│ IsJNumber: False │
│ IsJBool: False │
│ IsJNull: True │
│ IsJObject: False │
│ IsJArray: False │
│ │
╰──────────────────────────────────────────────────────────────────────────────╯
── fsharp ──────────────────────────────────────────────────────────────────────
//// test
run jNull "nulp"
|> parserEqual (
Failure (
"null",
"Unexpected 'p'",
{ currentLine = "nulp"; line = 0; column = 3 }
)
)
╭─[ 45.73ms - return value ]───────────────────────────────────────────────────╮
│ <details open="open" class="dni-treeview"><summary><span │
│ class="dni-code-hint"><code>Failure ("null", "Unexpected │
│ 'p'", { currentLine = "nulp"<br/> │
│ line = 0<br/> column = 3 │
│ })</code></span></summary><div><table><thead><tr></tr></thead><tbody><tr><td │
│ >Item1</td><td><div │
│ class="dni-plaintext"><pre>null</pre></div></td></tr><tr><td>Item2</td><td>< │
│ div class="dni-plaintext"><pre>Unexpected │
│ 'p'</pre></div></td></tr><tr><td>Item3</td><td><details │
│ class="dni-treeview"><summary><span class="dni-code-hint"><code>{ │
│ currentLine = "nulp"<br/> line = 0<br/> column = 3 │
│ }</code></span></summary><div><table><thead><tr></tr></thead... │
╰──────────────────────────────────────────────────────────────────────────────╯
╭─[ 51.81ms - stdout ]─────────────────────────────────────────────────────────╮
│ Line:0 Col:3 Error parsing null │
│ nulp │
│ ^Unexpected 'p' │
│ │
╰──────────────────────────────────────────────────────────────────────────────╯
── markdown ────────────────────────────────────────────────────────────────────
╭──────────────────────────────────────────────────────────────────────────────╮
│ ### jBool │
╰──────────────────────────────────────────────────────────────────────────────╯
── fsharp ──────────────────────────────────────────────────────────────────────
let jBool =
let jtrue =
pstring "true"
>>% JBool true
let jfalse =
pstring "false"
>>% JBool false
jtrue <|> jfalse
<?> "bool"
── fsharp ──────────────────────────────────────────────────────────────────────
//// test
jValueRef <|
choice
[[
jNull
jBool
]]
── fsharp ──────────────────────────────────────────────────────────────────────
//// test
run jBool "true"
|> parserEqual (Success (JBool true))
╭─[ 48.21ms - return value ]───────────────────────────────────────────────────╮
│ <details open="open" class="dni-treeview"><summary><span │
│ class="dni-code-hint"><code>Success (JBool true, { lines = [ │
│ |"true"|]<br/> position = { line = 0<br/> │
│ column = 4 } │
│ })</code></span></summary><div><table><thead><tr></tr></thead><tbody><tr><td │
│ >Item</td><td><details class="dni-treeview"><summary><span │
│ class="dni-code-hint"><code>(JBool true, { lines = [|"true"|]<br/> │
│ position = { line = 0<br/> column = 4 } │
│ })</code></span></summary><div><table><thead><tr></tr></thead><tbody><tr><td │
│ >Item1</td><td><details class="dni-treeview"><summary><span │
│ class="dni-code-hint"><code>JBool │
│ true</code></span></summary><div><table><thead><tr></tr></thead><tbody><tr.. │
│ . │
╰──────────────────────────────────────────────────────────────────────────────╯
╭─[ 55.45ms - stdout ]─────────────────────────────────────────────────────────╮
│ JBool true │
│ JBool │
│ Item: True │
│ IsJString: False │
│ IsJNumber: False │
│ IsJBool: True │
│ IsJNull: False │
│ IsJObject: False │
│ IsJArray: False │
│ │
╰──────────────────────────────────────────────────────────────────────────────╯
── fsharp ──────────────────────────────────────────────────────────────────────
//// test
run jBool "false"
|> parserEqual (Success (JBool false))
╭─[ 35.77ms - return value ]───────────────────────────────────────────────────╮
│ <details open="open" class="dni-treeview"><summary><span │
│ class="dni-code-hint"><code>Success (JBool false, { lines = [ │
│ |"false"|]<br/> position = { line = 0<br/> │
│ column = 5 } │
│ })</code></span></summary><div><table><thead><tr></tr></thead><tbody><tr><td │
│ >Item</td><td><details class="dni-treeview"><summary><span │
│ class="dni-code-hint"><code>(JBool false, { lines = [ │
│ |"false"|]<br/> position = { line = 0<br/> column = │
│ 5 } │
│ })</code></span></summary><div><table><thead><tr></tr></thead><tbody><tr><td │
│ >Item1</td><td><details class="dni-treeview"><summary><span │
│ class="dni-code-hint"><code>JBool │
│ false</code></span></summary><div><table><thead><tr></tr></thead><tb... │
╰──────────────────────────────────────────────────────────────────────────────╯
╭─[ 52.72ms - stdout ]─────────────────────────────────────────────────────────╮
│ JBool false │
│ JBool │
│ Item: False │
│ IsJString: False │
│ IsJNumber: False │
│ IsJBool: True │
│ IsJNull: False │
│ IsJObject: False │
│ IsJArray: False │
│ │
╰──────────────────────────────────────────────────────────────────────────────╯
── fsharp ──────────────────────────────────────────────────────────────────────
//// test
run jBool "truX"
|> parserEqual (
Failure (
"bool",
"Unexpected 't'",
{ currentLine = "truX"; line = 0; column = 0 }
)
)
╭─[ 24.56ms - return value ]───────────────────────────────────────────────────╮
│ <details open="open" class="dni-treeview"><summary><span │
│ class="dni-code-hint"><code>Failure ("bool", "Unexpected │
│ 't'", { currentLine = "truX"<br/> │
│ line = 0<br/> column = 0 │
│ })</code></span></summary><div><table><thead><tr></tr></thead><tbody><tr><td │
│ >Item1</td><td><div │
│ class="dni-plaintext"><pre>bool</pre></div></td></tr><tr><td>Item2</td><td>< │
│ div class="dni-plaintext"><pre>Unexpected │
│ 't'</pre></div></td></tr><tr><td>Item3</td><td><details │
│ class="dni-treeview"><summary><span class="dni-code-hint"><code>{ │
│ currentLine = "truX"<br/> line = 0<br/> column = 0 │
│ }</code></span></summary><div><table><thead><tr></tr></thead... │
╰──────────────────────────────────────────────────────────────────────────────╯
╭─[ 30.94ms - stdout ]─────────────────────────────────────────────────────────╮
│ Line:0 Col:0 Error parsing bool │
│ truX │
│ ^Unexpected 't' │
│ │
╰──────────────────────────────────────────────────────────────────────────────╯
── markdown ────────────────────────────────────────────────────────────────────
╭──────────────────────────────────────────────────────────────────────────────╮
│ ### jUnescapedChar │
╰──────────────────────────────────────────────────────────────────────────────╯
── fsharp ──────────────────────────────────────────────────────────────────────
let jUnescapedChar =
satisfy (fun ch -> ch <> '\\' && ch <> '\"') "char"
── fsharp ──────────────────────────────────────────────────────────────────────
//// test
run jUnescapedChar "a"
|> parserEqual (Success 'a')
╭─[ 50.78ms - return value ]───────────────────────────────────────────────────╮
│ <details open="open" class="dni-treeview"><summary><span │
│ class="dni-code-hint"><code>Success ('a', { lines = [ │
│ |"a"|]<br/> position = { line = 0<br/> │
│ column = 1 } │
│ })</code></span></summary><div><table><thead><tr></tr></thead><tbody><tr><td │
│ >Item</td><td><details class="dni-treeview"><summary><span │
│ class="dni-code-hint"><code>(a, { lines = [|"a"|]<br/> position = │
│ { line = 0<br/> column = 1 } │
│ })</code></span></summary><div><table><thead><tr></tr></thead><tbody><tr><td │
│ >Item1</td><td><div │
│ class="dni-plaintext"><pre>a</pre></div></td></tr><tr><td>Item2</td><td><det │
│ ails class="dni-treeview"><summary><span class="dni-code-hint"><code>{ lines │
│ = [|"a"|]<br/... │
╰──────────────────────────────────────────────────────────────────────────────╯
╭─[ 57.67ms - stdout ]─────────────────────────────────────────────────────────╮
│ 'a' │
│ a │
│ │
╰──────────────────────────────────────────────────────────────────────────────╯
── fsharp ──────────────────────────────────────────────────────────────────────
//// test
run jUnescapedChar "\\"
|> parserEqual (
Failure (
"char",
"Unexpected '\\'",
{ currentLine = "\\"; line = 0; column = 0 }
)
)
╭─[ 33.99ms - return value ]───────────────────────────────────────────────────╮
│ <details open="open" class="dni-treeview"><summary><span │
│ class="dni-code-hint"><code>Failure ("char", "Unexpected │
│ '\'", { currentLine = "\"<br/> │
│ line = 0<br/> column = 0 │
│ })</code></span></summary><div><table><thead><tr></tr></thead><tbody><tr><td │
│ >Item1</td><td><div │
│ class="dni-plaintext"><pre>char</pre></div></td></tr><tr><td>Item2</td><td>< │
│ div class="dni-plaintext"><pre>Unexpected │
│ '\'</pre></div></td></tr><tr><td>Item3</td><td><details │
│ class="dni-treeview"><summary><span class="dni-code-hint"><code>{ │
│ currentLine = "\"<br/> line = 0<br/> column = 0 │
│ }</code></span></summary><div><table><thead><tr></tr></thead><tbod... │
╰──────────────────────────────────────────────────────────────────────────────╯
╭─[ 41.12ms - stdout ]─────────────────────────────────────────────────────────╮
│ Line:0 Col:0 Error parsing char │
│ \ │
│ ^Unexpected '\' │
│ │
╰──────────────────────────────────────────────────────────────────────────────╯
── markdown ────────────────────────────────────────────────────────────────────
╭──────────────────────────────────────────────────────────────────────────────╮
│ ### jEscapedChar │
╰──────────────────────────────────────────────────────────────────────────────╯
── fsharp ──────────────────────────────────────────────────────────────────────
let jEscapedChar =
[[
("\\\"",'\"')
("\\\\",'\\')
("\\/",'/')
("\\b",'\b')
("\\f",'\f')
("\\n",'\n')
("\\r",'\r')
("\\t",'\t')
]]
|> List.map (fun (toMatch, result) ->
pstring toMatch >>% result
)
|> choice
<?> "escaped char"
── fsharp ──────────────────────────────────────────────────────────────────────
//// test
run jEscapedChar "\\\\"
|> parserEqual (Success '\\')
╭─[ 33.78ms - return value ]───────────────────────────────────────────────────╮
│ <details open="open" class="dni-treeview"><summary><span │
│ class="dni-code-hint"><code>Success ('\\', { lines = [ │
│ |"\\"|]<br/> position = { line = 0<br/> │
│ column = 2 } │
│ })</code></span></summary><div><table><thead><tr></tr></thead><tbody><tr><td │
│ >Item</td><td><details class="dni-treeview"><summary><span │
│ class="dni-code-hint"><code>(\, { lines = [|"\\"|]<br/> position │
│ = { line = 0<br/> column = 2 } │
│ })</code></span></summary><div><table><thead><tr></tr></thead><tbody><tr><td │
│ >Item1</td><td><div │
│ class="dni-plaintext"><pre>\</pre></div></td></tr><tr><td>Item2</td><td><det │
│ ails class="dni-treeview"><summary><span class="dni-code-hint"><code>{ lines │
│ = [|"\\"... │
╰──────────────────────────────────────────────────────────────────────────────╯
╭─[ 40.53ms - stdout ]─────────────────────────────────────────────────────────╮
│ '\\' │
│ \ │
│ │
╰──────────────────────────────────────────────────────────────────────────────╯
── fsharp ──────────────────────────────────────────────────────────────────────
//// test
run jEscapedChar "\\t"
|> parserEqual (Success '\t')
╭─[ 32.74ms - return value ]───────────────────────────────────────────────────╮
│ <details open="open" class="dni-treeview"><summary><span │
│ class="dni-code-hint"><code>Success ('\009', { lines = [ │
│ |"\t"|]<br/> position = { line = 0<br/> │
│ column = 2 } │
│ })</code></span></summary><div><table><thead><tr></tr></thead><tbody><tr><td │
│ >Item</td><td><details class="dni-treeview"><summary><span │
│ class="dni-code-hint"><code>( , { lines = [|"\t"|]<br/> position = │
│ { line = 0<br/> column = 2 } │
│ })</code></span></summary><div><table><thead><tr></tr></thead><tbody><tr><td │
│ >Item1</td><td><div class="dni-plaintext"><pre> │
│ </pre></div></td></tr><tr><td>Item2</td><td><details │
│ class="dni-treeview"><summary><span class="dni-code-hint"><code>{ lines = [ │
│ |"\t... │
╰──────────────────────────────────────────────────────────────────────────────╯
╭─[ 40.15ms - stdout ]─────────────────────────────────────────────────────────╮
│ '\009' │
│ │
│ │
╰──────────────────────────────────────────────────────────────────────────────╯
── fsharp ──────────────────────────────────────────────────────────────────────
//// test
run jEscapedChar @"\\"
|> parserEqual (Success '\\')
╭─[ 34.99ms - return value ]───────────────────────────────────────────────────╮
│ <details open="open" class="dni-treeview"><summary><span │
│ class="dni-code-hint"><code>Success ('\\', { lines = [ │
│ |"\\"|]<br/> position = { line = 0<br/> │
│ column = 2 } │
│ })</code></span></summary><div><table><thead><tr></tr></thead><tbody><tr><td │
│ >Item</td><td><details class="dni-treeview"><summary><span │
│ class="dni-code-hint"><code>(\, { lines = [|"\\"|]<br/> position │
│ = { line = 0<br/> column = 2 } │
│ })</code></span></summary><div><table><thead><tr></tr></thead><tbody><tr><td │
│ >Item1</td><td><div │
│ class="dni-plaintext"><pre>\</pre></div></td></tr><tr><td>Item2</td><td><det │
│ ails class="dni-treeview"><summary><span class="dni-code-hint"><code>{ lines │
│ = [|"\\"... │
╰──────────────────────────────────────────────────────────────────────────────╯
╭─[ 41.18ms - stdout ]─────────────────────────────────────────────────────────╮
│ '\\' │
│ \ │
│ │
╰──────────────────────────────────────────────────────────────────────────────╯
── fsharp ──────────────────────────────────────────────────────────────────────
//// test
run jEscapedChar @"\n"
|> parserEqual (Success '\n')
╭─[ 31.03ms - return value ]───────────────────────────────────────────────────╮
│ <details open="open" class="dni-treeview"><summary><span │
│ class="dni-code-hint"><code>Success ('\010', { lines = [ │
│ |"<br/>"|]<br/> position = { line = 0<br/> │
│ column = 2 } │
│ })</code></span></summary><div><table><thead><tr></tr></thead><tbody><tr><td │
│ >Item</td><td><details class="dni-treeview"><summary><span │
│ class="dni-code-hint"><code>(<br/>, { lines = [|"<br/>"|]<br/> │
│ position = { line = 0<br/> column = 2 } │
│ })</code></span></summary><div><table><thead><tr></tr></thead><tbody><tr><td │
│ >Item1</td><td><div class="dni-plaintext"><pre> │
│ </pre></div></td></tr><tr><td>Item2</td><td><details │
│ class="dni-treeview"><summary><span class="dni-code-hint"><code>{ lines = │
│ ... │
╰──────────────────────────────────────────────────────────────────────────────╯
╭─[ 37.60ms - stdout ]─────────────────────────────────────────────────────────╮
│ '\010' │
│ │
│ │
│ │
╰──────────────────────────────────────────────────────────────────────────────╯
── fsharp ──────────────────────────────────────────────────────────────────────
//// test
run jEscapedChar "a"
|> parserEqual (
Failure (
"escaped char",
"Unexpected 'a'",
{ currentLine = "a"; line = 0; column = 0 }
)
)
╭─[ 28.04ms - return value ]───────────────────────────────────────────────────╮
│ <details open="open" class="dni-treeview"><summary><span │
│ class="dni-code-hint"><code>Failure ("escaped char", │
│ "Unexpected 'a'", { currentLine = "a"<br/> │
│ line = 0<br/> column = 0 │
│ })</code></span></summary><div><table><thead><tr></tr></thead><tbody><tr><td │
│ >Item1</td><td><div class="dni-plaintext"><pre>escaped │
│ char</pre></div></td></tr><tr><td>Item2</td><td><div │
│ class="dni-plaintext"><pre>Unexpected │
│ 'a'</pre></div></td></tr><tr><td>Item3</td><td><details │
│ class="dni-treeview"><summary><span class="dni-code-hint"><code>{ │
│ currentLine = "a"<br/> line = 0<br/> column = 0 │
│ }</code></span></summary><div><tab... │
╰──────────────────────────────────────────────────────────────────────────────╯
╭─[ 34.54ms - stdout ]─────────────────────────────────────────────────────────╮
│ Line:0 Col:0 Error parsing escaped char │
│ a │
│ ^Unexpected 'a' │
│ │
╰──────────────────────────────────────────────────────────────────────────────╯
── markdown ────────────────────────────────────────────────────────────────────
╭──────────────────────────────────────────────────────────────────────────────╮
│ ### jUnicodeChar │
╰──────────────────────────────────────────────────────────────────────────────╯
── fsharp ──────────────────────────────────────────────────────────────────────
let jUnicodeChar =
let backslash = pchar '\\'
let uChar = pchar 'u'
let hexdigit = anyOf ([[ '0' .. '9' ]] @ [[ 'A' .. 'F' ]] @ [[ 'a' .. 'f'
]])
let fourHexDigits = hexdigit .>>. hexdigit .>>. hexdigit .>>. hexdigit
let inline convertToChar (((h1, h2), h3), h4) =
let str = $"%c{h1}%c{h2}%c{h3}%c{h4}"
Int32.Parse (str, Globalization.NumberStyles.HexNumber) |> char
backslash >>. uChar >>. fourHexDigits
|>> convertToChar
── fsharp ──────────────────────────────────────────────────────────────────────
//// test
run jUnicodeChar "\\u263A"
|> parserEqual (Success '☺')
╭─[ 51.77ms - return value ]───────────────────────────────────────────────────╮
│ <details open="open" class="dni-treeview"><summary><span │
│ class="dni-code-hint"><code>Success ('☺', { lines = [ │
│ |"\u263A"|]<br/> position = { line = 0<br/> │
│ column = 6 } │
│ })</code></span></summary><div><table><thead><tr></tr></thead><tbody><tr><td │
│ >Item</td><td><details class="dni-treeview"><summary><span │
│ class="dni-code-hint"><code>(☺, { lines = [|"\u263A"|]<br/> │
│ position = { line = 0<br/> column = 6 } │
│ })</code></span></summary><div><table><thead><tr></tr></thead><tbody><tr><td │
│ >Item1</td><td><div │
│ class="dni-plaintext"><pre>☺</pre></div></td></tr><tr><td>Item2</td><td><det │
│ ails class="dni-treeview"><summary><span class="dni-code-hint"><code>{ lines │
│ = [|"\u2... │
╰──────────────────────────────────────────────────────────────────────────────╯
╭─[ 58.32ms - stdout ]─────────────────────────────────────────────────────────╮
│ '☺' │
│ ☺ │
│ │
╰──────────────────────────────────────────────────────────────────────────────╯
── markdown ────────────────────────────────────────────────────────────────────
╭──────────────────────────────────────────────────────────────────────────────╮
│ ### jString │
╰──────────────────────────────────────────────────────────────────────────────╯
── fsharp ──────────────────────────────────────────────────────────────────────
let quotedString =
let quote = pchar '\"' <?> "quote"
let jchar = jUnescapedChar <|> jEscapedChar <|> jUnicodeChar
quote >>. manyChars jchar .>> quote
── fsharp ──────────────────────────────────────────────────────────────────────
let jString =
quotedString
|>> JString
<?> "quoted string"
── fsharp ──────────────────────────────────────────────────────────────────────
//// test
jValueRef <|
choice
[[
jNull
jBool
jString
]]
── fsharp ──────────────────────────────────────────────────────────────────────
//// test
run jString "\"\""
|> parserEqual (Success (JString ""))
╭─[ 48.01ms - return value ]───────────────────────────────────────────────────╮
│ <details open="open" class="dni-treeview"><summary><span │
│ class="dni-code-hint"><code>Success (JString "", { lines = [ │
│ |""""|]<br/> position = { line = │
│ 0<br/> column = 2 } │
│ })</code></span></summary><div><table><thead><tr></tr></thead><tbody><tr><td │
│ >Item</td><td><details class="dni-treeview"><summary><span │
│ class="dni-code-hint"><code>(JString "", { lines = [ │
│ |""""|]<br/> position = { line = 0<br/> │
│ column = 2 } │
│ })</code></span></summary><div><table><thead><tr></tr></thead><tbody><tr><td │
│ >Item1</td><td><details class="dni-treeview"><summary><span │
│ class="dni-code-hint"><code>JString ""</code></span></summary>... │
╰──────────────────────────────────────────────────────────────────────────────╯
╭─[ 54.60ms - stdout ]─────────────────────────────────────────────────────────╮
│ JString "" │
│ JString │
│ Item: │
│ IsJString: True │
│ IsJNumber: False │
│ IsJBool: False │
│ IsJNull: False │
│ IsJObject: False │
│ IsJArray: False │
│ │
╰──────────────────────────────────────────────────────────────────────────────╯
── fsharp ──────────────────────────────────────────────────────────────────────
//// test
run jString "\"a\""
|> parserEqual (Success (JString "a"))
╭─[ 34.68ms - return value ]───────────────────────────────────────────────────╮
│ <details open="open" class="dni-treeview"><summary><span │
│ class="dni-code-hint"><code>Success (JString "a", { lines = [ │
│ |""a""|]<br/> position = { line = │
│ 0<br/> column = 3 } │
│ })</code></span></summary><div><table><thead><tr></tr></thead><tbody><tr><td │
│ >Item</td><td><details class="dni-treeview"><summary><span │
│ class="dni-code-hint"><code>(JString "a", { lines = [ │
│ |""a""|]<br/> position = { line = 0<br/> │
│ column = 3 } │
│ })</code></span></summary><div><table><thead><tr></tr></thead><tbody><tr><td │
│ >Item1</td><td><details class="dni-treeview"><summary><span │
│ class="dni-code-hint"><code>JString "a"</code></span></s... │
╰──────────────────────────────────────────────────────────────────────────────╯
╭─[ 40.83ms - stdout ]─────────────────────────────────────────────────────────╮
│ JString "a" │
│ JString │
│ Item: a │
│ IsJString: True │
│ IsJNumber: False │
│ IsJBool: False │
│ IsJNull: False │
│ IsJObject: False │
│ IsJArray: False │
│ │
╰──────────────────────────────────────────────────────────────────────────────╯
── fsharp ──────────────────────────────────────────────────────────────────────
//// test
run jString "\"ab\""
|> parserEqual (Success (JString "ab"))
╭─[ 35.27ms - return value ]───────────────────────────────────────────────────╮
│ <details open="open" class="dni-treeview"><summary><span │
│ class="dni-code-hint"><code>Success (JString "ab", { lines = [ │
│ |""ab""|]<br/> position = { line │
│ = 0<br/> column = 4 } │
│ })</code></span></summary><div><table><thead><tr></tr></thead><tbody><tr><td │
│ >Item</td><td><details class="dni-treeview"><summary><span │
│ class="dni-code-hint"><code>(JString "ab", { lines = [ │
│ |""ab""|]<br/> position = { line = 0<br/> │
│ column = 4 } │
│ })</code></span></summary><div><table><thead><tr></tr></thead><tbody><tr><td │
│ >Item1</td><td><details class="dni-treeview"><summary><span │
│ class="dni-code-hint"><code>JString "ab"</code></s... │
╰──────────────────────────────────────────────────────────────────────────────╯
╭─[ 41.26ms - stdout ]─────────────────────────────────────────────────────────╮
│ JString "ab" │
│ JString │
│ Item: ab │
│ IsJString: True │
│ IsJNumber: False │
│ IsJBool: False │
│ IsJNull: False │
│ IsJObject: False │
│ IsJArray: False │
│ │
╰──────────────────────────────────────────────────────────────────────────────╯
── fsharp ──────────────────────────────────────────────────────────────────────
//// test
run jString "\"ab\\tde\""
|> parserEqual (Success (JString "ab\tde"))
╭─[ 35.62ms - return value ]───────────────────────────────────────────────────╮
│ <details open="open" class="dni-treeview"><summary><span │
│ class="dni-code-hint"><code>Success (JString "ab de", { lines = [ │
│ |""ab\tde""|]<br/> position = │
│ { line = 0<br/> column = 8 } │
│ })</code></span></summary><div><table><thead><tr></tr></thead><tbody><tr><td │
│ >Item</td><td><details class="dni-treeview"><summary><span │
│ class="dni-code-hint"><code>(JString "ab de", { lines = [ │
│ |""ab\tde""|]<br/> position = { line = 0<br/> │
│ column = 8 } │
│ })</code></span></summary><div><table><thead><tr></tr></thead><tbody><tr><td │
│ >Item1</td><td><details class="dni-treeview"><summary><span │
│ class="dni-code-hint"><code>JString &quo... │
╰──────────────────────────────────────────────────────────────────────────────╯
╭─[ 42.71ms - stdout ]─────────────────────────────────────────────────────────╮
│ JString "ab de" │
│ JString │
│ Item: ab de │
│ IsJString: True │
│ IsJNumber: False │
│ IsJBool: False │
│ IsJNull: False │
│ IsJObject: False │
│ IsJArray: False │
│ │
╰──────────────────────────────────────────────────────────────────────────────╯
── fsharp ──────────────────────────────────────────────────────────────────────
//// test
run jString "\"ab\\u263Ade\""
|> parserEqual (Success (JString "ab☺de"))
╭─[ 37.75ms - return value ]───────────────────────────────────────────────────╮
│ <details open="open" class="dni-treeview"><summary><span │
│ class="dni-code-hint"><code>Success (JString "ab☺de", { lines = [ │
│ |""ab\u263Ade""|]<br/> │
│ position = { line = 0<br/> column = │
│ 12 } │
│ })</code></span></summary><div><table><thead><tr></tr></thead><tbody><tr><td │
│ >Item</td><td><details class="dni-treeview"><summary><span │
│ class="dni-code-hint"><code>(JString "ab☺de", { lines = [ │
│ |""ab\u263Ade""|]<br/> position = { line = 0<br/> │
│ column = 12 } │
│ })</code></span></summary><div><table><thead><tr></tr></thead><tbody><tr><td │
│ >Item1</td><td><details class="dni-treeview"><summary><span │
│ class="dni-code-hint"><code>JS... │
╰──────────────────────────────────────────────────────────────────────────────╯
╭─[ 43.98ms - stdout ]─────────────────────────────────────────────────────────╮
│ JString "ab☺de" │
│ JString │
│ Item: ab☺de │
│ IsJString: True │
│ IsJNumber: False │
│ IsJBool: False │
│ IsJNull: False │
│ IsJObject: False │
│ IsJArray: False │
│ │
╰──────────────────────────────────────────────────────────────────────────────╯
── markdown ────────────────────────────────────────────────────────────────────
╭──────────────────────────────────────────────────────────────────────────────╮
│ ### jNumber │
╰──────────────────────────────────────────────────────────────────────────────╯
── fsharp ──────────────────────────────────────────────────────────────────────
let jNumber =
let optSign = opt (pchar '-')
let zero = pstring "0"
let digitOneNine =
satisfy (fun ch -> Char.IsDigit ch && ch <> '0') "1-9"
let digit =
satisfy Char.IsDigit "digit"
let point = pchar '.'
let e = pchar 'e' <|> pchar 'E'
let optPlusMinus = opt (pchar '-' <|> pchar '+')
let nonZeroInt =
digitOneNine .>>. manyChars digit
|>> fun (first, rest) -> string first + rest
let intPart = zero <|> nonZeroInt
let fractionPart = point >>. manyChars1 digit
let exponentPart = e >>. optPlusMinus .>>. manyChars1 digit
let inline (|>?) opt f =
match opt with
| None -> ""
| Some x -> f x
let inline convertToJNumber (((optSign, intPart), fractionPart), expPart) =
let signStr =
optSign
|>? string
let fractionPartStr =
fractionPart
|>? (fun digits -> "." + digits)
let expPartStr =
expPart
|>? fun (optSign, digits) ->
let sign = optSign |>? string
"e" + sign + digits
(signStr + intPart + fractionPartStr + expPartStr)
|> float
|> JNumber
optSign .>>. intPart .>>. opt fractionPart .>>. opt exponentPart
|>> convertToJNumber
<?> "number"
── fsharp ──────────────────────────────────────────────────────────────────────
//// test
jValueRef <|
choice
[[
jNull
jBool
jString
jNumber
]]
── fsharp ──────────────────────────────────────────────────────────────────────
//// test
run jNumber "123"
|> parserEqual (Success (JNumber 123.0))
╭─[ 53.77ms - return value ]───────────────────────────────────────────────────╮
│ <details open="open" class="dni-treeview"><summary><span │
│ class="dni-code-hint"><code>Success (JNumber 123.0, { lines = [ │
│ |"123"|]<br/> position = { line = 0<br/> │
│ column = 3 } │
│ })</code></span></summary><div><table><thead><tr></tr></thead><tbody><tr><td │
│ >Item</td><td><details class="dni-treeview"><summary><span │
│ class="dni-code-hint"><code>(JNumber 123.0, { lines = [ │
│ |"123"|]<br/> position = { line = 0<br/> column = 3 │
│ } │
│ })</code></span></summary><div><table><thead><tr></tr></thead><tbody><tr><td │
│ >Item1</td><td><details class="dni-treeview"><summary><span │
│ class="dni-code-hint"><code>JNumber │
│ 123.0</code></span></summary><div><table><thead><tr></tr></the... │
╰──────────────────────────────────────────────────────────────────────────────╯
╭─[ 59.77ms - stdout ]─────────────────────────────────────────────────────────╮
│ JNumber 123.0 │
│ JNumber │
│ Item: 123 │
│ IsJString: False │
│ IsJNumber: True │
│ IsJBool: False │
│ IsJNull: False │
│ IsJObject: False │
│ IsJArray: False │
│ │
╰──────────────────────────────────────────────────────────────────────────────╯
── fsharp ──────────────────────────────────────────────────────────────────────
//// test
run jNumber "-123"
|> parserEqual (Success (JNumber -123.0))
╭─[ 45.96ms - return value ]───────────────────────────────────────────────────╮
│ <details open="open" class="dni-treeview"><summary><span │
│ class="dni-code-hint"><code>Success (JNumber -123.0, { lines = [ │
│ |"-123"|]<br/> position = { line = │
│ 0<br/> column = 4 } │
│ })</code></span></summary><div><table><thead><tr></tr></thead><tbody><tr><td │
│ >Item</td><td><details class="dni-treeview"><summary><span │
│ class="dni-code-hint"><code>(JNumber -123.0, { lines = [ │
│ |"-123"|]<br/> position = { line = 0<br/> column = │
│ 4 } │
│ })</code></span></summary><div><table><thead><tr></tr></thead><tbody><tr><td │
│ >Item1</td><td><details class="dni-treeview"><summary><span │
│ class="dni-code-hint"><code>JNumber │
│ -123.0</code></span></summary><div><table><thead><tr></t... │
╰──────────────────────────────────────────────────────────────────────────────╯
╭─[ 52.38ms - stdout ]─────────────────────────────────────────────────────────╮
│ JNumber -123.0 │
│ JNumber │
│ Item: -123 │
│ IsJString: False │
│ IsJNumber: True │
│ IsJBool: False │
│ IsJNull: False │
│ IsJObject: False │
│ IsJArray: False │
│ │
╰──────────────────────────────────────────────────────────────────────────────╯
── fsharp ──────────────────────────────────────────────────────────────────────
//// test
run jNumber "123.4"
|> parserEqual (Success (JNumber 123.4))
╭─[ 70.01ms - return value ]───────────────────────────────────────────────────╮
│ <details open="open" class="dni-treeview"><summary><span │
│ class="dni-code-hint"><code>Success (JNumber 123.4, { lines = [ │
│ |"123.4"|]<br/> position = { line = │
│ 0<br/> column = 5 } │
│ })</code></span></summary><div><table><thead><tr></tr></thead><tbody><tr><td │
│ >Item</td><td><details class="dni-treeview"><summary><span │
│ class="dni-code-hint"><code>(JNumber 123.4, { lines = [ │
│ |"123.4"|]<br/> position = { line = 0<br/> column = │
│ 5 } │
│ })</code></span></summary><div><table><thead><tr></tr></thead><tbody><tr><td │
│ >Item1</td><td><details class="dni-treeview"><summary><span │
│ class="dni-code-hint"><code>JNumber │
│ 123.4</code></span></summary><div><table><thead><tr></tr><... │
╰──────────────────────────────────────────────────────────────────────────────╯
╭─[ 99.62ms - stdout ]─────────────────────────────────────────────────────────╮
│ JNumber 123.4 │
│ JNumber │
│ Item: 123.4 │
│ IsJString: False │
│ IsJNumber: True │
│ IsJBool: False │
│ IsJNull: False │
│ IsJObject: False │
│ IsJArray: False │
│ │
╰──────────────────────────────────────────────────────────────────────────────╯
── fsharp ──────────────────────────────────────────────────────────────────────
//// test
run jNumber "-123."
|> parserEqual (Success (JNumber -123.0))
╭─[ 64.53ms - return value ]───────────────────────────────────────────────────╮
│ <details open="open" class="dni-treeview"><summary><span │
│ class="dni-code-hint"><code>Success (JNumber -123.0, { lines = [ │
│ |"-123."|]<br/> position = { line = │
│ 0<br/> column = 4 } │
│ })</code></span></summary><div><table><thead><tr></tr></thead><tbody><tr><td │
│ >Item</td><td><details class="dni-treeview"><summary><span │
│ class="dni-code-hint"><code>(JNumber -123.0, { lines = [ │
│ |"-123."|]<br/> position = { line = 0<br/> column = │
│ 4 } │
│ })</code></span></summary><div><table><thead><tr></tr></thead><tbody><tr><td │
│ >Item1</td><td><details class="dni-treeview"><summary><span │
│ class="dni-code-hint"><code>JNumber │
│ -123.0</code></span></summary><div><table><thead><tr><... │
╰──────────────────────────────────────────────────────────────────────────────╯
╭─[ 74.60ms - stdout ]─────────────────────────────────────────────────────────╮
│ JNumber -123.0 │
│ JNumber │
│ Item: -123 │
│ IsJString: False │
│ IsJNumber: True │
│ IsJBool: False │
│ IsJNull: False │
│ IsJObject: False │
│ IsJArray: False │
│ │
╰──────────────────────────────────────────────────────────────────────────────╯
── fsharp ──────────────────────────────────────────────────────────────────────
//// test
run jNumber "00.1"
|> parserEqual (Success (JNumber 0.0))
╭─[ 45.77ms - return value ]───────────────────────────────────────────────────╮
│ <details open="open" class="dni-treeview"><summary><span │
│ class="dni-code-hint"><code>Success (JNumber 0.0, { lines = [ │
│ |"00.1"|]<br/> position = { line = 0<br/> │
│ column = 1 } │
│ })</code></span></summary><div><table><thead><tr></tr></thead><tbody><tr><td │
│ >Item</td><td><details class="dni-treeview"><summary><span │
│ class="dni-code-hint"><code>(JNumber 0.0, { lines = [ │
│ |"00.1"|]<br/> position = { line = 0<br/> column = │
│ 1 } │
│ })</code></span></summary><div><table><thead><tr></tr></thead><tbody><tr><td │
│ >Item1</td><td><details class="dni-treeview"><summary><span │
│ class="dni-code-hint"><code>JNumber │
│ 0.0</code></span></summary><div><table><thead><tr></tr></thead><tbod... │
╰──────────────────────────────────────────────────────────────────────────────╯
╭─[ 53.47ms - stdout ]─────────────────────────────────────────────────────────╮
│ JNumber 0.0 │
│ JNumber │
│ Item: 0 │
│ IsJString: False │
│ IsJNumber: True │
│ IsJBool: False │
│ IsJNull: False │
│ IsJObject: False │
│ IsJArray: False │
│ │
╰──────────────────────────────────────────────────────────────────────────────╯
── fsharp ──────────────────────────────────────────────────────────────────────
//// test
let jNumber_ = jNumber .>> spaces1
── fsharp ──────────────────────────────────────────────────────────────────────
//// test
run jNumber_ "123"
|> parserEqual (Success (JNumber 123.0))
╭─[ 39.39ms - return value ]───────────────────────────────────────────────────╮
│ <details open="open" class="dni-treeview"><summary><span │
│ class="dni-code-hint"><code>Success (JNumber 123.0, { lines = [ │
│ |"123"|]<br/> position = { line = 1<br/> │
│ column = 0 } │
│ })</code></span></summary><div><table><thead><tr></tr></thead><tbody><tr><td │
│ >Item</td><td><details class="dni-treeview"><summary><span │
│ class="dni-code-hint"><code>(JNumber 123.0, { lines = [ │
│ |"123"|]<br/> position = { line = 1<br/> column = 0 │
│ } │
│ })</code></span></summary><div><table><thead><tr></tr></thead><tbody><tr><td │
│ >Item1</td><td><details class="dni-treeview"><summary><span │
│ class="dni-code-hint"><code>JNumber │
│ 123.0</code></span></summary><div><table><thead><tr></tr></the... │
╰──────────────────────────────────────────────────────────────────────────────╯
╭─[ 46.05ms - stdout ]─────────────────────────────────────────────────────────╮
│ JNumber 123.0 │
│ JNumber │
│ Item: 123 │
│ IsJString: False │
│ IsJNumber: True │
│ IsJBool: False │
│ IsJNull: False │
│ IsJObject: False │
│ IsJArray: False │
│ │
╰──────────────────────────────────────────────────────────────────────────────╯
── fsharp ──────────────────────────────────────────────────────────────────────
//// test
run jNumber_ "-123"
|> parserEqual (Success (JNumber -123.0))
╭─[ 34.52ms - return value ]───────────────────────────────────────────────────╮
│ <details open="open" class="dni-treeview"><summary><span │
│ class="dni-code-hint"><code>Success (JNumber -123.0, { lines = [ │
│ |"-123"|]<br/> position = { line = │
│ 1<br/> column = 0 } │
│ })</code></span></summary><div><table><thead><tr></tr></thead><tbody><tr><td │
│ >Item</td><td><details class="dni-treeview"><summary><span │
│ class="dni-code-hint"><code>(JNumber -123.0, { lines = [ │
│ |"-123"|]<br/> position = { line = 1<br/> column = │
│ 0 } │
│ })</code></span></summary><div><table><thead><tr></tr></thead><tbody><tr><td │
│ >Item1</td><td><details class="dni-treeview"><summary><span │
│ class="dni-code-hint"><code>JNumber │
│ -123.0</code></span></summary><div><table><thead><tr></t... │
╰──────────────────────────────────────────────────────────────────────────────╯
╭─[ 41.52ms - stdout ]─────────────────────────────────────────────────────────╮
│ JNumber -123.0 │
│ JNumber │
│ Item: -123 │
│ IsJString: False │
│ IsJNumber: True │
│ IsJBool: False │
│ IsJNull: False │
│ IsJObject: False │
│ IsJArray: False │
│ │
╰──────────────────────────────────────────────────────────────────────────────╯
── fsharp ──────────────────────────────────────────────────────────────────────
//// test
run jNumber_ "-123."
|> parserEqual (
Failure (
"number andThen many1 whitespace",
"Unexpected '.'",
{ currentLine = "-123."; line = 0; column = 4 }
)
)
╭─[ 25.12ms - return value ]───────────────────────────────────────────────────╮
│ <details open="open" class="dni-treeview"><summary><span │
│ class="dni-code-hint"><code>Failure<br/> ("number andThen many1 │
│ whitespace", "Unexpected '.'", { currentLine = │
│ "-123."<br/> │
│ line = 0<br/> │
│ column = 4 │
│ })</code></span></summary><div><table><thead><tr></tr></thead><tbody><tr><td │
│ >Item1</td><td><div class="dni-plaintext"><pre>number andThen many1 │
│ whitespace</pre></div></td></tr><tr><td>Item2</td><td><div │
│ class="dni-plaintext"><pre>Unexpected │
│ '.'</pre></div></td></tr><tr><td>Item3</td><td><details │
│ class="dni-treeview"><summary><span class="dni-code-hint"><code>{ │
│ currentLine = "... │
╰──────────────────────────────────────────────────────────────────────────────╯
╭─[ 31.46ms - stdout ]─────────────────────────────────────────────────────────╮
│ Line:0 Col:4 Error parsing number andThen many1 whitespace │
│ -123. │
│ ^Unexpected '.' │
│ │
╰──────────────────────────────────────────────────────────────────────────────╯
── fsharp ──────────────────────────────────────────────────────────────────────
//// test
run jNumber_ "123.4"
|> parserEqual (Success (JNumber 123.4))
╭─[ 36.76ms - return value ]───────────────────────────────────────────────────╮
│ <details open="open" class="dni-treeview"><summary><span │
│ class="dni-code-hint"><code>Success (JNumber 123.4, { lines = [ │
│ |"123.4"|]<br/> position = { line = │
│ 1<br/> column = 0 } │
│ })</code></span></summary><div><table><thead><tr></tr></thead><tbody><tr><td │
│ >Item</td><td><details class="dni-treeview"><summary><span │
│ class="dni-code-hint"><code>(JNumber 123.4, { lines = [ │
│ |"123.4"|]<br/> position = { line = 1<br/> column = │
│ 0 } │
│ })</code></span></summary><div><table><thead><tr></tr></thead><tbody><tr><td │
│ >Item1</td><td><details class="dni-treeview"><summary><span │
│ class="dni-code-hint"><code>JNumber │
│ 123.4</code></span></summary><div><table><thead><tr></tr><... │
╰──────────────────────────────────────────────────────────────────────────────╯
╭─[ 43.68ms - stdout ]─────────────────────────────────────────────────────────╮
│ JNumber 123.4 │
│ JNumber │
│ Item: 123.4 │
│ IsJString: False │
│ IsJNumber: True │
│ IsJBool: False │
│ IsJNull: False │
│ IsJObject: False │
│ IsJArray: False │
│ │
╰──────────────────────────────────────────────────────────────────────────────╯
── fsharp ──────────────────────────────────────────────────────────────────────
//// test
run jNumber_ "00.4"
|> parserEqual (
Failure (
"number andThen many1 whitespace",
"Unexpected '0'",
{ currentLine = "00.4"; line = 0; column = 1 }
)
)
╭─[ 27.88ms - return value ]───────────────────────────────────────────────────╮
│ <details open="open" class="dni-treeview"><summary><span │
│ class="dni-code-hint"><code>Failure<br/> ("number andThen many1 │
│ whitespace", "Unexpected '0'", { currentLine = │
│ "00.4"<br/> │
│ line = 0<br/> │
│ column = 1 │
│ })</code></span></summary><div><table><thead><tr></tr></thead><tbody><tr><td │
│ >Item1</td><td><div class="dni-plaintext"><pre>number andThen many1 │
│ whitespace</pre></div></td></tr><tr><td>Item2</td><td><div │
│ class="dni-plaintext"><pre>Unexpected │
│ '0'</pre></div></td></tr><tr><td>Item3</td><td><details │
│ class="dni-treeview"><summary><span class="dni-code-hint"><code>{ │
│ currentLine = "0... │
╰──────────────────────────────────────────────────────────────────────────────╯
╭─[ 34.87ms - stdout ]─────────────────────────────────────────────────────────╮
│ Line:0 Col:1 Error parsing number andThen many1 whitespace │
│ 00.4 │
│ ^Unexpected '0' │
│ │
╰──────────────────────────────────────────────────────────────────────────────╯
── fsharp ──────────────────────────────────────────────────────────────────────
//// test
run jNumber_ "123e4"
|> parserEqual (Success (JNumber 1230000.0))
╭─[ 73.93ms - return value ]───────────────────────────────────────────────────╮
│ <details open="open" class="dni-treeview"><summary><span │
│ class="dni-code-hint"><code>Success (JNumber 1230000.0, { lines = [ │
│ |"123e4"|]<br/> position = { line = │
│ 1<br/> column = 0 } │
│ })</code></span></summary><div><table><thead><tr></tr></thead><tbody><tr><td │
│ >Item</td><td><details class="dni-treeview"><summary><span │
│ class="dni-code-hint"><code>(JNumber 1230000.0, { lines = [ │
│ |"123e4"|]<br/> position = { line = 1<br/> column = │
│ 0 } │
│ })</code></span></summary><div><table><thead><tr></tr></thead><tbody><tr><td │
│ >Item1</td><td><details class="dni-treeview"><summary><span │
│ class="dni-code-hint"><code>JNumber │
│ 1230000.0</code></span></summary><div><tab... │
╰──────────────────────────────────────────────────────────────────────────────╯
╭─[ 100.87ms - stdout ]────────────────────────────────────────────────────────╮
│ JNumber 1230000.0 │
│ JNumber │
│ Item: 1230000 │
│ IsJString: False │
│ IsJNumber: True │
│ IsJBool: False │
│ IsJNull: False │
│ IsJObject: False │
│ IsJArray: False │
│ │
╰──────────────────────────────────────────────────────────────────────────────╯
── fsharp ──────────────────────────────────────────────────────────────────────
//// test
run jNumber_ "123.4e5"
|> parserEqual (Success (JNumber 12340000.0))
╭─[ 70.37ms - return value ]───────────────────────────────────────────────────╮
│ <details open="open" class="dni-treeview"><summary><span │
│ class="dni-code-hint"><code>Success (JNumber 12340000.0, { lines = [ │
│ |"123.4e5"|]<br/> position = { line │
│ = 1<br/> column = 0 } │
│ })</code></span></summary><div><table><thead><tr></tr></thead><tbody><tr><td │
│ >Item</td><td><details class="dni-treeview"><summary><span │
│ class="dni-code-hint"><code>(JNumber 12340000.0, { lines = [ │
│ |"123.4e5"|]<br/> position = { line = 1<br/> column │
│ = 0 } │
│ })</code></span></summary><div><table><thead><tr></tr></thead><tbody><tr><td │
│ >Item1</td><td><details class="dni-treeview"><summary><span │
│ class="dni-code-hint"><code>JNumber 12340000.0</code></span></summary>... │
╰──────────────────────────────────────────────────────────────────────────────╯
╭─[ 79.98ms - stdout ]─────────────────────────────────────────────────────────╮
│ JNumber 12340000.0 │
│ JNumber │
│ Item: 12340000 │
│ IsJString: False │
│ IsJNumber: True │
│ IsJBool: False │
│ IsJNull: False │
│ IsJObject: False │
│ IsJArray: False │
│ │
╰──────────────────────────────────────────────────────────────────────────────╯
── fsharp ──────────────────────────────────────────────────────────────────────
//// test
run jNumber_ "123.4e-5"
|> parserEqual (Success (JNumber 0.001234))
╭─[ 46.61ms - return value ]───────────────────────────────────────────────────╮
│ <details open="open" class="dni-treeview"><summary><span │
│ class="dni-code-hint"><code>Success (JNumber 0.001234, { lines = [ │
│ |"123.4e-5"|]<br/> position = { line = │
│ 1<br/> column = 0 } │
│ })</code></span></summary><div><table><thead><tr></tr></thead><tbody><tr><td │
│ >Item</td><td><details class="dni-treeview"><summary><span │
│ class="dni-code-hint"><code>(JNumber 0.001234, { lines = [ │
│ |"123.4e-5"|]<br/> position = { line = 1<br/> │
│ column = 0 } │
│ })</code></span></summary><div><table><thead><tr></tr></thead><tbody><tr><td │
│ >Item1</td><td><details class="dni-treeview"><summary><span │
│ class="dni-code-hint"><code>JNumber │
│ 0.001234</code></span></summary><div><ta... │
╰──────────────────────────────────────────────────────────────────────────────╯
╭─[ 54.18ms - stdout ]─────────────────────────────────────────────────────────╮
│ JNumber 0.001234 │
│ JNumber │
│ Item: 0.001234 │
│ IsJString: False │
│ IsJNumber: True │
│ IsJBool: False │
│ IsJNull: False │
│ IsJObject: False │
│ IsJArray: False │
│ │
╰──────────────────────────────────────────────────────────────────────────────╯
── markdown ────────────────────────────────────────────────────────────────────
╭──────────────────────────────────────────────────────────────────────────────╮
│ ### jArray │
╰──────────────────────────────────────────────────────────────────────────────╯
── fsharp ──────────────────────────────────────────────────────────────────────
let jArray =
let left = pchar '[[' .>> spaces
let right = pchar ']]' .>> spaces
let comma = pchar ',' .>> spaces
let value = jValue .>> spaces
let values = sepBy value comma
between left values right
|>> JArray
<?> "array"
── fsharp ──────────────────────────────────────────────────────────────────────
//// test
jValueRef <|
choice
[[
jNull
jBool
jString
jNumber
jArray
]]
── fsharp ──────────────────────────────────────────────────────────────────────
//// test
run jArray "[[ 1, 2 ]]"
|> parserEqual (Success (JArray [[ JNumber 1.0; JNumber 2.0 ]]))
╭─[ 79.94ms - return value ]───────────────────────────────────────────────────╮
│ <details open="open" class="dni-treeview"><summary><span │
│ class="dni-code-hint"><code>Success (JArray [JNumber 1.0; JNumber 2.0], { │
│ lines = [|"[ 1, 2 ]"|]<br/> │
│ position = { line = 1<br/> │
│ column = 0 } │
│ })</code></span></summary><div><table><thead><tr></tr></thead><tbody><tr><td │
│ >Item</td><td><details class="dni-treeview"><summary><span │
│ class="dni-code-hint"><code>(JArray [JNumber 1.0; JNumber 2.0], { lines = [ │
│ |"[ 1, 2 ]"|]<br/> position = { line = 1<br/> │
│ column = 0 } │
│ })</code></span></summary><div><table><thead><tr></tr></thead><tbody><tr><td │
│ >Item1</td><td><details class="dni-treeview"><summary><span class="d... │
╰──────────────────────────────────────────────────────────────────────────────╯
╭─[ 85.83ms - stdout ]─────────────────────────────────────────────────────────╮
│ JArray [JNumber 1.0; JNumber 2.0] │
│ JArray │
│ Item: FSharpList<JValue> │
│ - Item: 1 │
│ IsJString: False │
│ IsJNumber: True │
│ IsJBool: False │
│ IsJNull: False │
│ IsJObject: False │
│ IsJArray: False │
│ - Item: 2 │
│ IsJString: False │
│ IsJNumber: True │
│ IsJBool: False │
│ IsJNull: False │
│ IsJObject: False │
│ IsJArray: False │
│ IsJString: False │
│ IsJNumber: False │
│ IsJBool: False │
│ IsJNull: False │
│ IsJObject: False │
│ IsJArray: True │
│ │
╰──────────────────────────────────────────────────────────────────────────────╯
── fsharp ──────────────────────────────────────────────────────────────────────
//// test
run jArray "[[ 1, 2, ]]"
|> parserEqual (
Failure (
"array",
"Unexpected ','",
{ currentLine = "[[ 1, 2, ]]"; line = 0; column = 6 }
)
)
╭─[ 41.97ms - return value ]───────────────────────────────────────────────────╮
│ <details open="open" class="dni-treeview"><summary><span │
│ class="dni-code-hint"><code>Failure ("array", "Unexpected │
│ ','", { currentLine = "[ 1, 2, ]"<br/> │
│ line = 0<br/> column = 6 │
│ })</code></span></summary><div><table><thead><tr></tr></thead><tbody><tr><td │
│ >Item1</td><td><div │
│ class="dni-plaintext"><pre>array</pre></div></td></tr><tr><td>Item2</td><td> │
│ <div class="dni-plaintext"><pre>Unexpected │
│ ','</pre></div></td></tr><tr><td>Item3</td><td><details │
│ class="dni-treeview"><summary><span class="dni-code-hint"><code>{ │
│ currentLine = "[ 1, 2, ]"<br/> line = 0<br/> column = 6 │
│ }</code></span></summary><div><table><thead><t... │
╰──────────────────────────────────────────────────────────────────────────────╯
╭─[ 48.61ms - stdout ]─────────────────────────────────────────────────────────╮
│ Line:0 Col:6 Error parsing array │
│ [ 1, 2, ] │
│ ^Unexpected ',' │
│ │
╰──────────────────────────────────────────────────────────────────────────────╯
── markdown ────────────────────────────────────────────────────────────────────
╭──────────────────────────────────────────────────────────────────────────────╮
│ ### jObject │
╰──────────────────────────────────────────────────────────────────────────────╯
── fsharp ──────────────────────────────────────────────────────────────────────
let jObject =
let left = spaces >>. pchar '{' .>> spaces
let right = pchar '}' .>> spaces
let colon = pchar ':' .>> spaces
let comma = pchar ',' .>> spaces
let key = quotedString .>> spaces
let value = jValue .>> spaces
let keyValue = (key .>> colon) .>>. value
let keyValues = sepBy keyValue comma
between left keyValues right
|>> Map.ofList
|>> JObject
<?> "object"
── fsharp ──────────────────────────────────────────────────────────────────────
jValueRef <|
choice
[[
jNull
jBool
jString
jNumber
jArray
jObject
]]
── fsharp ──────────────────────────────────────────────────────────────────────
//// test
run jObject """{ "a":1, "b" : 2 }"""
|> parserEqual (
Success (
JObject (
Map.ofList [[
"a", JNumber 1.0
"b", JNumber 2.0
]]
)
)
)
╭─[ 86.36ms - return value ]───────────────────────────────────────────────────╮
│ <details open="open" class="dni-treeview"><summary><span │
│ class="dni-code-hint"><code>Success<br/> (JObject (map [("a", │
│ JNumber 1.0); ("b", JNumber 2.0)]),<br/> { lines = [|"{ │
│ "a":1, "b" : 2 }"|]<br/> position = { line = │
│ 1<br/> column = 0 } │
│ })</code></span></summary><div><table><thead><tr></tr></thead><tbody><tr><td │
│ >Item</td><td><details class="dni-treeview"><summary><span │
│ class="dni-code-hint"><code>(JObject (map [("a", JNumber 1.0); │
│ ("b", JNumber 2.0)]), { lines = [|"{ "a":1, │
│ "b" : 2 }"|]<br/> position = { line = 1<br/> │
│ column = 0 } │
│ })</code></span></summary><div><table><thead><tr></tr></thead><tbod... │
╰──────────────────────────────────────────────────────────────────────────────╯
╭─[ 92.68ms - stdout ]─────────────────────────────────────────────────────────╮
│ JObject (map [("a", JNumber 1.0); ("b", JNumber 2.0)]) │
│ JObject │
│ Item: FSharpMap<String,JValue> │
│ - Key: a │
│ Value: JNumber │
│ Item: 1 │
│ IsJString: False │
│ IsJNumber: True │
│ IsJBool: False │
│ IsJNull: False │
│ IsJObject: False │
│ IsJArray: False │
│ - Key: b │
│ Value: JNumber │
│ Item: 2 │
│ IsJString: False │
│ IsJNumber: True │
│ IsJBool: False │
│ IsJNull: False │
│ IsJObject: False │
│ IsJArray: False │
│ IsJString: False │
│ IsJNumber: False │
│ IsJBool: False │
│ IsJNull: False │
│ IsJObject: True │
│ IsJArray: False │
│ │
╰──────────────────────────────────────────────────────────────────────────────╯
── fsharp ──────────────────────────────────────────────────────────────────────
//// test
run jObject """{ "a":1, "b" : 2, }"""
|> parserEqual (
Failure (
"object",
"Unexpected ','",
{ currentLine = """{ "a":1, "b" : 2, }"""; line = 0; column = 18 }
)
)
╭─[ 33.44ms - return value ]───────────────────────────────────────────────────╮
│ <details open="open" class="dni-treeview"><summary><span │
│ class="dni-code-hint"><code>Failure ("object", "Unexpected │
│ ','", { currentLine = "{ "a":1, "b" : │
│ 2, }"<br/> line = 0<br/> │
│ column = 18 │
│ })</code></span></summary><div><table><thead><tr></tr></thead><tbody><tr><td │
│ >Item1</td><td><div │
│ class="dni-plaintext"><pre>object</pre></div></td></tr><tr><td>Item2</td><td │
│ ><div class="dni-plaintext"><pre>Unexpected │
│ ','</pre></div></td></tr><tr><td>Item3</td><td><details │
│ class="dni-treeview"><summary><span class="dni-code-hint"><code>{ │
│ currentLine = "{ "a":1, "b" : 2, }"<br/> │
│ lin... │
╰──────────────────────────────────────────────────────────────────────────────╯
╭─[ 40.16ms - stdout ]─────────────────────────────────────────────────────────╮
│ Line:0 Col:18 Error parsing object │
│ { "a":1, "b" : 2, } │
│ ^Unexpected ',' │
│ │
╰──────────────────────────────────────────────────────────────────────────────╯
── markdown ────────────────────────────────────────────────────────────────────
╭──────────────────────────────────────────────────────────────────────────────╮
│ ### jValue │
╰──────────────────────────────────────────────────────────────────────────────╯
── fsharp ──────────────────────────────────────────────────────────────────────
//// test
let example1 = """{
"name" : "Scott",
"isMale" : true,
"bday" : {"year":2001, "month":12, "day":25 },
"favouriteColors" : [["blue", "green"]],
"emptyArray" : [[]],
"emptyObject" : {}
}"""
run jValue example1
|> parserEqual (
Success (
JObject (
Map.ofList [[
"name", JString "Scott"
"isMale", JBool true
"bday", JObject (
Map.ofList [[
"year", JNumber 2001.0
"month", JNumber 12.0
"day", JNumber 25.0
]]
)
"favouriteColors", JArray [[ JString "blue"; JString "green" ]]
"emptyArray", JArray [[]]
"emptyObject", JObject Map.empty
]]
)
)
)
╭─[ 147.31ms - return value ]──────────────────────────────────────────────────╮
│ <details open="open" class="dni-treeview"><summary><span │
│ class="dni-code-hint"><code>Success<br/> (JObject<br/> (map<br/> │
│ [("bday",<br/> JObject<br/> (map<br/> │
│ [("day", JNumber 25.0); ("month", JNumber 12.0);<br/> │
│ ("year", JNumber 2001.0)])); ("emptyArray", JArray [ │
│ ]);<br/> ("emptyObject", JObject (map []));<br/> │
│ ("favouriteColors", │
│ ...</code></span></summary><div><table><thead><tr></tr></thead><tbody><tr><t │
│ d>Item</td><td><details class="dni-treeview"><summary><span │
│ class="dni-code-hint"><code>(JObject<br/> (map<br/> [ │
│ ("bday",<br/> JObject<br/> (map<br/> [ │
│ (... │
╰──────────────────────────────────────────────────────────────────────────────╯
╭─[ 153.88ms - stdout ]────────────────────────────────────────────────────────╮
│ JObject │
│ (map │
│ [("bday", │
│ JObject │
│ (map │
│ [("day", JNumber 25.0); ("month", JNumber 12.0); │
│ ("year", JNumber 2001.0)])); ("emptyArray", JArray []); │
│ ("emptyObject", JObject (map [])); │
│ ("favouriteColors", JArray [JString "blue"; JString "green"]); │
│ ("isMale", JBool true); ("name", JString "Scott")]) │
│ JObject │
│ Item: FSharpMap<String,JValue> │
│ - Key: bday │
│ Value: JObject │
│ Item: FSharpMap<String,JValue> │
│ - Key: day │
│ Value: JNumber 25.0 │
│ - Key: month │
│ Value: JNumber 12.0 │
│ - Key: year │
│ Value: JNumber 2001.0 │
│ IsJString: False │
│ IsJNumber: False │
│ IsJBool: False │
│ IsJNull: False │
│ IsJObject: True │
│ IsJArray: False │
│ - Key: emptyArray │
│ Value: JArray │
│ Item: FSharpList<JValue> │
│ │
│ IsJString: False │
│ IsJNumber: False │
│ IsJBool: False │
│ IsJNull: False │
│ IsJObject: False │
│ IsJArray: True │
│ - Key: emptyObject │
│ Value: JObject │
│ Item: FSharpMap<String,JValue> │
│ │
│ IsJString: False │
│ IsJNumber: False │
│ IsJBool: False │
│ IsJNull: False │
│ IsJObject: True │
│ IsJArray: False │
│ - Key: favouriteColors │
│ Value: JArray │
│ Item: FSharpList<JValue> │
│ - Item: blue │
│ IsJString: True │
│ IsJNumber: False │
│ IsJBool: False │
│ IsJNull: False │
│ IsJObject: False │
│ IsJArray: False │
│ - Item: green │
│ IsJString: True │
│ IsJNumber: False │
│ IsJBool: False │
│ IsJNull: False │
│ IsJObject: False │
│ IsJArray: False │
│ IsJString: False │
│ IsJNumber: False │
│ IsJBool: False │
│ IsJNull: False │
│ IsJObject: False │
│ IsJArray: True │
│ - Key: isMale │
│ Value: JBool │
│ Item: True │
│ IsJString: False │
│ IsJNumber: False │
│ IsJBool: True │
│ IsJNull: False │
│ IsJObject: False │
│ IsJArray: False │
│ - Key: name │
│ Value: JString │
│ Item: Scott │
│ IsJString: True │
│ IsJNumber: False │
│ IsJBool: False │
│ IsJNull: False │
│ IsJObject: False │
│ IsJArray: False │
│ IsJString: False │
│ IsJNumber: False │
│ IsJBool: False │
│ IsJNull: False │
│ IsJObject: True │
│ IsJArray: False │
│ │
╰──────────────────────────────────────────────────────────────────────────────╯
── fsharp ──────────────────────────────────────────────────────────────────────
//// test
let example2 = """{"widget": {
"debug": "on",
"window": {
"title": "Sample Konfabulator Widget",
"name": "main_window",
"width": 500,
"height": 500
},
"image": {
"src": "Images/Sun.png",
"name": "sun1",
"hOffset": 250,
"vOffset": 250,
"alignment": "center"
},
"text": {
"data": "Click Here",
"size": 36,
"style": "bold",
"name": "text1",
"hOffset": 250,
"vOffset": 100,
"alignment": "center",
"onMouseUp": "sun1.opacity = (sun1.opacity / 100) * 90;"
}
}}"""
run jValue example2
|> parserEqual (
Success (
JObject (
Map.ofList [[
"widget", JObject (
Map.ofList [[
"debug", JString "on"
"window", JObject (
Map.ofList [[
"title", JString "Sample Konfabulator Widget"
"name", JString "main_window"
"width", JNumber 500.0
"height", JNumber 500.0
]]
)
"image", JObject (
Map.ofList [[
"src", JString "Images/Sun.png"
"name", JString "sun1"
"hOffset", JNumber 250.0
"vOffset", JNumber 250.0
"alignment", JString "center"
]]
)
"text", JObject (
Map.ofList [[
"data", JString "Click Here"
"size", JNumber 36.0
"style", JString "bold"
"name", JString "text1"
"hOffset", JNumber 250.0
"vOffset", JNumber 100.0
"alignment", JString "center"
"onMouseUp", JString "sun1.opacity =
(sun1.opacity / 100) * 90;"
]]
)
]]
)
]]
)
)
)
╭─[ 277.20ms - return value ]──────────────────────────────────────────────────╮
│ <details open="open" class="dni-treeview"><summary><span │
│ class="dni-code-hint"><code>Success<br/> (JObject<br/> (map<br/> │
│ [("widget",<br/> JObject<br/> (map<br/> │
│ [("debug", JString "on");<br/> │
│ ("image",<br/> JObject<br/> │
│ (map<br/> [("alignment", JString │
│ "center");<br/> │
│ ("hOffset"...</code></span></summary><div><table><thead><tr></tr>< │
│ /thead><tbody><tr><td>Item</td><td><details │
│ class="dni-treeview"><summary><span │
│ class="dni-code-hint"><code>(JObject<br/> (map<br/> [ │
│ ("widget",<br/> JObject<br/> (map<br/> ... │
╰──────────────────────────────────────────────────────────────────────────────╯
╭─[ 283.71ms - stdout ]────────────────────────────────────────────────────────╮
│ JObject │
│ (map │
│ [("widget", │
│ JObject │
│ (map │
│ [("debug", JString "on"); │
│ ("image", │
│ JObject │
│ (map │
│ [("alignment", JString "center"); ("hOffset", JNumber │
│ 250.0); │
│ ("name", JString "sun1"); ("src", JString │
│ "Images/Sun.png"); │
│ ("vOffset", JNumber 250.0)])); │
│ ("text", │
│ JObject │
│ (map │
│ [("alignment", JString "center"); │
│ ("data", JString "Click Here"); ("hOffset", JNumber │
│ 250.0); │
│ ("name", JString "text1"); │
│ ("onMouseUp", │
│ JString "sun1.opacity = (sun1.opacity / 100) * 90;"); │
│ ("size", JNumber 36.0); ("style", JString "bold"); │
│ ("vOffset", JNumber 100.0)])); │
│ ("window", │
│ JObject │
│ (map │
│ [("height", JNumber 500.0); ("name", JString │
│ "main_window"); │
│ ("title", JString "Sample Konfabulator Widget"); │
│ ("width", JNumber 500.0)]))]))]) │
│ JObject │
│ Item: FSharpMap<String,JValue> │
│ - Key: widget │
│ Value: JObject │
│ Item: FSharpMap<String,JValue> │
│ - Key: debug │
│ Value: JString "on" │
│ - Key: image │
│ Value: JObject │
│ (map │
│ [("alignment", JString "center"); ("hOffset", JNumber 250.0); │
│ ("name", JString "sun1"); ("src", JString "Images/Sun.png"); │
│ ("vOffset", JNumber 250.0)]) │
│ - Key: text │
│ Value: JObject │
│ (map │
│ [("alignment", JString "center"); ("data", JString "Click Here"); │
│ ("hOffset", JNumber 250.0); ("name", JString "text1"); │
│ ("onMouseUp", JString "sun1.opacity = (sun1.opacity / 100) * 90;"); │
│ ("size", JNumber 36.0); ("style", JString "bold"); │
│ ("vOffset", JNumber 100.0)]) │
│ - Key: window │
│ Value: JObject │
│ (map │
│ [("height", JNumber 500.0); ("name", JString "main_window"); │
│ ("title", JString "Sample Konfabulator Widget"); ("width", JNumber │
│ 500.0)]) │
│ IsJString: False │
│ IsJNumber: False │
│ IsJBool: False │
│ IsJNull: False │
│ IsJObject: True │
│ IsJArray: False │
│ IsJString: False │
│ IsJNumber: False │
│ IsJBool: False │
│ IsJNull: False │
│ IsJObject: True │
│ IsJArray: False │
│ │
╰──────────────────────────────────────────────────────────────────────────────╯
── fsharp ──────────────────────────────────────────────────────────────────────
//// test
let example3 = """{
"string": "Hello, \"World\"!",
"escapedString": "This string contains \\/\\\\\\b\\f\\n\\r\\t\\\"\\'",
"number": 42,
"scientificNumber": 3.14e-10,
"boolean": true,
"nullValue": null,
"array": [[1, 2, 3, 4, 5]],
"unicodeString1": "프리마",
"unicodeString2": "\u0048\u0065\u006C\u006C\u006F,
\u0022\u0057\u006F\u0072\u006C\u0064\u0022!",
"specialCharacters": "!@#$%^&*()",
"emptyArray": [[]],
"emptyObject": {},
"nestedArrays": [[[[1, 2, 3]], [[4, 5, 6]]]],
"object": {
"nestedString": "Nested Value",
"nestedNumber": 3.14,
"nestedBoolean": false,
"nestedNull": null,
"nestedArray": [["a", "b", "c"]],
"nestedObject": {
"nestedProperty": "Nested Object Value"
}
},
"nestedObjects": [[
{"name": "Alice", "age": 25},
{"name": "Bob", "age": 30}
]]
}"""
run jValue example3
|> parserEqual (
Success (
JObject (
Map.ofList [[
"string", JString @"Hello, ""World""!"
"escapedString", JString @"This string contains
\/\\\b\f\n\r\t\""\'"
"number", JNumber 42.0
"scientificNumber", JNumber 3.14e-10
"boolean", JBool true
"nullValue", JNull
"array", JArray [[
JNumber 1.0; JNumber 2.0; JNumber 3.0; JNumber 4.0; JNumber
5.0
]]
"unicodeString1", JString "프리마"
"unicodeString2", JString @"Hello, ""World""!"
"specialCharacters", JString "!@#$%^&*()"
"emptyArray", JArray [[]]
"emptyObject", JObject Map.empty
"nestedArrays", JArray [[
JArray [[ JNumber 1.0; JNumber 2.0; JNumber 3.0 ]]
JArray [[ JNumber 4.0; JNumber 5.0; JNumber 6.0 ]]
]]
"object", JObject (
Map.ofList [[
"nestedString", JString "Nested Value"
"nestedNumber", JNumber 3.14
"nestedBoolean", JBool false
"nestedNull", JNull
"nestedArray", JArray [[JString "a"; JString "b";
JString "c"]]
"nestedObject", JObject (
Map.ofList [[
"nestedProperty", JString "Nested Object Value"
]]
)
]]
)
"nestedObjects", JArray [[
JObject (Map.ofList [[ "name", JString "Alice"; "age", JNumber
25.0 ]])
JObject (Map.ofList [[ "name", JString "Bob"; "age", JNumber
30.0 ]])
]]
]]
)
)
)
╭─[ 384.19ms - return value ]──────────────────────────────────────────────────╮
│ <details open="open" class="dni-treeview"><summary><span │
│ class="dni-code-hint"><code>Success<br/> (JObject<br/> (map<br/> │
│ [("array",<br/> JArray<br/> [JNumber 1.0; │
│ JNumber 2.0; JNumber 3.0; JNumber 4.0; JNumber 5.0]);<br/> │
│ ("boolean", JBool true); ("emptyArray", JArray []);<br/> │
│ ("emptyObject", JObject (map []));<br/> │
│ ("escapedString", JString "This │
│ s...</code></span></summary><div><table><thead><tr></tr></thead><tbody><tr>< │
│ td>Item</td><td><details class="dni-treeview"><summary><span │
│ class="dni-code-hint"><code>(JObject<br/> (map<br/> [ │
│ ("array",<br/> JArray [JNumber 1.0; JNumber 2.0; JNumber │
│ 3.0; JNumber 4.0; J... │
╰──────────────────────────────────────────────────────────────────────────────╯
╭─[ 391.76ms - stdout ]────────────────────────────────────────────────────────╮
│ JObject │
│ (map │
│ [("array", │
│ JArray [JNumber 1.0; JNumber 2.0; JNumber 3.0; JNumber 4.0; JNumber │
│ 5.0]); │
│ ("boolean", JBool true); ("emptyArray", JArray []); │
│ ("emptyObject", JObject (map [])); │
│ ("escapedString", JString "This string contains \/\\\b\f\n\r\t\"\'"); │
│ ("nestedArrays", │
│ JArray │
│ [JArray [JNumber 1.0; JNumber 2.0; JNumber 3.0]; │
│ JArray [JNumber 4.0; JNumber 5.0; JNumber 6.0]]); │
│ ("nestedObjects", │
│ JArray │
│ [JObject (map [("age", JNumber 25.0); ("name", JString "Alice")]); │
│ JObject (map [("age", JNumber 30.0); ("name", JString "Bob")])]); │
│ ("nullValue", JNull); ("number", JNumber 42.0); ...]) │
│ JObject │
│ Item: FSharpMap<String,JValue> │
│ - Key: array │
│ Value: JArray │
│ Item: FSharpList<JValue> │
│ - Item: 1 │
│ IsJString: False │
│ IsJNumber: True │
│ IsJBool: False │
│ IsJNull: False │
│ IsJObject: False │
│ IsJArray: False │
│ - Item: 2 │
│ IsJString: False │
│ IsJNumber: True │
│ IsJBool: False │
│ IsJNull: False │
│ IsJObject: False │
│ IsJArray: False │
│ - Item: 3 │
│ IsJString: False │
│ IsJNumber: True │
│ IsJBool: False │
│ IsJNull: False │
│ IsJObject: False │
│ IsJArray: False │
│ - Item: 4 │
│ IsJString: False │
│ IsJNumber: True │
│ IsJBool: False │
│ IsJNull: False │
│ IsJObject: False │
│ IsJArray: False │
│ - Item: 5 │
│ IsJString: False │
│ IsJNumber: True │
│ IsJBool: False │
│ IsJNull: False │
│ IsJObject: False │
│ IsJArray: False │
│ IsJString: False │
│ IsJNumber: False │
│ IsJBool: False │
│ IsJNull: False │
│ IsJObject: False │
│ IsJArray: True │
│ - Key: boolean │
│ Value: JBool │
│ Item: True │
│ IsJString: False │
│ IsJNumber: False │
│ IsJBool: True │
│ IsJNull: False │
│ IsJObject: False │
│ IsJArray: False │
│ - Key: emptyArray │
│ Value: JArray │
│ Item: FSharpList<JValue> │
│ │
│ IsJString: False │
│ IsJNumber: False │
│ IsJBool: False │
│ IsJNull: False │
│ IsJObject: False │
│ IsJArray: True │
│ - Key: emptyObject │
│ Value: JObject │
│ Item: FSharpMap<String,JValue> │
│ │
│ IsJString: False │
│ IsJNumber: False │
│ IsJBool: False │
│ IsJNull: False │
│ IsJObject: True │
│ IsJArray: False │
│ - Key: escapedString │
│ Value: JString │
│ Item: This string contains \/\\\b\f\n\r\t\"\' │
│ IsJString: True │
│ IsJNumber: False │
│ IsJBool: False │
│ IsJNull: False │
│ IsJObject: False │
│ IsJArray: False │
│ - Key: nestedArrays │
│ Value: JArray │
│ Item: FSharpList<JValue> │
│ - Item: [ JNumber 1.0, JNumber 2.0, JNumber 3.0 ] │
│ IsJString: False │
│ IsJNumber: False │
│ IsJBool: False │
│ IsJNull: False │
│ IsJObject: False │
│ IsJArray: True │
│ - Item: [ JNumber 4.0, JNumber 5.0, JNumber 6.0 ] │
│ IsJString: False │
│ IsJNumber: False │
│ IsJBool: False │
│ IsJNull: False │
│ IsJObject: False │
│ IsJArray: True │
│ IsJString: False │
│ IsJNumber: False │
│ IsJBool: False │
│ IsJNull: False │
│ IsJObject: False │
│ IsJArray: True │
│ - Key: nestedObjects │
│ Value: JArray │
│ Item: FSharpList<JValue> │
│ - Item: [ [age, JNumber 25.0], [name, JString "Alice"] ] │
│ IsJString: False │
│ IsJNumber: False │
│ IsJBool: False │
│ IsJNull: False │
│ IsJObject: True │
│ IsJArray: False │
│ - Item: [ [age, JNumber 30.0], [name, JString "Bob"] ] │
│ IsJString: False │
│ IsJNumber: False │
│ IsJBool: False │
│ IsJNull: False │
│ IsJObject: True │
│ IsJArray: False │
│ IsJString: False │
│ IsJNumber: False │
│ IsJBool: False │
│ IsJNull: False │
│ IsJObject: False │
│ IsJArray: True │
│ - Key: nullValue │
│ Value: JValue │
│ IsJString: False │
│ IsJNumber: False │
│ IsJBool: False │
│ IsJNull: True │
│ IsJObject: False │
│ IsJArray: False │
│ - Key: number │
│ Value: JNumber │
│ Item: 42 │
│ IsJString: False │
│ IsJNumber: True │
│ IsJBool: False │
│ IsJNull: False │
│ IsJObject: False │
│ IsJArray: False │
│ - Key: object │
│ Value: JObject │
│ Item: FSharpMap<String,JValue> │
│ - Key: nestedArray │
│ Value: JArray [JString "a"; JString "b"; JString "c"] │
│ - Key: nestedBoolean │
│ Value: JBool false │
│ - Key: nestedNull │
│ Value: JNull │
│ - Key: nestedNumber │
│ Value: JNumber 3.14 │
│ - Key: nestedObject │
│ Value: JObject (map [("nestedProperty", JString "Nested │
│ Object Value")]) │
│ - Key: nestedString │
│ Value: JString "Nested Value" │
│ IsJString: False │
│ IsJNumber: False │
│ IsJBool: False │
│ IsJNull: False │
│ IsJObject: True │
│ IsJArray: False │
│ - Key: scientificNumber │
│ Value: JNumber │
│ Item: 3.14E-10 │
│ IsJString: False │
│ IsJNumber: True │
│ IsJBool: False │
│ IsJNull: False │
│ IsJObject: False │
│ IsJArray: False │
│ - Key: specialCharacters │
│ Value: JString │
│ Item: !@#$%^&*() │
│ IsJString: True │
│ IsJNumber: False │
│ IsJBool: False │
│ IsJNull: False │
│ IsJObject: False │
│ IsJArray: False │
│ - Key: string │
│ Value: JString │
│ Item: Hello, "World"! │
│ IsJString: True │
│ IsJNumber: False │
│ IsJBool: False │
│ IsJNull: False │
│ IsJObject: False │
│ IsJArray: False │
│ - Key: unicodeString1 │
│ Value: JString │
│ Item: 프리마 │
│ IsJString: True │
│ IsJNumber: False │
│ IsJBool: False │
│ IsJNull: False │
│ IsJObject: False │
│ IsJArray: False │
│ - Key: unicodeString2 │
│ Value: JString │
│ Item: Hello, "World"! │
│ IsJString: True │
│ IsJNumber: False │
│ IsJBool: False │
│ IsJNull: False │
│ IsJObject: False │
│ IsJArray: False │
│ IsJString: False │
│ IsJNumber: False │
│ IsJBool: False │
│ IsJNull: False │
│ IsJObject: True │
│ IsJArray: False │
│ │
╰──────────────────────────────────────────────────────────────────────────────╯
[NbConvertApp] Converting notebook JsonParser.dib.ipynb to html
C:\Users\i574n\scoop\apps\python\current\Lib\site-packages\nbformat\__init__.py:93: MissingIDFieldWarning: Code cell is missing an id field, this will become a hard error in future nbformat versions. You may want to use `normalize()` on your notebooks before validations (available since nbformat 5.1.4). Previous versions of nbformat are fixing this issue transparently, and will stop doing so in the future.
validate(nb)
C:\Users\i574n\scoop\apps\python\current\Lib\site-packages\nbconvert\filters\highlight.py:71: UserWarning: IPython3 lexer unavailable, falling back on Python 3
return _pygments_highlight(
[NbConvertApp] Writing 545453 bytes to JsonParser.dib.html
── markdown ────────────────────────────────────────────────────────────────────
╭──────────────────────────────────────────────────────────────────────────────╮
│ # Parser (Polyglot) │
╰──────────────────────────────────────────────────────────────────────────────╯
── fsharp ──────────────────────────────────────────────────────────────────────
#!import ../../lib/fsharp/Notebooks.dib
#!import ../../lib/fsharp/Testing.dib
── fsharp - import ─────────────────────────────────────────────────────────────
#r
"C:/Users/i574n/.nuget/packages/dotnet-repl/0.1.204/tools/net7.0/any/Microsoft.A
spNetCore.Html.Abstractions.dll"
#r
"C:/Users/i574n/.nuget/packages/dotnet-repl/0.1.204/tools/net7.0/any/Microsoft.D
otNet.Interactive.dll"
#r
"C:/Users/i574n/.nuget/packages/dotnet-repl/0.1.204/tools/net7.0/any/Microsoft.D
otNet.Interactive.FSharp.dll"
#r
"C:/Users/i574n/.nuget/packages/dotnet-repl/0.1.204/tools/net7.0/any/Microsoft.D
otNet.Interactive.Formatting.dll"
open System
open System.IO
open System.Text
open Microsoft.DotNet.Interactive.Formatting
── fsharp - import ─────────────────────────────────────────────────────────────
#r
"C:/Users/i574n/.nuget/packages/dotnet-repl/0.1.204/tools/net7.0/any/Microsoft.D
otNet.Interactive.FSharp.dll"
open Microsoft.DotNet.Interactive.FSharp.FSharpKernelHelpers
#r
"C:/Users/i574n/.nuget/packages/dotnet-repl/0.1.204/tools/net7.0/any/Microsoft.D
otNet.Interactive.dll"
open type Microsoft.DotNet.Interactive.Kernel
── fsharp - import ─────────────────────────────────────────────────────────────
//// test
Formatter.ListExpansionLimit <- 100
── fsharp - import ─────────────────────────────────────────────────────────────
type [[<Struct>]] US0 =
| US0_0
| US0_1
and [[<Struct>]] US1 =
| US1_0 of f0_0 : US0
| US1_1
let rec closure0 () (v0 : (unit -> unit)) : System.IDisposable =
let v1 : System.IDisposable option = None
let mutable _v1 = v1
#if FABLE_COMPILER_RUST && !WASM && !CONTRACT
let v2 : System.IDisposable = null |> unbox<System.IDisposable>
v2
#endif
#if FABLE_COMPILER_RUST && WASM
let v3 : System.IDisposable = null |> unbox<System.IDisposable>
v3
#endif
#if FABLE_COMPILER_RUST && CONTRACT
let v4 : System.IDisposable = null |> unbox<System.IDisposable>
v4
#endif
#if !FABLE_COMPILER && !FABLE_COMPILER_RUST && !FABLE_COMPILER_TYPESCRIPT &&
!WASM && !CONTRACT
let v5 : System.ID...
── fsharp - import ─────────────────────────────────────────────────────────────
type Mut0 = {mutable l0 : int32; mutable l1 : string}
and Mut1 = {mutable l0 : int32}
let rec closure1 (v0 : string) (v1 : string) : bool =
let v2 : bool = v1.Contains v0
v2
and closure0 () (v0 : string) : (string -> bool) =
closure1(v0)
and closure3 (v0 : string) (v1 : string) : bool =
let v2 : bool = v1.EndsWith v0
v2
and closure2 () (v0 : string) : (string -> bool) =
closure3(v0)
and closure6 (v0 : int32, v1 : char) (v2 : string) : string =
let v3 : string = v2.PadLeft (v0, v1)
v3
and closure5 (v0 : int32) (v1 : char) : (string -> string) =
closure6(v0, v1)
and closure4 () (v0 : int32) : (char -> (string -> string)) =
closure5(v0)
and closure8 (v0 : int32) (v1 : string) : string =
let v2 : stri...
── fsharp - import ─────────────────────────────────────────────────────────────
type ICryptoCreateHash = abstract createHash: x: string -> obj
type Mut0 = {mutable l0 : int32}
let rec method0 (v0 : int32, v1 : Mut0) : bool =
let v2 : int32 = v1.l0
let v3 : bool = v2 < v0
v3
and method1 () : string =
let v0 : string = ""
v0
and closure0 () (v0 : string) : string =
let v1 : string option = None
let mutable _v1 = v1
#if FABLE_COMPILER_RUST && !WASM && !CONTRACT
let v2 : string = null |> unbox<string>
v2
#endif
#if FABLE_COMPILER_RUST && WASM
let v3 : string = null |> unbox<string>
v3
#endif
#if FABLE_COMPILER_RUST && CONTRACT
let v4 : string = null |> unbox<string>
v4
#endif
#if !FABLE_COMPILER && !FABLE_COMPILER_RUST && !FABLE_COMPILER_TYP...
── fsharp - import ─────────────────────────────────────────────────────────────
let rec closure1 (v0 : System.Guid) (v1 : System.DateTime) : System.Guid =
let v2 : (System.Guid -> string) = _.ToString()
let v3 : string = v2 v0
let v4 : string = v1.ToString "yyyyMMdd-HHmm-ssff-ffff-f"
let v5 : System.Guid = System.Guid $"{v4}{v3.[[v4.Length..]]}"
v5
and closure0 () (v0 : System.Guid) : (System.DateTime -> System.Guid) =
closure1(v0)
and closure5 (v0 : string, v1 : string) (v2 : string) : string =
let v3 : string = v2.Replace (v0, v1)
v3
and closure4 (v0 : string) (v1 : string) : (string -> string) =
closure5(v0, v1)
and closure3 () (v0 : string) : (string -> (string -> string)) =
closure4(v0)
and method0 () : (string -> (string -> (string -> string))) =
closure3()
and closure2 (...
── fsharp - import ─────────────────────────────────────────────────────────────
let rec closure0 () (v0 : System.Threading.CancellationToken) :
Async<System.Threading.CancellationToken> =
let v1 : Async<System.Threading.CancellationToken> option = None
let mutable _v1 = v1
#if FABLE_COMPILER_RUST && !WASM && !CONTRACT
let v2 : Async<System.Threading.CancellationToken> = null |>
unbox<Async<System.Threading.CancellationToken>>
v2
#endif
#if FABLE_COMPILER_RUST && WASM
let v3 : Async<System.Threading.CancellationToken> = null |>
unbox<Async<System.Threading.CancellationToken>>
v3
#endif
#if FABLE_COMPILER_RUST && CONTRACT
let v4 : Async<System.Threading.CancellationToken> = null |>
unbox<Async<System.Threading.CancellationToken>>
v4
#endif
#if !FABLE_COMPILER...
── fsharp - import ─────────────────────────────────────────────────────────────
#if FABLE_COMPILER
[[<CompilationRepresentation (CompilationRepresentationFlags.ModuleSuffix)>]]
module System =
module Diagnostics =
type Process = unit
type DataReceivedEventArgs = unit
#endif
module State = let mutable trace_state = None
type [[<Struct>]] US0 =
| US0_0
| US0_1
| US0_2
| US0_3
| US0_4
and UH0 =
| UH0_0
| UH0_1 of char * UH0
and [[<Struct>]] US2 =
| US2_0
| US2_1
and [[<Struct>]] US1 =
| US1_0
| US1_1 of f1_0 : US2
| US1_2
and [[<Struct>]] US3 =
| US3_0 of f0_0 : string
| US3_1
and Mut0 = {mutable l0 : int64}
and Mut1 = {mutable l0 : bool}
and Mut2 = {mutable l0 : US0}
and [[<Struct>]] US4 =
| US4_0 of f0_0 : int64
| US4_1
and [[<Struct>]] US5 =
| US5_0 of f0_0 : i...
── fsharp - import ─────────────────────────────────────────────────────────────
#if FABLE_COMPILER // file_system.types
[[<Fable.Core.Erase; Fable.Core.Emit("str")>]] type Str = class end
[[<Fable.Core.Erase; Fable.Core.Emit("base64::DecodeError")>]] type
base64_DecodeError = class end
[[<Fable.Core.Erase; Fable.Core.Emit("borsh::io::Error")>]] type borsh_io_Error
= class end
[[<Fable.Core.Erase; Fable.Core.Emit("js_sys::JsString")>]] type js_sys_JsString
= class end
[[<Fable.Core.Erase; Fable.Core.Emit("serde_json::Error")>]] type
serde_json_Error = class end
[[<Fable.Core.Erase; Fable.Core.Emit("serde_json::Value")>]] type
serde_json_Value = class end
[[<Fable.Core.Erase; Fable.Core.Emit("serde_wasm_bindgen::Error")>]] type
serde_wasm_bindgen_Error = class end
[[<Fable.Core.Erase; Fable.Core.Emit("std::ffi::OsStr")>]] type std_ffi_O...
── fsharp - import ─────────────────────────────────────────────────────────────
module State = let mutable trace_state = None
type [[<Struct>]] US0 =
| US0_0
| US0_1
| US0_2
| US0_3
| US0_4
and Mut0 = {mutable l0 : int64}
and Mut1 = {mutable l0 : bool}
and Mut2 = {mutable l0 : US0}
and [[<Struct>]] US1 =
| US1_0 of f0_0 : int64
| US1_1
and [[<Struct>]] US2 =
| US2_0 of f0_0 : int64
| US2_1
let rec method1 (v0 : int64 option) : int64 option =
v0
and method2 (v0 : int64 option) : int64 option =
v0
and closure3 () () : struct (Mut0 * Mut1 * Mut1 * Mut2 * int64 option) =
let v0 : Mut1 = {l0 = true} : Mut1
let v1 : Mut0 = {l0 = 0L} : Mut0
let v2 : US0 = US0_0
let v3 : Mut2 = {l0 = v2} : Mut2
let v4 : Mut1 = {l0 = false} : Mut1
let v5 : int64 option option = None
...
── fsharp - import ─────────────────────────────────────────────────────────────
module SpiralTrace =
let get_trace_state () =
#if !INTERACTIVE
Trace.get_trace_state ()
#else
get_trace_state ()
#endif
let trace x =
#if !INTERACTIVE
Trace.trace x
#else
trace x
#endif
type TraceLevel =
#if !INTERACTIVE
Trace.US0
#else
US0
#endif
#if !FABLE_COMPILER && !WASM && !CONTRACT
module SpiralAsync =
let merge_cancellation_token_with_default_async x =
#if !INTERACTIVE
Async_.merge_cancellation_token_with_default_async x
#else
merge_cancellation_token_with_default_async x
#endif
module SpiralRuntime =
let get_executable_suffix () =
#if !INTERACTIVE
Runtime.get_executable_suffix ()
#else
get_executable_suffix ()
#endif
let is...
── fsharp - import ─────────────────────────────────────────────────────────────
#r @"../../../../../../../.nuget/packages/expecto/10.2.1/lib/net6.0/Expecto.dll"
── fsharp - import ─────────────────────────────────────────────────────────────
//// test
type AssertExceptionFormatter (ex) =
member _.Text =
ex.ToString()
.Replace("32m", "<span style=\"color: green;\">")
.Replace("36m", "</span>")
.Replace("31m", "<span style=\"color: red;\">")
.Replace("\n", "<br/>\n")
Formatter.Register<AssertExceptionFormatter> ((fun (x :
AssertExceptionFormatter) -> x.Text), "text/html")
── fsharp - import ─────────────────────────────────────────────────────────────
//// test
let inline __expect fn log expected actual =
if log then printfn $"{actual.ToDisplayString ()}"
try
"Testing.__expect" |> fn actual expected
with :? Expecto.AssertException as ex ->
AssertExceptionFormatter(ex).Display () |> ignore
failwith (ex.GetType().FullName)
let inline __contains log expected actual = __expect Expecto.Expect.contains log
expected actual
let inline _contains expected actual = __contains true expected actual
let inline __assertEqual log expected actual = __expect Expecto.Expect.equal log
expected actual
let inline _assertEqual expected actual = __assertEqual true expected actual
let inline __isGreaterThan log expected actual = __expect
Expecto.Expect.isGreaterThan log ex...
── fsharp - import ─────────────────────────────────────────────────────────────
//// test
let inline __isBetween log a b actual =
let inline isBetween actual (a, b) _ =
__isGreaterThanOrEqual log a actual
__isLessThanOrEqual log b actual
__expect isBetween log (a, b) actual
let inline _isBetween a b actual = __isBetween true a b actual
── fsharp ──────────────────────────────────────────────────────────────────────
#!import ../../lib/fsharp/Common.fs
── fsharp - import ─────────────────────────────────────────────────────────────
#if !INTERACTIVE
namespace Polyglot
#endif
module Common =
#if !INTERACTIVE
open Lib
#endif
let nl = System.Environment.NewLine
let q = @""""
let inline cons head tail = head :: tail
/// ## memoize
let inline memoize fn =
let result = lazy fn ()
fun () -> result.Value
/// ## TraceLevel
type TraceLevel =
| Verbose
| Debug
| Info
| Warning
| Critical
let inline getLocals () = ""
/// ## trace
let to_trace_level = function
| Verbose -> SpiralTrace.TraceLevel.US0_0
| Debug -> SpiralTrace.TraceLevel.US0_1
| Info -> SpiralTrace.TraceLevel.US0_2
| Warning -> SpiralTrace.TraceLevel.US0_3
| Critical ->...
── fsharp ──────────────────────────────────────────────────────────────────────
open Common
── markdown ────────────────────────────────────────────────────────────────────
╭──────────────────────────────────────────────────────────────────────────────╮
│ ### TextInput │
╰──────────────────────────────────────────────────────────────────────────────╯
── fsharp ──────────────────────────────────────────────────────────────────────
type Position =
{
line : int
column : int
}
── fsharp ──────────────────────────────────────────────────────────────────────
let initialPos = { line = 0; column = 0 }
── fsharp ──────────────────────────────────────────────────────────────────────
let inline incrCol (pos : Position) =
{ pos with column = pos.column + 1 }
── fsharp ──────────────────────────────────────────────────────────────────────
let inline incrLine pos =
{ line = pos.line + 1; column = 0 }
── fsharp ──────────────────────────────────────────────────────────────────────
type InputState =
{
lines : string[[]]
position : Position
}
── fsharp ──────────────────────────────────────────────────────────────────────
let inline fromStr str =
{
lines =
if str |> String.IsNullOrEmpty
then [[||]]
else str |> SpiralSm.split_string [[| "\r\n"; "\n" |]]
position = initialPos
}
── fsharp ──────────────────────────────────────────────────────────────────────
//// test
fromStr "" |> _assertEqual {
lines = [[||]]
position = { line = 0; column = 0 }
}
╭─[ 48.15ms - stdout ]─────────────────────────────────────────────────────────╮
│ InputState │
│ lines: [ ] │
│ position: Position │
│ line: 0 │
│ column: 0 │
│ │
╰──────────────────────────────────────────────────────────────────────────────╯
── fsharp ──────────────────────────────────────────────────────────────────────
//// test
fromStr "Hello \n World" |> _assertEqual {
lines = [[| "Hello "; " World" |]]
position = { line = 0; column = 0 }
}
╭─[ 21.01ms - stdout ]─────────────────────────────────────────────────────────╮
│ InputState │
│ lines: [ Hello , World ] │
│ position: Position │
│ line: 0 │
│ column: 0 │
│ │
╰──────────────────────────────────────────────────────────────────────────────╯
── fsharp ──────────────────────────────────────────────────────────────────────
let inline currentLine inputState =
let linePos = inputState.position.line
if linePos < inputState.lines.Length
then inputState.lines.[[linePos]]
else "end of file"
── fsharp ──────────────────────────────────────────────────────────────────────
let inline nextChar input =
let linePos = input.position.line
let colPos = input.position.column
if linePos >= input.lines.Length
then input, None
else
let currentLine = currentLine input
if colPos < currentLine.Length then
let char = currentLine.[[colPos]]
let newPos = incrCol input.position
let newState = { input with position = newPos }
newState, Some char
else
let char = '\n'
let newPos = incrLine input.position
let newState = { input with position = newPos }
newState, Some char
── fsharp ──────────────────────────────────────────────────────────────────────
//// test
let newInput, charOpt = fromStr "Hello World" |> nextChar
newInput |> _assertEqual {
lines = [[| "Hello World" |]]
position = { line = 0; column = 1 }
}
charOpt |> _assertEqual (Some 'H')
╭─[ 34.54ms - stdout ]─────────────────────────────────────────────────────────╮
│ InputState │
│ lines: [ Hello World ] │
│ position: Position │
│ line: 0 │
│ column: 1 │
│ FSharpOption<Char> │
│ Value: H │
│ │
╰──────────────────────────────────────────────────────────────────────────────╯
── fsharp ──────────────────────────────────────────────────────────────────────
//// test
let newInput, charOpt = fromStr "Hello\n\nWorld" |> nextChar
newInput |> _assertEqual {
lines = [[| "Hello"; ""; "World" |]]
position = { line = 0; column = 1 }
}
charOpt |> _assertEqual (Some 'H')
╭─[ 27.23ms - stdout ]─────────────────────────────────────────────────────────╮
│ InputState │
│ lines: [ Hello, , World ] │
│ position: Position │
│ line: 0 │
│ column: 1 │
│ FSharpOption<Char> │
│ Value: H │
│ │
╰──────────────────────────────────────────────────────────────────────────────╯
── markdown ────────────────────────────────────────────────────────────────────
╭──────────────────────────────────────────────────────────────────────────────╮
│ ### Parser │
╰──────────────────────────────────────────────────────────────────────────────╯
── fsharp ──────────────────────────────────────────────────────────────────────
type Input = InputState
type ParserLabel = string
type ParserError = string
type ParserPosition =
{
currentLine : string
line : int
column : int
}
type ParseResult<'a> =
| Success of 'a
| Failure of ParserLabel * ParserError * ParserPosition
type Parser<'a> =
{
label : ParserLabel
parseFn : Input -> ParseResult<'a * Input>
}
── fsharp ──────────────────────────────────────────────────────────────────────
let inline printResult result =
match result with
| Success (value, input) ->
printfn $"%A{value}"
| Failure (label, error, parserPos) ->
let errorLine = parserPos.currentLine
let colPos = parserPos.column
let linePos = parserPos.line
let failureCaret = $"{' ' |> string |> String.replicate colPos}^{error}"
printfn $"Line:%i{linePos} Col:%i{colPos} Error parsing
%s{label}\n%s{errorLine}\n%s{failureCaret}"
── fsharp ──────────────────────────────────────────────────────────────────────
let inline runOnInput parser input =
parser.parseFn input
── fsharp ──────────────────────────────────────────────────────────────────────
let inline run parser inputStr =
runOnInput parser (fromStr inputStr)
── fsharp ──────────────────────────────────────────────────────────────────────
let inline parserPositionFromInputState (inputState : Input) =
{
currentLine = currentLine inputState
line = inputState.position.line
column = inputState.position.column
}
── fsharp ──────────────────────────────────────────────────────────────────────
let inline getLabel parser =
parser.label
── fsharp ──────────────────────────────────────────────────────────────────────
let inline setLabel parser newLabel =
{
label = newLabel
parseFn = fun input ->
match parser.parseFn input with
| Success s -> Success s
| Failure (oldLabel, err, pos) -> Failure (newLabel, err, pos)
}
── fsharp ──────────────────────────────────────────────────────────────────────
let (<?>) = setLabel
── fsharp ──────────────────────────────────────────────────────────────────────
let inline satisfy predicate label =
{
label = label
parseFn = fun input ->
let remainingInput, charOpt = nextChar input
match charOpt with
| None ->
let err = "No more input"
let pos = parserPositionFromInputState input
Failure (label, err, pos)
| Some first ->
if predicate first
then Success (first, remainingInput)
else
let err = $"Unexpected '%c{first}'"
let pos = parserPositionFromInputState input
Failure (label, err, pos)
}
── fsharp ──────────────────────────────────────────────────────────────────────
//// test
let input = fromStr "Hello"
let parser = satisfy (fun c -> c = 'H') "H"
runOnInput parser input |> _assertEqual (
Success (
'H',
{
lines = [[| "Hello" |]]
position = { line = 0; column = 1 }
}
)
)
╭─[ 35.93ms - stdout ]─────────────────────────────────────────────────────────╮
│ Success │
│ Item: - H │
│ - InputState │
│ lines: [ Hello ] │
│ position: Position │
│ line: 0 │
│ column: 1 │
│ - IsSuccess: True │
│ IsFailure: False │
│ │
╰──────────────────────────────────────────────────────────────────────────────╯
── fsharp ──────────────────────────────────────────────────────────────────────
//// test
let input = fromStr "World"
let parser = satisfy (fun c -> c = 'H') "H"
runOnInput parser input |> _assertEqual (
Failure (
"H",
"Unexpected 'W'",
{
currentLine = "World"
line = 0
column = 0
}
)
)
╭─[ 30.16ms - stdout ]─────────────────────────────────────────────────────────╮
│ Failure │
│ Item1: H │
│ Item2: Unexpected 'W' │
│ Item3: ParserPosition │
│ currentLine: World │
│ line: 0 │
│ column: 0 │
│ IsSuccess: False │
│ IsFailure: True │
│ │
╰──────────────────────────────────────────────────────────────────────────────╯
── fsharp ──────────────────────────────────────────────────────────────────────
let inline bindP f p =
{
label = "unknown"
parseFn = fun input ->
match runOnInput p input with
| Failure (label, err, pos) -> Failure (label, err, pos)
| Success (value1, remainingInput) -> runOnInput (f value1)
remainingInput
}
── fsharp ──────────────────────────────────────────────────────────────────────
let inline (>>=) p f = bindP f p
── fsharp ──────────────────────────────────────────────────────────────────────
//// test
let input = fromStr "Hello"
let parser = satisfy (fun c -> c = 'H') "H"
let parser2 = parser >>= fun c -> satisfy (fun c -> c = 'e') "e"
runOnInput parser2 input |> _assertEqual (
Success (
'e',
{
lines = [[| "Hello" |]]
position = { line = 0; column = 2 }
}
)
)
╭─[ 38.42ms - stdout ]─────────────────────────────────────────────────────────╮
│ Success │
│ Item: - e │
│ - InputState │
│ lines: [ Hello ] │
│ position: Position │
│ line: 0 │
│ column: 2 │
│ - IsSuccess: True │
│ IsFailure: False │
│ │
╰──────────────────────────────────────────────────────────────────────────────╯
── fsharp ──────────────────────────────────────────────────────────────────────
//// test
let input = fromStr "World"
let parser = satisfy (fun c -> c = 'W') "W"
let parser2 = parser >>= fun c -> satisfy (fun c -> c = 'e') "e"
runOnInput parser2 input |> _assertEqual (
Failure (
"e",
"Unexpected 'o'",
{
currentLine = "World"
line = 0
column = 1
}
)
)
╭─[ 33.29ms - stdout ]─────────────────────────────────────────────────────────╮
│ Failure │
│ Item1: e │
│ Item2: Unexpected 'o' │
│ Item3: ParserPosition │
│ currentLine: World │
│ line: 0 │
│ column: 1 │
│ IsSuccess: False │
│ IsFailure: True │
│ │
╰──────────────────────────────────────────────────────────────────────────────╯
── fsharp ──────────────────────────────────────────────────────────────────────
let inline returnP x =
{
label = $"%A{x}"
parseFn = fun input -> Success (x, input)
}
── fsharp ──────────────────────────────────────────────────────────────────────
//// test
let input = fromStr "Hello"
let parser = returnP "Hello"
runOnInput parser input |> _assertEqual (
Success (
"Hello",
{
lines = [[| "Hello" |]]
position = { line = 0; column = 0 }
}
)
)
╭─[ 31.95ms - stdout ]─────────────────────────────────────────────────────────╮
│ Success │
│ Item: - Hello │
│ - InputState │
│ lines: [ Hello ] │
│ position: Position │
│ line: 0 │
│ column: 0 │
│ - IsSuccess: True │
│ IsFailure: False │
│ │
╰──────────────────────────────────────────────────────────────────────────────╯
── fsharp ──────────────────────────────────────────────────────────────────────
let inline mapP f =
bindP (f >> returnP)
── fsharp ──────────────────────────────────────────────────────────────────────
let (<!>) = mapP
── fsharp ──────────────────────────────────────────────────────────────────────
let inline (|>>) x f = f <!> x
── fsharp ──────────────────────────────────────────────────────────────────────
//// test
let input = fromStr "Hello"
let parser = satisfy (fun c -> c = 'H') "H"
let parser2 = parser |>> string
runOnInput parser2 input |> _assertEqual (
Success (
"H",
{
lines = [[| "Hello" |]]
position = { line = 0; column = 1 }
}
)
)
╭─[ 30.66ms - stdout ]─────────────────────────────────────────────────────────╮
│ Success │
│ Item: - H │
│ - InputState │
│ lines: [ Hello ] │
│ position: Position │
│ line: 0 │
│ column: 1 │
│ - IsSuccess: True │
│ IsFailure: False │
│ │
╰──────────────────────────────────────────────────────────────────────────────╯
── fsharp ──────────────────────────────────────────────────────────────────────
let inline applyP fP xP =
fP >>=
fun f ->
xP >>=
fun x ->
returnP (f x)
── fsharp ──────────────────────────────────────────────────────────────────────
let (<*>) = applyP
── fsharp ──────────────────────────────────────────────────────────────────────
let inline lift2 f xP yP =
returnP f <*> xP <*> yP
── fsharp ──────────────────────────────────────────────────────────────────────
//// test
let input = fromStr "Hello"
let parser = satisfy (fun c -> c = 'H') "H"
let parser2 = satisfy (fun c -> c = 'e') "e"
let parser3 = lift2 (fun c1 c2 -> string c1 + string c2) parser parser2
runOnInput parser3 input |> _assertEqual (
Success (
"He",
{
lines = [[| "Hello" |]]
position = { line = 0; column = 2 }
}
)
)
╭─[ 49.11ms - stdout ]─────────────────────────────────────────────────────────╮
│ Success │
│ Item: - He │
│ - InputState │
│ lines: [ Hello ] │
│ position: Position │
│ line: 0 │
│ column: 2 │
│ - IsSuccess: True │
│ IsFailure: False │
│ │
╰──────────────────────────────────────────────────────────────────────────────╯
── fsharp ──────────────────────────────────────────────────────────────────────
let inline andThen p1 p2 =
p1 >>=
fun p1Result ->
p2 >>=
fun p2Result ->
returnP (p1Result, p2Result)
<?> $"{getLabel p1} andThen {getLabel p2}"
── fsharp ──────────────────────────────────────────────────────────────────────
let (.>>.) = andThen
── fsharp ──────────────────────────────────────────────────────────────────────
//// test
let input = fromStr "Hello"
let parser = satisfy (fun c -> c = 'H') "H"
let parser2 = satisfy (fun c -> c = 'e') "e"
let parser3 = parser .>>. parser2
runOnInput parser3 input |> _assertEqual (
Success (
('H', 'e'),
{
lines = [[| "Hello" |]]
position = { line = 0; column = 2 }
}
)
)
╭─[ 49.82ms - stdout ]─────────────────────────────────────────────────────────╮
│ Success │
│ Item: - ( H, e ) │
│ - InputState │
│ lines: [ Hello ] │
│ position: Position │
│ line: 0 │
│ column: 2 │
│ - IsSuccess: True │
│ IsFailure: False │
│ │
╰──────────────────────────────────────────────────────────────────────────────╯
── fsharp ──────────────────────────────────────────────────────────────────────
let inline orElse p1 p2 =
{
label = $"{getLabel p1} orElse {getLabel p2}"
parseFn = fun input ->
match runOnInput p1 input with
| Success _ as result -> result
| Failure _ -> runOnInput p2 input
}
── fsharp ──────────────────────────────────────────────────────────────────────
let (<|>) = orElse
── fsharp ──────────────────────────────────────────────────────────────────────
//// test
let input = fromStr "hello"
let parser = satisfy (fun c -> c = 'H') "H"
let parser2 = satisfy (fun c -> c = 'h') "h"
let parser3 = parser <|> parser2
runOnInput parser3 input |> _assertEqual (
Success (
'h',
{
lines = [[| "hello" |]]
position = { line = 0; column = 1 }
}
)
)
╭─[ 33.92ms - stdout ]─────────────────────────────────────────────────────────╮
│ Success │
│ Item: - h │
│ - InputState │
│ lines: [ hello ] │
│ position: Position │
│ line: 0 │
│ column: 1 │
│ - IsSuccess: True │
│ IsFailure: False │
│ │
╰──────────────────────────────────────────────────────────────────────────────╯
── fsharp ──────────────────────────────────────────────────────────────────────
let inline choice listOfParsers =
listOfParsers |> List.reduce (<|>)
── fsharp ──────────────────────────────────────────────────────────────────────
//// test
let input = fromStr "hello"
let parser = satisfy (fun c -> c = 'H') "H"
let parser2 = satisfy (fun c -> c = 'h') "h"
let parser3 = choice [[ parser; parser2 ]]
runOnInput parser3 input |> _assertEqual (
Success (
'h',
{
lines = [[| "hello" |]]
position = { line = 0; column = 1 }
}
)
)
╭─[ 32.16ms - stdout ]─────────────────────────────────────────────────────────╮
│ Success │
│ Item: - h │
│ - InputState │
│ lines: [ hello ] │
│ position: Position │
│ line: 0 │
│ column: 1 │
│ - IsSuccess: True │
│ IsFailure: False │
│ │
╰──────────────────────────────────────────────────────────────────────────────╯
── fsharp ──────────────────────────────────────────────────────────────────────
let rec sequence parserList =
match parserList with
| [[]] -> returnP [[]]
| head :: tail -> (lift2 cons) head (sequence tail)
── fsharp ──────────────────────────────────────────────────────────────────────
//// test
let input = fromStr "Hello"
let parser = satisfy (fun c -> c = 'H') "H"
let parser2 = satisfy (fun c -> c = 'e') "e"
let parser3 = sequence [[ parser; parser2 ]]
runOnInput parser3 input |> _assertEqual (
Success (
[[ 'H'; 'e' ]],
{
lines = [[| "Hello" |]]
position = { line = 0; column = 2 }
}
)
)
╭─[ 59.04ms - stdout ]─────────────────────────────────────────────────────────╮
│ Success │
│ Item: - [ H, e ] │
│ - InputState │
│ lines: [ Hello ] │
│ position: Position │
│ line: 0 │
│ column: 2 │
│ - IsSuccess: True │
│ IsFailure: False │
│ │
╰──────────────────────────────────────────────────────────────────────────────╯
── fsharp ──────────────────────────────────────────────────────────────────────
let rec parseZeroOrMore parser input =
match runOnInput parser input with
| Failure (_, _, _) ->
[[]], input
| Success (firstValue, inputAfterFirstParse) ->
let subsequentValues, remainingInput = parseZeroOrMore parser
inputAfterFirstParse
firstValue :: subsequentValues, remainingInput
── fsharp ──────────────────────────────────────────────────────────────────────
let inline many parser =
{
label = $"many {getLabel parser}"
parseFn = fun input -> Success (parseZeroOrMore parser input)
}
── fsharp ──────────────────────────────────────────────────────────────────────
//// test
let input = fromStr "hello"
let parser = satisfy (fun c -> c = 'H') "H"
let parser2 = many parser
runOnInput parser2 input |> _assertEqual (
Success (
[[]],
{
lines = [[| "hello" |]]
position = { line = 0; column = 0 }
}
)
)
╭─[ 31.38ms - stdout ]─────────────────────────────────────────────────────────╮
│ Success │
│ Item: - [ ] │
│ - InputState │
│ lines: [ hello ] │
│ position: Position │
│ line: 0 │
│ column: 0 │
│ - IsSuccess: True │
│ IsFailure: False │
│ │
╰──────────────────────────────────────────────────────────────────────────────╯
── fsharp ──────────────────────────────────────────────────────────────────────
let inline many1 p =
p >>=
fun head ->
many p >>=
fun tail ->
returnP (head :: tail)
<?> $"many1 {getLabel p}"
── fsharp ──────────────────────────────────────────────────────────────────────
//// test
let input = fromStr "hello"
let parser = satisfy (fun c -> c = 'H') "H"
let parser2 = many1 parser
runOnInput parser2 input |> _assertEqual (
Failure (
"many1 H",
"Unexpected 'h'",
{
currentLine = "hello"
line = 0
column = 0
}
)
)
╭─[ 43.05ms - stdout ]─────────────────────────────────────────────────────────╮
│ Failure │
│ Item1: many1 H │
│ Item2: Unexpected 'h' │
│ Item3: ParserPosition │
│ currentLine: hello │
│ line: 0 │
│ column: 0 │
│ IsSuccess: False │
│ IsFailure: True │
│ │
╰──────────────────────────────────────────────────────────────────────────────╯
── fsharp ──────────────────────────────────────────────────────────────────────
let inline opt p =
let some = p |>> Some
let none = returnP None
(some <|> none)
<?> $"opt {getLabel p}"
── fsharp ──────────────────────────────────────────────────────────────────────
//// test
let input = fromStr "hello"
let parser = satisfy (fun c -> c = 'H') "H"
let parser2 = opt parser
runOnInput parser2 input |> _assertEqual (
Success (
None,
{
lines = [[| "hello" |]]
position = { line = 0; column = 0 }
}
)
)
╭─[ 40.61ms - stdout ]─────────────────────────────────────────────────────────╮
│ Success │
│ Item: - <null> │
│ - InputState │
│ lines: [ hello ] │
│ position: Position │
│ line: 0 │
│ column: 0 │
│ - IsSuccess: True │
│ IsFailure: False │
│ │
╰──────────────────────────────────────────────────────────────────────────────╯
── fsharp ──────────────────────────────────────────────────────────────────────
let inline (.>>) p1 p2 =
p1 .>>. p2
|> mapP fst
── fsharp ──────────────────────────────────────────────────────────────────────
let inline (>>.) p1 p2 =
p1 .>>. p2
|> mapP snd
── fsharp ──────────────────────────────────────────────────────────────────────
let inline between p1 p2 p3 =
p1 >>. p2 .>> p3
── fsharp ──────────────────────────────────────────────────────────────────────
//// test
let input = fromStr "[[Hello]]"
let parser =
between
(satisfy (fun c -> c = '[[') "[[")
(many (satisfy (fun c -> [[ 'a' .. 'z' ]] @ [[ 'A' .. 'Z' ]] |>
List.contains c) "letter"))
(satisfy (fun c -> c = ']]') "]]")
runOnInput parser input |> _assertEqual (
Success (
[[ 'H'; 'e'; 'l'; 'l'; 'o' ]],
{
lines = [[| "[[Hello]]" |]]
position = { line = 0; column = 7 }
}
)
)
╭─[ 99.31ms - stdout ]─────────────────────────────────────────────────────────╮
│ Success │
│ Item: - [ H, e, l, l, o ] │
│ - InputState │
│ lines: [ [Hello] ] │
│ position: Position │
│ line: 0 │
│ column: 7 │
│ - IsSuccess: True │
│ IsFailure: False │
│ │
╰──────────────────────────────────────────────────────────────────────────────╯
── fsharp ──────────────────────────────────────────────────────────────────────
let inline sepBy1 p sep =
let sepThenP = sep >>. p
p .>>. many sepThenP
|>> fun (p, pList) -> p :: pList
── fsharp ──────────────────────────────────────────────────────────────────────
let inline sepBy p sep =
sepBy1 p sep <|> returnP [[]]
── fsharp ──────────────────────────────────────────────────────────────────────
//// test
let input = fromStr "Hello,World"
let parser = sepBy (many (satisfy (fun c -> c <> ',') "not comma")) (satisfy
(fun c -> c = ',') "comma")
runOnInput parser input |> _assertEqual (
Success (
[[ [[ 'H'; 'e'; 'l'; 'l'; 'o' ]]; [[ 'W'; 'o'; 'r'; 'l'; 'd'; '\n' ]]
]],
{
lines = [[| "Hello,World" |]]
position = { line = 1; column = 0 }
}
)
)
╭─[ 73.94ms - stdout ]─────────────────────────────────────────────────────────╮
│ Success │
│ Item: - FSharpList<FSharpList<Char>> │
│ [ H, e, l, l, o ] │
│ [ W, o, r, l, d, │
│ ] │
│ - InputState │
│ lines: [ Hello,World ] │
│ position: Position │
│ line: 1 │
│ column: 0 │
│ - IsSuccess: True │
│ IsFailure: False │
│ │
╰──────────────────────────────────────────────────────────────────────────────╯
── fsharp ──────────────────────────────────────────────────────────────────────
let inline pchar charToMatch =
satisfy ((=) charToMatch) $"%c{charToMatch}"
── fsharp ──────────────────────────────────────────────────────────────────────
let inline anyOf listOfChars =
listOfChars
|> List.map pchar
|> choice
<?> $"anyOf %A{listOfChars}"
── fsharp ──────────────────────────────────────────────────────────────────────
//// test
let input = fromStr "Hello"
let parser = anyOf [[ 'H'; 'e'; 'l'; 'o' ]] |> many
runOnInput parser input |> _assertEqual (
Success (
[[ 'H'; 'e'; 'l'; 'l'; 'o' ]],
{
lines = [[| "Hello" |]]
position = { line = 0; column = 5 }
}
)
)
╭─[ 36.83ms - stdout ]─────────────────────────────────────────────────────────╮
│ Success │
│ Item: - [ H, e, l, l, o ] │
│ - InputState │
│ lines: [ Hello ] │
│ position: Position │
│ line: 0 │
│ column: 5 │
│ - IsSuccess: True │
│ IsFailure: False │
│ │
╰──────────────────────────────────────────────────────────────────────────────╯
── fsharp ──────────────────────────────────────────────────────────────────────
let inline charListToStr charList =
charList |> List.toArray |> String
── fsharp ──────────────────────────────────────────────────────────────────────
let inline manyChars cp =
many cp
|>> charListToStr
── fsharp ──────────────────────────────────────────────────────────────────────
let inline manyChars1 cp =
many1 cp
|>> charListToStr
── fsharp ──────────────────────────────────────────────────────────────────────
//// test
let input = fromStr "Hello"
let parser = manyChars1 (anyOf [[ 'H'; 'e'; 'l'; 'o' ]])
runOnInput parser input |> _assertEqual (
Success (
"Hello",
{
lines = [[| "Hello" |]]
position = { line = 0; column = 5 }
}
)
)
╭─[ 57.85ms - stdout ]─────────────────────────────────────────────────────────╮
│ Success │
│ Item: - Hello │
│ - InputState │
│ lines: [ Hello ] │
│ position: Position │
│ line: 0 │
│ column: 5 │
│ - IsSuccess: True │
│ IsFailure: False │
│ │
╰──────────────────────────────────────────────────────────────────────────────╯
── fsharp ──────────────────────────────────────────────────────────────────────
let inline pstring str =
str
|> List.ofSeq
|> List.map pchar
|> sequence
|> mapP charListToStr
<?> str
── fsharp ──────────────────────────────────────────────────────────────────────
//// test
let input = fromStr "Hello"
let parser = pstring "Hello"
runOnInput parser input |> _assertEqual (
Success (
"Hello",
{
lines = [[| "Hello" |]]
position = { line = 0; column = 5 }
}
)
)
╭─[ 40.08ms - stdout ]─────────────────────────────────────────────────────────╮
│ Success │
│ Item: - Hello │
│ - InputState │
│ lines: [ Hello ] │
│ position: Position │
│ line: 0 │
│ column: 5 │
│ - IsSuccess: True │
│ IsFailure: False │
│ │
╰──────────────────────────────────────────────────────────────────────────────╯
── fsharp ──────────────────────────────────────────────────────────────────────
let whitespaceChar =
satisfy Char.IsWhiteSpace "whitespace"
── fsharp ──────────────────────────────────────────────────────────────────────
let spaces = many whitespaceChar
── fsharp ──────────────────────────────────────────────────────────────────────
let spaces1 = many1 whitespaceChar
── fsharp ──────────────────────────────────────────────────────────────────────
//// test
let input = fromStr " Hello"
let parser = spaces1 .>>. pstring "Hello"
runOnInput parser input |> _assertEqual (
Success (
([[ ' '; ' ' ]], "Hello"),
{
lines = [[| " Hello" |]]
position = { line = 0; column = 7 }
}
)
)
╭─[ 49.30ms - stdout ]─────────────────────────────────────────────────────────╮
│ Success │
│ Item: - - [ , ] │
│ - Hello │
│ - InputState │
│ lines: [ Hello ] │
│ position: Position │
│ line: 0 │
│ column: 7 │
│ - IsSuccess: True │
│ IsFailure: False │
│ │
╰──────────────────────────────────────────────────────────────────────────────╯
── fsharp ──────────────────────────────────────────────────────────────────────
let digitChar =
satisfy Char.IsDigit "digit"
── fsharp ──────────────────────────────────────────────────────────────────────
//// test
let input = fromStr "Hello"
let parser = digitChar
runOnInput parser input |> _assertEqual (
Failure (
"digit",
"Unexpected 'H'",
{
currentLine = "Hello"
line = 0
column = 0
}
)
)
╭─[ 22.95ms - stdout ]─────────────────────────────────────────────────────────╮
│ Failure │
│ Item1: digit │
│ Item2: Unexpected 'H' │
│ Item3: ParserPosition │
│ currentLine: Hello │
│ line: 0 │
│ column: 0 │
│ IsSuccess: False │
│ IsFailure: True │
│ │
╰──────────────────────────────────────────────────────────────────────────────╯
── fsharp ──────────────────────────────────────────────────────────────────────
let pint =
let inline resultToInt (sign, digits) =
let i = int digits
match sign with
| Some ch -> -i
| None -> i
let digits = manyChars1 digitChar
opt (pchar '-') .>>. digits
|> mapP resultToInt
<?> "integer"
── fsharp ──────────────────────────────────────────────────────────────────────
//// test
run pint "-123"
|> _assertEqual (
Success (
-123,
{
lines = [[| "-123" |]]
position = { line = 0; column = 4 }
}
)
)
╭─[ 31.62ms - stdout ]─────────────────────────────────────────────────────────╮
│ Success │
│ Item: - -123 │
│ - InputState │
│ lines: [ -123 ] │
│ position: Position │
│ line: 0 │
│ column: 4 │
│ - IsSuccess: True │
│ IsFailure: False │
│ │
╰──────────────────────────────────────────────────────────────────────────────╯
── fsharp ──────────────────────────────────────────────────────────────────────
let pfloat =
let inline resultToFloat (((sign, digits1), point), digits2) =
let fl = float $"{digits1}.{digits2}"
match sign with
| Some ch -> -fl
| None -> fl
let digits = manyChars1 digitChar
opt (pchar '-') .>>. digits .>>. pchar '.' .>>. digits
|> mapP resultToFloat
<?> "float"
── fsharp ──────────────────────────────────────────────────────────────────────
//// test
run pfloat "-123.45"
|> _assertEqual (
Success (
-123.45,
{
lines = [[| "-123.45" |]]
position = { line = 0; column = 7 }
}
)
)
╭─[ 32.48ms - stdout ]─────────────────────────────────────────────────────────╮
│ Success │
│ Item: - -123.45 │
│ - InputState │
│ lines: [ -123.45 ] │
│ position: Position │
│ line: 0 │
│ column: 7 │
│ - IsSuccess: True │
│ IsFailure: False │
│ │
╰──────────────────────────────────────────────────────────────────────────────╯
── fsharp ──────────────────────────────────────────────────────────────────────
let inline createParserForwardedToRef<'a> () =
let mutable parserRef : Parser<'a> =
{
label = "unknown"
parseFn = fun _ -> failwith "unfixed forwarded parser"
}
let wrapperParser =
{ parserRef with
parseFn = fun input -> runOnInput parserRef input
}
wrapperParser, (fun v -> parserRef <- v)
── fsharp ──────────────────────────────────────────────────────────────────────
let inline (>>%) p x =
p
|>> fun _ -> x
[NbConvertApp] Converting notebook Parser.dib.ipynb to html
C:\Users\i574n\scoop\apps\python\current\Lib\site-packages\nbformat\__init__.py:93: MissingIDFieldWarning: Code cell is missing an id field, this will become a hard error in future nbformat versions. You may want to use `normalize()` on your notebooks before validations (available since nbformat 5.1.4). Previous versions of nbformat are fixing this issue transparently, and will stop doing so in the future.
validate(nb)
C:\Users\i574n\scoop\apps\python\current\Lib\site-packages\nbconvert\filters\highlight.py:71: UserWarning: IPython3 lexer unavailable, falling back on Python 3
return _pygments_highlight(
[NbConvertApp] Writing 415273 bytes to Parser.dib.html
00:00:00 #1 [debug] writeDibCode / output: Fs / path: Parser.dib
00:00:00 #1 [debug] writeDibCode / output: Fs / path: JsonParser.dib
00:00:00 #3 [debug] parseDibCode / output: Fs / file: JsonParser.dib
00:00:00 #2 [debug] parseDibCode / output: Fs / file: Parser.dib
In [ ]:
{ . "$ScriptDir/../apps/spiral/build.ps1" } | Invoke-Block
── markdown ────────────────────────────────────────────────────────────────────
╭──────────────────────────────────────────────────────────────────────────────╮
│ # Supervisor (Polyglot) │
╰──────────────────────────────────────────────────────────────────────────────╯
── fsharp ──────────────────────────────────────────────────────────────────────
#r
@"../../../../../../../.nuget/packages/fsharp.control.asyncseq/3.2.1/lib/netstan
dard2.1/FSharp.Control.AsyncSeq.dll"
#r
@"../../../../../../../.nuget/packages/system.reactive/6.0.1-preview.1/lib/net6.
0/System.Reactive.dll"
#r
@"../../../../../../../.nuget/packages/system.reactive.linq/6.0.1-preview.1/lib/
netstandard2.0/System.Reactive.Linq.dll"
#r
@"../../../../../../../.nuget/packages/argu/6.2.2/lib/netstandard2.0/Argu.dll"
#r
@"../../../../../../../.nuget/packages/system.commandline/2.0.0-beta4.22272.1/li
b/net6.0/System.CommandLine.dll"
#r
@"../../../../../../../.nuget/packages/microsoft.aspnetcore.http.connections.com
mon/7.0.0/lib/net7.0/Microsoft.AspNetCore.Http.Connections.Common.dll"
#r
@"../../../../../../../.nuget/packages/microsoft.aspnetcore.http.connections.cli
ent/7.0.0/lib/net7.0/Microsoft.AspNetCore.Http.Connections.Client.dll"
#r
@"../../../../../../../.nuget/packages/microsoft.aspnetcore.signalr.common/7.0.0
/lib/net7.0/Microsoft.AspNetCore.SignalR.Common.dll"
#r
@"../../../../../../../.nuget/packages/microsoft.aspnetcore.signalr.client/7.0.0
/lib/net7.0/Microsoft.AspNetCore.SignalR.Client.dll"
#r
@"../../../../../../../.nuget/packages/microsoft.aspnetcore.signalr.client.core/
7.0.0/lib/net7.0/Microsoft.AspNetCore.SignalR.Client.Core.dll"
#r
@"../../../../../../../.nuget/packages/fsharp.json/0.4.1/lib/netstandard2.0/FSha
rp.Json.dll"
── fsharp - import ─────────────────────────────────────────────────────────────
#r
"C:/Users/i574n/.nuget/packages/dotnet-repl/0.1.204/tools/net7.0/any/Microsoft.A
spNetCore.Html.Abstractions.dll"
#r
"C:/Users/i574n/.nuget/packages/dotnet-repl/0.1.204/tools/net7.0/any/Microsoft.D
otNet.Interactive.dll"
#r
"C:/Users/i574n/.nuget/packages/dotnet-repl/0.1.204/tools/net7.0/any/Microsoft.D
otNet.Interactive.FSharp.dll"
#r
"C:/Users/i574n/.nuget/packages/dotnet-repl/0.1.204/tools/net7.0/any/Microsoft.D
otNet.Interactive.Formatting.dll"
open System
open System.IO
open System.Text
open Microsoft.DotNet.Interactive.Formatting
── fsharp - import ─────────────────────────────────────────────────────────────
#r
"C:/Users/i574n/.nuget/packages/dotnet-repl/0.1.204/tools/net7.0/any/Microsoft.D
otNet.Interactive.FSharp.dll"
open Microsoft.DotNet.Interactive.FSharp.FSharpKernelHelpers
#r
"C:/Users/i574n/.nuget/packages/dotnet-repl/0.1.204/tools/net7.0/any/Microsoft.D
otNet.Interactive.dll"
open type Microsoft.DotNet.Interactive.Kernel
── fsharp - import ─────────────────────────────────────────────────────────────
#r
@"../../../../../../../.nuget/packages/fsharp.control.asyncseq/3.2.1/lib/netstan
dard2.1/FSharp.Control.AsyncSeq.dll"
#r
@"../../../../../../../.nuget/packages/system.reactive/6.0.1-preview.1/lib/net6.
0/System.Reactive.dll"
#r
@"../../../../../../../.nuget/packages/system.reactive.linq/6.0.1-preview.1/lib/
netstandard2.0/System.Reactive.Linq.dll"
#r
@"../../../../../../../.nuget/packages/argu/6.2.2/lib/netstandard2.0/Argu.dll"
#r
@"../../../../../../../.nuget/packages/system.commandline/2.0.0-beta4.22272.1/li
b/net6.0/System.CommandLine.dll"
#r
@"../../../../../../../.nuget/packages/microsoft.aspnetcore.http.connections.com
mon/7.0.0/lib/net7.0/Microsoft.AspNetCore.Http.Connections.Common.dll"
#r @"../../../../../../../.nuget/packages/micros...
── fsharp ──────────────────────────────────────────────────────────────────────
#!import ../../lib/fsharp/Notebooks.dib
#!import ../../lib/fsharp/Testing.dib
── fsharp - import ─────────────────────────────────────────────────────────────
//// test
Formatter.ListExpansionLimit <- 100
── fsharp - import ─────────────────────────────────────────────────────────────
type [[<Struct>]] US0 =
| US0_0
| US0_1
and [[<Struct>]] US1 =
| US1_0 of f0_0 : US0
| US1_1
let rec closure0 () (v0 : (unit -> unit)) : System.IDisposable =
let v1 : System.IDisposable option = None
let mutable _v1 = v1
#if FABLE_COMPILER_RUST && !WASM && !CONTRACT
let v2 : System.IDisposable = null |> unbox<System.IDisposable>
v2
#endif
#if FABLE_COMPILER_RUST && WASM
let v3 : System.IDisposable = null |> unbox<System.IDisposable>
v3
#endif
#if FABLE_COMPILER_RUST && CONTRACT
let v4 : System.IDisposable = null |> unbox<System.IDisposable>
v4
#endif
#if !FABLE_COMPILER && !FABLE_COMPILER_RUST && !FABLE_COMPILER_TYPESCRIPT &&
!WASM && !CONTRACT
let v5 : System.ID...
── fsharp - import ─────────────────────────────────────────────────────────────
type Mut0 = {mutable l0 : int32; mutable l1 : string}
and Mut1 = {mutable l0 : int32}
let rec closure1 (v0 : string) (v1 : string) : bool =
let v2 : bool = v1.Contains v0
v2
and closure0 () (v0 : string) : (string -> bool) =
closure1(v0)
and closure3 (v0 : string) (v1 : string) : bool =
let v2 : bool = v1.EndsWith v0
v2
and closure2 () (v0 : string) : (string -> bool) =
closure3(v0)
and closure6 (v0 : int32, v1 : char) (v2 : string) : string =
let v3 : string = v2.PadLeft (v0, v1)
v3
and closure5 (v0 : int32) (v1 : char) : (string -> string) =
closure6(v0, v1)
and closure4 () (v0 : int32) : (char -> (string -> string)) =
closure5(v0)
and closure8 (v0 : int32) (v1 : string) : string =
let v2 : stri...
── fsharp - import ─────────────────────────────────────────────────────────────
type ICryptoCreateHash = abstract createHash: x: string -> obj
type Mut0 = {mutable l0 : int32}
let rec method0 (v0 : int32, v1 : Mut0) : bool =
let v2 : int32 = v1.l0
let v3 : bool = v2 < v0
v3
and method1 () : string =
let v0 : string = ""
v0
and closure0 () (v0 : string) : string =
let v1 : string option = None
let mutable _v1 = v1
#if FABLE_COMPILER_RUST && !WASM && !CONTRACT
let v2 : string = null |> unbox<string>
v2
#endif
#if FABLE_COMPILER_RUST && WASM
let v3 : string = null |> unbox<string>
v3
#endif
#if FABLE_COMPILER_RUST && CONTRACT
let v4 : string = null |> unbox<string>
v4
#endif
#if !FABLE_COMPILER && !FABLE_COMPILER_RUST && !FABLE_COMPILER_TYP...
── fsharp - import ─────────────────────────────────────────────────────────────
let rec closure1 (v0 : System.Guid) (v1 : System.DateTime) : System.Guid =
let v2 : (System.Guid -> string) = _.ToString()
let v3 : string = v2 v0
let v4 : string = v1.ToString "yyyyMMdd-HHmm-ssff-ffff-f"
let v5 : System.Guid = System.Guid $"{v4}{v3.[[v4.Length..]]}"
v5
and closure0 () (v0 : System.Guid) : (System.DateTime -> System.Guid) =
closure1(v0)
and closure5 (v0 : string, v1 : string) (v2 : string) : string =
let v3 : string = v2.Replace (v0, v1)
v3
and closure4 (v0 : string) (v1 : string) : (string -> string) =
closure5(v0, v1)
and closure3 () (v0 : string) : (string -> (string -> string)) =
closure4(v0)
and method0 () : (string -> (string -> (string -> string))) =
closure3()
and closure2 (...
── fsharp - import ─────────────────────────────────────────────────────────────
let rec closure0 () (v0 : System.Threading.CancellationToken) :
Async<System.Threading.CancellationToken> =
let v1 : Async<System.Threading.CancellationToken> option = None
let mutable _v1 = v1
#if FABLE_COMPILER_RUST && !WASM && !CONTRACT
let v2 : Async<System.Threading.CancellationToken> = null |>
unbox<Async<System.Threading.CancellationToken>>
v2
#endif
#if FABLE_COMPILER_RUST && WASM
let v3 : Async<System.Threading.CancellationToken> = null |>
unbox<Async<System.Threading.CancellationToken>>
v3
#endif
#if FABLE_COMPILER_RUST && CONTRACT
let v4 : Async<System.Threading.CancellationToken> = null |>
unbox<Async<System.Threading.CancellationToken>>
v4
#endif
#if !FABLE_COMPILER...
── fsharp - import ─────────────────────────────────────────────────────────────
#if FABLE_COMPILER
[[<CompilationRepresentation (CompilationRepresentationFlags.ModuleSuffix)>]]
module System =
module Diagnostics =
type Process = unit
type DataReceivedEventArgs = unit
#endif
module State = let mutable trace_state = None
type [[<Struct>]] US0 =
| US0_0
| US0_1
| US0_2
| US0_3
| US0_4
and UH0 =
| UH0_0
| UH0_1 of char * UH0
and [[<Struct>]] US2 =
| US2_0
| US2_1
and [[<Struct>]] US1 =
| US1_0
| US1_1 of f1_0 : US2
| US1_2
and [[<Struct>]] US3 =
| US3_0 of f0_0 : string
| US3_1
and Mut0 = {mutable l0 : int64}
and Mut1 = {mutable l0 : bool}
and Mut2 = {mutable l0 : US0}
and [[<Struct>]] US4 =
| US4_0 of f0_0 : int64
| US4_1
and [[<Struct>]] US5 =
| US5_0 of f0_0 : i...
── fsharp - import ─────────────────────────────────────────────────────────────
#if FABLE_COMPILER // file_system.types
[[<Fable.Core.Erase; Fable.Core.Emit("str")>]] type Str = class end
[[<Fable.Core.Erase; Fable.Core.Emit("base64::DecodeError")>]] type
base64_DecodeError = class end
[[<Fable.Core.Erase; Fable.Core.Emit("borsh::io::Error")>]] type borsh_io_Error
= class end
[[<Fable.Core.Erase; Fable.Core.Emit("js_sys::JsString")>]] type js_sys_JsString
= class end
[[<Fable.Core.Erase; Fable.Core.Emit("serde_json::Error")>]] type
serde_json_Error = class end
[[<Fable.Core.Erase; Fable.Core.Emit("serde_json::Value")>]] type
serde_json_Value = class end
[[<Fable.Core.Erase; Fable.Core.Emit("serde_wasm_bindgen::Error")>]] type
serde_wasm_bindgen_Error = class end
[[<Fable.Core.Erase; Fable.Core.Emit("std::ffi::OsStr")>]] type std_ffi_O...
── fsharp - import ─────────────────────────────────────────────────────────────
module State = let mutable trace_state = None
type [[<Struct>]] US0 =
| US0_0
| US0_1
| US0_2
| US0_3
| US0_4
and Mut0 = {mutable l0 : int64}
and Mut1 = {mutable l0 : bool}
and Mut2 = {mutable l0 : US0}
and [[<Struct>]] US1 =
| US1_0 of f0_0 : int64
| US1_1
and [[<Struct>]] US2 =
| US2_0 of f0_0 : int64
| US2_1
let rec method1 (v0 : int64 option) : int64 option =
v0
and method2 (v0 : int64 option) : int64 option =
v0
and closure3 () () : struct (Mut0 * Mut1 * Mut1 * Mut2 * int64 option) =
let v0 : Mut1 = {l0 = true} : Mut1
let v1 : Mut0 = {l0 = 0L} : Mut0
let v2 : US0 = US0_0
let v3 : Mut2 = {l0 = v2} : Mut2
let v4 : Mut1 = {l0 = false} : Mut1
let v5 : int64 option option = None
...
── fsharp - import ─────────────────────────────────────────────────────────────
module SpiralTrace =
let get_trace_state () =
#if !INTERACTIVE
Trace.get_trace_state ()
#else
get_trace_state ()
#endif
let trace x =
#if !INTERACTIVE
Trace.trace x
#else
trace x
#endif
type TraceLevel =
#if !INTERACTIVE
Trace.US0
#else
US0
#endif
#if !FABLE_COMPILER && !WASM && !CONTRACT
module SpiralAsync =
let merge_cancellation_token_with_default_async x =
#if !INTERACTIVE
Async_.merge_cancellation_token_with_default_async x
#else
merge_cancellation_token_with_default_async x
#endif
module SpiralRuntime =
let get_executable_suffix () =
#if !INTERACTIVE
Runtime.get_executable_suffix ()
#else
get_executable_suffix ()
#endif
let is...
── fsharp - import ─────────────────────────────────────────────────────────────
#r @"../../../../../../../.nuget/packages/expecto/10.2.1/lib/net6.0/Expecto.dll"
── fsharp - import ─────────────────────────────────────────────────────────────
//// test
type AssertExceptionFormatter (ex) =
member _.Text =
ex.ToString()
.Replace("32m", "<span style=\"color: green;\">")
.Replace("36m", "</span>")
.Replace("31m", "<span style=\"color: red;\">")
.Replace("\n", "<br/>\n")
Formatter.Register<AssertExceptionFormatter> ((fun (x :
AssertExceptionFormatter) -> x.Text), "text/html")
── fsharp - import ─────────────────────────────────────────────────────────────
//// test
let inline __expect fn log expected actual =
if log then printfn $"{actual.ToDisplayString ()}"
try
"Testing.__expect" |> fn actual expected
with :? Expecto.AssertException as ex ->
AssertExceptionFormatter(ex).Display () |> ignore
failwith (ex.GetType().FullName)
let inline __contains log expected actual = __expect Expecto.Expect.contains log
expected actual
let inline _contains expected actual = __contains true expected actual
let inline __assertEqual log expected actual = __expect Expecto.Expect.equal log
expected actual
let inline _assertEqual expected actual = __assertEqual true expected actual
let inline __isGreaterThan log expected actual = __expect
Expecto.Expect.isGreaterThan log ex...
── fsharp - import ─────────────────────────────────────────────────────────────
//// test
let inline __isBetween log a b actual =
let inline isBetween actual (a, b) _ =
__isGreaterThanOrEqual log a actual
__isLessThanOrEqual log b actual
__expect isBetween log (a, b) actual
let inline _isBetween a b actual = __isBetween true a b actual
── fsharp ──────────────────────────────────────────────────────────────────────
#!import ../../lib/fsharp/Common.fs
#!import ../../lib/fsharp/CommonFSharp.fs
#!import ../../lib/fsharp/Threading.fs
#!import ../../lib/fsharp/Async.fs
#!import ../../lib/fsharp/AsyncSeq.fs
#!import ../../lib/fsharp/Networking.fs
#!import ../../lib/fsharp/Runtime.fs
#!import ../../lib/fsharp/FileSystem.fs
── fsharp - import ─────────────────────────────────────────────────────────────
#if !INTERACTIVE
namespace Polyglot
#endif
module Common =
#if !INTERACTIVE
open Lib
#endif
let nl = System.Environment.NewLine
let q = @""""
let inline cons head tail = head :: tail
/// ## memoize
let inline memoize fn =
let result = lazy fn ()
fun () -> result.Value
/// ## TraceLevel
type TraceLevel =
| Verbose
| Debug
| Info
| Warning
| Critical
let inline getLocals () = ""
/// ## trace
let to_trace_level = function
| Verbose -> SpiralTrace.TraceLevel.US0_0
| Debug -> SpiralTrace.TraceLevel.US0_1
| Info -> SpiralTrace.TraceLevel.US0_2
| Warning -> SpiralTrace.TraceLevel.US0_3
| Critical ->...
── fsharp - import ─────────────────────────────────────────────────────────────
#if !INTERACTIVE
namespace Polyglot
#endif
module CommonFSharp =
open Common
/// ## getUnionCaseName
let inline getUnionCaseName<'T> (x: 'T) =
match Reflection.FSharpValue.GetUnionFields(x, typeof<'T>) with
| case, _ -> case.Name
── fsharp - import ─────────────────────────────────────────────────────────────
#if !INTERACTIVE
namespace Polyglot
#endif
module Threading =
open Common
/// ## newDisposableToken
let inline newDisposableToken (mergeToken:
System.Threading.CancellationToken option) =
let cts = new System.Threading.CancellationTokenSource ()
let cts =
match mergeToken with
| None -> cts
| Some mergeToken ->
System.Threading.CancellationTokenSource.CreateLinkedTokenSource
[[| cts.Token; mergeToken |]]
let disposable = new_disposable cts.Cancel
cts.Token, disposable
── fsharp - import ─────────────────────────────────────────────────────────────
#if !INTERACTIVE
namespace Polyglot
#endif
module Async =
#if !INTERACTIVE
open Lib
#endif
open Common
/// ## choice
let inline choice asyncs = async {
let e = Event<_> ()
use cts = new System.Threading.CancellationTokenSource ()
let fn =
asyncs
|> Seq.map (fun a -> async {
let! x = a
e.Trigger x
})
|> Async.Parallel
|> Async.Ignore
Async.Start (fn, cts.Token)
let! result = Async.AwaitEvent e.Publish
cts.Cancel ()
return result
}
/// ## map
let inline map fn a = async {
let! x = a
return fn x
}
/// ## catch
let inline catch a =
...
── fsharp - import ─────────────────────────────────────────────────────────────
#if !INTERACTIVE
namespace Polyglot
#endif
module AsyncSeq =
#if !INTERACTIVE
open Lib
#endif
open Common
/// ## subscribeEvent
let inline subscribeEvent (event: IEvent<'H, 'A>) map =
let observable = System.Reactive.Linq.Observable.FromEventPattern<'H,
'A>(event.AddHandler, event.RemoveHandler)
System.Reactive.Linq.Observable.Select (observable, fun event -> map
event.EventArgs)
|> FSharp.Control.AsyncSeq.ofObservableBuffered
let subscribeToken (token : System.Threading.CancellationToken) =
let tcs = new System.Threading.Tasks.TaskCompletionSource ()
System.Action tcs.SetResult |> token.Register |> ignore
let start = System.DateTime.Now.Ticks
FSharp.Control.A...
── fsharp - import ─────────────────────────────────────────────────────────────
#if !INTERACTIVE
namespace Polyglot
#endif
module Networking =
#if !INTERACTIVE
open Lib
#endif
open Common
/// ## testPortOpen
let inline testPortOpen port = async {
let! ct = Async.CancellationToken
use client = new System.Net.Sockets.TcpClient ()
try
do! client.ConnectAsync ("127.0.0.1", port, ct) |>
Async.awaitValueTaskUnit
return true
with ex ->
trace Verbose (fun () -> $"testPortOpen / ex: {ex |>
SpiralSm.format_exception}") getLocals
return false
}
let inline testPortOpenTimeout timeout port = async {
let! result =
testPortOpen port
|> Async.runWithTimeoutAsync timeout
return
...
── fsharp - import ─────────────────────────────────────────────────────────────
#if !INTERACTIVE
namespace Polyglot
#endif
module Runtime =
#if !INTERACTIVE
open Lib
#endif
open Common
/// ## splitArgs
let inline splitArgs commandLine =
commandLine
|> System.CommandLine.Parsing.CommandLineStringSplitter.Instance.Split
/// ## parseArgs
let inline parseArgs<'T when 'T :> Argu.IArgParserTemplate> args =
let assemblyName =
System.Reflection.Assembly.GetEntryAssembly().GetName().Name
let errorHandler : Argu.IExiter =
if [[ "Microsoft.DotNet.Interactive.App"; "dotnet-repl" ]] |>
List.contains assemblyName
then Argu.ExceptionExiter ()
else Argu.ProcessExiter (function Argu.ErrorCode.HelpText -> None |
_ -> Some System.ConsoleColor...
── fsharp - import ─────────────────────────────────────────────────────────────
#if !INTERACTIVE
namespace Polyglot
#endif
module FileSystem =
#if !INTERACTIVE
open Lib
#endif
open Common
open SpiralFileSystem.Operators
/// ## watchDirectory
[[<RequireQualifiedAccess>]]
type FileSystemChangeType =
| Failure
| Changed
| Created
| Deleted
| Renamed
[[<RequireQualifiedAccess>]]
type FileSystemChange =
| Failure of exn: exn
| Changed of path: string * content: string option
| Created of path: string * content: string option
| Deleted of path: string
| Renamed of oldPath: string * (string * string option)
let inline watchDirectoryWithFilter filter shouldReadContent path =
let fullPath = path |> Sys...
── fsharp ──────────────────────────────────────────────────────────────────────
#if !INTERACTIVE
open Lib
#endif
── fsharp ──────────────────────────────────────────────────────────────────────
open Common
open SpiralFileSystem.Operators
open Microsoft.AspNetCore.SignalR.Client
── markdown ────────────────────────────────────────────────────────────────────
╭──────────────────────────────────────────────────────────────────────────────╮
│ ## sendJson │
╰──────────────────────────────────────────────────────────────────────────────╯
── fsharp ──────────────────────────────────────────────────────────────────────
let inline sendJson (port : int) (json : string) = async {
let! portOpen = Networking.testPortOpen port
if portOpen then
try
let connection =
HubConnectionBuilder().WithUrl($"http://127.0.0.1:{port}").Build()
do! connection.StartAsync () |> Async.AwaitTask
let! result = connection.InvokeAsync<string>("ClientToServerMsg",
json) |> Async.AwaitTask
do! connection.StopAsync () |> Async.AwaitTask
trace Debug (fun () -> $"sendJson / port: {port} / json: {json} /
result.Length: {result |> Option.ofObj |> Option.map String.length}") getLocals
return Some result
with ex ->
trace Critical (fun () -> $"sendJson / port: {port} / json: {json} /
ex: {ex |> SpiralSm.format_exception}") getLocals
return None
else
trace Debug (fun () -> "sendJson / error: port not open") getLocals
return None
}
── markdown ────────────────────────────────────────────────────────────────────
╭──────────────────────────────────────────────────────────────────────────────╮
│ ## sendObj │
╰──────────────────────────────────────────────────────────────────────────────╯
── fsharp ──────────────────────────────────────────────────────────────────────
let inline sendObj port obj =
obj
|> System.Text.Json.JsonSerializer.Serialize
|> sendJson port
── markdown ────────────────────────────────────────────────────────────────────
╭──────────────────────────────────────────────────────────────────────────────╮
│ ## awaitCompiler │
╰──────────────────────────────────────────────────────────────────────────────╯
── fsharp ──────────────────────────────────────────────────────────────────────
type VSCPos = {| line : int; character : int |}
type VSCRange = VSCPos * VSCPos
type RString = VSCRange * string
type TracedError = {| trace : string list; message : string |}
type ClientErrorsRes =
| FatalError of string
| TracedError of TracedError
| PackageErrors of {| uri : string; errors : RString list |}
| TokenizerErrors of {| uri : string; errors : RString list |}
| ParserErrors of {| uri : string; errors : RString list |}
| TypeErrors of {| uri : string; errors : RString list |}
── fsharp ──────────────────────────────────────────────────────────────────────
let inline awaitCompiler port cancellationToken = async {
let ct, disposable = cancellationToken |> Threading.newDisposableToken
let! ct = ct |> SpiralAsync.merge_cancellation_token_with_default_async
let compiler = MailboxProcessor.Start (fun inbox -> async {
let! availablePort = Networking.getAvailablePort (Some 60) port
if availablePort <> port then
inbox.Post (port, false)
else
let repositoryRoot = SpiralFileSystem.get_source_directory () |>
SpiralFileSystem.find_parent ".paket" false
let compilerPath =
repositoryRoot </> "deps/The-Spiral-Language/The Spiral Language
2/artifacts/bin/The Spiral Language 2/release"
|> System.IO.Path.GetFullPath
let dllPath = compilerPath </> "Spiral.dll"
let command = $@"dotnet ""{dllPath}"" --port {availablePort}
--default-int i32 --default-float f64"
let onLine = fun struct (_, line, _) -> async {
if line |> SpiralSm.contains $"Server bound to:
http://localhost:{availablePort}" then
do! Networking.waitForPortAccess (Some 500) true
availablePort |> Async.Ignore
let rec loop retry = async {
let getLocals () = $"port: {availablePort} / retry:
{retry} / {getLocals ()}"
try
let pingObj = {| Ping = true |}
let! pingResult = pingObj |> sendObj availablePort
trace Verbose (fun () -> $"awaitCompiler / Ping /
result: {pingResult}") getLocals
with ex ->
trace Verbose (fun () -> $"awaitCompiler / Ping /
ex: {ex |> SpiralSm.format_exception}") getLocals
do! Async.Sleep 10
do! loop (retry + 1)
}
do! loop 0
inbox.Post (availablePort, true)
}
let! exitCode, result =
SpiralRuntime.execute_with_options_async struct (Some ct,
command, Some onLine, None, None)
trace Debug (fun () -> $"awaitCompiler / exitCode: {exitCode} /
result: {result}") getLocals
disposable.Dispose ()
}, ct)
let! serverPort, managed = compiler.Receive ()
let connection =
HubConnectionBuilder().WithUrl($"http://127.0.0.1:{serverPort}").Build ()
do! connection.StartAsync () |> Async.AwaitTask
let event = Event<_> ()
let disposable' = connection.On<string> ("ServerToClientMsg", event.Trigger)
let stream =
FSharp.Control.AsyncSeq.unfoldAsync
(fun () -> async {
let! msg = event.Publish |> Async.AwaitEvent
return Some (msg |>
FSharp.Json.Json.deserialize<ClientErrorsRes>, ())
})
()
let disposable' =
new_disposable (fun () ->
async {
disposable'.Dispose ()
do! connection.StopAsync () |> Async.AwaitTask
disposable.Dispose ()
if managed
then do! Networking.waitForPortAccess (Some 2000) false
serverPort |> Async.Ignore
}
|> Async.RunSynchronously
)
return
serverPort,
stream,
ct,
disposable'
}
── markdown ────────────────────────────────────────────────────────────────────
╭──────────────────────────────────────────────────────────────────────────────╮
│ ## getFileUri │
╰──────────────────────────────────────────────────────────────────────────────╯
── fsharp ──────────────────────────────────────────────────────────────────────
let inline getFileUri (path : string) =
let path =
if SpiralRuntime.is_windows () |> not
then path
else $"{path.[[0]] |> System.Char.ToLower}{path.[[1..]]}" |>
SpiralSm.replace "\\" "/"
$"file:///{path |> SpiralSm.trim_start [[| '/' |]]}"
── markdown ────────────────────────────────────────────────────────────────────
╭──────────────────────────────────────────────────────────────────────────────╮
│ ## getFilePathFromUri │
╰──────────────────────────────────────────────────────────────────────────────╯
── fsharp ──────────────────────────────────────────────────────────────────────
let inline getFilePathFromUri uri =
match System.Uri.TryCreate (uri, System.UriKind.Absolute) with
| true, uri -> uri.AbsolutePath |> System.IO.Path.GetFullPath
| _ -> failwith "invalid uri"
── markdown ────────────────────────────────────────────────────────────────────
╭──────────────────────────────────────────────────────────────────────────────╮
│ ## getCompilerPort │
╰──────────────────────────────────────────────────────────────────────────────╯
── fsharp ──────────────────────────────────────────────────────────────────────
let inline getCompilerPort () =
13805
── markdown ────────────────────────────────────────────────────────────────────
╭──────────────────────────────────────────────────────────────────────────────╮
│ ## serialize_obj │
╰──────────────────────────────────────────────────────────────────────────────╯
── fsharp ──────────────────────────────────────────────────────────────────────
let serializeObj obj =
obj
|> FSharp.Json.Json.serialize
|> SpiralSm.replace "\\\\" "\\"
|> SpiralSm.replace "\\r\\n" "\n"
|> SpiralSm.replace "\\n" "\n"
── markdown ────────────────────────────────────────────────────────────────────
╭──────────────────────────────────────────────────────────────────────────────╮
│ ## buildFile │
╰──────────────────────────────────────────────────────────────────────────────╯
── fsharp ──────────────────────────────────────────────────────────────────────
let inline buildFile timeout port cancellationToken path = async {
let fullPath = path |> System.IO.Path.GetFullPath
let fileDir = fullPath |> System.IO.Path.GetDirectoryName
let fileName = fullPath |> System.IO.Path.GetFileNameWithoutExtension
let! code = fullPath |> SpiralFileSystem.read_all_text_async
let stream, disposable = fileDir |> FileSystem.watchDirectory (fun _ ->
false)
use _ = disposable
let token, disposable = Threading.newDisposableToken cancellationToken
use _ = disposable
let! serverPort, errors, ct, disposable = awaitCompiler port (Some token)
use _ = disposable
let fsxContentSeq =
stream
|> FSharp.Control.AsyncSeq.chooseAsync (function
| _, (FileSystem.FileSystemChange.Changed (path, _))
when (path |> System.IO.Path.GetFileName) = $"{fileName}.fsx"
->
fileDir </> path |>
SpiralFileSystem.read_all_text_retry_async
| _ -> None |> Async.init
)
|> FSharp.Control.AsyncSeq.map (fun content ->
Some (content |> SpiralSm.replace "\r\n" "\n"), None
)
let inline printErrorData (data : {| uri : string; errors : RString list |})
=
let fileName = data.uri |> System.IO.Path.GetFileName
let errors =
data.errors
|> List.map snd
|> SpiralSm.concat "\n"
$"{fileName}:\n{errors}"
let errorsSeq =
errors
|> FSharp.Control.AsyncSeq.choose (fun error ->
match error with
| FatalError message ->
Some (message, error)
| TracedError data ->
Some (data.message, error)
| PackageErrors data when data.errors |> List.isEmpty |> not ->
Some (data |> printErrorData, error)
| TokenizerErrors data when data.errors |> List.isEmpty |> not ->
Some (data |> printErrorData, error)
| ParserErrors data when data.errors |> List.isEmpty |> not ->
Some (data |> printErrorData, error)
| TypeErrors data when data.errors |> List.isEmpty |> not ->
Some (data |> printErrorData, error)
| _ -> None
)
|> FSharp.Control.AsyncSeq.map (fun (message, error) ->
None, Some (message, error)
)
let timerSeq =
1000
|> FSharp.Control.AsyncSeq.intervalMs
|> FSharp.Control.AsyncSeq.map (fun _ -> None, None)
let outputSeq =
[[ fsxContentSeq; errorsSeq; timerSeq ]]
|> FSharp.Control.AsyncSeq.mergeAll
let! outputChild =
((None, [[]], 0), outputSeq)
||> FSharp.Control.AsyncSeq.scan (
fun (fsxContentResult, errors, typeErrorCount) (fsxContent, error)
->
match fsxContent, error with
| Some fsxContent, None -> Some fsxContent, errors,
typeErrorCount
| None, Some (_, FatalError "File main has a type error
somewhere in its path.") ->
fsxContentResult, errors, typeErrorCount + 1
| None, Some error -> fsxContentResult, error :: errors,
typeErrorCount
| None, None when typeErrorCount >= 1 ->
fsxContentResult, errors, typeErrorCount + 1
| _ -> fsxContentResult, errors, typeErrorCount
)
|> FSharp.Control.AsyncSeq.takeWhileInclusive (fun (fsxContent, errors,
typeErrorCount) ->
trace Debug (fun () -> $"buildFile / takeWhileInclusive /
fsxContent: {fsxContent |> Option.defaultValue System.String.Empty |>
SpiralSm.ellipsis_end 400} / errors: {errors |> serializeObj} / typeErrorCount:
{typeErrorCount}") getLocals
#if INTERACTIVE
let errorWait = 2
#else
let errorWait = 5
#endif
match fsxContent, errors with
| None, [[]] when typeErrorCount > errorWait -> false
| None, [[]] -> true
| _ -> false
)
|> FSharp.Control.AsyncSeq.tryLast
|> Async.withCancellationToken ct
|> Async.catch
|> Async.runWithTimeoutAsync timeout
|> Async.StartChild
let fileOpenObj = {| FileOpen = {| uri = fullPath |> getFileUri; spiText =
code |} |}
let! _fileOpenResult = fileOpenObj |> sendObj serverPort
do! Async.Sleep 60
let buildFileObj = {| BuildFile = {| uri = fullPath |> getFileUri; backend =
"Fsharp" |} |}
let! _buildFileResult = buildFileObj |> sendObj serverPort
return!
outputChild
|> Async.map (function
| Some (Ok (Some (message, errors, _))) ->
message, errors |> List.distinct |> List.rev
| Some (Error ex) ->
trace Critical (fun () -> $"buildFile / error: {ex |>
serializeObj}") getLocals
None, [[]]
| _ -> None, [[]]
)
}
── markdown ────────────────────────────────────────────────────────────────────
╭──────────────────────────────────────────────────────────────────────────────╮
│ ## persistCode │
╰──────────────────────────────────────────────────────────────────────────────╯
── fsharp ──────────────────────────────────────────────────────────────────────
let inline persistCode code = async {
let repositoryRoot = SpiralFileSystem.get_source_directory () |>
SpiralFileSystem.find_parent ".paket" false
let targetDir = repositoryRoot </> "target/polyglot/spiral_eval"
let packagesDir = targetDir </> "packages"
let hashHex = code |> SpiralCrypto.hash_text
let codeDir = packagesDir </> hashHex
codeDir |> System.IO.Directory.CreateDirectory |> ignore
let mainPath = codeDir </> "main.spi"
do! code |> SpiralFileSystem.write_all_text_exists mainPath
let spiprojPath = codeDir </> "package.spiproj"
let spiprojCode =
$"""packageDir: {repositoryRoot </> "lib"}
packages:
|core-
spiral-
modules:
main
"""
do! spiprojCode |> SpiralFileSystem.write_all_text_exists spiprojPath
return mainPath
}
── markdown ────────────────────────────────────────────────────────────────────
╭──────────────────────────────────────────────────────────────────────────────╮
│ ## buildCode │
╰──────────────────────────────────────────────────────────────────────────────╯
── fsharp ──────────────────────────────────────────────────────────────────────
let inline buildCode timeout cancellationToken code = async {
let! mainPath = persistCode code
let port = getCompilerPort ()
return! mainPath |> buildFile timeout port cancellationToken
}
── fsharp ──────────────────────────────────────────────────────────────────────
//// test
let buildCode timeout cancellationToken code = buildCode timeout
cancellationToken code
── fsharp ──────────────────────────────────────────────────────────────────────
//// test
"""inl app () =
console.write_line "text"
1i32
inl main () =
app
|> dyn
|> ignore
"""
|> buildCode 15000 None
|> Async.runWithTimeout 15000
|> Option.map (fun (fsxContent, errors) -> fsxContent, errors |> List.map fst)
|> _assertEqual (
Some (
Some """let rec closure0 () () : int32 =
let v0 : string = "text"
System.Console.WriteLine v0
1
let v0 : (unit -> int32) = closure0()
()
""",
[[]]
)
)
╭─[ 5.75s - stdout ]───────────────────────────────────────────────────────────╮
│ 00:00:00 #1 [debug] runWithTimeoutChildAsync / timeout: 60 │
│ 00:00:00 #1 [debug] execute_with_options_async / options: struct (Some │
│ System.Threading.CancellationToken, │
│ "dotnet "C:\home\git\polyglot\deps\The-Spiral-Language\The Spiral │
│ Language 2\artifacts\bin\The Spiral Language 2\release\Spiral.dll" --port │
│ 13805 --default-int i32 --default-float f64", │
│ Some <fun:buildCode@3-532>, None, None) │
│ 00:00:00 #2 [verbose] > pwd: C:\home\git\polyglot\apps\spiral │
│ 00:00:00 #3 [verbose] > dllPath: │
│ C:\home\git\polyglot\deps\The-Spiral-Language\The Spiral Language │
│ 2\artifacts\bin\The Spiral Language 2\release │
│ 00:00:00 #4 [verbose] > targetDir: │
│ C:\home\git\polyglot\target/polyglot/spiral_eval │
│ 00:00:00 #5 [verbose] > Starting the Spiral Server. It is bound to: │
│ http://localhost:13805 │
│ 00:00:00 #2 [debug] runWithTimeoutChildAsync / timeout: 500 │
│ 00:00:00 #3 [verbose] waitForPortAccess / port: 13805 / retry: 0 │
│ 00:00:01 #4 [debug] sendJson / port: 13805 / json: {"Ping":true} / │
│ result.Length: │
│ 00:00:01 #5 [verbose] awaitCompiler / Ping / result: Some(null) / port: │
│ 13805 / retry: 0 │
│ 00:00:01 #6 [verbose] > Server bound to: http://localhost:13805 │
│ 00:00:01 #6 [debug] buildFile / takeWhileInclusive / fsxContent: / errors: │
│ [] / typeErrorCount: 0 │
│ 00:00:01 #7 [debug] buildFile / takeWhileInclusive / fsxContent: / errors: │
│ [] / typeErrorCount: 0 │
│ 00:00:01 #8 [debug] sendJson / port: 13805 / json: │
│ {"FileOpen":{"spiText":"inl app () =\n console.write_line │
│ \u0022text\u0022\n 1i32\n\ninl main () =\n app\n |\u003E dyn\n │
│ |\u003E │
│ ignore\n","uri":"file:///c:/home/git/polyglot/target/polyglot/spiral_eval/pa │
│ ckages/0ad2ee90a0886647a7d9c334e1811a0c3ae5599125952e30eba9d5e3b57a56e0/main │
│ .spi"}} / result.Length: │
│ 00:00:01 #9 [debug] sendJson / port: 13805 / json: │
│ {"BuildFile":{"backend":"Fsharp","uri":"file:///c:/home/git/polyglot/target/ │
│ polyglot/spiral_eval/packages/0ad2ee90a0886647a7d9c334e1811a0c3ae5599125952e │
│ 30eba9d5e3b57a56e0/main.spi"}} / result.Length: │
│ 00:00:01 #7 [verbose] > Building │
│ c:\home\git\polyglot\target\polyglot\spiral_eval\packages\0ad2ee90a0886647a7 │
│ d9c334e1811a0c3ae5599125952e30eba9d5e3b57a56e0\main.spi │
│ 00:00:02 #10 [debug] buildFile / takeWhileInclusive / fsxContent: / errors: │
│ [] / typeErrorCount: 0 │
│ 00:00:03 #11 [debug] buildFile / takeWhileInclusive / fsxContent: / errors: │
│ [] / typeErrorCount: 0 │
│ 00:00:03 #12 [debug] buildFile / takeWhileInclusive / fsxContent: let rec │
│ closure0 () () : int32 = │
│ let v0 : string = "text" │
│ System.Console.WriteLine v0 │
│ 1 │
│ let v0 : (unit -> int32) = closure0() │
│ () │
│ / errors: [] / typeErrorCount: 0 │
│ 00:00:05 #13 [debug] runWithTimeoutChildAsync / timeout: 2000 │
│ 00:00:05 #14 [debug] watchWithFilter / Disposing watch stream / filter: │
│ FileName, LastWrite │
│ FSharpOption<Tuple<FSharpOption<String>,FSharpList<String>>> │
│ Value: - FSharpOption<String> │
│ Value: let rec closure0 () () : int32 = │
│ let v0 : string = "text" │
│ System.Console.WriteLine v0 │
│ 1 │
│ let v0 : (unit -> int32) = closure0() │
│ () │
│ │
│ - [ ] │
│ │
╰──────────────────────────────────────────────────────────────────────────────╯
── fsharp ──────────────────────────────────────────────────────────────────────
//// test
""
|> buildCode 10000 None
|> Async.runWithTimeout 10000
|> _assertEqual None
╭─[ 12.14s - stdout ]──────────────────────────────────────────────────────────╮
│ 00:00:05 #15 [debug] runWithTimeoutChildAsync / timeout: 60 │
│ 00:00:05 #8 [debug] execute_with_options_async / options: struct (Some │
│ System.Threading.CancellationToken, │
│ "dotnet "C:\home\git\polyglot\deps\The-Spiral-Language\The Spiral │
│ Language 2\artifacts\bin\The Spiral Language 2\release\Spiral.dll" --port │
│ 13805 --default-int i32 --default-float f64", │
│ Some <fun:buildCode@3-532>, None, None) │
│ 00:00:05 #9 [verbose] > pwd: C:\home\git\polyglot\apps\spiral │
│ 00:00:05 #10 [verbose] > dllPath: │
│ C:\home\git\polyglot\deps\The-Spiral-Language\The Spiral Language │
│ 2\artifacts\bin\The Spiral Language 2\release │
│ 00:00:05 #11 [verbose] > targetDir: │
│ C:\home\git\polyglot\target/polyglot/spiral_eval │
│ 00:00:06 #12 [verbose] > Starting the Spiral Server. It is bound to: │
│ http://localhost:13805 │
│ 00:00:06 #16 [debug] runWithTimeoutChildAsync / timeout: 500 │
│ 00:00:06 #17 [verbose] waitForPortAccess / port: 13805 / retry: 0 │
│ 00:00:06 #18 [debug] sendJson / port: 13805 / json: {"Ping":true} / │
│ result.Length: │
│ 00:00:06 #19 [verbose] awaitCompiler / Ping / result: Some(null) / port: │
│ 13805 / retry: 0 │
│ 00:00:06 #13 [verbose] > Server bound to: http://localhost:13805 │
│ 00:00:06 #20 [debug] buildFile / takeWhileInclusive / fsxContent: / errors: │
│ [] / typeErrorCount: 0 │
│ 00:00:06 #21 [debug] buildFile / takeWhileInclusive / fsxContent: / errors: │
│ [] / typeErrorCount: 0 │
│ 00:00:06 #22 [debug] sendJson / port: 13805 / json: │
│ {"FileOpen":{"spiText":"","uri":"file:///c:/home/git/polyglot/target/polyglo │
│ t/spiral_eval/packages/e3b0c44298fc1c149afbf4c8996fb92427ae41e4649b934ca4959 │
│ 91b7852b855/main.spi"}} / result.Length: │
│ 00:00:06 #23 [debug] sendJson / port: 13805 / json: │
│ {"BuildFile":{"backend":"Fsharp","uri":"file:///c:/home/git/polyglot/target/ │
│ polyglot/spiral_eval/packages/e3b0c44298fc1c149afbf4c8996fb92427ae41e4649b93 │
│ 4ca495991b7852b855/main.spi"}} / result.Length: │
│ 00:00:06 #14 [verbose] > Building │
│ c:\home\git\polyglot\target\polyglot\spiral_eval\packages\e3b0c44298fc1c149a │
│ fbf4c8996fb92427ae41e4649b934ca495991b7852b855\main.spi │
│ 00:00:07 #24 [debug] buildFile / takeWhileInclusive / fsxContent: / errors: │
│ [] / typeErrorCount: 0 │
│ 00:00:08 #15 [verbose] > Cannot find `main` in file main. │
│ 00:00:08 #16 [verbose] > Build skipped for │
│ c:\home\git\polyglot\target\polyglot\spiral_eval\packages\e3b0c44298fc1c149a │
│ fbf4c8996fb92427ae41e4649b934ca495991b7852b855\main.spi │
│ 00:00:08 #25 [debug] buildFile / takeWhileInclusive / fsxContent: / errors: │
│ [] / typeErrorCount: 0 │
│ 00:00:09 #26 [debug] buildFile / takeWhileInclusive / fsxContent: / errors: │
│ [] / typeErrorCount: 0 │
│ 00:00:10 #27 [debug] buildFile / takeWhileInclusive / fsxContent: / errors: │
│ [] / typeErrorCount: 0 │
│ 00:00:11 #28 [debug] buildFile / takeWhileInclusive / fsxContent: / errors: │
│ [] / typeErrorCount: 0 │
│ 00:00:12 #29 [debug] buildFile / takeWhileInclusive / fsxContent: / errors: │
│ [] / typeErrorCount: 0 │
│ 00:00:13 #30 [debug] buildFile / takeWhileInclusive / fsxContent: / errors: │
│ [] / typeErrorCount: 0 │
│ 00:00:14 #31 [debug] buildFile / takeWhileInclusive / fsxContent: / errors: │
│ [] / typeErrorCount: 0 │
│ 00:00:15 #32 [verbose] waitForPortAccess / port: 13805 / retry: 0 │
│ 00:00:17 #33 [debug] runWithTimeoutChildAsync / timeout: 2000 │
│ 00:00:17 #34 [debug] watchWithFilter / Disposing watch stream / filter: │
│ FileName, LastWrite │
│ 00:00:17 #35 [debug] runWithTimeoutChildAsync / timeout: 10000 │
│ <null> │
│ │
╰──────────────────────────────────────────────────────────────────────────────╯
── fsharp ──────────────────────────────────────────────────────────────────────
//// test
"inl app () =
0i32
inl a = 1
inl main () =
app
|> dyn
|> ignore
"
|> buildCode 10000 None
|> Async.runWithTimeout 10000
|> Option.map (fun (fsxContent, errors) -> fsxContent, errors |> List.map fst)
|> _assertEqual (
Some (
None,
[[ "main.spi:
Global inl/let statements should all return functions known at parse time." ]]
)
)
╭─[ 3.64s - stdout ]───────────────────────────────────────────────────────────╮
│ 00:00:17 #36 [debug] runWithTimeoutChildAsync / timeout: 60 │
│ 00:00:17 #17 [debug] execute_with_options_async / options: struct (Some │
│ System.Threading.CancellationToken, │
│ "dotnet "C:\home\git\polyglot\deps\The-Spiral-Language\The Spiral │
│ Language 2\artifacts\bin\The Spiral Language 2\release\Spiral.dll" --port │
│ 13805 --default-int i32 --default-float f64", │
│ Some <fun:buildCode@3-532>, None, None) │
│ 00:00:18 #18 [verbose] > pwd: C:\home\git\polyglot\apps\spiral │
│ 00:00:18 #19 [verbose] > dllPath: │
│ C:\home\git\polyglot\deps\The-Spiral-Language\The Spiral Language │
│ 2\artifacts\bin\The Spiral Language 2\release │
│ 00:00:18 #20 [verbose] > targetDir: │
│ C:\home\git\polyglot\target/polyglot/spiral_eval │
│ 00:00:18 #21 [verbose] > Starting the Spiral Server. It is bound to: │
│ http://localhost:13805 │
│ 00:00:18 #37 [debug] runWithTimeoutChildAsync / timeout: 500 │
│ 00:00:18 #38 [verbose] waitForPortAccess / port: 13805 / retry: 0 │
│ 00:00:18 #39 [debug] sendJson / port: 13805 / json: {"Ping":true} / │
│ result.Length: │
│ 00:00:18 #40 [verbose] awaitCompiler / Ping / result: Some(null) / port: │
│ 13805 / retry: 0 │
│ 00:00:18 #22 [verbose] > Server bound to: http://localhost:13805 │
│ 00:00:18 #41 [debug] buildFile / takeWhileInclusive / fsxContent: / errors: │
│ [] / typeErrorCount: 0 │
│ 00:00:18 #42 [debug] buildFile / takeWhileInclusive / fsxContent: / errors: │
│ [] / typeErrorCount: 0 │
│ 00:00:18 #43 [debug] sendJson / port: 13805 / json: │
│ {"FileOpen":{"spiText":"inl app () =\n 0i32\n\ninl a = 1\n\ninl main () │
│ =\n app\n |\u003E dyn\n |\u003E │
│ ignore\n","uri":"file:///c:/home/git/polyglot/target/polyglot/spiral_eval/pa │
│ ckages/348c96764a8f66af39dd3ea799f5e487a51761b1e220b84a7038f033a002a481/main │
│ .spi"}} / result.Length: │
│ 00:00:18 #44 [debug] sendJson / port: 13805 / json: │
│ {"BuildFile":{"backend":"Fsharp","uri":"file:///c:/home/git/polyglot/target/ │
│ polyglot/spiral_eval/packages/348c96764a8f66af39dd3ea799f5e487a51761b1e220b8 │
│ 4a7038f033a002a481/main.spi"}} / result.Length: │
│ 00:00:19 #23 [verbose] > Building │
│ c:\home\git\polyglot\target\polyglot\spiral_eval\packages\348c96764a8f66af39 │
│ dd3ea799f5e487a51761b1e220b84a7038f033a002a481\main.spi │
│ 00:00:19 #45 [debug] buildFile / takeWhileInclusive / fsxContent: / errors: │
│ [ │
│ [ │
│ "main.spi: │
│ Global inl/let statements should all return functions known at parse time.", │
│ { │
│ "ParserErrors": { │
│ "errors": [ │
│ [ │
│ [ │
│ { │
│ "character": 0, │
│ "line": 3 │
│ }, │
│ { │
│ "character": 9, │
│ "line": 3 │
│ } │
│ ], │
│ "Global inl/let statements should all return functions known at │
│ parse time." │
│ ] │
│ ], │
│ "uri": │
│ "file:///c:\home\git\polyglot\target\polyglot\spiral_eval\packages\348c96764 │
│ a8f66af39dd3ea799f5e487a51761b1e220b84a7038f033a002a481\main.spi" │
│ } │
│ } │
│ ] │
│ ] / typeErrorCount: 0 │
│ 00:00:19 #46 [verbose] waitForPortAccess / port: 13805 / retry: 0 │
│ 00:00:21 #47 [debug] runWithTimeoutChildAsync / timeout: 2000 │
│ 00:00:21 #48 [debug] watchWithFilter / Disposing watch stream / filter: │
│ FileName, LastWrite │
│ FSharpOption<Tuple<FSharpOption<String>,FSharpList<String>>> │
│ Value: - <null> │
│ - [ main.spi: │
│ Global inl/let statements should all return functions known at parse time. ] │
│ │
╰──────────────────────────────────────────────────────────────────────────────╯
── fsharp ──────────────────────────────────────────────────────────────────────
//// test
"""inl main () =
1i32 / 0i32
"""
|> buildCode 10000 None
|> Async.runWithTimeout 10000
|> Option.map (fun (fsxContent, errors) -> fsxContent, errors |> List.map fst)
|> _assertEqual (
Some (
None,
[[ "An attempt to divide by zero has been detected at compile time." ]]
)
)
╭─[ 5.01s - stdout ]───────────────────────────────────────────────────────────╮
│ 00:00:21 #49 [debug] runWithTimeoutChildAsync / timeout: 60 │
│ 00:00:21 #24 [debug] execute_with_options_async / options: struct (Some │
│ System.Threading.CancellationToken, │
│ "dotnet "C:\home\git\polyglot\deps\The-Spiral-Language\The Spiral │
│ Language 2\artifacts\bin\The Spiral Language 2\release\Spiral.dll" --port │
│ 13805 --default-int i32 --default-float f64", │
│ Some <fun:buildCode@3-532>, None, None) │
│ 00:00:21 #25 [verbose] > pwd: C:\home\git\polyglot\apps\spiral │
│ 00:00:21 #26 [verbose] > dllPath: │
│ C:\home\git\polyglot\deps\The-Spiral-Language\The Spiral Language │
│ 2\artifacts\bin\The Spiral Language 2\release │
│ 00:00:21 #27 [verbose] > targetDir: │
│ C:\home\git\polyglot\target/polyglot/spiral_eval │
│ 00:00:22 #28 [verbose] > Starting the Spiral Server. It is bound to: │
│ http://localhost:13805 │
│ 00:00:22 #50 [debug] runWithTimeoutChildAsync / timeout: 500 │
│ 00:00:22 #51 [verbose] waitForPortAccess / port: 13805 / retry: 0 │
│ 00:00:22 #52 [debug] sendJson / port: 13805 / json: {"Ping":true} / │
│ result.Length: │
│ 00:00:22 #53 [verbose] awaitCompiler / Ping / result: Some(null) / port: │
│ 13805 / retry: 0 │
│ 00:00:22 #29 [verbose] > Server bound to: http://localhost:13805 │
│ 00:00:22 #54 [debug] buildFile / takeWhileInclusive / fsxContent: / errors: │
│ [] / typeErrorCount: 0 │
│ 00:00:22 #55 [debug] buildFile / takeWhileInclusive / fsxContent: / errors: │
│ [] / typeErrorCount: 0 │
│ 00:00:22 #56 [debug] sendJson / port: 13805 / json: │
│ {"FileOpen":{"spiText":"inl main () =\n 1i32 / │
│ 0i32\n","uri":"file:///c:/home/git/polyglot/target/polyglot/spiral_eval/pack │
│ ages/232df6d862bb0667133bf3fbc55c0b33286bde4b85cdb17fe93dda9c433ec620/main.s │
│ pi"}} / result.Length: │
│ 00:00:22 #57 [debug] sendJson / port: 13805 / json: │
│ {"BuildFile":{"backend":"Fsharp","uri":"file:///c:/home/git/polyglot/target/ │
│ polyglot/spiral_eval/packages/232df6d862bb0667133bf3fbc55c0b33286bde4b85cdb1 │
│ 7fe93dda9c433ec620/main.spi"}} / result.Length: │
│ 00:00:22 #30 [verbose] > Building │
│ c:\home\git\polyglot\target\polyglot\spiral_eval\packages\232df6d862bb066713 │
│ 3bf3fbc55c0b33286bde4b85cdb17fe93dda9c433ec620\main.spi │
│ 00:00:23 #58 [debug] buildFile / takeWhileInclusive / fsxContent: / errors: │
│ [] / typeErrorCount: 0 │
│ 00:00:24 #59 [debug] buildFile / takeWhileInclusive / fsxContent: / errors: │
│ [ │
│ [ │
│ "An attempt to divide by zero has been detected at compile time.", │
│ { │
│ "TracedError": { │
│ "message": "An attempt to divide by zero has been detected at │
│ compile time.", │
│ "trace": [ │
│ "Error trace on line: 1, column: 10 in module: │
│ c:\home\git\polyglot\target\polyglot\spiral_eval\packages\232df6d862bb066713 │
│ 3bf3fbc55c0b33286bde4b85cdb17fe93dda9c433ec620\main.spi. │
│ inl main () = │
│ ^ │
│ ", │
│ "Error trace on line: 2, column: 5 in module: │
│ c:\home\git\polyglot\target\polyglot\spiral_eval\packages\232df6d862bb066713 │
│ 3bf3fbc55c0b33286bde4b85cdb17fe93dda9c433ec620\main.spi. │
│ 1i32 / 0i32 │
│ ^ │
│ " │
│ ] │
│ } │
│ } │
│ ] │
│ ] / typeErrorCount: 0 │
│ 00:00:24 #60 [verbose] waitForPortAccess / port: 13805 / retry: 0 │
│ 00:00:26 #61 [debug] runWithTimeoutChildAsync / timeout: 2000 │
│ 00:00:26 #62 [debug] watchWithFilter / Disposing watch stream / filter: │
│ FileName, LastWrite │
│ FSharpOption<Tuple<FSharpOption<String>,FSharpList<String>>> │
│ Value: - <null> │
│ - [ An attempt to divide by zero has been detected at compile time. ] │
│ │
╰──────────────────────────────────────────────────────────────────────────────╯
── fsharp ──────────────────────────────────────────────────────────────────────
//// test
"""inl main () =
1 + ""
"""
|> buildCode 10000 None
|> Async.runWithTimeout 10000
|> Option.map (fun (fsxContent, errors) -> fsxContent, errors |> List.map fst)
|> _assertEqual (
Some (
None,
[[
"main.spi:
Constraint satisfaction error.
Got: string
Fails to satisfy: number"
]]
)
)
╭─[ 4.67s - stdout ]───────────────────────────────────────────────────────────╮
│ 00:00:26 #63 [debug] runWithTimeoutChildAsync / timeout: 60 │
│ 00:00:26 #31 [debug] execute_with_options_async / options: struct (Some │
│ System.Threading.CancellationToken, │
│ "dotnet "C:\home\git\polyglot\deps\The-Spiral-Language\The Spiral │
│ Language 2\artifacts\bin\The Spiral Language 2\release\Spiral.dll" --port │
│ 13805 --default-int i32 --default-float f64", │
│ Some <fun:buildCode@3-532>, None, None) │
│ 00:00:26 #32 [verbose] > pwd: C:\home\git\polyglot\apps\spiral │
│ 00:00:26 #33 [verbose] > dllPath: │
│ C:\home\git\polyglot\deps\The-Spiral-Language\The Spiral Language │
│ 2\artifacts\bin\The Spiral Language 2\release │
│ 00:00:26 #34 [verbose] > targetDir: │
│ C:\home\git\polyglot\target/polyglot/spiral_eval │
│ 00:00:27 #35 [verbose] > Starting the Spiral Server. It is bound to: │
│ http://localhost:13805 │
│ 00:00:27 #64 [debug] runWithTimeoutChildAsync / timeout: 500 │
│ 00:00:27 #65 [verbose] waitForPortAccess / port: 13805 / retry: 0 │
│ 00:00:27 #66 [debug] sendJson / port: 13805 / json: {"Ping":true} / │
│ result.Length: │
│ 00:00:27 #67 [verbose] awaitCompiler / Ping / result: Some(null) / port: │
│ 13805 / retry: 0 │
│ 00:00:27 #36 [verbose] > Server bound to: http://localhost:13805 │
│ 00:00:27 #68 [debug] buildFile / takeWhileInclusive / fsxContent: / errors: │
│ [] / typeErrorCount: 0 │
│ 00:00:27 #69 [debug] buildFile / takeWhileInclusive / fsxContent: / errors: │
│ [] / typeErrorCount: 0 │
│ 00:00:27 #70 [debug] sendJson / port: 13805 / json: │
│ {"FileOpen":{"spiText":"inl main () =\n 1 \u002B │
│ \u0022\u0022\n","uri":"file:///c:/home/git/polyglot/target/polyglot/spiral_e │
│ val/packages/2278923ce88b0e473e77d4d93e25afa6e5e4f5efe803982e504cc198d4c4d82 │
│ d/main.spi"}} / result.Length: │
│ 00:00:27 #71 [debug] sendJson / port: 13805 / json: │
│ {"BuildFile":{"backend":"Fsharp","uri":"file:///c:/home/git/polyglot/target/ │
│ polyglot/spiral_eval/packages/2278923ce88b0e473e77d4d93e25afa6e5e4f5efe80398 │
│ 2e504cc198d4c4d82d/main.spi"}} / result.Length: │
│ 00:00:27 #37 [verbose] > Building │
│ c:\home\git\polyglot\target\polyglot\spiral_eval\packages\2278923ce88b0e473e │
│ 77d4d93e25afa6e5e4f5efe803982e504cc198d4c4d82d\main.spi │
│ 00:00:28 #72 [debug] buildFile / takeWhileInclusive / fsxContent: / errors: │
│ [] / typeErrorCount: 0 │
│ 00:00:29 #73 [debug] buildFile / takeWhileInclusive / fsxContent: / errors: │
│ [] / typeErrorCount: 1 │
│ 00:00:29 #74 [debug] buildFile / takeWhileInclusive / fsxContent: / errors: │
│ [ │
│ [ │
│ "main.spi: │
│ Constraint satisfaction error. │
│ Got: string │
│ Fails to satisfy: number", │
│ { │
│ "TypeErrors": { │
│ "errors": [ │
│ [ │
│ [ │
│ { │
│ "character": 8, │
│ "line": 1 │
│ }, │
│ { │
│ "character": 10, │
│ "line": 1 │
│ } │
│ ], │
│ "Constraint satisfaction error. │
│ Got: string │
│ Fails to satisfy: number" │
│ ] │
│ ], │
│ "uri": │
│ "file:///c:\home\git\polyglot\target\polyglot\spiral_eval\packages\2278923ce │
│ 88b0e473e77d4d93e25afa6e5e4f5efe803982e504cc198d4c4d82d\main.spi" │
│ } │
│ } │
│ ] │
│ ] / typeErrorCount: 1 │
│ 00:00:29 #75 [verbose] waitForPortAccess / port: 13805 / retry: 0 │
│ 00:00:31 #76 [debug] runWithTimeoutChildAsync / timeout: 2000 │
│ 00:00:31 #77 [debug] watchWithFilter / Disposing watch stream / filter: │
│ FileName, LastWrite │
│ FSharpOption<Tuple<FSharpOption<String>,FSharpList<String>>> │
│ Value: - <null> │
│ - [ main.spi: │
│ Constraint satisfaction error. │
│ Got: string │
│ Fails to satisfy: number ] │
│ │
╰──────────────────────────────────────────────────────────────────────────────╯
── fsharp ──────────────────────────────────────────────────────────────────────
//// test
"""inl main () =
x + y
"""
|> buildCode 10000 None
|> Async.runWithTimeout 10000
|> Option.map (fun (fsxContent, errors) -> fsxContent, errors |> List.map fst)
|> _assertEqual (
Some (
None,
[[
"main.spi:
Unbound variable: x.
Unbound variable: y."
]]
)
)
╭─[ 4.62s - stdout ]───────────────────────────────────────────────────────────╮
│ 00:00:31 #78 [debug] runWithTimeoutChildAsync / timeout: 60 │
│ 00:00:31 #38 [debug] execute_with_options_async / options: struct (Some │
│ System.Threading.CancellationToken, │
│ "dotnet "C:\home\git\polyglot\deps\The-Spiral-Language\The Spiral │
│ Language 2\artifacts\bin\The Spiral Language 2\release\Spiral.dll" --port │
│ 13805 --default-int i32 --default-float f64", │
│ Some <fun:buildCode@3-532>, None, None) │
│ 00:00:31 #39 [verbose] > pwd: C:\home\git\polyglot\apps\spiral │
│ 00:00:31 #40 [verbose] > dllPath: │
│ C:\home\git\polyglot\deps\The-Spiral-Language\The Spiral Language │
│ 2\artifacts\bin\The Spiral Language 2\release │
│ 00:00:31 #41 [verbose] > targetDir: │
│ C:\home\git\polyglot\target/polyglot/spiral_eval │
│ 00:00:31 #42 [verbose] > Starting the Spiral Server. It is bound to: │
│ http://localhost:13805 │
│ 00:00:32 #79 [debug] runWithTimeoutChildAsync / timeout: 500 │
│ 00:00:32 #80 [verbose] waitForPortAccess / port: 13805 / retry: 0 │
│ 00:00:32 #81 [debug] sendJson / port: 13805 / json: {"Ping":true} / │
│ result.Length: │
│ 00:00:32 #82 [verbose] awaitCompiler / Ping / result: Some(null) / port: │
│ 13805 / retry: 0 │
│ 00:00:32 #43 [verbose] > Server bound to: http://localhost:13805 │
│ 00:00:32 #83 [debug] buildFile / takeWhileInclusive / fsxContent: / errors: │
│ [] / typeErrorCount: 0 │
│ 00:00:32 #84 [debug] buildFile / takeWhileInclusive / fsxContent: / errors: │
│ [] / typeErrorCount: 0 │
│ 00:00:32 #85 [debug] sendJson / port: 13805 / json: │
│ {"FileOpen":{"spiText":"inl main () =\n x \u002B │
│ y\n","uri":"file:///c:/home/git/polyglot/target/polyglot/spiral_eval/package │
│ s/5d8d0e66f59ab13f3bfd8d88f05ce13771ab005b08581d99225216170ba6489b/main.spi" │
│ }} / result.Length: │
│ 00:00:32 #86 [debug] sendJson / port: 13805 / json: │
│ {"BuildFile":{"backend":"Fsharp","uri":"file:///c:/home/git/polyglot/target/ │
│ polyglot/spiral_eval/packages/5d8d0e66f59ab13f3bfd8d88f05ce13771ab005b08581d │
│ 99225216170ba6489b/main.spi"}} / result.Length: │
│ 00:00:32 #44 [verbose] > Building │
│ c:\home\git\polyglot\target\polyglot\spiral_eval\packages\5d8d0e66f59ab13f3b │
│ fd8d88f05ce13771ab005b08581d99225216170ba6489b\main.spi │
│ 00:00:33 #87 [debug] buildFile / takeWhileInclusive / fsxContent: / errors: │
│ [] / typeErrorCount: 0 │
│ 00:00:33 #88 [debug] buildFile / takeWhileInclusive / fsxContent: / errors: │
│ [] / typeErrorCount: 1 │
│ 00:00:33 #89 [debug] buildFile / takeWhileInclusive / fsxContent: / errors: │
│ [ │
│ [ │
│ "main.spi: │
│ Unbound variable: x. │
│ Unbound variable: y.", │
│ { │
│ "TypeErrors": { │
│ "errors": [ │
│ [ │
│ [ │
│ { │
│ "character": 4, │
│ "line": 1 │
│ }, │
│ { │
│ "character": 5, │
│ "line": 1 │
│ } │
│ ], │
│ "Unbound variable: x." │
│ ], │
│ [ │
│ [ │
│ { │
│ "character": 8, │
│ "line": 1 │
│ }, │
│ { │
│ "character": 9, │
│ "line": 1 │
│ } │
│ ], │
│ "Unbound variable: y." │
│ ] │
│ ], │
│ "uri": │
│ "file:///c:\home\git\polyglot\target\polyglot\spiral_eval\packages\5d8d0e66f │
│ 59ab13f3bfd8d88f05ce13771ab005b08581d99225216170ba6489b\main.spi" │
│ } │
│ } │
│ ] │
│ ] / typeErrorCount: 1 │
│ 00:00:33 #90 [verbose] waitForPortAccess / port: 13805 / retry: 0 │
│ 00:00:35 #91 [debug] runWithTimeoutChildAsync / timeout: 2000 │
│ 00:00:35 #92 [debug] watchWithFilter / Disposing watch stream / filter: │
│ FileName, LastWrite │
│ FSharpOption<Tuple<FSharpOption<String>,FSharpList<String>>> │
│ Value: - <null> │
│ - [ main.spi: │
│ Unbound variable: x. │
│ Unbound variable: y. ] │
│ │
╰──────────────────────────────────────────────────────────────────────────────╯
── fsharp ──────────────────────────────────────────────────────────────────────
//// test
"""union a =
| B
| c
inl main () =
()
"""
|> buildCode 10000 None
|> Async.runWithTimeout 10000
|> Option.map (fun (fsxContent, errors) -> fsxContent, errors |> List.map fst)
|> _assertEqual (
Some (
None,
[[ "main.spi:
Expected: uppercase variable" ]]
)
)
╭─[ 3.61s - stdout ]───────────────────────────────────────────────────────────╮
│ 00:00:36 #93 [debug] runWithTimeoutChildAsync / timeout: 60 │
│ 00:00:36 #45 [debug] execute_with_options_async / options: struct (Some │
│ System.Threading.CancellationToken, │
│ "dotnet "C:\home\git\polyglot\deps\The-Spiral-Language\The Spiral │
│ Language 2\artifacts\bin\The Spiral Language 2\release\Spiral.dll" --port │
│ 13805 --default-int i32 --default-float f64", │
│ Some <fun:buildCode@3-532>, None, None) │
│ 00:00:36 #46 [verbose] > pwd: C:\home\git\polyglot\apps\spiral │
│ 00:00:36 #47 [verbose] > dllPath: │
│ C:\home\git\polyglot\deps\The-Spiral-Language\The Spiral Language │
│ 2\artifacts\bin\The Spiral Language 2\release │
│ 00:00:36 #48 [verbose] > targetDir: │
│ C:\home\git\polyglot\target/polyglot/spiral_eval │
│ 00:00:36 #49 [verbose] > Starting the Spiral Server. It is bound to: │
│ http://localhost:13805 │
│ 00:00:36 #94 [debug] runWithTimeoutChildAsync / timeout: 500 │
│ 00:00:36 #95 [verbose] waitForPortAccess / port: 13805 / retry: 0 │
│ 00:00:37 #96 [debug] sendJson / port: 13805 / json: {"Ping":true} / │
│ result.Length: │
│ 00:00:37 #97 [verbose] awaitCompiler / Ping / result: Some(null) / port: │
│ 13805 / retry: 0 │
│ 00:00:36 #50 [verbose] > Server bound to: http://localhost:13805 │
│ 00:00:37 #98 [debug] buildFile / takeWhileInclusive / fsxContent: / errors: │
│ [] / typeErrorCount: 0 │
│ 00:00:37 #99 [debug] buildFile / takeWhileInclusive / fsxContent: / errors: │
│ [] / typeErrorCount: 0 │
│ 00:00:37 #100 [debug] sendJson / port: 13805 / json: │
│ {"FileOpen":{"spiText":"union a =\n | B\n | c\n\ninl main () =\n │
│ ()\n","uri":"file:///c:/home/git/polyglot/target/polyglot/spiral_eval/packag │
│ es/e711a7af82ac8ecfc9df9208c576e0745b2b4e6fbb3a46a168b4c4f56921eb3a/main.spi │
│ "}} / result.Length: │
│ 00:00:37 #101 [debug] sendJson / port: 13805 / json: │
│ {"BuildFile":{"backend":"Fsharp","uri":"file:///c:/home/git/polyglot/target/ │
│ polyglot/spiral_eval/packages/e711a7af82ac8ecfc9df9208c576e0745b2b4e6fbb3a46 │
│ a168b4c4f56921eb3a/main.spi"}} / result.Length: │
│ 00:00:37 #51 [verbose] > Building │
│ c:\home\git\polyglot\target\polyglot\spiral_eval\packages\e711a7af82ac8ecfc9 │
│ df9208c576e0745b2b4e6fbb3a46a168b4c4f56921eb3a\main.spi │
│ 00:00:37 #102 [debug] buildFile / takeWhileInclusive / fsxContent: / │
│ errors: [ │
│ [ │
│ "main.spi: │
│ Expected: uppercase variable", │
│ { │
│ "ParserErrors": { │
│ "errors": [ │
│ [ │
│ [ │
│ { │
│ "character": 6, │
│ "line": 2 │
│ }, │
│ { │
│ "character": 7, │
│ "line": 2 │
│ } │
│ ], │
│ "Expected: uppercase variable" │
│ ] │
│ ], │
│ "uri": │
│ "file:///c:\home\git\polyglot\target\polyglot\spiral_eval\packages\e711a7af8 │
│ 2ac8ecfc9df9208c576e0745b2b4e6fbb3a46a168b4c4f56921eb3a\main.spi" │
│ } │
│ } │
│ ] │
│ ] / typeErrorCount: 0 │
│ 00:00:37 #103 [verbose] waitForPortAccess / port: 13805 / retry: 0 │
│ 00:00:39 #104 [debug] runWithTimeoutChildAsync / timeout: 2000 │
│ 00:00:39 #105 [debug] watchWithFilter / Disposing watch stream / filter: │
│ FileName, LastWrite │
│ FSharpOption<Tuple<FSharpOption<String>,FSharpList<String>>> │
│ Value: - <null> │
│ - [ main.spi: │
│ Expected: uppercase variable ] │
│ │
╰──────────────────────────────────────────────────────────────────────────────╯
── fsharp ──────────────────────────────────────────────────────────────────────
//// test
"""
/// abc
inl main () =
()
"""
|> buildCode 10000 None
|> Async.runWithTimeout 10000
|> Option.map (fun (fsxContent, errors) -> fsxContent, errors |> List.map fst)
|> _assertEqual (
Some (
None,
[[ "main.spi:
Expected: whitespace" ]]
)
)
╭─[ 3.41s - stdout ]───────────────────────────────────────────────────────────╮
│ 00:00:39 #106 [debug] runWithTimeoutChildAsync / timeout: 60 │
│ 00:00:39 #52 [debug] execute_with_options_async / options: struct (Some │
│ System.Threading.CancellationToken, │
│ "dotnet "C:\home\git\polyglot\deps\The-Spiral-Language\The Spiral │
│ Language 2\artifacts\bin\The Spiral Language 2\release\Spiral.dll" --port │
│ 13805 --default-int i32 --default-float f64", │
│ Some <fun:buildCode@3-532>, None, None) │
│ 00:00:40 #53 [verbose] > pwd: C:\home\git\polyglot\apps\spiral │
│ 00:00:40 #54 [verbose] > dllPath: │
│ C:\home\git\polyglot\deps\The-Spiral-Language\The Spiral Language │
│ 2\artifacts\bin\The Spiral Language 2\release │
│ 00:00:40 #55 [verbose] > targetDir: │
│ C:\home\git\polyglot\target/polyglot/spiral_eval │
│ 00:00:40 #56 [verbose] > Starting the Spiral Server. It is bound to: │
│ http://localhost:13805 │
│ 00:00:40 #107 [debug] runWithTimeoutChildAsync / timeout: 500 │
│ 00:00:40 #108 [verbose] waitForPortAccess / port: 13805 / retry: 0 │
│ 00:00:40 #109 [debug] sendJson / port: 13805 / json: {"Ping":true} / │
│ result.Length: │
│ 00:00:40 #110 [verbose] awaitCompiler / Ping / result: Some(null) / port: │
│ 13805 / retry: 0 │
│ 00:00:40 #57 [verbose] > Server bound to: http://localhost:13805 │
│ 00:00:40 #111 [debug] buildFile / takeWhileInclusive / fsxContent: / │
│ errors: [] / typeErrorCount: 0 │
│ 00:00:40 #112 [debug] buildFile / takeWhileInclusive / fsxContent: / │
│ errors: [] / typeErrorCount: 0 │
│ 00:00:40 #113 [debug] sendJson / port: 13805 / json: │
│ {"FileOpen":{"spiText":"\n/// abc\ninl main () =\n │
│ ()\n","uri":"file:///c:/home/git/polyglot/target/polyglot/spiral_eval/packag │
│ es/e83597a8ca85933ec91ea140faca562c6789f98f5348e641a1c44c73de804631/main.spi │
│ "}} / result.Length: │
│ 00:00:40 #114 [debug] sendJson / port: 13805 / json: │
│ {"BuildFile":{"backend":"Fsharp","uri":"file:///c:/home/git/polyglot/target/ │
│ polyglot/spiral_eval/packages/e83597a8ca85933ec91ea140faca562c6789f98f5348e6 │
│ 41a1c44c73de804631/main.spi"}} / result.Length: │
│ 00:00:40 #115 [debug] buildFile / takeWhileInclusive / fsxContent: / │
│ errors: [ │
│ [ │
│ "main.spi: │
│ Expected: whitespace", │
│ { │
│ "TokenizerErrors": { │
│ "errors": [ │
│ [ │
│ [ │
│ { │
│ "character": 2, │
│ "line": 1 │
│ }, │
│ { │
│ "character": 3, │
│ "line": 1 │
│ } │
│ ], │
│ "Expected: whitespace" │
│ ] │
│ ], │
│ "uri": │
│ "file:///c:\home\git\polyglot\target\polyglot\spiral_eval\packages\e83597a8c │
│ a85933ec91ea140faca562c6789f98f5348e641a1c44c73de804631\main.spi" │
│ } │
│ } │
│ ] │
│ ] / typeErrorCount: 0 │
│ 00:00:40 #116 [verbose] waitForPortAccess / port: 13805 / retry: 0 │
│ 00:00:42 #117 [debug] runWithTimeoutChildAsync / timeout: 2000 │
│ 00:00:42 #118 [debug] watchWithFilter / Disposing watch stream / filter: │
│ FileName, LastWrite │
│ FSharpOption<Tuple<FSharpOption<String>,FSharpList<String>>> │
│ Value: - <null> │
│ - [ main.spi: │
│ Expected: whitespace ] │
│ │
╰──────────────────────────────────────────────────────────────────────────────╯
── fsharp ──────────────────────────────────────────────────────────────────────
//// test
"""
inl main () =
real
inl real_unbox forall a. (obj : a) : a =
typecase obj with
| _ => obj
real_unbox ()
()
"""
|> buildCode 10000 None
|> Async.runWithTimeout 10000
|> Option.map (fun (fsxContent, errors) -> fsxContent, errors |> List.map fst)
|> _assertEqual (
Some (
None,
[[ "Cannot apply a forall with a term." ]]
)
)
╭─[ 4.86s - stdout ]───────────────────────────────────────────────────────────╮
│ 00:00:43 #119 [debug] runWithTimeoutChildAsync / timeout: 60 │
│ 00:00:43 #58 [debug] execute_with_options_async / options: struct (Some │
│ System.Threading.CancellationToken, │
│ "dotnet "C:\home\git\polyglot\deps\The-Spiral-Language\The Spiral │
│ Language 2\artifacts\bin\The Spiral Language 2\release\Spiral.dll" --port │
│ 13805 --default-int i32 --default-float f64", │
│ Some <fun:buildCode@3-532>, None, None) │
│ 00:00:43 #59 [verbose] > pwd: C:\home\git\polyglot\apps\spiral │
│ 00:00:43 #60 [verbose] > dllPath: │
│ C:\home\git\polyglot\deps\The-Spiral-Language\The Spiral Language │
│ 2\artifacts\bin\The Spiral Language 2\release │
│ 00:00:43 #61 [verbose] > targetDir: │
│ C:\home\git\polyglot\target/polyglot/spiral_eval │
│ 00:00:43 #62 [verbose] > Starting the Spiral Server. It is bound to: │
│ http://localhost:13805 │
│ 00:00:44 #120 [debug] runWithTimeoutChildAsync / timeout: 500 │
│ 00:00:44 #121 [verbose] waitForPortAccess / port: 13805 / retry: 0 │
│ 00:00:44 #122 [debug] sendJson / port: 13805 / json: {"Ping":true} / │
│ result.Length: │
│ 00:00:44 #123 [verbose] awaitCompiler / Ping / result: Some(null) / port: │
│ 13805 / retry: 0 │
│ 00:00:44 #63 [verbose] > Server bound to: http://localhost:13805 │
│ 00:00:44 #124 [debug] buildFile / takeWhileInclusive / fsxContent: / │
│ errors: [] / typeErrorCount: 0 │
│ 00:00:44 #125 [debug] buildFile / takeWhileInclusive / fsxContent: / │
│ errors: [] / typeErrorCount: 0 │
│ 00:00:44 #126 [debug] sendJson / port: 13805 / json: │
│ {"FileOpen":{"spiText":"\ninl main () =\n real\n inl real_unbox │
│ forall a. (obj : a) : a =\n typecase obj with\n | _ │
│ =\u003E obj\n real_unbox ()\n │
│ ()\n","uri":"file:///c:/home/git/polyglot/target/polyglot/spiral_eval/packag │
│ es/a2aa158e3d25dde470018a814a2045bf437bae1760d98ab33335c72b076d4d50/main.spi │
│ "}} / result.Length: │
│ 00:00:44 #127 [debug] sendJson / port: 13805 / json: │
│ {"BuildFile":{"backend":"Fsharp","uri":"file:///c:/home/git/polyglot/target/ │
│ polyglot/spiral_eval/packages/a2aa158e3d25dde470018a814a2045bf437bae1760d98a │
│ b33335c72b076d4d50/main.spi"}} / result.Length: │
│ 00:00:44 #64 [verbose] > Building │
│ c:\home\git\polyglot\target\polyglot\spiral_eval\packages\a2aa158e3d25dde470 │
│ 018a814a2045bf437bae1760d98ab33335c72b076d4d50\main.spi │
│ 00:00:45 #128 [debug] buildFile / takeWhileInclusive / fsxContent: / │
│ errors: [] / typeErrorCount: 0 │
│ 00:00:45 #129 [debug] buildFile / takeWhileInclusive / fsxContent: / │
│ errors: [ │
│ [ │
│ "Cannot apply a forall with a term.", │
│ { │
│ "TracedError": { │
│ "message": "Cannot apply a forall with a term.", │
│ "trace": [ │
│ "Error trace on line: 2, column: 10 in module: │
│ c:\home\git\polyglot\target\polyglot\spiral_eval\packages\a2aa158e3d25dde470 │
│ 018a814a2045bf437bae1760d98ab33335c72b076d4d50\main.spi. │
│ inl main () = │
│ ^ │
│ ", │
│ "Error trace on line: 4, column: 9 in module: │
│ c:\home\git\polyglot\target\polyglot\spiral_eval\packages\a2aa158e3d25dde470 │
│ 018a814a2045bf437bae1760d98ab33335c72b076d4d50\main.spi. │
│ inl real_unbox forall a. (obj : a) : a = │
│ ^ │
│ ", │
│ "Error trace on line: 7, column: 9 in module: │
│ c:\home\git\polyglot\target\polyglot\spiral_eval\packages\a2aa158e3d25dde470 │
│ 018a814a2045bf437bae1760d98ab33335c72b076d4d50\main.spi. │
│ real_unbox () │
│ ^ │
│ " │
│ ] │
│ } │
│ } │
│ ] │
│ ] / typeErrorCount: 0 │
│ 00:00:45 #130 [verbose] waitForPortAccess / port: 13805 / retry: 0 │
│ 00:00:47 #131 [debug] runWithTimeoutChildAsync / timeout: 2000 │
│ 00:00:47 #132 [debug] watchWithFilter / Disposing watch stream / filter: │
│ FileName, LastWrite │
│ FSharpOption<Tuple<FSharpOption<String>,FSharpList<String>>> │
│ Value: - <null> │
│ - [ Cannot apply a forall with a term. ] │
│ │
╰──────────────────────────────────────────────────────────────────────────────╯
── fsharp ──────────────────────────────────────────────────────────────────────
//// test
"""
inl main () =
real
inl real_unbox forall a. (obj : a) : a =
typecase obj with
| _ => obj
real_unbox `i32 1
"""
|> buildCode 10000 None
|> Async.runWithTimeout 10000
|> Option.map (fun (fsxContent, errors) -> fsxContent, errors |> List.map fst)
|> _assertEqual (
Some (
None,
[[ "The main function should not have a forall." ]]
)
)
╭─[ 4.75s - stdout ]───────────────────────────────────────────────────────────╮
│ 00:00:48 #133 [debug] runWithTimeoutChildAsync / timeout: 60 │
│ 00:00:48 #65 [debug] execute_with_options_async / options: struct (Some │
│ System.Threading.CancellationToken, │
│ "dotnet "C:\home\git\polyglot\deps\The-Spiral-Language\The Spiral │
│ Language 2\artifacts\bin\The Spiral Language 2\release\Spiral.dll" --port │
│ 13805 --default-int i32 --default-float f64", │
│ Some <fun:buildCode@3-532>, None, None) │
│ 00:00:48 #66 [verbose] > pwd: C:\home\git\polyglot\apps\spiral │
│ 00:00:48 #67 [verbose] > dllPath: │
│ C:\home\git\polyglot\deps\The-Spiral-Language\The Spiral Language │
│ 2\artifacts\bin\The Spiral Language 2\release │
│ 00:00:48 #68 [verbose] > targetDir: │
│ C:\home\git\polyglot\target/polyglot/spiral_eval │
│ 00:00:48 #69 [verbose] > Starting the Spiral Server. It is bound to: │
│ http://localhost:13805 │
│ 00:00:48 #134 [debug] runWithTimeoutChildAsync / timeout: 500 │
│ 00:00:48 #135 [verbose] waitForPortAccess / port: 13805 / retry: 0 │
│ 00:00:49 #136 [debug] sendJson / port: 13805 / json: {"Ping":true} / │
│ result.Length: │
│ 00:00:49 #137 [verbose] awaitCompiler / Ping / result: Some(null) / port: │
│ 13805 / retry: 0 │
│ 00:00:49 #70 [verbose] > Server bound to: http://localhost:13805 │
│ 00:00:49 #138 [debug] buildFile / takeWhileInclusive / fsxContent: / │
│ errors: [] / typeErrorCount: 0 │
│ 00:00:49 #139 [debug] buildFile / takeWhileInclusive / fsxContent: / │
│ errors: [] / typeErrorCount: 0 │
│ 00:00:49 #140 [debug] sendJson / port: 13805 / json: │
│ {"FileOpen":{"spiText":"\ninl main () =\n real\n inl real_unbox │
│ forall a. (obj : a) : a =\n typecase obj with\n | _ │
│ =\u003E obj\n real_unbox \u0060i32 │
│ 1\n","uri":"file:///c:/home/git/polyglot/target/polyglot/spiral_eval/package │
│ s/84eca3865a0cfc1afd28f49a38d395e9b89071527b4bda759de7cfb116593b3e/main.spi" │
│ }} / result.Length: │
│ 00:00:49 #141 [debug] sendJson / port: 13805 / json: │
│ {"BuildFile":{"backend":"Fsharp","uri":"file:///c:/home/git/polyglot/target/ │
│ polyglot/spiral_eval/packages/84eca3865a0cfc1afd28f49a38d395e9b89071527b4bda │
│ 759de7cfb116593b3e/main.spi"}} / result.Length: │
│ 00:00:49 #71 [verbose] > Building │
│ c:\home\git\polyglot\target\polyglot\spiral_eval\packages\84eca3865a0cfc1afd │
│ 28f49a38d395e9b89071527b4bda759de7cfb116593b3e\main.spi │
│ 00:00:50 #142 [debug] buildFile / takeWhileInclusive / fsxContent: / │
│ errors: [] / typeErrorCount: 0 │
│ 00:00:50 #143 [debug] buildFile / takeWhileInclusive / fsxContent: / │
│ errors: [ │
│ [ │
│ "The main function should not have a forall.", │
│ { │
│ "TracedError": { │
│ "message": "The main function should not have a forall.", │
│ "trace": [] │
│ } │
│ } │
│ ] │
│ ] / typeErrorCount: 0 │
│ 00:00:50 #144 [verbose] waitForPortAccess / port: 13805 / retry: 0 │
│ 00:00:52 #145 [debug] runWithTimeoutChildAsync / timeout: 2000 │
│ 00:00:52 #146 [debug] watchWithFilter / Disposing watch stream / filter: │
│ FileName, LastWrite │
│ FSharpOption<Tuple<FSharpOption<String>,FSharpList<String>>> │
│ Value: - <null> │
│ - [ The main function should not have a forall. ] │
│ │
╰──────────────────────────────────────────────────────────────────────────────╯
── fsharp ──────────────────────────────────────────────────────────────────────
//// test
"""
inl init_series start end inc =
inl total : f64 = conv ((end - start) / inc) + 1
listm.init total (conv >> (*) inc >> (+) start) : list f64
type integration = (f64 -> f64) -> f64 -> f64 -> f64
inl integral dt : integration =
fun f a b =>
init_series (a + dt / 2) (b - dt / 2) dt
|> listm.map (f >> (*) dt)
|> listm.fold (+) 0
inl main () =
integral 0.1 (fun x => x ** 2) 0 1
"""
|> buildCode 10000 None
|> Async.runWithTimeout 10000
|> Option.map (fun (fsxContent, errors) -> fsxContent, errors |> List.map fst)
|> _assertEqual (
Some (
Some "0.3325000000000001\n",
[[]]
)
)
╭─[ 5.07s - stdout ]───────────────────────────────────────────────────────────╮
│ 00:00:52 #147 [debug] runWithTimeoutChildAsync / timeout: 60 │
│ 00:00:52 #72 [debug] execute_with_options_async / options: struct (Some │
│ System.Threading.CancellationToken, │
│ "dotnet "C:\home\git\polyglot\deps\The-Spiral-Language\The Spiral │
│ Language 2\artifacts\bin\The Spiral Language 2\release\Spiral.dll" --port │
│ 13805 --default-int i32 --default-float f64", │
│ Some <fun:buildCode@3-532>, None, None) │
│ 00:00:53 #73 [verbose] > pwd: C:\home\git\polyglot\apps\spiral │
│ 00:00:53 #74 [verbose] > dllPath: │
│ C:\home\git\polyglot\deps\The-Spiral-Language\The Spiral Language │
│ 2\artifacts\bin\The Spiral Language 2\release │
│ 00:00:53 #75 [verbose] > targetDir: │
│ C:\home\git\polyglot\target/polyglot/spiral_eval │
│ 00:00:53 #76 [verbose] > Starting the Spiral Server. It is bound to: │
│ http://localhost:13805 │
│ 00:00:53 #148 [debug] runWithTimeoutChildAsync / timeout: 500 │
│ 00:00:53 #149 [verbose] waitForPortAccess / port: 13805 / retry: 0 │
│ 00:00:53 #150 [debug] sendJson / port: 13805 / json: {"Ping":true} / │
│ result.Length: │
│ 00:00:53 #151 [verbose] awaitCompiler / Ping / result: Some(null) / port: │
│ 13805 / retry: 0 │
│ 00:00:53 #77 [verbose] > Server bound to: http://localhost:13805 │
│ 00:00:53 #152 [debug] buildFile / takeWhileInclusive / fsxContent: / │
│ errors: [] / typeErrorCount: 0 │
│ 00:00:53 #153 [debug] buildFile / takeWhileInclusive / fsxContent: / │
│ errors: [] / typeErrorCount: 0 │
│ 00:00:53 #154 [debug] sendJson / port: 13805 / json: │
│ {"FileOpen":{"spiText":"\ninl init_series start end inc =\n inl total : │
│ f64 = conv ((end - start) / inc) \u002B 1\n listm.init total (conv │
│ \u003E\u003E (*) inc \u003E\u003E (\u002B) start) : list f64\n\ntype │
│ integration = (f64 -\u003E f64) -\u003E f64 -\u003E f64 -\u003E f64\n\ninl │
│ integral dt : integration =\n fun f a b =\u003E\n init_series (a │
│ \u002B dt / 2) (b - dt / 2) dt\n |\u003E listm.map (f \u003E\u003E │
│ (*) dt)\n |\u003E listm.fold (\u002B) 0\n\ninl main () =\n │
│ integral 0.1 (fun x =\u003E x ** 2) 0 │
│ 1\n","uri":"file:///c:/home/git/polyglot/target/polyglot/spiral_eval/package │
│ s/c0932fdbf60389c2ae8b78bb5443994f2d0ecdc6c6e7dfddf408cecaa050d294/main.spi" │
│ }} / result.Length: │
│ 00:00:54 #155 [debug] sendJson / port: 13805 / json: │
│ {"BuildFile":{"backend":"Fsharp","uri":"file:///c:/home/git/polyglot/target/ │
│ polyglot/spiral_eval/packages/c0932fdbf60389c2ae8b78bb5443994f2d0ecdc6c6e7df │
│ ddf408cecaa050d294/main.spi"}} / result.Length: │
│ 00:00:54 #78 [verbose] > Building │
│ c:\home\git\polyglot\target\polyglot\spiral_eval\packages\c0932fdbf60389c2ae │
│ 8b78bb5443994f2d0ecdc6c6e7dfddf408cecaa050d294\main.spi │
│ 00:00:54 #156 [debug] buildFile / takeWhileInclusive / fsxContent: / │
│ errors: [] / typeErrorCount: 0 │
│ 00:00:55 #157 [debug] buildFile / takeWhileInclusive / fsxContent: │
│ 0.3325000000000001 │
│ / errors: [] / typeErrorCount: 0 │
│ 00:00:55 #158 [verbose] waitForPortAccess / port: 13805 / retry: 0 │
│ 00:00:57 #159 [debug] runWithTimeoutChildAsync / timeout: 2000 │
│ 00:00:57 #160 [debug] watchWithFilter / Disposing watch stream / filter: │
│ FileName, LastWrite │
│ FSharpOption<Tuple<FSharpOption<String>,FSharpList<String>>> │
│ Value: - FSharpOption<String> │
│ Value: 0.3325000000000001 │
│ │
│ - [ ] │
│ │
╰──────────────────────────────────────────────────────────────────────────────╯
── fsharp ──────────────────────────────────────────────────────────────────────
//// test
"""
inl init_series start end inc =
inl total : f64 = conv ((end - start) / inc) + 1
listm.init total (conv >> (*) inc >> (+) start) : list f64
type integration = (f64 -> f64) -> f64 -> f64 -> f64
inl integral dt : integration =
fun f a b =>
init_series (a + dt / 2) (b - dt / 2) dt
|> listm.map (f >> (*) dt)
|> listm.fold (+) 0
inl main () =
integral 0.01 (fun x => x ** 2) 0 1
"""
|> buildCode 10000 None
|> Async.runWithTimeout 10000
|> Option.map (fun (fsxContent, errors) -> fsxContent, errors |> List.map fst)
|> _assertEqual (
Some (
Some "0.33332500000000004\n",
[[]]
)
)
// |> _assertEqual None
// |> fun x -> printfn $"{x.ToDisplayString ()}"
╭─[ 5.02s - stdout ]───────────────────────────────────────────────────────────╮
│ 00:00:58 #161 [debug] runWithTimeoutChildAsync / timeout: 60 │
│ 00:00:58 #79 [debug] execute_with_options_async / options: struct (Some │
│ System.Threading.CancellationToken, │
│ "dotnet "C:\home\git\polyglot\deps\The-Spiral-Language\The Spiral │
│ Language 2\artifacts\bin\The Spiral Language 2\release\Spiral.dll" --port │
│ 13805 --default-int i32 --default-float f64", │
│ Some <fun:buildCode@3-532>, None, None) │
│ 00:00:58 #80 [verbose] > pwd: C:\home\git\polyglot\apps\spiral │
│ 00:00:58 #81 [verbose] > dllPath: │
│ C:\home\git\polyglot\deps\The-Spiral-Language\The Spiral Language │
│ 2\artifacts\bin\The Spiral Language 2\release │
│ 00:00:58 #82 [verbose] > targetDir: │
│ C:\home\git\polyglot\target/polyglot/spiral_eval │
│ 00:00:58 #83 [verbose] > Starting the Spiral Server. It is bound to: │
│ http://localhost:13805 │
│ 00:00:58 #162 [debug] runWithTimeoutChildAsync / timeout: 500 │
│ 00:00:58 #163 [verbose] waitForPortAccess / port: 13805 / retry: 0 │
│ 00:00:59 #164 [debug] sendJson / port: 13805 / json: {"Ping":true} / │
│ result.Length: │
│ 00:00:59 #165 [verbose] awaitCompiler / Ping / result: Some(null) / port: │
│ 13805 / retry: 0 │
│ 00:00:59 #84 [verbose] > Server bound to: http://localhost:13805 │
│ 00:00:59 #166 [debug] buildFile / takeWhileInclusive / fsxContent: / │
│ errors: [] / typeErrorCount: 0 │
│ 00:00:59 #167 [debug] buildFile / takeWhileInclusive / fsxContent: / │
│ errors: [] / typeErrorCount: 0 │
│ 00:00:59 #168 [debug] sendJson / port: 13805 / json: │
│ {"FileOpen":{"spiText":"\ninl init_series start end inc =\n inl total : │
│ f64 = conv ((end - start) / inc) \u002B 1\n listm.init total (conv │
│ \u003E\u003E (*) inc \u003E\u003E (\u002B) start) : list f64\n\ntype │
│ integration = (f64 -\u003E f64) -\u003E f64 -\u003E f64 -\u003E f64\n\ninl │
│ integral dt : integration =\n fun f a b =\u003E\n init_series (a │
│ \u002B dt / 2) (b - dt / 2) dt\n |\u003E listm.map (f \u003E\u003E │
│ (*) dt)\n |\u003E listm.fold (\u002B) 0\n\ninl main () =\n │
│ integral 0.01 (fun x =\u003E x ** 2) 0 │
│ 1\n","uri":"file:///c:/home/git/polyglot/target/polyglot/spiral_eval/package │
│ s/355c36b6d259fe6b1c7527aa9b475ca37914ad348c4a239687383dcd0daeed2c/main.spi" │
│ }} / result.Length: │
│ 00:00:59 #169 [debug] sendJson / port: 13805 / json: │
│ {"BuildFile":{"backend":"Fsharp","uri":"file:///c:/home/git/polyglot/target/ │
│ polyglot/spiral_eval/packages/355c36b6d259fe6b1c7527aa9b475ca37914ad348c4a23 │
│ 9687383dcd0daeed2c/main.spi"}} / result.Length: │
│ 00:00:59 #85 [verbose] > Building │
│ c:\home\git\polyglot\target\polyglot\spiral_eval\packages\355c36b6d259fe6b1c │
│ 7527aa9b475ca37914ad348c4a239687383dcd0daeed2c\main.spi │
│ 00:01:00 #170 [debug] buildFile / takeWhileInclusive / fsxContent: / │
│ errors: [] / typeErrorCount: 0 │
│ 00:01:00 #171 [debug] buildFile / takeWhileInclusive / fsxContent: │
│ 0.33332500000000004 │
│ / errors: [] / typeErrorCount: 0 │
│ 00:01:00 #172 [verbose] waitForPortAccess / port: 13805 / retry: 0 │
│ 00:01:02 #173 [debug] runWithTimeoutChildAsync / timeout: 2000 │
│ 00:01:02 #174 [debug] watchWithFilter / Disposing watch stream / filter: │
│ FileName, LastWrite │
│ FSharpOption<Tuple<FSharpOption<String>,FSharpList<String>>> │
│ Value: - FSharpOption<String> │
│ Value: 0.33332500000000004 │
│ │
│ - [ ] │
│ │
╰──────────────────────────────────────────────────────────────────────────────╯
── markdown ────────────────────────────────────────────────────────────────────
╭──────────────────────────────────────────────────────────────────────────────╮
│ ## getFileTokenRange │
╰──────────────────────────────────────────────────────────────────────────────╯
── fsharp ──────────────────────────────────────────────────────────────────────
let inline getFileTokenRange port cancellationToken path = async {
let fullPath = path |> System.IO.Path.GetFullPath
let! code = fullPath |> SpiralFileSystem.read_all_text_async
let lines = code |> SpiralSm.split "\n"
let token, disposable = Threading.newDisposableToken cancellationToken
use _ = disposable
let! serverPort, _errors, ct, disposable =
match port with
| Some port -> awaitCompiler port (Some token)
| None -> (getCompilerPort (), FSharp.Control.AsyncSeq.empty, token,
new_disposable id) |> Async.init
use _ = disposable
let fileOpenObj = {| FileOpen = {| uri = fullPath |> getFileUri; spiText =
code |} |}
let! _fileOpenResult = fileOpenObj |> sendObj serverPort
let fileTokenRangeObj =
{|
FileTokenRange =
{|
uri = fullPath |> getFileUri
range =
[[|
{| line = 0; character = 0 |}
{| line = lines.Length - 1; character =
lines.[[lines.Length - 1]].Length |}
|]]
|}
|}
let! fileTokenRangeResult =
fileTokenRangeObj
|> sendObj serverPort
|> Async.withCancellationToken ct
return fileTokenRangeResult |> Option.map FSharp.Json.Json.deserialize<int
array>
}
── markdown ────────────────────────────────────────────────────────────────────
╭──────────────────────────────────────────────────────────────────────────────╮
│ ## getCodeTokenRange │
╰──────────────────────────────────────────────────────────────────────────────╯
── fsharp ──────────────────────────────────────────────────────────────────────
let inline getCodeTokenRange cancellationToken code = async {
let! mainPath = persistCode code
let port = getCompilerPort ()
return! mainPath |> getFileTokenRange (Some port) cancellationToken
}
── fsharp ──────────────────────────────────────────────────────────────────────
//// test
"""inl main () = ()"""
|> getCodeTokenRange None
|> Async.runWithTimeout 10000
|> Option.flatten
|> _assertEqual (Some [[| 0; 0; 3; 7; 0; 0; 4; 4; 0; 0; 0; 5; 1; 8; 0; 0; 1; 1;
8; 0; 0; 2; 1; 4; 0; 0;
2; 1; 8; 0; 0; 1; 1; 8; 0 |]])
╭─[ 5.65s - stdout ]───────────────────────────────────────────────────────────╮
│ 00:01:08 #175 [debug] runWithTimeoutChildAsync / timeout: 60 │
│ 00:01:08 #86 [debug] execute_with_options_async / options: struct (Some │
│ System.Threading.CancellationToken, │
│ "dotnet "C:\home\git\polyglot\deps\The-Spiral-Language\The Spiral │
│ Language 2\artifacts\bin\The Spiral Language 2\release\Spiral.dll" --port │
│ 13805 --default-int i32 --default-float f64", │
│ Some <fun:it@4-233>, None, None) │
│ 00:01:09 #87 [verbose] > pwd: C:\home\git\polyglot\apps\spiral │
│ 00:01:09 #88 [verbose] > dllPath: │
│ C:\home\git\polyglot\deps\The-Spiral-Language\The Spiral Language │
│ 2\artifacts\bin\The Spiral Language 2\release │
│ 00:01:09 #89 [verbose] > targetDir: │
│ C:\home\git\polyglot\target/polyglot/spiral_eval │
│ 00:01:09 #90 [verbose] > Starting the Spiral Server. It is bound to: │
│ http://localhost:13805 │
│ 00:01:09 #176 [debug] runWithTimeoutChildAsync / timeout: 500 │
│ 00:01:09 #177 [verbose] waitForPortAccess / port: 13805 / retry: 0 │
│ 00:01:09 #178 [debug] sendJson / port: 13805 / json: {"Ping":true} / │
│ result.Length: │
│ 00:01:09 #179 [verbose] awaitCompiler / Ping / result: Some(null) / port: │
│ 13805 / retry: 0 │
│ 00:01:09 #91 [verbose] > Server bound to: http://localhost:13805 │
│ 00:01:09 #180 [debug] sendJson / port: 13805 / json: │
│ {"FileOpen":{"spiText":"inl main () = │
│ ()","uri":"file:///c:/home/git/polyglot/target/polyglot/spiral_eval/packages │
│ /fb6c8d45c45c5bed6706c564f1573e80b77a3923967ce83cb69737ce2ce5040c/main.spi"} │
│ } / result.Length: │
│ 00:01:10 #181 [debug] sendJson / port: 13805 / json: │
│ {"FileTokenRange":{"range":[ │
│ {"character":0,"line":0},{"character":16,"line":0}],"uri":"file:///c:/home/g │
│ it/polyglot/target/polyglot/spiral_eval/packages/fb6c8d45c45c5bed6706c564f15 │
│ 73e80b77a3923967ce83cb69737ce2ce5040c/main.spi"}} / result.Length: Some(213) │
│ 00:01:12 #182 [debug] runWithTimeoutChildAsync / timeout: 2000 │
│ FSharpOption<Int32[]> │
│ Value: [ 0, 0, 3, 7, 0, 0, 4, 4, 0, 0, 0, 5, 1, 8, 0, 0, 1, 1, 8, 0, │
│ 0, 2, 1, 4, 0, 0, 2, 1, 8, 0, 0, 1, 1, 8, 0 ] │
│ │
╰──────────────────────────────────────────────────────────────────────────────╯
── fsharp ──────────────────────────────────────────────────────────────────────
//// test
"""inl main () = 1i32"""
|> getCodeTokenRange None
|> Async.runWithTimeout 10000
|> Option.flatten
|> _assertEqual (Some [[| 0; 0; 3; 7; 0; 0; 4; 4; 0; 0; 0; 5; 1; 8; 0; 0; 1; 1;
8; 0; 0; 2; 1; 4; 0; 0;
2; 1; 3; 0; 0; 1; 3; 12; 0 |]])
╭─[ 5.62s - stdout ]───────────────────────────────────────────────────────────╮
│ 00:01:14 #183 [debug] runWithTimeoutChildAsync / timeout: 60 │
│ 00:01:14 #92 [debug] execute_with_options_async / options: struct (Some │
│ System.Threading.CancellationToken, │
│ "dotnet "C:\home\git\polyglot\deps\The-Spiral-Language\The Spiral │
│ Language 2\artifacts\bin\The Spiral Language 2\release\Spiral.dll" --port │
│ 13805 --default-int i32 --default-float f64", │
│ Some <fun:it@4-540>, None, None) │
│ 00:01:15 #93 [verbose] > pwd: C:\home\git\polyglot\apps\spiral │
│ 00:01:15 #94 [verbose] > dllPath: │
│ C:\home\git\polyglot\deps\The-Spiral-Language\The Spiral Language │
│ 2\artifacts\bin\The Spiral Language 2\release │
│ 00:01:15 #95 [verbose] > targetDir: │
│ C:\home\git\polyglot\target/polyglot/spiral_eval │
│ 00:01:15 #96 [verbose] > Starting the Spiral Server. It is bound to: │
│ http://localhost:13805 │
│ 00:01:15 #184 [debug] runWithTimeoutChildAsync / timeout: 500 │
│ 00:01:15 #185 [verbose] waitForPortAccess / port: 13805 / retry: 0 │
│ 00:01:15 #186 [debug] sendJson / port: 13805 / json: {"Ping":true} / │
│ result.Length: │
│ 00:01:15 #187 [verbose] awaitCompiler / Ping / result: Some(null) / port: │
│ 13805 / retry: 0 │
│ 00:01:15 #97 [verbose] > Server bound to: http://localhost:13805 │
│ 00:01:15 #188 [debug] sendJson / port: 13805 / json: │
│ {"FileOpen":{"spiText":"inl main () = │
│ 1i32","uri":"file:///c:/home/git/polyglot/target/polyglot/spiral_eval/packag │
│ es/9df95a2f18642bd8d2f682f6edb6cef45c30ca9c616b33ebb0e5577eed14871c/main.spi │
│ "}} / result.Length: │
│ 00:01:16 #189 [debug] sendJson / port: 13805 / json: │
│ {"FileTokenRange":{"range":[ │
│ {"character":0,"line":0},{"character":18,"line":0}],"uri":"file:///c:/home/g │
│ it/polyglot/target/polyglot/spiral_eval/packages/9df95a2f18642bd8d2f682f6edb │
│ 6cef45c30ca9c616b33ebb0e5577eed14871c/main.spi"}} / result.Length: Some(214) │
│ 00:01:18 #190 [debug] runWithTimeoutChildAsync / timeout: 2000 │
│ FSharpOption<Int32[]> │
│ Value: [ 0, 0, 3, 7, 0, 0, 4, 4, 0, 0, 0, 5, 1, 8, 0, 0, 1, 1, 8, 0, │
│ 0, 2, 1, 4, 0, 0, 2, 1, 3, 0, 0, 1, 3, 12, 0 ] │
│ │
╰──────────────────────────────────────────────────────────────────────────────╯
── markdown ────────────────────────────────────────────────────────────────────
╭──────────────────────────────────────────────────────────────────────────────╮
│ ## Arguments │
╰──────────────────────────────────────────────────────────────────────────────╯
── fsharp ──────────────────────────────────────────────────────────────────────
[[<RequireQualifiedAccess>]]
type Arguments =
| Build_File of string * string
| File_Token_Range of string * string
| Execute_Command of string
| [[<Argu.ArguAttributes.Unique>]] Timeout of int
| [[<Argu.ArguAttributes.Unique>]] Port of int
| [[<Argu.ArguAttributes.Unique>]] Parallel
interface Argu.IArgParserTemplate with
member s.Usage =
match s with
| Build_File _ -> nameof Build_File
| File_Token_Range _ -> nameof File_Token_Range
| Execute_Command _ -> nameof Execute_Command
| Timeout _ -> nameof Timeout
| Port _ -> nameof Port
| Parallel -> nameof Parallel
── fsharp ──────────────────────────────────────────────────────────────────────
//// test
Argu.ArgumentParser.Create<Arguments>().PrintUsage ()
╭─[ 109.92ms - return value ]──────────────────────────────────────────────────╮
│ USAGE: dotnet-repl [--help] [--build-file <string> <string>] │
│ [--file-token-range <string> <string>] │
│ [--execute-command <string>] [--timeout <int>] [--port │
│ <int>] │
│ [--parallel] │
│ │
│ OPTIONS: │
│ │
│ --build-file <string> <string> │
│ Build_File │
│ --file-token-range <string> <string> │
│ File_Token_Range │
│ --execute-command <string> │
│ Execute_Command │
│ --timeout <int> Timeout │
│ --port <int> Port │
│ --parallel Parallel │
│ --help display this list of options. │
│ │
╰──────────────────────────────────────────────────────────────────────────────╯
── markdown ────────────────────────────────────────────────────────────────────
╭──────────────────────────────────────────────────────────────────────────────╮
│ ## main │
╰──────────────────────────────────────────────────────────────────────────────╯
── fsharp ──────────────────────────────────────────────────────────────────────
let main args =
let argsMap = args |> Runtime.parseArgsMap<Arguments>
let buildFileActions =
argsMap
|> Map.tryFind (nameof Arguments.Build_File)
|> Option.defaultValue [[]]
|> List.choose (function
| Arguments.Build_File (inputPath, outputPath) -> Some (inputPath,
outputPath)
| _ -> None
)
let fileTokenRangeActions =
argsMap
|> Map.tryFind (nameof Arguments.File_Token_Range)
|> Option.defaultValue [[]]
|> List.choose (function
| Arguments.File_Token_Range (inputPath, outputPath) -> Some
(inputPath, outputPath)
| _ -> None
)
let executeCommandActions =
argsMap
|> Map.tryFind (nameof Arguments.Execute_Command)
|> Option.defaultValue [[]]
|> List.choose (function
| Arguments.Execute_Command command -> Some command
| _ -> None
)
let timeout =
match argsMap |> Map.tryFind (nameof Arguments.Timeout) with
| Some [[ Arguments.Timeout timeout ]] -> timeout
| _ -> 60000 * 60
let port =
match argsMap |> Map.tryFind (nameof Arguments.Port) with
| Some [[ Arguments.Port port ]] -> Some port
| _ -> None
let isParallel = argsMap |> Map.containsKey (nameof Arguments.Parallel)
async {
let port = port |> Option.defaultWith getCompilerPort
let localToken, disposable = Threading.newDisposableToken None
let! serverPort, _errors, compilerToken, disposable = awaitCompiler port
(Some localToken)
use _ = disposable
let buildFileAsync =
buildFileActions
|> List.map (fun (inputPath, outputPath) -> async {
let! outputCode, errors = inputPath |> buildFile timeout
serverPort None
errors
|> List.map snd
|> List.iter (fun error ->
trace Critical (fun () -> $"main / error: {error |>
serializeObj}") getLocals
)
match outputCode with
| Some outputCode ->
do! outputCode |> SpiralFileSystem.write_all_text_async
outputPath
return 0
| None ->
return 1
})
let fileTokenRangeAsync =
fileTokenRangeActions
|> List.map (fun (inputPath, outputPath) -> async {
let! tokenRange = inputPath |> getFileTokenRange (Some
serverPort) None
match tokenRange with
| Some tokenRange ->
do! tokenRange |> FSharp.Json.Json.serialize |>
SpiralFileSystem.write_all_text_async outputPath
return 0
| None ->
return 1
})
let executeCommandAsync =
executeCommandActions
|> List.map (fun command -> async {
let! exitCode, result =
SpiralRuntime.execute_with_options_async struct (Some
compilerToken, command, None, None, None)
trace Debug (fun () -> $"main / executeCommand / exitCode:
{exitCode}") getLocals
return exitCode
})
return!
[[| buildFileAsync; fileTokenRangeAsync; executeCommandAsync |]]
|> Seq.collect id
|> fun x ->
if isParallel
then Async.Parallel (x, float System.Environment.ProcessorCount
* 0.75 |> ceil |> int)
else Async.Sequential x
|> Async.map Array.sum
}
|> Async.runWithTimeout timeout
|> Option.defaultValue 1
── fsharp ──────────────────────────────────────────────────────────────────────
//// test
let args =
System.Environment.GetEnvironmentVariable "ARGS"
|> Runtime.splitArgs
|> Seq.toArray
match args with
| [[||]] -> 0
| args -> if main args = 0 then 0 else failwith "main failed"
╭─[ 57.94ms - return value ]───────────────────────────────────────────────────╮
│ <div class="dni-plaintext"><pre>0</pre></div><style> │
│ .dni-code-hint { │
│ font-style: italic; │
│ overflow: hidden; │
│ white-space: nowrap; │
│ } │
│ .dni-treeview { │
│ white-space: nowrap; │
│ } │
│ .dni-treeview td { │
│ vertical-align: top; │
│ text-align: start; │
│ } │
│ details.dni-treeview { │
│ padding-left: 1em; │
│ } │
│ table td { │
│ text-align: start; │
│ } │
│ table tr { │
│ vertical-align: top; │
│ margin: 0em 0px; │
│ } │
│ table tr td pre │
│ { │
│ vertical-align: top !important; │
│ margin: 0em 0px !important; │
│ } │
│ table th { │
│ text-align: start; │
│ } │
│ </style> │
╰──────────────────────────────────────────────────────────────────────────────╯
[NbConvertApp] Converting notebook Supervisor.dib.ipynb to html
C:\Users\i574n\scoop\apps\python\current\Lib\site-packages\nbformat\__init__.py:93: MissingIDFieldWarning: Code cell is missing an id field, this will become a hard error in future nbformat versions. You may want to use `normalize()` on your notebooks before validations (available since nbformat 5.1.4). Previous versions of nbformat are fixing this issue transparently, and will stop doing so in the future.
validate(nb)
C:\Users\i574n\scoop\apps\python\current\Lib\site-packages\nbconvert\filters\highlight.py:71: UserWarning: IPython3 lexer unavailable, falling back on Python 3
return _pygments_highlight(
[NbConvertApp] Writing 457338 bytes to Supervisor.dib.html
00:00:00 #1 [debug] writeDibCode / output: Fs / path: Supervisor.dib
00:00:00 #2 [debug] parseDibCode / output: Fs / file: Supervisor.dib
00:00:00 #1 [debug] persistCodeProject / packages: [Argu; FSharp.Control.AsyncSeq; FSharp.Json; ... ] / modules: [lib/spiral/common.fsx; lib/spiral/sm.fsx; lib/spiral/crypto.fsx; ... ] / name: Supervisor / code.Length: 19510
00:00:00 #2 [debug] buildProject / fullPath: C:\home\git\polyglot\target\polyglot\builder\Supervisor\Supervisor.fsproj
00:00:00 #1 [debug] execute_with_options_async / options: struct (None,
"dotnet publish "C:\home\git\polyglot\target/polyglot/builder\Supervisor\Supervisor.fsproj" --configuration Release --output "C:\home\git\polyglot\apps\spiral\dist" --runtime linux-x64",
None, None,
Some "C:\home\git\polyglot\target\polyglot\builder\Supervisor")
00:00:00 #2 [verbose] > MSBuild version 17.10.0-preview-24101-01+07fd5d51f for .NET
00:00:00 #3 [verbose] > Determining projects to restore...
00:00:01 #4 [verbose] > Restored C:\home\git\polyglot\target\polyglot\builder\Supervisor\Supervisor.fsproj (in 403 ms).
00:00:01 #5 [verbose] > C:\Users\i574n\scoop\apps\dotnet-sdk-preview\current\sdk\9.0.100-preview.1.24101.2\Sdks\Microsoft.NET.Sdk\targets\Microsoft.NET.RuntimeIdentifierInference.targets(313,5): message NETSDK1057: You are using a preview version of .NET. See: https://aka.ms/dotnet-support-policy [C:\home\git\polyglot\target\polyglot\builder\Supervisor\Supervisor.fsproj]
00:00:02 #6 [verbose] > Supervisor -> C:\home\git\polyglot\target\polyglot\builder\Supervisor\bin\Release\net9.0\linux-x64\Supervisor.dll
00:00:04 #7 [verbose] > Supervisor -> C:\home\git\polyglot\apps\spiral\dist\
00:00:04 #8 [debug] execute_with_options_async / exit_code: 0 / output.Length: 715
00:00:04 #9 [debug] execute_with_options_async / options: struct (None,
"dotnet publish "C:\home\git\polyglot\target/polyglot/builder\Supervisor\Supervisor.fsproj" --configuration Release --output "C:\home\git\polyglot\apps\spiral\dist" --runtime win-x64",
None, None,
Some "C:\home\git\polyglot\target\polyglot\builder\Supervisor")
00:00:04 #10 [verbose] > MSBuild version 17.10.0-preview-24101-01+07fd5d51f for .NET
00:00:04 #11 [verbose] > Determining projects to restore...
00:00:05 #12 [verbose] > Restored C:\home\git\polyglot\target\polyglot\builder\Supervisor\Supervisor.fsproj (in 390 ms).
00:00:05 #13 [verbose] > C:\Users\i574n\scoop\apps\dotnet-sdk-preview\current\sdk\9.0.100-preview.1.24101.2\Sdks\Microsoft.NET.Sdk\targets\Microsoft.NET.RuntimeIdentifierInference.targets(313,5): message NETSDK1057: You are using a preview version of .NET. See: https://aka.ms/dotnet-support-policy [C:\home\git\polyglot\target\polyglot\builder\Supervisor\Supervisor.fsproj]
00:00:06 #14 [verbose] > Supervisor -> C:\home\git\polyglot\target\polyglot\builder\Supervisor\bin\Release\net9.0\win-x64\Supervisor.dll
00:00:13 #15 [verbose] > Supervisor -> C:\home\git\polyglot\apps\spiral\dist\
00:00:13 #16 [debug] execute_with_options_async / exit_code: 0 / output.Length: 713
── markdown ────────────────────────────────────────────────────────────────────
╭──────────────────────────────────────────────────────────────────────────────╮
│ # Eval (Polyglot) │
╰──────────────────────────────────────────────────────────────────────────────╯
── fsharp ──────────────────────────────────────────────────────────────────────
#r
@"../../../../../../../.nuget/packages/fsharp.control.asyncseq/3.2.1/lib/netstan
dard2.1/FSharp.Control.AsyncSeq.dll"
#r
@"../../../../../../../.nuget/packages/system.reactive/6.0.1-preview.1/lib/net6.
0/System.Reactive.dll"
#r
@"../../../../../../../.nuget/packages/system.reactive.linq/6.0.1-preview.1/lib/
netstandard2.0/System.Reactive.Linq.dll"
#r
@"../../../../../../../.nuget/packages/argu/6.2.2/lib/netstandard2.0/Argu.dll"
#r
@"../../../../../../../.nuget/packages/system.commandline/2.0.0-beta4.22272.1/li
b/net6.0/System.CommandLine.dll"
#r
@"../../../../../../../.nuget/packages/microsoft.aspnetcore.http.connections.com
mon/7.0.0/lib/net7.0/Microsoft.AspNetCore.Http.Connections.Common.dll"
#r
@"../../../../../../../.nuget/packages/microsoft.aspnetcore.http.connections.cli
ent/7.0.0/lib/net7.0/Microsoft.AspNetCore.Http.Connections.Client.dll"
#r
@"../../../../../../../.nuget/packages/microsoft.aspnetcore.signalr.common/7.0.0
/lib/net7.0/Microsoft.AspNetCore.SignalR.Common.dll"
#r
@"../../../../../../../.nuget/packages/microsoft.aspnetcore.signalr.client/7.0.0
/lib/net7.0/Microsoft.AspNetCore.SignalR.Client.dll"
#r
@"../../../../../../../.nuget/packages/microsoft.aspnetcore.signalr.client.core/
7.0.0/lib/net7.0/Microsoft.AspNetCore.SignalR.Client.Core.dll"
#r
@"../../../../../../../.nuget/packages/fsharp.json/0.4.1/lib/netstandard2.0/FSha
rp.Json.dll"
── fsharp - import ─────────────────────────────────────────────────────────────
#r
"C:/Users/i574n/.nuget/packages/dotnet-repl/0.1.204/tools/net7.0/any/Microsoft.A
spNetCore.Html.Abstractions.dll"
#r
"C:/Users/i574n/.nuget/packages/dotnet-repl/0.1.204/tools/net7.0/any/Microsoft.D
otNet.Interactive.dll"
#r
"C:/Users/i574n/.nuget/packages/dotnet-repl/0.1.204/tools/net7.0/any/Microsoft.D
otNet.Interactive.FSharp.dll"
#r
"C:/Users/i574n/.nuget/packages/dotnet-repl/0.1.204/tools/net7.0/any/Microsoft.D
otNet.Interactive.Formatting.dll"
open System
open System.IO
open System.Text
open Microsoft.DotNet.Interactive.Formatting
── fsharp - import ─────────────────────────────────────────────────────────────
#r
"C:/Users/i574n/.nuget/packages/dotnet-repl/0.1.204/tools/net7.0/any/Microsoft.D
otNet.Interactive.FSharp.dll"
open Microsoft.DotNet.Interactive.FSharp.FSharpKernelHelpers
#r
"C:/Users/i574n/.nuget/packages/dotnet-repl/0.1.204/tools/net7.0/any/Microsoft.D
otNet.Interactive.dll"
open type Microsoft.DotNet.Interactive.Kernel
── fsharp - import ─────────────────────────────────────────────────────────────
#r
@"../../../../../../../.nuget/packages/fsharp.control.asyncseq/3.2.1/lib/netstan
dard2.1/FSharp.Control.AsyncSeq.dll"
#r
@"../../../../../../../.nuget/packages/system.reactive/6.0.1-preview.1/lib/net6.
0/System.Reactive.dll"
#r
@"../../../../../../../.nuget/packages/system.reactive.linq/6.0.1-preview.1/lib/
netstandard2.0/System.Reactive.Linq.dll"
#r
@"../../../../../../../.nuget/packages/argu/6.2.2/lib/netstandard2.0/Argu.dll"
#r
@"../../../../../../../.nuget/packages/system.commandline/2.0.0-beta4.22272.1/li
b/net6.0/System.CommandLine.dll"
#r
@"../../../../../../../.nuget/packages/microsoft.aspnetcore.http.connections.com
mon/7.0.0/lib/net7.0/Microsoft.AspNetCore.Http.Connections.Common.dll"
#r @"../../../../../../../.nuget/packages/micros...
── fsharp ──────────────────────────────────────────────────────────────────────
#!import ../../lib/fsharp/Notebooks.dib
#!import ../../lib/fsharp/Testing.dib
── fsharp - import ─────────────────────────────────────────────────────────────
//// test
Formatter.ListExpansionLimit <- 100
── fsharp - import ─────────────────────────────────────────────────────────────
type [[<Struct>]] US0 =
| US0_0
| US0_1
and [[<Struct>]] US1 =
| US1_0 of f0_0 : US0
| US1_1
let rec closure0 () (v0 : (unit -> unit)) : System.IDisposable =
let v1 : System.IDisposable option = None
let mutable _v1 = v1
#if FABLE_COMPILER_RUST && !WASM && !CONTRACT
let v2 : System.IDisposable = null |> unbox<System.IDisposable>
v2
#endif
#if FABLE_COMPILER_RUST && WASM
let v3 : System.IDisposable = null |> unbox<System.IDisposable>
v3
#endif
#if FABLE_COMPILER_RUST && CONTRACT
let v4 : System.IDisposable = null |> unbox<System.IDisposable>
v4
#endif
#if !FABLE_COMPILER && !FABLE_COMPILER_RUST && !FABLE_COMPILER_TYPESCRIPT &&
!WASM && !CONTRACT
let v5 : System.ID...
── fsharp - import ─────────────────────────────────────────────────────────────
type Mut0 = {mutable l0 : int32; mutable l1 : string}
and Mut1 = {mutable l0 : int32}
let rec closure1 (v0 : string) (v1 : string) : bool =
let v2 : bool = v1.Contains v0
v2
and closure0 () (v0 : string) : (string -> bool) =
closure1(v0)
and closure3 (v0 : string) (v1 : string) : bool =
let v2 : bool = v1.EndsWith v0
v2
and closure2 () (v0 : string) : (string -> bool) =
closure3(v0)
and closure6 (v0 : int32, v1 : char) (v2 : string) : string =
let v3 : string = v2.PadLeft (v0, v1)
v3
and closure5 (v0 : int32) (v1 : char) : (string -> string) =
closure6(v0, v1)
and closure4 () (v0 : int32) : (char -> (string -> string)) =
closure5(v0)
and closure8 (v0 : int32) (v1 : string) : string =
let v2 : stri...
── fsharp - import ─────────────────────────────────────────────────────────────
type ICryptoCreateHash = abstract createHash: x: string -> obj
type Mut0 = {mutable l0 : int32}
let rec method0 (v0 : int32, v1 : Mut0) : bool =
let v2 : int32 = v1.l0
let v3 : bool = v2 < v0
v3
and method1 () : string =
let v0 : string = ""
v0
and closure0 () (v0 : string) : string =
let v1 : string option = None
let mutable _v1 = v1
#if FABLE_COMPILER_RUST && !WASM && !CONTRACT
let v2 : string = null |> unbox<string>
v2
#endif
#if FABLE_COMPILER_RUST && WASM
let v3 : string = null |> unbox<string>
v3
#endif
#if FABLE_COMPILER_RUST && CONTRACT
let v4 : string = null |> unbox<string>
v4
#endif
#if !FABLE_COMPILER && !FABLE_COMPILER_RUST && !FABLE_COMPILER_TYP...
── fsharp - import ─────────────────────────────────────────────────────────────
let rec closure1 (v0 : System.Guid) (v1 : System.DateTime) : System.Guid =
let v2 : (System.Guid -> string) = _.ToString()
let v3 : string = v2 v0
let v4 : string = v1.ToString "yyyyMMdd-HHmm-ssff-ffff-f"
let v5 : System.Guid = System.Guid $"{v4}{v3.[[v4.Length..]]}"
v5
and closure0 () (v0 : System.Guid) : (System.DateTime -> System.Guid) =
closure1(v0)
and closure5 (v0 : string, v1 : string) (v2 : string) : string =
let v3 : string = v2.Replace (v0, v1)
v3
and closure4 (v0 : string) (v1 : string) : (string -> string) =
closure5(v0, v1)
and closure3 () (v0 : string) : (string -> (string -> string)) =
closure4(v0)
and method0 () : (string -> (string -> (string -> string))) =
closure3()
and closure2 (...
── fsharp - import ─────────────────────────────────────────────────────────────
let rec closure0 () (v0 : System.Threading.CancellationToken) :
Async<System.Threading.CancellationToken> =
let v1 : Async<System.Threading.CancellationToken> option = None
let mutable _v1 = v1
#if FABLE_COMPILER_RUST && !WASM && !CONTRACT
let v2 : Async<System.Threading.CancellationToken> = null |>
unbox<Async<System.Threading.CancellationToken>>
v2
#endif
#if FABLE_COMPILER_RUST && WASM
let v3 : Async<System.Threading.CancellationToken> = null |>
unbox<Async<System.Threading.CancellationToken>>
v3
#endif
#if FABLE_COMPILER_RUST && CONTRACT
let v4 : Async<System.Threading.CancellationToken> = null |>
unbox<Async<System.Threading.CancellationToken>>
v4
#endif
#if !FABLE_COMPILER...
── fsharp - import ─────────────────────────────────────────────────────────────
#if FABLE_COMPILER
[[<CompilationRepresentation (CompilationRepresentationFlags.ModuleSuffix)>]]
module System =
module Diagnostics =
type Process = unit
type DataReceivedEventArgs = unit
#endif
module State = let mutable trace_state = None
type [[<Struct>]] US0 =
| US0_0
| US0_1
| US0_2
| US0_3
| US0_4
and UH0 =
| UH0_0
| UH0_1 of char * UH0
and [[<Struct>]] US2 =
| US2_0
| US2_1
and [[<Struct>]] US1 =
| US1_0
| US1_1 of f1_0 : US2
| US1_2
and [[<Struct>]] US3 =
| US3_0 of f0_0 : string
| US3_1
and Mut0 = {mutable l0 : int64}
and Mut1 = {mutable l0 : bool}
and Mut2 = {mutable l0 : US0}
and [[<Struct>]] US4 =
| US4_0 of f0_0 : int64
| US4_1
and [[<Struct>]] US5 =
| US5_0 of f0_0 : i...
── fsharp - import ─────────────────────────────────────────────────────────────
#if FABLE_COMPILER // file_system.types
[[<Fable.Core.Erase; Fable.Core.Emit("str")>]] type Str = class end
[[<Fable.Core.Erase; Fable.Core.Emit("base64::DecodeError")>]] type
base64_DecodeError = class end
[[<Fable.Core.Erase; Fable.Core.Emit("borsh::io::Error")>]] type borsh_io_Error
= class end
[[<Fable.Core.Erase; Fable.Core.Emit("js_sys::JsString")>]] type js_sys_JsString
= class end
[[<Fable.Core.Erase; Fable.Core.Emit("serde_json::Error")>]] type
serde_json_Error = class end
[[<Fable.Core.Erase; Fable.Core.Emit("serde_json::Value")>]] type
serde_json_Value = class end
[[<Fable.Core.Erase; Fable.Core.Emit("serde_wasm_bindgen::Error")>]] type
serde_wasm_bindgen_Error = class end
[[<Fable.Core.Erase; Fable.Core.Emit("std::ffi::OsStr")>]] type std_ffi_O...
── fsharp - import ─────────────────────────────────────────────────────────────
module State = let mutable trace_state = None
type [[<Struct>]] US0 =
| US0_0
| US0_1
| US0_2
| US0_3
| US0_4
and Mut0 = {mutable l0 : int64}
and Mut1 = {mutable l0 : bool}
and Mut2 = {mutable l0 : US0}
and [[<Struct>]] US1 =
| US1_0 of f0_0 : int64
| US1_1
and [[<Struct>]] US2 =
| US2_0 of f0_0 : int64
| US2_1
let rec method1 (v0 : int64 option) : int64 option =
v0
and method2 (v0 : int64 option) : int64 option =
v0
and closure3 () () : struct (Mut0 * Mut1 * Mut1 * Mut2 * int64 option) =
let v0 : Mut1 = {l0 = true} : Mut1
let v1 : Mut0 = {l0 = 0L} : Mut0
let v2 : US0 = US0_0
let v3 : Mut2 = {l0 = v2} : Mut2
let v4 : Mut1 = {l0 = false} : Mut1
let v5 : int64 option option = None
...
── fsharp - import ─────────────────────────────────────────────────────────────
module SpiralTrace =
let get_trace_state () =
#if !INTERACTIVE
Trace.get_trace_state ()
#else
get_trace_state ()
#endif
let trace x =
#if !INTERACTIVE
Trace.trace x
#else
trace x
#endif
type TraceLevel =
#if !INTERACTIVE
Trace.US0
#else
US0
#endif
#if !FABLE_COMPILER && !WASM && !CONTRACT
module SpiralAsync =
let merge_cancellation_token_with_default_async x =
#if !INTERACTIVE
Async_.merge_cancellation_token_with_default_async x
#else
merge_cancellation_token_with_default_async x
#endif
module SpiralRuntime =
let get_executable_suffix () =
#if !INTERACTIVE
Runtime.get_executable_suffix ()
#else
get_executable_suffix ()
#endif
let is...
── fsharp - import ─────────────────────────────────────────────────────────────
#r @"../../../../../../../.nuget/packages/expecto/10.2.1/lib/net6.0/Expecto.dll"
── fsharp - import ─────────────────────────────────────────────────────────────
//// test
type AssertExceptionFormatter (ex) =
member _.Text =
ex.ToString()
.Replace("32m", "<span style=\"color: green;\">")
.Replace("36m", "</span>")
.Replace("31m", "<span style=\"color: red;\">")
.Replace("\n", "<br/>\n")
Formatter.Register<AssertExceptionFormatter> ((fun (x :
AssertExceptionFormatter) -> x.Text), "text/html")
── fsharp - import ─────────────────────────────────────────────────────────────
//// test
let inline __expect fn log expected actual =
if log then printfn $"{actual.ToDisplayString ()}"
try
"Testing.__expect" |> fn actual expected
with :? Expecto.AssertException as ex ->
AssertExceptionFormatter(ex).Display () |> ignore
failwith (ex.GetType().FullName)
let inline __contains log expected actual = __expect Expecto.Expect.contains log
expected actual
let inline _contains expected actual = __contains true expected actual
let inline __assertEqual log expected actual = __expect Expecto.Expect.equal log
expected actual
let inline _assertEqual expected actual = __assertEqual true expected actual
let inline __isGreaterThan log expected actual = __expect
Expecto.Expect.isGreaterThan log ex...
── fsharp - import ─────────────────────────────────────────────────────────────
//// test
let inline __isBetween log a b actual =
let inline isBetween actual (a, b) _ =
__isGreaterThanOrEqual log a actual
__isLessThanOrEqual log b actual
__expect isBetween log (a, b) actual
let inline _isBetween a b actual = __isBetween true a b actual
── fsharp ──────────────────────────────────────────────────────────────────────
#!import ../../lib/fsharp/Common.fs
#!import ../../lib/fsharp/CommonFSharp.fs
#!import ../../lib/fsharp/Threading.fs
#!import ../../lib/fsharp/Async.fs
#!import ../../lib/fsharp/AsyncSeq.fs
#!import ../../lib/fsharp/Networking.fs
#!import ../../lib/fsharp/Runtime.fs
#!import ../../lib/fsharp/FileSystem.fs
#!import ../../apps/builder/Builder.fs
#!import ../../apps/spiral/Supervisor.fs
── fsharp - import ─────────────────────────────────────────────────────────────
#if !INTERACTIVE
namespace Polyglot
#endif
module Common =
#if !INTERACTIVE
open Lib
#endif
let nl = System.Environment.NewLine
let q = @""""
let inline cons head tail = head :: tail
/// ## memoize
let inline memoize fn =
let result = lazy fn ()
fun () -> result.Value
/// ## TraceLevel
type TraceLevel =
| Verbose
| Debug
| Info
| Warning
| Critical
let inline getLocals () = ""
/// ## trace
let to_trace_level = function
| Verbose -> SpiralTrace.TraceLevel.US0_0
| Debug -> SpiralTrace.TraceLevel.US0_1
| Info -> SpiralTrace.TraceLevel.US0_2
| Warning -> SpiralTrace.TraceLevel.US0_3
| Critical ->...
── fsharp - import ─────────────────────────────────────────────────────────────
#if !INTERACTIVE
namespace Polyglot
#endif
module CommonFSharp =
open Common
/// ## getUnionCaseName
let inline getUnionCaseName<'T> (x: 'T) =
match Reflection.FSharpValue.GetUnionFields(x, typeof<'T>) with
| case, _ -> case.Name
── fsharp - import ─────────────────────────────────────────────────────────────
#if !INTERACTIVE
namespace Polyglot
#endif
module Threading =
open Common
/// ## newDisposableToken
let inline newDisposableToken (mergeToken:
System.Threading.CancellationToken option) =
let cts = new System.Threading.CancellationTokenSource ()
let cts =
match mergeToken with
| None -> cts
| Some mergeToken ->
System.Threading.CancellationTokenSource.CreateLinkedTokenSource
[[| cts.Token; mergeToken |]]
let disposable = new_disposable cts.Cancel
cts.Token, disposable
── fsharp - import ─────────────────────────────────────────────────────────────
#if !INTERACTIVE
namespace Polyglot
#endif
module Async =
#if !INTERACTIVE
open Lib
#endif
open Common
/// ## choice
let inline choice asyncs = async {
let e = Event<_> ()
use cts = new System.Threading.CancellationTokenSource ()
let fn =
asyncs
|> Seq.map (fun a -> async {
let! x = a
e.Trigger x
})
|> Async.Parallel
|> Async.Ignore
Async.Start (fn, cts.Token)
let! result = Async.AwaitEvent e.Publish
cts.Cancel ()
return result
}
/// ## map
let inline map fn a = async {
let! x = a
return fn x
}
/// ## catch
let inline catch a =
...
── fsharp - import ─────────────────────────────────────────────────────────────
#if !INTERACTIVE
namespace Polyglot
#endif
module AsyncSeq =
#if !INTERACTIVE
open Lib
#endif
open Common
/// ## subscribeEvent
let inline subscribeEvent (event: IEvent<'H, 'A>) map =
let observable = System.Reactive.Linq.Observable.FromEventPattern<'H,
'A>(event.AddHandler, event.RemoveHandler)
System.Reactive.Linq.Observable.Select (observable, fun event -> map
event.EventArgs)
|> FSharp.Control.AsyncSeq.ofObservableBuffered
let subscribeToken (token : System.Threading.CancellationToken) =
let tcs = new System.Threading.Tasks.TaskCompletionSource ()
System.Action tcs.SetResult |> token.Register |> ignore
let start = System.DateTime.Now.Ticks
FSharp.Control.A...
── fsharp - import ─────────────────────────────────────────────────────────────
#if !INTERACTIVE
namespace Polyglot
#endif
module Networking =
#if !INTERACTIVE
open Lib
#endif
open Common
/// ## testPortOpen
let inline testPortOpen port = async {
let! ct = Async.CancellationToken
use client = new System.Net.Sockets.TcpClient ()
try
do! client.ConnectAsync ("127.0.0.1", port, ct) |>
Async.awaitValueTaskUnit
return true
with ex ->
trace Verbose (fun () -> $"testPortOpen / ex: {ex |>
SpiralSm.format_exception}") getLocals
return false
}
let inline testPortOpenTimeout timeout port = async {
let! result =
testPortOpen port
|> Async.runWithTimeoutAsync timeout
return
...
── fsharp - import ─────────────────────────────────────────────────────────────
#if !INTERACTIVE
namespace Polyglot
#endif
module Runtime =
#if !INTERACTIVE
open Lib
#endif
open Common
/// ## splitArgs
let inline splitArgs commandLine =
commandLine
|> System.CommandLine.Parsing.CommandLineStringSplitter.Instance.Split
/// ## parseArgs
let inline parseArgs<'T when 'T :> Argu.IArgParserTemplate> args =
let assemblyName =
System.Reflection.Assembly.GetEntryAssembly().GetName().Name
let errorHandler : Argu.IExiter =
if [[ "Microsoft.DotNet.Interactive.App"; "dotnet-repl" ]] |>
List.contains assemblyName
then Argu.ExceptionExiter ()
else Argu.ProcessExiter (function Argu.ErrorCode.HelpText -> None |
_ -> Some System.ConsoleColor...
── fsharp - import ─────────────────────────────────────────────────────────────
#if !INTERACTIVE
namespace Polyglot
#endif
module FileSystem =
#if !INTERACTIVE
open Lib
#endif
open Common
open SpiralFileSystem.Operators
/// ## watchDirectory
[[<RequireQualifiedAccess>]]
type FileSystemChangeType =
| Failure
| Changed
| Created
| Deleted
| Renamed
[[<RequireQualifiedAccess>]]
type FileSystemChange =
| Failure of exn: exn
| Changed of path: string * content: string option
| Created of path: string * content: string option
| Deleted of path: string
| Renamed of oldPath: string * (string * string option)
let inline watchDirectoryWithFilter filter shouldReadContent path =
let fullPath = path |> Sys...
── fsharp - import ─────────────────────────────────────────────────────────────
#if !INTERACTIVE
namespace Polyglot
#endif
module Builder =
#if !INTERACTIVE
open Lib
#endif
open Common
open SpiralFileSystem.Operators
/// ## buildProject
let inline buildProject runtime outputDir path = async {
let fullPath = path |> System.IO.Path.GetFullPath
let fileDir = fullPath |> System.IO.Path.GetDirectoryName
let extension = fullPath |> System.IO.Path.GetExtension
let getLocals () = $"fullPath: {fullPath} / {getLocals ()}"
trace Debug (fun () -> "buildProject") getLocals
match extension with
| ".fsproj" -> ()
| _ -> failwith "Invalid project file"
let runtimes =
runtime
|> Option.map List.singleton
...
── fsharp - import ─────────────────────────────────────────────────────────────
#if !INTERACTIVE
namespace Polyglot
#endif
module Supervisor =
#if !INTERACTIVE
open Lib
#endif
open Common
open SpiralFileSystem.Operators
open Microsoft.AspNetCore.SignalR.Client
/// ## sendJson
let inline sendJson (port : int) (json : string) = async {
let! portOpen = Networking.testPortOpen port
if portOpen then
try
let connection =
HubConnectionBuilder().WithUrl($"http://127.0.0.1:{port}").Build()
do! connection.StartAsync () |> Async.AwaitTask
let! result =
connection.InvokeAsync<string>("ClientToServerMsg", json) |> Async.AwaitTask
do! connection.StopAsync () |> Async.AwaitTask
trace Debug (fun () -...
── fsharp ──────────────────────────────────────────────────────────────────────
#if !INTERACTIVE
open Lib
#endif
── fsharp ──────────────────────────────────────────────────────────────────────
open Common
open SpiralFileSystem.Operators
open Microsoft.AspNetCore.SignalR.Client
── fsharp ──────────────────────────────────────────────────────────────────────
open System
open System.Collections.Generic
open System.IO
open System.Text
open System.Threading
── markdown ────────────────────────────────────────────────────────────────────
╭──────────────────────────────────────────────────────────────────────────────╮
│ ## mapErrors │
╰──────────────────────────────────────────────────────────────────────────────╯
── fsharp ──────────────────────────────────────────────────────────────────────
let inline mapErrors (severity, errors, lastTopLevelIndex) allCode =
let allCodeLineLength =
allCode |> SpiralSm.split "\n" |> Array.length
errors
|> List.map (fun (_, error) ->
match error with
| Supervisor.FatalError message ->
(
severity, message, 0, ("", (0, 0), (0, 0))
)
|> List.singleton
| Supervisor.TracedError data ->
data.trace
|> List.truncate 5
|> List.append [[ data.message ]]
|> List.map (fun message ->
(
severity, message, 0, ("", (0, 0), (0, 0))
)
)
| Supervisor.PackageErrors data
| Supervisor.TokenizerErrors data
| Supervisor.ParserErrors data
| Supervisor.TypeErrors data ->
data.errors
|> List.filter (fun ((rangeStart, _), _) ->
trace Debug (fun () -> $"Eval.mapErrors / rangeStart.line:
{rangeStart.line} / lastTopLevelIndex: {lastTopLevelIndex} / allCodeLineLength:
{allCodeLineLength} / filtered: {rangeStart.line > allCodeLineLength}")
getLocals
rangeStart.line > allCodeLineLength
)
|> List.map (fun ((rangeStart, rangeEnd), message) ->
(
severity,
message,
0,
(
(data.uri |> System.IO.Path.GetFileName),
(
(match lastTopLevelIndex with
| Some i when rangeStart.line >= i +
allCodeLineLength + 3 ->
rangeStart.line - allCodeLineLength - 2
| _ -> rangeStart.line - allCodeLineLength),
(match lastTopLevelIndex with
| Some i when rangeStart.line >= i +
allCodeLineLength + 3 ->
rangeStart.character - 4
| _ -> rangeStart.character)
),
(
(match lastTopLevelIndex with
| Some i when rangeStart.line >= i +
allCodeLineLength + 3 ->
rangeEnd.line - allCodeLineLength - 2
| _ -> rangeEnd.line - allCodeLineLength),
(match lastTopLevelIndex with
| Some i when rangeStart.line >= i +
allCodeLineLength + 3 ->
rangeEnd.character - 4
| _ -> rangeEnd.character)
)
)
)
)
)
|> List.collect id
|> List.toArray
── fsharp ──────────────────────────────────────────────────────────────────────
let repositoryRoot = SpiralFileSystem.get_source_directory () |>
SpiralFileSystem.find_parent ".paket" false
let targetDir = repositoryRoot </> "target/polyglot/spiral_eval"
let traceDir = targetDir </> "eval_trace"
[[ targetDir; traceDir ]]
|> List.iter (fun dir -> if Directory.Exists dir |> not then
Directory.CreateDirectory dir |> ignore)
let mutable allCode = ""
── markdown ────────────────────────────────────────────────────────────────────
╭──────────────────────────────────────────────────────────────────────────────╮
│ ## traceFile │
╰──────────────────────────────────────────────────────────────────────────────╯
── fsharp ──────────────────────────────────────────────────────────────────────
let traceFile filePath (text : string) =
let struct (_, _, _, level, _) = SpiralTrace.get_trace_state ()
if level.l0 = SpiralTrace.TraceLevel.US0_0 then
let dateTimeStr = DateTime.Now |> SpiralDateTime.new_guid_from_date_time
let traceFile = traceDir </> filePath
File.AppendAllText (traceFile, $"{dateTimeStr} Eval /
{text}{Environment.NewLine}") |> ignore
── markdown ────────────────────────────────────────────────────────────────────
╭──────────────────────────────────────────────────────────────────────────────╮
│ ## log │
╰──────────────────────────────────────────────────────────────────────────────╯
── fsharp ──────────────────────────────────────────────────────────────────────
let assemblyName = Reflection.Assembly.GetEntryAssembly().GetName().Name
── fsharp ──────────────────────────────────────────────────────────────────────
let log (text : string) =
let dateTimeStr = DateTime.Now |> SpiralDateTime.new_guid_from_date_time
text |> traceFile $"{assemblyName}_{dateTimeStr}_{Random().Next()}.txt"
── markdown ────────────────────────────────────────────────────────────────────
╭──────────────────────────────────────────────────────────────────────────────╮
│ ## startTokenRangeWatcher │
╰──────────────────────────────────────────────────────────────────────────────╯
── fsharp ──────────────────────────────────────────────────────────────────────
let inline startTokenRangeWatcher () =
if [[ "dotnet-repl" ]] |> List.contains assemblyName |> not then
let packagesDir = targetDir </> "packages"
[[ packagesDir ]]
|> List.iter (fun dir -> if Directory.Exists dir |> not then
Directory.CreateDirectory dir |> ignore)
let stream, disposable = FileSystem.watchDirectory (fun _ -> false)
packagesDir
try
let existingFilesChild =
packagesDir
|> System.IO.Directory.GetDirectories
|> Array.map (fun codeDir -> async {
try
let tokensPath = codeDir </> "tokens.json"
let packagePath = codeDir </> "package.spiproj"
if (tokensPath |> File.Exists |> not) && (packagePath |>
File.Exists |> not) then
let codePath = codeDir </> "main.spi"
let! tokens = codePath |>
Supervisor.getFileTokenRange None None
match tokens with
| Some tokens ->
do!
tokens
|> FSharp.Json.Json.serialize
|> SpiralFileSystem.write_all_text_async
tokensPath
| None ->
log $"Eval.startTokenRangeWatcher /
GetDirectories / tokens: None / {getLocals ()}"
with ex ->
log $"Eval.startTokenRangeWatcher / GetDirectories / ex:
{ex |> SpiralSm.format_exception} / {getLocals ()}"
})
|> Async.Parallel
|> Async.Ignore
let streamAsyncChild =
stream
|> FSharp.Control.AsyncSeq.iterAsyncParallel (fun (ticks, event)
-> async {
try
let getLocals () = $"ticks: {ticks} / event: {event} /
{getLocals ()}"
log $"Eval.startTokenRangeWatcher / iterAsyncParallel /
{getLocals ()}"
match event with
| FileSystem.FileSystemChange.Changed (codePath, _)
when System.IO.Path.GetFileName codePath =
"main.spi"
->
let hashDir = codePath |>
System.IO.Directory.GetParent
let hashHex = hashDir.Name
let packagePath = packagesDir </> hashHex </>
"package.spiproj"
if packagePath |> System.IO.File.Exists |> not then
let codePath = packagesDir </> codePath
let tokensPath = packagesDir </> hashHex </>
"tokens.json"
do!
codePath
|>
SpiralFileSystem.wait_for_file_access_read
|> Async.runWithTimeoutAsync 1000
|> Async.Ignore
let! tokens = codePath |>
Supervisor.getFileTokenRange None None
match tokens with
| Some tokens ->
do!
tokens
|> FSharp.Json.Json.serialize
|> SpiralFileSystem.write_all_text_async
tokensPath
| None ->
log $"Eval.startTokenRangeWatcher /
iterAsyncParallel / tokens: None / {getLocals ()}"
| _ -> ()
with ex ->
log $"Eval.startTokenRangeWatcher / iterAsyncParallel /
ex: {ex |> SpiralSm.format_exception} / {getLocals ()}"
})
async {
do! Async.Sleep 3000
existingFilesChild |> Async.StartImmediate
streamAsyncChild |> Async.Start
}
|> Async.Start
with ex ->
log $"Eval.startTokenRangeWatcher / ex: {ex |>
SpiralSm.format_exception}"
disposable
else new_disposable (fun () -> ())
── markdown ────────────────────────────────────────────────────────────────────
╭──────────────────────────────────────────────────────────────────────────────╮
│ ## startCommandsWatcher │
╰──────────────────────────────────────────────────────────────────────────────╯
── fsharp ──────────────────────────────────────────────────────────────────────
let startCommandsWatcher (uriServer : string) =
let commandsDir = targetDir </> "eval_commands"
let commandHistoryDir = targetDir </> "eval_command_history"
[[ commandsDir; commandHistoryDir ]]
|> List.iter (fun dir -> if Directory.Exists dir |> not then
Directory.CreateDirectory dir |> ignore)
Directory.EnumerateFiles commandsDir |> Seq.iter File.Delete
let stream, disposable =
commandsDir
|> FileSystem.watchDirectory (function
| FileSystem.FileSystemChange.Created _ -> true
| _ -> false
)
let connection = HubConnectionBuilder().WithUrl(uriServer).Build()
connection.StartAsync() |> Async.AwaitTask |> Async.Start
// let _ = connection.On<string>("ServerToClientMsg", fun x ->
// printfn $"ServerToClientMsg: '{x}'"
// )
stream
|> FSharp.Control.AsyncSeq.iterAsyncParallel (fun (ticks, event) -> async {
let getLocals () = $"ticks: {ticks} / event: {event} / {getLocals ()}"
trace Verbose (fun () -> "Eval.startCommandsWatcher /
iterAsyncParallel") getLocals
match event with
| FileSystem.FileSystemChange.Created (path, Some json) ->
try
let fullPath = commandsDir </> path
let! result =
connection.InvokeAsync<string>("ClientToServerMsg", json) |> Async.AwaitTask
let commandHistoryPath = commandHistoryDir </> path
do! fullPath |> SpiralFileSystem.move_file_async
commandHistoryPath |> Async.Ignore
if result |> SpiralSm.trim |> String.length > 0 then
let resultPath = commandHistoryDir </>
$"{Path.GetFileNameWithoutExtension path}_result.json"
do! result |> SpiralFileSystem.write_all_text_async
resultPath
with ex ->
trace Critical (fun () -> "Eval.startCommandsWatcher /
iterAsyncParallel / ex: {ex |> SpiralSm.format_exception}") getLocals
| _ -> ()
})
|> Async.StartChild
|> Async.Ignore
|> Async.Start
new_disposable (fun () ->
disposable.Dispose ()
)
── markdown ────────────────────────────────────────────────────────────────────
╭──────────────────────────────────────────────────────────────────────────────╮
│ ## eval │
╰──────────────────────────────────────────────────────────────────────────────╯
── fsharp ──────────────────────────────────────────────────────────────────────
let inline eval
(fsi_eval:
string
-> System.Threading.CancellationToken
-> Choice<'a,Exception> * (TraceLevel * string * int * (string * (int *
int) * (int * int))) array)
(cancellationToken: Option<System.Threading.CancellationToken>)
(code: string)
=
log $"Eval.eval / code: %A{code}"
let rawCellCode =
code |> SpiralSm.replace "\r\n" "\n"
let lines = rawCellCode |> SpiralSm.split "\n"
if lines |> Array.exists (fun line -> line |> SpiralSm.starts_with "#r " &&
line |> SpiralSm.ends_with "\"") then
let cancellationToken = defaultArg cancellationToken
System.Threading.CancellationToken.None
let ch, errors = fsi_eval code cancellationToken
match ch with
| Choice1Of2 v -> Ok(v), errors
| Choice2Of2 ex -> Error(ex), errors
else
try
let rustArgs =
lines
|> Array.tryPick (fun line ->
if line |> SpiralSm.starts_with "// // rust="
then line |> SpiralSm.split "=" |> Array.tryItem 1
else None
)
let timeout =
lines
|> Array.tryPick (fun line ->
if line |> SpiralSm.starts_with "// // timeout="
then line |> SpiralSm.split "=" |> Array.tryItem 1 |>
Option.map int
else None
)
|> Option.defaultValue (60000 * 60)
let printCode =
lines
|> Array.tryPick (fun line ->
if line |> SpiralSm.starts_with "// // print_code="
then line |> SpiralSm.split "=" |> Array.tryItem 1 |>
Option.map ((=) "true")
else None
)
|> Option.defaultValue true
let isTrace =
lines
|> Array.tryPick (fun line ->
if line |> SpiralSm.starts_with "// // trace="
then line |> SpiralSm.split "=" |> Array.tryItem 1 |>
Option.map ((=) "true")
else None
)
|> Option.defaultValue false
let traceLevel =
if isTrace
then SpiralRuntime.TraceLevel.US0_0
else SpiralRuntime.TraceLevel.US0_2
let struct (_, _, _, level, _) = SpiralTrace.get_trace_state ()
level.l0 <-
if traceLevel = SpiralRuntime.TraceLevel.US0_0
then SpiralTrace.TraceLevel.US0_0
else SpiralTrace.TraceLevel.US0_2
let lastBlock =
lines
|> Array.tryFindBack (fun line ->
line |> String.length > 0
&& line.[[0]] <> ' '
)
let hasMain =
lastBlock
|> Option.exists (fun line ->
line |> SpiralSm.starts_with "inl main "
|| line |> SpiralSm.starts_with "let main "
)
let cellCode, lastTopLevelIndex =
if hasMain
then rawCellCode, None
else
let lastTopLevelIndex, _ =
(lines |> Array.indexed, (None, false))
||> Array.foldBack (fun (i, line) (lastTopLevelIndex,
finished) ->
trace Debug (fun () -> $"i: {i} / line: '{line}' /
lastTopLevelIndex: {lastTopLevelIndex} / finished: {finished}") getLocals
match line with
| _ when finished -> lastTopLevelIndex, true
| "" -> lastTopLevelIndex, false
| line when
line |> SpiralSm.starts_with " "
|| line |> SpiralSm.starts_with "// " ->
lastTopLevelIndex, false
| line when
line |> SpiralSm.starts_with "open "
|| line |> SpiralSm.starts_with "prototype "
|| line |> SpiralSm.starts_with "instance "
|| line |> SpiralSm.starts_with "type "
|| line |> SpiralSm.starts_with "union "
|| line |> SpiralSm.starts_with "nominal " ->
lastTopLevelIndex, true
| line when
line |> SpiralSm.starts_with "inl "
|| line |> SpiralSm.starts_with "let " ->
let m =
System.Text.RegularExpressions.Regex.Match (
line,
@"^(inl|let) +([[~\(\w]][[\w\d']]*(?:|
*[[~\w]][[\w\d']]*\)|, *[[~\w]][[\w\d']]*)) +[[:=]](?! +function)"
)
trace Debug (fun () -> $"m: '{m}' /
m.Groups.Count: {m.Groups.Count}") getLocals
if m.Groups.Count = 3
then Some i, false
else lastTopLevelIndex, true
| _ -> Some i, false
)
let code =
match lastTopLevelIndex with
| Some lastTopLevelIndex ->
lines
|> Array.mapi (fun i line ->
match i with
| i when i < lastTopLevelIndex -> line
| i when i = lastTopLevelIndex -> $"\nlet main
() =\n {line}"
| _ when line |> SpiralSm.trim = "" -> ""
| _ -> $" {line}"
)
|> SpiralSm.concat "\n"
| None -> $"{rawCellCode}\n\ninl main () = ()\n"
code, lastTopLevelIndex
let newAllCode = $"{allCode}\n\n{cellCode}"
async {
try
let! mainPath = newAllCode |> Supervisor.persistCode
let port = Supervisor.getCompilerPort ()
let! codeChoice =
mainPath
|> Supervisor.buildFile timeout port cancellationToken
|> Async.catch
|> Async.runWithTimeoutAsync timeout
let code =
match codeChoice with
| Some (Ok code) -> Some code
| Some (Error ex) ->
log $"Eval / errors: {ex |>
SpiralSm.format_exception}"
None
| _ -> None
match code with
| Some (Some code, spiralErrors) ->
let spiralErrors =
mapErrors (Warning, spiralErrors, lastTopLevelIndex)
allCode
let inline _trace (fn : unit -> string) =
if isTrace
then trace Info (fun () -> $"Eval.eval / {fn ()}")
getLocals
else fn () |> System.Console.WriteLine
if printCode
then _trace (fun () -> if rustArgs |> Option.isSome then
$".fsx:\n{code}" else code)
let! rustResult =
if rustArgs |> Option.isNone || lastTopLevelIndex =
None
then None |> Async.init
else
async {
// let hash = $"repl_{code |>
SpiralCrypto.hash_text}"
let hash = $"spiral_eval"
let! fsprojPath = code |>
Builder.persistCodeProject [["Fable.Core"]] [[]] hash
let projectDir = fsprojPath |>
Path.GetDirectoryName
let outDir = projectDir </> $"target/{hash}"
let libLinkTargetPath = projectDir </>
"target/fable-library-rust"
let libLinkPath = outDir </>
$"fable_modules/fable-library-rust"
if Directory.Exists libLinkTargetPath |> not
then libLinkTargetPath |>
Directory.CreateDirectory |> ignore
libLinkPath |> Path.GetDirectoryName |>
Directory.CreateDirectory |> ignore
let libLinkPathInfo = DirectoryInfo
libLinkPath
if libLinkPathInfo.Exists &&
libLinkPathInfo.LinkTarget = null then
Directory.Delete (libLinkPath, true)
if libLinkPath |> Directory.Exists |> not
then
Directory.CreateSymbolicLink
(libLinkPath, libLinkTargetPath)
|> ignore
let command = $@"dotnet fable {fsprojPath}
--optimize --lang rs --extension .rs --outDir {outDir}"
let! exitCode, result =
SpiralRuntime.execute_with_options_async
struct (cancellationToken, command, None, Some traceLevel, None)
if exitCode <> 0
then return Some (Error result)
else
let rsPath = outDir </> $"{hash}.rs"
let! rsCode = rsPath |>
SpiralFileSystem.read_all_text_async
let mainCode = "pub fn main() ->
Result<(), String> { Ok(()) }"
let cached = rsCode |> SpiralSm.contains
mainCode
let rsCode =
if cached
then rsCode
else rsCode |> SpiralSm.replace
"),);" "));"
if printCode
then _trace (fun () ->
$".rs:\n{rsCode}")
if not cached
then do!
$"{rsCode}\n\n{mainCode}\n"
|>
SpiralFileSystem.write_all_text_async rsPath
let cargoTomlPath = outDir </>
$"Cargo.toml"
let cargoTomlContent = $"""[[package]]
name = "{hash}"
version = "0.0.1"
edition = "2021"
[[workspace]]
[[dependencies]]
fable_library_rust = {{ path = "fable_modules/fable-library-rust", optional =
true, default-features = false }}
clap = {{}}
num-complex = {{}}
pyo3 = "~0.21.0-beta.0"
[[features]]
default = [["fable_library_rust/default",
"fable_library_rust/static_do_bindings"]]
[[[[bin]]]]
name = "{hash}"
path = "{hash}.rs"
"""
do! cargoTomlContent |>
SpiralFileSystem.write_all_text_exists cargoTomlPath
let command = $@"cargo run --release
--manifest-path {cargoTomlPath}"
let! exitCode, result =
SpiralRuntime.execute_with_options_async struct (cancellationToken, command,
None, Some traceLevel, None)
if exitCode = 0 then
try
let result =
result
|> SpiralSm.split "\n"
|> Array.skipWhile (fun line
->
line |>
SpiralSm.contains @"[[optimized]] target" |> not
)
|> Array.skip 2
|> SpiralSm.concat "\n"
return Some (Ok result)
with ex ->
return $"ex:
{ex}\nresult:\n{result}" |> Error |> Some
else
return Some (Error result)
}
let cancellationToken = defaultArg cancellationToken
System.Threading.CancellationToken.None
let fsxResult =
if rustArgs |> Option.isSome
then None
else
try
let ch, errors = fsi_eval code
cancellationToken
let errors =
errors
|> Array.map (fun (e1, e2, e3, _) ->
(e1, e2, e3, ("", (0, 0), (0, 0)))
)
Some (ch, errors)
with ex ->
trace Critical (fun () -> $"Eval.eval / ex:
{ex |> SpiralSm.format_exception}") getLocals
None
match fsxResult, rustResult with
| Some (ch, errors), None ->
let errors = errors |> Array.append spiralErrors
match ch with
| Choice1Of2 v ->
allCode <- newAllCode
return Ok(v), errors
| Choice2Of2 ex -> return Error ex, errors
| _, Some result ->
let result, errors =
match result with
| Ok result -> result, [[||]]
| Error error ->
"",
[[|
(
TraceLevel.Critical, error, 0, ("",
(0, 0), (0, 0))
)
|]]
let header = if printCode then ".rs output:\n" else
""
let code =
if printCode
then $"\"\"\"{header}{result}\n\n\n\"\"\""
else $"\"\"\"{header}{result}\n\"\"\""
let ch, errors2 = fsi_eval code cancellationToken
let errors =
errors
|> Array.append spiralErrors
|> Array.append errors2
match ch with
| Choice1Of2 v ->
allCode <- newAllCode
return Ok(v), errors
| Choice2Of2 ex ->
return Error ex, errors
| _ ->
let ch, errors = fsi_eval "()" cancellationToken
match ch with
| Choice1Of2 v ->
allCode <- newAllCode
return Ok(v), errors
| Choice2Of2 ex ->
return Error ex, errors
| Some (None, errors) when errors |> List.isEmpty |> not ->
return errors.[[0]] |> fst |> Exception |> Error,
mapErrors (TraceLevel.Critical, errors,
lastTopLevelIndex) allCode
| _ ->
return Error (Exception "Spiral error or timeout"),
[[|
(
TraceLevel.Critical, "Diag: Spiral error or
timeout", 0, ("", (0, 0), (0, 0))
)
|]]
with ex ->
log $"Eval / ex: {ex |> SpiralSm.format_exception}"
return Error (Exception $"Spiral error or timeout (4_) / ex:
{ex |> SpiralSm.format_exception}"),
[[|
(
TraceLevel.Critical, $"Diag: Spiral error or timeout
(4) / ex: {ex |> SpiralSm.format_exception}", 0, ("", (0, 0), (0, 0))
)
|]]
}
|> Async.runWithTimeoutStrict timeout
|> Option.defaultValue (
Error (Exception "Spiral error or timeout (2)"),
[[|
(
TraceLevel.Critical, "Diag: Spiral error or timeout
(2)", 0, ("", (0, 0), (0, 0))
)
|]]
)
with ex ->
log $"Eval / ex: {ex |> SpiralSm.format_exception}"
Error (Exception $"Spiral error or timeout (3) / ex: {ex |>
SpiralSm.format_exception}"),
[[|
(
TraceLevel.Critical, $"Diag: Spiral error or timeout (3) /
ex: {ex |> SpiralSm.format_exception}", 0, ("", (0, 0), (0, 0))
)
|]]
[NbConvertApp] Converting notebook Eval.dib.ipynb to html
C:\Users\i574n\scoop\apps\python\current\Lib\site-packages\nbformat\__init__.py:93: MissingIDFieldWarning: Code cell is missing an id field, this will become a hard error in future nbformat versions. You may want to use `normalize()` on your notebooks before validations (available since nbformat 5.1.4). Previous versions of nbformat are fixing this issue transparently, and will stop doing so in the future.
validate(nb)
C:\Users\i574n\scoop\apps\python\current\Lib\site-packages\nbconvert\filters\highlight.py:71: UserWarning: IPython3 lexer unavailable, falling back on Python 3
return _pygments_highlight(
[NbConvertApp] Writing 384579 bytes to Eval.dib.html
00:00:00 #1 [debug] writeDibCode / output: Fs / path: Eval.dib
00:00:00 #2 [debug] parseDibCode / output: Fs / file: Eval.dib
In [ ]:
{ . "$ScriptDir/../lib/fsharp/build.ps1" -sequential 1 } | Invoke-Block
00:00:00 #1 [debug] runWithTimeoutChildAsync / timeout: 60
00:00:00 #1 [debug] execute_with_options_async / options: struct (Some System.Threading.CancellationToken,
"dotnet "C:\home\git\polyglot\deps\The-Spiral-Language\The Spiral Language 2\artifacts\bin\The Spiral Language 2\release\Spiral.dll" --port 13805 --default-int i32 --default-float f64",
Some <fun:main@439-43>, None, None)
00:00:00 #2 [verbose] > pwd: C:\home\git\polyglot\lib\fsharp
00:00:00 #3 [verbose] > dllPath: C:\home\git\polyglot\deps\The-Spiral-Language\The Spiral Language 2\artifacts\bin\The Spiral Language 2\release
00:00:00 #4 [verbose] > targetDir: C:\home\git\polyglot\target/polyglot/spiral_eval
00:00:00 #5 [verbose] > Starting the Spiral Server. It is bound to: http://localhost:13805
00:00:00 #2 [debug] runWithTimeoutChildAsync / timeout: 500
00:00:00 #3 [verbose] waitForPortAccess / port: 13805 / retry: 0
00:00:01 #4 [debug] sendJson / port: 13805 / json: {"Ping":true} / result.Length:
00:00:01 #5 [verbose] awaitCompiler / Ping / result: Some(null) / port: 13805 / retry: 0
00:00:01 #6 [verbose] > Server bound to: http://localhost:13805
00:00:01 #7 [debug] execute_with_options_async / options: struct (Some System.Threading.CancellationToken,
"pwsh -c "../../scripts/invoke-dib.ps1 Async.dib" -Retries 3", None,
None, None)
00:00:03 #8 [verbose] >
00:00:03 #9 [verbose] > ── markdown ────────────────────────────────────────────────────────────────────
00:00:03 #10 [verbose] > ╭──────────────────────────────────────────────────────────────────────────────╮
00:00:03 #11 [verbose] > │ # Async (Polyglot) │
00:00:03 #12 [verbose] > ╰──────────────────────────────────────────────────────────────────────────────╯
00:00:03 #13 [verbose] >
00:00:03 #14 [verbose] > ── fsharp ──────────────────────────────────────────────────────────────────────
00:00:03 #15 [verbose] > #!import ../../lib/fsharp/Notebooks.dib
00:00:03 #16 [verbose] > #!import ../../lib/fsharp/Testing.dib
00:00:03 #17 [verbose] >
00:00:03 #18 [verbose] > ── fsharp - import ─────────────────────────────────────────────────────────────
00:00:03 #19 [verbose] > #r
00:00:03 #20 [verbose] > "C:/Users/i574n/.nuget/packages/dotnet-repl/0.1.204/tools/net7.0/any/Microsoft.A
00:00:03 #21 [verbose] > spNetCore.Html.Abstractions.dll"
00:00:03 #22 [verbose] > #r
00:00:03 #23 [verbose] > "C:/Users/i574n/.nuget/packages/dotnet-repl/0.1.204/tools/net7.0/any/Microsoft.D
00:00:03 #24 [verbose] > otNet.Interactive.dll"
00:00:03 #25 [verbose] > #r
00:00:03 #26 [verbose] > "C:/Users/i574n/.nuget/packages/dotnet-repl/0.1.204/tools/net7.0/any/Microsoft.D
00:00:03 #27 [verbose] > otNet.Interactive.FSharp.dll"
00:00:03 #28 [verbose] > #r
00:00:03 #29 [verbose] > "C:/Users/i574n/.nuget/packages/dotnet-repl/0.1.204/tools/net7.0/any/Microsoft.D
00:00:03 #30 [verbose] > otNet.Interactive.Formatting.dll"
00:00:03 #31 [verbose] > open System
00:00:03 #32 [verbose] > open System.IO
00:00:03 #33 [verbose] > open System.Text
00:00:03 #34 [verbose] > open Microsoft.DotNet.Interactive.Formatting
00:00:06 #35 [verbose] >
00:00:06 #36 [verbose] > ── fsharp - import ─────────────────────────────────────────────────────────────
00:00:06 #37 [verbose] > #r
00:00:06 #38 [verbose] > "C:/Users/i574n/.nuget/packages/dotnet-repl/0.1.204/tools/net7.0/any/Microsoft.D
00:00:06 #39 [verbose] > otNet.Interactive.FSharp.dll"
00:00:06 #40 [verbose] > open Microsoft.DotNet.Interactive.FSharp.FSharpKernelHelpers
00:00:06 #41 [verbose] > #r
00:00:06 #42 [verbose] > "C:/Users/i574n/.nuget/packages/dotnet-repl/0.1.204/tools/net7.0/any/Microsoft.D
00:00:06 #43 [verbose] > otNet.Interactive.dll"
00:00:06 #44 [verbose] > open type Microsoft.DotNet.Interactive.Kernel
00:00:06 #45 [verbose] >
00:00:06 #46 [verbose] > ── fsharp - import ─────────────────────────────────────────────────────────────
00:00:06 #47 [verbose] > //// test
00:00:06 #48 [verbose] >
00:00:06 #49 [verbose] > Formatter.ListExpansionLimit <- 100
00:00:07 #50 [verbose] >
00:00:07 #51 [verbose] > ── fsharp - import ─────────────────────────────────────────────────────────────
00:00:07 #52 [verbose] > type [[<Struct>]] US0 =
00:00:07 #53 [verbose] > | US0_0
00:00:07 #54 [verbose] > | US0_1
00:00:07 #55 [verbose] > and [[<Struct>]] US1 =
00:00:07 #56 [verbose] > | US1_0 of f0_0 : US0
00:00:07 #57 [verbose] > | US1_1
00:00:07 #58 [verbose] > let rec closure0 () (v0 : (unit -> unit)) : System.IDisposable =
00:00:07 #59 [verbose] > let v1 : System.IDisposable option = None
00:00:07 #60 [verbose] > let mutable _v1 = v1
00:00:07 #61 [verbose] > #if FABLE_COMPILER_RUST && !WASM && !CONTRACT
00:00:07 #62 [verbose] > let v2 : System.IDisposable = null |> unbox<System.IDisposable>
00:00:07 #63 [verbose] > v2
00:00:07 #64 [verbose] > #endif
00:00:07 #65 [verbose] > #if FABLE_COMPILER_RUST && WASM
00:00:07 #66 [verbose] > let v3 : System.IDisposable = null |> unbox<System.IDisposable>
00:00:07 #67 [verbose] > v3
00:00:07 #68 [verbose] > #endif
00:00:07 #69 [verbose] > #if FABLE_COMPILER_RUST && CONTRACT
00:00:07 #70 [verbose] > let v4 : System.IDisposable = null |> unbox<System.IDisposable>
00:00:07 #71 [verbose] > v4
00:00:07 #72 [verbose] > #endif
00:00:07 #73 [verbose] > #if !FABLE_COMPILER && !FABLE_COMPILER_RUST && !FABLE_COMPILER_TYPESCRIPT &&
00:00:07 #74 [verbose] > !WASM && !CONTRACT
00:00:07 #75 [verbose] > let v5 : System.ID...
00:00:08 #76 [verbose] >
00:00:08 #77 [verbose] > ── fsharp - import ─────────────────────────────────────────────────────────────
00:00:08 #78 [verbose] > type Mut0 = {mutable l0 : int32; mutable l1 : string}
00:00:08 #79 [verbose] > and Mut1 = {mutable l0 : int32}
00:00:08 #80 [verbose] > let rec closure1 (v0 : string) (v1 : string) : bool =
00:00:08 #81 [verbose] > let v2 : bool = v1.Contains v0
00:00:08 #82 [verbose] > v2
00:00:08 #83 [verbose] > and closure0 () (v0 : string) : (string -> bool) =
00:00:08 #84 [verbose] > closure1(v0)
00:00:08 #85 [verbose] > and closure3 (v0 : string) (v1 : string) : bool =
00:00:08 #86 [verbose] > let v2 : bool = v1.EndsWith v0
00:00:08 #87 [verbose] > v2
00:00:08 #88 [verbose] > and closure2 () (v0 : string) : (string -> bool) =
00:00:08 #89 [verbose] > closure3(v0)
00:00:08 #90 [verbose] > and closure6 (v0 : int32, v1 : char) (v2 : string) : string =
00:00:08 #91 [verbose] > let v3 : string = v2.PadLeft (v0, v1)
00:00:08 #92 [verbose] > v3
00:00:08 #93 [verbose] > and closure5 (v0 : int32) (v1 : char) : (string -> string) =
00:00:08 #94 [verbose] > closure6(v0, v1)
00:00:08 #95 [verbose] > and closure4 () (v0 : int32) : (char -> (string -> string)) =
00:00:08 #96 [verbose] > closure5(v0)
00:00:08 #97 [verbose] > and closure8 (v0 : int32) (v1 : string) : string =
00:00:08 #98 [verbose] > let v2 : stri...
00:00:08 #99 [verbose] >
00:00:08 #100 [verbose] > ── fsharp - import ─────────────────────────────────────────────────────────────
00:00:08 #101 [verbose] > type ICryptoCreateHash = abstract createHash: x: string -> obj
00:00:08 #102 [verbose] > type Mut0 = {mutable l0 : int32}
00:00:08 #103 [verbose] > let rec method0 (v0 : int32, v1 : Mut0) : bool =
00:00:08 #104 [verbose] > let v2 : int32 = v1.l0
00:00:08 #105 [verbose] > let v3 : bool = v2 < v0
00:00:08 #106 [verbose] > v3
00:00:08 #107 [verbose] > and method1 () : string =
00:00:08 #108 [verbose] > let v0 : string = ""
00:00:08 #109 [verbose] > v0
00:00:08 #110 [verbose] > and closure0 () (v0 : string) : string =
00:00:08 #111 [verbose] > let v1 : string option = None
00:00:08 #112 [verbose] > let mutable _v1 = v1
00:00:08 #113 [verbose] > #if FABLE_COMPILER_RUST && !WASM && !CONTRACT
00:00:08 #114 [verbose] > let v2 : string = null |> unbox<string>
00:00:08 #115 [verbose] > v2
00:00:08 #116 [verbose] > #endif
00:00:08 #117 [verbose] > #if FABLE_COMPILER_RUST && WASM
00:00:08 #118 [verbose] > let v3 : string = null |> unbox<string>
00:00:08 #119 [verbose] > v3
00:00:08 #120 [verbose] > #endif
00:00:08 #121 [verbose] > #if FABLE_COMPILER_RUST && CONTRACT
00:00:08 #122 [verbose] > let v4 : string = null |> unbox<string>
00:00:08 #123 [verbose] > v4
00:00:08 #124 [verbose] > #endif
00:00:08 #125 [verbose] > #if !FABLE_COMPILER && !FABLE_COMPILER_RUST && !FABLE_COMPILER_TYP...
00:00:08 #126 [verbose] >
00:00:08 #127 [verbose] > ── fsharp - import ─────────────────────────────────────────────────────────────
00:00:08 #128 [verbose] > let rec closure1 (v0 : System.Guid) (v1 : System.DateTime) : System.Guid =
00:00:08 #129 [verbose] > let v2 : (System.Guid -> string) = _.ToString()
00:00:08 #130 [verbose] > let v3 : string = v2 v0
00:00:08 #131 [verbose] > let v4 : string = v1.ToString "yyyyMMdd-HHmm-ssff-ffff-f"
00:00:08 #132 [verbose] > let v5 : System.Guid = System.Guid $"{v4}{v3.[[v4.Length..]]}"
00:00:08 #133 [verbose] > v5
00:00:08 #134 [verbose] > and closure0 () (v0 : System.Guid) : (System.DateTime -> System.Guid) =
00:00:08 #135 [verbose] > closure1(v0)
00:00:08 #136 [verbose] > and closure5 (v0 : string, v1 : string) (v2 : string) : string =
00:00:08 #137 [verbose] > let v3 : string = v2.Replace (v0, v1)
00:00:08 #138 [verbose] > v3
00:00:08 #139 [verbose] > and closure4 (v0 : string) (v1 : string) : (string -> string) =
00:00:08 #140 [verbose] > closure5(v0, v1)
00:00:08 #141 [verbose] > and closure3 () (v0 : string) : (string -> (string -> string)) =
00:00:08 #142 [verbose] > closure4(v0)
00:00:08 #143 [verbose] > and method0 () : (string -> (string -> (string -> string))) =
00:00:08 #144 [verbose] > closure3()
00:00:08 #145 [verbose] > and closure2 (...
00:00:08 #146 [verbose] >
00:00:08 #147 [verbose] > ── fsharp - import ─────────────────────────────────────────────────────────────
00:00:08 #148 [verbose] > let rec closure0 () (v0 : System.Threading.CancellationToken) :
00:00:08 #149 [verbose] > Async<System.Threading.CancellationToken> =
00:00:08 #150 [verbose] > let v1 : Async<System.Threading.CancellationToken> option = None
00:00:08 #151 [verbose] > let mutable _v1 = v1
00:00:08 #152 [verbose] > #if FABLE_COMPILER_RUST && !WASM && !CONTRACT
00:00:08 #153 [verbose] > let v2 : Async<System.Threading.CancellationToken> = null |>
00:00:08 #154 [verbose] > unbox<Async<System.Threading.CancellationToken>>
00:00:08 #155 [verbose] > v2
00:00:08 #156 [verbose] > #endif
00:00:08 #157 [verbose] > #if FABLE_COMPILER_RUST && WASM
00:00:08 #158 [verbose] > let v3 : Async<System.Threading.CancellationToken> = null |>
00:00:08 #159 [verbose] > unbox<Async<System.Threading.CancellationToken>>
00:00:08 #160 [verbose] > v3
00:00:08 #161 [verbose] > #endif
00:00:08 #162 [verbose] > #if FABLE_COMPILER_RUST && CONTRACT
00:00:08 #163 [verbose] > let v4 : Async<System.Threading.CancellationToken> = null |>
00:00:08 #164 [verbose] > unbox<Async<System.Threading.CancellationToken>>
00:00:08 #165 [verbose] > v4
00:00:08 #166 [verbose] > #endif
00:00:08 #167 [verbose] > #if !FABLE_COMPILER...
00:00:09 #168 [verbose] >
00:00:09 #169 [verbose] > ── fsharp - import ─────────────────────────────────────────────────────────────
00:00:09 #170 [verbose] > #if FABLE_COMPILER
00:00:09 #171 [verbose] > [[<CompilationRepresentation (CompilationRepresentationFlags.ModuleSuffix)>]]
00:00:09 #172 [verbose] > module System =
00:00:09 #173 [verbose] > module Diagnostics =
00:00:09 #174 [verbose] > type Process = unit
00:00:09 #175 [verbose] > type DataReceivedEventArgs = unit
00:00:09 #176 [verbose] > #endif
00:00:09 #177 [verbose] > module State = let mutable trace_state = None
00:00:09 #178 [verbose] > type [[<Struct>]] US0 =
00:00:09 #179 [verbose] > | US0_0
00:00:09 #180 [verbose] > | US0_1
00:00:09 #181 [verbose] > | US0_2
00:00:09 #182 [verbose] > | US0_3
00:00:09 #183 [verbose] > | US0_4
00:00:09 #184 [verbose] > and UH0 =
00:00:09 #185 [verbose] > | UH0_0
00:00:09 #186 [verbose] > | UH0_1 of char * UH0
00:00:09 #187 [verbose] > and [[<Struct>]] US2 =
00:00:09 #188 [verbose] > | US2_0
00:00:09 #189 [verbose] > | US2_1
00:00:09 #190 [verbose] > and [[<Struct>]] US1 =
00:00:09 #191 [verbose] > | US1_0
00:00:09 #192 [verbose] > | US1_1 of f1_0 : US2
00:00:09 #193 [verbose] > | US1_2
00:00:09 #194 [verbose] > and [[<Struct>]] US3 =
00:00:09 #195 [verbose] > | US3_0 of f0_0 : string
00:00:09 #196 [verbose] > | US3_1
00:00:09 #197 [verbose] > and Mut0 = {mutable l0 : int64}
00:00:09 #198 [verbose] > and Mut1 = {mutable l0 : bool}
00:00:09 #199 [verbose] > and Mut2 = {mutable l0 : US0}
00:00:09 #200 [verbose] > and [[<Struct>]] US4 =
00:00:09 #201 [verbose] > | US4_0 of f0_0 : int64
00:00:09 #202 [verbose] > | US4_1
00:00:09 #203 [verbose] > and [[<Struct>]] US5 =
00:00:09 #204 [verbose] > | US5_0 of f0_0 : i...
00:00:10 #205 [verbose] >
00:00:10 #206 [verbose] > ── fsharp - import ─────────────────────────────────────────────────────────────
00:00:10 #207 [verbose] > #if FABLE_COMPILER // file_system.types
00:00:10 #208 [verbose] > [[<Fable.Core.Erase; Fable.Core.Emit("str")>]] type Str = class end
00:00:10 #209 [verbose] > [[<Fable.Core.Erase; Fable.Core.Emit("base64::DecodeError")>]] type
00:00:10 #210 [verbose] > base64_DecodeError = class end
00:00:10 #211 [verbose] > [[<Fable.Core.Erase; Fable.Core.Emit("borsh::io::Error")>]] type borsh_io_Error
00:00:10 #212 [verbose] > = class end
00:00:10 #213 [verbose] > [[<Fable.Core.Erase; Fable.Core.Emit("js_sys::JsString")>]] type js_sys_JsString
00:00:10 #214 [verbose] > = class end
00:00:10 #215 [verbose] > [[<Fable.Core.Erase; Fable.Core.Emit("serde_json::Error")>]] type
00:00:10 #216 [verbose] > serde_json_Error = class end
00:00:10 #217 [verbose] > [[<Fable.Core.Erase; Fable.Core.Emit("serde_json::Value")>]] type
00:00:10 #218 [verbose] > serde_json_Value = class end
00:00:10 #219 [verbose] > [[<Fable.Core.Erase; Fable.Core.Emit("serde_wasm_bindgen::Error")>]] type
00:00:10 #220 [verbose] > serde_wasm_bindgen_Error = class end
00:00:10 #221 [verbose] > [[<Fable.Core.Erase; Fable.Core.Emit("std::ffi::OsStr")>]] type std_ffi_O...
00:00:11 #222 [verbose] >
00:00:11 #223 [verbose] > ── fsharp - import ─────────────────────────────────────────────────────────────
00:00:11 #224 [verbose] > module State = let mutable trace_state = None
00:00:11 #225 [verbose] > type [[<Struct>]] US0 =
00:00:11 #226 [verbose] > | US0_0
00:00:11 #227 [verbose] > | US0_1
00:00:11 #228 [verbose] > | US0_2
00:00:11 #229 [verbose] > | US0_3
00:00:11 #230 [verbose] > | US0_4
00:00:11 #231 [verbose] > and Mut0 = {mutable l0 : int64}
00:00:11 #232 [verbose] > and Mut1 = {mutable l0 : bool}
00:00:11 #233 [verbose] > and Mut2 = {mutable l0 : US0}
00:00:11 #234 [verbose] > and [[<Struct>]] US1 =
00:00:11 #235 [verbose] > | US1_0 of f0_0 : int64
00:00:11 #236 [verbose] > | US1_1
00:00:11 #237 [verbose] > and [[<Struct>]] US2 =
00:00:11 #238 [verbose] > | US2_0 of f0_0 : int64
00:00:11 #239 [verbose] > | US2_1
00:00:11 #240 [verbose] > let rec method1 (v0 : int64 option) : int64 option =
00:00:11 #241 [verbose] > v0
00:00:11 #242 [verbose] > and method2 (v0 : int64 option) : int64 option =
00:00:11 #243 [verbose] > v0
00:00:11 #244 [verbose] > and closure3 () () : struct (Mut0 * Mut1 * Mut1 * Mut2 * int64 option) =
00:00:11 #245 [verbose] > let v0 : Mut1 = {l0 = true} : Mut1
00:00:11 #246 [verbose] > let v1 : Mut0 = {l0 = 0L} : Mut0
00:00:11 #247 [verbose] > let v2 : US0 = US0_0
00:00:11 #248 [verbose] > let v3 : Mut2 = {l0 = v2} : Mut2
00:00:11 #249 [verbose] > let v4 : Mut1 = {l0 = false} : Mut1
00:00:11 #250 [verbose] > let v5 : int64 option option = None
00:00:11 #251 [verbose] > ...
00:00:11 #252 [verbose] >
00:00:11 #253 [verbose] > ── fsharp - import ─────────────────────────────────────────────────────────────
00:00:11 #254 [verbose] > module SpiralTrace =
00:00:11 #255 [verbose] > let get_trace_state () =
00:00:11 #256 [verbose] > #if !INTERACTIVE
00:00:11 #257 [verbose] > Trace.get_trace_state ()
00:00:11 #258 [verbose] > #else
00:00:11 #259 [verbose] > get_trace_state ()
00:00:11 #260 [verbose] > #endif
00:00:11 #261 [verbose] >
00:00:11 #262 [verbose] > let trace x =
00:00:11 #263 [verbose] > #if !INTERACTIVE
00:00:11 #264 [verbose] > Trace.trace x
00:00:11 #265 [verbose] > #else
00:00:11 #266 [verbose] > trace x
00:00:11 #267 [verbose] > #endif
00:00:11 #268 [verbose] >
00:00:11 #269 [verbose] > type TraceLevel =
00:00:11 #270 [verbose] > #if !INTERACTIVE
00:00:11 #271 [verbose] > Trace.US0
00:00:11 #272 [verbose] > #else
00:00:11 #273 [verbose] > US0
00:00:11 #274 [verbose] > #endif
00:00:11 #275 [verbose] >
00:00:11 #276 [verbose] > #if !FABLE_COMPILER && !WASM && !CONTRACT
00:00:11 #277 [verbose] >
00:00:11 #278 [verbose] > module SpiralAsync =
00:00:11 #279 [verbose] > let merge_cancellation_token_with_default_async x =
00:00:11 #280 [verbose] > #if !INTERACTIVE
00:00:11 #281 [verbose] > Async_.merge_cancellation_token_with_default_async x
00:00:11 #282 [verbose] > #else
00:00:11 #283 [verbose] > merge_cancellation_token_with_default_async x
00:00:11 #284 [verbose] > #endif
00:00:11 #285 [verbose] >
00:00:11 #286 [verbose] > module SpiralRuntime =
00:00:11 #287 [verbose] > let get_executable_suffix () =
00:00:11 #288 [verbose] > #if !INTERACTIVE
00:00:11 #289 [verbose] > Runtime.get_executable_suffix ()
00:00:11 #290 [verbose] > #else
00:00:11 #291 [verbose] > get_executable_suffix ()
00:00:11 #292 [verbose] > #endif
00:00:11 #293 [verbose] >
00:00:11 #294 [verbose] > let is...
00:00:11 #295 [verbose] >
00:00:11 #296 [verbose] > ── fsharp - import ─────────────────────────────────────────────────────────────
00:00:11 #297 [verbose] > #r @"../../../../../../../.nuget/packages/expecto/10.2.1/lib/net6.0/Expecto.dll"
00:00:11 #298 [verbose] >
00:00:11 #299 [verbose] > ── fsharp - import ─────────────────────────────────────────────────────────────
00:00:11 #300 [verbose] > //// test
00:00:11 #301 [verbose] >
00:00:11 #302 [verbose] > type AssertExceptionFormatter (ex) =
00:00:11 #303 [verbose] > member _.Text =
00:00:11 #304 [verbose] > ex.ToString()
00:00:11 #305 [verbose] > .Replace("32m", "<span style=\"color: green;\">")
00:00:11 #306 [verbose] > .Replace("36m", "</span>")
00:00:11 #307 [verbose] > .Replace("31m", "<span style=\"color: red;\">")
00:00:11 #308 [verbose] > .Replace("\n", "<br/>\n")
00:00:11 #309 [verbose] >
00:00:11 #310 [verbose] >
00:00:11 #311 [verbose] > Formatter.Register<AssertExceptionFormatter> ((fun (x :
00:00:11 #312 [verbose] > AssertExceptionFormatter) -> x.Text), "text/html")
00:00:11 #313 [verbose] >
00:00:11 #314 [verbose] > ── fsharp - import ─────────────────────────────────────────────────────────────
00:00:12 #315 [verbose] > //// test
00:00:12 #316 [verbose] >
00:00:12 #317 [verbose] > let inline __expect fn log expected actual =
00:00:12 #318 [verbose] > if log then printfn $"{actual.ToDisplayString ()}"
00:00:12 #319 [verbose] > try
00:00:12 #320 [verbose] > "Testing.__expect" |> fn actual expected
00:00:12 #321 [verbose] > with :? Expecto.AssertException as ex ->
00:00:12 #322 [verbose] > AssertExceptionFormatter(ex).Display () |> ignore
00:00:12 #323 [verbose] > failwith (ex.GetType().FullName)
00:00:12 #324 [verbose] >
00:00:12 #325 [verbose] > let inline __contains log expected actual = __expect Expecto.Expect.contains log
00:00:12 #326 [verbose] > expected actual
00:00:12 #327 [verbose] > let inline _contains expected actual = __contains true expected actual
00:00:12 #328 [verbose] >
00:00:12 #329 [verbose] > let inline __assertEqual log expected actual = __expect Expecto.Expect.equal log
00:00:12 #330 [verbose] > expected actual
00:00:12 #331 [verbose] > let inline _assertEqual expected actual = __assertEqual true expected actual
00:00:12 #332 [verbose] >
00:00:12 #333 [verbose] > let inline __isGreaterThan log expected actual = __expect
00:00:12 #334 [verbose] > Expecto.Expect.isGreaterThan log ex...
00:00:12 #335 [verbose] >
00:00:12 #336 [verbose] > ── fsharp - import ─────────────────────────────────────────────────────────────
00:00:12 #337 [verbose] > //// test
00:00:12 #338 [verbose] >
00:00:12 #339 [verbose] > let inline __isBetween log a b actual =
00:00:12 #340 [verbose] > let inline isBetween actual (a, b) _ =
00:00:12 #341 [verbose] > __isGreaterThanOrEqual log a actual
00:00:12 #342 [verbose] > __isLessThanOrEqual log b actual
00:00:12 #343 [verbose] > __expect isBetween log (a, b) actual
00:00:12 #344 [verbose] > let inline _isBetween a b actual = __isBetween true a b actual
00:00:12 #345 [verbose] >
00:00:12 #346 [verbose] > ── fsharp ──────────────────────────────────────────────────────────────────────
00:00:12 #347 [verbose] > #!import ../../lib/fsharp/Common.fs
00:00:12 #348 [verbose] >
00:00:12 #349 [verbose] > ── fsharp - import ─────────────────────────────────────────────────────────────
00:00:12 #350 [verbose] > #if !INTERACTIVE
00:00:12 #351 [verbose] > namespace Polyglot
00:00:12 #352 [verbose] > #endif
00:00:12 #353 [verbose] >
00:00:12 #354 [verbose] > module Common =
00:00:12 #355 [verbose] >
00:00:12 #356 [verbose] > #if !INTERACTIVE
00:00:12 #357 [verbose] > open Lib
00:00:12 #358 [verbose] > #endif
00:00:12 #359 [verbose] >
00:00:12 #360 [verbose] > let nl = System.Environment.NewLine
00:00:12 #361 [verbose] > let q = @""""
00:00:12 #362 [verbose] >
00:00:12 #363 [verbose] > let inline cons head tail = head :: tail
00:00:12 #364 [verbose] >
00:00:12 #365 [verbose] > /// ## memoize
00:00:12 #366 [verbose] >
00:00:12 #367 [verbose] > let inline memoize fn =
00:00:12 #368 [verbose] > let result = lazy fn ()
00:00:12 #369 [verbose] > fun () -> result.Value
00:00:12 #370 [verbose] >
00:00:12 #371 [verbose] > /// ## TraceLevel
00:00:12 #372 [verbose] >
00:00:12 #373 [verbose] > type TraceLevel =
00:00:12 #374 [verbose] > | Verbose
00:00:12 #375 [verbose] > | Debug
00:00:12 #376 [verbose] > | Info
00:00:12 #377 [verbose] > | Warning
00:00:12 #378 [verbose] > | Critical
00:00:12 #379 [verbose] >
00:00:12 #380 [verbose] > let inline getLocals () = ""
00:00:12 #381 [verbose] >
00:00:12 #382 [verbose] > /// ## trace
00:00:12 #383 [verbose] >
00:00:12 #384 [verbose] > let to_trace_level = function
00:00:12 #385 [verbose] > | Verbose -> SpiralTrace.TraceLevel.US0_0
00:00:12 #386 [verbose] > | Debug -> SpiralTrace.TraceLevel.US0_1
00:00:12 #387 [verbose] > | Info -> SpiralTrace.TraceLevel.US0_2
00:00:12 #388 [verbose] > | Warning -> SpiralTrace.TraceLevel.US0_3
00:00:12 #389 [verbose] > | Critical ->...
00:00:12 #390 [verbose] >
00:00:12 #391 [verbose] > ── fsharp ──────────────────────────────────────────────────────────────────────
00:00:12 #392 [verbose] > #if !INTERACTIVE
00:00:12 #393 [verbose] > open Lib
00:00:12 #394 [verbose] > #endif
00:00:12 #395 [verbose] >
00:00:12 #396 [verbose] > ── fsharp ──────────────────────────────────────────────────────────────────────
00:00:12 #397 [verbose] > open Common
00:00:12 #398 [verbose] >
00:00:12 #399 [verbose] > ── markdown ────────────────────────────────────────────────────────────────────
00:00:12 #400 [verbose] > ╭──────────────────────────────────────────────────────────────────────────────╮
00:00:12 #401 [verbose] > │ ## choice │
00:00:12 #402 [verbose] > ╰──────────────────────────────────────────────────────────────────────────────╯
00:00:12 #403 [verbose] >
00:00:12 #404 [verbose] > ── fsharp ──────────────────────────────────────────────────────────────────────
00:00:12 #405 [verbose] > let inline choice asyncs = async {
00:00:12 #406 [verbose] > let e = Event<_> ()
00:00:12 #407 [verbose] > use cts = new System.Threading.CancellationTokenSource ()
00:00:12 #408 [verbose] > let fn =
00:00:12 #409 [verbose] > asyncs
00:00:12 #410 [verbose] > |> Seq.map (fun a -> async {
00:00:12 #411 [verbose] > let! x = a
00:00:12 #412 [verbose] > e.Trigger x
00:00:12 #413 [verbose] > })
00:00:12 #414 [verbose] > |> Async.Parallel
00:00:12 #415 [verbose] > |> Async.Ignore
00:00:12 #416 [verbose] > Async.Start (fn, cts.Token)
00:00:12 #417 [verbose] > let! result = Async.AwaitEvent e.Publish
00:00:12 #418 [verbose] > cts.Cancel ()
00:00:12 #419 [verbose] > return result
00:00:12 #420 [verbose] > }
00:00:12 #421 [verbose] >
00:00:12 #422 [verbose] > ── markdown ────────────────────────────────────────────────────────────────────
00:00:12 #423 [verbose] > ╭──────────────────────────────────────────────────────────────────────────────╮
00:00:12 #424 [verbose] > │ ## map │
00:00:12 #425 [verbose] > ╰──────────────────────────────────────────────────────────────────────────────╯
00:00:12 #426 [verbose] >
00:00:12 #427 [verbose] > ── fsharp ──────────────────────────────────────────────────────────────────────
00:00:12 #428 [verbose] > let inline map fn a = async {
00:00:12 #429 [verbose] > let! x = a
00:00:12 #430 [verbose] > return fn x
00:00:12 #431 [verbose] > }
00:00:12 #432 [verbose] >
00:00:12 #433 [verbose] > ── markdown ────────────────────────────────────────────────────────────────────
00:00:12 #434 [verbose] > ╭──────────────────────────────────────────────────────────────────────────────╮
00:00:12 #435 [verbose] > │ ## catch │
00:00:12 #436 [verbose] > ╰──────────────────────────────────────────────────────────────────────────────╯
00:00:12 #437 [verbose] >
00:00:12 #438 [verbose] > ── fsharp ──────────────────────────────────────────────────────────────────────
00:00:12 #439 [verbose] > let inline catch a =
00:00:12 #440 [verbose] > a
00:00:12 #441 [verbose] > |> Async.Catch
00:00:12 #442 [verbose] > |> map (function
00:00:12 #443 [verbose] > | Choice1Of2 result -> Ok result
00:00:12 #444 [verbose] > | Choice2Of2 ex -> Error ex
00:00:12 #445 [verbose] > )
00:00:12 #446 [verbose] >
00:00:12 #447 [verbose] > ── markdown ────────────────────────────────────────────────────────────────────
00:00:12 #448 [verbose] > ╭──────────────────────────────────────────────────────────────────────────────╮
00:00:12 #449 [verbose] > │ ## runWithTimeoutAsync │
00:00:12 #450 [verbose] > ╰──────────────────────────────────────────────────────────────────────────────╯
00:00:12 #451 [verbose] >
00:00:12 #452 [verbose] > ── fsharp ──────────────────────────────────────────────────────────────────────
00:00:12 #453 [verbose] > let inline runWithTimeoutAsync_ (timeout : int) fn =
00:00:12 #454 [verbose] > let getLocals () = $"timeout: {timeout} / {getLocals ()}"
00:00:12 #455 [verbose] >
00:00:12 #456 [verbose] > let timeoutTask = async {
00:00:12 #457 [verbose] > do! Async.Sleep timeout
00:00:12 #458 [verbose] > trace Debug (fun () -> "runWithTimeoutAsync") getLocals
00:00:12 #459 [verbose] > return None
00:00:12 #460 [verbose] > }
00:00:12 #461 [verbose] >
00:00:12 #462 [verbose] > let task = async {
00:00:12 #463 [verbose] > try
00:00:12 #464 [verbose] > let! result = fn
00:00:12 #465 [verbose] > return Some result
00:00:12 #466 [verbose] > with
00:00:12 #467 [verbose] > | :? System.AggregateException as ex when
00:00:12 #468 [verbose] > ex.InnerExceptions
00:00:12 #469 [verbose] > |> Seq.exists (function :?
00:00:12 #470 [verbose] > System.Threading.Tasks.TaskCanceledException -> true | _ -> false)
00:00:12 #471 [verbose] > ->
00:00:12 #472 [verbose] > let getLocals () = $"ex: {ex |> SpiralSm.format_exception}
00:00:12 #473 [verbose] > {getLocals ()}"
00:00:12 #474 [verbose] > trace Warning (fun () -> "runWithTimeoutAsync") getLocals
00:00:12 #475 [verbose] > return None
00:00:12 #476 [verbose] > | ex ->
00:00:12 #477 [verbose] > trace Critical (fun () -> $"runWithTimeoutAsync** / ex: {ex |>
00:00:12 #478 [verbose] > SpiralSm.format_exception}") getLocals
00:00:12 #479 [verbose] > return None
00:00:12 #480 [verbose] > }
00:00:12 #481 [verbose] >
00:00:12 #482 [verbose] > [[ timeoutTask; task ]]
00:00:12 #483 [verbose] > |> choice
00:00:12 #484 [verbose] >
00:00:12 #485 [verbose] > ── fsharp ──────────────────────────────────────────────────────────────────────
00:00:12 #486 [verbose] > let inline runWithTimeout_ timeout fn =
00:00:12 #487 [verbose] > fn
00:00:12 #488 [verbose] > |> runWithTimeoutAsync_ timeout
00:00:12 #489 [verbose] > |> Async.RunSynchronously
00:00:12 #490 [verbose] >
00:00:12 #491 [verbose] > ── fsharp ──────────────────────────────────────────────────────────────────────
00:00:12 #492 [verbose] > //// test
00:00:12 #493 [verbose] >
00:00:12 #494 [verbose] > Async.Sleep 120
00:00:12 #495 [verbose] > |> runWithTimeout_ 10
00:00:12 #496 [verbose] > |> _assertEqual None
00:00:12 #497 [verbose] >
00:00:12 #498 [verbose] > ╭─[ 131.46ms - stdout ]────────────────────────────────────────────────────────╮
00:00:12 #499 [verbose] > │ 00:00:00 #1 [debug] runWithTimeoutAsync / timeout: 10 │
00:00:12 #500 [verbose] > │ <null> │
00:00:12 #501 [verbose] > │ │
00:00:12 #502 [verbose] > ╰──────────────────────────────────────────────────────────────────────────────╯
00:00:12 #503 [verbose] >
00:00:12 #504 [verbose] > ── fsharp ──────────────────────────────────────────────────────────────────────
00:00:12 #505 [verbose] > //// test
00:00:12 #506 [verbose] >
00:00:12 #507 [verbose] > Async.Sleep 10
00:00:12 #508 [verbose] > |> runWithTimeout_ 60
00:00:12 #509 [verbose] > |> _assertEqual (Some ())
00:00:12 #510 [verbose] >
00:00:12 #511 [verbose] > ╭─[ 105.13ms - stdout ]────────────────────────────────────────────────────────╮
00:00:12 #512 [verbose] > │ FSharpOption<Unit> │
00:00:12 #513 [verbose] > │ Value: <null> │
00:00:12 #514 [verbose] > │ │
00:00:12 #515 [verbose] > ╰──────────────────────────────────────────────────────────────────────────────╯
00:00:12 #516 [verbose] >
00:00:12 #517 [verbose] > ── fsharp ──────────────────────────────────────────────────────────────────────
00:00:12 #518 [verbose] > //// test
00:00:12 #519 [verbose] >
00:00:12 #520 [verbose] > async {
00:00:12 #521 [verbose] > raise (exn "error")
00:00:12 #522 [verbose] > }
00:00:12 #523 [verbose] > |> runWithTimeout_ 60
00:00:12 #524 [verbose] > |> _assertEqual None
00:00:12 #525 [verbose] >
00:00:12 #526 [verbose] > ╭─[ 115.64ms - stdout ]────────────────────────────────────────────────────────╮
00:00:12 #527 [verbose] > │ 00:00:00 #2 [critical] runWithTimeoutAsync** / ex: System.Exception: error / │
00:00:13 #528 [verbose] > │ timeout: 60 │
00:00:13 #529 [verbose] > │ <null> │
00:00:13 #530 [verbose] > │ │
00:00:13 #531 [verbose] > ╰──────────────────────────────────────────────────────────────────────────────╯
00:00:13 #532 [verbose] >
00:00:13 #533 [verbose] > ── markdown ────────────────────────────────────────────────────────────────────
00:00:13 #534 [verbose] > ╭──────────────────────────────────────────────────────────────────────────────╮
00:00:13 #535 [verbose] > │ ## runWithTimeoutChildAsync │
00:00:13 #536 [verbose] > ╰──────────────────────────────────────────────────────────────────────────────╯
00:00:13 #537 [verbose] >
00:00:13 #538 [verbose] > ── fsharp ──────────────────────────────────────────────────────────────────────
00:00:13 #539 [verbose] > let inline runWithTimeoutChildAsync (timeout : int) fn = async {
00:00:13 #540 [verbose] > let getLocals () = $"timeout: {timeout} / {getLocals ()}"
00:00:13 #541 [verbose] > let! child = Async.StartChild (fn, timeout)
00:00:13 #542 [verbose] > return!
00:00:13 #543 [verbose] > child
00:00:13 #544 [verbose] > |> catch
00:00:13 #545 [verbose] > |> map (function
00:00:13 #546 [verbose] > | Ok result -> Some result
00:00:13 #547 [verbose] > | Error (:? System.TimeoutException as ex) ->
00:00:13 #548 [verbose] > trace Debug (fun () -> $"runWithTimeoutChildAsync") getLocals
00:00:13 #549 [verbose] > None
00:00:13 #550 [verbose] > | Error ex ->
00:00:13 #551 [verbose] > trace Critical (fun () -> $"runWithTimeoutChildAsync** / ex: {ex
00:00:13 #552 [verbose] > |> SpiralSm.format_exception}") getLocals
00:00:13 #553 [verbose] > None
00:00:13 #554 [verbose] > )
00:00:13 #555 [verbose] > }
00:00:13 #556 [verbose] >
00:00:13 #557 [verbose] > ── fsharp ──────────────────────────────────────────────────────────────────────
00:00:13 #558 [verbose] > let inline runWithTimeoutChild timeout fn =
00:00:13 #559 [verbose] > fn
00:00:13 #560 [verbose] > |> runWithTimeoutChildAsync timeout
00:00:13 #561 [verbose] > |> Async.RunSynchronously
00:00:13 #562 [verbose] >
00:00:13 #563 [verbose] > ── fsharp ──────────────────────────────────────────────────────────────────────
00:00:13 #564 [verbose] > let inline runWithTimeoutAsync timeout fn =
00:00:13 #565 [verbose] > runWithTimeoutChildAsync timeout fn
00:00:13 #566 [verbose] >
00:00:13 #567 [verbose] > let inline runWithTimeout timeout fn =
00:00:13 #568 [verbose] > runWithTimeoutChild timeout fn
00:00:13 #569 [verbose] >
00:00:13 #570 [verbose] > ── fsharp ──────────────────────────────────────────────────────────────────────
00:00:13 #571 [verbose] > //// test
00:00:13 #572 [verbose] >
00:00:13 #573 [verbose] > Async.Sleep 60
00:00:13 #574 [verbose] > |> runWithTimeoutChild 10
00:00:13 #575 [verbose] > |> _assertEqual None
00:00:13 #576 [verbose] >
00:00:13 #577 [verbose] > ╭─[ 81.33ms - stdout ]─────────────────────────────────────────────────────────╮
00:00:13 #578 [verbose] > │ 00:00:00 #3 [debug] runWithTimeoutChildAsync / timeout: 10 │
00:00:13 #579 [verbose] > │ <null> │
00:00:13 #580 [verbose] > │ │
00:00:13 #581 [verbose] > ╰──────────────────────────────────────────────────────────────────────────────╯
00:00:13 #582 [verbose] >
00:00:13 #583 [verbose] > ── fsharp ──────────────────────────────────────────────────────────────────────
00:00:13 #584 [verbose] > //// test
00:00:13 #585 [verbose] >
00:00:13 #586 [verbose] > Async.Sleep 10
00:00:13 #587 [verbose] > |> runWithTimeoutChild 60
00:00:13 #588 [verbose] > |> _assertEqual (Some ())
00:00:13 #589 [verbose] >
00:00:13 #590 [verbose] > ╭─[ 72.38ms - stdout ]─────────────────────────────────────────────────────────╮
00:00:13 #591 [verbose] > │ FSharpOption<Unit> │
00:00:13 #592 [verbose] > │ Value: <null> │
00:00:13 #593 [verbose] > │ │
00:00:13 #594 [verbose] > ╰──────────────────────────────────────────────────────────────────────────────╯
00:00:13 #595 [verbose] >
00:00:13 #596 [verbose] > ── fsharp ──────────────────────────────────────────────────────────────────────
00:00:13 #597 [verbose] > //// test
00:00:13 #598 [verbose] >
00:00:13 #599 [verbose] > async {
00:00:13 #600 [verbose] > raise (exn "error")
00:00:13 #601 [verbose] > }
00:00:13 #602 [verbose] > |> runWithTimeoutChild 60
00:00:13 #603 [verbose] > |> _assertEqual None
00:00:13 #604 [verbose] >
00:00:13 #605 [verbose] > ╭─[ 83.47ms - stdout ]─────────────────────────────────────────────────────────╮
00:00:13 #606 [verbose] > │ 00:00:00 #4 [critical] runWithTimeoutChildAsync** / ex: System.Exception: │
00:00:13 #607 [verbose] > │ error / timeout: 60 │
00:00:13 #608 [verbose] > │ <null> │
00:00:13 #609 [verbose] > │ │
00:00:13 #610 [verbose] > ╰──────────────────────────────────────────────────────────────────────────────╯
00:00:13 #611 [verbose] >
00:00:13 #612 [verbose] > ── markdown ────────────────────────────────────────────────────────────────────
00:00:13 #613 [verbose] > ╭──────────────────────────────────────────────────────────────────────────────╮
00:00:13 #614 [verbose] > │ ## runWithTimeoutStrict │
00:00:13 #615 [verbose] > ╰──────────────────────────────────────────────────────────────────────────────╯
00:00:13 #616 [verbose] >
00:00:13 #617 [verbose] > ── fsharp ──────────────────────────────────────────────────────────────────────
00:00:13 #618 [verbose] > let inline runWithTimeoutStrict (timeout : int) fn =
00:00:13 #619 [verbose] > let getLocals () = $"timeout: {timeout} / {getLocals ()}"
00:00:13 #620 [verbose] >
00:00:13 #621 [verbose] > let timeoutTask = async {
00:00:13 #622 [verbose] > do! Async.Sleep timeout
00:00:13 #623 [verbose] > return None, getLocals
00:00:13 #624 [verbose] > }
00:00:13 #625 [verbose] >
00:00:13 #626 [verbose] > let task = async {
00:00:13 #627 [verbose] > try
00:00:13 #628 [verbose] > return Async.RunSynchronously (fn, timeout) |> Some, getLocals
00:00:13 #629 [verbose] > with
00:00:13 #630 [verbose] > | :? System.TimeoutException as ex ->
00:00:13 #631 [verbose] > let getLocals () = $"ex: {ex |> SpiralSm.format_exception}
00:00:13 #632 [verbose] > {getLocals ()}"
00:00:13 #633 [verbose] > return None, getLocals
00:00:13 #634 [verbose] > | ex ->
00:00:13 #635 [verbose] > trace Critical (fun () -> $"runWithTimeoutStrict / ex: {ex |>
00:00:13 #636 [verbose] > SpiralSm.format_exception}") getLocals
00:00:13 #637 [verbose] > return raise ex
00:00:13 #638 [verbose] > }
00:00:13 #639 [verbose] >
00:00:13 #640 [verbose] > try
00:00:13 #641 [verbose] > [[| timeoutTask; task |]]
00:00:13 #642 [verbose] > |> Array.map Async.StartAsTask
00:00:13 #643 [verbose] > |> System.Threading.Tasks.Task.WhenAny
00:00:13 #644 [verbose] > |> fun task ->
00:00:13 #645 [verbose] > match task.Result.Result with
00:00:13 #646 [verbose] > | None, getLocals ->
00:00:13 #647 [verbose] > trace Debug (fun () -> "runWithTimeoutStrict") getLocals
00:00:13 #648 [verbose] > None
00:00:13 #649 [verbose] > | result, _ -> result
00:00:13 #650 [verbose] > with
00:00:13 #651 [verbose] > | :? System.AggregateException as ex when
00:00:13 #652 [verbose] > ex.InnerExceptions
00:00:13 #653 [verbose] > |> Seq.exists (function :? System.Threading.Tasks.TaskCanceledException
00:00:13 #654 [verbose] > -> true | _ -> false)
00:00:13 #655 [verbose] > ->
00:00:13 #656 [verbose] > let getLocals () = $"ex: {ex |> SpiralSm.format_exception} / {getLocals
00:00:13 #657 [verbose] > ()}"
00:00:13 #658 [verbose] > trace Warning (fun () -> "runWithTimeoutStrict") getLocals
00:00:13 #659 [verbose] > None
00:00:13 #660 [verbose] > | ex ->
00:00:13 #661 [verbose] > let getLocals () = $"ex: {ex |> SpiralSm.format_exception} / {getLocals
00:00:13 #662 [verbose] > ()}"
00:00:13 #663 [verbose] > trace Critical (fun () -> "runWithTimeoutStrict**") getLocals
00:00:13 #664 [verbose] > None
00:00:13 #665 [verbose] >
00:00:13 #666 [verbose] > ── fsharp ──────────────────────────────────────────────────────────────────────
00:00:13 #667 [verbose] > //// test
00:00:13 #668 [verbose] >
00:00:13 #669 [verbose] > Async.Sleep 60
00:00:13 #670 [verbose] > |> runWithTimeoutStrict 10
00:00:13 #671 [verbose] > |> _assertEqual None
00:00:13 #672 [verbose] >
00:00:13 #673 [verbose] > ╭─[ 92.86ms - stdout ]─────────────────────────────────────────────────────────╮
00:00:13 #674 [verbose] > │ 00:00:00 #5 [debug] runWithTimeoutStrict / timeout: 10 │
00:00:13 #675 [verbose] > │ <null> │
00:00:13 #676 [verbose] > │ │
00:00:13 #677 [verbose] > ╰──────────────────────────────────────────────────────────────────────────────╯
00:00:13 #678 [verbose] >
00:00:13 #679 [verbose] > ── fsharp ──────────────────────────────────────────────────────────────────────
00:00:13 #680 [verbose] > //// test
00:00:13 #681 [verbose] >
00:00:13 #682 [verbose] > Async.Sleep 10
00:00:13 #683 [verbose] > |> runWithTimeoutStrict 60
00:00:13 #684 [verbose] > |> _assertEqual (Some ())
00:00:13 #685 [verbose] >
00:00:13 #686 [verbose] > ╭─[ 105.65ms - stdout ]────────────────────────────────────────────────────────╮
00:00:13 #687 [verbose] > │ FSharpOption<Unit> │
00:00:13 #688 [verbose] > │ Value: <null> │
00:00:13 #689 [verbose] > │ │
00:00:13 #690 [verbose] > ╰──────────────────────────────────────────────────────────────────────────────╯
00:00:13 #691 [verbose] >
00:00:13 #692 [verbose] > ── fsharp ──────────────────────────────────────────────────────────────────────
00:00:13 #693 [verbose] > //// test
00:00:13 #694 [verbose] >
00:00:13 #695 [verbose] > async {
00:00:13 #696 [verbose] > raise (exn "error")
00:00:13 #697 [verbose] > }
00:00:13 #698 [verbose] > |> runWithTimeoutStrict 60
00:00:13 #699 [verbose] > |> _assertEqual None
00:00:13 #700 [verbose] >
00:00:13 #701 [verbose] > ╭─[ 206.23ms - stdout ]────────────────────────────────────────────────────────╮
00:00:13 #702 [verbose] > │ 00:00:01 #6 [critical] runWithTimeoutStrict / ex: System.Exception: error / │
00:00:13 #703 [verbose] > │ timeout: 60 │
00:00:13 #704 [verbose] > │ 00:00:01 #7 [critical] runWithTimeoutStrict** / ex: │
00:00:13 #705 [verbose] > │ System.AggregateException: One or more errors occurred. (error) / timeout: │
00:00:13 #706 [verbose] > │ 60 │
00:00:13 #707 [verbose] > │ <null> │
00:00:13 #708 [verbose] > │ │
00:00:13 #709 [verbose] > ╰──────────────────────────────────────────────────────────────────────────────╯
00:00:13 #710 [verbose] >
00:00:13 #711 [verbose] > ── markdown ────────────────────────────────────────────────────────────────────
00:00:13 #712 [verbose] > ╭──────────────────────────────────────────────────────────────────────────────╮
00:00:13 #713 [verbose] > │ ## awaitValueTask │
00:00:13 #714 [verbose] > ╰──────────────────────────────────────────────────────────────────────────────╯
00:00:13 #715 [verbose] >
00:00:13 #716 [verbose] > ── fsharp ──────────────────────────────────────────────────────────────────────
00:00:13 #717 [verbose] > let inline awaitValueTaskUnit (task : System.Threading.Tasks.ValueTask) =
00:00:13 #718 [verbose] > task.AsTask () |> Async.AwaitTask
00:00:13 #719 [verbose] >
00:00:13 #720 [verbose] > let inline awaitValueTask (task : System.Threading.Tasks.ValueTask<_>) =
00:00:14 #721 [verbose] > task.AsTask () |> Async.AwaitTask
00:00:14 #722 [verbose] >
00:00:14 #723 [verbose] > ── markdown ────────────────────────────────────────────────────────────────────
00:00:14 #724 [verbose] > ╭──────────────────────────────────────────────────────────────────────────────╮
00:00:14 #725 [verbose] > │ ## init │
00:00:14 #726 [verbose] > ╰──────────────────────────────────────────────────────────────────────────────╯
00:00:14 #727 [verbose] >
00:00:14 #728 [verbose] > ── fsharp ──────────────────────────────────────────────────────────────────────
00:00:14 #729 [verbose] > let inline init x = async {
00:00:14 #730 [verbose] > return x
00:00:14 #731 [verbose] > }
00:00:14 #732 [verbose] >
00:00:14 #733 [verbose] > ── fsharp ──────────────────────────────────────────────────────────────────────
00:00:14 #734 [verbose] > //// test
00:00:14 #735 [verbose] >
00:00:14 #736 [verbose] > init 1
00:00:14 #737 [verbose] > |> Async.RunSynchronously
00:00:14 #738 [verbose] > |> _assertEqual 1
00:00:14 #739 [verbose] >
00:00:14 #740 [verbose] > ╭─[ 32.10ms - stdout ]─────────────────────────────────────────────────────────╮
00:00:14 #741 [verbose] > │ 1 │
00:00:14 #742 [verbose] > │ │
00:00:14 #743 [verbose] > ╰──────────────────────────────────────────────────────────────────────────────╯
00:00:14 #744 [verbose] >
00:00:14 #745 [verbose] > ── markdown ────────────────────────────────────────────────────────────────────
00:00:14 #746 [verbose] > ╭──────────────────────────────────────────────────────────────────────────────╮
00:00:14 #747 [verbose] > │ ## withCancellationToken │
00:00:14 #748 [verbose] > ╰──────────────────────────────────────────────────────────────────────────────╯
00:00:14 #749 [verbose] >
00:00:14 #750 [verbose] > ── fsharp ──────────────────────────────────────────────────────────────────────
00:00:14 #751 [verbose] > let inline withCancellationToken (ct : System.Threading.CancellationToken) fn =
00:00:14 #752 [verbose] > Async.StartImmediateAsTask (fn, ct)
00:00:14 #753 [verbose] > |> Async.AwaitTask
00:00:14 #754 [verbose] >
00:00:14 #755 [verbose] > ── fsharp ──────────────────────────────────────────────────────────────────────
00:00:14 #756 [verbose] > //// test
00:00:14 #757 [verbose] >
00:00:14 #758 [verbose] > let cts = new System.Threading.CancellationTokenSource ()
00:00:14 #759 [verbose] >
00:00:14 #760 [verbose] > async {
00:00:14 #761 [verbose] > let run = async {
00:00:14 #762 [verbose] > do! Async.Sleep 100
00:00:14 #763 [verbose] > return 1
00:00:14 #764 [verbose] > }
00:00:14 #765 [verbose] >
00:00:14 #766 [verbose] > let! child =
00:00:14 #767 [verbose] > run
00:00:14 #768 [verbose] > |> withCancellationToken cts.Token
00:00:14 #769 [verbose] > |> catch
00:00:14 #770 [verbose] > |> Async.StartChild
00:00:14 #771 [verbose] >
00:00:14 #772 [verbose] > do! Async.Sleep 50
00:00:14 #773 [verbose] > cts.Cancel ()
00:00:14 #774 [verbose] > return! child
00:00:14 #775 [verbose] > }
00:00:14 #776 [verbose] > |> Async.RunSynchronously
00:00:14 #777 [verbose] > |> Result.mapError _.Message
00:00:14 #778 [verbose] > |> _assertEqual (Error ("A task was canceled."))
00:00:14 #779 [verbose] >
00:00:14 #780 [verbose] > ╭─[ 193.63ms - stdout ]────────────────────────────────────────────────────────╮
00:00:14 #781 [verbose] > │ FSharpResult<Int32,String> │
00:00:14 #782 [verbose] > │ ResultValue: 0 │
00:00:14 #783 [verbose] > │ ErrorValue: A task was canceled. │
00:00:14 #784 [verbose] > │ │
00:00:14 #785 [verbose] > ╰──────────────────────────────────────────────────────────────────────────────╯
00:00:15 #786 [verbose] > [NbConvertApp] Converting notebook Async.dib.ipynb to html
00:00:15 #787 [verbose] > C:\Users\i574n\scoop\apps\python\current\Lib\site-packages\nbformat\__init__.py:93: MissingIDFieldWarning: Code cell is missing an id field, this will become a hard error in future nbformat versions. You may want to use `normalize()` on your notebooks before validations (available since nbformat 5.1.4). Previous versions of nbformat are fixing this issue transparently, and will stop doing so in the future.
00:00:15 #788 [verbose] > validate(nb)
00:00:16 #789 [verbose] > C:\Users\i574n\scoop\apps\python\current\Lib\site-packages\nbconvert\filters\highlight.py:71: UserWarning: IPython3 lexer unavailable, falling back on Python 3
00:00:16 #790 [verbose] > return _pygments_highlight(
00:00:16 #791 [verbose] > [NbConvertApp] Writing 322111 bytes to Async.dib.html
00:00:17 #792 [debug] execute_with_options_async / exit_code: 0 / output.Length: 28556
00:00:17 #6 [debug] main / executeCommand / exitCode: 0
00:00:17 #793 [debug] execute_with_options_async / options: struct (Some System.Threading.CancellationToken,
"pwsh -c "../../scripts/invoke-dib.ps1 AsyncSeq.dib" -Retries 3", None,
None, None)
00:00:19 #794 [verbose] >
00:00:19 #795 [verbose] > ── markdown ────────────────────────────────────────────────────────────────────
00:00:19 #796 [verbose] > ╭──────────────────────────────────────────────────────────────────────────────╮
00:00:19 #797 [verbose] > │ # AsyncSeq (Polyglot) │
00:00:19 #798 [verbose] > ╰──────────────────────────────────────────────────────────────────────────────╯
00:00:19 #799 [verbose] >
00:00:19 #800 [verbose] > ── fsharp ──────────────────────────────────────────────────────────────────────
00:00:19 #801 [verbose] > #!import ../../lib/fsharp/Notebooks.dib
00:00:19 #802 [verbose] > #!import ../../lib/fsharp/Testing.dib
00:00:19 #803 [verbose] >
00:00:19 #804 [verbose] > ── fsharp - import ─────────────────────────────────────────────────────────────
00:00:19 #805 [verbose] > #r
00:00:19 #806 [verbose] > "C:/Users/i574n/.nuget/packages/dotnet-repl/0.1.204/tools/net7.0/any/Microsoft.A
00:00:19 #807 [verbose] > spNetCore.Html.Abstractions.dll"
00:00:19 #808 [verbose] > #r
00:00:19 #809 [verbose] > "C:/Users/i574n/.nuget/packages/dotnet-repl/0.1.204/tools/net7.0/any/Microsoft.D
00:00:19 #810 [verbose] > otNet.Interactive.dll"
00:00:19 #811 [verbose] > #r
00:00:19 #812 [verbose] > "C:/Users/i574n/.nuget/packages/dotnet-repl/0.1.204/tools/net7.0/any/Microsoft.D
00:00:19 #813 [verbose] > otNet.Interactive.FSharp.dll"
00:00:19 #814 [verbose] > #r
00:00:19 #815 [verbose] > "C:/Users/i574n/.nuget/packages/dotnet-repl/0.1.204/tools/net7.0/any/Microsoft.D
00:00:19 #816 [verbose] > otNet.Interactive.Formatting.dll"
00:00:19 #817 [verbose] > open System
00:00:19 #818 [verbose] > open System.IO
00:00:19 #819 [verbose] > open System.Text
00:00:19 #820 [verbose] > open Microsoft.DotNet.Interactive.Formatting
00:00:22 #821 [verbose] >
00:00:22 #822 [verbose] > ── fsharp - import ─────────────────────────────────────────────────────────────
00:00:22 #823 [verbose] > #r
00:00:22 #824 [verbose] > "C:/Users/i574n/.nuget/packages/dotnet-repl/0.1.204/tools/net7.0/any/Microsoft.D
00:00:22 #825 [verbose] > otNet.Interactive.FSharp.dll"
00:00:22 #826 [verbose] > open Microsoft.DotNet.Interactive.FSharp.FSharpKernelHelpers
00:00:22 #827 [verbose] > #r
00:00:22 #828 [verbose] > "C:/Users/i574n/.nuget/packages/dotnet-repl/0.1.204/tools/net7.0/any/Microsoft.D
00:00:22 #829 [verbose] > otNet.Interactive.dll"
00:00:22 #830 [verbose] > open type Microsoft.DotNet.Interactive.Kernel
00:00:22 #831 [verbose] >
00:00:22 #832 [verbose] > ── fsharp - import ─────────────────────────────────────────────────────────────
00:00:22 #833 [verbose] > //// test
00:00:22 #834 [verbose] >
00:00:22 #835 [verbose] > Formatter.ListExpansionLimit <- 100
00:00:23 #836 [verbose] >
00:00:23 #837 [verbose] > ── fsharp - import ─────────────────────────────────────────────────────────────
00:00:23 #838 [verbose] > type [[<Struct>]] US0 =
00:00:23 #839 [verbose] > | US0_0
00:00:23 #840 [verbose] > | US0_1
00:00:23 #841 [verbose] > and [[<Struct>]] US1 =
00:00:23 #842 [verbose] > | US1_0 of f0_0 : US0
00:00:23 #843 [verbose] > | US1_1
00:00:23 #844 [verbose] > let rec closure0 () (v0 : (unit -> unit)) : System.IDisposable =
00:00:23 #845 [verbose] > let v1 : System.IDisposable option = None
00:00:23 #846 [verbose] > let mutable _v1 = v1
00:00:23 #847 [verbose] > #if FABLE_COMPILER_RUST && !WASM && !CONTRACT
00:00:23 #848 [verbose] > let v2 : System.IDisposable = null |> unbox<System.IDisposable>
00:00:23 #849 [verbose] > v2
00:00:23 #850 [verbose] > #endif
00:00:23 #851 [verbose] > #if FABLE_COMPILER_RUST && WASM
00:00:23 #852 [verbose] > let v3 : System.IDisposable = null |> unbox<System.IDisposable>
00:00:23 #853 [verbose] > v3
00:00:23 #854 [verbose] > #endif
00:00:23 #855 [verbose] > #if FABLE_COMPILER_RUST && CONTRACT
00:00:23 #856 [verbose] > let v4 : System.IDisposable = null |> unbox<System.IDisposable>
00:00:23 #857 [verbose] > v4
00:00:23 #858 [verbose] > #endif
00:00:23 #859 [verbose] > #if !FABLE_COMPILER && !FABLE_COMPILER_RUST && !FABLE_COMPILER_TYPESCRIPT &&
00:00:23 #860 [verbose] > !WASM && !CONTRACT
00:00:23 #861 [verbose] > let v5 : System.ID...
00:00:24 #862 [verbose] >
00:00:24 #863 [verbose] > ── fsharp - import ─────────────────────────────────────────────────────────────
00:00:24 #864 [verbose] > type Mut0 = {mutable l0 : int32; mutable l1 : string}
00:00:24 #865 [verbose] > and Mut1 = {mutable l0 : int32}
00:00:24 #866 [verbose] > let rec closure1 (v0 : string) (v1 : string) : bool =
00:00:24 #867 [verbose] > let v2 : bool = v1.Contains v0
00:00:24 #868 [verbose] > v2
00:00:24 #869 [verbose] > and closure0 () (v0 : string) : (string -> bool) =
00:00:24 #870 [verbose] > closure1(v0)
00:00:24 #871 [verbose] > and closure3 (v0 : string) (v1 : string) : bool =
00:00:24 #872 [verbose] > let v2 : bool = v1.EndsWith v0
00:00:24 #873 [verbose] > v2
00:00:24 #874 [verbose] > and closure2 () (v0 : string) : (string -> bool) =
00:00:24 #875 [verbose] > closure3(v0)
00:00:24 #876 [verbose] > and closure6 (v0 : int32, v1 : char) (v2 : string) : string =
00:00:24 #877 [verbose] > let v3 : string = v2.PadLeft (v0, v1)
00:00:24 #878 [verbose] > v3
00:00:24 #879 [verbose] > and closure5 (v0 : int32) (v1 : char) : (string -> string) =
00:00:24 #880 [verbose] > closure6(v0, v1)
00:00:24 #881 [verbose] > and closure4 () (v0 : int32) : (char -> (string -> string)) =
00:00:24 #882 [verbose] > closure5(v0)
00:00:24 #883 [verbose] > and closure8 (v0 : int32) (v1 : string) : string =
00:00:24 #884 [verbose] > let v2 : stri...
00:00:24 #885 [verbose] >
00:00:24 #886 [verbose] > ── fsharp - import ─────────────────────────────────────────────────────────────
00:00:24 #887 [verbose] > type ICryptoCreateHash = abstract createHash: x: string -> obj
00:00:24 #888 [verbose] > type Mut0 = {mutable l0 : int32}
00:00:24 #889 [verbose] > let rec method0 (v0 : int32, v1 : Mut0) : bool =
00:00:24 #890 [verbose] > let v2 : int32 = v1.l0
00:00:24 #891 [verbose] > let v3 : bool = v2 < v0
00:00:24 #892 [verbose] > v3
00:00:24 #893 [verbose] > and method1 () : string =
00:00:24 #894 [verbose] > let v0 : string = ""
00:00:24 #895 [verbose] > v0
00:00:24 #896 [verbose] > and closure0 () (v0 : string) : string =
00:00:24 #897 [verbose] > let v1 : string option = None
00:00:24 #898 [verbose] > let mutable _v1 = v1
00:00:24 #899 [verbose] > #if FABLE_COMPILER_RUST && !WASM && !CONTRACT
00:00:24 #900 [verbose] > let v2 : string = null |> unbox<string>
00:00:24 #901 [verbose] > v2
00:00:24 #902 [verbose] > #endif
00:00:24 #903 [verbose] > #if FABLE_COMPILER_RUST && WASM
00:00:24 #904 [verbose] > let v3 : string = null |> unbox<string>
00:00:24 #905 [verbose] > v3
00:00:24 #906 [verbose] > #endif
00:00:24 #907 [verbose] > #if FABLE_COMPILER_RUST && CONTRACT
00:00:24 #908 [verbose] > let v4 : string = null |> unbox<string>
00:00:24 #909 [verbose] > v4
00:00:24 #910 [verbose] > #endif
00:00:24 #911 [verbose] > #if !FABLE_COMPILER && !FABLE_COMPILER_RUST && !FABLE_COMPILER_TYP...
00:00:24 #912 [verbose] >
00:00:24 #913 [verbose] > ── fsharp - import ─────────────────────────────────────────────────────────────
00:00:24 #914 [verbose] > let rec closure1 (v0 : System.Guid) (v1 : System.DateTime) : System.Guid =
00:00:24 #915 [verbose] > let v2 : (System.Guid -> string) = _.ToString()
00:00:24 #916 [verbose] > let v3 : string = v2 v0
00:00:24 #917 [verbose] > let v4 : string = v1.ToString "yyyyMMdd-HHmm-ssff-ffff-f"
00:00:24 #918 [verbose] > let v5 : System.Guid = System.Guid $"{v4}{v3.[[v4.Length..]]}"
00:00:24 #919 [verbose] > v5
00:00:24 #920 [verbose] > and closure0 () (v0 : System.Guid) : (System.DateTime -> System.Guid) =
00:00:24 #921 [verbose] > closure1(v0)
00:00:24 #922 [verbose] > and closure5 (v0 : string, v1 : string) (v2 : string) : string =
00:00:24 #923 [verbose] > let v3 : string = v2.Replace (v0, v1)
00:00:24 #924 [verbose] > v3
00:00:24 #925 [verbose] > and closure4 (v0 : string) (v1 : string) : (string -> string) =
00:00:24 #926 [verbose] > closure5(v0, v1)
00:00:24 #927 [verbose] > and closure3 () (v0 : string) : (string -> (string -> string)) =
00:00:24 #928 [verbose] > closure4(v0)
00:00:24 #929 [verbose] > and method0 () : (string -> (string -> (string -> string))) =
00:00:24 #930 [verbose] > closure3()
00:00:24 #931 [verbose] > and closure2 (...
00:00:25 #932 [verbose] >
00:00:25 #933 [verbose] > ── fsharp - import ─────────────────────────────────────────────────────────────
00:00:25 #934 [verbose] > let rec closure0 () (v0 : System.Threading.CancellationToken) :
00:00:25 #935 [verbose] > Async<System.Threading.CancellationToken> =
00:00:25 #936 [verbose] > let v1 : Async<System.Threading.CancellationToken> option = None
00:00:25 #937 [verbose] > let mutable _v1 = v1
00:00:25 #938 [verbose] > #if FABLE_COMPILER_RUST && !WASM && !CONTRACT
00:00:25 #939 [verbose] > let v2 : Async<System.Threading.CancellationToken> = null |>
00:00:25 #940 [verbose] > unbox<Async<System.Threading.CancellationToken>>
00:00:25 #941 [verbose] > v2
00:00:25 #942 [verbose] > #endif
00:00:25 #943 [verbose] > #if FABLE_COMPILER_RUST && WASM
00:00:25 #944 [verbose] > let v3 : Async<System.Threading.CancellationToken> = null |>
00:00:25 #945 [verbose] > unbox<Async<System.Threading.CancellationToken>>
00:00:25 #946 [verbose] > v3
00:00:25 #947 [verbose] > #endif
00:00:25 #948 [verbose] > #if FABLE_COMPILER_RUST && CONTRACT
00:00:25 #949 [verbose] > let v4 : Async<System.Threading.CancellationToken> = null |>
00:00:25 #950 [verbose] > unbox<Async<System.Threading.CancellationToken>>
00:00:25 #951 [verbose] > v4
00:00:25 #952 [verbose] > #endif
00:00:25 #953 [verbose] > #if !FABLE_COMPILER...
00:00:25 #954 [verbose] >
00:00:25 #955 [verbose] > ── fsharp - import ─────────────────────────────────────────────────────────────
00:00:25 #956 [verbose] > #if FABLE_COMPILER
00:00:25 #957 [verbose] > [[<CompilationRepresentation (CompilationRepresentationFlags.ModuleSuffix)>]]
00:00:25 #958 [verbose] > module System =
00:00:25 #959 [verbose] > module Diagnostics =
00:00:25 #960 [verbose] > type Process = unit
00:00:25 #961 [verbose] > type DataReceivedEventArgs = unit
00:00:25 #962 [verbose] > #endif
00:00:25 #963 [verbose] > module State = let mutable trace_state = None
00:00:25 #964 [verbose] > type [[<Struct>]] US0 =
00:00:25 #965 [verbose] > | US0_0
00:00:25 #966 [verbose] > | US0_1
00:00:25 #967 [verbose] > | US0_2
00:00:25 #968 [verbose] > | US0_3
00:00:25 #969 [verbose] > | US0_4
00:00:25 #970 [verbose] > and UH0 =
00:00:25 #971 [verbose] > | UH0_0
00:00:25 #972 [verbose] > | UH0_1 of char * UH0
00:00:25 #973 [verbose] > and [[<Struct>]] US2 =
00:00:25 #974 [verbose] > | US2_0
00:00:25 #975 [verbose] > | US2_1
00:00:25 #976 [verbose] > and [[<Struct>]] US1 =
00:00:25 #977 [verbose] > | US1_0
00:00:25 #978 [verbose] > | US1_1 of f1_0 : US2
00:00:25 #979 [verbose] > | US1_2
00:00:25 #980 [verbose] > and [[<Struct>]] US3 =
00:00:25 #981 [verbose] > | US3_0 of f0_0 : string
00:00:25 #982 [verbose] > | US3_1
00:00:25 #983 [verbose] > and Mut0 = {mutable l0 : int64}
00:00:25 #984 [verbose] > and Mut1 = {mutable l0 : bool}
00:00:25 #985 [verbose] > and Mut2 = {mutable l0 : US0}
00:00:25 #986 [verbose] > and [[<Struct>]] US4 =
00:00:25 #987 [verbose] > | US4_0 of f0_0 : int64
00:00:25 #988 [verbose] > | US4_1
00:00:25 #989 [verbose] > and [[<Struct>]] US5 =
00:00:25 #990 [verbose] > | US5_0 of f0_0 : i...
00:00:26 #991 [verbose] >
00:00:26 #992 [verbose] > ── fsharp - import ─────────────────────────────────────────────────────────────
00:00:26 #993 [verbose] > #if FABLE_COMPILER // file_system.types
00:00:26 #994 [verbose] > [[<Fable.Core.Erase; Fable.Core.Emit("str")>]] type Str = class end
00:00:26 #995 [verbose] > [[<Fable.Core.Erase; Fable.Core.Emit("base64::DecodeError")>]] type
00:00:26 #996 [verbose] > base64_DecodeError = class end
00:00:26 #997 [verbose] > [[<Fable.Core.Erase; Fable.Core.Emit("borsh::io::Error")>]] type borsh_io_Error
00:00:26 #998 [verbose] > = class end
00:00:26 #999 [verbose] > [[<Fable.Core.Erase; Fable.Core.Emit("js_sys::JsString")>]] type js_sys_JsString
00:00:26 #1000 [verbose] > = class end
00:00:26 #1001 [verbose] > [[<Fable.Core.Erase; Fable.Core.Emit("serde_json::Error")>]] type
00:00:26 #1002 [verbose] > serde_json_Error = class end
00:00:26 #1003 [verbose] > [[<Fable.Core.Erase; Fable.Core.Emit("serde_json::Value")>]] type
00:00:26 #1004 [verbose] > serde_json_Value = class end
00:00:26 #1005 [verbose] > [[<Fable.Core.Erase; Fable.Core.Emit("serde_wasm_bindgen::Error")>]] type
00:00:26 #1006 [verbose] > serde_wasm_bindgen_Error = class end
00:00:26 #1007 [verbose] > [[<Fable.Core.Erase; Fable.Core.Emit("std::ffi::OsStr")>]] type std_ffi_O...
00:00:27 #1008 [verbose] >
00:00:27 #1009 [verbose] > ── fsharp - import ─────────────────────────────────────────────────────────────
00:00:27 #1010 [verbose] > module State = let mutable trace_state = None
00:00:27 #1011 [verbose] > type [[<Struct>]] US0 =
00:00:27 #1012 [verbose] > | US0_0
00:00:27 #1013 [verbose] > | US0_1
00:00:27 #1014 [verbose] > | US0_2
00:00:27 #1015 [verbose] > | US0_3
00:00:27 #1016 [verbose] > | US0_4
00:00:27 #1017 [verbose] > and Mut0 = {mutable l0 : int64}
00:00:27 #1018 [verbose] > and Mut1 = {mutable l0 : bool}
00:00:27 #1019 [verbose] > and Mut2 = {mutable l0 : US0}
00:00:27 #1020 [verbose] > and [[<Struct>]] US1 =
00:00:27 #1021 [verbose] > | US1_0 of f0_0 : int64
00:00:27 #1022 [verbose] > | US1_1
00:00:27 #1023 [verbose] > and [[<Struct>]] US2 =
00:00:27 #1024 [verbose] > | US2_0 of f0_0 : int64
00:00:27 #1025 [verbose] > | US2_1
00:00:27 #1026 [verbose] > let rec method1 (v0 : int64 option) : int64 option =
00:00:27 #1027 [verbose] > v0
00:00:27 #1028 [verbose] > and method2 (v0 : int64 option) : int64 option =
00:00:27 #1029 [verbose] > v0
00:00:27 #1030 [verbose] > and closure3 () () : struct (Mut0 * Mut1 * Mut1 * Mut2 * int64 option) =
00:00:27 #1031 [verbose] > let v0 : Mut1 = {l0 = true} : Mut1
00:00:27 #1032 [verbose] > let v1 : Mut0 = {l0 = 0L} : Mut0
00:00:27 #1033 [verbose] > let v2 : US0 = US0_0
00:00:27 #1034 [verbose] > let v3 : Mut2 = {l0 = v2} : Mut2
00:00:27 #1035 [verbose] > let v4 : Mut1 = {l0 = false} : Mut1
00:00:27 #1036 [verbose] > let v5 : int64 option option = None
00:00:27 #1037 [verbose] > ...
00:00:28 #1038 [verbose] >
00:00:28 #1039 [verbose] > ── fsharp - import ─────────────────────────────────────────────────────────────
00:00:28 #1040 [verbose] > module SpiralTrace =
00:00:28 #1041 [verbose] > let get_trace_state () =
00:00:28 #1042 [verbose] > #if !INTERACTIVE
00:00:28 #1043 [verbose] > Trace.get_trace_state ()
00:00:28 #1044 [verbose] > #else
00:00:28 #1045 [verbose] > get_trace_state ()
00:00:28 #1046 [verbose] > #endif
00:00:28 #1047 [verbose] >
00:00:28 #1048 [verbose] > let trace x =
00:00:28 #1049 [verbose] > #if !INTERACTIVE
00:00:28 #1050 [verbose] > Trace.trace x
00:00:28 #1051 [verbose] > #else
00:00:28 #1052 [verbose] > trace x
00:00:28 #1053 [verbose] > #endif
00:00:28 #1054 [verbose] >
00:00:28 #1055 [verbose] > type TraceLevel =
00:00:28 #1056 [verbose] > #if !INTERACTIVE
00:00:28 #1057 [verbose] > Trace.US0
00:00:28 #1058 [verbose] > #else
00:00:28 #1059 [verbose] > US0
00:00:28 #1060 [verbose] > #endif
00:00:28 #1061 [verbose] >
00:00:28 #1062 [verbose] > #if !FABLE_COMPILER && !WASM && !CONTRACT
00:00:28 #1063 [verbose] >
00:00:28 #1064 [verbose] > module SpiralAsync =
00:00:28 #1065 [verbose] > let merge_cancellation_token_with_default_async x =
00:00:28 #1066 [verbose] > #if !INTERACTIVE
00:00:28 #1067 [verbose] > Async_.merge_cancellation_token_with_default_async x
00:00:28 #1068 [verbose] > #else
00:00:28 #1069 [verbose] > merge_cancellation_token_with_default_async x
00:00:28 #1070 [verbose] > #endif
00:00:28 #1071 [verbose] >
00:00:28 #1072 [verbose] > module SpiralRuntime =
00:00:28 #1073 [verbose] > let get_executable_suffix () =
00:00:28 #1074 [verbose] > #if !INTERACTIVE
00:00:28 #1075 [verbose] > Runtime.get_executable_suffix ()
00:00:28 #1076 [verbose] > #else
00:00:28 #1077 [verbose] > get_executable_suffix ()
00:00:28 #1078 [verbose] > #endif
00:00:28 #1079 [verbose] >
00:00:28 #1080 [verbose] > let is...
00:00:28 #1081 [verbose] >
00:00:28 #1082 [verbose] > ── fsharp - import ─────────────────────────────────────────────────────────────
00:00:28 #1083 [verbose] > #r @"../../../../../../../.nuget/packages/expecto/10.2.1/lib/net6.0/Expecto.dll"
00:00:28 #1084 [verbose] >
00:00:28 #1085 [verbose] > ── fsharp - import ─────────────────────────────────────────────────────────────
00:00:28 #1086 [verbose] > //// test
00:00:28 #1087 [verbose] >
00:00:28 #1088 [verbose] > type AssertExceptionFormatter (ex) =
00:00:28 #1089 [verbose] > member _.Text =
00:00:28 #1090 [verbose] > ex.ToString()
00:00:28 #1091 [verbose] > .Replace("32m", "<span style=\"color: green;\">")
00:00:28 #1092 [verbose] > .Replace("36m", "</span>")
00:00:28 #1093 [verbose] > .Replace("31m", "<span style=\"color: red;\">")
00:00:28 #1094 [verbose] > .Replace("\n", "<br/>\n")
00:00:28 #1095 [verbose] >
00:00:28 #1096 [verbose] >
00:00:28 #1097 [verbose] > Formatter.Register<AssertExceptionFormatter> ((fun (x :
00:00:28 #1098 [verbose] > AssertExceptionFormatter) -> x.Text), "text/html")
00:00:28 #1099 [verbose] >
00:00:28 #1100 [verbose] > ── fsharp - import ─────────────────────────────────────────────────────────────
00:00:28 #1101 [verbose] > //// test
00:00:28 #1102 [verbose] >
00:00:28 #1103 [verbose] > let inline __expect fn log expected actual =
00:00:28 #1104 [verbose] > if log then printfn $"{actual.ToDisplayString ()}"
00:00:28 #1105 [verbose] > try
00:00:28 #1106 [verbose] > "Testing.__expect" |> fn actual expected
00:00:28 #1107 [verbose] > with :? Expecto.AssertException as ex ->
00:00:28 #1108 [verbose] > AssertExceptionFormatter(ex).Display () |> ignore
00:00:28 #1109 [verbose] > failwith (ex.GetType().FullName)
00:00:28 #1110 [verbose] >
00:00:28 #1111 [verbose] > let inline __contains log expected actual = __expect Expecto.Expect.contains log
00:00:28 #1112 [verbose] > expected actual
00:00:28 #1113 [verbose] > let inline _contains expected actual = __contains true expected actual
00:00:28 #1114 [verbose] >
00:00:28 #1115 [verbose] > let inline __assertEqual log expected actual = __expect Expecto.Expect.equal log
00:00:28 #1116 [verbose] > expected actual
00:00:28 #1117 [verbose] > let inline _assertEqual expected actual = __assertEqual true expected actual
00:00:28 #1118 [verbose] >
00:00:28 #1119 [verbose] > let inline __isGreaterThan log expected actual = __expect
00:00:28 #1120 [verbose] > Expecto.Expect.isGreaterThan log ex...
00:00:28 #1121 [verbose] >
00:00:28 #1122 [verbose] > ── fsharp - import ─────────────────────────────────────────────────────────────
00:00:28 #1123 [verbose] > //// test
00:00:28 #1124 [verbose] >
00:00:28 #1125 [verbose] > let inline __isBetween log a b actual =
00:00:28 #1126 [verbose] > let inline isBetween actual (a, b) _ =
00:00:28 #1127 [verbose] > __isGreaterThanOrEqual log a actual
00:00:28 #1128 [verbose] > __isLessThanOrEqual log b actual
00:00:28 #1129 [verbose] > __expect isBetween log (a, b) actual
00:00:28 #1130 [verbose] > let inline _isBetween a b actual = __isBetween true a b actual
00:00:28 #1131 [verbose] >
00:00:28 #1132 [verbose] > ── fsharp ──────────────────────────────────────────────────────────────────────
00:00:28 #1133 [verbose] > #r
00:00:28 #1134 [verbose] > @"../../../../../../../.nuget/packages/fsharp.control.asyncseq/3.2.1/lib/netstan
00:00:28 #1135 [verbose] > dard2.1/FSharp.Control.AsyncSeq.dll"
00:00:28 #1136 [verbose] > #r
00:00:28 #1137 [verbose] > @"../../../../../../../.nuget/packages/system.reactive/6.0.1-preview.1/lib/net6.
00:00:28 #1138 [verbose] > 0/System.Reactive.dll"
00:00:28 #1139 [verbose] > #r
00:00:28 #1140 [verbose] > @"../../../../../../../.nuget/packages/system.reactive.linq/6.0.1-preview.1/lib
00:00:28 #1141 [verbose] > netstandard2.0/System.Reactive.Linq.dll"
00:00:28 #1142 [verbose] >
00:00:28 #1143 [verbose] > ── fsharp ──────────────────────────────────────────────────────────────────────
00:00:28 #1144 [verbose] > #!import ../../lib/fsharp/Common.fs
00:00:28 #1145 [verbose] > #!import ../../lib/fsharp/Async.fs
00:00:28 #1146 [verbose] >
00:00:28 #1147 [verbose] > ── fsharp - import ─────────────────────────────────────────────────────────────
00:00:28 #1148 [verbose] > #if !INTERACTIVE
00:00:28 #1149 [verbose] > namespace Polyglot
00:00:28 #1150 [verbose] > #endif
00:00:28 #1151 [verbose] >
00:00:28 #1152 [verbose] > module Common =
00:00:28 #1153 [verbose] >
00:00:28 #1154 [verbose] > #if !INTERACTIVE
00:00:28 #1155 [verbose] > open Lib
00:00:28 #1156 [verbose] > #endif
00:00:28 #1157 [verbose] >
00:00:28 #1158 [verbose] > let nl = System.Environment.NewLine
00:00:28 #1159 [verbose] > let q = @""""
00:00:28 #1160 [verbose] >
00:00:28 #1161 [verbose] > let inline cons head tail = head :: tail
00:00:28 #1162 [verbose] >
00:00:28 #1163 [verbose] > /// ## memoize
00:00:28 #1164 [verbose] >
00:00:28 #1165 [verbose] > let inline memoize fn =
00:00:28 #1166 [verbose] > let result = lazy fn ()
00:00:28 #1167 [verbose] > fun () -> result.Value
00:00:28 #1168 [verbose] >
00:00:28 #1169 [verbose] > /// ## TraceLevel
00:00:28 #1170 [verbose] >
00:00:28 #1171 [verbose] > type TraceLevel =
00:00:28 #1172 [verbose] > | Verbose
00:00:28 #1173 [verbose] > | Debug
00:00:28 #1174 [verbose] > | Info
00:00:28 #1175 [verbose] > | Warning
00:00:28 #1176 [verbose] > | Critical
00:00:28 #1177 [verbose] >
00:00:28 #1178 [verbose] > let inline getLocals () = ""
00:00:28 #1179 [verbose] >
00:00:28 #1180 [verbose] > /// ## trace
00:00:28 #1181 [verbose] >
00:00:28 #1182 [verbose] > let to_trace_level = function
00:00:28 #1183 [verbose] > | Verbose -> SpiralTrace.TraceLevel.US0_0
00:00:28 #1184 [verbose] > | Debug -> SpiralTrace.TraceLevel.US0_1
00:00:28 #1185 [verbose] > | Info -> SpiralTrace.TraceLevel.US0_2
00:00:28 #1186 [verbose] > | Warning -> SpiralTrace.TraceLevel.US0_3
00:00:28 #1187 [verbose] > | Critical ->...
00:00:28 #1188 [verbose] >
00:00:28 #1189 [verbose] > ── fsharp - import ─────────────────────────────────────────────────────────────
00:00:28 #1190 [verbose] > #if !INTERACTIVE
00:00:28 #1191 [verbose] > namespace Polyglot
00:00:28 #1192 [verbose] > #endif
00:00:28 #1193 [verbose] >
00:00:28 #1194 [verbose] > module Async =
00:00:28 #1195 [verbose] >
00:00:28 #1196 [verbose] > #if !INTERACTIVE
00:00:28 #1197 [verbose] > open Lib
00:00:28 #1198 [verbose] > #endif
00:00:28 #1199 [verbose] >
00:00:28 #1200 [verbose] > open Common
00:00:28 #1201 [verbose] >
00:00:28 #1202 [verbose] > /// ## choice
00:00:28 #1203 [verbose] >
00:00:28 #1204 [verbose] > let inline choice asyncs = async {
00:00:28 #1205 [verbose] > let e = Event<_> ()
00:00:28 #1206 [verbose] > use cts = new System.Threading.CancellationTokenSource ()
00:00:28 #1207 [verbose] > let fn =
00:00:28 #1208 [verbose] > asyncs
00:00:28 #1209 [verbose] > |> Seq.map (fun a -> async {
00:00:28 #1210 [verbose] > let! x = a
00:00:28 #1211 [verbose] > e.Trigger x
00:00:28 #1212 [verbose] > })
00:00:28 #1213 [verbose] > |> Async.Parallel
00:00:28 #1214 [verbose] > |> Async.Ignore
00:00:28 #1215 [verbose] > Async.Start (fn, cts.Token)
00:00:28 #1216 [verbose] > let! result = Async.AwaitEvent e.Publish
00:00:28 #1217 [verbose] > cts.Cancel ()
00:00:28 #1218 [verbose] > return result
00:00:28 #1219 [verbose] > }
00:00:28 #1220 [verbose] >
00:00:28 #1221 [verbose] > /// ## map
00:00:28 #1222 [verbose] >
00:00:28 #1223 [verbose] > let inline map fn a = async {
00:00:28 #1224 [verbose] > let! x = a
00:00:28 #1225 [verbose] > return fn x
00:00:28 #1226 [verbose] > }
00:00:28 #1227 [verbose] >
00:00:28 #1228 [verbose] > /// ## catch
00:00:28 #1229 [verbose] >
00:00:28 #1230 [verbose] > let inline catch a =
00:00:28 #1231 [verbose] > ...
00:00:29 #1232 [verbose] >
00:00:29 #1233 [verbose] > ── fsharp ──────────────────────────────────────────────────────────────────────
00:00:29 #1234 [verbose] > #if !INTERACTIVE
00:00:29 #1235 [verbose] > open Lib
00:00:29 #1236 [verbose] > #endif
00:00:29 #1237 [verbose] >
00:00:29 #1238 [verbose] > ── fsharp ──────────────────────────────────────────────────────────────────────
00:00:29 #1239 [verbose] > open Common
00:00:29 #1240 [verbose] >
00:00:29 #1241 [verbose] > ── markdown ────────────────────────────────────────────────────────────────────
00:00:29 #1242 [verbose] > ╭──────────────────────────────────────────────────────────────────────────────╮
00:00:29 #1243 [verbose] > │ ## subscribeEvent │
00:00:29 #1244 [verbose] > ╰──────────────────────────────────────────────────────────────────────────────╯
00:00:29 #1245 [verbose] >
00:00:29 #1246 [verbose] > ── fsharp ──────────────────────────────────────────────────────────────────────
00:00:29 #1247 [verbose] > let inline subscribeEvent (event: IEvent<'H, 'A>) map =
00:00:29 #1248 [verbose] > let observable = System.Reactive.Linq.Observable.FromEventPattern<'H,
00:00:29 #1249 [verbose] > 'A>(event.AddHandler, event.RemoveHandler)
00:00:29 #1250 [verbose] > System.Reactive.Linq.Observable.Select (observable, fun event -> map
00:00:29 #1251 [verbose] > event.EventArgs)
00:00:29 #1252 [verbose] > |> FSharp.Control.AsyncSeq.ofObservableBuffered
00:00:29 #1253 [verbose] >
00:00:29 #1254 [verbose] > ── fsharp ──────────────────────────────────────────────────────────────────────
00:00:29 #1255 [verbose] > //// test
00:00:29 #1256 [verbose] >
00:00:29 #1257 [verbose] > type TestEvent () as self =
00:00:29 #1258 [verbose] > member val Calls = [[]] with get, set
00:00:29 #1259 [verbose] > member val Event = Event<ErrorEventHandler, ErrorEventArgs> () with get
00:00:29 #1260 [verbose] >
00:00:29 #1261 [verbose] > member _.AddCall text =
00:00:29 #1262 [verbose] > self.Calls <- self.Calls @ [[ text ]]
00:00:29 #1263 [verbose] >
00:00:29 #1264 [verbose] > member _.EventInterface =
00:00:29 #1265 [verbose] > { new IEvent<ErrorEventHandler, ErrorEventArgs> with
00:00:29 #1266 [verbose] > member _.AddHandler handler =
00:00:29 #1267 [verbose] > self.AddCall "AddHandler"
00:00:29 #1268 [verbose] > self.Event.Publish.AddHandler handler
00:00:29 #1269 [verbose] >
00:00:29 #1270 [verbose] > member _.RemoveHandler handler =
00:00:29 #1271 [verbose] > self.AddCall "RemoveHandler"
00:00:29 #1272 [verbose] > self.Event.Publish.RemoveHandler handler
00:00:29 #1273 [verbose] >
00:00:29 #1274 [verbose] > member _.Subscribe observer =
00:00:29 #1275 [verbose] > self.AddCall "IObservable.Subscribe"
00:00:29 #1276 [verbose] > let disposable = self.Event.Publish.Subscribe observer
00:00:29 #1277 [verbose] > new_disposable (fun () ->
00:00:29 #1278 [verbose] > self.AddCall "IObservable.Dispose"
00:00:29 #1279 [verbose] > disposable.Dispose ()
00:00:29 #1280 [verbose] > )
00:00:29 #1281 [verbose] > }
00:00:29 #1282 [verbose] >
00:00:29 #1283 [verbose] > member _.Subscribe () =
00:00:29 #1284 [verbose] > subscribeEvent
00:00:29 #1285 [verbose] > self.EventInterface
00:00:29 #1286 [verbose] > (fun args ->
00:00:29 #1287 [verbose] > let result = args.GetException () |> SpiralSm.format_exception
00:00:29 #1288 [verbose] > self.AddCall $"TestEvent.Subscribe({result})"
00:00:29 #1289 [verbose] > result
00:00:29 #1290 [verbose] > )
00:00:29 #1291 [verbose] >
00:00:29 #1292 [verbose] > member _.Iter subscription =
00:00:29 #1293 [verbose] > subscription
00:00:29 #1294 [verbose] > |> FSharp.Control.AsyncSeq.iteriAsync (fun i error -> async {
00:00:29 #1295 [verbose] > self.AddCall $"TestEvent.Iter({i}: {error})"
00:00:29 #1296 [verbose] > })
00:00:29 #1297 [verbose] >
00:00:29 #1298 [verbose] > member _.WaitCall text = async {
00:00:29 #1299 [verbose] > while self.Calls |> List.last <> text do
00:00:29 #1300 [verbose] > do! Async.SwitchToThreadPool ()
00:00:29 #1301 [verbose] > }
00:00:29 #1302 [verbose] >
00:00:29 #1303 [verbose] > ── fsharp ──────────────────────────────────────────────────────────────────────
00:00:29 #1304 [verbose] > //// test
00:00:29 #1305 [verbose] >
00:00:29 #1306 [verbose] > let testEvent = TestEvent ()
00:00:29 #1307 [verbose] >
00:00:29 #1308 [verbose] > async {
00:00:29 #1309 [verbose] > testEvent.AddCall "1"
00:00:29 #1310 [verbose] > let! child = testEvent.Subscribe () |> testEvent.Iter |> Async.StartChild
00:00:29 #1311 [verbose] > do! testEvent.WaitCall "AddHandler"
00:00:29 #1312 [verbose] > testEvent.AddCall "2"
00:00:29 #1313 [verbose] > do! child
00:00:29 #1314 [verbose] > testEvent.AddCall "3"
00:00:29 #1315 [verbose] > }
00:00:29 #1316 [verbose] > |> Async.runWithTimeout 300
00:00:29 #1317 [verbose] > |> _assertEqual None
00:00:29 #1318 [verbose] >
00:00:29 #1319 [verbose] > testEvent.Calls
00:00:29 #1320 [verbose] > |> Seq.toList
00:00:29 #1321 [verbose] > |> _assertEqual [[ "1"; "AddHandler"; "2"; "RemoveHandler" ]]
00:00:29 #1322 [verbose] >
00:00:29 #1323 [verbose] > ╭─[ 451.24ms - stdout ]────────────────────────────────────────────────────────╮
00:00:29 #1324 [verbose] > │ 00:00:00 #1 [debug] runWithTimeoutChildAsync / timeout: 300 │
00:00:29 #1325 [verbose] > │ <null> │
00:00:29 #1326 [verbose] > │ [ 1, AddHandler, 2, RemoveHandler ] │
00:00:29 #1327 [verbose] > │ │
00:00:29 #1328 [verbose] > ╰──────────────────────────────────────────────────────────────────────────────╯
00:00:29 #1329 [verbose] >
00:00:29 #1330 [verbose] > ── fsharp ──────────────────────────────────────────────────────────────────────
00:00:29 #1331 [verbose] > //// test
00:00:29 #1332 [verbose] >
00:00:29 #1333 [verbose] > let testEvent = TestEvent ()
00:00:29 #1334 [verbose] >
00:00:29 #1335 [verbose] > async {
00:00:29 #1336 [verbose] > testEvent.AddCall "1"
00:00:29 #1337 [verbose] > let! child = testEvent.Subscribe () |> testEvent.Iter |> Async.StartChild
00:00:29 #1338 [verbose] > do! testEvent.WaitCall "AddHandler"
00:00:29 #1339 [verbose] > testEvent.AddCall "2"
00:00:29 #1340 [verbose] > use _ = testEvent.EventInterface.Subscribe (fun args ->
00:00:29 #1341 [verbose] > testEvent.AddCall $"testEvent.EventInterface.Subscribe({args})"
00:00:29 #1342 [verbose] > )
00:00:29 #1343 [verbose] > testEvent.AddCall "3"
00:00:29 #1344 [verbose] > do! child
00:00:29 #1345 [verbose] > testEvent.AddCall "4"
00:00:29 #1346 [verbose] > }
00:00:29 #1347 [verbose] > |> Async.runWithTimeout 300
00:00:29 #1348 [verbose] > |> _assertEqual None
00:00:29 #1349 [verbose] >
00:00:29 #1350 [verbose] > testEvent.Calls
00:00:29 #1351 [verbose] > |> _assertEqual [[ "1"; "AddHandler"; "2"; "IObservable.Subscribe"; "3";
00:00:29 #1352 [verbose] > "RemoveHandler"; "IObservable.Dispose" ]]
00:00:30 #1353 [verbose] >
00:00:30 #1354 [verbose] > ╭─[ 422.28ms - stdout ]────────────────────────────────────────────────────────╮
00:00:30 #1355 [verbose] > │ 00:00:00 #2 [debug] runWithTimeoutChildAsync / timeout: 300 │
00:00:30 #1356 [verbose] > │ <null> │
00:00:30 #1357 [verbose] > │ [ 1, AddHandler, 2, IObservable.Subscribe, 3, RemoveHandler, │
00:00:30 #1358 [verbose] > │ IObservable.Dispose ] │
00:00:30 #1359 [verbose] > │ │
00:00:30 #1360 [verbose] > ╰──────────────────────────────────────────────────────────────────────────────╯
00:00:30 #1361 [verbose] >
00:00:30 #1362 [verbose] > ── fsharp ──────────────────────────────────────────────────────────────────────
00:00:30 #1363 [verbose] > //// test
00:00:30 #1364 [verbose] >
00:00:30 #1365 [verbose] > let testEvent = TestEvent ()
00:00:30 #1366 [verbose] >
00:00:30 #1367 [verbose] > async {
00:00:30 #1368 [verbose] > testEvent.AddCall "1"
00:00:30 #1369 [verbose] > let! child = testEvent.Subscribe () |> testEvent.Iter |> Async.StartChild
00:00:30 #1370 [verbose] > do! testEvent.WaitCall "AddHandler"
00:00:30 #1371 [verbose] > testEvent.AddCall "2"
00:00:30 #1372 [verbose] > use _ = testEvent.EventInterface.Subscribe (fun args ->
00:00:30 #1373 [verbose] > async {
00:00:30 #1374 [verbose] > do! testEvent.WaitCall "TestEvent.Iter(0: System.Exception: error)"
00:00:30 #1375 [verbose] > testEvent.AddCall
00:00:30 #1376 [verbose] > $"testEvent.EventInterface.Subscribe({args.GetException () |>
00:00:30 #1377 [verbose] > SpiralSm.format_exception})"
00:00:30 #1378 [verbose] > }
00:00:30 #1379 [verbose] > |> Async.RunSynchronously
00:00:30 #1380 [verbose] > )
00:00:30 #1381 [verbose] > testEvent.AddCall "3"
00:00:30 #1382 [verbose] > testEvent.Event.Trigger (null, ErrorEventArgs (Exception "error"))
00:00:30 #1383 [verbose] > testEvent.AddCall "4"
00:00:30 #1384 [verbose] > do! child
00:00:30 #1385 [verbose] > testEvent.AddCall "5"
00:00:30 #1386 [verbose] > }
00:00:30 #1387 [verbose] > |> Async.runWithTimeout 300
00:00:30 #1388 [verbose] > |> _assertEqual None
00:00:30 #1389 [verbose] >
00:00:30 #1390 [verbose] > testEvent.Calls
00:00:30 #1391 [verbose] > |> _assertEqual [[
00:00:30 #1392 [verbose] > "1"
00:00:30 #1393 [verbose] > "AddHandler"
00:00:30 #1394 [verbose] > "2"
00:00:30 #1395 [verbose] > "IObservable.Subscribe"
00:00:30 #1396 [verbose] > "3"
00:00:30 #1397 [verbose] > "TestEvent.Subscribe(System.Exception: error)"
00:00:30 #1398 [verbose] > "TestEvent.Iter(0: System.Exception: error)"
00:00:30 #1399 [verbose] > "testEvent.EventInterface.Subscribe(System.Exception: error)"
00:00:30 #1400 [verbose] > "4"
00:00:30 #1401 [verbose] > "RemoveHandler"
00:00:30 #1402 [verbose] > "IObservable.Dispose"
00:00:30 #1403 [verbose] > ]]
00:00:30 #1404 [verbose] >
00:00:30 #1405 [verbose] > ╭─[ 449.18ms - stdout ]────────────────────────────────────────────────────────╮
00:00:30 #1406 [verbose] > │ 00:00:00 #3 [debug] runWithTimeoutChildAsync / timeout: 300 │
00:00:30 #1407 [verbose] > │ <null> │
00:00:30 #1408 [verbose] > │ [ 1, AddHandler, 2, IObservable.Subscribe, 3, │
00:00:30 #1409 [verbose] > │ TestEvent.Subscribe(System.Exception: error), TestEvent.Iter(0: │
00:00:30 #1410 [verbose] > │ System.Exception: error), │
00:00:30 #1411 [verbose] > │ testEvent.EventInterface.Subscribe(System.Exception: error), 4, │
00:00:30 #1412 [verbose] > │ RemoveHandler, IObservable.Dispose ] │
00:00:30 #1413 [verbose] > │ │
00:00:30 #1414 [verbose] > ╰──────────────────────────────────────────────────────────────────────────────╯
00:00:30 #1415 [verbose] >
00:00:30 #1416 [verbose] > ── fsharp ──────────────────────────────────────────────────────────────────────
00:00:30 #1417 [verbose] > let subscribeToken (token : System.Threading.CancellationToken) =
00:00:30 #1418 [verbose] > let tcs = new System.Threading.Tasks.TaskCompletionSource ()
00:00:30 #1419 [verbose] > System.Action tcs.SetResult |> token.Register |> ignore
00:00:30 #1420 [verbose] > let start = System.DateTime.Now.Ticks
00:00:30 #1421 [verbose] > FSharp.Control.AsyncSeq.unfoldAsync
00:00:30 #1422 [verbose] > (fun () -> async {
00:00:30 #1423 [verbose] > do! tcs.Task |> Async.AwaitTask
00:00:30 #1424 [verbose] > return Some (System.DateTime.Now.Ticks - start, ())
00:00:30 #1425 [verbose] > })
00:00:30 #1426 [verbose] > ()
00:00:30 #1427 [verbose] >
00:00:30 #1428 [verbose] > ── fsharp ──────────────────────────────────────────────────────────────────────
00:00:30 #1429 [verbose] > //// test
00:00:30 #1430 [verbose] >
00:00:30 #1431 [verbose] > let cts = new System.Threading.CancellationTokenSource ()
00:00:30 #1432 [verbose] >
00:00:30 #1433 [verbose] > async {
00:00:30 #1434 [verbose] > let! child =
00:00:30 #1435 [verbose] > cts.Token
00:00:30 #1436 [verbose] > |> subscribeToken
00:00:30 #1437 [verbose] > |> FSharp.Control.AsyncSeq.tryFirst
00:00:30 #1438 [verbose] > |> Async.StartChild
00:00:30 #1439 [verbose] >
00:00:30 #1440 [verbose] > do! Async.Sleep 100
00:00:30 #1441 [verbose] > cts.Cancel ()
00:00:30 #1442 [verbose] > return! child
00:00:30 #1443 [verbose] > }
00:00:30 #1444 [verbose] > |> Async.RunSynchronously
00:00:30 #1445 [verbose] > |> Option.get
00:00:30 #1446 [verbose] > |> _isGreaterThan 900000
00:00:31 #1447 [verbose] >
00:00:31 #1448 [verbose] > ╭─[ 191.24ms - stdout ]────────────────────────────────────────────────────────╮
00:00:31 #1449 [verbose] > │ 1136879 │
00:00:31 #1450 [verbose] > │ │
00:00:31 #1451 [verbose] > ╰──────────────────────────────────────────────────────────────────────────────╯
00:00:32 #1452 [verbose] > [NbConvertApp] Converting notebook AsyncSeq.dib.ipynb to html
00:00:32 #1453 [verbose] > C:\Users\i574n\scoop\apps\python\current\Lib\site-packages\nbformat\__init__.py:93: MissingIDFieldWarning: Code cell is missing an id field, this will become a hard error in future nbformat versions. You may want to use `normalize()` on your notebooks before validations (available since nbformat 5.1.4). Previous versions of nbformat are fixing this issue transparently, and will stop doing so in the future.
00:00:32 #1454 [verbose] > validate(nb)
00:00:33 #1455 [verbose] > C:\Users\i574n\scoop\apps\python\current\Lib\site-packages\nbconvert\filters\highlight.py:71: UserWarning: IPython3 lexer unavailable, falling back on Python 3
00:00:33 #1456 [verbose] > return _pygments_highlight(
00:00:33 #1457 [verbose] > [NbConvertApp] Writing 302251 bytes to AsyncSeq.dib.html
00:00:34 #1458 [debug] execute_with_options_async / exit_code: 0 / output.Length: 22141
00:00:34 #7 [debug] main / executeCommand / exitCode: 0
00:00:34 #1459 [debug] execute_with_options_async / options: struct (Some System.Threading.CancellationToken,
"pwsh -c "../../scripts/invoke-dib.ps1 Common.dib" -Retries 3", None,
None, None)
00:00:36 #1460 [verbose] >
00:00:36 #1461 [verbose] > ── markdown ────────────────────────────────────────────────────────────────────
00:00:36 #1462 [verbose] > ╭──────────────────────────────────────────────────────────────────────────────╮
00:00:36 #1463 [verbose] > │ # Common (Polyglot) │
00:00:36 #1464 [verbose] > ╰──────────────────────────────────────────────────────────────────────────────╯
00:00:36 #1465 [verbose] >
00:00:36 #1466 [verbose] > ── fsharp ──────────────────────────────────────────────────────────────────────
00:00:36 #1467 [verbose] > #!import ../../lib/fsharp/Notebooks.dib
00:00:36 #1468 [verbose] > #!import ../../lib/fsharp/Testing.dib
00:00:36 #1469 [verbose] >
00:00:36 #1470 [verbose] > ── fsharp - import ─────────────────────────────────────────────────────────────
00:00:36 #1471 [verbose] > #r
00:00:36 #1472 [verbose] > "C:/Users/i574n/.nuget/packages/dotnet-repl/0.1.204/tools/net7.0/any/Microsoft.A
00:00:36 #1473 [verbose] > spNetCore.Html.Abstractions.dll"
00:00:36 #1474 [verbose] > #r
00:00:36 #1475 [verbose] > "C:/Users/i574n/.nuget/packages/dotnet-repl/0.1.204/tools/net7.0/any/Microsoft.D
00:00:36 #1476 [verbose] > otNet.Interactive.dll"
00:00:36 #1477 [verbose] > #r
00:00:36 #1478 [verbose] > "C:/Users/i574n/.nuget/packages/dotnet-repl/0.1.204/tools/net7.0/any/Microsoft.D
00:00:36 #1479 [verbose] > otNet.Interactive.FSharp.dll"
00:00:36 #1480 [verbose] > #r
00:00:36 #1481 [verbose] > "C:/Users/i574n/.nuget/packages/dotnet-repl/0.1.204/tools/net7.0/any/Microsoft.D
00:00:36 #1482 [verbose] > otNet.Interactive.Formatting.dll"
00:00:36 #1483 [verbose] > open System
00:00:36 #1484 [verbose] > open System.IO
00:00:36 #1485 [verbose] > open System.Text
00:00:36 #1486 [verbose] > open Microsoft.DotNet.Interactive.Formatting
00:00:39 #1487 [verbose] >
00:00:39 #1488 [verbose] > ── fsharp - import ─────────────────────────────────────────────────────────────
00:00:39 #1489 [verbose] > #r
00:00:39 #1490 [verbose] > "C:/Users/i574n/.nuget/packages/dotnet-repl/0.1.204/tools/net7.0/any/Microsoft.D
00:00:39 #1491 [verbose] > otNet.Interactive.FSharp.dll"
00:00:39 #1492 [verbose] > open Microsoft.DotNet.Interactive.FSharp.FSharpKernelHelpers
00:00:39 #1493 [verbose] > #r
00:00:39 #1494 [verbose] > "C:/Users/i574n/.nuget/packages/dotnet-repl/0.1.204/tools/net7.0/any/Microsoft.D
00:00:39 #1495 [verbose] > otNet.Interactive.dll"
00:00:39 #1496 [verbose] > open type Microsoft.DotNet.Interactive.Kernel
00:00:39 #1497 [verbose] >
00:00:39 #1498 [verbose] > ── fsharp - import ─────────────────────────────────────────────────────────────
00:00:39 #1499 [verbose] > //// test
00:00:39 #1500 [verbose] >
00:00:39 #1501 [verbose] > Formatter.ListExpansionLimit <- 100
00:00:39 #1502 [verbose] >
00:00:39 #1503 [verbose] > ── fsharp - import ─────────────────────────────────────────────────────────────
00:00:39 #1504 [verbose] > type [[<Struct>]] US0 =
00:00:39 #1505 [verbose] > | US0_0
00:00:39 #1506 [verbose] > | US0_1
00:00:39 #1507 [verbose] > and [[<Struct>]] US1 =
00:00:39 #1508 [verbose] > | US1_0 of f0_0 : US0
00:00:39 #1509 [verbose] > | US1_1
00:00:39 #1510 [verbose] > let rec closure0 () (v0 : (unit -> unit)) : System.IDisposable =
00:00:39 #1511 [verbose] > let v1 : System.IDisposable option = None
00:00:39 #1512 [verbose] > let mutable _v1 = v1
00:00:39 #1513 [verbose] > #if FABLE_COMPILER_RUST && !WASM && !CONTRACT
00:00:39 #1514 [verbose] > let v2 : System.IDisposable = null |> unbox<System.IDisposable>
00:00:39 #1515 [verbose] > v2
00:00:39 #1516 [verbose] > #endif
00:00:39 #1517 [verbose] > #if FABLE_COMPILER_RUST && WASM
00:00:39 #1518 [verbose] > let v3 : System.IDisposable = null |> unbox<System.IDisposable>
00:00:39 #1519 [verbose] > v3
00:00:39 #1520 [verbose] > #endif
00:00:39 #1521 [verbose] > #if FABLE_COMPILER_RUST && CONTRACT
00:00:39 #1522 [verbose] > let v4 : System.IDisposable = null |> unbox<System.IDisposable>
00:00:39 #1523 [verbose] > v4
00:00:39 #1524 [verbose] > #endif
00:00:39 #1525 [verbose] > #if !FABLE_COMPILER && !FABLE_COMPILER_RUST && !FABLE_COMPILER_TYPESCRIPT &&
00:00:39 #1526 [verbose] > !WASM && !CONTRACT
00:00:39 #1527 [verbose] > let v5 : System.ID...
00:00:40 #1528 [verbose] >
00:00:40 #1529 [verbose] > ── fsharp - import ─────────────────────────────────────────────────────────────
00:00:40 #1530 [verbose] > type Mut0 = {mutable l0 : int32; mutable l1 : string}
00:00:40 #1531 [verbose] > and Mut1 = {mutable l0 : int32}
00:00:40 #1532 [verbose] > let rec closure1 (v0 : string) (v1 : string) : bool =
00:00:40 #1533 [verbose] > let v2 : bool = v1.Contains v0
00:00:40 #1534 [verbose] > v2
00:00:40 #1535 [verbose] > and closure0 () (v0 : string) : (string -> bool) =
00:00:40 #1536 [verbose] > closure1(v0)
00:00:40 #1537 [verbose] > and closure3 (v0 : string) (v1 : string) : bool =
00:00:40 #1538 [verbose] > let v2 : bool = v1.EndsWith v0
00:00:40 #1539 [verbose] > v2
00:00:40 #1540 [verbose] > and closure2 () (v0 : string) : (string -> bool) =
00:00:40 #1541 [verbose] > closure3(v0)
00:00:40 #1542 [verbose] > and closure6 (v0 : int32, v1 : char) (v2 : string) : string =
00:00:40 #1543 [verbose] > let v3 : string = v2.PadLeft (v0, v1)
00:00:40 #1544 [verbose] > v3
00:00:40 #1545 [verbose] > and closure5 (v0 : int32) (v1 : char) : (string -> string) =
00:00:40 #1546 [verbose] > closure6(v0, v1)
00:00:40 #1547 [verbose] > and closure4 () (v0 : int32) : (char -> (string -> string)) =
00:00:40 #1548 [verbose] > closure5(v0)
00:00:40 #1549 [verbose] > and closure8 (v0 : int32) (v1 : string) : string =
00:00:40 #1550 [verbose] > let v2 : stri...
00:00:41 #1551 [verbose] >
00:00:41 #1552 [verbose] > ── fsharp - import ─────────────────────────────────────────────────────────────
00:00:41 #1553 [verbose] > type ICryptoCreateHash = abstract createHash: x: string -> obj
00:00:41 #1554 [verbose] > type Mut0 = {mutable l0 : int32}
00:00:41 #1555 [verbose] > let rec method0 (v0 : int32, v1 : Mut0) : bool =
00:00:41 #1556 [verbose] > let v2 : int32 = v1.l0
00:00:41 #1557 [verbose] > let v3 : bool = v2 < v0
00:00:41 #1558 [verbose] > v3
00:00:41 #1559 [verbose] > and method1 () : string =
00:00:41 #1560 [verbose] > let v0 : string = ""
00:00:41 #1561 [verbose] > v0
00:00:41 #1562 [verbose] > and closure0 () (v0 : string) : string =
00:00:41 #1563 [verbose] > let v1 : string option = None
00:00:41 #1564 [verbose] > let mutable _v1 = v1
00:00:41 #1565 [verbose] > #if FABLE_COMPILER_RUST && !WASM && !CONTRACT
00:00:41 #1566 [verbose] > let v2 : string = null |> unbox<string>
00:00:41 #1567 [verbose] > v2
00:00:41 #1568 [verbose] > #endif
00:00:41 #1569 [verbose] > #if FABLE_COMPILER_RUST && WASM
00:00:41 #1570 [verbose] > let v3 : string = null |> unbox<string>
00:00:41 #1571 [verbose] > v3
00:00:41 #1572 [verbose] > #endif
00:00:41 #1573 [verbose] > #if FABLE_COMPILER_RUST && CONTRACT
00:00:41 #1574 [verbose] > let v4 : string = null |> unbox<string>
00:00:41 #1575 [verbose] > v4
00:00:41 #1576 [verbose] > #endif
00:00:41 #1577 [verbose] > #if !FABLE_COMPILER && !FABLE_COMPILER_RUST && !FABLE_COMPILER_TYP...
00:00:41 #1578 [verbose] >
00:00:41 #1579 [verbose] > ── fsharp - import ─────────────────────────────────────────────────────────────
00:00:41 #1580 [verbose] > let rec closure1 (v0 : System.Guid) (v1 : System.DateTime) : System.Guid =
00:00:41 #1581 [verbose] > let v2 : (System.Guid -> string) = _.ToString()
00:00:41 #1582 [verbose] > let v3 : string = v2 v0
00:00:41 #1583 [verbose] > let v4 : string = v1.ToString "yyyyMMdd-HHmm-ssff-ffff-f"
00:00:41 #1584 [verbose] > let v5 : System.Guid = System.Guid $"{v4}{v3.[[v4.Length..]]}"
00:00:41 #1585 [verbose] > v5
00:00:41 #1586 [verbose] > and closure0 () (v0 : System.Guid) : (System.DateTime -> System.Guid) =
00:00:41 #1587 [verbose] > closure1(v0)
00:00:41 #1588 [verbose] > and closure5 (v0 : string, v1 : string) (v2 : string) : string =
00:00:41 #1589 [verbose] > let v3 : string = v2.Replace (v0, v1)
00:00:41 #1590 [verbose] > v3
00:00:41 #1591 [verbose] > and closure4 (v0 : string) (v1 : string) : (string -> string) =
00:00:41 #1592 [verbose] > closure5(v0, v1)
00:00:41 #1593 [verbose] > and closure3 () (v0 : string) : (string -> (string -> string)) =
00:00:41 #1594 [verbose] > closure4(v0)
00:00:41 #1595 [verbose] > and method0 () : (string -> (string -> (string -> string))) =
00:00:41 #1596 [verbose] > closure3()
00:00:41 #1597 [verbose] > and closure2 (...
00:00:41 #1598 [verbose] >
00:00:41 #1599 [verbose] > ── fsharp - import ─────────────────────────────────────────────────────────────
00:00:41 #1600 [verbose] > let rec closure0 () (v0 : System.Threading.CancellationToken) :
00:00:41 #1601 [verbose] > Async<System.Threading.CancellationToken> =
00:00:41 #1602 [verbose] > let v1 : Async<System.Threading.CancellationToken> option = None
00:00:41 #1603 [verbose] > let mutable _v1 = v1
00:00:41 #1604 [verbose] > #if FABLE_COMPILER_RUST && !WASM && !CONTRACT
00:00:41 #1605 [verbose] > let v2 : Async<System.Threading.CancellationToken> = null |>
00:00:41 #1606 [verbose] > unbox<Async<System.Threading.CancellationToken>>
00:00:41 #1607 [verbose] > v2
00:00:41 #1608 [verbose] > #endif
00:00:41 #1609 [verbose] > #if FABLE_COMPILER_RUST && WASM
00:00:41 #1610 [verbose] > let v3 : Async<System.Threading.CancellationToken> = null |>
00:00:41 #1611 [verbose] > unbox<Async<System.Threading.CancellationToken>>
00:00:41 #1612 [verbose] > v3
00:00:41 #1613 [verbose] > #endif
00:00:41 #1614 [verbose] > #if FABLE_COMPILER_RUST && CONTRACT
00:00:41 #1615 [verbose] > let v4 : Async<System.Threading.CancellationToken> = null |>
00:00:41 #1616 [verbose] > unbox<Async<System.Threading.CancellationToken>>
00:00:41 #1617 [verbose] > v4
00:00:41 #1618 [verbose] > #endif
00:00:41 #1619 [verbose] > #if !FABLE_COMPILER...
00:00:41 #1620 [verbose] >
00:00:41 #1621 [verbose] > ── fsharp - import ─────────────────────────────────────────────────────────────
00:00:41 #1622 [verbose] > #if FABLE_COMPILER
00:00:41 #1623 [verbose] > [[<CompilationRepresentation (CompilationRepresentationFlags.ModuleSuffix)>]]
00:00:41 #1624 [verbose] > module System =
00:00:41 #1625 [verbose] > module Diagnostics =
00:00:41 #1626 [verbose] > type Process = unit
00:00:41 #1627 [verbose] > type DataReceivedEventArgs = unit
00:00:41 #1628 [verbose] > #endif
00:00:41 #1629 [verbose] > module State = let mutable trace_state = None
00:00:41 #1630 [verbose] > type [[<Struct>]] US0 =
00:00:41 #1631 [verbose] > | US0_0
00:00:41 #1632 [verbose] > | US0_1
00:00:41 #1633 [verbose] > | US0_2
00:00:41 #1634 [verbose] > | US0_3
00:00:41 #1635 [verbose] > | US0_4
00:00:41 #1636 [verbose] > and UH0 =
00:00:41 #1637 [verbose] > | UH0_0
00:00:41 #1638 [verbose] > | UH0_1 of char * UH0
00:00:41 #1639 [verbose] > and [[<Struct>]] US2 =
00:00:41 #1640 [verbose] > | US2_0
00:00:41 #1641 [verbose] > | US2_1
00:00:41 #1642 [verbose] > and [[<Struct>]] US1 =
00:00:41 #1643 [verbose] > | US1_0
00:00:41 #1644 [verbose] > | US1_1 of f1_0 : US2
00:00:41 #1645 [verbose] > | US1_2
00:00:41 #1646 [verbose] > and [[<Struct>]] US3 =
00:00:41 #1647 [verbose] > | US3_0 of f0_0 : string
00:00:41 #1648 [verbose] > | US3_1
00:00:41 #1649 [verbose] > and Mut0 = {mutable l0 : int64}
00:00:41 #1650 [verbose] > and Mut1 = {mutable l0 : bool}
00:00:41 #1651 [verbose] > and Mut2 = {mutable l0 : US0}
00:00:41 #1652 [verbose] > and [[<Struct>]] US4 =
00:00:41 #1653 [verbose] > | US4_0 of f0_0 : int64
00:00:41 #1654 [verbose] > | US4_1
00:00:41 #1655 [verbose] > and [[<Struct>]] US5 =
00:00:41 #1656 [verbose] > | US5_0 of f0_0 : i...
00:00:43 #1657 [verbose] >
00:00:43 #1658 [verbose] > ── fsharp - import ─────────────────────────────────────────────────────────────
00:00:43 #1659 [verbose] > #if FABLE_COMPILER // file_system.types
00:00:43 #1660 [verbose] > [[<Fable.Core.Erase; Fable.Core.Emit("str")>]] type Str = class end
00:00:43 #1661 [verbose] > [[<Fable.Core.Erase; Fable.Core.Emit("base64::DecodeError")>]] type
00:00:43 #1662 [verbose] > base64_DecodeError = class end
00:00:43 #1663 [verbose] > [[<Fable.Core.Erase; Fable.Core.Emit("borsh::io::Error")>]] type borsh_io_Error
00:00:43 #1664 [verbose] > = class end
00:00:43 #1665 [verbose] > [[<Fable.Core.Erase; Fable.Core.Emit("js_sys::JsString")>]] type js_sys_JsString
00:00:43 #1666 [verbose] > = class end
00:00:43 #1667 [verbose] > [[<Fable.Core.Erase; Fable.Core.Emit("serde_json::Error")>]] type
00:00:43 #1668 [verbose] > serde_json_Error = class end
00:00:43 #1669 [verbose] > [[<Fable.Core.Erase; Fable.Core.Emit("serde_json::Value")>]] type
00:00:43 #1670 [verbose] > serde_json_Value = class end
00:00:43 #1671 [verbose] > [[<Fable.Core.Erase; Fable.Core.Emit("serde_wasm_bindgen::Error")>]] type
00:00:43 #1672 [verbose] > serde_wasm_bindgen_Error = class end
00:00:43 #1673 [verbose] > [[<Fable.Core.Erase; Fable.Core.Emit("std::ffi::OsStr")>]] type std_ffi_O...
00:00:44 #1674 [verbose] >
00:00:44 #1675 [verbose] > ── fsharp - import ─────────────────────────────────────────────────────────────
00:00:44 #1676 [verbose] > module State = let mutable trace_state = None
00:00:44 #1677 [verbose] > type [[<Struct>]] US0 =
00:00:44 #1678 [verbose] > | US0_0
00:00:44 #1679 [verbose] > | US0_1
00:00:44 #1680 [verbose] > | US0_2
00:00:44 #1681 [verbose] > | US0_3
00:00:44 #1682 [verbose] > | US0_4
00:00:44 #1683 [verbose] > and Mut0 = {mutable l0 : int64}
00:00:44 #1684 [verbose] > and Mut1 = {mutable l0 : bool}
00:00:44 #1685 [verbose] > and Mut2 = {mutable l0 : US0}
00:00:44 #1686 [verbose] > and [[<Struct>]] US1 =
00:00:44 #1687 [verbose] > | US1_0 of f0_0 : int64
00:00:44 #1688 [verbose] > | US1_1
00:00:44 #1689 [verbose] > and [[<Struct>]] US2 =
00:00:44 #1690 [verbose] > | US2_0 of f0_0 : int64
00:00:44 #1691 [verbose] > | US2_1
00:00:44 #1692 [verbose] > let rec method1 (v0 : int64 option) : int64 option =
00:00:44 #1693 [verbose] > v0
00:00:44 #1694 [verbose] > and method2 (v0 : int64 option) : int64 option =
00:00:44 #1695 [verbose] > v0
00:00:44 #1696 [verbose] > and closure3 () () : struct (Mut0 * Mut1 * Mut1 * Mut2 * int64 option) =
00:00:44 #1697 [verbose] > let v0 : Mut1 = {l0 = true} : Mut1
00:00:44 #1698 [verbose] > let v1 : Mut0 = {l0 = 0L} : Mut0
00:00:44 #1699 [verbose] > let v2 : US0 = US0_0
00:00:44 #1700 [verbose] > let v3 : Mut2 = {l0 = v2} : Mut2
00:00:44 #1701 [verbose] > let v4 : Mut1 = {l0 = false} : Mut1
00:00:44 #1702 [verbose] > let v5 : int64 option option = None
00:00:44 #1703 [verbose] > ...
00:00:44 #1704 [verbose] >
00:00:44 #1705 [verbose] > ── fsharp - import ─────────────────────────────────────────────────────────────
00:00:44 #1706 [verbose] > module SpiralTrace =
00:00:44 #1707 [verbose] > let get_trace_state () =
00:00:44 #1708 [verbose] > #if !INTERACTIVE
00:00:44 #1709 [verbose] > Trace.get_trace_state ()
00:00:44 #1710 [verbose] > #else
00:00:44 #1711 [verbose] > get_trace_state ()
00:00:44 #1712 [verbose] > #endif
00:00:44 #1713 [verbose] >
00:00:44 #1714 [verbose] > let trace x =
00:00:44 #1715 [verbose] > #if !INTERACTIVE
00:00:44 #1716 [verbose] > Trace.trace x
00:00:44 #1717 [verbose] > #else
00:00:44 #1718 [verbose] > trace x
00:00:44 #1719 [verbose] > #endif
00:00:44 #1720 [verbose] >
00:00:44 #1721 [verbose] > type TraceLevel =
00:00:44 #1722 [verbose] > #if !INTERACTIVE
00:00:44 #1723 [verbose] > Trace.US0
00:00:44 #1724 [verbose] > #else
00:00:44 #1725 [verbose] > US0
00:00:44 #1726 [verbose] > #endif
00:00:44 #1727 [verbose] >
00:00:44 #1728 [verbose] > #if !FABLE_COMPILER && !WASM && !CONTRACT
00:00:44 #1729 [verbose] >
00:00:44 #1730 [verbose] > module SpiralAsync =
00:00:44 #1731 [verbose] > let merge_cancellation_token_with_default_async x =
00:00:44 #1732 [verbose] > #if !INTERACTIVE
00:00:44 #1733 [verbose] > Async_.merge_cancellation_token_with_default_async x
00:00:44 #1734 [verbose] > #else
00:00:44 #1735 [verbose] > merge_cancellation_token_with_default_async x
00:00:44 #1736 [verbose] > #endif
00:00:44 #1737 [verbose] >
00:00:44 #1738 [verbose] > module SpiralRuntime =
00:00:44 #1739 [verbose] > let get_executable_suffix () =
00:00:44 #1740 [verbose] > #if !INTERACTIVE
00:00:44 #1741 [verbose] > Runtime.get_executable_suffix ()
00:00:44 #1742 [verbose] > #else
00:00:44 #1743 [verbose] > get_executable_suffix ()
00:00:44 #1744 [verbose] > #endif
00:00:44 #1745 [verbose] >
00:00:44 #1746 [verbose] > let is...
00:00:44 #1747 [verbose] >
00:00:44 #1748 [verbose] > ── fsharp - import ─────────────────────────────────────────────────────────────
00:00:44 #1749 [verbose] > #r @"../../../../../../../.nuget/packages/expecto/10.2.1/lib/net6.0/Expecto.dll"
00:00:45 #1750 [verbose] >
00:00:45 #1751 [verbose] > ── fsharp - import ─────────────────────────────────────────────────────────────
00:00:45 #1752 [verbose] > //// test
00:00:45 #1753 [verbose] >
00:00:45 #1754 [verbose] > type AssertExceptionFormatter (ex) =
00:00:45 #1755 [verbose] > member _.Text =
00:00:45 #1756 [verbose] > ex.ToString()
00:00:45 #1757 [verbose] > .Replace("32m", "<span style=\"color: green;\">")
00:00:45 #1758 [verbose] > .Replace("36m", "</span>")
00:00:45 #1759 [verbose] > .Replace("31m", "<span style=\"color: red;\">")
00:00:45 #1760 [verbose] > .Replace("\n", "<br/>\n")
00:00:45 #1761 [verbose] >
00:00:45 #1762 [verbose] >
00:00:45 #1763 [verbose] > Formatter.Register<AssertExceptionFormatter> ((fun (x :
00:00:45 #1764 [verbose] > AssertExceptionFormatter) -> x.Text), "text/html")
00:00:45 #1765 [verbose] >
00:00:45 #1766 [verbose] > ── fsharp - import ─────────────────────────────────────────────────────────────
00:00:45 #1767 [verbose] > //// test
00:00:45 #1768 [verbose] >
00:00:45 #1769 [verbose] > let inline __expect fn log expected actual =
00:00:45 #1770 [verbose] > if log then printfn $"{actual.ToDisplayString ()}"
00:00:45 #1771 [verbose] > try
00:00:45 #1772 [verbose] > "Testing.__expect" |> fn actual expected
00:00:45 #1773 [verbose] > with :? Expecto.AssertException as ex ->
00:00:45 #1774 [verbose] > AssertExceptionFormatter(ex).Display () |> ignore
00:00:45 #1775 [verbose] > failwith (ex.GetType().FullName)
00:00:45 #1776 [verbose] >
00:00:45 #1777 [verbose] > let inline __contains log expected actual = __expect Expecto.Expect.contains log
00:00:45 #1778 [verbose] > expected actual
00:00:45 #1779 [verbose] > let inline _contains expected actual = __contains true expected actual
00:00:45 #1780 [verbose] >
00:00:45 #1781 [verbose] > let inline __assertEqual log expected actual = __expect Expecto.Expect.equal log
00:00:45 #1782 [verbose] > expected actual
00:00:45 #1783 [verbose] > let inline _assertEqual expected actual = __assertEqual true expected actual
00:00:45 #1784 [verbose] >
00:00:45 #1785 [verbose] > let inline __isGreaterThan log expected actual = __expect
00:00:45 #1786 [verbose] > Expecto.Expect.isGreaterThan log ex...
00:00:45 #1787 [verbose] >
00:00:45 #1788 [verbose] > ── fsharp - import ─────────────────────────────────────────────────────────────
00:00:45 #1789 [verbose] > //// test
00:00:45 #1790 [verbose] >
00:00:45 #1791 [verbose] > let inline __isBetween log a b actual =
00:00:45 #1792 [verbose] > let inline isBetween actual (a, b) _ =
00:00:45 #1793 [verbose] > __isGreaterThanOrEqual log a actual
00:00:45 #1794 [verbose] > __isLessThanOrEqual log b actual
00:00:45 #1795 [verbose] > __expect isBetween log (a, b) actual
00:00:45 #1796 [verbose] > let inline _isBetween a b actual = __isBetween true a b actual
00:00:45 #1797 [verbose] >
00:00:45 #1798 [verbose] > ── fsharp ──────────────────────────────────────────────────────────────────────
00:00:45 #1799 [verbose] > #if !INTERACTIVE
00:00:45 #1800 [verbose] > open Lib
00:00:45 #1801 [verbose] > #endif
00:00:45 #1802 [verbose] >
00:00:45 #1803 [verbose] > ── fsharp ──────────────────────────────────────────────────────────────────────
00:00:45 #1804 [verbose] > let nl = System.Environment.NewLine
00:00:45 #1805 [verbose] > let q = @""""
00:00:45 #1806 [verbose] >
00:00:45 #1807 [verbose] > ── fsharp ──────────────────────────────────────────────────────────────────────
00:00:45 #1808 [verbose] > let inline cons head tail = head :: tail
00:00:45 #1809 [verbose] >
00:00:45 #1810 [verbose] > ── markdown ────────────────────────────────────────────────────────────────────
00:00:45 #1811 [verbose] > ╭──────────────────────────────────────────────────────────────────────────────╮
00:00:45 #1812 [verbose] > │ ## memoize │
00:00:45 #1813 [verbose] > ╰──────────────────────────────────────────────────────────────────────────────╯
00:00:45 #1814 [verbose] >
00:00:45 #1815 [verbose] > ── fsharp ──────────────────────────────────────────────────────────────────────
00:00:45 #1816 [verbose] > let inline memoize fn =
00:00:45 #1817 [verbose] > let result = lazy fn ()
00:00:45 #1818 [verbose] > fun () -> result.Value
00:00:45 #1819 [verbose] >
00:00:45 #1820 [verbose] > ── markdown ────────────────────────────────────────────────────────────────────
00:00:45 #1821 [verbose] > ╭──────────────────────────────────────────────────────────────────────────────╮
00:00:45 #1822 [verbose] > │ ## TraceLevel │
00:00:45 #1823 [verbose] > ╰──────────────────────────────────────────────────────────────────────────────╯
00:00:45 #1824 [verbose] >
00:00:45 #1825 [verbose] > ── fsharp ──────────────────────────────────────────────────────────────────────
00:00:45 #1826 [verbose] > type TraceLevel =
00:00:45 #1827 [verbose] > | Verbose
00:00:45 #1828 [verbose] > | Debug
00:00:45 #1829 [verbose] > | Info
00:00:45 #1830 [verbose] > | Warning
00:00:45 #1831 [verbose] > | Critical
00:00:45 #1832 [verbose] >
00:00:45 #1833 [verbose] > let inline getLocals () = ""
00:00:45 #1834 [verbose] >
00:00:45 #1835 [verbose] > ── markdown ────────────────────────────────────────────────────────────────────
00:00:45 #1836 [verbose] > ╭──────────────────────────────────────────────────────────────────────────────╮
00:00:45 #1837 [verbose] > │ ## trace │
00:00:45 #1838 [verbose] > ╰──────────────────────────────────────────────────────────────────────────────╯
00:00:45 #1839 [verbose] >
00:00:45 #1840 [verbose] > ── fsharp ──────────────────────────────────────────────────────────────────────
00:00:45 #1841 [verbose] > let to_trace_level = function
00:00:45 #1842 [verbose] > | Verbose -> SpiralTrace.TraceLevel.US0_0
00:00:45 #1843 [verbose] > | Debug -> SpiralTrace.TraceLevel.US0_1
00:00:45 #1844 [verbose] > | Info -> SpiralTrace.TraceLevel.US0_2
00:00:45 #1845 [verbose] > | Warning -> SpiralTrace.TraceLevel.US0_3
00:00:45 #1846 [verbose] > | Critical -> SpiralTrace.TraceLevel.US0_4
00:00:45 #1847 [verbose] >
00:00:45 #1848 [verbose] > let trace level fn getLocals =
00:00:45 #1849 [verbose] > let level = level |> to_trace_level
00:00:45 #1850 [verbose] > SpiralTrace.trace level fn getLocals
00:00:45 #1851 [verbose] >
00:00:45 #1852 [verbose] > ── fsharp ──────────────────────────────────────────────────────────────────────
00:00:45 #1853 [verbose] > //// test
00:00:45 #1854 [verbose] >
00:00:45 #1855 [verbose] > trace Debug (fun () -> "test") getLocals
00:00:45 #1856 [verbose] >
00:00:45 #1857 [verbose] > ╭─[ 18.02ms - stdout ]─────────────────────────────────────────────────────────╮
00:00:45 #1858 [verbose] > │ 00:00:00 #1 [debug] test │
00:00:45 #1859 [verbose] > │ │
00:00:45 #1860 [verbose] > ╰──────────────────────────────────────────────────────────────────────────────╯
00:00:47 #1861 [verbose] > [NbConvertApp] Converting notebook Common.dib.ipynb to html
00:00:47 #1862 [verbose] > C:\Users\i574n\scoop\apps\python\current\Lib\site-packages\nbformat\__init__.py:93: MissingIDFieldWarning: Code cell is missing an id field, this will become a hard error in future nbformat versions. You may want to use `normalize()` on your notebooks before validations (available since nbformat 5.1.4). Previous versions of nbformat are fixing this issue transparently, and will stop doing so in the future.
00:00:47 #1863 [verbose] > validate(nb)
00:00:47 #1864 [verbose] > C:\Users\i574n\scoop\apps\python\current\Lib\site-packages\nbconvert\filters\highlight.py:71: UserWarning: IPython3 lexer unavailable, falling back on Python 3
00:00:47 #1865 [verbose] > return _pygments_highlight(
00:00:47 #1866 [verbose] > [NbConvertApp] Writing 280700 bytes to Common.dib.html
00:00:48 #1867 [debug] execute_with_options_async / exit_code: 0 / output.Length: 14440
00:00:48 #8 [debug] main / executeCommand / exitCode: 0
00:00:48 #1868 [debug] execute_with_options_async / options: struct (Some System.Threading.CancellationToken,
"pwsh -c "../../scripts/invoke-dib.ps1 CommonFSharp.dib" -Retries 3",
None, None, None)
00:00:50 #1869 [verbose] >
00:00:50 #1870 [verbose] > ── markdown ────────────────────────────────────────────────────────────────────
00:00:50 #1871 [verbose] > ╭──────────────────────────────────────────────────────────────────────────────╮
00:00:50 #1872 [verbose] > │ # CommonFSharp (Polyglot) │
00:00:50 #1873 [verbose] > ╰──────────────────────────────────────────────────────────────────────────────╯
00:00:50 #1874 [verbose] >
00:00:50 #1875 [verbose] > ── fsharp ──────────────────────────────────────────────────────────────────────
00:00:50 #1876 [verbose] > #!import ../../lib/fsharp/Notebooks.dib
00:00:50 #1877 [verbose] > #!import ../../lib/fsharp/Testing.dib
00:00:50 #1878 [verbose] >
00:00:50 #1879 [verbose] > ── fsharp - import ─────────────────────────────────────────────────────────────
00:00:50 #1880 [verbose] > #r
00:00:50 #1881 [verbose] > "C:/Users/i574n/.nuget/packages/dotnet-repl/0.1.204/tools/net7.0/any/Microsoft.A
00:00:50 #1882 [verbose] > spNetCore.Html.Abstractions.dll"
00:00:50 #1883 [verbose] > #r
00:00:50 #1884 [verbose] > "C:/Users/i574n/.nuget/packages/dotnet-repl/0.1.204/tools/net7.0/any/Microsoft.D
00:00:50 #1885 [verbose] > otNet.Interactive.dll"
00:00:50 #1886 [verbose] > #r
00:00:50 #1887 [verbose] > "C:/Users/i574n/.nuget/packages/dotnet-repl/0.1.204/tools/net7.0/any/Microsoft.D
00:00:50 #1888 [verbose] > otNet.Interactive.FSharp.dll"
00:00:50 #1889 [verbose] > #r
00:00:50 #1890 [verbose] > "C:/Users/i574n/.nuget/packages/dotnet-repl/0.1.204/tools/net7.0/any/Microsoft.D
00:00:50 #1891 [verbose] > otNet.Interactive.Formatting.dll"
00:00:50 #1892 [verbose] > open System
00:00:50 #1893 [verbose] > open System.IO
00:00:50 #1894 [verbose] > open System.Text
00:00:50 #1895 [verbose] > open Microsoft.DotNet.Interactive.Formatting
00:00:53 #1896 [verbose] >
00:00:53 #1897 [verbose] > ── fsharp - import ─────────────────────────────────────────────────────────────
00:00:53 #1898 [verbose] > #r
00:00:53 #1899 [verbose] > "C:/Users/i574n/.nuget/packages/dotnet-repl/0.1.204/tools/net7.0/any/Microsoft.D
00:00:53 #1900 [verbose] > otNet.Interactive.FSharp.dll"
00:00:53 #1901 [verbose] > open Microsoft.DotNet.Interactive.FSharp.FSharpKernelHelpers
00:00:53 #1902 [verbose] > #r
00:00:53 #1903 [verbose] > "C:/Users/i574n/.nuget/packages/dotnet-repl/0.1.204/tools/net7.0/any/Microsoft.D
00:00:53 #1904 [verbose] > otNet.Interactive.dll"
00:00:53 #1905 [verbose] > open type Microsoft.DotNet.Interactive.Kernel
00:00:53 #1906 [verbose] >
00:00:53 #1907 [verbose] > ── fsharp - import ─────────────────────────────────────────────────────────────
00:00:53 #1908 [verbose] > //// test
00:00:53 #1909 [verbose] >
00:00:53 #1910 [verbose] > Formatter.ListExpansionLimit <- 100
00:00:54 #1911 [verbose] >
00:00:54 #1912 [verbose] > ── fsharp - import ─────────────────────────────────────────────────────────────
00:00:54 #1913 [verbose] > type [[<Struct>]] US0 =
00:00:54 #1914 [verbose] > | US0_0
00:00:54 #1915 [verbose] > | US0_1
00:00:54 #1916 [verbose] > and [[<Struct>]] US1 =
00:00:54 #1917 [verbose] > | US1_0 of f0_0 : US0
00:00:54 #1918 [verbose] > | US1_1
00:00:54 #1919 [verbose] > let rec closure0 () (v0 : (unit -> unit)) : System.IDisposable =
00:00:54 #1920 [verbose] > let v1 : System.IDisposable option = None
00:00:54 #1921 [verbose] > let mutable _v1 = v1
00:00:54 #1922 [verbose] > #if FABLE_COMPILER_RUST && !WASM && !CONTRACT
00:00:54 #1923 [verbose] > let v2 : System.IDisposable = null |> unbox<System.IDisposable>
00:00:54 #1924 [verbose] > v2
00:00:54 #1925 [verbose] > #endif
00:00:54 #1926 [verbose] > #if FABLE_COMPILER_RUST && WASM
00:00:54 #1927 [verbose] > let v3 : System.IDisposable = null |> unbox<System.IDisposable>
00:00:54 #1928 [verbose] > v3
00:00:54 #1929 [verbose] > #endif
00:00:54 #1930 [verbose] > #if FABLE_COMPILER_RUST && CONTRACT
00:00:54 #1931 [verbose] > let v4 : System.IDisposable = null |> unbox<System.IDisposable>
00:00:54 #1932 [verbose] > v4
00:00:54 #1933 [verbose] > #endif
00:00:54 #1934 [verbose] > #if !FABLE_COMPILER && !FABLE_COMPILER_RUST && !FABLE_COMPILER_TYPESCRIPT &&
00:00:54 #1935 [verbose] > !WASM && !CONTRACT
00:00:54 #1936 [verbose] > let v5 : System.ID...
00:00:54 #1937 [verbose] >
00:00:54 #1938 [verbose] > ── fsharp - import ─────────────────────────────────────────────────────────────
00:00:54 #1939 [verbose] > type Mut0 = {mutable l0 : int32; mutable l1 : string}
00:00:54 #1940 [verbose] > and Mut1 = {mutable l0 : int32}
00:00:54 #1941 [verbose] > let rec closure1 (v0 : string) (v1 : string) : bool =
00:00:54 #1942 [verbose] > let v2 : bool = v1.Contains v0
00:00:54 #1943 [verbose] > v2
00:00:54 #1944 [verbose] > and closure0 () (v0 : string) : (string -> bool) =
00:00:54 #1945 [verbose] > closure1(v0)
00:00:54 #1946 [verbose] > and closure3 (v0 : string) (v1 : string) : bool =
00:00:54 #1947 [verbose] > let v2 : bool = v1.EndsWith v0
00:00:54 #1948 [verbose] > v2
00:00:54 #1949 [verbose] > and closure2 () (v0 : string) : (string -> bool) =
00:00:54 #1950 [verbose] > closure3(v0)
00:00:54 #1951 [verbose] > and closure6 (v0 : int32, v1 : char) (v2 : string) : string =
00:00:54 #1952 [verbose] > let v3 : string = v2.PadLeft (v0, v1)
00:00:54 #1953 [verbose] > v3
00:00:54 #1954 [verbose] > and closure5 (v0 : int32) (v1 : char) : (string -> string) =
00:00:54 #1955 [verbose] > closure6(v0, v1)
00:00:54 #1956 [verbose] > and closure4 () (v0 : int32) : (char -> (string -> string)) =
00:00:54 #1957 [verbose] > closure5(v0)
00:00:54 #1958 [verbose] > and closure8 (v0 : int32) (v1 : string) : string =
00:00:54 #1959 [verbose] > let v2 : stri...
00:00:55 #1960 [verbose] >
00:00:55 #1961 [verbose] > ── fsharp - import ─────────────────────────────────────────────────────────────
00:00:55 #1962 [verbose] > type ICryptoCreateHash = abstract createHash: x: string -> obj
00:00:55 #1963 [verbose] > type Mut0 = {mutable l0 : int32}
00:00:55 #1964 [verbose] > let rec method0 (v0 : int32, v1 : Mut0) : bool =
00:00:55 #1965 [verbose] > let v2 : int32 = v1.l0
00:00:55 #1966 [verbose] > let v3 : bool = v2 < v0
00:00:55 #1967 [verbose] > v3
00:00:55 #1968 [verbose] > and method1 () : string =
00:00:55 #1969 [verbose] > let v0 : string = ""
00:00:55 #1970 [verbose] > v0
00:00:55 #1971 [verbose] > and closure0 () (v0 : string) : string =
00:00:55 #1972 [verbose] > let v1 : string option = None
00:00:55 #1973 [verbose] > let mutable _v1 = v1
00:00:55 #1974 [verbose] > #if FABLE_COMPILER_RUST && !WASM && !CONTRACT
00:00:55 #1975 [verbose] > let v2 : string = null |> unbox<string>
00:00:55 #1976 [verbose] > v2
00:00:55 #1977 [verbose] > #endif
00:00:55 #1978 [verbose] > #if FABLE_COMPILER_RUST && WASM
00:00:55 #1979 [verbose] > let v3 : string = null |> unbox<string>
00:00:55 #1980 [verbose] > v3
00:00:55 #1981 [verbose] > #endif
00:00:55 #1982 [verbose] > #if FABLE_COMPILER_RUST && CONTRACT
00:00:55 #1983 [verbose] > let v4 : string = null |> unbox<string>
00:00:55 #1984 [verbose] > v4
00:00:55 #1985 [verbose] > #endif
00:00:55 #1986 [verbose] > #if !FABLE_COMPILER && !FABLE_COMPILER_RUST && !FABLE_COMPILER_TYP...
00:00:55 #1987 [verbose] >
00:00:55 #1988 [verbose] > ── fsharp - import ─────────────────────────────────────────────────────────────
00:00:55 #1989 [verbose] > let rec closure1 (v0 : System.Guid) (v1 : System.DateTime) : System.Guid =
00:00:55 #1990 [verbose] > let v2 : (System.Guid -> string) = _.ToString()
00:00:55 #1991 [verbose] > let v3 : string = v2 v0
00:00:55 #1992 [verbose] > let v4 : string = v1.ToString "yyyyMMdd-HHmm-ssff-ffff-f"
00:00:55 #1993 [verbose] > let v5 : System.Guid = System.Guid $"{v4}{v3.[[v4.Length..]]}"
00:00:55 #1994 [verbose] > v5
00:00:55 #1995 [verbose] > and closure0 () (v0 : System.Guid) : (System.DateTime -> System.Guid) =
00:00:55 #1996 [verbose] > closure1(v0)
00:00:55 #1997 [verbose] > and closure5 (v0 : string, v1 : string) (v2 : string) : string =
00:00:55 #1998 [verbose] > let v3 : string = v2.Replace (v0, v1)
00:00:55 #1999 [verbose] > v3
00:00:55 #2000 [verbose] > and closure4 (v0 : string) (v1 : string) : (string -> string) =
00:00:55 #2001 [verbose] > closure5(v0, v1)
00:00:55 #2002 [verbose] > and closure3 () (v0 : string) : (string -> (string -> string)) =
00:00:55 #2003 [verbose] > closure4(v0)
00:00:55 #2004 [verbose] > and method0 () : (string -> (string -> (string -> string))) =
00:00:55 #2005 [verbose] > closure3()
00:00:55 #2006 [verbose] > and closure2 (...
00:00:55 #2007 [verbose] >
00:00:55 #2008 [verbose] > ── fsharp - import ─────────────────────────────────────────────────────────────
00:00:55 #2009 [verbose] > let rec closure0 () (v0 : System.Threading.CancellationToken) :
00:00:55 #2010 [verbose] > Async<System.Threading.CancellationToken> =
00:00:55 #2011 [verbose] > let v1 : Async<System.Threading.CancellationToken> option = None
00:00:55 #2012 [verbose] > let mutable _v1 = v1
00:00:55 #2013 [verbose] > #if FABLE_COMPILER_RUST && !WASM && !CONTRACT
00:00:55 #2014 [verbose] > let v2 : Async<System.Threading.CancellationToken> = null |>
00:00:55 #2015 [verbose] > unbox<Async<System.Threading.CancellationToken>>
00:00:55 #2016 [verbose] > v2
00:00:55 #2017 [verbose] > #endif
00:00:55 #2018 [verbose] > #if FABLE_COMPILER_RUST && WASM
00:00:55 #2019 [verbose] > let v3 : Async<System.Threading.CancellationToken> = null |>
00:00:55 #2020 [verbose] > unbox<Async<System.Threading.CancellationToken>>
00:00:55 #2021 [verbose] > v3
00:00:55 #2022 [verbose] > #endif
00:00:55 #2023 [verbose] > #if FABLE_COMPILER_RUST && CONTRACT
00:00:55 #2024 [verbose] > let v4 : Async<System.Threading.CancellationToken> = null |>
00:00:55 #2025 [verbose] > unbox<Async<System.Threading.CancellationToken>>
00:00:55 #2026 [verbose] > v4
00:00:55 #2027 [verbose] > #endif
00:00:55 #2028 [verbose] > #if !FABLE_COMPILER...
00:00:55 #2029 [verbose] >
00:00:55 #2030 [verbose] > ── fsharp - import ─────────────────────────────────────────────────────────────
00:00:55 #2031 [verbose] > #if FABLE_COMPILER
00:00:55 #2032 [verbose] > [[<CompilationRepresentation (CompilationRepresentationFlags.ModuleSuffix)>]]
00:00:55 #2033 [verbose] > module System =
00:00:55 #2034 [verbose] > module Diagnostics =
00:00:55 #2035 [verbose] > type Process = unit
00:00:55 #2036 [verbose] > type DataReceivedEventArgs = unit
00:00:55 #2037 [verbose] > #endif
00:00:55 #2038 [verbose] > module State = let mutable trace_state = None
00:00:55 #2039 [verbose] > type [[<Struct>]] US0 =
00:00:55 #2040 [verbose] > | US0_0
00:00:55 #2041 [verbose] > | US0_1
00:00:55 #2042 [verbose] > | US0_2
00:00:55 #2043 [verbose] > | US0_3
00:00:55 #2044 [verbose] > | US0_4
00:00:55 #2045 [verbose] > and UH0 =
00:00:55 #2046 [verbose] > | UH0_0
00:00:55 #2047 [verbose] > | UH0_1 of char * UH0
00:00:55 #2048 [verbose] > and [[<Struct>]] US2 =
00:00:55 #2049 [verbose] > | US2_0
00:00:55 #2050 [verbose] > | US2_1
00:00:55 #2051 [verbose] > and [[<Struct>]] US1 =
00:00:55 #2052 [verbose] > | US1_0
00:00:55 #2053 [verbose] > | US1_1 of f1_0 : US2
00:00:55 #2054 [verbose] > | US1_2
00:00:55 #2055 [verbose] > and [[<Struct>]] US3 =
00:00:55 #2056 [verbose] > | US3_0 of f0_0 : string
00:00:55 #2057 [verbose] > | US3_1
00:00:55 #2058 [verbose] > and Mut0 = {mutable l0 : int64}
00:00:55 #2059 [verbose] > and Mut1 = {mutable l0 : bool}
00:00:55 #2060 [verbose] > and Mut2 = {mutable l0 : US0}
00:00:55 #2061 [verbose] > and [[<Struct>]] US4 =
00:00:55 #2062 [verbose] > | US4_0 of f0_0 : int64
00:00:55 #2063 [verbose] > | US4_1
00:00:55 #2064 [verbose] > and [[<Struct>]] US5 =
00:00:55 #2065 [verbose] > | US5_0 of f0_0 : i...
00:00:57 #2066 [verbose] >
00:00:57 #2067 [verbose] > ── fsharp - import ─────────────────────────────────────────────────────────────
00:00:57 #2068 [verbose] > #if FABLE_COMPILER // file_system.types
00:00:57 #2069 [verbose] > [[<Fable.Core.Erase; Fable.Core.Emit("str")>]] type Str = class end
00:00:57 #2070 [verbose] > [[<Fable.Core.Erase; Fable.Core.Emit("base64::DecodeError")>]] type
00:00:57 #2071 [verbose] > base64_DecodeError = class end
00:00:57 #2072 [verbose] > [[<Fable.Core.Erase; Fable.Core.Emit("borsh::io::Error")>]] type borsh_io_Error
00:00:57 #2073 [verbose] > = class end
00:00:57 #2074 [verbose] > [[<Fable.Core.Erase; Fable.Core.Emit("js_sys::JsString")>]] type js_sys_JsString
00:00:57 #2075 [verbose] > = class end
00:00:57 #2076 [verbose] > [[<Fable.Core.Erase; Fable.Core.Emit("serde_json::Error")>]] type
00:00:57 #2077 [verbose] > serde_json_Error = class end
00:00:57 #2078 [verbose] > [[<Fable.Core.Erase; Fable.Core.Emit("serde_json::Value")>]] type
00:00:57 #2079 [verbose] > serde_json_Value = class end
00:00:57 #2080 [verbose] > [[<Fable.Core.Erase; Fable.Core.Emit("serde_wasm_bindgen::Error")>]] type
00:00:57 #2081 [verbose] > serde_wasm_bindgen_Error = class end
00:00:57 #2082 [verbose] > [[<Fable.Core.Erase; Fable.Core.Emit("std::ffi::OsStr")>]] type std_ffi_O...
00:00:58 #2083 [verbose] >
00:00:58 #2084 [verbose] > ── fsharp - import ─────────────────────────────────────────────────────────────
00:00:58 #2085 [verbose] > module State = let mutable trace_state = None
00:00:58 #2086 [verbose] > type [[<Struct>]] US0 =
00:00:58 #2087 [verbose] > | US0_0
00:00:58 #2088 [verbose] > | US0_1
00:00:58 #2089 [verbose] > | US0_2
00:00:58 #2090 [verbose] > | US0_3
00:00:58 #2091 [verbose] > | US0_4
00:00:58 #2092 [verbose] > and Mut0 = {mutable l0 : int64}
00:00:58 #2093 [verbose] > and Mut1 = {mutable l0 : bool}
00:00:58 #2094 [verbose] > and Mut2 = {mutable l0 : US0}
00:00:58 #2095 [verbose] > and [[<Struct>]] US1 =
00:00:58 #2096 [verbose] > | US1_0 of f0_0 : int64
00:00:58 #2097 [verbose] > | US1_1
00:00:58 #2098 [verbose] > and [[<Struct>]] US2 =
00:00:58 #2099 [verbose] > | US2_0 of f0_0 : int64
00:00:58 #2100 [verbose] > | US2_1
00:00:58 #2101 [verbose] > let rec method1 (v0 : int64 option) : int64 option =
00:00:58 #2102 [verbose] > v0
00:00:58 #2103 [verbose] > and method2 (v0 : int64 option) : int64 option =
00:00:58 #2104 [verbose] > v0
00:00:58 #2105 [verbose] > and closure3 () () : struct (Mut0 * Mut1 * Mut1 * Mut2 * int64 option) =
00:00:58 #2106 [verbose] > let v0 : Mut1 = {l0 = true} : Mut1
00:00:58 #2107 [verbose] > let v1 : Mut0 = {l0 = 0L} : Mut0
00:00:58 #2108 [verbose] > let v2 : US0 = US0_0
00:00:58 #2109 [verbose] > let v3 : Mut2 = {l0 = v2} : Mut2
00:00:58 #2110 [verbose] > let v4 : Mut1 = {l0 = false} : Mut1
00:00:58 #2111 [verbose] > let v5 : int64 option option = None
00:00:58 #2112 [verbose] > ...
00:00:59 #2113 [verbose] >
00:00:59 #2114 [verbose] > ── fsharp - import ─────────────────────────────────────────────────────────────
00:00:59 #2115 [verbose] > module SpiralTrace =
00:00:59 #2116 [verbose] > let get_trace_state () =
00:00:59 #2117 [verbose] > #if !INTERACTIVE
00:00:59 #2118 [verbose] > Trace.get_trace_state ()
00:00:59 #2119 [verbose] > #else
00:00:59 #2120 [verbose] > get_trace_state ()
00:00:59 #2121 [verbose] > #endif
00:00:59 #2122 [verbose] >
00:00:59 #2123 [verbose] > let trace x =
00:00:59 #2124 [verbose] > #if !INTERACTIVE
00:00:59 #2125 [verbose] > Trace.trace x
00:00:59 #2126 [verbose] > #else
00:00:59 #2127 [verbose] > trace x
00:00:59 #2128 [verbose] > #endif
00:00:59 #2129 [verbose] >
00:00:59 #2130 [verbose] > type TraceLevel =
00:00:59 #2131 [verbose] > #if !INTERACTIVE
00:00:59 #2132 [verbose] > Trace.US0
00:00:59 #2133 [verbose] > #else
00:00:59 #2134 [verbose] > US0
00:00:59 #2135 [verbose] > #endif
00:00:59 #2136 [verbose] >
00:00:59 #2137 [verbose] > #if !FABLE_COMPILER && !WASM && !CONTRACT
00:00:59 #2138 [verbose] >
00:00:59 #2139 [verbose] > module SpiralAsync =
00:00:59 #2140 [verbose] > let merge_cancellation_token_with_default_async x =
00:00:59 #2141 [verbose] > #if !INTERACTIVE
00:00:59 #2142 [verbose] > Async_.merge_cancellation_token_with_default_async x
00:00:59 #2143 [verbose] > #else
00:00:59 #2144 [verbose] > merge_cancellation_token_with_default_async x
00:00:59 #2145 [verbose] > #endif
00:00:59 #2146 [verbose] >
00:00:59 #2147 [verbose] > module SpiralRuntime =
00:00:59 #2148 [verbose] > let get_executable_suffix () =
00:00:59 #2149 [verbose] > #if !INTERACTIVE
00:00:59 #2150 [verbose] > Runtime.get_executable_suffix ()
00:00:59 #2151 [verbose] > #else
00:00:59 #2152 [verbose] > get_executable_suffix ()
00:00:59 #2153 [verbose] > #endif
00:00:59 #2154 [verbose] >
00:00:59 #2155 [verbose] > let is...
00:00:59 #2156 [verbose] >
00:00:59 #2157 [verbose] > ── fsharp - import ─────────────────────────────────────────────────────────────
00:00:59 #2158 [verbose] > #r @"../../../../../../../.nuget/packages/expecto/10.2.1/lib/net6.0/Expecto.dll"
00:00:59 #2159 [verbose] >
00:00:59 #2160 [verbose] > ── fsharp - import ─────────────────────────────────────────────────────────────
00:00:59 #2161 [verbose] > //// test
00:00:59 #2162 [verbose] >
00:00:59 #2163 [verbose] > type AssertExceptionFormatter (ex) =
00:00:59 #2164 [verbose] > member _.Text =
00:00:59 #2165 [verbose] > ex.ToString()
00:00:59 #2166 [verbose] > .Replace("32m", "<span style=\"color: green;\">")
00:00:59 #2167 [verbose] > .Replace("36m", "</span>")
00:00:59 #2168 [verbose] > .Replace("31m", "<span style=\"color: red;\">")
00:00:59 #2169 [verbose] > .Replace("\n", "<br/>\n")
00:00:59 #2170 [verbose] >
00:00:59 #2171 [verbose] >
00:00:59 #2172 [verbose] > Formatter.Register<AssertExceptionFormatter> ((fun (x :
00:00:59 #2173 [verbose] > AssertExceptionFormatter) -> x.Text), "text/html")
00:00:59 #2174 [verbose] >
00:00:59 #2175 [verbose] > ── fsharp - import ─────────────────────────────────────────────────────────────
00:00:59 #2176 [verbose] > //// test
00:00:59 #2177 [verbose] >
00:00:59 #2178 [verbose] > let inline __expect fn log expected actual =
00:00:59 #2179 [verbose] > if log then printfn $"{actual.ToDisplayString ()}"
00:00:59 #2180 [verbose] > try
00:00:59 #2181 [verbose] > "Testing.__expect" |> fn actual expected
00:00:59 #2182 [verbose] > with :? Expecto.AssertException as ex ->
00:00:59 #2183 [verbose] > AssertExceptionFormatter(ex).Display () |> ignore
00:00:59 #2184 [verbose] > failwith (ex.GetType().FullName)
00:00:59 #2185 [verbose] >
00:00:59 #2186 [verbose] > let inline __contains log expected actual = __expect Expecto.Expect.contains log
00:00:59 #2187 [verbose] > expected actual
00:00:59 #2188 [verbose] > let inline _contains expected actual = __contains true expected actual
00:00:59 #2189 [verbose] >
00:00:59 #2190 [verbose] > let inline __assertEqual log expected actual = __expect Expecto.Expect.equal log
00:00:59 #2191 [verbose] > expected actual
00:00:59 #2192 [verbose] > let inline _assertEqual expected actual = __assertEqual true expected actual
00:00:59 #2193 [verbose] >
00:00:59 #2194 [verbose] > let inline __isGreaterThan log expected actual = __expect
00:00:59 #2195 [verbose] > Expecto.Expect.isGreaterThan log ex...
00:00:59 #2196 [verbose] >
00:00:59 #2197 [verbose] > ── fsharp - import ─────────────────────────────────────────────────────────────
00:00:59 #2198 [verbose] > //// test
00:00:59 #2199 [verbose] >
00:00:59 #2200 [verbose] > let inline __isBetween log a b actual =
00:00:59 #2201 [verbose] > let inline isBetween actual (a, b) _ =
00:00:59 #2202 [verbose] > __isGreaterThanOrEqual log a actual
00:00:59 #2203 [verbose] > __isLessThanOrEqual log b actual
00:00:59 #2204 [verbose] > __expect isBetween log (a, b) actual
00:00:59 #2205 [verbose] > let inline _isBetween a b actual = __isBetween true a b actual
00:00:59 #2206 [verbose] >
00:00:59 #2207 [verbose] > ── fsharp ──────────────────────────────────────────────────────────────────────
00:00:59 #2208 [verbose] > #!import ../../lib/fsharp/Common.fs
00:00:59 #2209 [verbose] >
00:00:59 #2210 [verbose] > ── fsharp - import ─────────────────────────────────────────────────────────────
00:00:59 #2211 [verbose] > #if !INTERACTIVE
00:00:59 #2212 [verbose] > namespace Polyglot
00:00:59 #2213 [verbose] > #endif
00:00:59 #2214 [verbose] >
00:00:59 #2215 [verbose] > module Common =
00:00:59 #2216 [verbose] >
00:00:59 #2217 [verbose] > #if !INTERACTIVE
00:00:59 #2218 [verbose] > open Lib
00:00:59 #2219 [verbose] > #endif
00:00:59 #2220 [verbose] >
00:00:59 #2221 [verbose] > let nl = System.Environment.NewLine
00:00:59 #2222 [verbose] > let q = @""""
00:00:59 #2223 [verbose] >
00:00:59 #2224 [verbose] > let inline cons head tail = head :: tail
00:00:59 #2225 [verbose] >
00:00:59 #2226 [verbose] > /// ## memoize
00:00:59 #2227 [verbose] >
00:00:59 #2228 [verbose] > let inline memoize fn =
00:00:59 #2229 [verbose] > let result = lazy fn ()
00:00:59 #2230 [verbose] > fun () -> result.Value
00:00:59 #2231 [verbose] >
00:00:59 #2232 [verbose] > /// ## TraceLevel
00:00:59 #2233 [verbose] >
00:00:59 #2234 [verbose] > type TraceLevel =
00:00:59 #2235 [verbose] > | Verbose
00:00:59 #2236 [verbose] > | Debug
00:00:59 #2237 [verbose] > | Info
00:00:59 #2238 [verbose] > | Warning
00:00:59 #2239 [verbose] > | Critical
00:00:59 #2240 [verbose] >
00:00:59 #2241 [verbose] > let inline getLocals () = ""
00:00:59 #2242 [verbose] >
00:00:59 #2243 [verbose] > /// ## trace
00:00:59 #2244 [verbose] >
00:00:59 #2245 [verbose] > let to_trace_level = function
00:00:59 #2246 [verbose] > | Verbose -> SpiralTrace.TraceLevel.US0_0
00:00:59 #2247 [verbose] > | Debug -> SpiralTrace.TraceLevel.US0_1
00:00:59 #2248 [verbose] > | Info -> SpiralTrace.TraceLevel.US0_2
00:00:59 #2249 [verbose] > | Warning -> SpiralTrace.TraceLevel.US0_3
00:00:59 #2250 [verbose] > | Critical ->...
00:00:59 #2251 [verbose] >
00:00:59 #2252 [verbose] > ── fsharp ──────────────────────────────────────────────────────────────────────
00:00:59 #2253 [verbose] > open Common
00:00:59 #2254 [verbose] >
00:00:59 #2255 [verbose] > ── markdown ────────────────────────────────────────────────────────────────────
00:00:59 #2256 [verbose] > ╭──────────────────────────────────────────────────────────────────────────────╮
00:00:59 #2257 [verbose] > │ ## getUnionCaseName │
00:00:59 #2258 [verbose] > ╰──────────────────────────────────────────────────────────────────────────────╯
00:00:59 #2259 [verbose] >
00:00:59 #2260 [verbose] > ── fsharp ──────────────────────────────────────────────────────────────────────
00:00:59 #2261 [verbose] > let inline getUnionCaseName<'T> (x: 'T) =
00:00:59 #2262 [verbose] > match Reflection.FSharpValue.GetUnionFields(x, typeof<'T>) with
00:00:59 #2263 [verbose] > | case, _ -> case.Name
00:00:59 #2264 [verbose] >
00:00:59 #2265 [verbose] > ── fsharp ──────────────────────────────────────────────────────────────────────
00:00:59 #2266 [verbose] > //// test
00:00:59 #2267 [verbose] >
00:00:59 #2268 [verbose] > TraceLevel.Critical
00:00:59 #2269 [verbose] > |> getUnionCaseName
00:00:59 #2270 [verbose] > |> _assertEqual (nameof TraceLevel.Critical)
00:00:59 #2271 [verbose] >
00:00:59 #2272 [verbose] > ╭─[ 56.38ms - stdout ]─────────────────────────────────────────────────────────╮
00:00:59 #2273 [verbose] > │ Critical │
00:00:59 #2274 [verbose] > │ │
00:00:59 #2275 [verbose] > ╰──────────────────────────────────────────────────────────────────────────────╯
00:01:01 #2276 [verbose] > [NbConvertApp] Converting notebook CommonFSharp.dib.ipynb to html
00:01:01 #2277 [verbose] > C:\Users\i574n\scoop\apps\python\current\Lib\site-packages\nbformat\__init__.py:93: MissingIDFieldWarning: Code cell is missing an id field, this will become a hard error in future nbformat versions. You may want to use `normalize()` on your notebooks before validations (available since nbformat 5.1.4). Previous versions of nbformat are fixing this issue transparently, and will stop doing so in the future.
00:01:01 #2278 [verbose] > validate(nb)
00:01:01 #2279 [verbose] > C:\Users\i574n\scoop\apps\python\current\Lib\site-packages\nbconvert\filters\highlight.py:71: UserWarning: IPython3 lexer unavailable, falling back on Python 3
00:01:01 #2280 [verbose] > return _pygments_highlight(
00:01:02 #2281 [verbose] > [NbConvertApp] Writing 275588 bytes to CommonFSharp.dib.html
00:01:02 #2282 [debug] execute_with_options_async / exit_code: 0 / output.Length: 13935
00:01:02 #9 [debug] main / executeCommand / exitCode: 0
00:01:02 #2283 [debug] execute_with_options_async / options: struct (Some System.Threading.CancellationToken,
"pwsh -c "../../scripts/invoke-dib.ps1 Threading.dib -Retries 3"", None,
None, None)
00:01:04 #2284 [verbose] >
00:01:04 #2285 [verbose] > ── markdown ────────────────────────────────────────────────────────────────────
00:01:04 #2286 [verbose] > ╭──────────────────────────────────────────────────────────────────────────────╮
00:01:04 #2287 [verbose] > │ # Threading (Polyglot) │
00:01:04 #2288 [verbose] > ╰──────────────────────────────────────────────────────────────────────────────╯
00:01:04 #2289 [verbose] >
00:01:04 #2290 [verbose] > ── fsharp ──────────────────────────────────────────────────────────────────────
00:01:04 #2291 [verbose] > #!import ../../lib/fsharp/Notebooks.dib
00:01:04 #2292 [verbose] > #!import ../../lib/fsharp/Testing.dib
00:01:04 #2293 [verbose] >
00:01:04 #2294 [verbose] > ── fsharp - import ─────────────────────────────────────────────────────────────
00:01:04 #2295 [verbose] > #r
00:01:04 #2296 [verbose] > "C:/Users/i574n/.nuget/packages/dotnet-repl/0.1.204/tools/net7.0/any/Microsoft.A
00:01:04 #2297 [verbose] > spNetCore.Html.Abstractions.dll"
00:01:04 #2298 [verbose] > #r
00:01:04 #2299 [verbose] > "C:/Users/i574n/.nuget/packages/dotnet-repl/0.1.204/tools/net7.0/any/Microsoft.D
00:01:04 #2300 [verbose] > otNet.Interactive.dll"
00:01:04 #2301 [verbose] > #r
00:01:04 #2302 [verbose] > "C:/Users/i574n/.nuget/packages/dotnet-repl/0.1.204/tools/net7.0/any/Microsoft.D
00:01:04 #2303 [verbose] > otNet.Interactive.FSharp.dll"
00:01:04 #2304 [verbose] > #r
00:01:04 #2305 [verbose] > "C:/Users/i574n/.nuget/packages/dotnet-repl/0.1.204/tools/net7.0/any/Microsoft.D
00:01:04 #2306 [verbose] > otNet.Interactive.Formatting.dll"
00:01:04 #2307 [verbose] > open System
00:01:04 #2308 [verbose] > open System.IO
00:01:04 #2309 [verbose] > open System.Text
00:01:04 #2310 [verbose] > open Microsoft.DotNet.Interactive.Formatting
00:01:07 #2311 [verbose] >
00:01:07 #2312 [verbose] > ── fsharp - import ─────────────────────────────────────────────────────────────
00:01:07 #2313 [verbose] > #r
00:01:07 #2314 [verbose] > "C:/Users/i574n/.nuget/packages/dotnet-repl/0.1.204/tools/net7.0/any/Microsoft.D
00:01:07 #2315 [verbose] > otNet.Interactive.FSharp.dll"
00:01:07 #2316 [verbose] > open Microsoft.DotNet.Interactive.FSharp.FSharpKernelHelpers
00:01:07 #2317 [verbose] > #r
00:01:07 #2318 [verbose] > "C:/Users/i574n/.nuget/packages/dotnet-repl/0.1.204/tools/net7.0/any/Microsoft.D
00:01:07 #2319 [verbose] > otNet.Interactive.dll"
00:01:07 #2320 [verbose] > open type Microsoft.DotNet.Interactive.Kernel
00:01:08 #2321 [verbose] >
00:01:08 #2322 [verbose] > ── fsharp - import ─────────────────────────────────────────────────────────────
00:01:08 #2323 [verbose] > //// test
00:01:08 #2324 [verbose] >
00:01:08 #2325 [verbose] > Formatter.ListExpansionLimit <- 100
00:01:08 #2326 [verbose] >
00:01:08 #2327 [verbose] > ── fsharp - import ─────────────────────────────────────────────────────────────
00:01:08 #2328 [verbose] > type [[<Struct>]] US0 =
00:01:08 #2329 [verbose] > | US0_0
00:01:08 #2330 [verbose] > | US0_1
00:01:08 #2331 [verbose] > and [[<Struct>]] US1 =
00:01:08 #2332 [verbose] > | US1_0 of f0_0 : US0
00:01:08 #2333 [verbose] > | US1_1
00:01:08 #2334 [verbose] > let rec closure0 () (v0 : (unit -> unit)) : System.IDisposable =
00:01:08 #2335 [verbose] > let v1 : System.IDisposable option = None
00:01:08 #2336 [verbose] > let mutable _v1 = v1
00:01:08 #2337 [verbose] > #if FABLE_COMPILER_RUST && !WASM && !CONTRACT
00:01:08 #2338 [verbose] > let v2 : System.IDisposable = null |> unbox<System.IDisposable>
00:01:08 #2339 [verbose] > v2
00:01:08 #2340 [verbose] > #endif
00:01:08 #2341 [verbose] > #if FABLE_COMPILER_RUST && WASM
00:01:08 #2342 [verbose] > let v3 : System.IDisposable = null |> unbox<System.IDisposable>
00:01:08 #2343 [verbose] > v3
00:01:08 #2344 [verbose] > #endif
00:01:08 #2345 [verbose] > #if FABLE_COMPILER_RUST && CONTRACT
00:01:08 #2346 [verbose] > let v4 : System.IDisposable = null |> unbox<System.IDisposable>
00:01:08 #2347 [verbose] > v4
00:01:08 #2348 [verbose] > #endif
00:01:08 #2349 [verbose] > #if !FABLE_COMPILER && !FABLE_COMPILER_RUST && !FABLE_COMPILER_TYPESCRIPT &&
00:01:08 #2350 [verbose] > !WASM && !CONTRACT
00:01:08 #2351 [verbose] > let v5 : System.ID...
00:01:09 #2352 [verbose] >
00:01:09 #2353 [verbose] > ── fsharp - import ─────────────────────────────────────────────────────────────
00:01:09 #2354 [verbose] > type Mut0 = {mutable l0 : int32; mutable l1 : string}
00:01:09 #2355 [verbose] > and Mut1 = {mutable l0 : int32}
00:01:09 #2356 [verbose] > let rec closure1 (v0 : string) (v1 : string) : bool =
00:01:09 #2357 [verbose] > let v2 : bool = v1.Contains v0
00:01:09 #2358 [verbose] > v2
00:01:09 #2359 [verbose] > and closure0 () (v0 : string) : (string -> bool) =
00:01:09 #2360 [verbose] > closure1(v0)
00:01:09 #2361 [verbose] > and closure3 (v0 : string) (v1 : string) : bool =
00:01:09 #2362 [verbose] > let v2 : bool = v1.EndsWith v0
00:01:09 #2363 [verbose] > v2
00:01:09 #2364 [verbose] > and closure2 () (v0 : string) : (string -> bool) =
00:01:09 #2365 [verbose] > closure3(v0)
00:01:09 #2366 [verbose] > and closure6 (v0 : int32, v1 : char) (v2 : string) : string =
00:01:09 #2367 [verbose] > let v3 : string = v2.PadLeft (v0, v1)
00:01:09 #2368 [verbose] > v3
00:01:09 #2369 [verbose] > and closure5 (v0 : int32) (v1 : char) : (string -> string) =
00:01:09 #2370 [verbose] > closure6(v0, v1)
00:01:09 #2371 [verbose] > and closure4 () (v0 : int32) : (char -> (string -> string)) =
00:01:09 #2372 [verbose] > closure5(v0)
00:01:09 #2373 [verbose] > and closure8 (v0 : int32) (v1 : string) : string =
00:01:09 #2374 [verbose] > let v2 : stri...
00:01:10 #2375 [verbose] >
00:01:10 #2376 [verbose] > ── fsharp - import ─────────────────────────────────────────────────────────────
00:01:10 #2377 [verbose] > type ICryptoCreateHash = abstract createHash: x: string -> obj
00:01:10 #2378 [verbose] > type Mut0 = {mutable l0 : int32}
00:01:10 #2379 [verbose] > let rec method0 (v0 : int32, v1 : Mut0) : bool =
00:01:10 #2380 [verbose] > let v2 : int32 = v1.l0
00:01:10 #2381 [verbose] > let v3 : bool = v2 < v0
00:01:10 #2382 [verbose] > v3
00:01:10 #2383 [verbose] > and method1 () : string =
00:01:10 #2384 [verbose] > let v0 : string = ""
00:01:10 #2385 [verbose] > v0
00:01:10 #2386 [verbose] > and closure0 () (v0 : string) : string =
00:01:10 #2387 [verbose] > let v1 : string option = None
00:01:10 #2388 [verbose] > let mutable _v1 = v1
00:01:10 #2389 [verbose] > #if FABLE_COMPILER_RUST && !WASM && !CONTRACT
00:01:10 #2390 [verbose] > let v2 : string = null |> unbox<string>
00:01:10 #2391 [verbose] > v2
00:01:10 #2392 [verbose] > #endif
00:01:10 #2393 [verbose] > #if FABLE_COMPILER_RUST && WASM
00:01:10 #2394 [verbose] > let v3 : string = null |> unbox<string>
00:01:10 #2395 [verbose] > v3
00:01:10 #2396 [verbose] > #endif
00:01:10 #2397 [verbose] > #if FABLE_COMPILER_RUST && CONTRACT
00:01:10 #2398 [verbose] > let v4 : string = null |> unbox<string>
00:01:10 #2399 [verbose] > v4
00:01:10 #2400 [verbose] > #endif
00:01:10 #2401 [verbose] > #if !FABLE_COMPILER && !FABLE_COMPILER_RUST && !FABLE_COMPILER_TYP...
00:01:10 #2402 [verbose] >
00:01:10 #2403 [verbose] > ── fsharp - import ─────────────────────────────────────────────────────────────
00:01:10 #2404 [verbose] > let rec closure1 (v0 : System.Guid) (v1 : System.DateTime) : System.Guid =
00:01:10 #2405 [verbose] > let v2 : (System.Guid -> string) = _.ToString()
00:01:10 #2406 [verbose] > let v3 : string = v2 v0
00:01:10 #2407 [verbose] > let v4 : string = v1.ToString "yyyyMMdd-HHmm-ssff-ffff-f"
00:01:10 #2408 [verbose] > let v5 : System.Guid = System.Guid $"{v4}{v3.[[v4.Length..]]}"
00:01:10 #2409 [verbose] > v5
00:01:10 #2410 [verbose] > and closure0 () (v0 : System.Guid) : (System.DateTime -> System.Guid) =
00:01:10 #2411 [verbose] > closure1(v0)
00:01:10 #2412 [verbose] > and closure5 (v0 : string, v1 : string) (v2 : string) : string =
00:01:10 #2413 [verbose] > let v3 : string = v2.Replace (v0, v1)
00:01:10 #2414 [verbose] > v3
00:01:10 #2415 [verbose] > and closure4 (v0 : string) (v1 : string) : (string -> string) =
00:01:10 #2416 [verbose] > closure5(v0, v1)
00:01:10 #2417 [verbose] > and closure3 () (v0 : string) : (string -> (string -> string)) =
00:01:10 #2418 [verbose] > closure4(v0)
00:01:10 #2419 [verbose] > and method0 () : (string -> (string -> (string -> string))) =
00:01:10 #2420 [verbose] > closure3()
00:01:10 #2421 [verbose] > and closure2 (...
00:01:10 #2422 [verbose] >
00:01:10 #2423 [verbose] > ── fsharp - import ─────────────────────────────────────────────────────────────
00:01:10 #2424 [verbose] > let rec closure0 () (v0 : System.Threading.CancellationToken) :
00:01:10 #2425 [verbose] > Async<System.Threading.CancellationToken> =
00:01:10 #2426 [verbose] > let v1 : Async<System.Threading.CancellationToken> option = None
00:01:10 #2427 [verbose] > let mutable _v1 = v1
00:01:10 #2428 [verbose] > #if FABLE_COMPILER_RUST && !WASM && !CONTRACT
00:01:10 #2429 [verbose] > let v2 : Async<System.Threading.CancellationToken> = null |>
00:01:10 #2430 [verbose] > unbox<Async<System.Threading.CancellationToken>>
00:01:10 #2431 [verbose] > v2
00:01:10 #2432 [verbose] > #endif
00:01:10 #2433 [verbose] > #if FABLE_COMPILER_RUST && WASM
00:01:10 #2434 [verbose] > let v3 : Async<System.Threading.CancellationToken> = null |>
00:01:10 #2435 [verbose] > unbox<Async<System.Threading.CancellationToken>>
00:01:10 #2436 [verbose] > v3
00:01:10 #2437 [verbose] > #endif
00:01:10 #2438 [verbose] > #if FABLE_COMPILER_RUST && CONTRACT
00:01:10 #2439 [verbose] > let v4 : Async<System.Threading.CancellationToken> = null |>
00:01:10 #2440 [verbose] > unbox<Async<System.Threading.CancellationToken>>
00:01:10 #2441 [verbose] > v4
00:01:10 #2442 [verbose] > #endif
00:01:10 #2443 [verbose] > #if !FABLE_COMPILER...
00:01:10 #2444 [verbose] >
00:01:10 #2445 [verbose] > ── fsharp - import ─────────────────────────────────────────────────────────────
00:01:10 #2446 [verbose] > #if FABLE_COMPILER
00:01:10 #2447 [verbose] > [[<CompilationRepresentation (CompilationRepresentationFlags.ModuleSuffix)>]]
00:01:10 #2448 [verbose] > module System =
00:01:10 #2449 [verbose] > module Diagnostics =
00:01:10 #2450 [verbose] > type Process = unit
00:01:10 #2451 [verbose] > type DataReceivedEventArgs = unit
00:01:10 #2452 [verbose] > #endif
00:01:10 #2453 [verbose] > module State = let mutable trace_state = None
00:01:10 #2454 [verbose] > type [[<Struct>]] US0 =
00:01:10 #2455 [verbose] > | US0_0
00:01:10 #2456 [verbose] > | US0_1
00:01:10 #2457 [verbose] > | US0_2
00:01:10 #2458 [verbose] > | US0_3
00:01:10 #2459 [verbose] > | US0_4
00:01:10 #2460 [verbose] > and UH0 =
00:01:10 #2461 [verbose] > | UH0_0
00:01:10 #2462 [verbose] > | UH0_1 of char * UH0
00:01:10 #2463 [verbose] > and [[<Struct>]] US2 =
00:01:10 #2464 [verbose] > | US2_0
00:01:10 #2465 [verbose] > | US2_1
00:01:10 #2466 [verbose] > and [[<Struct>]] US1 =
00:01:10 #2467 [verbose] > | US1_0
00:01:10 #2468 [verbose] > | US1_1 of f1_0 : US2
00:01:10 #2469 [verbose] > | US1_2
00:01:10 #2470 [verbose] > and [[<Struct>]] US3 =
00:01:10 #2471 [verbose] > | US3_0 of f0_0 : string
00:01:10 #2472 [verbose] > | US3_1
00:01:10 #2473 [verbose] > and Mut0 = {mutable l0 : int64}
00:01:10 #2474 [verbose] > and Mut1 = {mutable l0 : bool}
00:01:10 #2475 [verbose] > and Mut2 = {mutable l0 : US0}
00:01:10 #2476 [verbose] > and [[<Struct>]] US4 =
00:01:10 #2477 [verbose] > | US4_0 of f0_0 : int64
00:01:10 #2478 [verbose] > | US4_1
00:01:10 #2479 [verbose] > and [[<Struct>]] US5 =
00:01:10 #2480 [verbose] > | US5_0 of f0_0 : i...
00:01:11 #2481 [verbose] >
00:01:11 #2482 [verbose] > ── fsharp - import ─────────────────────────────────────────────────────────────
00:01:11 #2483 [verbose] > #if FABLE_COMPILER // file_system.types
00:01:11 #2484 [verbose] > [[<Fable.Core.Erase; Fable.Core.Emit("str")>]] type Str = class end
00:01:11 #2485 [verbose] > [[<Fable.Core.Erase; Fable.Core.Emit("base64::DecodeError")>]] type
00:01:11 #2486 [verbose] > base64_DecodeError = class end
00:01:11 #2487 [verbose] > [[<Fable.Core.Erase; Fable.Core.Emit("borsh::io::Error")>]] type borsh_io_Error
00:01:11 #2488 [verbose] > = class end
00:01:11 #2489 [verbose] > [[<Fable.Core.Erase; Fable.Core.Emit("js_sys::JsString")>]] type js_sys_JsString
00:01:11 #2490 [verbose] > = class end
00:01:11 #2491 [verbose] > [[<Fable.Core.Erase; Fable.Core.Emit("serde_json::Error")>]] type
00:01:11 #2492 [verbose] > serde_json_Error = class end
00:01:11 #2493 [verbose] > [[<Fable.Core.Erase; Fable.Core.Emit("serde_json::Value")>]] type
00:01:11 #2494 [verbose] > serde_json_Value = class end
00:01:11 #2495 [verbose] > [[<Fable.Core.Erase; Fable.Core.Emit("serde_wasm_bindgen::Error")>]] type
00:01:11 #2496 [verbose] > serde_wasm_bindgen_Error = class end
00:01:11 #2497 [verbose] > [[<Fable.Core.Erase; Fable.Core.Emit("std::ffi::OsStr")>]] type std_ffi_O...
00:01:13 #2498 [verbose] >
00:01:13 #2499 [verbose] > ── fsharp - import ─────────────────────────────────────────────────────────────
00:01:13 #2500 [verbose] > module State = let mutable trace_state = None
00:01:13 #2501 [verbose] > type [[<Struct>]] US0 =
00:01:13 #2502 [verbose] > | US0_0
00:01:13 #2503 [verbose] > | US0_1
00:01:13 #2504 [verbose] > | US0_2
00:01:13 #2505 [verbose] > | US0_3
00:01:13 #2506 [verbose] > | US0_4
00:01:13 #2507 [verbose] > and Mut0 = {mutable l0 : int64}
00:01:13 #2508 [verbose] > and Mut1 = {mutable l0 : bool}
00:01:13 #2509 [verbose] > and Mut2 = {mutable l0 : US0}
00:01:13 #2510 [verbose] > and [[<Struct>]] US1 =
00:01:13 #2511 [verbose] > | US1_0 of f0_0 : int64
00:01:13 #2512 [verbose] > | US1_1
00:01:13 #2513 [verbose] > and [[<Struct>]] US2 =
00:01:13 #2514 [verbose] > | US2_0 of f0_0 : int64
00:01:13 #2515 [verbose] > | US2_1
00:01:13 #2516 [verbose] > let rec method1 (v0 : int64 option) : int64 option =
00:01:13 #2517 [verbose] > v0
00:01:13 #2518 [verbose] > and method2 (v0 : int64 option) : int64 option =
00:01:13 #2519 [verbose] > v0
00:01:13 #2520 [verbose] > and closure3 () () : struct (Mut0 * Mut1 * Mut1 * Mut2 * int64 option) =
00:01:13 #2521 [verbose] > let v0 : Mut1 = {l0 = true} : Mut1
00:01:13 #2522 [verbose] > let v1 : Mut0 = {l0 = 0L} : Mut0
00:01:13 #2523 [verbose] > let v2 : US0 = US0_0
00:01:13 #2524 [verbose] > let v3 : Mut2 = {l0 = v2} : Mut2
00:01:13 #2525 [verbose] > let v4 : Mut1 = {l0 = false} : Mut1
00:01:13 #2526 [verbose] > let v5 : int64 option option = None
00:01:13 #2527 [verbose] > ...
00:01:13 #2528 [verbose] >
00:01:13 #2529 [verbose] > ── fsharp - import ─────────────────────────────────────────────────────────────
00:01:13 #2530 [verbose] > module SpiralTrace =
00:01:13 #2531 [verbose] > let get_trace_state () =
00:01:13 #2532 [verbose] > #if !INTERACTIVE
00:01:13 #2533 [verbose] > Trace.get_trace_state ()
00:01:13 #2534 [verbose] > #else
00:01:13 #2535 [verbose] > get_trace_state ()
00:01:13 #2536 [verbose] > #endif
00:01:13 #2537 [verbose] >
00:01:13 #2538 [verbose] > let trace x =
00:01:13 #2539 [verbose] > #if !INTERACTIVE
00:01:13 #2540 [verbose] > Trace.trace x
00:01:13 #2541 [verbose] > #else
00:01:13 #2542 [verbose] > trace x
00:01:13 #2543 [verbose] > #endif
00:01:13 #2544 [verbose] >
00:01:13 #2545 [verbose] > type TraceLevel =
00:01:13 #2546 [verbose] > #if !INTERACTIVE
00:01:13 #2547 [verbose] > Trace.US0
00:01:13 #2548 [verbose] > #else
00:01:13 #2549 [verbose] > US0
00:01:13 #2550 [verbose] > #endif
00:01:13 #2551 [verbose] >
00:01:13 #2552 [verbose] > #if !FABLE_COMPILER && !WASM && !CONTRACT
00:01:13 #2553 [verbose] >
00:01:13 #2554 [verbose] > module SpiralAsync =
00:01:13 #2555 [verbose] > let merge_cancellation_token_with_default_async x =
00:01:13 #2556 [verbose] > #if !INTERACTIVE
00:01:13 #2557 [verbose] > Async_.merge_cancellation_token_with_default_async x
00:01:13 #2558 [verbose] > #else
00:01:13 #2559 [verbose] > merge_cancellation_token_with_default_async x
00:01:13 #2560 [verbose] > #endif
00:01:13 #2561 [verbose] >
00:01:13 #2562 [verbose] > module SpiralRuntime =
00:01:13 #2563 [verbose] > let get_executable_suffix () =
00:01:13 #2564 [verbose] > #if !INTERACTIVE
00:01:13 #2565 [verbose] > Runtime.get_executable_suffix ()
00:01:13 #2566 [verbose] > #else
00:01:13 #2567 [verbose] > get_executable_suffix ()
00:01:13 #2568 [verbose] > #endif
00:01:13 #2569 [verbose] >
00:01:13 #2570 [verbose] > let is...
00:01:13 #2571 [verbose] >
00:01:13 #2572 [verbose] > ── fsharp - import ─────────────────────────────────────────────────────────────
00:01:13 #2573 [verbose] > #r @"../../../../../../../.nuget/packages/expecto/10.2.1/lib/net6.0/Expecto.dll"
00:01:13 #2574 [verbose] >
00:01:13 #2575 [verbose] > ── fsharp - import ─────────────────────────────────────────────────────────────
00:01:13 #2576 [verbose] > //// test
00:01:13 #2577 [verbose] >
00:01:13 #2578 [verbose] > type AssertExceptionFormatter (ex) =
00:01:13 #2579 [verbose] > member _.Text =
00:01:13 #2580 [verbose] > ex.ToString()
00:01:13 #2581 [verbose] > .Replace("32m", "<span style=\"color: green;\">")
00:01:13 #2582 [verbose] > .Replace("36m", "</span>")
00:01:13 #2583 [verbose] > .Replace("31m", "<span style=\"color: red;\">")
00:01:13 #2584 [verbose] > .Replace("\n", "<br/>\n")
00:01:13 #2585 [verbose] >
00:01:13 #2586 [verbose] >
00:01:13 #2587 [verbose] > Formatter.Register<AssertExceptionFormatter> ((fun (x :
00:01:13 #2588 [verbose] > AssertExceptionFormatter) -> x.Text), "text/html")
00:01:13 #2589 [verbose] >
00:01:13 #2590 [verbose] > ── fsharp - import ─────────────────────────────────────────────────────────────
00:01:13 #2591 [verbose] > //// test
00:01:13 #2592 [verbose] >
00:01:13 #2593 [verbose] > let inline __expect fn log expected actual =
00:01:13 #2594 [verbose] > if log then printfn $"{actual.ToDisplayString ()}"
00:01:13 #2595 [verbose] > try
00:01:13 #2596 [verbose] > "Testing.__expect" |> fn actual expected
00:01:13 #2597 [verbose] > with :? Expecto.AssertException as ex ->
00:01:13 #2598 [verbose] > AssertExceptionFormatter(ex).Display () |> ignore
00:01:13 #2599 [verbose] > failwith (ex.GetType().FullName)
00:01:13 #2600 [verbose] >
00:01:13 #2601 [verbose] > let inline __contains log expected actual = __expect Expecto.Expect.contains log
00:01:13 #2602 [verbose] > expected actual
00:01:13 #2603 [verbose] > let inline _contains expected actual = __contains true expected actual
00:01:13 #2604 [verbose] >
00:01:13 #2605 [verbose] > let inline __assertEqual log expected actual = __expect Expecto.Expect.equal log
00:01:13 #2606 [verbose] > expected actual
00:01:13 #2607 [verbose] > let inline _assertEqual expected actual = __assertEqual true expected actual
00:01:13 #2608 [verbose] >
00:01:13 #2609 [verbose] > let inline __isGreaterThan log expected actual = __expect
00:01:13 #2610 [verbose] > Expecto.Expect.isGreaterThan log ex...
00:01:13 #2611 [verbose] >
00:01:13 #2612 [verbose] > ── fsharp - import ─────────────────────────────────────────────────────────────
00:01:13 #2613 [verbose] > //// test
00:01:13 #2614 [verbose] >
00:01:13 #2615 [verbose] > let inline __isBetween log a b actual =
00:01:13 #2616 [verbose] > let inline isBetween actual (a, b) _ =
00:01:13 #2617 [verbose] > __isGreaterThanOrEqual log a actual
00:01:13 #2618 [verbose] > __isLessThanOrEqual log b actual
00:01:13 #2619 [verbose] > __expect isBetween log (a, b) actual
00:01:13 #2620 [verbose] > let inline _isBetween a b actual = __isBetween true a b actual
00:01:14 #2621 [verbose] >
00:01:14 #2622 [verbose] > ── fsharp ──────────────────────────────────────────────────────────────────────
00:01:14 #2623 [verbose] > #!import ../../lib/fsharp/Common.fs
00:01:14 #2624 [verbose] >
00:01:14 #2625 [verbose] > ── fsharp - import ─────────────────────────────────────────────────────────────
00:01:14 #2626 [verbose] > #if !INTERACTIVE
00:01:14 #2627 [verbose] > namespace Polyglot
00:01:14 #2628 [verbose] > #endif
00:01:14 #2629 [verbose] >
00:01:14 #2630 [verbose] > module Common =
00:01:14 #2631 [verbose] >
00:01:14 #2632 [verbose] > #if !INTERACTIVE
00:01:14 #2633 [verbose] > open Lib
00:01:14 #2634 [verbose] > #endif
00:01:14 #2635 [verbose] >
00:01:14 #2636 [verbose] > let nl = System.Environment.NewLine
00:01:14 #2637 [verbose] > let q = @""""
00:01:14 #2638 [verbose] >
00:01:14 #2639 [verbose] > let inline cons head tail = head :: tail
00:01:14 #2640 [verbose] >
00:01:14 #2641 [verbose] > /// ## memoize
00:01:14 #2642 [verbose] >
00:01:14 #2643 [verbose] > let inline memoize fn =
00:01:14 #2644 [verbose] > let result = lazy fn ()
00:01:14 #2645 [verbose] > fun () -> result.Value
00:01:14 #2646 [verbose] >
00:01:14 #2647 [verbose] > /// ## TraceLevel
00:01:14 #2648 [verbose] >
00:01:14 #2649 [verbose] > type TraceLevel =
00:01:14 #2650 [verbose] > | Verbose
00:01:14 #2651 [verbose] > | Debug
00:01:14 #2652 [verbose] > | Info
00:01:14 #2653 [verbose] > | Warning
00:01:14 #2654 [verbose] > | Critical
00:01:14 #2655 [verbose] >
00:01:14 #2656 [verbose] > let inline getLocals () = ""
00:01:14 #2657 [verbose] >
00:01:14 #2658 [verbose] > /// ## trace
00:01:14 #2659 [verbose] >
00:01:14 #2660 [verbose] > let to_trace_level = function
00:01:14 #2661 [verbose] > | Verbose -> SpiralTrace.TraceLevel.US0_0
00:01:14 #2662 [verbose] > | Debug -> SpiralTrace.TraceLevel.US0_1
00:01:14 #2663 [verbose] > | Info -> SpiralTrace.TraceLevel.US0_2
00:01:14 #2664 [verbose] > | Warning -> SpiralTrace.TraceLevel.US0_3
00:01:14 #2665 [verbose] > | Critical ->...
00:01:14 #2666 [verbose] >
00:01:14 #2667 [verbose] > ── fsharp ──────────────────────────────────────────────────────────────────────
00:01:14 #2668 [verbose] > open Common
00:01:14 #2669 [verbose] >
00:01:14 #2670 [verbose] > ── markdown ────────────────────────────────────────────────────────────────────
00:01:14 #2671 [verbose] > ╭──────────────────────────────────────────────────────────────────────────────╮
00:01:14 #2672 [verbose] > │ ## newDisposableToken │
00:01:14 #2673 [verbose] > ╰──────────────────────────────────────────────────────────────────────────────╯
00:01:14 #2674 [verbose] >
00:01:14 #2675 [verbose] > ── fsharp ──────────────────────────────────────────────────────────────────────
00:01:14 #2676 [verbose] > let inline newDisposableToken (mergeToken: System.Threading.CancellationToken
00:01:14 #2677 [verbose] > option) =
00:01:14 #2678 [verbose] > let cts = new System.Threading.CancellationTokenSource ()
00:01:14 #2679 [verbose] > let cts =
00:01:14 #2680 [verbose] > match mergeToken with
00:01:14 #2681 [verbose] > | None -> cts
00:01:14 #2682 [verbose] > | Some mergeToken ->
00:01:14 #2683 [verbose] > System.Threading.CancellationTokenSource.CreateLinkedTokenSource [[|
00:01:14 #2684 [verbose] > cts.Token; mergeToken |]]
00:01:14 #2685 [verbose] > let disposable = new_disposable cts.Cancel
00:01:14 #2686 [verbose] > cts.Token, disposable
00:01:14 #2687 [verbose] >
00:01:14 #2688 [verbose] > ── fsharp ──────────────────────────────────────────────────────────────────────
00:01:14 #2689 [verbose] > //// test
00:01:14 #2690 [verbose] >
00:01:14 #2691 [verbose] > let mutable counter = 0
00:01:14 #2692 [verbose] >
00:01:14 #2693 [verbose] > let inline run fn =
00:01:14 #2694 [verbose] > let token, disposable = newDisposableToken None
00:01:14 #2695 [verbose] > use _ = disposable
00:01:14 #2696 [verbose] > fn token
00:01:14 #2697 [verbose] > async {
00:01:14 #2698 [verbose] > fn token
00:01:14 #2699 [verbose] > }
00:01:14 #2700 [verbose] > |> Async.Start
00:01:14 #2701 [verbose] >
00:01:14 #2702 [verbose] > let inline fn (token : System.Threading.CancellationToken) =
00:01:14 #2703 [verbose] > counter <- counter + (if token.IsCancellationRequested then 10 else 1)
00:01:14 #2704 [verbose] >
00:01:14 #2705 [verbose] > async {
00:01:14 #2706 [verbose] > run fn
00:01:14 #2707 [verbose] > do! Async.Sleep 10
00:01:14 #2708 [verbose] > return counter
00:01:14 #2709 [verbose] > }
00:01:14 #2710 [verbose] > |> Async.RunSynchronously
00:01:14 #2711 [verbose] > |> _assertEqual 11
00:01:14 #2712 [verbose] >
00:01:14 #2713 [verbose] > ╭─[ 109.52ms - stdout ]────────────────────────────────────────────────────────╮
00:01:14 #2714 [verbose] > │ 11 │
00:01:14 #2715 [verbose] > │ │
00:01:14 #2716 [verbose] > ╰──────────────────────────────────────────────────────────────────────────────╯
00:01:15 #2717 [verbose] > [NbConvertApp] Converting notebook Threading.dib.ipynb to html
00:01:15 #2718 [verbose] > C:\Users\i574n\scoop\apps\python\current\Lib\site-packages\nbformat\__init__.py:93: MissingIDFieldWarning: Code cell is missing an id field, this will become a hard error in future nbformat versions. You may want to use `normalize()` on your notebooks before validations (available since nbformat 5.1.4). Previous versions of nbformat are fixing this issue transparently, and will stop doing so in the future.
00:01:15 #2719 [verbose] > validate(nb)
00:01:16 #2720 [verbose] > C:\Users\i574n\scoop\apps\python\current\Lib\site-packages\nbconvert\filters\highlight.py:71: UserWarning: IPython3 lexer unavailable, falling back on Python 3
00:01:16 #2721 [verbose] > return _pygments_highlight(
00:01:16 #2722 [verbose] > [NbConvertApp] Writing 278606 bytes to Threading.dib.html
00:01:17 #2723 [debug] execute_with_options_async / exit_code: 0 / output.Length: 14566
00:01:17 #10 [debug] main / executeCommand / exitCode: 0
00:01:17 #2724 [debug] execute_with_options_async / options: struct (Some System.Threading.CancellationToken,
"pwsh -c "../../scripts/invoke-dib.ps1 FileSystem.dib -Retries 3"", None,
None, None)
00:01:19 #2725 [verbose] >
00:01:19 #2726 [verbose] > ── markdown ────────────────────────────────────────────────────────────────────
00:01:19 #2727 [verbose] > ╭──────────────────────────────────────────────────────────────────────────────╮
00:01:19 #2728 [verbose] > │ # FileSystem (Polyglot) │
00:01:19 #2729 [verbose] > ╰──────────────────────────────────────────────────────────────────────────────╯
00:01:19 #2730 [verbose] >
00:01:19 #2731 [verbose] > ── fsharp ──────────────────────────────────────────────────────────────────────
00:01:19 #2732 [verbose] > #!import ../../lib/fsharp/Notebooks.dib
00:01:19 #2733 [verbose] > #!import ../../lib/fsharp/Testing.dib
00:01:19 #2734 [verbose] >
00:01:19 #2735 [verbose] > ── fsharp - import ─────────────────────────────────────────────────────────────
00:01:19 #2736 [verbose] > #r
00:01:19 #2737 [verbose] > "C:/Users/i574n/.nuget/packages/dotnet-repl/0.1.204/tools/net7.0/any/Microsoft.A
00:01:19 #2738 [verbose] > spNetCore.Html.Abstractions.dll"
00:01:19 #2739 [verbose] > #r
00:01:19 #2740 [verbose] > "C:/Users/i574n/.nuget/packages/dotnet-repl/0.1.204/tools/net7.0/any/Microsoft.D
00:01:19 #2741 [verbose] > otNet.Interactive.dll"
00:01:19 #2742 [verbose] > #r
00:01:19 #2743 [verbose] > "C:/Users/i574n/.nuget/packages/dotnet-repl/0.1.204/tools/net7.0/any/Microsoft.D
00:01:19 #2744 [verbose] > otNet.Interactive.FSharp.dll"
00:01:19 #2745 [verbose] > #r
00:01:19 #2746 [verbose] > "C:/Users/i574n/.nuget/packages/dotnet-repl/0.1.204/tools/net7.0/any/Microsoft.D
00:01:19 #2747 [verbose] > otNet.Interactive.Formatting.dll"
00:01:19 #2748 [verbose] > open System
00:01:19 #2749 [verbose] > open System.IO
00:01:19 #2750 [verbose] > open System.Text
00:01:19 #2751 [verbose] > open Microsoft.DotNet.Interactive.Formatting
00:01:22 #2752 [verbose] >
00:01:22 #2753 [verbose] > ── fsharp - import ─────────────────────────────────────────────────────────────
00:01:22 #2754 [verbose] > #r
00:01:22 #2755 [verbose] > "C:/Users/i574n/.nuget/packages/dotnet-repl/0.1.204/tools/net7.0/any/Microsoft.D
00:01:22 #2756 [verbose] > otNet.Interactive.FSharp.dll"
00:01:22 #2757 [verbose] > open Microsoft.DotNet.Interactive.FSharp.FSharpKernelHelpers
00:01:22 #2758 [verbose] > #r
00:01:22 #2759 [verbose] > "C:/Users/i574n/.nuget/packages/dotnet-repl/0.1.204/tools/net7.0/any/Microsoft.D
00:01:22 #2760 [verbose] > otNet.Interactive.dll"
00:01:22 #2761 [verbose] > open type Microsoft.DotNet.Interactive.Kernel
00:01:22 #2762 [verbose] >
00:01:22 #2763 [verbose] > ── fsharp - import ─────────────────────────────────────────────────────────────
00:01:22 #2764 [verbose] > //// test
00:01:22 #2765 [verbose] >
00:01:22 #2766 [verbose] > Formatter.ListExpansionLimit <- 100
00:01:23 #2767 [verbose] >
00:01:23 #2768 [verbose] > ── fsharp - import ─────────────────────────────────────────────────────────────
00:01:23 #2769 [verbose] > type [[<Struct>]] US0 =
00:01:23 #2770 [verbose] > | US0_0
00:01:23 #2771 [verbose] > | US0_1
00:01:23 #2772 [verbose] > and [[<Struct>]] US1 =
00:01:23 #2773 [verbose] > | US1_0 of f0_0 : US0
00:01:23 #2774 [verbose] > | US1_1
00:01:23 #2775 [verbose] > let rec closure0 () (v0 : (unit -> unit)) : System.IDisposable =
00:01:23 #2776 [verbose] > let v1 : System.IDisposable option = None
00:01:23 #2777 [verbose] > let mutable _v1 = v1
00:01:23 #2778 [verbose] > #if FABLE_COMPILER_RUST && !WASM && !CONTRACT
00:01:23 #2779 [verbose] > let v2 : System.IDisposable = null |> unbox<System.IDisposable>
00:01:23 #2780 [verbose] > v2
00:01:23 #2781 [verbose] > #endif
00:01:23 #2782 [verbose] > #if FABLE_COMPILER_RUST && WASM
00:01:23 #2783 [verbose] > let v3 : System.IDisposable = null |> unbox<System.IDisposable>
00:01:23 #2784 [verbose] > v3
00:01:23 #2785 [verbose] > #endif
00:01:23 #2786 [verbose] > #if FABLE_COMPILER_RUST && CONTRACT
00:01:23 #2787 [verbose] > let v4 : System.IDisposable = null |> unbox<System.IDisposable>
00:01:23 #2788 [verbose] > v4
00:01:23 #2789 [verbose] > #endif
00:01:23 #2790 [verbose] > #if !FABLE_COMPILER && !FABLE_COMPILER_RUST && !FABLE_COMPILER_TYPESCRIPT &&
00:01:23 #2791 [verbose] > !WASM && !CONTRACT
00:01:23 #2792 [verbose] > let v5 : System.ID...
00:01:24 #2793 [verbose] >
00:01:24 #2794 [verbose] > ── fsharp - import ─────────────────────────────────────────────────────────────
00:01:24 #2795 [verbose] > type Mut0 = {mutable l0 : int32; mutable l1 : string}
00:01:24 #2796 [verbose] > and Mut1 = {mutable l0 : int32}
00:01:24 #2797 [verbose] > let rec closure1 (v0 : string) (v1 : string) : bool =
00:01:24 #2798 [verbose] > let v2 : bool = v1.Contains v0
00:01:24 #2799 [verbose] > v2
00:01:24 #2800 [verbose] > and closure0 () (v0 : string) : (string -> bool) =
00:01:24 #2801 [verbose] > closure1(v0)
00:01:24 #2802 [verbose] > and closure3 (v0 : string) (v1 : string) : bool =
00:01:24 #2803 [verbose] > let v2 : bool = v1.EndsWith v0
00:01:24 #2804 [verbose] > v2
00:01:24 #2805 [verbose] > and closure2 () (v0 : string) : (string -> bool) =
00:01:24 #2806 [verbose] > closure3(v0)
00:01:24 #2807 [verbose] > and closure6 (v0 : int32, v1 : char) (v2 : string) : string =
00:01:24 #2808 [verbose] > let v3 : string = v2.PadLeft (v0, v1)
00:01:24 #2809 [verbose] > v3
00:01:24 #2810 [verbose] > and closure5 (v0 : int32) (v1 : char) : (string -> string) =
00:01:24 #2811 [verbose] > closure6(v0, v1)
00:01:24 #2812 [verbose] > and closure4 () (v0 : int32) : (char -> (string -> string)) =
00:01:24 #2813 [verbose] > closure5(v0)
00:01:24 #2814 [verbose] > and closure8 (v0 : int32) (v1 : string) : string =
00:01:24 #2815 [verbose] > let v2 : stri...
00:01:24 #2816 [verbose] >
00:01:24 #2817 [verbose] > ── fsharp - import ─────────────────────────────────────────────────────────────
00:01:24 #2818 [verbose] > type ICryptoCreateHash = abstract createHash: x: string -> obj
00:01:24 #2819 [verbose] > type Mut0 = {mutable l0 : int32}
00:01:24 #2820 [verbose] > let rec method0 (v0 : int32, v1 : Mut0) : bool =
00:01:24 #2821 [verbose] > let v2 : int32 = v1.l0
00:01:24 #2822 [verbose] > let v3 : bool = v2 < v0
00:01:24 #2823 [verbose] > v3
00:01:24 #2824 [verbose] > and method1 () : string =
00:01:24 #2825 [verbose] > let v0 : string = ""
00:01:24 #2826 [verbose] > v0
00:01:24 #2827 [verbose] > and closure0 () (v0 : string) : string =
00:01:24 #2828 [verbose] > let v1 : string option = None
00:01:24 #2829 [verbose] > let mutable _v1 = v1
00:01:24 #2830 [verbose] > #if FABLE_COMPILER_RUST && !WASM && !CONTRACT
00:01:24 #2831 [verbose] > let v2 : string = null |> unbox<string>
00:01:24 #2832 [verbose] > v2
00:01:24 #2833 [verbose] > #endif
00:01:24 #2834 [verbose] > #if FABLE_COMPILER_RUST && WASM
00:01:24 #2835 [verbose] > let v3 : string = null |> unbox<string>
00:01:24 #2836 [verbose] > v3
00:01:24 #2837 [verbose] > #endif
00:01:24 #2838 [verbose] > #if FABLE_COMPILER_RUST && CONTRACT
00:01:24 #2839 [verbose] > let v4 : string = null |> unbox<string>
00:01:24 #2840 [verbose] > v4
00:01:24 #2841 [verbose] > #endif
00:01:24 #2842 [verbose] > #if !FABLE_COMPILER && !FABLE_COMPILER_RUST && !FABLE_COMPILER_TYP...
00:01:25 #2843 [verbose] >
00:01:25 #2844 [verbose] > ── fsharp - import ─────────────────────────────────────────────────────────────
00:01:25 #2845 [verbose] > let rec closure1 (v0 : System.Guid) (v1 : System.DateTime) : System.Guid =
00:01:25 #2846 [verbose] > let v2 : (System.Guid -> string) = _.ToString()
00:01:25 #2847 [verbose] > let v3 : string = v2 v0
00:01:25 #2848 [verbose] > let v4 : string = v1.ToString "yyyyMMdd-HHmm-ssff-ffff-f"
00:01:25 #2849 [verbose] > let v5 : System.Guid = System.Guid $"{v4}{v3.[[v4.Length..]]}"
00:01:25 #2850 [verbose] > v5
00:01:25 #2851 [verbose] > and closure0 () (v0 : System.Guid) : (System.DateTime -> System.Guid) =
00:01:25 #2852 [verbose] > closure1(v0)
00:01:25 #2853 [verbose] > and closure5 (v0 : string, v1 : string) (v2 : string) : string =
00:01:25 #2854 [verbose] > let v3 : string = v2.Replace (v0, v1)
00:01:25 #2855 [verbose] > v3
00:01:25 #2856 [verbose] > and closure4 (v0 : string) (v1 : string) : (string -> string) =
00:01:25 #2857 [verbose] > closure5(v0, v1)
00:01:25 #2858 [verbose] > and closure3 () (v0 : string) : (string -> (string -> string)) =
00:01:25 #2859 [verbose] > closure4(v0)
00:01:25 #2860 [verbose] > and method0 () : (string -> (string -> (string -> string))) =
00:01:25 #2861 [verbose] > closure3()
00:01:25 #2862 [verbose] > and closure2 (...
00:01:25 #2863 [verbose] >
00:01:25 #2864 [verbose] > ── fsharp - import ─────────────────────────────────────────────────────────────
00:01:25 #2865 [verbose] > let rec closure0 () (v0 : System.Threading.CancellationToken) :
00:01:25 #2866 [verbose] > Async<System.Threading.CancellationToken> =
00:01:25 #2867 [verbose] > let v1 : Async<System.Threading.CancellationToken> option = None
00:01:25 #2868 [verbose] > let mutable _v1 = v1
00:01:25 #2869 [verbose] > #if FABLE_COMPILER_RUST && !WASM && !CONTRACT
00:01:25 #2870 [verbose] > let v2 : Async<System.Threading.CancellationToken> = null |>
00:01:25 #2871 [verbose] > unbox<Async<System.Threading.CancellationToken>>
00:01:25 #2872 [verbose] > v2
00:01:25 #2873 [verbose] > #endif
00:01:25 #2874 [verbose] > #if FABLE_COMPILER_RUST && WASM
00:01:25 #2875 [verbose] > let v3 : Async<System.Threading.CancellationToken> = null |>
00:01:25 #2876 [verbose] > unbox<Async<System.Threading.CancellationToken>>
00:01:25 #2877 [verbose] > v3
00:01:25 #2878 [verbose] > #endif
00:01:25 #2879 [verbose] > #if FABLE_COMPILER_RUST && CONTRACT
00:01:25 #2880 [verbose] > let v4 : Async<System.Threading.CancellationToken> = null |>
00:01:25 #2881 [verbose] > unbox<Async<System.Threading.CancellationToken>>
00:01:25 #2882 [verbose] > v4
00:01:25 #2883 [verbose] > #endif
00:01:25 #2884 [verbose] > #if !FABLE_COMPILER...
00:01:25 #2885 [verbose] >
00:01:25 #2886 [verbose] > ── fsharp - import ─────────────────────────────────────────────────────────────
00:01:25 #2887 [verbose] > #if FABLE_COMPILER
00:01:25 #2888 [verbose] > [[<CompilationRepresentation (CompilationRepresentationFlags.ModuleSuffix)>]]
00:01:25 #2889 [verbose] > module System =
00:01:25 #2890 [verbose] > module Diagnostics =
00:01:25 #2891 [verbose] > type Process = unit
00:01:25 #2892 [verbose] > type DataReceivedEventArgs = unit
00:01:25 #2893 [verbose] > #endif
00:01:25 #2894 [verbose] > module State = let mutable trace_state = None
00:01:25 #2895 [verbose] > type [[<Struct>]] US0 =
00:01:25 #2896 [verbose] > | US0_0
00:01:25 #2897 [verbose] > | US0_1
00:01:25 #2898 [verbose] > | US0_2
00:01:25 #2899 [verbose] > | US0_3
00:01:25 #2900 [verbose] > | US0_4
00:01:25 #2901 [verbose] > and UH0 =
00:01:25 #2902 [verbose] > | UH0_0
00:01:25 #2903 [verbose] > | UH0_1 of char * UH0
00:01:25 #2904 [verbose] > and [[<Struct>]] US2 =
00:01:25 #2905 [verbose] > | US2_0
00:01:25 #2906 [verbose] > | US2_1
00:01:25 #2907 [verbose] > and [[<Struct>]] US1 =
00:01:25 #2908 [verbose] > | US1_0
00:01:25 #2909 [verbose] > | US1_1 of f1_0 : US2
00:01:25 #2910 [verbose] > | US1_2
00:01:25 #2911 [verbose] > and [[<Struct>]] US3 =
00:01:25 #2912 [verbose] > | US3_0 of f0_0 : string
00:01:25 #2913 [verbose] > | US3_1
00:01:25 #2914 [verbose] > and Mut0 = {mutable l0 : int64}
00:01:25 #2915 [verbose] > and Mut1 = {mutable l0 : bool}
00:01:25 #2916 [verbose] > and Mut2 = {mutable l0 : US0}
00:01:25 #2917 [verbose] > and [[<Struct>]] US4 =
00:01:25 #2918 [verbose] > | US4_0 of f0_0 : int64
00:01:25 #2919 [verbose] > | US4_1
00:01:25 #2920 [verbose] > and [[<Struct>]] US5 =
00:01:25 #2921 [verbose] > | US5_0 of f0_0 : i...
00:01:26 #2922 [verbose] >
00:01:26 #2923 [verbose] > ── fsharp - import ─────────────────────────────────────────────────────────────
00:01:26 #2924 [verbose] > #if FABLE_COMPILER // file_system.types
00:01:26 #2925 [verbose] > [[<Fable.Core.Erase; Fable.Core.Emit("str")>]] type Str = class end
00:01:26 #2926 [verbose] > [[<Fable.Core.Erase; Fable.Core.Emit("base64::DecodeError")>]] type
00:01:26 #2927 [verbose] > base64_DecodeError = class end
00:01:26 #2928 [verbose] > [[<Fable.Core.Erase; Fable.Core.Emit("borsh::io::Error")>]] type borsh_io_Error
00:01:26 #2929 [verbose] > = class end
00:01:26 #2930 [verbose] > [[<Fable.Core.Erase; Fable.Core.Emit("js_sys::JsString")>]] type js_sys_JsString
00:01:26 #2931 [verbose] > = class end
00:01:26 #2932 [verbose] > [[<Fable.Core.Erase; Fable.Core.Emit("serde_json::Error")>]] type
00:01:26 #2933 [verbose] > serde_json_Error = class end
00:01:26 #2934 [verbose] > [[<Fable.Core.Erase; Fable.Core.Emit("serde_json::Value")>]] type
00:01:26 #2935 [verbose] > serde_json_Value = class end
00:01:26 #2936 [verbose] > [[<Fable.Core.Erase; Fable.Core.Emit("serde_wasm_bindgen::Error")>]] type
00:01:26 #2937 [verbose] > serde_wasm_bindgen_Error = class end
00:01:26 #2938 [verbose] > [[<Fable.Core.Erase; Fable.Core.Emit("std::ffi::OsStr")>]] type std_ffi_O...
00:01:28 #2939 [verbose] >
00:01:28 #2940 [verbose] > ── fsharp - import ─────────────────────────────────────────────────────────────
00:01:28 #2941 [verbose] > module State = let mutable trace_state = None
00:01:28 #2942 [verbose] > type [[<Struct>]] US0 =
00:01:28 #2943 [verbose] > | US0_0
00:01:28 #2944 [verbose] > | US0_1
00:01:28 #2945 [verbose] > | US0_2
00:01:28 #2946 [verbose] > | US0_3
00:01:28 #2947 [verbose] > | US0_4
00:01:28 #2948 [verbose] > and Mut0 = {mutable l0 : int64}
00:01:28 #2949 [verbose] > and Mut1 = {mutable l0 : bool}
00:01:28 #2950 [verbose] > and Mut2 = {mutable l0 : US0}
00:01:28 #2951 [verbose] > and [[<Struct>]] US1 =
00:01:28 #2952 [verbose] > | US1_0 of f0_0 : int64
00:01:28 #2953 [verbose] > | US1_1
00:01:28 #2954 [verbose] > and [[<Struct>]] US2 =
00:01:28 #2955 [verbose] > | US2_0 of f0_0 : int64
00:01:28 #2956 [verbose] > | US2_1
00:01:28 #2957 [verbose] > let rec method1 (v0 : int64 option) : int64 option =
00:01:28 #2958 [verbose] > v0
00:01:28 #2959 [verbose] > and method2 (v0 : int64 option) : int64 option =
00:01:28 #2960 [verbose] > v0
00:01:28 #2961 [verbose] > and closure3 () () : struct (Mut0 * Mut1 * Mut1 * Mut2 * int64 option) =
00:01:28 #2962 [verbose] > let v0 : Mut1 = {l0 = true} : Mut1
00:01:28 #2963 [verbose] > let v1 : Mut0 = {l0 = 0L} : Mut0
00:01:28 #2964 [verbose] > let v2 : US0 = US0_0
00:01:28 #2965 [verbose] > let v3 : Mut2 = {l0 = v2} : Mut2
00:01:28 #2966 [verbose] > let v4 : Mut1 = {l0 = false} : Mut1
00:01:28 #2967 [verbose] > let v5 : int64 option option = None
00:01:28 #2968 [verbose] > ...
00:01:28 #2969 [verbose] >
00:01:28 #2970 [verbose] > ── fsharp - import ─────────────────────────────────────────────────────────────
00:01:28 #2971 [verbose] > module SpiralTrace =
00:01:28 #2972 [verbose] > let get_trace_state () =
00:01:28 #2973 [verbose] > #if !INTERACTIVE
00:01:28 #2974 [verbose] > Trace.get_trace_state ()
00:01:28 #2975 [verbose] > #else
00:01:28 #2976 [verbose] > get_trace_state ()
00:01:28 #2977 [verbose] > #endif
00:01:28 #2978 [verbose] >
00:01:28 #2979 [verbose] > let trace x =
00:01:28 #2980 [verbose] > #if !INTERACTIVE
00:01:28 #2981 [verbose] > Trace.trace x
00:01:28 #2982 [verbose] > #else
00:01:28 #2983 [verbose] > trace x
00:01:28 #2984 [verbose] > #endif
00:01:28 #2985 [verbose] >
00:01:28 #2986 [verbose] > type TraceLevel =
00:01:28 #2987 [verbose] > #if !INTERACTIVE
00:01:28 #2988 [verbose] > Trace.US0
00:01:28 #2989 [verbose] > #else
00:01:28 #2990 [verbose] > US0
00:01:28 #2991 [verbose] > #endif
00:01:28 #2992 [verbose] >
00:01:28 #2993 [verbose] > #if !FABLE_COMPILER && !WASM && !CONTRACT
00:01:28 #2994 [verbose] >
00:01:28 #2995 [verbose] > module SpiralAsync =
00:01:28 #2996 [verbose] > let merge_cancellation_token_with_default_async x =
00:01:28 #2997 [verbose] > #if !INTERACTIVE
00:01:28 #2998 [verbose] > Async_.merge_cancellation_token_with_default_async x
00:01:28 #2999 [verbose] > #else
00:01:28 #3000 [verbose] > merge_cancellation_token_with_default_async x
00:01:28 #3001 [verbose] > #endif
00:01:28 #3002 [verbose] >
00:01:28 #3003 [verbose] > module SpiralRuntime =
00:01:28 #3004 [verbose] > let get_executable_suffix () =
00:01:28 #3005 [verbose] > #if !INTERACTIVE
00:01:28 #3006 [verbose] > Runtime.get_executable_suffix ()
00:01:28 #3007 [verbose] > #else
00:01:28 #3008 [verbose] > get_executable_suffix ()
00:01:28 #3009 [verbose] > #endif
00:01:28 #3010 [verbose] >
00:01:28 #3011 [verbose] > let is...
00:01:28 #3012 [verbose] >
00:01:28 #3013 [verbose] > ── fsharp - import ─────────────────────────────────────────────────────────────
00:01:28 #3014 [verbose] > #r @"../../../../../../../.nuget/packages/expecto/10.2.1/lib/net6.0/Expecto.dll"
00:01:28 #3015 [verbose] >
00:01:28 #3016 [verbose] > ── fsharp - import ─────────────────────────────────────────────────────────────
00:01:28 #3017 [verbose] > //// test
00:01:28 #3018 [verbose] >
00:01:28 #3019 [verbose] > type AssertExceptionFormatter (ex) =
00:01:28 #3020 [verbose] > member _.Text =
00:01:28 #3021 [verbose] > ex.ToString()
00:01:28 #3022 [verbose] > .Replace("32m", "<span style=\"color: green;\">")
00:01:28 #3023 [verbose] > .Replace("36m", "</span>")
00:01:28 #3024 [verbose] > .Replace("31m", "<span style=\"color: red;\">")
00:01:28 #3025 [verbose] > .Replace("\n", "<br/>\n")
00:01:28 #3026 [verbose] >
00:01:28 #3027 [verbose] >
00:01:28 #3028 [verbose] > Formatter.Register<AssertExceptionFormatter> ((fun (x :
00:01:28 #3029 [verbose] > AssertExceptionFormatter) -> x.Text), "text/html")
00:01:28 #3030 [verbose] >
00:01:28 #3031 [verbose] > ── fsharp - import ─────────────────────────────────────────────────────────────
00:01:28 #3032 [verbose] > //// test
00:01:28 #3033 [verbose] >
00:01:28 #3034 [verbose] > let inline __expect fn log expected actual =
00:01:28 #3035 [verbose] > if log then printfn $"{actual.ToDisplayString ()}"
00:01:28 #3036 [verbose] > try
00:01:28 #3037 [verbose] > "Testing.__expect" |> fn actual expected
00:01:28 #3038 [verbose] > with :? Expecto.AssertException as ex ->
00:01:28 #3039 [verbose] > AssertExceptionFormatter(ex).Display () |> ignore
00:01:28 #3040 [verbose] > failwith (ex.GetType().FullName)
00:01:28 #3041 [verbose] >
00:01:28 #3042 [verbose] > let inline __contains log expected actual = __expect Expecto.Expect.contains log
00:01:28 #3043 [verbose] > expected actual
00:01:28 #3044 [verbose] > let inline _contains expected actual = __contains true expected actual
00:01:28 #3045 [verbose] >
00:01:28 #3046 [verbose] > let inline __assertEqual log expected actual = __expect Expecto.Expect.equal log
00:01:28 #3047 [verbose] > expected actual
00:01:28 #3048 [verbose] > let inline _assertEqual expected actual = __assertEqual true expected actual
00:01:28 #3049 [verbose] >
00:01:28 #3050 [verbose] > let inline __isGreaterThan log expected actual = __expect
00:01:28 #3051 [verbose] > Expecto.Expect.isGreaterThan log ex...
00:01:28 #3052 [verbose] >
00:01:28 #3053 [verbose] > ── fsharp - import ─────────────────────────────────────────────────────────────
00:01:28 #3054 [verbose] > //// test
00:01:28 #3055 [verbose] >
00:01:28 #3056 [verbose] > let inline __isBetween log a b actual =
00:01:28 #3057 [verbose] > let inline isBetween actual (a, b) _ =
00:01:28 #3058 [verbose] > __isGreaterThanOrEqual log a actual
00:01:28 #3059 [verbose] > __isLessThanOrEqual log b actual
00:01:28 #3060 [verbose] > __expect isBetween log (a, b) actual
00:01:28 #3061 [verbose] > let inline _isBetween a b actual = __isBetween true a b actual
00:01:28 #3062 [verbose] >
00:01:28 #3063 [verbose] > ── fsharp ──────────────────────────────────────────────────────────────────────
00:01:28 #3064 [verbose] > #r
00:01:28 #3065 [verbose] > @"../../../../../../../.nuget/packages/fsharp.control.asyncseq/3.2.1/lib/netstan
00:01:28 #3066 [verbose] > dard2.1/FSharp.Control.AsyncSeq.dll"
00:01:28 #3067 [verbose] > #r
00:01:28 #3068 [verbose] > @"../../../../../../../.nuget/packages/system.reactive/6.0.1-preview.1/lib/net6.
00:01:28 #3069 [verbose] > 0/System.Reactive.dll"
00:01:28 #3070 [verbose] > #r
00:01:28 #3071 [verbose] > @"../../../../../../../.nuget/packages/system.reactive.linq/6.0.1-preview.1/lib
00:01:28 #3072 [verbose] > netstandard2.0/System.Reactive.Linq.dll"
00:01:28 #3073 [verbose] > #r
00:01:28 #3074 [verbose] > @"../../../../../../../.nuget/packages/argu/6.2.2/lib/netstandard2.0/Argu.dll"
00:01:28 #3075 [verbose] > #r
00:01:28 #3076 [verbose] > @"../../../../../../../.nuget/packages/system.commandline/2.0.0-beta4.22272.1/li
00:01:28 #3077 [verbose] > b/net6.0/System.CommandLine.dll"
00:01:28 #3078 [verbose] >
00:01:28 #3079 [verbose] > ── fsharp ──────────────────────────────────────────────────────────────────────
00:01:28 #3080 [verbose] > #!import ../../lib/fsharp/Common.fs
00:01:28 #3081 [verbose] > #!import ../../lib/fsharp/CommonFSharp.fs
00:01:28 #3082 [verbose] > #!import ../../lib/fsharp/Async.fs
00:01:28 #3083 [verbose] > #!import ../../lib/fsharp/AsyncSeq.fs
00:01:28 #3084 [verbose] > #!import ../../lib/fsharp/Runtime.fs
00:01:28 #3085 [verbose] >
00:01:28 #3086 [verbose] > ── fsharp - import ─────────────────────────────────────────────────────────────
00:01:28 #3087 [verbose] > #if !INTERACTIVE
00:01:28 #3088 [verbose] > namespace Polyglot
00:01:28 #3089 [verbose] > #endif
00:01:28 #3090 [verbose] >
00:01:28 #3091 [verbose] > module Common =
00:01:28 #3092 [verbose] >
00:01:28 #3093 [verbose] > #if !INTERACTIVE
00:01:28 #3094 [verbose] > open Lib
00:01:28 #3095 [verbose] > #endif
00:01:28 #3096 [verbose] >
00:01:28 #3097 [verbose] > let nl = System.Environment.NewLine
00:01:28 #3098 [verbose] > let q = @""""
00:01:28 #3099 [verbose] >
00:01:28 #3100 [verbose] > let inline cons head tail = head :: tail
00:01:28 #3101 [verbose] >
00:01:28 #3102 [verbose] > /// ## memoize
00:01:28 #3103 [verbose] >
00:01:28 #3104 [verbose] > let inline memoize fn =
00:01:28 #3105 [verbose] > let result = lazy fn ()
00:01:28 #3106 [verbose] > fun () -> result.Value
00:01:28 #3107 [verbose] >
00:01:28 #3108 [verbose] > /// ## TraceLevel
00:01:28 #3109 [verbose] >
00:01:28 #3110 [verbose] > type TraceLevel =
00:01:28 #3111 [verbose] > | Verbose
00:01:28 #3112 [verbose] > | Debug
00:01:28 #3113 [verbose] > | Info
00:01:28 #3114 [verbose] > | Warning
00:01:28 #3115 [verbose] > | Critical
00:01:28 #3116 [verbose] >
00:01:28 #3117 [verbose] > let inline getLocals () = ""
00:01:28 #3118 [verbose] >
00:01:28 #3119 [verbose] > /// ## trace
00:01:28 #3120 [verbose] >
00:01:28 #3121 [verbose] > let to_trace_level = function
00:01:28 #3122 [verbose] > | Verbose -> SpiralTrace.TraceLevel.US0_0
00:01:28 #3123 [verbose] > | Debug -> SpiralTrace.TraceLevel.US0_1
00:01:28 #3124 [verbose] > | Info -> SpiralTrace.TraceLevel.US0_2
00:01:28 #3125 [verbose] > | Warning -> SpiralTrace.TraceLevel.US0_3
00:01:28 #3126 [verbose] > | Critical ->...
00:01:28 #3127 [verbose] >
00:01:28 #3128 [verbose] > ── fsharp - import ─────────────────────────────────────────────────────────────
00:01:28 #3129 [verbose] > #if !INTERACTIVE
00:01:28 #3130 [verbose] > namespace Polyglot
00:01:28 #3131 [verbose] > #endif
00:01:28 #3132 [verbose] >
00:01:28 #3133 [verbose] > module CommonFSharp =
00:01:28 #3134 [verbose] >
00:01:28 #3135 [verbose] > open Common
00:01:28 #3136 [verbose] >
00:01:28 #3137 [verbose] > /// ## getUnionCaseName
00:01:28 #3138 [verbose] >
00:01:28 #3139 [verbose] > let inline getUnionCaseName<'T> (x: 'T) =
00:01:28 #3140 [verbose] > match Reflection.FSharpValue.GetUnionFields(x, typeof<'T>) with
00:01:28 #3141 [verbose] > | case, _ -> case.Name
00:01:28 #3142 [verbose] >
00:01:28 #3143 [verbose] >
00:01:28 #3144 [verbose] > ── fsharp - import ─────────────────────────────────────────────────────────────
00:01:28 #3145 [verbose] > #if !INTERACTIVE
00:01:28 #3146 [verbose] > namespace Polyglot
00:01:28 #3147 [verbose] > #endif
00:01:28 #3148 [verbose] >
00:01:28 #3149 [verbose] > module Async =
00:01:28 #3150 [verbose] >
00:01:28 #3151 [verbose] > #if !INTERACTIVE
00:01:28 #3152 [verbose] > open Lib
00:01:28 #3153 [verbose] > #endif
00:01:28 #3154 [verbose] >
00:01:28 #3155 [verbose] > open Common
00:01:28 #3156 [verbose] >
00:01:28 #3157 [verbose] > /// ## choice
00:01:28 #3158 [verbose] >
00:01:28 #3159 [verbose] > let inline choice asyncs = async {
00:01:28 #3160 [verbose] > let e = Event<_> ()
00:01:28 #3161 [verbose] > use cts = new System.Threading.CancellationTokenSource ()
00:01:28 #3162 [verbose] > let fn =
00:01:28 #3163 [verbose] > asyncs
00:01:28 #3164 [verbose] > |> Seq.map (fun a -> async {
00:01:28 #3165 [verbose] > let! x = a
00:01:28 #3166 [verbose] > e.Trigger x
00:01:28 #3167 [verbose] > })
00:01:28 #3168 [verbose] > |> Async.Parallel
00:01:28 #3169 [verbose] > |> Async.Ignore
00:01:28 #3170 [verbose] > Async.Start (fn, cts.Token)
00:01:28 #3171 [verbose] > let! result = Async.AwaitEvent e.Publish
00:01:28 #3172 [verbose] > cts.Cancel ()
00:01:28 #3173 [verbose] > return result
00:01:28 #3174 [verbose] > }
00:01:28 #3175 [verbose] >
00:01:28 #3176 [verbose] > /// ## map
00:01:28 #3177 [verbose] >
00:01:28 #3178 [verbose] > let inline map fn a = async {
00:01:28 #3179 [verbose] > let! x = a
00:01:28 #3180 [verbose] > return fn x
00:01:28 #3181 [verbose] > }
00:01:28 #3182 [verbose] >
00:01:28 #3183 [verbose] > /// ## catch
00:01:28 #3184 [verbose] >
00:01:28 #3185 [verbose] > let inline catch a =
00:01:28 #3186 [verbose] > ...
00:01:29 #3187 [verbose] >
00:01:29 #3188 [verbose] > ── fsharp - import ─────────────────────────────────────────────────────────────
00:01:29 #3189 [verbose] > #if !INTERACTIVE
00:01:29 #3190 [verbose] > namespace Polyglot
00:01:29 #3191 [verbose] > #endif
00:01:29 #3192 [verbose] >
00:01:29 #3193 [verbose] > module AsyncSeq =
00:01:29 #3194 [verbose] >
00:01:29 #3195 [verbose] > #if !INTERACTIVE
00:01:29 #3196 [verbose] > open Lib
00:01:29 #3197 [verbose] > #endif
00:01:29 #3198 [verbose] >
00:01:29 #3199 [verbose] > open Common
00:01:29 #3200 [verbose] >
00:01:29 #3201 [verbose] > /// ## subscribeEvent
00:01:29 #3202 [verbose] >
00:01:29 #3203 [verbose] > let inline subscribeEvent (event: IEvent<'H, 'A>) map =
00:01:29 #3204 [verbose] > let observable = System.Reactive.Linq.Observable.FromEventPattern<'H,
00:01:29 #3205 [verbose] > 'A>(event.AddHandler, event.RemoveHandler)
00:01:29 #3206 [verbose] > System.Reactive.Linq.Observable.Select (observable, fun event -> map
00:01:29 #3207 [verbose] > event.EventArgs)
00:01:29 #3208 [verbose] > |> FSharp.Control.AsyncSeq.ofObservableBuffered
00:01:29 #3209 [verbose] >
00:01:29 #3210 [verbose] > let subscribeToken (token : System.Threading.CancellationToken) =
00:01:29 #3211 [verbose] > let tcs = new System.Threading.Tasks.TaskCompletionSource ()
00:01:29 #3212 [verbose] > System.Action tcs.SetResult |> token.Register |> ignore
00:01:29 #3213 [verbose] > let start = System.DateTime.Now.Ticks
00:01:29 #3214 [verbose] > FSharp.Control.A...
00:01:29 #3215 [verbose] >
00:01:29 #3216 [verbose] > ── fsharp - import ─────────────────────────────────────────────────────────────
00:01:29 #3217 [verbose] > #if !INTERACTIVE
00:01:29 #3218 [verbose] > namespace Polyglot
00:01:29 #3219 [verbose] > #endif
00:01:29 #3220 [verbose] >
00:01:29 #3221 [verbose] > module Runtime =
00:01:29 #3222 [verbose] >
00:01:29 #3223 [verbose] > #if !INTERACTIVE
00:01:29 #3224 [verbose] > open Lib
00:01:29 #3225 [verbose] > #endif
00:01:29 #3226 [verbose] >
00:01:29 #3227 [verbose] > open Common
00:01:29 #3228 [verbose] >
00:01:29 #3229 [verbose] > /// ## splitArgs
00:01:29 #3230 [verbose] >
00:01:29 #3231 [verbose] > let inline splitArgs commandLine =
00:01:29 #3232 [verbose] > commandLine
00:01:29 #3233 [verbose] > |> System.CommandLine.Parsing.CommandLineStringSplitter.Instance.Split
00:01:29 #3234 [verbose] >
00:01:29 #3235 [verbose] > /// ## parseArgs
00:01:29 #3236 [verbose] >
00:01:29 #3237 [verbose] > let inline parseArgs<'T when 'T :> Argu.IArgParserTemplate> args =
00:01:29 #3238 [verbose] > let assemblyName =
00:01:29 #3239 [verbose] > System.Reflection.Assembly.GetEntryAssembly().GetName().Name
00:01:29 #3240 [verbose] > let errorHandler : Argu.IExiter =
00:01:29 #3241 [verbose] > if [[ "Microsoft.DotNet.Interactive.App"; "dotnet-repl" ]] |>
00:01:29 #3242 [verbose] > List.contains assemblyName
00:01:29 #3243 [verbose] > then Argu.ExceptionExiter ()
00:01:29 #3244 [verbose] > else Argu.ProcessExiter (function Argu.ErrorCode.HelpText -> None |
00:01:29 #3245 [verbose] > _ -> Some System.ConsoleColor...
00:01:29 #3246 [verbose] >
00:01:29 #3247 [verbose] > ── fsharp ──────────────────────────────────────────────────────────────────────
00:01:29 #3248 [verbose] > #if !INTERACTIVE
00:01:29 #3249 [verbose] > open Lib
00:01:29 #3250 [verbose] > #endif
00:01:29 #3251 [verbose] >
00:01:29 #3252 [verbose] > ── fsharp ──────────────────────────────────────────────────────────────────────
00:01:29 #3253 [verbose] > open Common
00:01:29 #3254 [verbose] > open SpiralFileSystem.Operators
00:01:29 #3255 [verbose] >
00:01:29 #3256 [verbose] > ── markdown ────────────────────────────────────────────────────────────────────
00:01:29 #3257 [verbose] > ╭──────────────────────────────────────────────────────────────────────────────╮
00:01:29 #3258 [verbose] > │ ## watchDirectory │
00:01:29 #3259 [verbose] > ╰──────────────────────────────────────────────────────────────────────────────╯
00:01:29 #3260 [verbose] >
00:01:29 #3261 [verbose] > ── fsharp ──────────────────────────────────────────────────────────────────────
00:01:29 #3262 [verbose] > [[<RequireQualifiedAccess>]]
00:01:29 #3263 [verbose] > type FileSystemChangeType =
00:01:29 #3264 [verbose] > | Failure
00:01:29 #3265 [verbose] > | Changed
00:01:29 #3266 [verbose] > | Created
00:01:29 #3267 [verbose] > | Deleted
00:01:29 #3268 [verbose] > | Renamed
00:01:29 #3269 [verbose] >
00:01:29 #3270 [verbose] > [[<RequireQualifiedAccess>]]
00:01:29 #3271 [verbose] > type FileSystemChange =
00:01:29 #3272 [verbose] > | Failure of exn: exn
00:01:29 #3273 [verbose] > | Changed of path: string * content: string option
00:01:29 #3274 [verbose] > | Created of path: string * content: string option
00:01:29 #3275 [verbose] > | Deleted of path: string
00:01:29 #3276 [verbose] > | Renamed of oldPath: string * (string * string option)
00:01:29 #3277 [verbose] >
00:01:29 #3278 [verbose] >
00:01:29 #3279 [verbose] > let inline watchDirectoryWithFilter filter shouldReadContent path =
00:01:29 #3280 [verbose] > let fullPath = path |> System.IO.Path.GetFullPath
00:01:29 #3281 [verbose] > let getLocals () = $"filter: {filter} / {getLocals ()}"
00:01:29 #3282 [verbose] >
00:01:29 #3283 [verbose] > let watcher =
00:01:29 #3284 [verbose] > new System.IO.FileSystemWatcher (
00:01:29 #3285 [verbose] > Path = fullPath,
00:01:29 #3286 [verbose] > NotifyFilter = filter,
00:01:29 #3287 [verbose] > EnableRaisingEvents = true,
00:01:29 #3288 [verbose] > IncludeSubdirectories = true
00:01:29 #3289 [verbose] > )
00:01:29 #3290 [verbose] >
00:01:29 #3291 [verbose] > let inline getEventPath (path : string) =
00:01:29 #3292 [verbose] > path |> SpiralSm.trim |> SpiralSm.replace fullPath "" |>
00:01:29 #3293 [verbose] > SpiralSm.trim_start [[| '/'; '\\' |]]
00:01:29 #3294 [verbose] >
00:01:29 #3295 [verbose] > let inline ticks () =
00:01:29 #3296 [verbose] > System.DateTime.UtcNow.Ticks
00:01:29 #3297 [verbose] >
00:01:29 #3298 [verbose] > let changedStream =
00:01:29 #3299 [verbose] > AsyncSeq.subscribeEvent
00:01:29 #3300 [verbose] > watcher.Changed
00:01:29 #3301 [verbose] > (fun event ->
00:01:29 #3302 [verbose] > ticks (),
00:01:29 #3303 [verbose] > [[ FileSystemChange.Changed (getEventPath event.FullPath, None)
00:01:29 #3304 [verbose] > ]]
00:01:29 #3305 [verbose] > )
00:01:29 #3306 [verbose] >
00:01:29 #3307 [verbose] > let deletedStream =
00:01:29 #3308 [verbose] > AsyncSeq.subscribeEvent
00:01:29 #3309 [verbose] > watcher.Deleted
00:01:29 #3310 [verbose] > (fun event ->
00:01:29 #3311 [verbose] > ticks (),
00:01:29 #3312 [verbose] > [[ FileSystemChange.Deleted (getEventPath event.FullPath) ]]
00:01:29 #3313 [verbose] > )
00:01:29 #3314 [verbose] >
00:01:29 #3315 [verbose] > let createdStream =
00:01:29 #3316 [verbose] > AsyncSeq.subscribeEvent
00:01:29 #3317 [verbose] > watcher.Created
00:01:29 #3318 [verbose] > (fun event ->
00:01:29 #3319 [verbose] > let path = getEventPath event.FullPath
00:01:29 #3320 [verbose] > ticks (), [[
00:01:29 #3321 [verbose] > FileSystemChange.Created (path, None)
00:01:29 #3322 [verbose] > if SpiralRuntime.is_windows () then
00:01:29 #3323 [verbose] > FileSystemChange.Changed (path, None)
00:01:29 #3324 [verbose] > ]])
00:01:29 #3325 [verbose] >
00:01:29 #3326 [verbose] > let renamedStream =
00:01:29 #3327 [verbose] > AsyncSeq.subscribeEvent
00:01:29 #3328 [verbose] > watcher.Renamed
00:01:29 #3329 [verbose] > (fun event ->
00:01:29 #3330 [verbose] > ticks (), [[
00:01:29 #3331 [verbose] > FileSystemChange.Renamed (
00:01:29 #3332 [verbose] > getEventPath event.OldFullPath,
00:01:29 #3333 [verbose] > (getEventPath event.FullPath, None)
00:01:29 #3334 [verbose] > )
00:01:29 #3335 [verbose] > ]]
00:01:29 #3336 [verbose] > )
00:01:29 #3337 [verbose] >
00:01:29 #3338 [verbose] > let failureStream =
00:01:29 #3339 [verbose] > AsyncSeq.subscribeEvent
00:01:29 #3340 [verbose] > watcher.Error
00:01:29 #3341 [verbose] > (fun event -> ticks (), [[ FileSystemChange.Failure
00:01:29 #3342 [verbose] > (event.GetException ()) ]])
00:01:29 #3343 [verbose] >
00:01:29 #3344 [verbose] > let stream =
00:01:29 #3345 [verbose] > [[
00:01:29 #3346 [verbose] > changedStream
00:01:29 #3347 [verbose] > deletedStream
00:01:29 #3348 [verbose] > createdStream
00:01:29 #3349 [verbose] > renamedStream
00:01:29 #3350 [verbose] > failureStream
00:01:29 #3351 [verbose] > ]]
00:01:29 #3352 [verbose] > |> FSharp.Control.AsyncSeq.mergeAll
00:01:29 #3353 [verbose] > |> FSharp.Control.AsyncSeq.map (fun (t, events) ->
00:01:29 #3354 [verbose] > events
00:01:29 #3355 [verbose] > |> List.fold
00:01:29 #3356 [verbose] > (fun (i, events) event ->
00:01:29 #3357 [verbose] > i + 1L,
00:01:29 #3358 [verbose] > (t + i, event) :: events)
00:01:29 #3359 [verbose] > (0L, [[]])
00:01:29 #3360 [verbose] > |> snd
00:01:29 #3361 [verbose] > |> List.rev
00:01:29 #3362 [verbose] > )
00:01:29 #3363 [verbose] > |> FSharp.Control.AsyncSeq.concatSeq
00:01:29 #3364 [verbose] > |> FSharp.Control.AsyncSeq.mapAsyncParallel (fun (t, event) -> async {
00:01:29 #3365 [verbose] > match shouldReadContent event, event with
00:01:29 #3366 [verbose] > | true, FileSystemChange.Changed (path, _) ->
00:01:29 #3367 [verbose] > do! Async.Sleep 5
00:01:29 #3368 [verbose] > let! content = fullPath </> path |>
00:01:29 #3369 [verbose] > SpiralFileSystem.read_all_text_retry_async
00:01:29 #3370 [verbose] > return t, FileSystemChange.Changed (path, content)
00:01:29 #3371 [verbose] > | true, FileSystemChange.Created (path, _) ->
00:01:29 #3372 [verbose] > do! Async.Sleep 5
00:01:29 #3373 [verbose] > let! content = fullPath </> path |>
00:01:29 #3374 [verbose] > SpiralFileSystem.read_all_text_retry_async
00:01:29 #3375 [verbose] > return t, FileSystemChange.Created (path, content)
00:01:29 #3376 [verbose] > | true, FileSystemChange.Renamed (oldPath, (newPath, _)) ->
00:01:29 #3377 [verbose] > let! content = fullPath </> newPath |>
00:01:29 #3378 [verbose] > SpiralFileSystem.read_all_text_retry_async
00:01:29 #3379 [verbose] > return t, FileSystemChange.Renamed (oldPath, (newPath, content))
00:01:29 #3380 [verbose] > | _ -> return t, event
00:01:29 #3381 [verbose] > })
00:01:29 #3382 [verbose] >
00:01:29 #3383 [verbose] > let disposable =
00:01:29 #3384 [verbose] > new_disposable (fun () ->
00:01:29 #3385 [verbose] > trace Debug (fun () -> "watchWithFilter / Disposing watch stream")
00:01:29 #3386 [verbose] > getLocals
00:01:29 #3387 [verbose] > watcher.EnableRaisingEvents <- false
00:01:29 #3388 [verbose] > watcher.Dispose ()
00:01:29 #3389 [verbose] > )
00:01:29 #3390 [verbose] >
00:01:29 #3391 [verbose] > stream, disposable
00:01:29 #3392 [verbose] >
00:01:29 #3393 [verbose] > let inline watchDirectory path =
00:01:29 #3394 [verbose] > watchDirectoryWithFilter
00:01:29 #3395 [verbose] > (System.IO.NotifyFilters.FileName
00:01:29 #3396 [verbose] > // ||| System.IO.NotifyFilters.DirectoryName
00:01:29 #3397 [verbose] > // ||| System.IO.NotifyFilters.Attributes
00:01:29 #3398 [verbose] > //// ||| System.IO.NotifyFilters.Size
00:01:29 #3399 [verbose] > ||| System.IO.NotifyFilters.LastWrite
00:01:29 #3400 [verbose] > //// ||| System.IO.NotifyFilters.LastAccess
00:01:29 #3401 [verbose] > // ||| System.IO.NotifyFilters.CreationTime
00:01:29 #3402 [verbose] > // ||| System.IO.NotifyFilters.Security
00:01:29 #3403 [verbose] > )
00:01:29 #3404 [verbose] > path
00:01:30 #3405 [verbose] >
00:01:30 #3406 [verbose] > ── markdown ────────────────────────────────────────────────────────────────────
00:01:30 #3407 [verbose] > ╭──────────────────────────────────────────────────────────────────────────────╮
00:01:30 #3408 [verbose] > │ ### testEventsRaw (test) │
00:01:30 #3409 [verbose] > ╰──────────────────────────────────────────────────────────────────────────────╯
00:01:30 #3410 [verbose] >
00:01:30 #3411 [verbose] > ── fsharp ──────────────────────────────────────────────────────────────────────
00:01:30 #3412 [verbose] > //// test
00:01:30 #3413 [verbose] >
00:01:30 #3414 [verbose] > let inline testEventsRaw
00:01:30 #3415 [verbose] > (watchFn : (_ -> bool) -> string -> FSharp.Control.AsyncSeq<int64 *
00:01:30 #3416 [verbose] > FileSystemChange> * IDisposable)
00:01:30 #3417 [verbose] > write
00:01:30 #3418 [verbose] > =
00:01:30 #3419 [verbose] > let struct (tempDir, tempDisposable) =
00:01:30 #3420 [verbose] > SpiralFileSystem.create_temp_directory ()
00:01:30 #3421 [verbose] > let stream, disposable = watchFn (fun _ -> true) tempDir
00:01:30 #3422 [verbose] >
00:01:30 #3423 [verbose] > let events = System.Collections.Concurrent.ConcurrentBag ()
00:01:30 #3424 [verbose] >
00:01:30 #3425 [verbose] > let inline iter () =
00:01:30 #3426 [verbose] > stream
00:01:30 #3427 [verbose] > |> FSharp.Control.AsyncSeq.iterAsyncParallel (fun event -> async {
00:01:30 #3428 [verbose] > events.Add event })
00:01:30 #3429 [verbose] >
00:01:30 #3430 [verbose] > let run = async {
00:01:30 #3431 [verbose] > let! _ = iter () |> Async.StartChild
00:01:30 #3432 [verbose] > do! Async.Sleep 250
00:01:30 #3433 [verbose] > return! write tempDir
00:01:30 #3434 [verbose] > }
00:01:30 #3435 [verbose] >
00:01:30 #3436 [verbose] > try
00:01:30 #3437 [verbose] > run
00:01:30 #3438 [verbose] > |> Async.runWithTimeout 60000
00:01:30 #3439 [verbose] > |> _assertEqual (Some ())
00:01:30 #3440 [verbose] > finally
00:01:30 #3441 [verbose] > disposable.Dispose ()
00:01:30 #3442 [verbose] > tempDisposable.Dispose ()
00:01:30 #3443 [verbose] >
00:01:30 #3444 [verbose] > let eventsLog =
00:01:30 #3445 [verbose] > events
00:01:30 #3446 [verbose] > |> Seq.toList
00:01:30 #3447 [verbose] > |> List.sortBy fst
00:01:30 #3448 [verbose] > |> List.fold
00:01:30 #3449 [verbose] > (fun (prev, acc) (ticks, event) ->
00:01:30 #3450 [verbose] > ticks, (ticks, (if prev = 0L then 0L else ticks - prev), event)
00:01:30 #3451 [verbose] > :: acc
00:01:30 #3452 [verbose] > )
00:01:30 #3453 [verbose] > (0L, [[]])
00:01:30 #3454 [verbose] > |> snd
00:01:30 #3455 [verbose] > |> List.rev
00:01:30 #3456 [verbose] > |> List.map (fun (diff, n, event) -> $"{n} / {diff} / {event}" |>
00:01:30 #3457 [verbose] > SpiralSm.ellipsis_end 100L)
00:01:30 #3458 [verbose] > |> SpiralSm.concat "\n"
00:01:30 #3459 [verbose] > let getLocals () = $"eventsLog: \n{eventsLog} / {getLocals ()}"
00:01:30 #3460 [verbose] > trace Debug (fun () -> "testEventsRaw") getLocals
00:01:30 #3461 [verbose] >
00:01:30 #3462 [verbose] > events
00:01:30 #3463 [verbose] > |> Seq.toList
00:01:30 #3464 [verbose] > |> List.sortBy fst
00:01:30 #3465 [verbose] > |> List.map snd
00:01:30 #3466 [verbose] > |> List.fold
00:01:30 #3467 [verbose] > (fun acc event ->
00:01:30 #3468 [verbose] > match acc, event with
00:01:30 #3469 [verbose] > | FileSystemChange.Changed (lastPath, Some lastContent) as lastEvent
00:01:30 #3470 [verbose] > :: acc,
00:01:30 #3471 [verbose] > FileSystemChange.Changed (path, Some content)
00:01:30 #3472 [verbose] > when lastPath = path && content |> SpiralSm.starts_with
00:01:30 #3473 [verbose] > lastContent
00:01:30 #3474 [verbose] > ->
00:01:30 #3475 [verbose] > event :: acc
00:01:30 #3476 [verbose] > | _ -> event :: acc
00:01:30 #3477 [verbose] > )
00:01:30 #3478 [verbose] > [[]]
00:01:30 #3479 [verbose] > |> List.rev
00:01:30 #3480 [verbose] >
00:01:30 #3481 [verbose] > ── markdown ────────────────────────────────────────────────────────────────────
00:01:30 #3482 [verbose] > ╭──────────────────────────────────────────────────────────────────────────────╮
00:01:30 #3483 [verbose] > │ #### fast (test) │
00:01:30 #3484 [verbose] > ╰──────────────────────────────────────────────────────────────────────────────╯
00:01:30 #3485 [verbose] >
00:01:30 #3486 [verbose] > ── fsharp ──────────────────────────────────────────────────────────────────────
00:01:30 #3487 [verbose] > //// test
00:01:30 #3488 [verbose] >
00:01:30 #3489 [verbose] > let inline write path = async {
00:01:30 #3490 [verbose] > let n = 2
00:01:30 #3491 [verbose] >
00:01:30 #3492 [verbose] > for i = 1 to n do
00:01:30 #3493 [verbose] > do! $"a{i}" |> SpiralFileSystem.write_all_text_async (path </>
00:01:30 #3494 [verbose] > $"file{i}.txt")
00:01:30 #3495 [verbose] >
00:01:30 #3496 [verbose] > do! Async.Sleep 250
00:01:30 #3497 [verbose] >
00:01:30 #3498 [verbose] > for i = 1 to n do
00:01:30 #3499 [verbose] > do! $"b{i}" |> SpiralFileSystem.write_all_text_async (path </>
00:01:30 #3500 [verbose] > $"file{i}.txt")
00:01:30 #3501 [verbose] >
00:01:30 #3502 [verbose] > do! Async.Sleep 250
00:01:30 #3503 [verbose] >
00:01:30 #3504 [verbose] > for i = 1 to n do
00:01:30 #3505 [verbose] > do! path </> $"file{i}.txt" |> SpiralFileSystem.move_file_async (path
00:01:30 #3506 [verbose] > </> $"file_{i}.txt") |> Async.Ignore
00:01:30 #3507 [verbose] >
00:01:30 #3508 [verbose] > do! Async.Sleep 250
00:01:30 #3509 [verbose] >
00:01:30 #3510 [verbose] > for i = 1 to n do
00:01:30 #3511 [verbose] > do! $"c{i}" |> SpiralFileSystem.write_all_text_async (path </>
00:01:30 #3512 [verbose] > $"file_{i}.txt")
00:01:30 #3513 [verbose] >
00:01:30 #3514 [verbose] > do! Async.Sleep 250
00:01:30 #3515 [verbose] >
00:01:30 #3516 [verbose] > for i = 1 to n do
00:01:30 #3517 [verbose] > do! SpiralFileSystem.delete_file_async (path </> $"file_{i}.txt") |>
00:01:30 #3518 [verbose] > Async.Ignore
00:01:30 #3519 [verbose] >
00:01:30 #3520 [verbose] > do! Async.Sleep 250
00:01:30 #3521 [verbose] > }
00:01:30 #3522 [verbose] >
00:01:30 #3523 [verbose] > let inline run () =
00:01:30 #3524 [verbose] > let events = testEventsRaw watchDirectory write
00:01:30 #3525 [verbose] >
00:01:30 #3526 [verbose] > events
00:01:30 #3527 [verbose] > |> _sequenceEqual [[
00:01:30 #3528 [verbose] > FileSystemChange.Created ("file1.txt", Some "a1")
00:01:30 #3529 [verbose] > FileSystemChange.Changed ("file1.txt", Some "a1")
00:01:30 #3530 [verbose] > FileSystemChange.Created ("file2.txt", Some "a2")
00:01:30 #3531 [verbose] > FileSystemChange.Changed ("file2.txt", Some "a2")
00:01:30 #3532 [verbose] >
00:01:30 #3533 [verbose] > FileSystemChange.Changed ("file1.txt", Some "b1")
00:01:30 #3534 [verbose] > FileSystemChange.Changed ("file2.txt", Some "b2")
00:01:30 #3535 [verbose] >
00:01:30 #3536 [verbose] > FileSystemChange.Renamed ("file1.txt", ("file_1.txt", Some "b1"))
00:01:30 #3537 [verbose] > FileSystemChange.Renamed ("file2.txt", ("file_2.txt", Some "b2"))
00:01:30 #3538 [verbose] >
00:01:30 #3539 [verbose] > FileSystemChange.Changed ("file_1.txt", Some "c1")
00:01:30 #3540 [verbose] > FileSystemChange.Changed ("file_2.txt", Some "c2")
00:01:30 #3541 [verbose] >
00:01:30 #3542 [verbose] > FileSystemChange.Deleted "file_1.txt"
00:01:30 #3543 [verbose] > FileSystemChange.Deleted "file_2.txt"
00:01:30 #3544 [verbose] > ]]
00:01:30 #3545 [verbose] >
00:01:30 #3546 [verbose] > run
00:01:30 #3547 [verbose] > |> retry_fn 3
00:01:30 #3548 [verbose] > |> _assertEqual (Some ())
00:01:33 #3549 [verbose] >
00:01:33 #3550 [verbose] > ╭─[ 2.89s - stdout ]───────────────────────────────────────────────────────────╮
00:01:33 #3551 [verbose] > │ FSharpOption<Unit> │
00:01:33 #3552 [verbose] > │ Value: <null> │
00:01:33 #3553 [verbose] > │ 00:00:00 #1 [debug] watchWithFilter / Disposing watch stream / filter: │
00:01:33 #3554 [verbose] > │ FileName, LastWrite │
00:01:33 #3555 [verbose] > │ 00:00:00 #2 [debug] testEventsRaw / eventsLog: │
00:01:33 #3556 [verbose] > │ 0 / 638485948382513983 / Created ("file1.txt", Some "a1") │
00:01:33 #3557 [verbose] > │ 1 / 638485948382513984 / Changed ("file1.txt", Some "a1") │
00:01:33 #3558 [verbose] > │ 24510 / 638485948382538494 / Changed ("file1.txt", Some "a1") │
00:01:33 #3559 [verbose] > │ 805 / 638485948382539299 / Created ("file2.txt", Some "a2") │
00:01:33 #3560 [verbose] > │ 1 / 638485948382539300 / Changed ("file2.txt", Some "a2") │
00:01:33 #3561 [verbose] > │ 49 / 638485948382539349 / Changed ("file2.txt", Some "a2") │
00:01:33 #3562 [verbose] > │ 2577185 / 638485948385116534 / Changed ("file1.txt", Some "b1") │
00:01:33 #3563 [verbose] > │ 2591 / 638485948385119125 / Changed ("file1.txt", Some "b1") │
00:01:33 #3564 [verbose] > │ 9818 / 638485948385128943 / Changed ("file2.txt", Some "b2") │
00:01:33 #3565 [verbose] > │ 2557 / 638485948385131500 / Changed ("file2.txt", Some "b2") │
00:01:33 #3566 [verbose] > │ 2663813 / 638485948387795313 / Renamed ("file1.txt", ("file_1.txt", Some │
00:01:33 #3567 [verbose] > │ "b1")) │
00:01:33 #3568 [verbose] > │ 18949 / 638485948387814262 / Renamed ("file2.txt", ("file_2.txt", Some │
00:01:33 #3569 [verbose] > │ "b2")) │
00:01:33 #3570 [verbose] > │ 2466395 / 638485948390280657 / Changed ("file_1.txt", Some "c1") │
00:01:33 #3571 [verbose] > │ 2496 / 638485948390283153 / Changed ("file_1.txt", Some "c1") │
00:01:33 #3572 [verbose] > │ 6151 / 638485948390289304 / Changed ("file_2.txt", Some "c2") │
00:01:33 #3573 [verbose] > │ 1563 / 638485948390290867 / Changed ("file_2.txt", Some "c2") │
00:01:33 #3574 [verbose] > │ 2566882 / 638485948392857749 / Deleted "file_1.txt" │
00:01:33 #3575 [verbose] > │ 4139 / 638485948392861888 / Deleted "file_2.txt" │
00:01:33 #3576 [verbose] > │ FSharpList<FileSystemChange> │
00:01:33 #3577 [verbose] > │ - path: file1.txt │
00:01:33 #3578 [verbose] > │ content: FSharpOption<String> │
00:01:33 #3579 [verbose] > │ Value: a1 │
00:01:33 #3580 [verbose] > │ IsFailure: False │
00:01:33 #3581 [verbose] > │ IsChanged: False │
00:01:33 #3582 [verbose] > │ IsCreated: True │
00:01:33 #3583 [verbose] > │ IsDeleted: False │
00:01:33 #3584 [verbose] > │ IsRenamed: False │
00:01:33 #3585 [verbose] > │ - path: file1.txt │
00:01:33 #3586 [verbose] > │ content: FSharpOption<String> │
00:01:33 #3587 [verbose] > │ Value: a1 │
00:01:33 #3588 [verbose] > │ IsFailure: False │
00:01:33 #3589 [verbose] > │ IsChanged: True │
00:01:33 #3590 [verbose] > │ IsCreated: False │
00:01:33 #3591 [verbose] > │ IsDeleted: False │
00:01:33 #3592 [verbose] > │ IsRenamed: False │
00:01:33 #3593 [verbose] > │ - path: file2.txt │
00:01:33 #3594 [verbose] > │ content: FSharpOption<String> │
00:01:33 #3595 [verbose] > │ Value: a2 │
00:01:33 #3596 [verbose] > │ IsFailure: False │
00:01:33 #3597 [verbose] > │ IsChanged: False │
00:01:33 #3598 [verbose] > │ IsCreated: True │
00:01:33 #3599 [verbose] > │ IsDeleted: False │
00:01:33 #3600 [verbose] > │ IsRenamed: False │
00:01:33 #3601 [verbose] > │ - path: file2.txt │
00:01:33 #3602 [verbose] > │ content: FSharpOption<String> │
00:01:33 #3603 [verbose] > │ Value: a2 │
00:01:33 #3604 [verbose] > │ IsFailure: False │
00:01:33 #3605 [verbose] > │ IsChanged: True │
00:01:33 #3606 [verbose] > │ IsCreated: False │
00:01:33 #3607 [verbose] > │ IsDeleted: False │
00:01:33 #3608 [verbose] > │ IsRenamed: False │
00:01:33 #3609 [verbose] > │ - path: file1.txt │
00:01:33 #3610 [verbose] > │ content: FSharpOption<String> │
00:01:33 #3611 [verbose] > │ Value: b1 │
00:01:33 #3612 [verbose] > │ IsFailure: False │
00:01:33 #3613 [verbose] > │ IsChanged: True │
00:01:33 #3614 [verbose] > │ IsCreated: False │
00:01:33 #3615 [verbose] > │ IsDeleted: False │
00:01:33 #3616 [verbose] > │ IsRenamed: False │
00:01:33 #3617 [verbose] > │ - path: file2.txt │
00:01:33 #3618 [verbose] > │ content: FSharpOption<String> │
00:01:33 #3619 [verbose] > │ Value: b2 │
00:01:33 #3620 [verbose] > │ IsFailure: False │
00:01:33 #3621 [verbose] > │ IsChanged: True │
00:01:33 #3622 [verbose] > │ IsCreated: False │
00:01:33 #3623 [verbose] > │ IsDeleted: False │
00:01:33 #3624 [verbose] > │ IsRenamed: False │
00:01:33 #3625 [verbose] > │ - oldPath: file1.txt │
00:01:33 #3626 [verbose] > │ Item2: - file_1.txt │
00:01:33 #3627 [verbose] > │ - FSharpOption<String> │
00:01:33 #3628 [verbose] > │ Value: b1 │
00:01:33 #3629 [verbose] > │ - IsFailure: False │
00:01:33 #3630 [verbose] > │ IsChanged: False │
00:01:33 #3631 [verbose] > │ IsCreated: False │
00:01:33 #3632 [verbose] > │ IsDeleted: False │
00:01:33 #3633 [verbose] > │ IsRenamed: True │
00:01:33 #3634 [verbose] > │ - oldPath: file2.txt │
00:01:33 #3635 [verbose] > │ Item2: - file_2.txt │
00:01:33 #3636 [verbose] > │ - FSharpOption<String> │
00:01:33 #3637 [verbose] > │ Value: b2 │
00:01:33 #3638 [verbose] > │ - IsFailure: False │
00:01:33 #3639 [verbose] > │ IsChanged: False │
00:01:33 #3640 [verbose] > │ IsCreated: False │
00:01:33 #3641 [verbose] > │ IsDeleted: False │
00:01:33 #3642 [verbose] > │ IsRenamed: True │
00:01:33 #3643 [verbose] > │ - path: file_1.txt │
00:01:33 #3644 [verbose] > │ content: FSharpOption<String> │
00:01:33 #3645 [verbose] > │ Value: c1 │
00:01:33 #3646 [verbose] > │ IsFailure: False │
00:01:33 #3647 [verbose] > │ IsChanged: True │
00:01:33 #3648 [verbose] > │ IsCreated: False │
00:01:33 #3649 [verbose] > │ IsDeleted: False │
00:01:33 #3650 [verbose] > │ IsRenamed: False │
00:01:33 #3651 [verbose] > │ - path: file_2.txt │
00:01:33 #3652 [verbose] > │ content: FSharpOption<String> │
00:01:33 #3653 [verbose] > │ Value: c2 │
00:01:33 #3654 [verbose] > │ IsFailure: False │
00:01:33 #3655 [verbose] > │ IsChanged: True │
00:01:33 #3656 [verbose] > │ IsCreated: False │
00:01:33 #3657 [verbose] > │ IsDeleted: False │
00:01:33 #3658 [verbose] > │ IsRenamed: False │
00:01:33 #3659 [verbose] > │ - path: file_1.txt │
00:01:33 #3660 [verbose] > │ IsFailure: False │
00:01:33 #3661 [verbose] > │ IsChanged: False │
00:01:33 #3662 [verbose] > │ IsCreated: False │
00:01:33 #3663 [verbose] > │ IsDeleted: True │
00:01:33 #3664 [verbose] > │ IsRenamed: False │
00:01:33 #3665 [verbose] > │ - path: file_2.txt │
00:01:33 #3666 [verbose] > │ IsFailure: False │
00:01:33 #3667 [verbose] > │ IsChanged: False │
00:01:33 #3668 [verbose] > │ IsCreated: False │
00:01:33 #3669 [verbose] > │ IsDeleted: True │
00:01:33 #3670 [verbose] > │ IsRenamed: False │
00:01:33 #3671 [verbose] > │ FSharpOption<Unit> │
00:01:33 #3672 [verbose] > │ Value: <null> │
00:01:33 #3673 [verbose] > │ │
00:01:33 #3674 [verbose] > ╰──────────────────────────────────────────────────────────────────────────────╯
00:01:33 #3675 [verbose] >
00:01:33 #3676 [verbose] > ── markdown ────────────────────────────────────────────────────────────────────
00:01:33 #3677 [verbose] > ╭──────────────────────────────────────────────────────────────────────────────╮
00:01:33 #3678 [verbose] > │ #### slow (test) │
00:01:33 #3679 [verbose] > ╰──────────────────────────────────────────────────────────────────────────────╯
00:01:33 #3680 [verbose] >
00:01:33 #3681 [verbose] > ── fsharp ──────────────────────────────────────────────────────────────────────
00:01:33 #3682 [verbose] > //// test
00:01:33 #3683 [verbose] >
00:01:33 #3684 [verbose] > let inline write path = async {
00:01:33 #3685 [verbose] > let n = 2
00:01:33 #3686 [verbose] >
00:01:33 #3687 [verbose] > let contents =
00:01:33 #3688 [verbose] > [[ 1 .. n ]]
00:01:33 #3689 [verbose] > |> List.map (string >> String.replicate 1_000_000)
00:01:33 #3690 [verbose] >
00:01:33 #3691 [verbose] > for i = 1 to n do
00:01:33 #3692 [verbose] > do! $"{contents.[[i - 1]]}a" |> SpiralFileSystem.write_all_text_async
00:01:33 #3693 [verbose] > (path </> $"file{i}.txt")
00:01:33 #3694 [verbose] >
00:01:33 #3695 [verbose] > do! Async.Sleep 1500
00:01:33 #3696 [verbose] >
00:01:33 #3697 [verbose] > for i = 1 to n do
00:01:33 #3698 [verbose] > do! $"{contents.[[i - 1]]}b" |> SpiralFileSystem.write_all_text_async
00:01:33 #3699 [verbose] > (path </> $"file{i}.txt")
00:01:33 #3700 [verbose] >
00:01:33 #3701 [verbose] > do! Async.Sleep 1500
00:01:33 #3702 [verbose] >
00:01:33 #3703 [verbose] > for i = 1 to n do
00:01:33 #3704 [verbose] > do! path </> $"file{i}.txt" |> SpiralFileSystem.move_file_async (path
00:01:33 #3705 [verbose] > </> $"file_{i}.txt") |> Async.Ignore
00:01:33 #3706 [verbose] >
00:01:33 #3707 [verbose] > do! Async.Sleep 1500
00:01:33 #3708 [verbose] >
00:01:33 #3709 [verbose] > for i = 1 to n do
00:01:33 #3710 [verbose] > do! $"{contents.[[i - 1]]}c" |> SpiralFileSystem.write_all_text_async
00:01:33 #3711 [verbose] > (path </> $"file_{i}.txt")
00:01:33 #3712 [verbose] >
00:01:33 #3713 [verbose] > do! Async.Sleep 1500
00:01:33 #3714 [verbose] >
00:01:33 #3715 [verbose] > for i = 1 to n do
00:01:33 #3716 [verbose] > do! SpiralFileSystem.delete_file_async (path </> $"file_{i}.txt") |>
00:01:33 #3717 [verbose] > Async.Ignore
00:01:33 #3718 [verbose] >
00:01:33 #3719 [verbose] > do! Async.Sleep 1500
00:01:33 #3720 [verbose] > }
00:01:33 #3721 [verbose] >
00:01:33 #3722 [verbose] > let inline run () =
00:01:33 #3723 [verbose] > let events =
00:01:33 #3724 [verbose] > testEventsRaw watchDirectory write
00:01:33 #3725 [verbose] > |> List.map (function
00:01:33 #3726 [verbose] > | FileSystemChange.Changed (path, Some content) ->
00:01:33 #3727 [verbose] > FileSystemChange.Changed (path, content |> Seq.distinct |>
00:01:33 #3728 [verbose] > Seq.map string |> SpiralSm.concat "" |> Some)
00:01:33 #3729 [verbose] > | FileSystemChange.Created (path, Some content) ->
00:01:33 #3730 [verbose] > FileSystemChange.Created (path, content |> Seq.distinct |>
00:01:33 #3731 [verbose] > Seq.map string |> SpiralSm.concat "" |> Some)
00:01:33 #3732 [verbose] > | FileSystemChange.Renamed (oldPath, (newPath, Some content)) ->
00:01:33 #3733 [verbose] > FileSystemChange.Renamed (
00:01:33 #3734 [verbose] > oldPath,
00:01:33 #3735 [verbose] > (newPath, content |> Seq.distinct |> Seq.map string |>
00:01:33 #3736 [verbose] > SpiralSm.concat "" |> Some)
00:01:33 #3737 [verbose] > )
00:01:33 #3738 [verbose] > | event -> event
00:01:33 #3739 [verbose] > )
00:01:33 #3740 [verbose] >
00:01:33 #3741 [verbose] > events
00:01:33 #3742 [verbose] > |> _sequenceEqual [[
00:01:33 #3743 [verbose] > FileSystemChange.Created ("file1.txt", Some "1a")
00:01:33 #3744 [verbose] > FileSystemChange.Changed ("file1.txt", Some "1a")
00:01:33 #3745 [verbose] > FileSystemChange.Created ("file2.txt", Some "2a")
00:01:33 #3746 [verbose] > FileSystemChange.Changed ("file2.txt", Some "2a")
00:01:33 #3747 [verbose] >
00:01:33 #3748 [verbose] > FileSystemChange.Changed ("file1.txt", Some "1b")
00:01:33 #3749 [verbose] > FileSystemChange.Changed ("file2.txt", Some "2b")
00:01:33 #3750 [verbose] >
00:01:33 #3751 [verbose] > FileSystemChange.Renamed ("file1.txt", ("file_1.txt", Some "1b"))
00:01:33 #3752 [verbose] > FileSystemChange.Renamed ("file2.txt", ("file_2.txt", Some "2b"))
00:01:33 #3753 [verbose] >
00:01:33 #3754 [verbose] > FileSystemChange.Changed ("file_1.txt", Some "1c")
00:01:33 #3755 [verbose] > FileSystemChange.Changed ("file_2.txt", Some "2c")
00:01:33 #3756 [verbose] >
00:01:33 #3757 [verbose] > FileSystemChange.Deleted "file_1.txt"
00:01:33 #3758 [verbose] > FileSystemChange.Deleted "file_2.txt"
00:01:33 #3759 [verbose] > ]]
00:01:33 #3760 [verbose] >
00:01:33 #3761 [verbose] > run
00:01:33 #3762 [verbose] > |> retry_fn 5
00:01:33 #3763 [verbose] > |> _assertEqual (Some ())
00:01:43 #3764 [verbose] >
00:01:43 #3765 [verbose] > ╭─[ 9.75s - stdout ]───────────────────────────────────────────────────────────╮
00:01:43 #3766 [verbose] > │ FSharpOption<Unit> │
00:01:43 #3767 [verbose] > │ Value: <null> │
00:01:43 #3768 [verbose] > │ 00:00:09 #3 [debug] watchWithFilter / Disposing watch stream / filter: │
00:01:43 #3769 [verbose] > │ FileName, LastWrite │
00:01:43 #3770 [verbose] > │ 00:00:09 #4 [debug] testEventsRaw / eventsLog: │
00:01:43 #3771 [verbose] > │ 0 / 638485948414359385 / Created │
00:01:43 #3772 [verbose] > │ ("file1.txt", │
00:01:43 #3773 [verbose] > │ ...11111111111111111111111111111111111111111111111a") │
00:01:43 #3774 [verbose] > │ 1 / 638485948414359386 / Changed │
00:01:43 #3775 [verbose] > │ ("file1.txt", │
00:01:43 #3776 [verbose] > │ ...11111111111111111111111111111111111111111111111a") │
00:01:43 #3777 [verbose] > │ 113142 / 638485948414472528 / Changed │
00:01:43 #3778 [verbose] > │ ("file1.tx...11111111111111111111111111111111111111111111111a") │
00:01:43 #3779 [verbose] > │ 18811 / 638485948414491339 / Created │
00:01:43 #3780 [verbose] > │ ("file2.txt...22222222222222222222222222222222222222222222222a") │
00:01:43 #3781 [verbose] > │ 1 / 638485948414491340 / Changed │
00:01:43 #3782 [verbose] > │ ("file2.txt", │
00:01:43 #3783 [verbose] > │ ...22222222222222222222222222222222222222222222222a") │
00:01:43 #3784 [verbose] > │ 120541 / 638485948414611881 / Changed │
00:01:43 #3785 [verbose] > │ ("file2.tx...22222222222222222222222222222222222222222222222a") │
00:01:43 #3786 [verbose] > │ 15002488 / 638485948429614369 / Changed │
00:01:43 #3787 [verbose] > │ ("file1....11111111111111111111111111111111111111111111111b") │
00:01:43 #3788 [verbose] > │ 58926 / 638485948429673295 / Changed │
00:01:43 #3789 [verbose] > │ ("file1.txt...11111111111111111111111111111111111111111111111b") │
00:01:43 #3790 [verbose] > │ 31380 / 638485948429704675 / Changed │
00:01:43 #3791 [verbose] > │ ("file2.txt...22222222222222222222222222222222222222222222222b") │
00:01:43 #3792 [verbose] > │ 54154 / 638485948429758829 / Changed │
00:01:43 #3793 [verbose] > │ ("file2.txt...22222222222222222222222222222222222222222222222b") │
00:01:43 #3794 [verbose] > │ 15187417 / 638485948444946246 / Renamed │
00:01:43 #3795 [verbose] > │ ("file1....1111111111111111111111111111111111111111111111b")) │
00:01:43 #3796 [verbose] > │ 4034 / 638485948444950280 / Renamed │
00:01:43 #3797 [verbose] > │ ("file2.txt"...2222222222222222222222222222222222222222222222b")) │
00:01:43 #3798 [verbose] > │ 15046958 / 638485948459997238 / Changed │
00:01:43 #3799 [verbose] > │ ("file_1...11111111111111111111111111111111111111111111111c") │
00:01:43 #3800 [verbose] > │ 272627 / 638485948460269865 / Changed │
00:01:43 #3801 [verbose] > │ ("file_1.t...11111111111111111111111111111111111111111111111c") │
00:01:43 #3802 [verbose] > │ 78385 / 638485948460348250 / Changed │
00:01:43 #3803 [verbose] > │ ("file_2.tx...22222222222222222222222222222222222222222222222c") │
00:01:43 #3804 [verbose] > │ 138820 / 638485948460487070 / Changed │
00:01:43 #3805 [verbose] > │ ("file_2.t...22222222222222222222222222222222222222222222222c") │
00:01:43 #3806 [verbose] > │ 15135106 / 638485948475622176 / Deleted "file_1.txt" │
00:01:43 #3807 [verbose] > │ 8484 / 638485948475630660 / Deleted "file_2.txt" │
00:01:43 #3808 [verbose] > │ FSharpList<FileSystemChange> │
00:01:43 #3809 [verbose] > │ - path: file1.txt │
00:01:43 #3810 [verbose] > │ content: FSharpOption<String> │
00:01:43 #3811 [verbose] > │ Value: 1a │
00:01:43 #3812 [verbose] > │ IsFailure: False │
00:01:43 #3813 [verbose] > │ IsChanged: False │
00:01:43 #3814 [verbose] > │ IsCreated: True │
00:01:43 #3815 [verbose] > │ IsDeleted: False │
00:01:43 #3816 [verbose] > │ IsRenamed: False │
00:01:43 #3817 [verbose] > │ - path: file1.txt │
00:01:43 #3818 [verbose] > │ content: FSharpOption<String> │
00:01:43 #3819 [verbose] > │ Value: 1a │
00:01:43 #3820 [verbose] > │ IsFailure: False │
00:01:43 #3821 [verbose] > │ IsChanged: True │
00:01:43 #3822 [verbose] > │ IsCreated: False │
00:01:43 #3823 [verbose] > │ IsDeleted: False │
00:01:43 #3824 [verbose] > │ IsRenamed: False │
00:01:43 #3825 [verbose] > │ - path: file2.txt │
00:01:43 #3826 [verbose] > │ content: FSharpOption<String> │
00:01:43 #3827 [verbose] > │ Value: 2a │
00:01:43 #3828 [verbose] > │ IsFailure: False │
00:01:43 #3829 [verbose] > │ IsChanged: False │
00:01:43 #3830 [verbose] > │ IsCreated: True │
00:01:43 #3831 [verbose] > │ IsDeleted: False │
00:01:43 #3832 [verbose] > │ IsRenamed: False │
00:01:43 #3833 [verbose] > │ - path: file2.txt │
00:01:43 #3834 [verbose] > │ content: FSharpOption<String> │
00:01:43 #3835 [verbose] > │ Value: 2a │
00:01:43 #3836 [verbose] > │ IsFailure: False │
00:01:43 #3837 [verbose] > │ IsChanged: True │
00:01:43 #3838 [verbose] > │ IsCreated: False │
00:01:43 #3839 [verbose] > │ IsDeleted: False │
00:01:43 #3840 [verbose] > │ IsRenamed: False │
00:01:43 #3841 [verbose] > │ - path: file1.txt │
00:01:43 #3842 [verbose] > │ content: FSharpOption<String> │
00:01:43 #3843 [verbose] > │ Value: 1b │
00:01:43 #3844 [verbose] > │ IsFailure: False │
00:01:43 #3845 [verbose] > │ IsChanged: True │
00:01:43 #3846 [verbose] > │ IsCreated: False │
00:01:43 #3847 [verbose] > │ IsDeleted: False │
00:01:43 #3848 [verbose] > │ IsRenamed: False │
00:01:43 #3849 [verbose] > │ - path: file2.txt │
00:01:43 #3850 [verbose] > │ content: FSharpOption<String> │
00:01:43 #3851 [verbose] > │ Value: 2b │
00:01:43 #3852 [verbose] > │ IsFailure: False │
00:01:43 #3853 [verbose] > │ IsChanged: True │
00:01:43 #3854 [verbose] > │ IsCreated: False │
00:01:43 #3855 [verbose] > │ IsDeleted: False │
00:01:43 #3856 [verbose] > │ IsRenamed: False │
00:01:43 #3857 [verbose] > │ - oldPath: file1.txt │
00:01:43 #3858 [verbose] > │ Item2: - file_1.txt │
00:01:43 #3859 [verbose] > │ - FSharpOption<String> │
00:01:43 #3860 [verbose] > │ Value: 1b │
00:01:43 #3861 [verbose] > │ - IsFailure: False │
00:01:43 #3862 [verbose] > │ IsChanged: False │
00:01:43 #3863 [verbose] > │ IsCreated: False │
00:01:43 #3864 [verbose] > │ IsDeleted: False │
00:01:43 #3865 [verbose] > │ IsRenamed: True │
00:01:43 #3866 [verbose] > │ - oldPath: file2.txt │
00:01:43 #3867 [verbose] > │ Item2: - file_2.txt │
00:01:43 #3868 [verbose] > │ - FSharpOption<String> │
00:01:43 #3869 [verbose] > │ Value: 2b │
00:01:43 #3870 [verbose] > │ - IsFailure: False │
00:01:43 #3871 [verbose] > │ IsChanged: False │
00:01:43 #3872 [verbose] > │ IsCreated: False │
00:01:43 #3873 [verbose] > │ IsDeleted: False │
00:01:43 #3874 [verbose] > │ IsRenamed: True │
00:01:43 #3875 [verbose] > │ - path: file_1.txt │
00:01:43 #3876 [verbose] > │ content: FSharpOption<String> │
00:01:43 #3877 [verbose] > │ Value: 1c │
00:01:43 #3878 [verbose] > │ IsFailure: False │
00:01:43 #3879 [verbose] > │ IsChanged: True │
00:01:43 #3880 [verbose] > │ IsCreated: False │
00:01:43 #3881 [verbose] > │ IsDeleted: False │
00:01:43 #3882 [verbose] > │ IsRenamed: False │
00:01:43 #3883 [verbose] > │ - path: file_2.txt │
00:01:43 #3884 [verbose] > │ content: FSharpOption<String> │
00:01:43 #3885 [verbose] > │ Value: 2c │
00:01:43 #3886 [verbose] > │ IsFailure: False │
00:01:43 #3887 [verbose] > │ IsChanged: True │
00:01:43 #3888 [verbose] > │ IsCreated: False │
00:01:43 #3889 [verbose] > │ IsDeleted: False │
00:01:43 #3890 [verbose] > │ IsRenamed: False │
00:01:43 #3891 [verbose] > │ - path: file_1.txt │
00:01:43 #3892 [verbose] > │ IsFailure: False │
00:01:43 #3893 [verbose] > │ IsChanged: False │
00:01:43 #3894 [verbose] > │ IsCreated: False │
00:01:43 #3895 [verbose] > │ IsDeleted: True │
00:01:43 #3896 [verbose] > │ IsRenamed: False │
00:01:43 #3897 [verbose] > │ - path: file_2.txt │
00:01:43 #3898 [verbose] > │ IsFailure: False │
00:01:43 #3899 [verbose] > │ IsChanged: False │
00:01:43 #3900 [verbose] > │ IsCreated: False │
00:01:43 #3901 [verbose] > │ IsDeleted: True │
00:01:43 #3902 [verbose] > │ IsRenamed: False │
00:01:43 #3903 [verbose] > │ FSharpOption<Unit> │
00:01:43 #3904 [verbose] > │ Value: <null> │
00:01:43 #3905 [verbose] > │ │
00:01:43 #3906 [verbose] > ╰──────────────────────────────────────────────────────────────────────────────╯
00:01:43 #3907 [verbose] >
00:01:43 #3908 [verbose] > ── markdown ────────────────────────────────────────────────────────────────────
00:01:43 #3909 [verbose] > ╭──────────────────────────────────────────────────────────────────────────────╮
00:01:43 #3910 [verbose] > │ ### testEventsSorted (test) │
00:01:43 #3911 [verbose] > ╰──────────────────────────────────────────────────────────────────────────────╯
00:01:43 #3912 [verbose] >
00:01:43 #3913 [verbose] > ── fsharp ──────────────────────────────────────────────────────────────────────
00:01:43 #3914 [verbose] > //// test
00:01:43 #3915 [verbose] >
00:01:43 #3916 [verbose] > let inline sortEvent event =
00:01:43 #3917 [verbose] > match event with
00:01:43 #3918 [verbose] > | FileSystemChange.Failure _ -> 0
00:01:43 #3919 [verbose] > | FileSystemChange.Created _ -> 1
00:01:43 #3920 [verbose] > | FileSystemChange.Changed _ -> 2
00:01:43 #3921 [verbose] > | FileSystemChange.Renamed (_oldPath, _) -> 3
00:01:43 #3922 [verbose] > | FileSystemChange.Deleted _ -> 4
00:01:43 #3923 [verbose] >
00:01:43 #3924 [verbose] > let inline formatEvents events =
00:01:43 #3925 [verbose] > events
00:01:43 #3926 [verbose] > |> Seq.toList
00:01:43 #3927 [verbose] > |> List.sortBy (snd >> sortEvent)
00:01:43 #3928 [verbose] > |> List.choose (fun (ticks, event) ->
00:01:43 #3929 [verbose] > match event with
00:01:43 #3930 [verbose] > | FileSystemChange.Failure _ ->
00:01:43 #3931 [verbose] > None
00:01:43 #3932 [verbose] > | FileSystemChange.Changed (path, _) ->
00:01:43 #3933 [verbose] > Some (ticks, System.IO.Path.GetFileName path, nameof
00:01:43 #3934 [verbose] > FileSystemChangeType.Changed)
00:01:43 #3935 [verbose] > | FileSystemChange.Created (path, _) ->
00:01:43 #3936 [verbose] > Some (ticks, System.IO.Path.GetFileName path, nameof
00:01:43 #3937 [verbose] > FileSystemChangeType.Created)
00:01:43 #3938 [verbose] > | FileSystemChange.Deleted path ->
00:01:43 #3939 [verbose] > Some (ticks, System.IO.Path.GetFileName path, nameof
00:01:43 #3940 [verbose] > FileSystemChangeType.Deleted)
00:01:43 #3941 [verbose] > | FileSystemChange.Renamed (_oldPath, (path, _)) ->
00:01:43 #3942 [verbose] > Some (ticks, System.IO.Path.GetFileName path, nameof
00:01:43 #3943 [verbose] > FileSystemChangeType.Renamed)
00:01:43 #3944 [verbose] > )
00:01:43 #3945 [verbose] > |> List.sortBy (fun (_, path, _) -> path)
00:01:43 #3946 [verbose] > |> List.distinctBy (fun (_, path, event) -> path, event)
00:01:43 #3947 [verbose] >
00:01:43 #3948 [verbose] > let inline testEventsSorted
00:01:43 #3949 [verbose] > (watchFn : string -> FSharp.Control.AsyncSeq<int64 * FileSystemChange> *
00:01:43 #3950 [verbose] > IDisposable)
00:01:43 #3951 [verbose] > write
00:01:43 #3952 [verbose] > =
00:01:43 #3953 [verbose] > let struct (tempDir, tempDisposable) =
00:01:43 #3954 [verbose] > SpiralFileSystem.create_temp_directory ()
00:01:43 #3955 [verbose] > let stream, disposable = watchFn tempDir
00:01:43 #3956 [verbose] >
00:01:43 #3957 [verbose] > let events = System.Collections.Concurrent.ConcurrentBag ()
00:01:43 #3958 [verbose] >
00:01:43 #3959 [verbose] > let inline iter () =
00:01:43 #3960 [verbose] > stream
00:01:43 #3961 [verbose] > |> FSharp.Control.AsyncSeq.iterAsyncParallel (fun event -> async {
00:01:43 #3962 [verbose] > events.Add event })
00:01:43 #3963 [verbose] >
00:01:43 #3964 [verbose] > let run = async {
00:01:43 #3965 [verbose] > let! _ = iter () |> Async.StartChild
00:01:43 #3966 [verbose] > do! Async.Sleep 250
00:01:43 #3967 [verbose] > return! write tempDir
00:01:43 #3968 [verbose] > }
00:01:43 #3969 [verbose] >
00:01:43 #3970 [verbose] > try
00:01:43 #3971 [verbose] > run
00:01:43 #3972 [verbose] > |> Async.runWithTimeout 5000
00:01:43 #3973 [verbose] > |> _assertEqual (Some ())
00:01:43 #3974 [verbose] > finally
00:01:43 #3975 [verbose] > disposable.Dispose ()
00:01:43 #3976 [verbose] > tempDisposable.Dispose ()
00:01:43 #3977 [verbose] >
00:01:43 #3978 [verbose] > let events = formatEvents events
00:01:43 #3979 [verbose] >
00:01:43 #3980 [verbose] > let eventMap =
00:01:43 #3981 [verbose] > events
00:01:43 #3982 [verbose] > |> List.map (fun (ticks, path, event) -> path, (event, ticks))
00:01:43 #3983 [verbose] > |> List.groupBy fst
00:01:43 #3984 [verbose] > |> List.map (fun (path, events) ->
00:01:43 #3985 [verbose] > let event, _ticks =
00:01:43 #3986 [verbose] > events
00:01:43 #3987 [verbose] > |> List.map snd
00:01:43 #3988 [verbose] > |> List.sortByDescending snd
00:01:43 #3989 [verbose] > |> List.head
00:01:43 #3990 [verbose] >
00:01:43 #3991 [verbose] > path, event
00:01:43 #3992 [verbose] > )
00:01:43 #3993 [verbose] > |> Map.ofList
00:01:43 #3994 [verbose] >
00:01:43 #3995 [verbose] > let eventList =
00:01:43 #3996 [verbose] > events
00:01:43 #3997 [verbose] > |> List.map (fun (_ticks, path, event) -> path, event)
00:01:43 #3998 [verbose] >
00:01:43 #3999 [verbose] > eventMap, eventList
00:01:43 #4000 [verbose] >
00:01:43 #4001 [verbose] > ── markdown ────────────────────────────────────────────────────────────────────
00:01:43 #4002 [verbose] > ╭──────────────────────────────────────────────────────────────────────────────╮
00:01:43 #4003 [verbose] > │ #### create and delete (test) │
00:01:43 #4004 [verbose] > ╰──────────────────────────────────────────────────────────────────────────────╯
00:01:43 #4005 [verbose] >
00:01:43 #4006 [verbose] > ── fsharp ──────────────────────────────────────────────────────────────────────
00:01:43 #4007 [verbose] > //// test
00:01:43 #4008 [verbose] >
00:01:43 #4009 [verbose] > let inline write path = async {
00:01:43 #4010 [verbose] > let n = 3
00:01:43 #4011 [verbose] >
00:01:43 #4012 [verbose] > for i = 1 to n do
00:01:43 #4013 [verbose] > do! $"{i}" |> SpiralFileSystem.write_all_text_async (path </>
00:01:43 #4014 [verbose] > $"file{i}.txt")
00:01:43 #4015 [verbose] >
00:01:43 #4016 [verbose] > for i = 1 to n do
00:01:43 #4017 [verbose] > do! SpiralFileSystem.delete_file_async (path </> $"file{i}.txt") |>
00:01:43 #4018 [verbose] > Async.Ignore
00:01:43 #4019 [verbose] >
00:01:43 #4020 [verbose] > do! Async.Sleep 150
00:01:43 #4021 [verbose] > }
00:01:43 #4022 [verbose] >
00:01:43 #4023 [verbose] > let inline run () =
00:01:43 #4024 [verbose] > let eventMap, eventList = testEventsSorted (watchDirectory (fun _ -> false))
00:01:43 #4025 [verbose] > write
00:01:43 #4026 [verbose] >
00:01:43 #4027 [verbose] > [[
00:01:43 #4028 [verbose] > "file1.txt", nameof FileSystemChangeType.Created
00:01:43 #4029 [verbose] > "file1.txt", nameof FileSystemChangeType.Changed
00:01:43 #4030 [verbose] > "file1.txt", nameof FileSystemChangeType.Deleted
00:01:43 #4031 [verbose] >
00:01:43 #4032 [verbose] > "file2.txt", nameof FileSystemChangeType.Created
00:01:43 #4033 [verbose] > "file2.txt", nameof FileSystemChangeType.Changed
00:01:43 #4034 [verbose] > "file2.txt", nameof FileSystemChangeType.Deleted
00:01:43 #4035 [verbose] >
00:01:43 #4036 [verbose] > "file3.txt", nameof FileSystemChangeType.Created
00:01:43 #4037 [verbose] > "file3.txt", nameof FileSystemChangeType.Changed
00:01:43 #4038 [verbose] > "file3.txt", nameof FileSystemChangeType.Deleted
00:01:43 #4039 [verbose] > ]]
00:01:43 #4040 [verbose] > |> _sequenceEqual eventList
00:01:43 #4041 [verbose] >
00:01:43 #4042 [verbose] > [[
00:01:43 #4043 [verbose] > "file1.txt", nameof FileSystemChangeType.Deleted
00:01:43 #4044 [verbose] > "file2.txt", nameof FileSystemChangeType.Deleted
00:01:43 #4045 [verbose] > "file3.txt", nameof FileSystemChangeType.Deleted
00:01:43 #4046 [verbose] > ]]
00:01:43 #4047 [verbose] > |> Map.ofList
00:01:43 #4048 [verbose] > |> _sequenceEqual eventMap
00:01:43 #4049 [verbose] >
00:01:43 #4050 [verbose] > run
00:01:43 #4051 [verbose] > |> retry_fn 3
00:01:43 #4052 [verbose] > |> _assertEqual (Some ())
00:01:44 #4053 [verbose] >
00:01:44 #4054 [verbose] > ╭─[ 1.42s - stdout ]───────────────────────────────────────────────────────────╮
00:01:44 #4055 [verbose] > │ FSharpOption<Unit> │
00:01:44 #4056 [verbose] > │ Value: <null> │
00:01:44 #4057 [verbose] > │ 00:00:11 #5 [debug] watchWithFilter / Disposing watch stream / filter: │
00:01:44 #4058 [verbose] > │ FileName, LastWrite │
00:01:44 #4059 [verbose] > │ FSharpList<Tuple<String,String>> │
00:01:44 #4060 [verbose] > │ ( file1.txt, Created ) │
00:01:44 #4061 [verbose] > │ ( file1.txt, Changed ) │
00:01:44 #4062 [verbose] > │ ( file1.txt, Deleted ) │
00:01:44 #4063 [verbose] > │ ( file2.txt, Created ) │
00:01:44 #4064 [verbose] > │ ( file2.txt, Changed ) │
00:01:44 #4065 [verbose] > │ ( file2.txt, Deleted ) │
00:01:44 #4066 [verbose] > │ ( file3.txt, Created ) │
00:01:44 #4067 [verbose] > │ ( file3.txt, Changed ) │
00:01:44 #4068 [verbose] > │ ( file3.txt, Deleted ) │
00:01:44 #4069 [verbose] > │ FSharpMap<String,String> │
00:01:44 #4070 [verbose] > │ - Key: file1.txt │
00:01:44 #4071 [verbose] > │ Value: Deleted │
00:01:44 #4072 [verbose] > │ - Key: file2.txt │
00:01:44 #4073 [verbose] > │ Value: Deleted │
00:01:44 #4074 [verbose] > │ - Key: file3.txt │
00:01:44 #4075 [verbose] > │ Value: Deleted │
00:01:44 #4076 [verbose] > │ FSharpOption<Unit> │
00:01:44 #4077 [verbose] > │ Value: <null> │
00:01:44 #4078 [verbose] > │ │
00:01:44 #4079 [verbose] > ╰──────────────────────────────────────────────────────────────────────────────╯
00:01:44 #4080 [verbose] >
00:01:44 #4081 [verbose] > ── markdown ────────────────────────────────────────────────────────────────────
00:01:44 #4082 [verbose] > ╭──────────────────────────────────────────────────────────────────────────────╮
00:01:44 #4083 [verbose] > │ #### change (test) │
00:01:44 #4084 [verbose] > ╰──────────────────────────────────────────────────────────────────────────────╯
00:01:44 #4085 [verbose] >
00:01:44 #4086 [verbose] > ── fsharp ──────────────────────────────────────────────────────────────────────
00:01:44 #4087 [verbose] > //// test
00:01:44 #4088 [verbose] >
00:01:44 #4089 [verbose] > let inline write path = async {
00:01:44 #4090 [verbose] > let n = 2
00:01:44 #4091 [verbose] >
00:01:44 #4092 [verbose] > for i = 1 to n do
00:01:44 #4093 [verbose] > do! $"{i}" |> SpiralFileSystem.write_all_text_async (path </>
00:01:44 #4094 [verbose] > $"file{i}.txt")
00:01:44 #4095 [verbose] >
00:01:44 #4096 [verbose] > for i = 1 to n do
00:01:44 #4097 [verbose] > do! "" |> SpiralFileSystem.write_all_text_async (path </>
00:01:44 #4098 [verbose] > $"file{i}.txt")
00:01:44 #4099 [verbose] >
00:01:44 #4100 [verbose] > for i = 1 to n do
00:01:44 #4101 [verbose] > do! SpiralFileSystem.delete_file_async (path </> $"file{i}.txt") |>
00:01:44 #4102 [verbose] > Async.Ignore
00:01:44 #4103 [verbose] >
00:01:44 #4104 [verbose] > do! Async.Sleep 150
00:01:44 #4105 [verbose] > }
00:01:44 #4106 [verbose] >
00:01:44 #4107 [verbose] > let inline run () =
00:01:44 #4108 [verbose] > let eventMap, eventList = testEventsSorted (watchDirectory (fun _ -> false))
00:01:44 #4109 [verbose] > write
00:01:44 #4110 [verbose] >
00:01:44 #4111 [verbose] > [[
00:01:44 #4112 [verbose] > "file1.txt", nameof FileSystemChangeType.Created
00:01:44 #4113 [verbose] > "file1.txt", nameof FileSystemChangeType.Changed
00:01:44 #4114 [verbose] > "file1.txt", nameof FileSystemChangeType.Deleted
00:01:44 #4115 [verbose] >
00:01:44 #4116 [verbose] > "file2.txt", nameof FileSystemChangeType.Created
00:01:44 #4117 [verbose] > "file2.txt", nameof FileSystemChangeType.Changed
00:01:44 #4118 [verbose] > "file2.txt", nameof FileSystemChangeType.Deleted
00:01:44 #4119 [verbose] > ]]
00:01:44 #4120 [verbose] > |> _sequenceEqual eventList
00:01:44 #4121 [verbose] >
00:01:44 #4122 [verbose] > [[
00:01:44 #4123 [verbose] > "file1.txt", nameof FileSystemChangeType.Deleted
00:01:44 #4124 [verbose] > "file2.txt", nameof FileSystemChangeType.Deleted
00:01:44 #4125 [verbose] > ]]
00:01:44 #4126 [verbose] > |> Map.ofList
00:01:44 #4127 [verbose] > |> _sequenceEqual eventMap
00:01:44 #4128 [verbose] >
00:01:44 #4129 [verbose] > run
00:01:44 #4130 [verbose] > |> retry_fn 3
00:01:44 #4131 [verbose] > |> _assertEqual (Some ())
00:01:46 #4132 [verbose] >
00:01:46 #4133 [verbose] > ╭─[ 1.47s - stdout ]───────────────────────────────────────────────────────────╮
00:01:46 #4134 [verbose] > │ FSharpOption<Unit> │
00:01:46 #4135 [verbose] > │ Value: <null> │
00:01:46 #4136 [verbose] > │ 00:00:13 #6 [debug] watchWithFilter / Disposing watch stream / filter: │
00:01:46 #4137 [verbose] > │ FileName, LastWrite │
00:01:46 #4138 [verbose] > │ FSharpList<Tuple<String,String>> │
00:01:46 #4139 [verbose] > │ ( file1.txt, Created ) │
00:01:46 #4140 [verbose] > │ ( file1.txt, Changed ) │
00:01:46 #4141 [verbose] > │ ( file1.txt, Deleted ) │
00:01:46 #4142 [verbose] > │ ( file2.txt, Created ) │
00:01:46 #4143 [verbose] > │ ( file2.txt, Changed ) │
00:01:46 #4144 [verbose] > │ ( file2.txt, Deleted ) │
00:01:46 #4145 [verbose] > │ FSharpMap<String,String> │
00:01:46 #4146 [verbose] > │ - Key: file1.txt │
00:01:46 #4147 [verbose] > │ Value: Deleted │
00:01:46 #4148 [verbose] > │ - Key: file2.txt │
00:01:46 #4149 [verbose] > │ Value: Deleted │
00:01:46 #4150 [verbose] > │ FSharpOption<Unit> │
00:01:46 #4151 [verbose] > │ Value: <null> │
00:01:46 #4152 [verbose] > │ │
00:01:46 #4153 [verbose] > ╰──────────────────────────────────────────────────────────────────────────────╯
00:01:46 #4154 [verbose] >
00:01:46 #4155 [verbose] > ── markdown ────────────────────────────────────────────────────────────────────
00:01:46 #4156 [verbose] > ╭──────────────────────────────────────────────────────────────────────────────╮
00:01:46 #4157 [verbose] > │ #### rename (test) │
00:01:46 #4158 [verbose] > ╰──────────────────────────────────────────────────────────────────────────────╯
00:01:46 #4159 [verbose] >
00:01:46 #4160 [verbose] > ── fsharp ──────────────────────────────────────────────────────────────────────
00:01:46 #4161 [verbose] > //// test
00:01:46 #4162 [verbose] >
00:01:46 #4163 [verbose] > let inline write path = async {
00:01:46 #4164 [verbose] > let n = 2
00:01:46 #4165 [verbose] >
00:01:46 #4166 [verbose] > for i = 1 to n do
00:01:46 #4167 [verbose] > do! $"{i}" |> SpiralFileSystem.write_all_text_async (path </>
00:01:46 #4168 [verbose] > $"file{i}.txt")
00:01:46 #4169 [verbose] >
00:01:46 #4170 [verbose] > for i = 1 to n do
00:01:46 #4171 [verbose] > do! path </> $"file{i}.txt" |> SpiralFileSystem.move_file_async (path
00:01:46 #4172 [verbose] > </> $"file_{i}.txt") |> Async.Ignore
00:01:46 #4173 [verbose] >
00:01:46 #4174 [verbose] > for i = 1 to n do
00:01:46 #4175 [verbose] > do! SpiralFileSystem.delete_file_async (path </> $"file_{i}.txt") |>
00:01:46 #4176 [verbose] > Async.Ignore
00:01:46 #4177 [verbose] >
00:01:46 #4178 [verbose] > do! Async.Sleep 150
00:01:46 #4179 [verbose] > }
00:01:46 #4180 [verbose] >
00:01:46 #4181 [verbose] > let inline run () =
00:01:46 #4182 [verbose] > let eventMap, eventList = testEventsSorted (watchDirectory (fun _ -> false))
00:01:46 #4183 [verbose] > write
00:01:46 #4184 [verbose] >
00:01:46 #4185 [verbose] > [[
00:01:46 #4186 [verbose] > "file1.txt", nameof FileSystemChangeType.Created
00:01:46 #4187 [verbose] > "file1.txt", nameof FileSystemChangeType.Changed
00:01:46 #4188 [verbose] > "file2.txt", nameof FileSystemChangeType.Created
00:01:46 #4189 [verbose] > "file2.txt", nameof FileSystemChangeType.Changed
00:01:46 #4190 [verbose] >
00:01:46 #4191 [verbose] > "file_1.txt", nameof FileSystemChangeType.Renamed
00:01:46 #4192 [verbose] > "file_1.txt", nameof FileSystemChangeType.Deleted
00:01:46 #4193 [verbose] >
00:01:46 #4194 [verbose] > "file_2.txt", nameof FileSystemChangeType.Renamed
00:01:46 #4195 [verbose] > "file_2.txt", nameof FileSystemChangeType.Deleted
00:01:46 #4196 [verbose] > ]]
00:01:46 #4197 [verbose] > |> _sequenceEqual eventList
00:01:46 #4198 [verbose] >
00:01:46 #4199 [verbose] > [[
00:01:46 #4200 [verbose] > "file1.txt", nameof FileSystemChangeType.Changed
00:01:46 #4201 [verbose] > "file2.txt", nameof FileSystemChangeType.Changed
00:01:46 #4202 [verbose] > "file_1.txt", nameof FileSystemChangeType.Deleted
00:01:46 #4203 [verbose] > "file_2.txt", nameof FileSystemChangeType.Deleted
00:01:46 #4204 [verbose] > ]]
00:01:46 #4205 [verbose] > |> Map.ofList
00:01:46 #4206 [verbose] > |> _sequenceEqual eventMap
00:01:46 #4207 [verbose] >
00:01:46 #4208 [verbose] > run
00:01:46 #4209 [verbose] > |> retry_fn 3
00:01:46 #4210 [verbose] > |> _assertEqual (Some ())
00:01:47 #4211 [verbose] >
00:01:47 #4212 [verbose] > ╭─[ 1.55s - stdout ]───────────────────────────────────────────────────────────╮
00:01:47 #4213 [verbose] > │ FSharpOption<Unit> │
00:01:47 #4214 [verbose] > │ Value: <null> │
00:01:47 #4215 [verbose] > │ 00:00:14 #7 [debug] watchWithFilter / Disposing watch stream / filter: │
00:01:47 #4216 [verbose] > │ FileName, LastWrite │
00:01:47 #4217 [verbose] > │ FSharpList<Tuple<String,String>> │
00:01:47 #4218 [verbose] > │ ( file1.txt, Created ) │
00:01:47 #4219 [verbose] > │ ( file1.txt, Changed ) │
00:01:47 #4220 [verbose] > │ ( file2.txt, Created ) │
00:01:47 #4221 [verbose] > │ ( file2.txt, Changed ) │
00:01:47 #4222 [verbose] > │ ( file_1.txt, Renamed ) │
00:01:47 #4223 [verbose] > │ ( file_1.txt, Deleted ) │
00:01:47 #4224 [verbose] > │ ( file_2.txt, Renamed ) │
00:01:47 #4225 [verbose] > │ ( file_2.txt, Deleted ) │
00:01:47 #4226 [verbose] > │ FSharpMap<String,String> │
00:01:47 #4227 [verbose] > │ - Key: file1.txt │
00:01:47 #4228 [verbose] > │ Value: Changed │
00:01:47 #4229 [verbose] > │ - Key: file2.txt │
00:01:47 #4230 [verbose] > │ Value: Changed │
00:01:47 #4231 [verbose] > │ - Key: file_1.txt │
00:01:47 #4232 [verbose] > │ Value: Deleted │
00:01:47 #4233 [verbose] > │ - Key: file_2.txt │
00:01:47 #4234 [verbose] > │ Value: Deleted │
00:01:47 #4235 [verbose] > │ FSharpOption<Unit> │
00:01:47 #4236 [verbose] > │ Value: <null> │
00:01:47 #4237 [verbose] > │ │
00:01:47 #4238 [verbose] > ╰──────────────────────────────────────────────────────────────────────────────╯
00:01:47 #4239 [verbose] >
00:01:47 #4240 [verbose] > ── markdown ────────────────────────────────────────────────────────────────────
00:01:47 #4241 [verbose] > ╭──────────────────────────────────────────────────────────────────────────────╮
00:01:47 #4242 [verbose] > │ #### full (test) │
00:01:47 #4243 [verbose] > ╰──────────────────────────────────────────────────────────────────────────────╯
00:01:47 #4244 [verbose] >
00:01:47 #4245 [verbose] > ── fsharp ──────────────────────────────────────────────────────────────────────
00:01:47 #4246 [verbose] > //// test
00:01:47 #4247 [verbose] >
00:01:47 #4248 [verbose] > let inline write path = async {
00:01:47 #4249 [verbose] > let n = 2
00:01:47 #4250 [verbose] >
00:01:47 #4251 [verbose] > for i = 1 to n do
00:01:47 #4252 [verbose] > do! $"{i}" |> SpiralFileSystem.write_all_text_async (path </>
00:01:47 #4253 [verbose] > $"file{i}.txt")
00:01:47 #4254 [verbose] >
00:01:47 #4255 [verbose] > for i = 1 to n do
00:01:47 #4256 [verbose] > do! "" |> SpiralFileSystem.write_all_text_async (path </>
00:01:47 #4257 [verbose] > $"file{i}.txt")
00:01:47 #4258 [verbose] >
00:01:47 #4259 [verbose] > for i = 1 to n do
00:01:47 #4260 [verbose] > do! path </> $"file{i}.txt" |> SpiralFileSystem.move_file_async (path
00:01:47 #4261 [verbose] > </> $"file_{i}.txt") |> Async.Ignore
00:01:47 #4262 [verbose] >
00:01:47 #4263 [verbose] > for i = 1 to n do
00:01:47 #4264 [verbose] > do! $"{i}" |> SpiralFileSystem.write_all_text_async (path </>
00:01:47 #4265 [verbose] > $"file_{i}.txt")
00:01:47 #4266 [verbose] >
00:01:47 #4267 [verbose] > for i = 1 to n do
00:01:47 #4268 [verbose] > do! SpiralFileSystem.delete_file_async (path </> $"file_{i}.txt") |>
00:01:47 #4269 [verbose] > Async.Ignore
00:01:47 #4270 [verbose] >
00:01:47 #4271 [verbose] > do! Async.Sleep 150
00:01:47 #4272 [verbose] > }
00:01:47 #4273 [verbose] >
00:01:47 #4274 [verbose] > let inline run () =
00:01:47 #4275 [verbose] > let eventMap, eventList = testEventsSorted (watchDirectory (fun _ -> false))
00:01:47 #4276 [verbose] > write
00:01:47 #4277 [verbose] >
00:01:47 #4278 [verbose] > [[
00:01:47 #4279 [verbose] > "file1.txt", nameof FileSystemChangeType.Created
00:01:47 #4280 [verbose] > "file1.txt", nameof FileSystemChangeType.Changed
00:01:47 #4281 [verbose] > "file2.txt", nameof FileSystemChangeType.Created
00:01:47 #4282 [verbose] > "file2.txt", nameof FileSystemChangeType.Changed
00:01:47 #4283 [verbose] >
00:01:47 #4284 [verbose] > "file_1.txt", nameof FileSystemChangeType.Changed
00:01:47 #4285 [verbose] > "file_1.txt", nameof FileSystemChangeType.Renamed
00:01:47 #4286 [verbose] > "file_1.txt", nameof FileSystemChangeType.Deleted
00:01:47 #4287 [verbose] >
00:01:47 #4288 [verbose] > "file_2.txt", nameof FileSystemChangeType.Changed
00:01:47 #4289 [verbose] > "file_2.txt", nameof FileSystemChangeType.Renamed
00:01:47 #4290 [verbose] > "file_2.txt", nameof FileSystemChangeType.Deleted
00:01:47 #4291 [verbose] > ]]
00:01:47 #4292 [verbose] > |> _sequenceEqual eventList
00:01:47 #4293 [verbose] >
00:01:47 #4294 [verbose] > [[
00:01:47 #4295 [verbose] > "file1.txt", nameof FileSystemChangeType.Changed
00:01:47 #4296 [verbose] > "file2.txt", nameof FileSystemChangeType.Changed
00:01:47 #4297 [verbose] > "file_1.txt", nameof FileSystemChangeType.Deleted
00:01:47 #4298 [verbose] > "file_2.txt", nameof FileSystemChangeType.Deleted
00:01:47 #4299 [verbose] > ]]
00:01:47 #4300 [verbose] > |> Map.ofList
00:01:47 #4301 [verbose] > |> _sequenceEqual eventMap
00:01:47 #4302 [verbose] >
00:01:47 #4303 [verbose] > run
00:01:47 #4304 [verbose] > |> retry_fn 3
00:01:47 #4305 [verbose] > |> _assertEqual (Some ())
00:01:49 #4306 [verbose] >
00:01:49 #4307 [verbose] > ╭─[ 1.78s - stdout ]───────────────────────────────────────────────────────────╮
00:01:49 #4308 [verbose] > │ FSharpOption<Unit> │
00:01:49 #4309 [verbose] > │ Value: <null> │
00:01:49 #4310 [verbose] > │ 00:00:16 #8 [debug] watchWithFilter / Disposing watch stream / filter: │
00:01:49 #4311 [verbose] > │ FileName, LastWrite │
00:01:49 #4312 [verbose] > │ FSharpList<Tuple<String,String>> │
00:01:49 #4313 [verbose] > │ ( file1.txt, Created ) │
00:01:49 #4314 [verbose] > │ ( file1.txt, Changed ) │
00:01:49 #4315 [verbose] > │ ( file2.txt, Created ) │
00:01:49 #4316 [verbose] > │ ( file2.txt, Changed ) │
00:01:49 #4317 [verbose] > │ ( file_1.txt, Changed ) │
00:01:49 #4318 [verbose] > │ ( file_1.txt, Renamed ) │
00:01:49 #4319 [verbose] > │ ( file_1.txt, Deleted ) │
00:01:49 #4320 [verbose] > │ ( file_2.txt, Changed ) │
00:01:49 #4321 [verbose] > │ ( file_2.txt, Renamed ) │
00:01:49 #4322 [verbose] > │ ( file_2.txt, Deleted ) │
00:01:49 #4323 [verbose] > │ FSharpMap<String,String> │
00:01:49 #4324 [verbose] > │ - Key: file1.txt │
00:01:49 #4325 [verbose] > │ Value: Changed │
00:01:49 #4326 [verbose] > │ - Key: file2.txt │
00:01:49 #4327 [verbose] > │ Value: Changed │
00:01:49 #4328 [verbose] > │ - Key: file_1.txt │
00:01:49 #4329 [verbose] > │ Value: Deleted │
00:01:49 #4330 [verbose] > │ - Key: file_2.txt │
00:01:49 #4331 [verbose] > │ Value: Deleted │
00:01:49 #4332 [verbose] > │ FSharpOption<Unit> │
00:01:49 #4333 [verbose] > │ Value: <null> │
00:01:49 #4334 [verbose] > │ │
00:01:49 #4335 [verbose] > ╰──────────────────────────────────────────────────────────────────────────────╯
00:01:51 #4336 [verbose] > [NbConvertApp] Converting notebook FileSystem.dib.ipynb to html
00:01:51 #4337 [verbose] > C:\Users\i574n\scoop\apps\python\current\Lib\site-packages\nbformat\__init__.py:93: MissingIDFieldWarning: Code cell is missing an id field, this will become a hard error in future nbformat versions. You may want to use `normalize()` on your notebooks before validations (available since nbformat 5.1.4). Previous versions of nbformat are fixing this issue transparently, and will stop doing so in the future.
00:01:51 #4338 [verbose] > validate(nb)
00:01:51 #4339 [verbose] > C:\Users\i574n\scoop\apps\python\current\Lib\site-packages\nbconvert\filters\highlight.py:71: UserWarning: IPython3 lexer unavailable, falling back on Python 3
00:01:51 #4340 [verbose] > return _pygments_highlight(
00:01:52 #4341 [verbose] > [NbConvertApp] Writing 388128 bytes to FileSystem.dib.html
00:01:53 #4342 [debug] execute_with_options_async / exit_code: 0 / output.Length: 69048
00:01:53 #11 [debug] main / executeCommand / exitCode: 0
00:01:53 #4343 [debug] execute_with_options_async / options: struct (Some System.Threading.CancellationToken,
"pwsh -c "../../scripts/invoke-dib.ps1 Networking.dib -Retries 3"", None,
None, None)
00:01:55 #4344 [verbose] >
00:01:55 #4345 [verbose] > ── markdown ────────────────────────────────────────────────────────────────────
00:01:55 #4346 [verbose] > ╭──────────────────────────────────────────────────────────────────────────────╮
00:01:55 #4347 [verbose] > │ # Networking (Polyglot) │
00:01:55 #4348 [verbose] > ╰──────────────────────────────────────────────────────────────────────────────╯
00:01:55 #4349 [verbose] >
00:01:55 #4350 [verbose] > ── fsharp ──────────────────────────────────────────────────────────────────────
00:01:55 #4351 [verbose] > #!import ../../lib/fsharp/Notebooks.dib
00:01:55 #4352 [verbose] > #!import ../../lib/fsharp/Testing.dib
00:01:55 #4353 [verbose] >
00:01:55 #4354 [verbose] > ── fsharp - import ─────────────────────────────────────────────────────────────
00:01:55 #4355 [verbose] > #r
00:01:55 #4356 [verbose] > "C:/Users/i574n/.nuget/packages/dotnet-repl/0.1.204/tools/net7.0/any/Microsoft.A
00:01:55 #4357 [verbose] > spNetCore.Html.Abstractions.dll"
00:01:55 #4358 [verbose] > #r
00:01:55 #4359 [verbose] > "C:/Users/i574n/.nuget/packages/dotnet-repl/0.1.204/tools/net7.0/any/Microsoft.D
00:01:55 #4360 [verbose] > otNet.Interactive.dll"
00:01:55 #4361 [verbose] > #r
00:01:55 #4362 [verbose] > "C:/Users/i574n/.nuget/packages/dotnet-repl/0.1.204/tools/net7.0/any/Microsoft.D
00:01:55 #4363 [verbose] > otNet.Interactive.FSharp.dll"
00:01:55 #4364 [verbose] > #r
00:01:55 #4365 [verbose] > "C:/Users/i574n/.nuget/packages/dotnet-repl/0.1.204/tools/net7.0/any/Microsoft.D
00:01:55 #4366 [verbose] > otNet.Interactive.Formatting.dll"
00:01:55 #4367 [verbose] > open System
00:01:55 #4368 [verbose] > open System.IO
00:01:55 #4369 [verbose] > open System.Text
00:01:55 #4370 [verbose] > open Microsoft.DotNet.Interactive.Formatting
00:01:58 #4371 [verbose] >
00:01:58 #4372 [verbose] > ── fsharp - import ─────────────────────────────────────────────────────────────
00:01:58 #4373 [verbose] > #r
00:01:58 #4374 [verbose] > "C:/Users/i574n/.nuget/packages/dotnet-repl/0.1.204/tools/net7.0/any/Microsoft.D
00:01:58 #4375 [verbose] > otNet.Interactive.FSharp.dll"
00:01:58 #4376 [verbose] > open Microsoft.DotNet.Interactive.FSharp.FSharpKernelHelpers
00:01:58 #4377 [verbose] > #r
00:01:58 #4378 [verbose] > "C:/Users/i574n/.nuget/packages/dotnet-repl/0.1.204/tools/net7.0/any/Microsoft.D
00:01:58 #4379 [verbose] > otNet.Interactive.dll"
00:01:58 #4380 [verbose] > open type Microsoft.DotNet.Interactive.Kernel
00:01:58 #4381 [verbose] >
00:01:58 #4382 [verbose] > ── fsharp - import ─────────────────────────────────────────────────────────────
00:01:58 #4383 [verbose] > //// test
00:01:58 #4384 [verbose] >
00:01:58 #4385 [verbose] > Formatter.ListExpansionLimit <- 100
00:01:59 #4386 [verbose] >
00:01:59 #4387 [verbose] > ── fsharp - import ─────────────────────────────────────────────────────────────
00:01:59 #4388 [verbose] > type [[<Struct>]] US0 =
00:01:59 #4389 [verbose] > | US0_0
00:01:59 #4390 [verbose] > | US0_1
00:01:59 #4391 [verbose] > and [[<Struct>]] US1 =
00:01:59 #4392 [verbose] > | US1_0 of f0_0 : US0
00:01:59 #4393 [verbose] > | US1_1
00:01:59 #4394 [verbose] > let rec closure0 () (v0 : (unit -> unit)) : System.IDisposable =
00:01:59 #4395 [verbose] > let v1 : System.IDisposable option = None
00:01:59 #4396 [verbose] > let mutable _v1 = v1
00:01:59 #4397 [verbose] > #if FABLE_COMPILER_RUST && !WASM && !CONTRACT
00:01:59 #4398 [verbose] > let v2 : System.IDisposable = null |> unbox<System.IDisposable>
00:01:59 #4399 [verbose] > v2
00:01:59 #4400 [verbose] > #endif
00:01:59 #4401 [verbose] > #if FABLE_COMPILER_RUST && WASM
00:01:59 #4402 [verbose] > let v3 : System.IDisposable = null |> unbox<System.IDisposable>
00:01:59 #4403 [verbose] > v3
00:01:59 #4404 [verbose] > #endif
00:01:59 #4405 [verbose] > #if FABLE_COMPILER_RUST && CONTRACT
00:01:59 #4406 [verbose] > let v4 : System.IDisposable = null |> unbox<System.IDisposable>
00:01:59 #4407 [verbose] > v4
00:01:59 #4408 [verbose] > #endif
00:01:59 #4409 [verbose] > #if !FABLE_COMPILER && !FABLE_COMPILER_RUST && !FABLE_COMPILER_TYPESCRIPT &&
00:01:59 #4410 [verbose] > !WASM && !CONTRACT
00:01:59 #4411 [verbose] > let v5 : System.ID...
00:02:00 #4412 [verbose] >
00:02:00 #4413 [verbose] > ── fsharp - import ─────────────────────────────────────────────────────────────
00:02:00 #4414 [verbose] > type Mut0 = {mutable l0 : int32; mutable l1 : string}
00:02:00 #4415 [verbose] > and Mut1 = {mutable l0 : int32}
00:02:00 #4416 [verbose] > let rec closure1 (v0 : string) (v1 : string) : bool =
00:02:00 #4417 [verbose] > let v2 : bool = v1.Contains v0
00:02:00 #4418 [verbose] > v2
00:02:00 #4419 [verbose] > and closure0 () (v0 : string) : (string -> bool) =
00:02:00 #4420 [verbose] > closure1(v0)
00:02:00 #4421 [verbose] > and closure3 (v0 : string) (v1 : string) : bool =
00:02:00 #4422 [verbose] > let v2 : bool = v1.EndsWith v0
00:02:00 #4423 [verbose] > v2
00:02:00 #4424 [verbose] > and closure2 () (v0 : string) : (string -> bool) =
00:02:00 #4425 [verbose] > closure3(v0)
00:02:00 #4426 [verbose] > and closure6 (v0 : int32, v1 : char) (v2 : string) : string =
00:02:00 #4427 [verbose] > let v3 : string = v2.PadLeft (v0, v1)
00:02:00 #4428 [verbose] > v3
00:02:00 #4429 [verbose] > and closure5 (v0 : int32) (v1 : char) : (string -> string) =
00:02:00 #4430 [verbose] > closure6(v0, v1)
00:02:00 #4431 [verbose] > and closure4 () (v0 : int32) : (char -> (string -> string)) =
00:02:00 #4432 [verbose] > closure5(v0)
00:02:00 #4433 [verbose] > and closure8 (v0 : int32) (v1 : string) : string =
00:02:00 #4434 [verbose] > let v2 : stri...
00:02:00 #4435 [verbose] >
00:02:00 #4436 [verbose] > ── fsharp - import ─────────────────────────────────────────────────────────────
00:02:00 #4437 [verbose] > type ICryptoCreateHash = abstract createHash: x: string -> obj
00:02:00 #4438 [verbose] > type Mut0 = {mutable l0 : int32}
00:02:00 #4439 [verbose] > let rec method0 (v0 : int32, v1 : Mut0) : bool =
00:02:00 #4440 [verbose] > let v2 : int32 = v1.l0
00:02:00 #4441 [verbose] > let v3 : bool = v2 < v0
00:02:00 #4442 [verbose] > v3
00:02:00 #4443 [verbose] > and method1 () : string =
00:02:00 #4444 [verbose] > let v0 : string = ""
00:02:00 #4445 [verbose] > v0
00:02:00 #4446 [verbose] > and closure0 () (v0 : string) : string =
00:02:00 #4447 [verbose] > let v1 : string option = None
00:02:00 #4448 [verbose] > let mutable _v1 = v1
00:02:00 #4449 [verbose] > #if FABLE_COMPILER_RUST && !WASM && !CONTRACT
00:02:00 #4450 [verbose] > let v2 : string = null |> unbox<string>
00:02:00 #4451 [verbose] > v2
00:02:00 #4452 [verbose] > #endif
00:02:00 #4453 [verbose] > #if FABLE_COMPILER_RUST && WASM
00:02:00 #4454 [verbose] > let v3 : string = null |> unbox<string>
00:02:00 #4455 [verbose] > v3
00:02:00 #4456 [verbose] > #endif
00:02:00 #4457 [verbose] > #if FABLE_COMPILER_RUST && CONTRACT
00:02:00 #4458 [verbose] > let v4 : string = null |> unbox<string>
00:02:00 #4459 [verbose] > v4
00:02:00 #4460 [verbose] > #endif
00:02:00 #4461 [verbose] > #if !FABLE_COMPILER && !FABLE_COMPILER_RUST && !FABLE_COMPILER_TYP...
00:02:00 #4462 [verbose] >
00:02:00 #4463 [verbose] > ── fsharp - import ─────────────────────────────────────────────────────────────
00:02:00 #4464 [verbose] > let rec closure1 (v0 : System.Guid) (v1 : System.DateTime) : System.Guid =
00:02:00 #4465 [verbose] > let v2 : (System.Guid -> string) = _.ToString()
00:02:00 #4466 [verbose] > let v3 : string = v2 v0
00:02:00 #4467 [verbose] > let v4 : string = v1.ToString "yyyyMMdd-HHmm-ssff-ffff-f"
00:02:00 #4468 [verbose] > let v5 : System.Guid = System.Guid $"{v4}{v3.[[v4.Length..]]}"
00:02:00 #4469 [verbose] > v5
00:02:00 #4470 [verbose] > and closure0 () (v0 : System.Guid) : (System.DateTime -> System.Guid) =
00:02:00 #4471 [verbose] > closure1(v0)
00:02:00 #4472 [verbose] > and closure5 (v0 : string, v1 : string) (v2 : string) : string =
00:02:00 #4473 [verbose] > let v3 : string = v2.Replace (v0, v1)
00:02:00 #4474 [verbose] > v3
00:02:00 #4475 [verbose] > and closure4 (v0 : string) (v1 : string) : (string -> string) =
00:02:00 #4476 [verbose] > closure5(v0, v1)
00:02:00 #4477 [verbose] > and closure3 () (v0 : string) : (string -> (string -> string)) =
00:02:00 #4478 [verbose] > closure4(v0)
00:02:00 #4479 [verbose] > and method0 () : (string -> (string -> (string -> string))) =
00:02:00 #4480 [verbose] > closure3()
00:02:00 #4481 [verbose] > and closure2 (...
00:02:00 #4482 [verbose] >
00:02:00 #4483 [verbose] > ── fsharp - import ─────────────────────────────────────────────────────────────
00:02:00 #4484 [verbose] > let rec closure0 () (v0 : System.Threading.CancellationToken) :
00:02:00 #4485 [verbose] > Async<System.Threading.CancellationToken> =
00:02:00 #4486 [verbose] > let v1 : Async<System.Threading.CancellationToken> option = None
00:02:00 #4487 [verbose] > let mutable _v1 = v1
00:02:00 #4488 [verbose] > #if FABLE_COMPILER_RUST && !WASM && !CONTRACT
00:02:00 #4489 [verbose] > let v2 : Async<System.Threading.CancellationToken> = null |>
00:02:00 #4490 [verbose] > unbox<Async<System.Threading.CancellationToken>>
00:02:00 #4491 [verbose] > v2
00:02:00 #4492 [verbose] > #endif
00:02:00 #4493 [verbose] > #if FABLE_COMPILER_RUST && WASM
00:02:00 #4494 [verbose] > let v3 : Async<System.Threading.CancellationToken> = null |>
00:02:00 #4495 [verbose] > unbox<Async<System.Threading.CancellationToken>>
00:02:00 #4496 [verbose] > v3
00:02:00 #4497 [verbose] > #endif
00:02:00 #4498 [verbose] > #if FABLE_COMPILER_RUST && CONTRACT
00:02:00 #4499 [verbose] > let v4 : Async<System.Threading.CancellationToken> = null |>
00:02:00 #4500 [verbose] > unbox<Async<System.Threading.CancellationToken>>
00:02:00 #4501 [verbose] > v4
00:02:00 #4502 [verbose] > #endif
00:02:00 #4503 [verbose] > #if !FABLE_COMPILER...
00:02:00 #4504 [verbose] >
00:02:00 #4505 [verbose] > ── fsharp - import ─────────────────────────────────────────────────────────────
00:02:00 #4506 [verbose] > #if FABLE_COMPILER
00:02:00 #4507 [verbose] > [[<CompilationRepresentation (CompilationRepresentationFlags.ModuleSuffix)>]]
00:02:00 #4508 [verbose] > module System =
00:02:00 #4509 [verbose] > module Diagnostics =
00:02:00 #4510 [verbose] > type Process = unit
00:02:00 #4511 [verbose] > type DataReceivedEventArgs = unit
00:02:00 #4512 [verbose] > #endif
00:02:00 #4513 [verbose] > module State = let mutable trace_state = None
00:02:00 #4514 [verbose] > type [[<Struct>]] US0 =
00:02:00 #4515 [verbose] > | US0_0
00:02:00 #4516 [verbose] > | US0_1
00:02:00 #4517 [verbose] > | US0_2
00:02:00 #4518 [verbose] > | US0_3
00:02:00 #4519 [verbose] > | US0_4
00:02:00 #4520 [verbose] > and UH0 =
00:02:00 #4521 [verbose] > | UH0_0
00:02:00 #4522 [verbose] > | UH0_1 of char * UH0
00:02:00 #4523 [verbose] > and [[<Struct>]] US2 =
00:02:00 #4524 [verbose] > | US2_0
00:02:00 #4525 [verbose] > | US2_1
00:02:00 #4526 [verbose] > and [[<Struct>]] US1 =
00:02:00 #4527 [verbose] > | US1_0
00:02:00 #4528 [verbose] > | US1_1 of f1_0 : US2
00:02:00 #4529 [verbose] > | US1_2
00:02:00 #4530 [verbose] > and [[<Struct>]] US3 =
00:02:00 #4531 [verbose] > | US3_0 of f0_0 : string
00:02:00 #4532 [verbose] > | US3_1
00:02:00 #4533 [verbose] > and Mut0 = {mutable l0 : int64}
00:02:00 #4534 [verbose] > and Mut1 = {mutable l0 : bool}
00:02:00 #4535 [verbose] > and Mut2 = {mutable l0 : US0}
00:02:00 #4536 [verbose] > and [[<Struct>]] US4 =
00:02:00 #4537 [verbose] > | US4_0 of f0_0 : int64
00:02:00 #4538 [verbose] > | US4_1
00:02:00 #4539 [verbose] > and [[<Struct>]] US5 =
00:02:00 #4540 [verbose] > | US5_0 of f0_0 : i...
00:02:02 #4541 [verbose] >
00:02:02 #4542 [verbose] > ── fsharp - import ─────────────────────────────────────────────────────────────
00:02:02 #4543 [verbose] > #if FABLE_COMPILER // file_system.types
00:02:02 #4544 [verbose] > [[<Fable.Core.Erase; Fable.Core.Emit("str")>]] type Str = class end
00:02:02 #4545 [verbose] > [[<Fable.Core.Erase; Fable.Core.Emit("base64::DecodeError")>]] type
00:02:02 #4546 [verbose] > base64_DecodeError = class end
00:02:02 #4547 [verbose] > [[<Fable.Core.Erase; Fable.Core.Emit("borsh::io::Error")>]] type borsh_io_Error
00:02:02 #4548 [verbose] > = class end
00:02:02 #4549 [verbose] > [[<Fable.Core.Erase; Fable.Core.Emit("js_sys::JsString")>]] type js_sys_JsString
00:02:02 #4550 [verbose] > = class end
00:02:02 #4551 [verbose] > [[<Fable.Core.Erase; Fable.Core.Emit("serde_json::Error")>]] type
00:02:02 #4552 [verbose] > serde_json_Error = class end
00:02:02 #4553 [verbose] > [[<Fable.Core.Erase; Fable.Core.Emit("serde_json::Value")>]] type
00:02:02 #4554 [verbose] > serde_json_Value = class end
00:02:02 #4555 [verbose] > [[<Fable.Core.Erase; Fable.Core.Emit("serde_wasm_bindgen::Error")>]] type
00:02:02 #4556 [verbose] > serde_wasm_bindgen_Error = class end
00:02:02 #4557 [verbose] > [[<Fable.Core.Erase; Fable.Core.Emit("std::ffi::OsStr")>]] type std_ffi_O...
00:02:03 #4558 [verbose] >
00:02:03 #4559 [verbose] > ── fsharp - import ─────────────────────────────────────────────────────────────
00:02:03 #4560 [verbose] > module State = let mutable trace_state = None
00:02:03 #4561 [verbose] > type [[<Struct>]] US0 =
00:02:03 #4562 [verbose] > | US0_0
00:02:03 #4563 [verbose] > | US0_1
00:02:03 #4564 [verbose] > | US0_2
00:02:03 #4565 [verbose] > | US0_3
00:02:03 #4566 [verbose] > | US0_4
00:02:03 #4567 [verbose] > and Mut0 = {mutable l0 : int64}
00:02:03 #4568 [verbose] > and Mut1 = {mutable l0 : bool}
00:02:03 #4569 [verbose] > and Mut2 = {mutable l0 : US0}
00:02:03 #4570 [verbose] > and [[<Struct>]] US1 =
00:02:03 #4571 [verbose] > | US1_0 of f0_0 : int64
00:02:03 #4572 [verbose] > | US1_1
00:02:03 #4573 [verbose] > and [[<Struct>]] US2 =
00:02:03 #4574 [verbose] > | US2_0 of f0_0 : int64
00:02:03 #4575 [verbose] > | US2_1
00:02:03 #4576 [verbose] > let rec method1 (v0 : int64 option) : int64 option =
00:02:03 #4577 [verbose] > v0
00:02:03 #4578 [verbose] > and method2 (v0 : int64 option) : int64 option =
00:02:03 #4579 [verbose] > v0
00:02:03 #4580 [verbose] > and closure3 () () : struct (Mut0 * Mut1 * Mut1 * Mut2 * int64 option) =
00:02:03 #4581 [verbose] > let v0 : Mut1 = {l0 = true} : Mut1
00:02:03 #4582 [verbose] > let v1 : Mut0 = {l0 = 0L} : Mut0
00:02:03 #4583 [verbose] > let v2 : US0 = US0_0
00:02:03 #4584 [verbose] > let v3 : Mut2 = {l0 = v2} : Mut2
00:02:03 #4585 [verbose] > let v4 : Mut1 = {l0 = false} : Mut1
00:02:03 #4586 [verbose] > let v5 : int64 option option = None
00:02:03 #4587 [verbose] > ...
00:02:03 #4588 [verbose] >
00:02:03 #4589 [verbose] > ── fsharp - import ─────────────────────────────────────────────────────────────
00:02:03 #4590 [verbose] > module SpiralTrace =
00:02:03 #4591 [verbose] > let get_trace_state () =
00:02:03 #4592 [verbose] > #if !INTERACTIVE
00:02:03 #4593 [verbose] > Trace.get_trace_state ()
00:02:03 #4594 [verbose] > #else
00:02:03 #4595 [verbose] > get_trace_state ()
00:02:03 #4596 [verbose] > #endif
00:02:03 #4597 [verbose] >
00:02:03 #4598 [verbose] > let trace x =
00:02:03 #4599 [verbose] > #if !INTERACTIVE
00:02:03 #4600 [verbose] > Trace.trace x
00:02:03 #4601 [verbose] > #else
00:02:03 #4602 [verbose] > trace x
00:02:03 #4603 [verbose] > #endif
00:02:03 #4604 [verbose] >
00:02:03 #4605 [verbose] > type TraceLevel =
00:02:03 #4606 [verbose] > #if !INTERACTIVE
00:02:03 #4607 [verbose] > Trace.US0
00:02:03 #4608 [verbose] > #else
00:02:03 #4609 [verbose] > US0
00:02:03 #4610 [verbose] > #endif
00:02:03 #4611 [verbose] >
00:02:03 #4612 [verbose] > #if !FABLE_COMPILER && !WASM && !CONTRACT
00:02:03 #4613 [verbose] >
00:02:03 #4614 [verbose] > module SpiralAsync =
00:02:03 #4615 [verbose] > let merge_cancellation_token_with_default_async x =
00:02:03 #4616 [verbose] > #if !INTERACTIVE
00:02:03 #4617 [verbose] > Async_.merge_cancellation_token_with_default_async x
00:02:03 #4618 [verbose] > #else
00:02:03 #4619 [verbose] > merge_cancellation_token_with_default_async x
00:02:03 #4620 [verbose] > #endif
00:02:03 #4621 [verbose] >
00:02:03 #4622 [verbose] > module SpiralRuntime =
00:02:03 #4623 [verbose] > let get_executable_suffix () =
00:02:03 #4624 [verbose] > #if !INTERACTIVE
00:02:03 #4625 [verbose] > Runtime.get_executable_suffix ()
00:02:03 #4626 [verbose] > #else
00:02:03 #4627 [verbose] > get_executable_suffix ()
00:02:03 #4628 [verbose] > #endif
00:02:03 #4629 [verbose] >
00:02:03 #4630 [verbose] > let is...
00:02:03 #4631 [verbose] >
00:02:03 #4632 [verbose] > ── fsharp - import ─────────────────────────────────────────────────────────────
00:02:03 #4633 [verbose] > #r @"../../../../../../../.nuget/packages/expecto/10.2.1/lib/net6.0/Expecto.dll"
00:02:04 #4634 [verbose] >
00:02:04 #4635 [verbose] > ── fsharp - import ─────────────────────────────────────────────────────────────
00:02:04 #4636 [verbose] > //// test
00:02:04 #4637 [verbose] >
00:02:04 #4638 [verbose] > type AssertExceptionFormatter (ex) =
00:02:04 #4639 [verbose] > member _.Text =
00:02:04 #4640 [verbose] > ex.ToString()
00:02:04 #4641 [verbose] > .Replace("32m", "<span style=\"color: green;\">")
00:02:04 #4642 [verbose] > .Replace("36m", "</span>")
00:02:04 #4643 [verbose] > .Replace("31m", "<span style=\"color: red;\">")
00:02:04 #4644 [verbose] > .Replace("\n", "<br/>\n")
00:02:04 #4645 [verbose] >
00:02:04 #4646 [verbose] >
00:02:04 #4647 [verbose] > Formatter.Register<AssertExceptionFormatter> ((fun (x :
00:02:04 #4648 [verbose] > AssertExceptionFormatter) -> x.Text), "text/html")
00:02:04 #4649 [verbose] >
00:02:04 #4650 [verbose] > ── fsharp - import ─────────────────────────────────────────────────────────────
00:02:04 #4651 [verbose] > //// test
00:02:04 #4652 [verbose] >
00:02:04 #4653 [verbose] > let inline __expect fn log expected actual =
00:02:04 #4654 [verbose] > if log then printfn $"{actual.ToDisplayString ()}"
00:02:04 #4655 [verbose] > try
00:02:04 #4656 [verbose] > "Testing.__expect" |> fn actual expected
00:02:04 #4657 [verbose] > with :? Expecto.AssertException as ex ->
00:02:04 #4658 [verbose] > AssertExceptionFormatter(ex).Display () |> ignore
00:02:04 #4659 [verbose] > failwith (ex.GetType().FullName)
00:02:04 #4660 [verbose] >
00:02:04 #4661 [verbose] > let inline __contains log expected actual = __expect Expecto.Expect.contains log
00:02:04 #4662 [verbose] > expected actual
00:02:04 #4663 [verbose] > let inline _contains expected actual = __contains true expected actual
00:02:04 #4664 [verbose] >
00:02:04 #4665 [verbose] > let inline __assertEqual log expected actual = __expect Expecto.Expect.equal log
00:02:04 #4666 [verbose] > expected actual
00:02:04 #4667 [verbose] > let inline _assertEqual expected actual = __assertEqual true expected actual
00:02:04 #4668 [verbose] >
00:02:04 #4669 [verbose] > let inline __isGreaterThan log expected actual = __expect
00:02:04 #4670 [verbose] > Expecto.Expect.isGreaterThan log ex...
00:02:04 #4671 [verbose] >
00:02:04 #4672 [verbose] > ── fsharp - import ─────────────────────────────────────────────────────────────
00:02:04 #4673 [verbose] > //// test
00:02:04 #4674 [verbose] >
00:02:04 #4675 [verbose] > let inline __isBetween log a b actual =
00:02:04 #4676 [verbose] > let inline isBetween actual (a, b) _ =
00:02:04 #4677 [verbose] > __isGreaterThanOrEqual log a actual
00:02:04 #4678 [verbose] > __isLessThanOrEqual log b actual
00:02:04 #4679 [verbose] > __expect isBetween log (a, b) actual
00:02:04 #4680 [verbose] > let inline _isBetween a b actual = __isBetween true a b actual
00:02:04 #4681 [verbose] >
00:02:04 #4682 [verbose] > ── fsharp ──────────────────────────────────────────────────────────────────────
00:02:04 #4683 [verbose] > #r
00:02:04 #4684 [verbose] > @"../../../../../../../.nuget/packages/argu/6.2.2/lib/netstandard2.0/Argu.dll"
00:02:04 #4685 [verbose] > #r
00:02:04 #4686 [verbose] > @"../../../../../../../.nuget/packages/system.commandline/2.0.0-beta4.22272.1/li
00:02:04 #4687 [verbose] > b/net6.0/System.CommandLine.dll"
00:02:04 #4688 [verbose] >
00:02:04 #4689 [verbose] > ── fsharp ──────────────────────────────────────────────────────────────────────
00:02:04 #4690 [verbose] > #!import ../../lib/fsharp/Common.fs
00:02:04 #4691 [verbose] > #!import ../../lib/fsharp/CommonFSharp.fs
00:02:04 #4692 [verbose] > #!import ../../lib/fsharp/Async.fs
00:02:04 #4693 [verbose] > #!import ../../lib/fsharp/Runtime.fs
00:02:04 #4694 [verbose] >
00:02:04 #4695 [verbose] > ── fsharp - import ─────────────────────────────────────────────────────────────
00:02:04 #4696 [verbose] > #if !INTERACTIVE
00:02:04 #4697 [verbose] > namespace Polyglot
00:02:04 #4698 [verbose] > #endif
00:02:04 #4699 [verbose] >
00:02:04 #4700 [verbose] > module Common =
00:02:04 #4701 [verbose] >
00:02:04 #4702 [verbose] > #if !INTERACTIVE
00:02:04 #4703 [verbose] > open Lib
00:02:04 #4704 [verbose] > #endif
00:02:04 #4705 [verbose] >
00:02:04 #4706 [verbose] > let nl = System.Environment.NewLine
00:02:04 #4707 [verbose] > let q = @""""
00:02:04 #4708 [verbose] >
00:02:04 #4709 [verbose] > let inline cons head tail = head :: tail
00:02:04 #4710 [verbose] >
00:02:04 #4711 [verbose] > /// ## memoize
00:02:04 #4712 [verbose] >
00:02:04 #4713 [verbose] > let inline memoize fn =
00:02:04 #4714 [verbose] > let result = lazy fn ()
00:02:04 #4715 [verbose] > fun () -> result.Value
00:02:04 #4716 [verbose] >
00:02:04 #4717 [verbose] > /// ## TraceLevel
00:02:04 #4718 [verbose] >
00:02:04 #4719 [verbose] > type TraceLevel =
00:02:04 #4720 [verbose] > | Verbose
00:02:04 #4721 [verbose] > | Debug
00:02:04 #4722 [verbose] > | Info
00:02:04 #4723 [verbose] > | Warning
00:02:04 #4724 [verbose] > | Critical
00:02:04 #4725 [verbose] >
00:02:04 #4726 [verbose] > let inline getLocals () = ""
00:02:04 #4727 [verbose] >
00:02:04 #4728 [verbose] > /// ## trace
00:02:04 #4729 [verbose] >
00:02:04 #4730 [verbose] > let to_trace_level = function
00:02:04 #4731 [verbose] > | Verbose -> SpiralTrace.TraceLevel.US0_0
00:02:04 #4732 [verbose] > | Debug -> SpiralTrace.TraceLevel.US0_1
00:02:04 #4733 [verbose] > | Info -> SpiralTrace.TraceLevel.US0_2
00:02:04 #4734 [verbose] > | Warning -> SpiralTrace.TraceLevel.US0_3
00:02:04 #4735 [verbose] > | Critical ->...
00:02:04 #4736 [verbose] >
00:02:04 #4737 [verbose] > ── fsharp - import ─────────────────────────────────────────────────────────────
00:02:04 #4738 [verbose] > #if !INTERACTIVE
00:02:04 #4739 [verbose] > namespace Polyglot
00:02:04 #4740 [verbose] > #endif
00:02:04 #4741 [verbose] >
00:02:04 #4742 [verbose] > module CommonFSharp =
00:02:04 #4743 [verbose] >
00:02:04 #4744 [verbose] > open Common
00:02:04 #4745 [verbose] >
00:02:04 #4746 [verbose] > /// ## getUnionCaseName
00:02:04 #4747 [verbose] >
00:02:04 #4748 [verbose] > let inline getUnionCaseName<'T> (x: 'T) =
00:02:04 #4749 [verbose] > match Reflection.FSharpValue.GetUnionFields(x, typeof<'T>) with
00:02:04 #4750 [verbose] > | case, _ -> case.Name
00:02:04 #4751 [verbose] >
00:02:04 #4752 [verbose] >
00:02:04 #4753 [verbose] > ── fsharp - import ─────────────────────────────────────────────────────────────
00:02:04 #4754 [verbose] > #if !INTERACTIVE
00:02:04 #4755 [verbose] > namespace Polyglot
00:02:04 #4756 [verbose] > #endif
00:02:04 #4757 [verbose] >
00:02:04 #4758 [verbose] > module Async =
00:02:04 #4759 [verbose] >
00:02:04 #4760 [verbose] > #if !INTERACTIVE
00:02:04 #4761 [verbose] > open Lib
00:02:04 #4762 [verbose] > #endif
00:02:04 #4763 [verbose] >
00:02:04 #4764 [verbose] > open Common
00:02:04 #4765 [verbose] >
00:02:04 #4766 [verbose] > /// ## choice
00:02:04 #4767 [verbose] >
00:02:04 #4768 [verbose] > let inline choice asyncs = async {
00:02:04 #4769 [verbose] > let e = Event<_> ()
00:02:04 #4770 [verbose] > use cts = new System.Threading.CancellationTokenSource ()
00:02:04 #4771 [verbose] > let fn =
00:02:04 #4772 [verbose] > asyncs
00:02:04 #4773 [verbose] > |> Seq.map (fun a -> async {
00:02:04 #4774 [verbose] > let! x = a
00:02:04 #4775 [verbose] > e.Trigger x
00:02:04 #4776 [verbose] > })
00:02:04 #4777 [verbose] > |> Async.Parallel
00:02:04 #4778 [verbose] > |> Async.Ignore
00:02:04 #4779 [verbose] > Async.Start (fn, cts.Token)
00:02:04 #4780 [verbose] > let! result = Async.AwaitEvent e.Publish
00:02:04 #4781 [verbose] > cts.Cancel ()
00:02:04 #4782 [verbose] > return result
00:02:04 #4783 [verbose] > }
00:02:04 #4784 [verbose] >
00:02:04 #4785 [verbose] > /// ## map
00:02:04 #4786 [verbose] >
00:02:04 #4787 [verbose] > let inline map fn a = async {
00:02:04 #4788 [verbose] > let! x = a
00:02:04 #4789 [verbose] > return fn x
00:02:04 #4790 [verbose] > }
00:02:04 #4791 [verbose] >
00:02:04 #4792 [verbose] > /// ## catch
00:02:04 #4793 [verbose] >
00:02:04 #4794 [verbose] > let inline catch a =
00:02:04 #4795 [verbose] > ...
00:02:05 #4796 [verbose] >
00:02:05 #4797 [verbose] > ── fsharp - import ─────────────────────────────────────────────────────────────
00:02:05 #4798 [verbose] > #if !INTERACTIVE
00:02:05 #4799 [verbose] > namespace Polyglot
00:02:05 #4800 [verbose] > #endif
00:02:05 #4801 [verbose] >
00:02:05 #4802 [verbose] > module Runtime =
00:02:05 #4803 [verbose] >
00:02:05 #4804 [verbose] > #if !INTERACTIVE
00:02:05 #4805 [verbose] > open Lib
00:02:05 #4806 [verbose] > #endif
00:02:05 #4807 [verbose] >
00:02:05 #4808 [verbose] > open Common
00:02:05 #4809 [verbose] >
00:02:05 #4810 [verbose] > /// ## splitArgs
00:02:05 #4811 [verbose] >
00:02:05 #4812 [verbose] > let inline splitArgs commandLine =
00:02:05 #4813 [verbose] > commandLine
00:02:05 #4814 [verbose] > |> System.CommandLine.Parsing.CommandLineStringSplitter.Instance.Split
00:02:05 #4815 [verbose] >
00:02:05 #4816 [verbose] > /// ## parseArgs
00:02:05 #4817 [verbose] >
00:02:05 #4818 [verbose] > let inline parseArgs<'T when 'T :> Argu.IArgParserTemplate> args =
00:02:05 #4819 [verbose] > let assemblyName =
00:02:05 #4820 [verbose] > System.Reflection.Assembly.GetEntryAssembly().GetName().Name
00:02:05 #4821 [verbose] > let errorHandler : Argu.IExiter =
00:02:05 #4822 [verbose] > if [[ "Microsoft.DotNet.Interactive.App"; "dotnet-repl" ]] |>
00:02:05 #4823 [verbose] > List.contains assemblyName
00:02:05 #4824 [verbose] > then Argu.ExceptionExiter ()
00:02:05 #4825 [verbose] > else Argu.ProcessExiter (function Argu.ErrorCode.HelpText -> None |
00:02:05 #4826 [verbose] > _ -> Some System.ConsoleColor...
00:02:05 #4827 [verbose] >
00:02:05 #4828 [verbose] > ── fsharp ──────────────────────────────────────────────────────────────────────
00:02:05 #4829 [verbose] > #if !INTERACTIVE
00:02:05 #4830 [verbose] > open Lib
00:02:05 #4831 [verbose] > #endif
00:02:05 #4832 [verbose] >
00:02:05 #4833 [verbose] > ── fsharp ──────────────────────────────────────────────────────────────────────
00:02:05 #4834 [verbose] > open Common
00:02:05 #4835 [verbose] >
00:02:05 #4836 [verbose] > ── markdown ────────────────────────────────────────────────────────────────────
00:02:05 #4837 [verbose] > ╭──────────────────────────────────────────────────────────────────────────────╮
00:02:05 #4838 [verbose] > │ ## testPortOpen │
00:02:05 #4839 [verbose] > ╰──────────────────────────────────────────────────────────────────────────────╯
00:02:05 #4840 [verbose] >
00:02:05 #4841 [verbose] > ── fsharp ──────────────────────────────────────────────────────────────────────
00:02:05 #4842 [verbose] > let inline testPortOpen port = async {
00:02:05 #4843 [verbose] > let! ct = Async.CancellationToken
00:02:05 #4844 [verbose] > use client = new System.Net.Sockets.TcpClient ()
00:02:05 #4845 [verbose] > try
00:02:05 #4846 [verbose] > do! client.ConnectAsync ("127.0.0.1", port, ct) |>
00:02:05 #4847 [verbose] > Async.awaitValueTaskUnit
00:02:05 #4848 [verbose] > return true
00:02:05 #4849 [verbose] > with ex ->
00:02:05 #4850 [verbose] > trace Verbose (fun () -> $"testPortOpen / ex: {ex |>
00:02:05 #4851 [verbose] > SpiralSm.format_exception}") getLocals
00:02:05 #4852 [verbose] > return false
00:02:05 #4853 [verbose] > }
00:02:05 #4854 [verbose] >
00:02:05 #4855 [verbose] > ── fsharp ──────────────────────────────────────────────────────────────────────
00:02:05 #4856 [verbose] > //// test
00:02:05 #4857 [verbose] >
00:02:05 #4858 [verbose] > testPortOpen 65536
00:02:05 #4859 [verbose] > |> Async.runWithTimeout 120
00:02:05 #4860 [verbose] > |> _assertEqual (Some false)
00:02:05 #4861 [verbose] >
00:02:05 #4862 [verbose] > ╭─[ 135.86ms - stdout ]────────────────────────────────────────────────────────╮
00:02:05 #4863 [verbose] > │ 00:00:00 #1 [verbose] testPortOpen / ex: System.ArgumentOutOfRangeException: │
00:02:05 #4864 [verbose] > │ Specified argument was out of the range of valid values. (Parameter 'port') │
00:02:05 #4865 [verbose] > │ FSharpOption<Boolean> │
00:02:05 #4866 [verbose] > │ Value: False │
00:02:05 #4867 [verbose] > │ │
00:02:05 #4868 [verbose] > ╰──────────────────────────────────────────────────────────────────────────────╯
00:02:05 #4869 [verbose] >
00:02:05 #4870 [verbose] > ── fsharp ──────────────────────────────────────────────────────────────────────
00:02:05 #4871 [verbose] > let inline testPortOpenTimeout timeout port = async {
00:02:05 #4872 [verbose] > let! result =
00:02:05 #4873 [verbose] > testPortOpen port
00:02:05 #4874 [verbose] > |> Async.runWithTimeoutAsync timeout
00:02:05 #4875 [verbose] > return
00:02:05 #4876 [verbose] > match result with
00:02:05 #4877 [verbose] > | None -> false
00:02:05 #4878 [verbose] > | Some result -> result
00:02:05 #4879 [verbose] > }
00:02:05 #4880 [verbose] >
00:02:05 #4881 [verbose] > ── fsharp ──────────────────────────────────────────────────────────────────────
00:02:05 #4882 [verbose] > //// test
00:02:05 #4883 [verbose] >
00:02:05 #4884 [verbose] > testPortOpenTimeout 120 65535
00:02:05 #4885 [verbose] > |> Async.RunSynchronously
00:02:05 #4886 [verbose] > |> _assertEqual false
00:02:05 #4887 [verbose] >
00:02:05 #4888 [verbose] > ╭─[ 234.28ms - stdout ]────────────────────────────────────────────────────────╮
00:02:05 #4889 [verbose] > │ 00:00:00 #2 [debug] runWithTimeoutChildAsync / timeout: 120 │
00:02:05 #4890 [verbose] > │ False │
00:02:05 #4891 [verbose] > │ │
00:02:05 #4892 [verbose] > ╰──────────────────────────────────────────────────────────────────────────────╯
00:02:05 #4893 [verbose] >
00:02:05 #4894 [verbose] > ── markdown ────────────────────────────────────────────────────────────────────
00:02:05 #4895 [verbose] > ╭──────────────────────────────────────────────────────────────────────────────╮
00:02:05 #4896 [verbose] > │ ## waitForPortAccess │
00:02:05 #4897 [verbose] > ╰──────────────────────────────────────────────────────────────────────────────╯
00:02:05 #4898 [verbose] >
00:02:05 #4899 [verbose] > ── fsharp ──────────────────────────────────────────────────────────────────────
00:02:05 #4900 [verbose] > let inline waitForPortAccess timeout status port =
00:02:05 #4901 [verbose] > let rec loop retry = async {
00:02:05 #4902 [verbose] > let! isPortOpen =
00:02:05 #4903 [verbose] > match timeout with
00:02:05 #4904 [verbose] > | None -> testPortOpen port
00:02:05 #4905 [verbose] > | Some timeout -> testPortOpenTimeout timeout port
00:02:05 #4906 [verbose] > if isPortOpen = status
00:02:05 #4907 [verbose] > then return retry
00:02:05 #4908 [verbose] > else
00:02:05 #4909 [verbose] > if retry % 100 = 0 then
00:02:05 #4910 [verbose] > let getLocals () = $"port: {port} / retry: {retry} / {getLocals
00:02:05 #4911 [verbose] > ()}"
00:02:05 #4912 [verbose] > trace Verbose (fun () -> "waitForPortAccess") getLocals
00:02:05 #4913 [verbose] > do! Async.Sleep 10
00:02:05 #4914 [verbose] > return! loop (retry + 1)
00:02:05 #4915 [verbose] > }
00:02:05 #4916 [verbose] > loop 0
00:02:06 #4917 [verbose] >
00:02:06 #4918 [verbose] > ── fsharp ──────────────────────────────────────────────────────────────────────
00:02:06 #4919 [verbose] > //// test
00:02:06 #4920 [verbose] >
00:02:06 #4921 [verbose] > let port = 5555
00:02:06 #4922 [verbose] >
00:02:06 #4923 [verbose] > let inline lockPort () = async {
00:02:06 #4924 [verbose] > trace Debug (fun () -> "_1") getLocals
00:02:06 #4925 [verbose] > do! Async.Sleep 5000
00:02:06 #4926 [verbose] > use listener = new System.Net.Sockets.TcpListener
00:02:06 #4927 [verbose] > (System.Net.IPAddress.Parse "127.0.0.1", port)
00:02:06 #4928 [verbose] > trace Debug (fun () -> "_2") getLocals
00:02:06 #4929 [verbose] > listener.Start ()
00:02:06 #4930 [verbose] > trace Debug (fun () -> "_3") getLocals
00:02:06 #4931 [verbose] > do! Async.Sleep 2000
00:02:06 #4932 [verbose] > trace Debug (fun () -> "_4") getLocals
00:02:06 #4933 [verbose] > listener.Stop ()
00:02:06 #4934 [verbose] > trace Debug (fun () -> "_5") getLocals
00:02:06 #4935 [verbose] > }
00:02:06 #4936 [verbose] >
00:02:06 #4937 [verbose] > async {
00:02:06 #4938 [verbose] > trace Debug (fun () -> "1") getLocals
00:02:06 #4939 [verbose] > let! child = lockPort () |> Async.StartChild
00:02:06 #4940 [verbose] > trace Debug (fun () -> "2") getLocals
00:02:06 #4941 [verbose] > do! Async.Sleep 1
00:02:06 #4942 [verbose] > trace Debug (fun () -> "3") getLocals
00:02:06 #4943 [verbose] > let! retries1 = waitForPortAccess None true port
00:02:06 #4944 [verbose] > trace Debug (fun () -> "4") getLocals
00:02:06 #4945 [verbose] > let! retries2 = waitForPortAccess None false port
00:02:06 #4946 [verbose] > trace Debug (fun () -> "5") getLocals
00:02:06 #4947 [verbose] > do! child
00:02:06 #4948 [verbose] > trace Debug (fun () -> "6") getLocals
00:02:06 #4949 [verbose] > return retries1, retries2
00:02:06 #4950 [verbose] > }
00:02:06 #4951 [verbose] > |> Async.runWithTimeout 20000
00:02:06 #4952 [verbose] > |> function
00:02:06 #4953 [verbose] > | Some (retries1, retries2) ->
00:02:06 #4954 [verbose] > retries1
00:02:06 #4955 [verbose] > |> _isBetween
00:02:06 #4956 [verbose] > (if SpiralRuntime.is_windows () then 2 else 2)
00:02:06 #4957 [verbose] > (if SpiralRuntime.is_windows () then 5 else 1500)
00:02:06 #4958 [verbose] >
00:02:06 #4959 [verbose] > retries2
00:02:06 #4960 [verbose] > |> _isBetween
00:02:06 #4961 [verbose] > (if SpiralRuntime.is_windows () then 80 else 80)
00:02:06 #4962 [verbose] > (if SpiralRuntime.is_windows () then 150 else 600)
00:02:06 #4963 [verbose] >
00:02:06 #4964 [verbose] > true
00:02:06 #4965 [verbose] > | _ -> false
00:02:06 #4966 [verbose] > |> _assertEqual true
00:02:15 #4967 [verbose] >
00:02:15 #4968 [verbose] > ╭─[ 9.55s - stdout ]───────────────────────────────────────────────────────────╮
00:02:15 #4969 [verbose] > │ 00:00:01 #3 [debug] 1 │
00:02:15 #4970 [verbose] > │ 00:00:01 #4 [debug] _1 │
00:02:15 #4971 [verbose] > │ 00:00:01 #5 [debug] 2 │
00:02:15 #4972 [verbose] > │ 00:00:01 #6 [debug] 3 │
00:02:15 #4973 [verbose] > │ 00:00:03 #7 [verbose] testPortOpen / ex: System.AggregateException: One or │
00:02:15 #4974 [verbose] > │ more errors occurred. (No connection could be made because the target │
00:02:15 #4975 [verbose] > │ machine actively refused it.) │
00:02:15 #4976 [verbose] > │ 00:00:03 #8 [verbose] waitForPortAccess / port: 5555 / retry: 0 │
00:02:15 #4977 [verbose] > │ 00:00:05 #9 [verbose] testPortOpen / ex: System.AggregateException: One or │
00:02:15 #4978 [verbose] > │ more errors occurred. (No connection could be made because the target │
00:02:15 #4979 [verbose] > │ machine actively refused it.) │
00:02:15 #4980 [verbose] > │ 00:00:06 #10 [debug] _2 │
00:02:15 #4981 [verbose] > │ 00:00:06 #11 [debug] _3 │
00:02:15 #4982 [verbose] > │ 00:00:06 #12 [debug] 4 │
00:02:15 #4983 [verbose] > │ 00:00:06 #13 [verbose] waitForPortAccess / port: 5555 / retry: 0 │
00:02:15 #4984 [verbose] > │ 00:00:07 #14 [verbose] waitForPortAccess / port: 5555 / retry: 100 │
00:02:15 #4985 [verbose] > │ 00:00:08 #15 [debug] _4 │
00:02:15 #4986 [verbose] > │ 00:00:08 #16 [debug] _5 │
00:02:15 #4987 [verbose] > │ 00:00:10 #17 [verbose] testPortOpen / ex: System.AggregateException: One or │
00:02:15 #4988 [verbose] > │ more errors occurred. (No connection could be made because the target │
00:02:15 #4989 [verbose] > │ machine actively refused it.) │
00:02:15 #4990 [verbose] > │ 00:00:10 #18 [debug] 5 │
00:02:15 #4991 [verbose] > │ 00:00:10 #19 [debug] 6 │
00:02:15 #4992 [verbose] > │ 2 │
00:02:15 #4993 [verbose] > │ 2 │
00:02:15 #4994 [verbose] > │ 2 │
00:02:15 #4995 [verbose] > │ 119 │
00:02:15 #4996 [verbose] > │ 119 │
00:02:15 #4997 [verbose] > │ 119 │
00:02:15 #4998 [verbose] > │ True │
00:02:15 #4999 [verbose] > │ │
00:02:15 #5000 [verbose] > ╰──────────────────────────────────────────────────────────────────────────────╯
00:02:15 #5001 [verbose] >
00:02:15 #5002 [verbose] > ── fsharp ──────────────────────────────────────────────────────────────────────
00:02:15 #5003 [verbose] > //// test
00:02:15 #5004 [verbose] >
00:02:15 #5005 [verbose] > let port = 5555
00:02:15 #5006 [verbose] >
00:02:15 #5007 [verbose] > let inline lockPort () = async {
00:02:15 #5008 [verbose] > trace Debug (fun () -> "_1") getLocals
00:02:15 #5009 [verbose] > do! Async.Sleep 500
00:02:15 #5010 [verbose] > use listener = new System.Net.Sockets.TcpListener
00:02:15 #5011 [verbose] > (System.Net.IPAddress.Parse "127.0.0.1", port)
00:02:15 #5012 [verbose] > trace Debug (fun () -> "_2") getLocals
00:02:15 #5013 [verbose] > listener.Start ()
00:02:15 #5014 [verbose] > trace Debug (fun () -> "_3") getLocals
00:02:15 #5015 [verbose] > do! Async.Sleep 200
00:02:15 #5016 [verbose] > trace Debug (fun () -> "_4") getLocals
00:02:15 #5017 [verbose] > listener.Stop ()
00:02:15 #5018 [verbose] > trace Debug (fun () -> "_5") getLocals
00:02:15 #5019 [verbose] > }
00:02:15 #5020 [verbose] >
00:02:15 #5021 [verbose] > async {
00:02:15 #5022 [verbose] > trace Debug (fun () -> "1") getLocals
00:02:15 #5023 [verbose] > let! child = lockPort () |> Async.StartChild
00:02:15 #5024 [verbose] > trace Debug (fun () -> "2") getLocals
00:02:15 #5025 [verbose] > do! Async.Sleep 1
00:02:15 #5026 [verbose] > trace Debug (fun () -> "3") getLocals
00:02:15 #5027 [verbose] > let! retries1 = waitForPortAccess (Some 60) true port
00:02:15 #5028 [verbose] > trace Debug (fun () -> "4") getLocals
00:02:15 #5029 [verbose] > let! retries2 = waitForPortAccess (Some 60) false port
00:02:15 #5030 [verbose] > trace Debug (fun () -> "5") getLocals
00:02:15 #5031 [verbose] > do! child
00:02:15 #5032 [verbose] > trace Debug (fun () -> "6") getLocals
00:02:15 #5033 [verbose] > return retries1, retries2
00:02:15 #5034 [verbose] > }
00:02:15 #5035 [verbose] > |> Async.runWithTimeout 2000
00:02:15 #5036 [verbose] > |> function
00:02:15 #5037 [verbose] > | Some (retries1, retries2) ->
00:02:15 #5038 [verbose] > retries1
00:02:15 #5039 [verbose] > |> _isBetween
00:02:15 #5040 [verbose] > (if SpiralRuntime.is_windows () then 4 else 2)
00:02:15 #5041 [verbose] > (if SpiralRuntime.is_windows () then 15 else 150)
00:02:15 #5042 [verbose] >
00:02:15 #5043 [verbose] > retries2
00:02:15 #5044 [verbose] > |> _isBetween
00:02:15 #5045 [verbose] > (if SpiralRuntime.is_windows () then 5 else 0)
00:02:15 #5046 [verbose] > (if SpiralRuntime.is_windows () then 20 else 60)
00:02:15 #5047 [verbose] >
00:02:15 #5048 [verbose] > true
00:02:15 #5049 [verbose] > | _ -> false
00:02:15 #5050 [verbose] > |> _assertEqual true
00:02:16 #5051 [verbose] >
00:02:16 #5052 [verbose] > ╭─[ 1.39s - stdout ]───────────────────────────────────────────────────────────╮
00:02:16 #5053 [verbose] > │ 00:00:10 #20 [debug] 1 │
00:02:16 #5054 [verbose] > │ 00:00:10 #21 [debug] 2 │
00:02:16 #5055 [verbose] > │ 00:00:10 #22 [debug] _1 │
00:02:16 #5056 [verbose] > │ 00:00:10 #23 [debug] 3 │
00:02:16 #5057 [verbose] > │ 00:00:10 #24 [debug] runWithTimeoutChildAsync / timeout: 60 │
00:02:17 #5058 [verbose] > │ 00:00:10 #25 [verbose] waitForPortAccess / port: 5555 / retry: 0 │
00:02:17 #5059 [verbose] > │ 00:00:10 #26 [debug] runWithTimeoutChildAsync / timeout: 60 │
00:02:17 #5060 [verbose] > │ 00:00:10 #27 [debug] runWithTimeoutChildAsync / timeout: 60 │
00:02:17 #5061 [verbose] > │ 00:00:11 #28 [debug] runWithTimeoutChildAsync / timeout: 60 │
00:02:17 #5062 [verbose] > │ 00:00:11 #29 [debug] runWithTimeoutChildAsync / timeout: 60 │
00:02:17 #5063 [verbose] > │ 00:00:11 #30 [debug] runWithTimeoutChildAsync / timeout: 60 │
00:02:17 #5064 [verbose] > │ 00:00:11 #31 [debug] _2 │
00:02:17 #5065 [verbose] > │ 00:00:11 #32 [debug] _3 │
00:02:17 #5066 [verbose] > │ 00:00:11 #33 [debug] runWithTimeoutChildAsync / timeout: 60 │
00:02:17 #5067 [verbose] > │ 00:00:11 #34 [debug] 4 │
00:02:17 #5068 [verbose] > │ 00:00:11 #35 [verbose] waitForPortAccess / port: 5555 / retry: 0 │
00:02:17 #5069 [verbose] > │ 00:00:11 #36 [debug] _4 │
00:02:17 #5070 [verbose] > │ 00:00:11 #37 [debug] _5 │
00:02:17 #5071 [verbose] > │ 00:00:11 #38 [debug] runWithTimeoutChildAsync / timeout: 60 │
00:02:17 #5072 [verbose] > │ 00:00:11 #39 [debug] 5 │
00:02:17 #5073 [verbose] > │ 00:00:11 #40 [debug] 6 │
00:02:17 #5074 [verbose] > │ 7 │
00:02:17 #5075 [verbose] > │ 7 │
00:02:17 #5076 [verbose] > │ 7 │
00:02:17 #5077 [verbose] > │ 9 │
00:02:17 #5078 [verbose] > │ 9 │
00:02:17 #5079 [verbose] > │ 9 │
00:02:17 #5080 [verbose] > │ True │
00:02:17 #5081 [verbose] > │ │
00:02:17 #5082 [verbose] > ╰──────────────────────────────────────────────────────────────────────────────╯
00:02:17 #5083 [verbose] >
00:02:17 #5084 [verbose] > ── markdown ────────────────────────────────────────────────────────────────────
00:02:17 #5085 [verbose] > ╭──────────────────────────────────────────────────────────────────────────────╮
00:02:17 #5086 [verbose] > │ ## getAvailablePort │
00:02:17 #5087 [verbose] > ╰──────────────────────────────────────────────────────────────────────────────╯
00:02:17 #5088 [verbose] >
00:02:17 #5089 [verbose] > ── fsharp ──────────────────────────────────────────────────────────────────────
00:02:17 #5090 [verbose] > let inline getAvailablePort timeout initialPort =
00:02:17 #5091 [verbose] > let rec loop port = async {
00:02:17 #5092 [verbose] > let! isPortOpen =
00:02:17 #5093 [verbose] > match timeout with
00:02:17 #5094 [verbose] > | None -> testPortOpen port
00:02:17 #5095 [verbose] > | Some timeout -> testPortOpenTimeout timeout port
00:02:17 #5096 [verbose] > if not isPortOpen
00:02:17 #5097 [verbose] > then return port
00:02:17 #5098 [verbose] > else return! loop (port + 1)
00:02:17 #5099 [verbose] > }
00:02:17 #5100 [verbose] > loop initialPort
00:02:17 #5101 [verbose] >
00:02:17 #5102 [verbose] > ── fsharp ──────────────────────────────────────────────────────────────────────
00:02:17 #5103 [verbose] > //// test
00:02:17 #5104 [verbose] >
00:02:17 #5105 [verbose] > let port = 5555
00:02:17 #5106 [verbose] >
00:02:17 #5107 [verbose] > let inline lockPorts () = async {
00:02:17 #5108 [verbose] > trace Debug (fun () -> "_1") getLocals
00:02:17 #5109 [verbose] > use listener1 = new System.Net.Sockets.TcpListener
00:02:17 #5110 [verbose] > (System.Net.IPAddress.Parse "127.0.0.1", port)
00:02:17 #5111 [verbose] > use listener2 = new System.Net.Sockets.TcpListener
00:02:17 #5112 [verbose] > (System.Net.IPAddress.Parse "127.0.0.1", port + 1)
00:02:17 #5113 [verbose] > trace Debug (fun () -> "_2") getLocals
00:02:17 #5114 [verbose] > listener1.Start ()
00:02:17 #5115 [verbose] > listener2.Start ()
00:02:17 #5116 [verbose] > trace Debug (fun () -> "_3") getLocals
00:02:17 #5117 [verbose] > do! Async.Sleep 4000
00:02:17 #5118 [verbose] > trace Debug (fun () -> "_4") getLocals
00:02:17 #5119 [verbose] > listener1.Stop ()
00:02:17 #5120 [verbose] > listener2.Stop ()
00:02:17 #5121 [verbose] > trace Debug (fun () -> "_5") getLocals
00:02:17 #5122 [verbose] > }
00:02:17 #5123 [verbose] >
00:02:17 #5124 [verbose] > async {
00:02:17 #5125 [verbose] > trace Debug (fun () -> "1") getLocals
00:02:17 #5126 [verbose] > let! child = lockPorts () |> Async.StartChild
00:02:17 #5127 [verbose] > trace Debug (fun () -> "2") getLocals
00:02:17 #5128 [verbose] > do! Async.Sleep 240
00:02:17 #5129 [verbose] > trace Debug (fun () -> "3") getLocals
00:02:17 #5130 [verbose] > let! availablePort = getAvailablePort None port
00:02:17 #5131 [verbose] > trace Debug (fun () -> "4") getLocals
00:02:17 #5132 [verbose] > let! retries = waitForPortAccess None false port
00:02:17 #5133 [verbose] > trace Debug (fun () -> "5") getLocals
00:02:17 #5134 [verbose] > do! child
00:02:17 #5135 [verbose] > trace Debug (fun () -> "6") getLocals
00:02:17 #5136 [verbose] > return availablePort, retries
00:02:17 #5137 [verbose] > }
00:02:17 #5138 [verbose] > |> Async.runWithTimeout 15000
00:02:17 #5139 [verbose] > |> function
00:02:17 #5140 [verbose] > | Some (availablePort, retries) ->
00:02:17 #5141 [verbose] > availablePort |> _assertEqual (port + 2)
00:02:17 #5142 [verbose] >
00:02:17 #5143 [verbose] > retries
00:02:17 #5144 [verbose] > |> _isBetween
00:02:17 #5145 [verbose] > (if SpiralRuntime.is_windows () then 100 else 100)
00:02:17 #5146 [verbose] > (if SpiralRuntime.is_windows () then 150 else 1200)
00:02:17 #5147 [verbose] >
00:02:17 #5148 [verbose] > true
00:02:17 #5149 [verbose] > | _ -> false
00:02:17 #5150 [verbose] > |> _assertEqual true
00:02:23 #5151 [verbose] >
00:02:23 #5152 [verbose] > ╭─[ 6.51s - stdout ]───────────────────────────────────────────────────────────╮
00:02:23 #5153 [verbose] > │ 00:00:12 #41 [debug] 1 │
00:02:23 #5154 [verbose] > │ 00:00:12 #42 [debug] 2 │
00:02:23 #5155 [verbose] > │ 00:00:12 #43 [debug] _1 │
00:02:23 #5156 [verbose] > │ 00:00:12 #44 [debug] _2 │
00:02:23 #5157 [verbose] > │ 00:00:12 #45 [debug] _3 │
00:02:23 #5158 [verbose] > │ 00:00:12 #46 [debug] 3 │
00:02:23 #5159 [verbose] > │ 00:00:14 #47 [verbose] testPortOpen / ex: System.AggregateException: One or │
00:02:23 #5160 [verbose] > │ more errors occurred. (No connection could be made because the target │
00:02:23 #5161 [verbose] > │ machine actively refused it.) │
00:02:23 #5162 [verbose] > │ 00:00:14 #48 [debug] 4 │
00:02:23 #5163 [verbose] > │ 00:00:14 #49 [verbose] waitForPortAccess / port: 5555 / retry: 0 │
00:02:23 #5164 [verbose] > │ 00:00:16 #50 [verbose] waitForPortAccess / port: 5555 / retry: 100 │
00:02:23 #5165 [verbose] > │ 00:00:16 #51 [debug] _4 │
00:02:23 #5166 [verbose] > │ 00:00:16 #52 [debug] _5 │
00:02:23 #5167 [verbose] > │ 00:00:18 #53 [verbose] testPortOpen / ex: System.AggregateException: One or │
00:02:23 #5168 [verbose] > │ more errors occurred. (No connection could be made because the target │
00:02:23 #5169 [verbose] > │ machine actively refused it.) │
00:02:23 #5170 [verbose] > │ 00:00:18 #54 [debug] 5 │
00:02:23 #5171 [verbose] > │ 00:00:18 #55 [debug] 6 │
00:02:23 #5172 [verbose] > │ 5557 │
00:02:23 #5173 [verbose] > │ 111 │
00:02:23 #5174 [verbose] > │ 111 │
00:02:23 #5175 [verbose] > │ 111 │
00:02:23 #5176 [verbose] > │ True │
00:02:23 #5177 [verbose] > │ │
00:02:23 #5178 [verbose] > ╰──────────────────────────────────────────────────────────────────────────────╯
00:02:23 #5179 [verbose] >
00:02:23 #5180 [verbose] > ── fsharp ──────────────────────────────────────────────────────────────────────
00:02:23 #5181 [verbose] > //// test
00:02:23 #5182 [verbose] >
00:02:23 #5183 [verbose] > let port = 5555
00:02:23 #5184 [verbose] >
00:02:23 #5185 [verbose] > let inline lockPorts () = async {
00:02:23 #5186 [verbose] > trace Debug (fun () -> "_1") getLocals
00:02:23 #5187 [verbose] > use listener1 = new System.Net.Sockets.TcpListener
00:02:23 #5188 [verbose] > (System.Net.IPAddress.Parse "127.0.0.1", port)
00:02:23 #5189 [verbose] > use listener2 = new System.Net.Sockets.TcpListener
00:02:23 #5190 [verbose] > (System.Net.IPAddress.Parse "127.0.0.1", port + 1)
00:02:23 #5191 [verbose] > trace Debug (fun () -> "_2") getLocals
00:02:23 #5192 [verbose] > listener1.Start ()
00:02:23 #5193 [verbose] > listener2.Start ()
00:02:23 #5194 [verbose] > trace Debug (fun () -> "_3") getLocals
00:02:23 #5195 [verbose] > do! Async.Sleep 400
00:02:23 #5196 [verbose] > trace Debug (fun () -> "_4") getLocals
00:02:23 #5197 [verbose] > listener1.Stop ()
00:02:23 #5198 [verbose] > listener2.Stop ()
00:02:23 #5199 [verbose] > trace Debug (fun () -> "_5") getLocals
00:02:23 #5200 [verbose] > }
00:02:23 #5201 [verbose] >
00:02:23 #5202 [verbose] > async {
00:02:23 #5203 [verbose] > trace Debug (fun () -> "1") getLocals
00:02:23 #5204 [verbose] > let! child = lockPorts () |> Async.StartChild
00:02:23 #5205 [verbose] > trace Debug (fun () -> "2") getLocals
00:02:23 #5206 [verbose] > do! Async.Sleep 240
00:02:23 #5207 [verbose] > trace Debug (fun () -> "3") getLocals
00:02:23 #5208 [verbose] > let! availablePort = getAvailablePort (Some 60) port
00:02:23 #5209 [verbose] > trace Debug (fun () -> "4") getLocals
00:02:23 #5210 [verbose] > let! retries = waitForPortAccess (Some 60) false port
00:02:23 #5211 [verbose] > trace Debug (fun () -> "5") getLocals
00:02:23 #5212 [verbose] > do! child
00:02:23 #5213 [verbose] > trace Debug (fun () -> "6") getLocals
00:02:23 #5214 [verbose] > return availablePort, retries
00:02:23 #5215 [verbose] > }
00:02:23 #5216 [verbose] > |> Async.runWithTimeout 1500
00:02:23 #5217 [verbose] > |> function
00:02:23 #5218 [verbose] > | Some (availablePort, retries) ->
00:02:23 #5219 [verbose] > availablePort |> _assertEqual (port + 2)
00:02:23 #5220 [verbose] >
00:02:23 #5221 [verbose] > retries
00:02:23 #5222 [verbose] > |> _isBetween
00:02:23 #5223 [verbose] > (if SpiralRuntime.is_windows () then 2 else 1)
00:02:23 #5224 [verbose] > (if SpiralRuntime.is_windows () then 10 else 120)
00:02:23 #5225 [verbose] >
00:02:23 #5226 [verbose] > true
00:02:23 #5227 [verbose] > | _ -> false
00:02:23 #5228 [verbose] > |> _assertEqual true
00:02:24 #5229 [verbose] >
00:02:24 #5230 [verbose] > ╭─[ 981.01ms - stdout ]────────────────────────────────────────────────────────╮
00:02:24 #5231 [verbose] > │ 00:00:18 #56 [debug] 1 │
00:02:24 #5232 [verbose] > │ 00:00:18 #57 [debug] 2 │
00:02:24 #5233 [verbose] > │ 00:00:18 #58 [debug] _1 │
00:02:24 #5234 [verbose] > │ 00:00:18 #59 [debug] _2 │
00:02:24 #5235 [verbose] > │ 00:00:18 #60 [debug] _3 │
00:02:24 #5236 [verbose] > │ 00:00:19 #61 [debug] 3 │
00:02:24 #5237 [verbose] > │ 00:00:19 #62 [debug] runWithTimeoutChildAsync / timeout: 60 │
00:02:24 #5238 [verbose] > │ 00:00:19 #63 [debug] 4 │
00:02:24 #5239 [verbose] > │ 00:00:19 #64 [verbose] waitForPortAccess / port: 5555 / retry: 0 │
00:02:24 #5240 [verbose] > │ 00:00:19 #65 [debug] _4 │
00:02:24 #5241 [verbose] > │ 00:00:19 #66 [debug] _5 │
00:02:24 #5242 [verbose] > │ 00:00:19 #67 [debug] runWithTimeoutChildAsync / timeout: 60 │
00:02:24 #5243 [verbose] > │ 00:00:19 #68 [debug] 5 │
00:02:24 #5244 [verbose] > │ 00:00:19 #69 [debug] 6 │
00:02:24 #5245 [verbose] > │ 5557 │
00:02:24 #5246 [verbose] > │ 5 │
00:02:24 #5247 [verbose] > │ 5 │
00:02:24 #5248 [verbose] > │ 5 │
00:02:24 #5249 [verbose] > │ True │
00:02:24 #5250 [verbose] > │ │
00:02:24 #5251 [verbose] > ╰──────────────────────────────────────────────────────────────────────────────╯
00:02:26 #5252 [verbose] > [NbConvertApp] Converting notebook Networking.dib.ipynb to html
00:02:26 #5253 [verbose] > C:\Users\i574n\scoop\apps\python\current\Lib\site-packages\nbformat\__init__.py:93: MissingIDFieldWarning: Code cell is missing an id field, this will become a hard error in future nbformat versions. You may want to use `normalize()` on your notebooks before validations (available since nbformat 5.1.4). Previous versions of nbformat are fixing this issue transparently, and will stop doing so in the future.
00:02:26 #5254 [verbose] > validate(nb)
00:02:26 #5255 [verbose] > C:\Users\i574n\scoop\apps\python\current\Lib\site-packages\nbconvert\filters\highlight.py:71: UserWarning: IPython3 lexer unavailable, falling back on Python 3
00:02:26 #5256 [verbose] > return _pygments_highlight(
00:02:27 #5257 [verbose] > [NbConvertApp] Writing 326050 bytes to Networking.dib.html
00:02:27 #5258 [debug] execute_with_options_async / exit_code: 0 / output.Length: 34801
00:02:27 #12 [debug] main / executeCommand / exitCode: 0
00:02:27 #5259 [debug] execute_with_options_async / options: struct (Some System.Threading.CancellationToken,
"pwsh -c "../../scripts/invoke-dib.ps1 Runtime.dib -Retries 3"", None,
None, None)
00:02:30 #5260 [verbose] >
00:02:30 #5261 [verbose] > ── markdown ────────────────────────────────────────────────────────────────────
00:02:30 #5262 [verbose] > ╭──────────────────────────────────────────────────────────────────────────────╮
00:02:30 #5263 [verbose] > │ # Runtime (Polyglot) │
00:02:30 #5264 [verbose] > ╰──────────────────────────────────────────────────────────────────────────────╯
00:02:30 #5265 [verbose] >
00:02:30 #5266 [verbose] > ── fsharp ──────────────────────────────────────────────────────────────────────
00:02:30 #5267 [verbose] > #r
00:02:30 #5268 [verbose] > @"../../../../../../../.nuget/packages/fsharp.control.asyncseq/3.2.1/lib/netstan
00:02:30 #5269 [verbose] > dard2.1/FSharp.Control.AsyncSeq.dll"
00:02:30 #5270 [verbose] > #r
00:02:30 #5271 [verbose] > @"../../../../../../../.nuget/packages/system.reactive/6.0.1-preview.1/lib/net6.
00:02:30 #5272 [verbose] > 0/System.Reactive.dll"
00:02:30 #5273 [verbose] > #r
00:02:30 #5274 [verbose] > @"../../../../../../../.nuget/packages/system.reactive.linq/6.0.1-preview.1/lib
00:02:30 #5275 [verbose] > netstandard2.0/System.Reactive.Linq.dll"
00:02:30 #5276 [verbose] > #r
00:02:30 #5277 [verbose] > @"../../../../../../../.nuget/packages/argu/6.2.2/lib/netstandard2.0/Argu.dll"
00:02:30 #5278 [verbose] > #r
00:02:30 #5279 [verbose] > @"../../../../../../../.nuget/packages/system.commandline/2.0.0-beta4.22272.1/li
00:02:30 #5280 [verbose] > b/net6.0/System.CommandLine.dll"
00:02:30 #5281 [verbose] >
00:02:30 #5282 [verbose] > ── fsharp - import ─────────────────────────────────────────────────────────────
00:02:30 #5283 [verbose] > #r
00:02:30 #5284 [verbose] > "C:/Users/i574n/.nuget/packages/dotnet-repl/0.1.204/tools/net7.0/any/Microsoft.A
00:02:30 #5285 [verbose] > spNetCore.Html.Abstractions.dll"
00:02:30 #5286 [verbose] > #r
00:02:30 #5287 [verbose] > "C:/Users/i574n/.nuget/packages/dotnet-repl/0.1.204/tools/net7.0/any/Microsoft.D
00:02:30 #5288 [verbose] > otNet.Interactive.dll"
00:02:30 #5289 [verbose] > #r
00:02:30 #5290 [verbose] > "C:/Users/i574n/.nuget/packages/dotnet-repl/0.1.204/tools/net7.0/any/Microsoft.D
00:02:30 #5291 [verbose] > otNet.Interactive.FSharp.dll"
00:02:30 #5292 [verbose] > #r
00:02:30 #5293 [verbose] > "C:/Users/i574n/.nuget/packages/dotnet-repl/0.1.204/tools/net7.0/any/Microsoft.D
00:02:30 #5294 [verbose] > otNet.Interactive.Formatting.dll"
00:02:30 #5295 [verbose] > open System
00:02:30 #5296 [verbose] > open System.IO
00:02:30 #5297 [verbose] > open System.Text
00:02:30 #5298 [verbose] > open Microsoft.DotNet.Interactive.Formatting
00:02:33 #5299 [verbose] >
00:02:33 #5300 [verbose] > ── fsharp - import ─────────────────────────────────────────────────────────────
00:02:33 #5301 [verbose] > #r
00:02:33 #5302 [verbose] > "C:/Users/i574n/.nuget/packages/dotnet-repl/0.1.204/tools/net7.0/any/Microsoft.D
00:02:33 #5303 [verbose] > otNet.Interactive.FSharp.dll"
00:02:33 #5304 [verbose] > open Microsoft.DotNet.Interactive.FSharp.FSharpKernelHelpers
00:02:33 #5305 [verbose] > #r
00:02:33 #5306 [verbose] > "C:/Users/i574n/.nuget/packages/dotnet-repl/0.1.204/tools/net7.0/any/Microsoft.D
00:02:33 #5307 [verbose] > otNet.Interactive.dll"
00:02:33 #5308 [verbose] > open type Microsoft.DotNet.Interactive.Kernel
00:02:33 #5309 [verbose] >
00:02:33 #5310 [verbose] > ── fsharp ──────────────────────────────────────────────────────────────────────
00:02:33 #5311 [verbose] > #!import ../../lib/fsharp/Notebooks.dib
00:02:33 #5312 [verbose] > #!import ../../lib/fsharp/Testing.dib
00:02:33 #5313 [verbose] >
00:02:33 #5314 [verbose] > ── fsharp - import ─────────────────────────────────────────────────────────────
00:02:33 #5315 [verbose] > //// test
00:02:33 #5316 [verbose] >
00:02:33 #5317 [verbose] > Formatter.ListExpansionLimit <- 100
00:02:33 #5318 [verbose] >
00:02:33 #5319 [verbose] > ── fsharp - import ─────────────────────────────────────────────────────────────
00:02:33 #5320 [verbose] > type [[<Struct>]] US0 =
00:02:33 #5321 [verbose] > | US0_0
00:02:33 #5322 [verbose] > | US0_1
00:02:33 #5323 [verbose] > and [[<Struct>]] US1 =
00:02:33 #5324 [verbose] > | US1_0 of f0_0 : US0
00:02:33 #5325 [verbose] > | US1_1
00:02:33 #5326 [verbose] > let rec closure0 () (v0 : (unit -> unit)) : System.IDisposable =
00:02:33 #5327 [verbose] > let v1 : System.IDisposable option = None
00:02:33 #5328 [verbose] > let mutable _v1 = v1
00:02:33 #5329 [verbose] > #if FABLE_COMPILER_RUST && !WASM && !CONTRACT
00:02:33 #5330 [verbose] > let v2 : System.IDisposable = null |> unbox<System.IDisposable>
00:02:33 #5331 [verbose] > v2
00:02:33 #5332 [verbose] > #endif
00:02:33 #5333 [verbose] > #if FABLE_COMPILER_RUST && WASM
00:02:33 #5334 [verbose] > let v3 : System.IDisposable = null |> unbox<System.IDisposable>
00:02:33 #5335 [verbose] > v3
00:02:33 #5336 [verbose] > #endif
00:02:33 #5337 [verbose] > #if FABLE_COMPILER_RUST && CONTRACT
00:02:33 #5338 [verbose] > let v4 : System.IDisposable = null |> unbox<System.IDisposable>
00:02:33 #5339 [verbose] > v4
00:02:33 #5340 [verbose] > #endif
00:02:33 #5341 [verbose] > #if !FABLE_COMPILER && !FABLE_COMPILER_RUST && !FABLE_COMPILER_TYPESCRIPT &&
00:02:33 #5342 [verbose] > !WASM && !CONTRACT
00:02:33 #5343 [verbose] > let v5 : System.ID...
00:02:34 #5344 [verbose] >
00:02:34 #5345 [verbose] > ── fsharp - import ─────────────────────────────────────────────────────────────
00:02:34 #5346 [verbose] > type Mut0 = {mutable l0 : int32; mutable l1 : string}
00:02:34 #5347 [verbose] > and Mut1 = {mutable l0 : int32}
00:02:34 #5348 [verbose] > let rec closure1 (v0 : string) (v1 : string) : bool =
00:02:34 #5349 [verbose] > let v2 : bool = v1.Contains v0
00:02:34 #5350 [verbose] > v2
00:02:34 #5351 [verbose] > and closure0 () (v0 : string) : (string -> bool) =
00:02:34 #5352 [verbose] > closure1(v0)
00:02:34 #5353 [verbose] > and closure3 (v0 : string) (v1 : string) : bool =
00:02:34 #5354 [verbose] > let v2 : bool = v1.EndsWith v0
00:02:34 #5355 [verbose] > v2
00:02:34 #5356 [verbose] > and closure2 () (v0 : string) : (string -> bool) =
00:02:34 #5357 [verbose] > closure3(v0)
00:02:34 #5358 [verbose] > and closure6 (v0 : int32, v1 : char) (v2 : string) : string =
00:02:34 #5359 [verbose] > let v3 : string = v2.PadLeft (v0, v1)
00:02:34 #5360 [verbose] > v3
00:02:34 #5361 [verbose] > and closure5 (v0 : int32) (v1 : char) : (string -> string) =
00:02:34 #5362 [verbose] > closure6(v0, v1)
00:02:34 #5363 [verbose] > and closure4 () (v0 : int32) : (char -> (string -> string)) =
00:02:34 #5364 [verbose] > closure5(v0)
00:02:34 #5365 [verbose] > and closure8 (v0 : int32) (v1 : string) : string =
00:02:34 #5366 [verbose] > let v2 : stri...
00:02:35 #5367 [verbose] >
00:02:35 #5368 [verbose] > ── fsharp - import ─────────────────────────────────────────────────────────────
00:02:35 #5369 [verbose] > type ICryptoCreateHash = abstract createHash: x: string -> obj
00:02:35 #5370 [verbose] > type Mut0 = {mutable l0 : int32}
00:02:35 #5371 [verbose] > let rec method0 (v0 : int32, v1 : Mut0) : bool =
00:02:35 #5372 [verbose] > let v2 : int32 = v1.l0
00:02:35 #5373 [verbose] > let v3 : bool = v2 < v0
00:02:35 #5374 [verbose] > v3
00:02:35 #5375 [verbose] > and method1 () : string =
00:02:35 #5376 [verbose] > let v0 : string = ""
00:02:35 #5377 [verbose] > v0
00:02:35 #5378 [verbose] > and closure0 () (v0 : string) : string =
00:02:35 #5379 [verbose] > let v1 : string option = None
00:02:35 #5380 [verbose] > let mutable _v1 = v1
00:02:35 #5381 [verbose] > #if FABLE_COMPILER_RUST && !WASM && !CONTRACT
00:02:35 #5382 [verbose] > let v2 : string = null |> unbox<string>
00:02:35 #5383 [verbose] > v2
00:02:35 #5384 [verbose] > #endif
00:02:35 #5385 [verbose] > #if FABLE_COMPILER_RUST && WASM
00:02:35 #5386 [verbose] > let v3 : string = null |> unbox<string>
00:02:35 #5387 [verbose] > v3
00:02:35 #5388 [verbose] > #endif
00:02:35 #5389 [verbose] > #if FABLE_COMPILER_RUST && CONTRACT
00:02:35 #5390 [verbose] > let v4 : string = null |> unbox<string>
00:02:35 #5391 [verbose] > v4
00:02:35 #5392 [verbose] > #endif
00:02:35 #5393 [verbose] > #if !FABLE_COMPILER && !FABLE_COMPILER_RUST && !FABLE_COMPILER_TYP...
00:02:35 #5394 [verbose] >
00:02:35 #5395 [verbose] > ── fsharp - import ─────────────────────────────────────────────────────────────
00:02:35 #5396 [verbose] > let rec closure1 (v0 : System.Guid) (v1 : System.DateTime) : System.Guid =
00:02:35 #5397 [verbose] > let v2 : (System.Guid -> string) = _.ToString()
00:02:35 #5398 [verbose] > let v3 : string = v2 v0
00:02:35 #5399 [verbose] > let v4 : string = v1.ToString "yyyyMMdd-HHmm-ssff-ffff-f"
00:02:35 #5400 [verbose] > let v5 : System.Guid = System.Guid $"{v4}{v3.[[v4.Length..]]}"
00:02:35 #5401 [verbose] > v5
00:02:35 #5402 [verbose] > and closure0 () (v0 : System.Guid) : (System.DateTime -> System.Guid) =
00:02:35 #5403 [verbose] > closure1(v0)
00:02:35 #5404 [verbose] > and closure5 (v0 : string, v1 : string) (v2 : string) : string =
00:02:35 #5405 [verbose] > let v3 : string = v2.Replace (v0, v1)
00:02:35 #5406 [verbose] > v3
00:02:35 #5407 [verbose] > and closure4 (v0 : string) (v1 : string) : (string -> string) =
00:02:35 #5408 [verbose] > closure5(v0, v1)
00:02:35 #5409 [verbose] > and closure3 () (v0 : string) : (string -> (string -> string)) =
00:02:35 #5410 [verbose] > closure4(v0)
00:02:35 #5411 [verbose] > and method0 () : (string -> (string -> (string -> string))) =
00:02:35 #5412 [verbose] > closure3()
00:02:35 #5413 [verbose] > and closure2 (...
00:02:35 #5414 [verbose] >
00:02:35 #5415 [verbose] > ── fsharp - import ─────────────────────────────────────────────────────────────
00:02:35 #5416 [verbose] > let rec closure0 () (v0 : System.Threading.CancellationToken) :
00:02:35 #5417 [verbose] > Async<System.Threading.CancellationToken> =
00:02:35 #5418 [verbose] > let v1 : Async<System.Threading.CancellationToken> option = None
00:02:35 #5419 [verbose] > let mutable _v1 = v1
00:02:35 #5420 [verbose] > #if FABLE_COMPILER_RUST && !WASM && !CONTRACT
00:02:35 #5421 [verbose] > let v2 : Async<System.Threading.CancellationToken> = null |>
00:02:35 #5422 [verbose] > unbox<Async<System.Threading.CancellationToken>>
00:02:35 #5423 [verbose] > v2
00:02:35 #5424 [verbose] > #endif
00:02:35 #5425 [verbose] > #if FABLE_COMPILER_RUST && WASM
00:02:35 #5426 [verbose] > let v3 : Async<System.Threading.CancellationToken> = null |>
00:02:35 #5427 [verbose] > unbox<Async<System.Threading.CancellationToken>>
00:02:35 #5428 [verbose] > v3
00:02:35 #5429 [verbose] > #endif
00:02:35 #5430 [verbose] > #if FABLE_COMPILER_RUST && CONTRACT
00:02:35 #5431 [verbose] > let v4 : Async<System.Threading.CancellationToken> = null |>
00:02:35 #5432 [verbose] > unbox<Async<System.Threading.CancellationToken>>
00:02:35 #5433 [verbose] > v4
00:02:35 #5434 [verbose] > #endif
00:02:35 #5435 [verbose] > #if !FABLE_COMPILER...
00:02:35 #5436 [verbose] >
00:02:35 #5437 [verbose] > ── fsharp - import ─────────────────────────────────────────────────────────────
00:02:35 #5438 [verbose] > #if FABLE_COMPILER
00:02:35 #5439 [verbose] > [[<CompilationRepresentation (CompilationRepresentationFlags.ModuleSuffix)>]]
00:02:35 #5440 [verbose] > module System =
00:02:35 #5441 [verbose] > module Diagnostics =
00:02:35 #5442 [verbose] > type Process = unit
00:02:35 #5443 [verbose] > type DataReceivedEventArgs = unit
00:02:35 #5444 [verbose] > #endif
00:02:35 #5445 [verbose] > module State = let mutable trace_state = None
00:02:35 #5446 [verbose] > type [[<Struct>]] US0 =
00:02:35 #5447 [verbose] > | US0_0
00:02:35 #5448 [verbose] > | US0_1
00:02:35 #5449 [verbose] > | US0_2
00:02:35 #5450 [verbose] > | US0_3
00:02:35 #5451 [verbose] > | US0_4
00:02:35 #5452 [verbose] > and UH0 =
00:02:35 #5453 [verbose] > | UH0_0
00:02:35 #5454 [verbose] > | UH0_1 of char * UH0
00:02:35 #5455 [verbose] > and [[<Struct>]] US2 =
00:02:35 #5456 [verbose] > | US2_0
00:02:35 #5457 [verbose] > | US2_1
00:02:35 #5458 [verbose] > and [[<Struct>]] US1 =
00:02:35 #5459 [verbose] > | US1_0
00:02:35 #5460 [verbose] > | US1_1 of f1_0 : US2
00:02:35 #5461 [verbose] > | US1_2
00:02:35 #5462 [verbose] > and [[<Struct>]] US3 =
00:02:35 #5463 [verbose] > | US3_0 of f0_0 : string
00:02:35 #5464 [verbose] > | US3_1
00:02:35 #5465 [verbose] > and Mut0 = {mutable l0 : int64}
00:02:35 #5466 [verbose] > and Mut1 = {mutable l0 : bool}
00:02:35 #5467 [verbose] > and Mut2 = {mutable l0 : US0}
00:02:35 #5468 [verbose] > and [[<Struct>]] US4 =
00:02:35 #5469 [verbose] > | US4_0 of f0_0 : int64
00:02:35 #5470 [verbose] > | US4_1
00:02:35 #5471 [verbose] > and [[<Struct>]] US5 =
00:02:35 #5472 [verbose] > | US5_0 of f0_0 : i...
00:02:36 #5473 [verbose] >
00:02:36 #5474 [verbose] > ── fsharp - import ─────────────────────────────────────────────────────────────
00:02:36 #5475 [verbose] > #if FABLE_COMPILER // file_system.types
00:02:36 #5476 [verbose] > [[<Fable.Core.Erase; Fable.Core.Emit("str")>]] type Str = class end
00:02:36 #5477 [verbose] > [[<Fable.Core.Erase; Fable.Core.Emit("base64::DecodeError")>]] type
00:02:36 #5478 [verbose] > base64_DecodeError = class end
00:02:36 #5479 [verbose] > [[<Fable.Core.Erase; Fable.Core.Emit("borsh::io::Error")>]] type borsh_io_Error
00:02:36 #5480 [verbose] > = class end
00:02:36 #5481 [verbose] > [[<Fable.Core.Erase; Fable.Core.Emit("js_sys::JsString")>]] type js_sys_JsString
00:02:36 #5482 [verbose] > = class end
00:02:36 #5483 [verbose] > [[<Fable.Core.Erase; Fable.Core.Emit("serde_json::Error")>]] type
00:02:36 #5484 [verbose] > serde_json_Error = class end
00:02:36 #5485 [verbose] > [[<Fable.Core.Erase; Fable.Core.Emit("serde_json::Value")>]] type
00:02:36 #5486 [verbose] > serde_json_Value = class end
00:02:36 #5487 [verbose] > [[<Fable.Core.Erase; Fable.Core.Emit("serde_wasm_bindgen::Error")>]] type
00:02:36 #5488 [verbose] > serde_wasm_bindgen_Error = class end
00:02:36 #5489 [verbose] > [[<Fable.Core.Erase; Fable.Core.Emit("std::ffi::OsStr")>]] type std_ffi_O...
00:02:38 #5490 [verbose] >
00:02:38 #5491 [verbose] > ── fsharp - import ─────────────────────────────────────────────────────────────
00:02:38 #5492 [verbose] > module State = let mutable trace_state = None
00:02:38 #5493 [verbose] > type [[<Struct>]] US0 =
00:02:38 #5494 [verbose] > | US0_0
00:02:38 #5495 [verbose] > | US0_1
00:02:38 #5496 [verbose] > | US0_2
00:02:38 #5497 [verbose] > | US0_3
00:02:38 #5498 [verbose] > | US0_4
00:02:38 #5499 [verbose] > and Mut0 = {mutable l0 : int64}
00:02:38 #5500 [verbose] > and Mut1 = {mutable l0 : bool}
00:02:38 #5501 [verbose] > and Mut2 = {mutable l0 : US0}
00:02:38 #5502 [verbose] > and [[<Struct>]] US1 =
00:02:38 #5503 [verbose] > | US1_0 of f0_0 : int64
00:02:38 #5504 [verbose] > | US1_1
00:02:38 #5505 [verbose] > and [[<Struct>]] US2 =
00:02:38 #5506 [verbose] > | US2_0 of f0_0 : int64
00:02:38 #5507 [verbose] > | US2_1
00:02:38 #5508 [verbose] > let rec method1 (v0 : int64 option) : int64 option =
00:02:38 #5509 [verbose] > v0
00:02:38 #5510 [verbose] > and method2 (v0 : int64 option) : int64 option =
00:02:38 #5511 [verbose] > v0
00:02:38 #5512 [verbose] > and closure3 () () : struct (Mut0 * Mut1 * Mut1 * Mut2 * int64 option) =
00:02:38 #5513 [verbose] > let v0 : Mut1 = {l0 = true} : Mut1
00:02:38 #5514 [verbose] > let v1 : Mut0 = {l0 = 0L} : Mut0
00:02:38 #5515 [verbose] > let v2 : US0 = US0_0
00:02:38 #5516 [verbose] > let v3 : Mut2 = {l0 = v2} : Mut2
00:02:38 #5517 [verbose] > let v4 : Mut1 = {l0 = false} : Mut1
00:02:38 #5518 [verbose] > let v5 : int64 option option = None
00:02:38 #5519 [verbose] > ...
00:02:38 #5520 [verbose] >
00:02:38 #5521 [verbose] > ── fsharp - import ─────────────────────────────────────────────────────────────
00:02:38 #5522 [verbose] > module SpiralTrace =
00:02:38 #5523 [verbose] > let get_trace_state () =
00:02:38 #5524 [verbose] > #if !INTERACTIVE
00:02:38 #5525 [verbose] > Trace.get_trace_state ()
00:02:38 #5526 [verbose] > #else
00:02:38 #5527 [verbose] > get_trace_state ()
00:02:38 #5528 [verbose] > #endif
00:02:38 #5529 [verbose] >
00:02:38 #5530 [verbose] > let trace x =
00:02:38 #5531 [verbose] > #if !INTERACTIVE
00:02:38 #5532 [verbose] > Trace.trace x
00:02:38 #5533 [verbose] > #else
00:02:38 #5534 [verbose] > trace x
00:02:38 #5535 [verbose] > #endif
00:02:38 #5536 [verbose] >
00:02:38 #5537 [verbose] > type TraceLevel =
00:02:38 #5538 [verbose] > #if !INTERACTIVE
00:02:38 #5539 [verbose] > Trace.US0
00:02:38 #5540 [verbose] > #else
00:02:38 #5541 [verbose] > US0
00:02:38 #5542 [verbose] > #endif
00:02:38 #5543 [verbose] >
00:02:38 #5544 [verbose] > #if !FABLE_COMPILER && !WASM && !CONTRACT
00:02:38 #5545 [verbose] >
00:02:38 #5546 [verbose] > module SpiralAsync =
00:02:38 #5547 [verbose] > let merge_cancellation_token_with_default_async x =
00:02:38 #5548 [verbose] > #if !INTERACTIVE
00:02:38 #5549 [verbose] > Async_.merge_cancellation_token_with_default_async x
00:02:38 #5550 [verbose] > #else
00:02:38 #5551 [verbose] > merge_cancellation_token_with_default_async x
00:02:38 #5552 [verbose] > #endif
00:02:38 #5553 [verbose] >
00:02:38 #5554 [verbose] > module SpiralRuntime =
00:02:38 #5555 [verbose] > let get_executable_suffix () =
00:02:38 #5556 [verbose] > #if !INTERACTIVE
00:02:38 #5557 [verbose] > Runtime.get_executable_suffix ()
00:02:38 #5558 [verbose] > #else
00:02:38 #5559 [verbose] > get_executable_suffix ()
00:02:38 #5560 [verbose] > #endif
00:02:38 #5561 [verbose] >
00:02:38 #5562 [verbose] > let is...
00:02:38 #5563 [verbose] >
00:02:38 #5564 [verbose] > ── fsharp - import ─────────────────────────────────────────────────────────────
00:02:38 #5565 [verbose] > #r @"../../../../../../../.nuget/packages/expecto/10.2.1/lib/net6.0/Expecto.dll"
00:02:38 #5566 [verbose] >
00:02:38 #5567 [verbose] > ── fsharp - import ─────────────────────────────────────────────────────────────
00:02:38 #5568 [verbose] > //// test
00:02:38 #5569 [verbose] >
00:02:38 #5570 [verbose] > type AssertExceptionFormatter (ex) =
00:02:38 #5571 [verbose] > member _.Text =
00:02:38 #5572 [verbose] > ex.ToString()
00:02:38 #5573 [verbose] > .Replace("32m", "<span style=\"color: green;\">")
00:02:38 #5574 [verbose] > .Replace("36m", "</span>")
00:02:38 #5575 [verbose] > .Replace("31m", "<span style=\"color: red;\">")
00:02:38 #5576 [verbose] > .Replace("\n", "<br/>\n")
00:02:38 #5577 [verbose] >
00:02:38 #5578 [verbose] >
00:02:38 #5579 [verbose] > Formatter.Register<AssertExceptionFormatter> ((fun (x :
00:02:38 #5580 [verbose] > AssertExceptionFormatter) -> x.Text), "text/html")
00:02:38 #5581 [verbose] >
00:02:38 #5582 [verbose] > ── fsharp - import ─────────────────────────────────────────────────────────────
00:02:38 #5583 [verbose] > //// test
00:02:38 #5584 [verbose] >
00:02:38 #5585 [verbose] > let inline __expect fn log expected actual =
00:02:38 #5586 [verbose] > if log then printfn $"{actual.ToDisplayString ()}"
00:02:38 #5587 [verbose] > try
00:02:38 #5588 [verbose] > "Testing.__expect" |> fn actual expected
00:02:38 #5589 [verbose] > with :? Expecto.AssertException as ex ->
00:02:38 #5590 [verbose] > AssertExceptionFormatter(ex).Display () |> ignore
00:02:38 #5591 [verbose] > failwith (ex.GetType().FullName)
00:02:38 #5592 [verbose] >
00:02:38 #5593 [verbose] > let inline __contains log expected actual = __expect Expecto.Expect.contains log
00:02:38 #5594 [verbose] > expected actual
00:02:38 #5595 [verbose] > let inline _contains expected actual = __contains true expected actual
00:02:38 #5596 [verbose] >
00:02:38 #5597 [verbose] > let inline __assertEqual log expected actual = __expect Expecto.Expect.equal log
00:02:38 #5598 [verbose] > expected actual
00:02:38 #5599 [verbose] > let inline _assertEqual expected actual = __assertEqual true expected actual
00:02:38 #5600 [verbose] >
00:02:38 #5601 [verbose] > let inline __isGreaterThan log expected actual = __expect
00:02:38 #5602 [verbose] > Expecto.Expect.isGreaterThan log ex...
00:02:39 #5603 [verbose] >
00:02:39 #5604 [verbose] > ── fsharp - import ─────────────────────────────────────────────────────────────
00:02:39 #5605 [verbose] > //// test
00:02:39 #5606 [verbose] >
00:02:39 #5607 [verbose] > let inline __isBetween log a b actual =
00:02:39 #5608 [verbose] > let inline isBetween actual (a, b) _ =
00:02:39 #5609 [verbose] > __isGreaterThanOrEqual log a actual
00:02:39 #5610 [verbose] > __isLessThanOrEqual log b actual
00:02:39 #5611 [verbose] > __expect isBetween log (a, b) actual
00:02:39 #5612 [verbose] > let inline _isBetween a b actual = __isBetween true a b actual
00:02:39 #5613 [verbose] >
00:02:39 #5614 [verbose] > ── fsharp ──────────────────────────────────────────────────────────────────────
00:02:39 #5615 [verbose] > #!import ../../lib/fsharp/Common.fs
00:02:39 #5616 [verbose] > #!import ../../lib/fsharp/CommonFSharp.fs
00:02:39 #5617 [verbose] > #!import ../../lib/fsharp/Async.fs
00:02:39 #5618 [verbose] > #!import ../../lib/fsharp/AsyncSeq.fs
00:02:39 #5619 [verbose] > #!import ../../lib/fsharp/Runtime.fs
00:02:39 #5620 [verbose] > #!import ../../lib/fsharp/FileSystem.fs
00:02:39 #5621 [verbose] >
00:02:39 #5622 [verbose] > ── fsharp - import ─────────────────────────────────────────────────────────────
00:02:39 #5623 [verbose] > #if !INTERACTIVE
00:02:39 #5624 [verbose] > namespace Polyglot
00:02:39 #5625 [verbose] > #endif
00:02:39 #5626 [verbose] >
00:02:39 #5627 [verbose] > module Common =
00:02:39 #5628 [verbose] >
00:02:39 #5629 [verbose] > #if !INTERACTIVE
00:02:39 #5630 [verbose] > open Lib
00:02:39 #5631 [verbose] > #endif
00:02:39 #5632 [verbose] >
00:02:39 #5633 [verbose] > let nl = System.Environment.NewLine
00:02:39 #5634 [verbose] > let q = @""""
00:02:39 #5635 [verbose] >
00:02:39 #5636 [verbose] > let inline cons head tail = head :: tail
00:02:39 #5637 [verbose] >
00:02:39 #5638 [verbose] > /// ## memoize
00:02:39 #5639 [verbose] >
00:02:39 #5640 [verbose] > let inline memoize fn =
00:02:39 #5641 [verbose] > let result = lazy fn ()
00:02:39 #5642 [verbose] > fun () -> result.Value
00:02:39 #5643 [verbose] >
00:02:39 #5644 [verbose] > /// ## TraceLevel
00:02:39 #5645 [verbose] >
00:02:39 #5646 [verbose] > type TraceLevel =
00:02:39 #5647 [verbose] > | Verbose
00:02:39 #5648 [verbose] > | Debug
00:02:39 #5649 [verbose] > | Info
00:02:39 #5650 [verbose] > | Warning
00:02:39 #5651 [verbose] > | Critical
00:02:39 #5652 [verbose] >
00:02:39 #5653 [verbose] > let inline getLocals () = ""
00:02:39 #5654 [verbose] >
00:02:39 #5655 [verbose] > /// ## trace
00:02:39 #5656 [verbose] >
00:02:39 #5657 [verbose] > let to_trace_level = function
00:02:39 #5658 [verbose] > | Verbose -> SpiralTrace.TraceLevel.US0_0
00:02:39 #5659 [verbose] > | Debug -> SpiralTrace.TraceLevel.US0_1
00:02:39 #5660 [verbose] > | Info -> SpiralTrace.TraceLevel.US0_2
00:02:39 #5661 [verbose] > | Warning -> SpiralTrace.TraceLevel.US0_3
00:02:39 #5662 [verbose] > | Critical ->...
00:02:39 #5663 [verbose] >
00:02:39 #5664 [verbose] > ── fsharp - import ─────────────────────────────────────────────────────────────
00:02:39 #5665 [verbose] > #if !INTERACTIVE
00:02:39 #5666 [verbose] > namespace Polyglot
00:02:39 #5667 [verbose] > #endif
00:02:39 #5668 [verbose] >
00:02:39 #5669 [verbose] > module CommonFSharp =
00:02:39 #5670 [verbose] >
00:02:39 #5671 [verbose] > open Common
00:02:39 #5672 [verbose] >
00:02:39 #5673 [verbose] > /// ## getUnionCaseName
00:02:39 #5674 [verbose] >
00:02:39 #5675 [verbose] > let inline getUnionCaseName<'T> (x: 'T) =
00:02:39 #5676 [verbose] > match Reflection.FSharpValue.GetUnionFields(x, typeof<'T>) with
00:02:39 #5677 [verbose] > | case, _ -> case.Name
00:02:39 #5678 [verbose] >
00:02:39 #5679 [verbose] >
00:02:39 #5680 [verbose] > ── fsharp - import ─────────────────────────────────────────────────────────────
00:02:39 #5681 [verbose] > #if !INTERACTIVE
00:02:39 #5682 [verbose] > namespace Polyglot
00:02:39 #5683 [verbose] > #endif
00:02:39 #5684 [verbose] >
00:02:39 #5685 [verbose] > module Async =
00:02:39 #5686 [verbose] >
00:02:39 #5687 [verbose] > #if !INTERACTIVE
00:02:39 #5688 [verbose] > open Lib
00:02:39 #5689 [verbose] > #endif
00:02:39 #5690 [verbose] >
00:02:39 #5691 [verbose] > open Common
00:02:39 #5692 [verbose] >
00:02:39 #5693 [verbose] > /// ## choice
00:02:39 #5694 [verbose] >
00:02:39 #5695 [verbose] > let inline choice asyncs = async {
00:02:39 #5696 [verbose] > let e = Event<_> ()
00:02:39 #5697 [verbose] > use cts = new System.Threading.CancellationTokenSource ()
00:02:39 #5698 [verbose] > let fn =
00:02:39 #5699 [verbose] > asyncs
00:02:39 #5700 [verbose] > |> Seq.map (fun a -> async {
00:02:39 #5701 [verbose] > let! x = a
00:02:39 #5702 [verbose] > e.Trigger x
00:02:39 #5703 [verbose] > })
00:02:39 #5704 [verbose] > |> Async.Parallel
00:02:39 #5705 [verbose] > |> Async.Ignore
00:02:39 #5706 [verbose] > Async.Start (fn, cts.Token)
00:02:39 #5707 [verbose] > let! result = Async.AwaitEvent e.Publish
00:02:39 #5708 [verbose] > cts.Cancel ()
00:02:39 #5709 [verbose] > return result
00:02:39 #5710 [verbose] > }
00:02:39 #5711 [verbose] >
00:02:39 #5712 [verbose] > /// ## map
00:02:39 #5713 [verbose] >
00:02:39 #5714 [verbose] > let inline map fn a = async {
00:02:39 #5715 [verbose] > let! x = a
00:02:39 #5716 [verbose] > return fn x
00:02:39 #5717 [verbose] > }
00:02:39 #5718 [verbose] >
00:02:39 #5719 [verbose] > /// ## catch
00:02:39 #5720 [verbose] >
00:02:39 #5721 [verbose] > let inline catch a =
00:02:39 #5722 [verbose] > ...
00:02:39 #5723 [verbose] >
00:02:39 #5724 [verbose] > ── fsharp - import ─────────────────────────────────────────────────────────────
00:02:39 #5725 [verbose] > #if !INTERACTIVE
00:02:39 #5726 [verbose] > namespace Polyglot
00:02:39 #5727 [verbose] > #endif
00:02:39 #5728 [verbose] >
00:02:39 #5729 [verbose] > module AsyncSeq =
00:02:39 #5730 [verbose] >
00:02:39 #5731 [verbose] > #if !INTERACTIVE
00:02:39 #5732 [verbose] > open Lib
00:02:39 #5733 [verbose] > #endif
00:02:39 #5734 [verbose] >
00:02:39 #5735 [verbose] > open Common
00:02:39 #5736 [verbose] >
00:02:39 #5737 [verbose] > /// ## subscribeEvent
00:02:39 #5738 [verbose] >
00:02:39 #5739 [verbose] > let inline subscribeEvent (event: IEvent<'H, 'A>) map =
00:02:39 #5740 [verbose] > let observable = System.Reactive.Linq.Observable.FromEventPattern<'H,
00:02:39 #5741 [verbose] > 'A>(event.AddHandler, event.RemoveHandler)
00:02:39 #5742 [verbose] > System.Reactive.Linq.Observable.Select (observable, fun event -> map
00:02:39 #5743 [verbose] > event.EventArgs)
00:02:39 #5744 [verbose] > |> FSharp.Control.AsyncSeq.ofObservableBuffered
00:02:39 #5745 [verbose] >
00:02:39 #5746 [verbose] > let subscribeToken (token : System.Threading.CancellationToken) =
00:02:39 #5747 [verbose] > let tcs = new System.Threading.Tasks.TaskCompletionSource ()
00:02:39 #5748 [verbose] > System.Action tcs.SetResult |> token.Register |> ignore
00:02:39 #5749 [verbose] > let start = System.DateTime.Now.Ticks
00:02:39 #5750 [verbose] > FSharp.Control.A...
00:02:39 #5751 [verbose] >
00:02:39 #5752 [verbose] > ── fsharp - import ─────────────────────────────────────────────────────────────
00:02:39 #5753 [verbose] > #if !INTERACTIVE
00:02:39 #5754 [verbose] > namespace Polyglot
00:02:39 #5755 [verbose] > #endif
00:02:39 #5756 [verbose] >
00:02:39 #5757 [verbose] > module Runtime =
00:02:39 #5758 [verbose] >
00:02:39 #5759 [verbose] > #if !INTERACTIVE
00:02:39 #5760 [verbose] > open Lib
00:02:39 #5761 [verbose] > #endif
00:02:39 #5762 [verbose] >
00:02:39 #5763 [verbose] > open Common
00:02:39 #5764 [verbose] >
00:02:39 #5765 [verbose] > /// ## splitArgs
00:02:39 #5766 [verbose] >
00:02:39 #5767 [verbose] > let inline splitArgs commandLine =
00:02:39 #5768 [verbose] > commandLine
00:02:39 #5769 [verbose] > |> System.CommandLine.Parsing.CommandLineStringSplitter.Instance.Split
00:02:39 #5770 [verbose] >
00:02:39 #5771 [verbose] > /// ## parseArgs
00:02:39 #5772 [verbose] >
00:02:39 #5773 [verbose] > let inline parseArgs<'T when 'T :> Argu.IArgParserTemplate> args =
00:02:39 #5774 [verbose] > let assemblyName =
00:02:39 #5775 [verbose] > System.Reflection.Assembly.GetEntryAssembly().GetName().Name
00:02:39 #5776 [verbose] > let errorHandler : Argu.IExiter =
00:02:39 #5777 [verbose] > if [[ "Microsoft.DotNet.Interactive.App"; "dotnet-repl" ]] |>
00:02:39 #5778 [verbose] > List.contains assemblyName
00:02:39 #5779 [verbose] > then Argu.ExceptionExiter ()
00:02:39 #5780 [verbose] > else Argu.ProcessExiter (function Argu.ErrorCode.HelpText -> None |
00:02:39 #5781 [verbose] > _ -> Some System.ConsoleColor...
00:02:39 #5782 [verbose] >
00:02:39 #5783 [verbose] > ── fsharp - import ─────────────────────────────────────────────────────────────
00:02:39 #5784 [verbose] > #if !INTERACTIVE
00:02:39 #5785 [verbose] > namespace Polyglot
00:02:39 #5786 [verbose] > #endif
00:02:39 #5787 [verbose] >
00:02:39 #5788 [verbose] > module FileSystem =
00:02:39 #5789 [verbose] >
00:02:39 #5790 [verbose] > #if !INTERACTIVE
00:02:39 #5791 [verbose] > open Lib
00:02:39 #5792 [verbose] > #endif
00:02:39 #5793 [verbose] >
00:02:39 #5794 [verbose] > open Common
00:02:39 #5795 [verbose] > open SpiralFileSystem.Operators
00:02:39 #5796 [verbose] >
00:02:39 #5797 [verbose] > /// ## watchDirectory
00:02:39 #5798 [verbose] >
00:02:39 #5799 [verbose] > [[<RequireQualifiedAccess>]]
00:02:39 #5800 [verbose] > type FileSystemChangeType =
00:02:39 #5801 [verbose] > | Failure
00:02:39 #5802 [verbose] > | Changed
00:02:39 #5803 [verbose] > | Created
00:02:39 #5804 [verbose] > | Deleted
00:02:39 #5805 [verbose] > | Renamed
00:02:39 #5806 [verbose] >
00:02:39 #5807 [verbose] > [[<RequireQualifiedAccess>]]
00:02:39 #5808 [verbose] > type FileSystemChange =
00:02:39 #5809 [verbose] > | Failure of exn: exn
00:02:39 #5810 [verbose] > | Changed of path: string * content: string option
00:02:39 #5811 [verbose] > | Created of path: string * content: string option
00:02:39 #5812 [verbose] > | Deleted of path: string
00:02:39 #5813 [verbose] > | Renamed of oldPath: string * (string * string option)
00:02:39 #5814 [verbose] >
00:02:39 #5815 [verbose] >
00:02:39 #5816 [verbose] > let inline watchDirectoryWithFilter filter shouldReadContent path =
00:02:39 #5817 [verbose] > let fullPath = path |> Sys...
00:02:40 #5818 [verbose] >
00:02:40 #5819 [verbose] > ── fsharp ──────────────────────────────────────────────────────────────────────
00:02:40 #5820 [verbose] > #if !INTERACTIVE
00:02:40 #5821 [verbose] > open Lib
00:02:40 #5822 [verbose] > #endif
00:02:40 #5823 [verbose] >
00:02:40 #5824 [verbose] > ── fsharp ──────────────────────────────────────────────────────────────────────
00:02:40 #5825 [verbose] > open Common
00:02:40 #5826 [verbose] >
00:02:40 #5827 [verbose] > ── fsharp ──────────────────────────────────────────────────────────────────────
00:02:40 #5828 [verbose] > //// test
00:02:40 #5829 [verbose] >
00:02:40 #5830 [verbose] > open SpiralFileSystem.Operators
00:02:40 #5831 [verbose] >
00:02:40 #5832 [verbose] > ── markdown ────────────────────────────────────────────────────────────────────
00:02:40 #5833 [verbose] > ╭──────────────────────────────────────────────────────────────────────────────╮
00:02:40 #5834 [verbose] > │ ## splitArgs │
00:02:40 #5835 [verbose] > ╰──────────────────────────────────────────────────────────────────────────────╯
00:02:40 #5836 [verbose] >
00:02:40 #5837 [verbose] > ── fsharp ──────────────────────────────────────────────────────────────────────
00:02:40 #5838 [verbose] > let inline splitArgs commandLine =
00:02:40 #5839 [verbose] > commandLine
00:02:40 #5840 [verbose] > |> System.CommandLine.Parsing.CommandLineStringSplitter.Instance.Split
00:02:40 #5841 [verbose] >
00:02:40 #5842 [verbose] > ── fsharp ──────────────────────────────────────────────────────────────────────
00:02:40 #5843 [verbose] > //// test
00:02:40 #5844 [verbose] >
00:02:40 #5845 [verbose] > """a b "c d" e"""
00:02:40 #5846 [verbose] > |> splitArgs
00:02:40 #5847 [verbose] > |> Seq.toArray
00:02:40 #5848 [verbose] > |> _assertEqual [[| "a"; "b"; "c d"; "e" |]]
00:02:40 #5849 [verbose] >
00:02:40 #5850 [verbose] > ╭─[ 46.97ms - stdout ]─────────────────────────────────────────────────────────╮
00:02:40 #5851 [verbose] > │ [ a, b, c d, e ] │
00:02:40 #5852 [verbose] > │ │
00:02:40 #5853 [verbose] > ╰──────────────────────────────────────────────────────────────────────────────╯
00:02:40 #5854 [verbose] >
00:02:40 #5855 [verbose] > ── markdown ────────────────────────────────────────────────────────────────────
00:02:40 #5856 [verbose] > ╭──────────────────────────────────────────────────────────────────────────────╮
00:02:40 #5857 [verbose] > │ ## parseArgs │
00:02:40 #5858 [verbose] > ╰──────────────────────────────────────────────────────────────────────────────╯
00:02:40 #5859 [verbose] >
00:02:40 #5860 [verbose] > ── fsharp ──────────────────────────────────────────────────────────────────────
00:02:40 #5861 [verbose] > let inline parseArgs<'T when 'T :> Argu.IArgParserTemplate> args =
00:02:40 #5862 [verbose] > let assemblyName =
00:02:40 #5863 [verbose] > System.Reflection.Assembly.GetEntryAssembly().GetName().Name
00:02:40 #5864 [verbose] > let errorHandler : Argu.IExiter =
00:02:40 #5865 [verbose] > if [[ "Microsoft.DotNet.Interactive.App"; "dotnet-repl" ]] |>
00:02:40 #5866 [verbose] > List.contains assemblyName
00:02:40 #5867 [verbose] > then Argu.ExceptionExiter ()
00:02:40 #5868 [verbose] > else Argu.ProcessExiter (function Argu.ErrorCode.HelpText -> None | _ ->
00:02:40 #5869 [verbose] > Some System.ConsoleColor.Red)
00:02:40 #5870 [verbose] >
00:02:40 #5871 [verbose] > let parser =
00:02:40 #5872 [verbose] > Argu.ArgumentParser.Create<'T> (
00:02:40 #5873 [verbose] > programName = $"{assemblyName}{SpiralRuntime.get_executable_suffix
00:02:40 #5874 [verbose] > ()}",
00:02:40 #5875 [verbose] > errorHandler = errorHandler
00:02:40 #5876 [verbose] > )
00:02:40 #5877 [verbose] >
00:02:40 #5878 [verbose] > parser.ParseCommandLine args
00:02:40 #5879 [verbose] >
00:02:40 #5880 [verbose] > ── fsharp ──────────────────────────────────────────────────────────────────────
00:02:40 #5881 [verbose] > //// test
00:02:40 #5882 [verbose] >
00:02:40 #5883 [verbose] > [[<RequireQualifiedAccess>]]
00:02:40 #5884 [verbose] > type Arguments =
00:02:40 #5885 [verbose] > | [[<Argu.ArguAttributes.MainCommand; Argu.ArguAttributes.ExactlyOnce;
00:02:40 #5886 [verbose] > Argu.ArguAttributes.Last>]]
00:02:40 #5887 [verbose] > Paths of paths : string list
00:02:40 #5888 [verbose] >
00:02:40 #5889 [verbose] > interface Argu.IArgParserTemplate with
00:02:40 #5890 [verbose] > member s.Usage =
00:02:40 #5891 [verbose] > match s with
00:02:40 #5892 [verbose] > | Paths _ -> nameof Paths
00:02:40 #5893 [verbose] >
00:02:40 #5894 [verbose] > ── fsharp ──────────────────────────────────────────────────────────────────────
00:02:40 #5895 [verbose] > //// test
00:02:40 #5896 [verbose] >
00:02:40 #5897 [verbose] > Argu.ArgumentParser.Create<Arguments>().PrintUsage ()
00:02:40 #5898 [verbose] >
00:02:40 #5899 [verbose] > ╭─[ 98.64ms - return value ]───────────────────────────────────────────────────╮
00:02:40 #5900 [verbose] > │ USAGE: dotnet-repl [--help] <paths>... │
00:02:40 #5901 [verbose] > │ │
00:02:40 #5902 [verbose] > │ PATHS: │
00:02:40 #5903 [verbose] > │ │
00:02:40 #5904 [verbose] > │ <paths>... Paths │
00:02:40 #5905 [verbose] > │ │
00:02:40 #5906 [verbose] > │ OPTIONS: │
00:02:40 #5907 [verbose] > │ │
00:02:40 #5908 [verbose] > │ --help display this list of options. │
00:02:40 #5909 [verbose] > │ │
00:02:40 #5910 [verbose] > ╰──────────────────────────────────────────────────────────────────────────────╯
00:02:40 #5911 [verbose] >
00:02:40 #5912 [verbose] > ── fsharp ──────────────────────────────────────────────────────────────────────
00:02:40 #5913 [verbose] > //// test
00:02:40 #5914 [verbose] >
00:02:40 #5915 [verbose] > fun () -> parseArgs<Arguments> [[||]] |> ignore
00:02:40 #5916 [verbose] > |> _throwsC (fun ex _ ->
00:02:40 #5917 [verbose] > SpiralSm.format_exception ex
00:02:40 #5918 [verbose] > |> _stringContains "Argu.ArguParseException: ERROR: missing parameter
00:02:40 #5919 [verbose] > '<paths>...'."
00:02:40 #5920 [verbose] > )
00:02:40 #5921 [verbose] >
00:02:40 #5922 [verbose] > ╭─[ 59.17ms - stdout ]─────────────────────────────────────────────────────────╮
00:02:40 #5923 [verbose] > │ FSI_0030+it@3-1 │
00:02:40 #5924 [verbose] > │ Argu.ArguParseException: ERROR: missing parameter '<paths>...'. │
00:02:40 #5925 [verbose] > │ USAGE: dotnet-repl.exe [--help] <paths>... │
00:02:40 #5926 [verbose] > │ │
00:02:40 #5927 [verbose] > │ PATHS: │
00:02:40 #5928 [verbose] > │ │
00:02:40 #5929 [verbose] > │ <paths>... Paths │
00:02:40 #5930 [verbose] > │ │
00:02:40 #5931 [verbose] > │ OPTIONS: │
00:02:40 #5932 [verbose] > │ │
00:02:40 #5933 [verbose] > │ --help display this list of options. │
00:02:40 #5934 [verbose] > │ │
00:02:40 #5935 [verbose] > │ │
00:02:40 #5936 [verbose] > ╰──────────────────────────────────────────────────────────────────────────────╯
00:02:40 #5937 [verbose] >
00:02:40 #5938 [verbose] > ── fsharp ──────────────────────────────────────────────────────────────────────
00:02:40 #5939 [verbose] > let inline parseAllArgs<'T when 'T :> Argu.IArgParserTemplate> args =
00:02:40 #5940 [verbose] > args
00:02:40 #5941 [verbose] > |> parseArgs<'T>
00:02:40 #5942 [verbose] > |> fun results -> results.GetAllResults ()
00:02:40 #5943 [verbose] >
00:02:40 #5944 [verbose] > ── fsharp ──────────────────────────────────────────────────────────────────────
00:02:40 #5945 [verbose] > //// test
00:02:40 #5946 [verbose] >
00:02:40 #5947 [verbose] > [[<RequireQualifiedAccess>]]
00:02:40 #5948 [verbose] > type Arguments =
00:02:40 #5949 [verbose] > | [[<Argu.ArguAttributes.MainCommand; Argu.ArguAttributes.ExactlyOnce;
00:02:40 #5950 [verbose] > Argu.ArguAttributes.Last>]]
00:02:40 #5951 [verbose] > Paths of paths : string list
00:02:40 #5952 [verbose] >
00:02:40 #5953 [verbose] > interface Argu.IArgParserTemplate with
00:02:40 #5954 [verbose] > member s.Usage =
00:02:40 #5955 [verbose] > match s with
00:02:40 #5956 [verbose] > | Paths _ -> nameof Paths
00:02:40 #5957 [verbose] >
00:02:40 #5958 [verbose] > parseAllArgs<Arguments> [[| "a b"; "c" |]]
00:02:40 #5959 [verbose] > |> _assertEqual [[ Arguments.Paths [[ "a b"; "c" ]] ]]
00:02:41 #5960 [verbose] >
00:02:41 #5961 [verbose] > ╭─[ 87.88ms - stdout ]─────────────────────────────────────────────────────────╮
00:02:41 #5962 [verbose] > │ FSharpList<Arguments> │
00:02:41 #5963 [verbose] > │ - paths: [ a b, c ] │
00:02:41 #5964 [verbose] > │ │
00:02:41 #5965 [verbose] > ╰──────────────────────────────────────────────────────────────────────────────╯
00:02:41 #5966 [verbose] >
00:02:41 #5967 [verbose] > ── fsharp ──────────────────────────────────────────────────────────────────────
00:02:41 #5968 [verbose] > let inline parseArgsMap<'T when 'T :> Argu.IArgParserTemplate> args =
00:02:41 #5969 [verbose] > args
00:02:41 #5970 [verbose] > |> parseAllArgs<'T>
00:02:41 #5971 [verbose] > |> List.groupBy CommonFSharp.getUnionCaseName<'T>
00:02:41 #5972 [verbose] > |> Map.ofList
00:02:41 #5973 [verbose] >
00:02:41 #5974 [verbose] > ── fsharp ──────────────────────────────────────────────────────────────────────
00:02:41 #5975 [verbose] > //// test
00:02:41 #5976 [verbose] >
00:02:41 #5977 [verbose] > parseArgsMap<Arguments> [[| "a b"; "c" |]]
00:02:41 #5978 [verbose] > |> _assertEqual (
00:02:41 #5979 [verbose] > [[ nameof Arguments.Paths, [[ Arguments.Paths [[ "a b"; "c" ]] ]] ]]
00:02:41 #5980 [verbose] > |> Map.ofList
00:02:41 #5981 [verbose] > )
00:02:41 #5982 [verbose] >
00:02:41 #5983 [verbose] > ╭─[ 55.60ms - stdout ]─────────────────────────────────────────────────────────╮
00:02:41 #5984 [verbose] > │ FSharpMap<String,FSharpList<Arguments>> │
00:02:41 #5985 [verbose] > │ - Key: Paths │
00:02:41 #5986 [verbose] > │ Value: FSharpList<Arguments> │
00:02:41 #5987 [verbose] > │ - paths: [ a b, c ] │
00:02:41 #5988 [verbose] > │ │
00:02:41 #5989 [verbose] > ╰──────────────────────────────────────────────────────────────────────────────╯
00:02:42 #5990 [verbose] > [NbConvertApp] Converting notebook Runtime.dib.ipynb to html
00:02:42 #5991 [verbose] > C:\Users\i574n\scoop\apps\python\current\Lib\site-packages\nbformat\__init__.py:93: MissingIDFieldWarning: Code cell is missing an id field, this will become a hard error in future nbformat versions. You may want to use `normalize()` on your notebooks before validations (available since nbformat 5.1.4). Previous versions of nbformat are fixing this issue transparently, and will stop doing so in the future.
00:02:42 #5992 [verbose] > validate(nb)
00:02:43 #5993 [verbose] > C:\Users\i574n\scoop\apps\python\current\Lib\site-packages\nbconvert\filters\highlight.py:71: UserWarning: IPython3 lexer unavailable, falling back on Python 3
00:02:43 #5994 [verbose] > return _pygments_highlight(
00:02:43 #5995 [verbose] > [NbConvertApp] Writing 296350 bytes to Runtime.dib.html
00:02:44 #5996 [debug] execute_with_options_async / exit_code: 0 / output.Length: 25020
00:02:44 #13 [debug] main / executeCommand / exitCode: 0
00:02:44 #5997 [debug] execute_with_options_async / options: struct (Some System.Threading.CancellationToken,
"pwsh -c "../../scripts/invoke-dib.ps1 Toml.dib -Retries 3"", None, None,
None)
00:02:46 #5998 [verbose] >
00:02:46 #5999 [verbose] > ── markdown ────────────────────────────────────────────────────────────────────
00:02:46 #6000 [verbose] > ╭──────────────────────────────────────────────────────────────────────────────╮
00:02:46 #6001 [verbose] > │ # Toml (Polyglot) │
00:02:46 #6002 [verbose] > ╰──────────────────────────────────────────────────────────────────────────────╯
00:02:46 #6003 [verbose] >
00:02:46 #6004 [verbose] > ── fsharp ──────────────────────────────────────────────────────────────────────
00:02:46 #6005 [verbose] > #!import ../../lib/fsharp/Notebooks.dib
00:02:46 #6006 [verbose] > #!import ../../lib/fsharp/Testing.dib
00:02:46 #6007 [verbose] >
00:02:46 #6008 [verbose] > ── fsharp - import ─────────────────────────────────────────────────────────────
00:02:46 #6009 [verbose] > #r
00:02:46 #6010 [verbose] > "C:/Users/i574n/.nuget/packages/dotnet-repl/0.1.204/tools/net7.0/any/Microsoft.A
00:02:46 #6011 [verbose] > spNetCore.Html.Abstractions.dll"
00:02:46 #6012 [verbose] > #r
00:02:46 #6013 [verbose] > "C:/Users/i574n/.nuget/packages/dotnet-repl/0.1.204/tools/net7.0/any/Microsoft.D
00:02:46 #6014 [verbose] > otNet.Interactive.dll"
00:02:46 #6015 [verbose] > #r
00:02:46 #6016 [verbose] > "C:/Users/i574n/.nuget/packages/dotnet-repl/0.1.204/tools/net7.0/any/Microsoft.D
00:02:46 #6017 [verbose] > otNet.Interactive.FSharp.dll"
00:02:46 #6018 [verbose] > #r
00:02:46 #6019 [verbose] > "C:/Users/i574n/.nuget/packages/dotnet-repl/0.1.204/tools/net7.0/any/Microsoft.D
00:02:46 #6020 [verbose] > otNet.Interactive.Formatting.dll"
00:02:46 #6021 [verbose] > open System
00:02:46 #6022 [verbose] > open System.IO
00:02:46 #6023 [verbose] > open System.Text
00:02:46 #6024 [verbose] > open Microsoft.DotNet.Interactive.Formatting
00:02:49 #6025 [verbose] >
00:02:49 #6026 [verbose] > ── fsharp - import ─────────────────────────────────────────────────────────────
00:02:49 #6027 [verbose] > #r
00:02:49 #6028 [verbose] > "C:/Users/i574n/.nuget/packages/dotnet-repl/0.1.204/tools/net7.0/any/Microsoft.D
00:02:49 #6029 [verbose] > otNet.Interactive.FSharp.dll"
00:02:49 #6030 [verbose] > open Microsoft.DotNet.Interactive.FSharp.FSharpKernelHelpers
00:02:49 #6031 [verbose] > #r
00:02:49 #6032 [verbose] > "C:/Users/i574n/.nuget/packages/dotnet-repl/0.1.204/tools/net7.0/any/Microsoft.D
00:02:49 #6033 [verbose] > otNet.Interactive.dll"
00:02:49 #6034 [verbose] > open type Microsoft.DotNet.Interactive.Kernel
00:02:49 #6035 [verbose] >
00:02:49 #6036 [verbose] > ── fsharp - import ─────────────────────────────────────────────────────────────
00:02:49 #6037 [verbose] > //// test
00:02:49 #6038 [verbose] >
00:02:49 #6039 [verbose] > Formatter.ListExpansionLimit <- 100
00:02:50 #6040 [verbose] >
00:02:50 #6041 [verbose] > ── fsharp - import ─────────────────────────────────────────────────────────────
00:02:50 #6042 [verbose] > type [[<Struct>]] US0 =
00:02:50 #6043 [verbose] > | US0_0
00:02:50 #6044 [verbose] > | US0_1
00:02:50 #6045 [verbose] > and [[<Struct>]] US1 =
00:02:50 #6046 [verbose] > | US1_0 of f0_0 : US0
00:02:50 #6047 [verbose] > | US1_1
00:02:50 #6048 [verbose] > let rec closure0 () (v0 : (unit -> unit)) : System.IDisposable =
00:02:50 #6049 [verbose] > let v1 : System.IDisposable option = None
00:02:50 #6050 [verbose] > let mutable _v1 = v1
00:02:50 #6051 [verbose] > #if FABLE_COMPILER_RUST && !WASM && !CONTRACT
00:02:50 #6052 [verbose] > let v2 : System.IDisposable = null |> unbox<System.IDisposable>
00:02:50 #6053 [verbose] > v2
00:02:50 #6054 [verbose] > #endif
00:02:50 #6055 [verbose] > #if FABLE_COMPILER_RUST && WASM
00:02:50 #6056 [verbose] > let v3 : System.IDisposable = null |> unbox<System.IDisposable>
00:02:50 #6057 [verbose] > v3
00:02:50 #6058 [verbose] > #endif
00:02:50 #6059 [verbose] > #if FABLE_COMPILER_RUST && CONTRACT
00:02:50 #6060 [verbose] > let v4 : System.IDisposable = null |> unbox<System.IDisposable>
00:02:50 #6061 [verbose] > v4
00:02:50 #6062 [verbose] > #endif
00:02:50 #6063 [verbose] > #if !FABLE_COMPILER && !FABLE_COMPILER_RUST && !FABLE_COMPILER_TYPESCRIPT &&
00:02:50 #6064 [verbose] > !WASM && !CONTRACT
00:02:50 #6065 [verbose] > let v5 : System.ID...
00:02:51 #6066 [verbose] >
00:02:51 #6067 [verbose] > ── fsharp - import ─────────────────────────────────────────────────────────────
00:02:51 #6068 [verbose] > type Mut0 = {mutable l0 : int32; mutable l1 : string}
00:02:51 #6069 [verbose] > and Mut1 = {mutable l0 : int32}
00:02:51 #6070 [verbose] > let rec closure1 (v0 : string) (v1 : string) : bool =
00:02:51 #6071 [verbose] > let v2 : bool = v1.Contains v0
00:02:51 #6072 [verbose] > v2
00:02:51 #6073 [verbose] > and closure0 () (v0 : string) : (string -> bool) =
00:02:51 #6074 [verbose] > closure1(v0)
00:02:51 #6075 [verbose] > and closure3 (v0 : string) (v1 : string) : bool =
00:02:51 #6076 [verbose] > let v2 : bool = v1.EndsWith v0
00:02:51 #6077 [verbose] > v2
00:02:51 #6078 [verbose] > and closure2 () (v0 : string) : (string -> bool) =
00:02:51 #6079 [verbose] > closure3(v0)
00:02:51 #6080 [verbose] > and closure6 (v0 : int32, v1 : char) (v2 : string) : string =
00:02:51 #6081 [verbose] > let v3 : string = v2.PadLeft (v0, v1)
00:02:51 #6082 [verbose] > v3
00:02:51 #6083 [verbose] > and closure5 (v0 : int32) (v1 : char) : (string -> string) =
00:02:51 #6084 [verbose] > closure6(v0, v1)
00:02:51 #6085 [verbose] > and closure4 () (v0 : int32) : (char -> (string -> string)) =
00:02:51 #6086 [verbose] > closure5(v0)
00:02:51 #6087 [verbose] > and closure8 (v0 : int32) (v1 : string) : string =
00:02:51 #6088 [verbose] > let v2 : stri...
00:02:51 #6089 [verbose] >
00:02:51 #6090 [verbose] > ── fsharp - import ─────────────────────────────────────────────────────────────
00:02:51 #6091 [verbose] > type ICryptoCreateHash = abstract createHash: x: string -> obj
00:02:51 #6092 [verbose] > type Mut0 = {mutable l0 : int32}
00:02:51 #6093 [verbose] > let rec method0 (v0 : int32, v1 : Mut0) : bool =
00:02:51 #6094 [verbose] > let v2 : int32 = v1.l0
00:02:51 #6095 [verbose] > let v3 : bool = v2 < v0
00:02:51 #6096 [verbose] > v3
00:02:51 #6097 [verbose] > and method1 () : string =
00:02:51 #6098 [verbose] > let v0 : string = ""
00:02:51 #6099 [verbose] > v0
00:02:51 #6100 [verbose] > and closure0 () (v0 : string) : string =
00:02:51 #6101 [verbose] > let v1 : string option = None
00:02:51 #6102 [verbose] > let mutable _v1 = v1
00:02:51 #6103 [verbose] > #if FABLE_COMPILER_RUST && !WASM && !CONTRACT
00:02:51 #6104 [verbose] > let v2 : string = null |> unbox<string>
00:02:51 #6105 [verbose] > v2
00:02:51 #6106 [verbose] > #endif
00:02:51 #6107 [verbose] > #if FABLE_COMPILER_RUST && WASM
00:02:51 #6108 [verbose] > let v3 : string = null |> unbox<string>
00:02:51 #6109 [verbose] > v3
00:02:51 #6110 [verbose] > #endif
00:02:51 #6111 [verbose] > #if FABLE_COMPILER_RUST && CONTRACT
00:02:51 #6112 [verbose] > let v4 : string = null |> unbox<string>
00:02:51 #6113 [verbose] > v4
00:02:51 #6114 [verbose] > #endif
00:02:51 #6115 [verbose] > #if !FABLE_COMPILER && !FABLE_COMPILER_RUST && !FABLE_COMPILER_TYP...
00:02:51 #6116 [verbose] >
00:02:51 #6117 [verbose] > ── fsharp - import ─────────────────────────────────────────────────────────────
00:02:51 #6118 [verbose] > let rec closure1 (v0 : System.Guid) (v1 : System.DateTime) : System.Guid =
00:02:51 #6119 [verbose] > let v2 : (System.Guid -> string) = _.ToString()
00:02:51 #6120 [verbose] > let v3 : string = v2 v0
00:02:51 #6121 [verbose] > let v4 : string = v1.ToString "yyyyMMdd-HHmm-ssff-ffff-f"
00:02:51 #6122 [verbose] > let v5 : System.Guid = System.Guid $"{v4}{v3.[[v4.Length..]]}"
00:02:51 #6123 [verbose] > v5
00:02:51 #6124 [verbose] > and closure0 () (v0 : System.Guid) : (System.DateTime -> System.Guid) =
00:02:51 #6125 [verbose] > closure1(v0)
00:02:51 #6126 [verbose] > and closure5 (v0 : string, v1 : string) (v2 : string) : string =
00:02:51 #6127 [verbose] > let v3 : string = v2.Replace (v0, v1)
00:02:51 #6128 [verbose] > v3
00:02:51 #6129 [verbose] > and closure4 (v0 : string) (v1 : string) : (string -> string) =
00:02:51 #6130 [verbose] > closure5(v0, v1)
00:02:51 #6131 [verbose] > and closure3 () (v0 : string) : (string -> (string -> string)) =
00:02:51 #6132 [verbose] > closure4(v0)
00:02:51 #6133 [verbose] > and method0 () : (string -> (string -> (string -> string))) =
00:02:51 #6134 [verbose] > closure3()
00:02:51 #6135 [verbose] > and closure2 (...
00:02:51 #6136 [verbose] >
00:02:51 #6137 [verbose] > ── fsharp - import ─────────────────────────────────────────────────────────────
00:02:51 #6138 [verbose] > let rec closure0 () (v0 : System.Threading.CancellationToken) :
00:02:51 #6139 [verbose] > Async<System.Threading.CancellationToken> =
00:02:51 #6140 [verbose] > let v1 : Async<System.Threading.CancellationToken> option = None
00:02:51 #6141 [verbose] > let mutable _v1 = v1
00:02:51 #6142 [verbose] > #if FABLE_COMPILER_RUST && !WASM && !CONTRACT
00:02:51 #6143 [verbose] > let v2 : Async<System.Threading.CancellationToken> = null |>
00:02:51 #6144 [verbose] > unbox<Async<System.Threading.CancellationToken>>
00:02:51 #6145 [verbose] > v2
00:02:51 #6146 [verbose] > #endif
00:02:51 #6147 [verbose] > #if FABLE_COMPILER_RUST && WASM
00:02:51 #6148 [verbose] > let v3 : Async<System.Threading.CancellationToken> = null |>
00:02:51 #6149 [verbose] > unbox<Async<System.Threading.CancellationToken>>
00:02:51 #6150 [verbose] > v3
00:02:51 #6151 [verbose] > #endif
00:02:51 #6152 [verbose] > #if FABLE_COMPILER_RUST && CONTRACT
00:02:51 #6153 [verbose] > let v4 : Async<System.Threading.CancellationToken> = null |>
00:02:51 #6154 [verbose] > unbox<Async<System.Threading.CancellationToken>>
00:02:51 #6155 [verbose] > v4
00:02:51 #6156 [verbose] > #endif
00:02:51 #6157 [verbose] > #if !FABLE_COMPILER...
00:02:52 #6158 [verbose] >
00:02:52 #6159 [verbose] > ── fsharp - import ─────────────────────────────────────────────────────────────
00:02:52 #6160 [verbose] > #if FABLE_COMPILER
00:02:52 #6161 [verbose] > [[<CompilationRepresentation (CompilationRepresentationFlags.ModuleSuffix)>]]
00:02:52 #6162 [verbose] > module System =
00:02:52 #6163 [verbose] > module Diagnostics =
00:02:52 #6164 [verbose] > type Process = unit
00:02:52 #6165 [verbose] > type DataReceivedEventArgs = unit
00:02:52 #6166 [verbose] > #endif
00:02:52 #6167 [verbose] > module State = let mutable trace_state = None
00:02:52 #6168 [verbose] > type [[<Struct>]] US0 =
00:02:52 #6169 [verbose] > | US0_0
00:02:52 #6170 [verbose] > | US0_1
00:02:52 #6171 [verbose] > | US0_2
00:02:52 #6172 [verbose] > | US0_3
00:02:52 #6173 [verbose] > | US0_4
00:02:52 #6174 [verbose] > and UH0 =
00:02:52 #6175 [verbose] > | UH0_0
00:02:52 #6176 [verbose] > | UH0_1 of char * UH0
00:02:52 #6177 [verbose] > and [[<Struct>]] US2 =
00:02:52 #6178 [verbose] > | US2_0
00:02:52 #6179 [verbose] > | US2_1
00:02:52 #6180 [verbose] > and [[<Struct>]] US1 =
00:02:52 #6181 [verbose] > | US1_0
00:02:52 #6182 [verbose] > | US1_1 of f1_0 : US2
00:02:52 #6183 [verbose] > | US1_2
00:02:52 #6184 [verbose] > and [[<Struct>]] US3 =
00:02:52 #6185 [verbose] > | US3_0 of f0_0 : string
00:02:52 #6186 [verbose] > | US3_1
00:02:52 #6187 [verbose] > and Mut0 = {mutable l0 : int64}
00:02:52 #6188 [verbose] > and Mut1 = {mutable l0 : bool}
00:02:52 #6189 [verbose] > and Mut2 = {mutable l0 : US0}
00:02:52 #6190 [verbose] > and [[<Struct>]] US4 =
00:02:52 #6191 [verbose] > | US4_0 of f0_0 : int64
00:02:52 #6192 [verbose] > | US4_1
00:02:52 #6193 [verbose] > and [[<Struct>]] US5 =
00:02:52 #6194 [verbose] > | US5_0 of f0_0 : i...
00:02:53 #6195 [verbose] >
00:02:53 #6196 [verbose] > ── fsharp - import ─────────────────────────────────────────────────────────────
00:02:53 #6197 [verbose] > #if FABLE_COMPILER // file_system.types
00:02:53 #6198 [verbose] > [[<Fable.Core.Erase; Fable.Core.Emit("str")>]] type Str = class end
00:02:53 #6199 [verbose] > [[<Fable.Core.Erase; Fable.Core.Emit("base64::DecodeError")>]] type
00:02:53 #6200 [verbose] > base64_DecodeError = class end
00:02:53 #6201 [verbose] > [[<Fable.Core.Erase; Fable.Core.Emit("borsh::io::Error")>]] type borsh_io_Error
00:02:53 #6202 [verbose] > = class end
00:02:53 #6203 [verbose] > [[<Fable.Core.Erase; Fable.Core.Emit("js_sys::JsString")>]] type js_sys_JsString
00:02:53 #6204 [verbose] > = class end
00:02:53 #6205 [verbose] > [[<Fable.Core.Erase; Fable.Core.Emit("serde_json::Error")>]] type
00:02:53 #6206 [verbose] > serde_json_Error = class end
00:02:53 #6207 [verbose] > [[<Fable.Core.Erase; Fable.Core.Emit("serde_json::Value")>]] type
00:02:53 #6208 [verbose] > serde_json_Value = class end
00:02:53 #6209 [verbose] > [[<Fable.Core.Erase; Fable.Core.Emit("serde_wasm_bindgen::Error")>]] type
00:02:53 #6210 [verbose] > serde_wasm_bindgen_Error = class end
00:02:53 #6211 [verbose] > [[<Fable.Core.Erase; Fable.Core.Emit("std::ffi::OsStr")>]] type std_ffi_O...
00:02:54 #6212 [verbose] >
00:02:54 #6213 [verbose] > ── fsharp - import ─────────────────────────────────────────────────────────────
00:02:54 #6214 [verbose] > module State = let mutable trace_state = None
00:02:54 #6215 [verbose] > type [[<Struct>]] US0 =
00:02:54 #6216 [verbose] > | US0_0
00:02:54 #6217 [verbose] > | US0_1
00:02:54 #6218 [verbose] > | US0_2
00:02:54 #6219 [verbose] > | US0_3
00:02:54 #6220 [verbose] > | US0_4
00:02:54 #6221 [verbose] > and Mut0 = {mutable l0 : int64}
00:02:54 #6222 [verbose] > and Mut1 = {mutable l0 : bool}
00:02:54 #6223 [verbose] > and Mut2 = {mutable l0 : US0}
00:02:54 #6224 [verbose] > and [[<Struct>]] US1 =
00:02:54 #6225 [verbose] > | US1_0 of f0_0 : int64
00:02:54 #6226 [verbose] > | US1_1
00:02:54 #6227 [verbose] > and [[<Struct>]] US2 =
00:02:54 #6228 [verbose] > | US2_0 of f0_0 : int64
00:02:54 #6229 [verbose] > | US2_1
00:02:54 #6230 [verbose] > let rec method1 (v0 : int64 option) : int64 option =
00:02:54 #6231 [verbose] > v0
00:02:54 #6232 [verbose] > and method2 (v0 : int64 option) : int64 option =
00:02:54 #6233 [verbose] > v0
00:02:54 #6234 [verbose] > and closure3 () () : struct (Mut0 * Mut1 * Mut1 * Mut2 * int64 option) =
00:02:54 #6235 [verbose] > let v0 : Mut1 = {l0 = true} : Mut1
00:02:54 #6236 [verbose] > let v1 : Mut0 = {l0 = 0L} : Mut0
00:02:54 #6237 [verbose] > let v2 : US0 = US0_0
00:02:54 #6238 [verbose] > let v3 : Mut2 = {l0 = v2} : Mut2
00:02:54 #6239 [verbose] > let v4 : Mut1 = {l0 = false} : Mut1
00:02:54 #6240 [verbose] > let v5 : int64 option option = None
00:02:54 #6241 [verbose] > ...
00:02:54 #6242 [verbose] >
00:02:54 #6243 [verbose] > ── fsharp - import ─────────────────────────────────────────────────────────────
00:02:54 #6244 [verbose] > module SpiralTrace =
00:02:54 #6245 [verbose] > let get_trace_state () =
00:02:54 #6246 [verbose] > #if !INTERACTIVE
00:02:54 #6247 [verbose] > Trace.get_trace_state ()
00:02:54 #6248 [verbose] > #else
00:02:54 #6249 [verbose] > get_trace_state ()
00:02:54 #6250 [verbose] > #endif
00:02:54 #6251 [verbose] >
00:02:54 #6252 [verbose] > let trace x =
00:02:54 #6253 [verbose] > #if !INTERACTIVE
00:02:54 #6254 [verbose] > Trace.trace x
00:02:54 #6255 [verbose] > #else
00:02:54 #6256 [verbose] > trace x
00:02:54 #6257 [verbose] > #endif
00:02:54 #6258 [verbose] >
00:02:54 #6259 [verbose] > type TraceLevel =
00:02:54 #6260 [verbose] > #if !INTERACTIVE
00:02:54 #6261 [verbose] > Trace.US0
00:02:54 #6262 [verbose] > #else
00:02:54 #6263 [verbose] > US0
00:02:54 #6264 [verbose] > #endif
00:02:54 #6265 [verbose] >
00:02:54 #6266 [verbose] > #if !FABLE_COMPILER && !WASM && !CONTRACT
00:02:54 #6267 [verbose] >
00:02:54 #6268 [verbose] > module SpiralAsync =
00:02:54 #6269 [verbose] > let merge_cancellation_token_with_default_async x =
00:02:54 #6270 [verbose] > #if !INTERACTIVE
00:02:54 #6271 [verbose] > Async_.merge_cancellation_token_with_default_async x
00:02:54 #6272 [verbose] > #else
00:02:54 #6273 [verbose] > merge_cancellation_token_with_default_async x
00:02:54 #6274 [verbose] > #endif
00:02:54 #6275 [verbose] >
00:02:54 #6276 [verbose] > module SpiralRuntime =
00:02:54 #6277 [verbose] > let get_executable_suffix () =
00:02:54 #6278 [verbose] > #if !INTERACTIVE
00:02:54 #6279 [verbose] > Runtime.get_executable_suffix ()
00:02:54 #6280 [verbose] > #else
00:02:54 #6281 [verbose] > get_executable_suffix ()
00:02:54 #6282 [verbose] > #endif
00:02:54 #6283 [verbose] >
00:02:54 #6284 [verbose] > let is...
00:02:55 #6285 [verbose] >
00:02:55 #6286 [verbose] > ── fsharp - import ─────────────────────────────────────────────────────────────
00:02:55 #6287 [verbose] > #r @"../../../../../../../.nuget/packages/expecto/10.2.1/lib/net6.0/Expecto.dll"
00:02:55 #6288 [verbose] >
00:02:55 #6289 [verbose] > ── fsharp - import ─────────────────────────────────────────────────────────────
00:02:55 #6290 [verbose] > //// test
00:02:55 #6291 [verbose] >
00:02:55 #6292 [verbose] > type AssertExceptionFormatter (ex) =
00:02:55 #6293 [verbose] > member _.Text =
00:02:55 #6294 [verbose] > ex.ToString()
00:02:55 #6295 [verbose] > .Replace("32m", "<span style=\"color: green;\">")
00:02:55 #6296 [verbose] > .Replace("36m", "</span>")
00:02:55 #6297 [verbose] > .Replace("31m", "<span style=\"color: red;\">")
00:02:55 #6298 [verbose] > .Replace("\n", "<br/>\n")
00:02:55 #6299 [verbose] >
00:02:55 #6300 [verbose] >
00:02:55 #6301 [verbose] > Formatter.Register<AssertExceptionFormatter> ((fun (x :
00:02:55 #6302 [verbose] > AssertExceptionFormatter) -> x.Text), "text/html")
00:02:55 #6303 [verbose] >
00:02:55 #6304 [verbose] > ── fsharp - import ─────────────────────────────────────────────────────────────
00:02:55 #6305 [verbose] > //// test
00:02:55 #6306 [verbose] >
00:02:55 #6307 [verbose] > let inline __expect fn log expected actual =
00:02:55 #6308 [verbose] > if log then printfn $"{actual.ToDisplayString ()}"
00:02:55 #6309 [verbose] > try
00:02:55 #6310 [verbose] > "Testing.__expect" |> fn actual expected
00:02:55 #6311 [verbose] > with :? Expecto.AssertException as ex ->
00:02:55 #6312 [verbose] > AssertExceptionFormatter(ex).Display () |> ignore
00:02:55 #6313 [verbose] > failwith (ex.GetType().FullName)
00:02:55 #6314 [verbose] >
00:02:55 #6315 [verbose] > let inline __contains log expected actual = __expect Expecto.Expect.contains log
00:02:55 #6316 [verbose] > expected actual
00:02:55 #6317 [verbose] > let inline _contains expected actual = __contains true expected actual
00:02:55 #6318 [verbose] >
00:02:55 #6319 [verbose] > let inline __assertEqual log expected actual = __expect Expecto.Expect.equal log
00:02:55 #6320 [verbose] > expected actual
00:02:55 #6321 [verbose] > let inline _assertEqual expected actual = __assertEqual true expected actual
00:02:55 #6322 [verbose] >
00:02:55 #6323 [verbose] > let inline __isGreaterThan log expected actual = __expect
00:02:55 #6324 [verbose] > Expecto.Expect.isGreaterThan log ex...
00:02:55 #6325 [verbose] >
00:02:55 #6326 [verbose] > ── fsharp - import ─────────────────────────────────────────────────────────────
00:02:55 #6327 [verbose] > //// test
00:02:55 #6328 [verbose] >
00:02:55 #6329 [verbose] > let inline __isBetween log a b actual =
00:02:55 #6330 [verbose] > let inline isBetween actual (a, b) _ =
00:02:55 #6331 [verbose] > __isGreaterThanOrEqual log a actual
00:02:55 #6332 [verbose] > __isLessThanOrEqual log b actual
00:02:55 #6333 [verbose] > __expect isBetween log (a, b) actual
00:02:55 #6334 [verbose] > let inline _isBetween a b actual = __isBetween true a b actual
00:02:55 #6335 [verbose] >
00:02:55 #6336 [verbose] > ── fsharp ──────────────────────────────────────────────────────────────────────
00:02:55 #6337 [verbose] > #r @"../../../../../../../.nuget/packages/tomlyn/0.17.0/lib/net7.0/Tomlyn.dll"
00:02:55 #6338 [verbose] >
00:02:55 #6339 [verbose] > ── fsharp ──────────────────────────────────────────────────────────────────────
00:02:55 #6340 [verbose] > #!import ../../lib/fsharp/Common.fs
00:02:55 #6341 [verbose] >
00:02:55 #6342 [verbose] > ── fsharp - import ─────────────────────────────────────────────────────────────
00:02:55 #6343 [verbose] > #if !INTERACTIVE
00:02:55 #6344 [verbose] > namespace Polyglot
00:02:55 #6345 [verbose] > #endif
00:02:55 #6346 [verbose] >
00:02:55 #6347 [verbose] > module Common =
00:02:55 #6348 [verbose] >
00:02:55 #6349 [verbose] > #if !INTERACTIVE
00:02:55 #6350 [verbose] > open Lib
00:02:55 #6351 [verbose] > #endif
00:02:55 #6352 [verbose] >
00:02:55 #6353 [verbose] > let nl = System.Environment.NewLine
00:02:55 #6354 [verbose] > let q = @""""
00:02:55 #6355 [verbose] >
00:02:55 #6356 [verbose] > let inline cons head tail = head :: tail
00:02:55 #6357 [verbose] >
00:02:55 #6358 [verbose] > /// ## memoize
00:02:55 #6359 [verbose] >
00:02:55 #6360 [verbose] > let inline memoize fn =
00:02:55 #6361 [verbose] > let result = lazy fn ()
00:02:55 #6362 [verbose] > fun () -> result.Value
00:02:55 #6363 [verbose] >
00:02:55 #6364 [verbose] > /// ## TraceLevel
00:02:55 #6365 [verbose] >
00:02:55 #6366 [verbose] > type TraceLevel =
00:02:55 #6367 [verbose] > | Verbose
00:02:55 #6368 [verbose] > | Debug
00:02:55 #6369 [verbose] > | Info
00:02:55 #6370 [verbose] > | Warning
00:02:55 #6371 [verbose] > | Critical
00:02:55 #6372 [verbose] >
00:02:55 #6373 [verbose] > let inline getLocals () = ""
00:02:55 #6374 [verbose] >
00:02:55 #6375 [verbose] > /// ## trace
00:02:55 #6376 [verbose] >
00:02:55 #6377 [verbose] > let to_trace_level = function
00:02:55 #6378 [verbose] > | Verbose -> SpiralTrace.TraceLevel.US0_0
00:02:55 #6379 [verbose] > | Debug -> SpiralTrace.TraceLevel.US0_1
00:02:55 #6380 [verbose] > | Info -> SpiralTrace.TraceLevel.US0_2
00:02:55 #6381 [verbose] > | Warning -> SpiralTrace.TraceLevel.US0_3
00:02:55 #6382 [verbose] > | Critical ->...
00:02:55 #6383 [verbose] >
00:02:55 #6384 [verbose] > ── fsharp ──────────────────────────────────────────────────────────────────────
00:02:55 #6385 [verbose] > open Common
00:02:55 #6386 [verbose] >
00:02:55 #6387 [verbose] > ── fsharp ──────────────────────────────────────────────────────────────────────
00:02:55 #6388 [verbose] > let inline (/./) (table: Tomlyn.Model.TomlTable) (key: string) :
00:02:55 #6389 [verbose] > Tomlyn.Model.TomlTable =
00:02:55 #6390 [verbose] > table.[[key]] :?> Tomlyn.Model.TomlTable
00:02:55 #6391 [verbose] >
00:02:55 #6392 [verbose] > let inline (/../) (table: Tomlyn.Model.TomlTable) (key: string) : 'T seq =
00:02:55 #6393 [verbose] > table.[[key]] :?> Tomlyn.Model.TomlArray |> Seq.cast<'T>
00:02:55 #6394 [verbose] >
00:02:55 #6395 [verbose] > ── fsharp ──────────────────────────────────────────────────────────────────────
00:02:55 #6396 [verbose] > //// test
00:02:55 #6397 [verbose] >
00:02:55 #6398 [verbose] > let tomlContent =
00:02:55 #6399 [verbose] > """
00:02:55 #6400 [verbose] > [[extension]]
00:02:55 #6401 [verbose] > paths = [["/a", "/b"]]
00:02:55 #6402 [verbose] > """
00:02:55 #6403 [verbose] >
00:02:55 #6404 [verbose] > let toml = Tomlyn.Toml.Parse tomlContent
00:02:55 #6405 [verbose] > let tomlModel = Tomlyn.Toml.ToModel toml
00:02:55 #6406 [verbose] >
00:02:55 #6407 [verbose] > let paths : string seq = tomlModel /./ "extension" /../ "paths"
00:02:55 #6408 [verbose] >
00:02:55 #6409 [verbose] > paths
00:02:55 #6410 [verbose] > |> Seq.toList
00:02:55 #6411 [verbose] > |> _assertEqual [[ "/a"; "/b" ]]
00:02:55 #6412 [verbose] >
00:02:55 #6413 [verbose] > ╭─[ 97.05ms - stdout ]─────────────────────────────────────────────────────────╮
00:02:55 #6414 [verbose] > │ [ /a, /b ] │
00:02:55 #6415 [verbose] > │ │
00:02:55 #6416 [verbose] > ╰──────────────────────────────────────────────────────────────────────────────╯
00:02:57 #6417 [verbose] > [NbConvertApp] Converting notebook Toml.dib.ipynb to html
00:02:57 #6418 [verbose] > C:\Users\i574n\scoop\apps\python\current\Lib\site-packages\nbformat\__init__.py:93: MissingIDFieldWarning: Code cell is missing an id field, this will become a hard error in future nbformat versions. You may want to use `normalize()` on your notebooks before validations (available since nbformat 5.1.4). Previous versions of nbformat are fixing this issue transparently, and will stop doing so in the future.
00:02:57 #6419 [verbose] > validate(nb)
00:02:57 #6420 [verbose] > C:\Users\i574n\scoop\apps\python\current\Lib\site-packages\nbconvert\filters\highlight.py:71: UserWarning: IPython3 lexer unavailable, falling back on Python 3
00:02:57 #6421 [verbose] > return _pygments_highlight(
00:02:57 #6422 [verbose] > [NbConvertApp] Writing 277990 bytes to Toml.dib.html
00:02:58 #6423 [debug] execute_with_options_async / exit_code: 0 / output.Length: 14075
00:02:58 #14 [debug] main / executeCommand / exitCode: 0
00:03:00 #15 [debug] runWithTimeoutChildAsync / timeout: 2000
00:00:00 #2 [debug] writeDibCode / output: Fs / path: AsyncSeq.dib
00:00:00 #2 [debug] writeDibCode / output: Fs / path: Threading.dib
00:00:00 #2 [debug] writeDibCode / output: Fs / path: FileSystem.dib
00:00:00 #2 [debug] writeDibCode / output: Fs / path: Async.dib
00:00:00 #2 [debug] writeDibCode / output: Fs / path: Common.dib
00:00:00 #2 [debug] writeDibCode / output: Fs / path: Networking.dib
00:00:00 #2 [debug] writeDibCode / output: Fs / path: Runtime.dib
00:00:00 #2 [debug] writeDibCode / output: Fs / path: CommonFSharp.dib
00:00:00 #8 [debug] parseDibCode / output: Fs / file: CommonFSharp.dib
00:00:00 #4 [debug] parseDibCode / output: Fs / file: AsyncSeq.dib
00:00:00 #8 [debug] parseDibCode / output: Fs / file: FileSystem.dib
00:00:00 #4 [debug] parseDibCode / output: Fs / file: Networking.dib
00:00:00 #9 [debug] parseDibCode / output: Fs / file: Async.dib
00:00:00 #10 [debug] parseDibCode / output: Fs / file: Common.dib
00:00:00 #6 [debug] parseDibCode / output: Fs / file: Threading.dib
00:00:00 #5 [debug] parseDibCode / output: Fs / file: Runtime.dib
00:00:00 #11 [debug] writeDibCode / output: Fs / path: Toml.dib
00:00:00 #12 [debug] parseDibCode / output: Fs / file: Toml.dib
In [ ]:
{ . "$ScriptDir/../lib/rust/fable/build.ps1" } | Invoke-Block
── pwsh ──────────────────────────────────────────────────────────────────────── . ../../../scripts/nbs_header.ps1 . ../../../scripts/core.ps1 ── pwsh ──────────────────────────────────────────────────────────────────────── dotnet fable --optimize --lang rs --extension .rs ╭─[ 765.84ms - stdout ]────────────────────────────────────────────────────────╮ │ Fable 4.14.0: F# to Rust compiler (status: alpha) │ │ │ │ Thanks to the contributor! @Booksbaum │ │ Stand with Ukraine! https://standwithukraine.com.ua/ │ │ │ │ Parsing fable-library-rust.fsproj... │ │ Retrieving project options from cache, in case of issues run `dotnet fable │ │ clean` or try `--noCache` option. │ │ Project and references (1 source files) parsed in 167ms │ │ │ │ Skipped compilation because all generated files are up-to-date! │ │ │ ╰──────────────────────────────────────────────────────────────────────────────╯ [NbConvertApp] Converting notebook build.dib.ipynb to html C:\Users\i574n\scoop\apps\python\current\Lib\site-packages\nbformat\__init__.py:93: MissingIDFieldWarning: Code cell is missing an id field, this will become a hard error in future nbformat versions. You may want to use `normalize()` on your notebooks before validations (available since nbformat 5.1.4). Previous versions of nbformat are fixing this issue transparently, and will stop doing so in the future. validate(nb) C:\Users\i574n\scoop\apps\python\current\Lib\site-packages\nbconvert\filters\highlight.py:71: UserWarning: IPython3 lexer unavailable, falling back on Python 3 return _pygments_highlight( [NbConvertApp] Writing 272481 bytes to build.dib.html
In [ ]:
{ . "$ScriptDir/../lib/math/build.ps1" } | Invoke-Block
00:00:00 #1 [debug] runWithTimeoutChildAsync / timeout: 60
00:00:00 #1 [debug] execute_with_options_async / options: struct (Some System.Threading.CancellationToken,
"dotnet "C:\home\git\polyglot\deps\The-Spiral-Language\The Spiral Language 2\artifacts\bin\The Spiral Language 2\release\Spiral.dll" --port 13805 --default-int i32 --default-float f64",
Some <fun:main@439-43>, None, None)
00:00:00 #2 [verbose] > pwd: C:\home\git\polyglot\lib\math
00:00:00 #3 [verbose] > dllPath: C:\home\git\polyglot\deps\The-Spiral-Language\The Spiral Language 2\artifacts\bin\The Spiral Language 2\release
00:00:00 #4 [verbose] > targetDir: C:\home\git\polyglot\target/polyglot/spiral_eval
00:00:00 #5 [verbose] > Starting the Spiral Server. It is bound to: http://localhost:13805
00:00:00 #2 [debug] runWithTimeoutChildAsync / timeout: 500
00:00:00 #3 [verbose] waitForPortAccess / port: 13805 / retry: 0
00:00:01 #4 [debug] sendJson / port: 13805 / json: {"Ping":true} / result.Length:
00:00:01 #5 [verbose] awaitCompiler / Ping / result: Some(null) / port: 13805 / retry: 0
00:00:01 #6 [verbose] > Server bound to: http://localhost:13805
00:00:01 #7 [debug] execute_with_options_async / options: struct (Some System.Threading.CancellationToken,
"pwsh -c "../../scripts/invoke-dib.ps1 math.dib"", None, None, None)
00:00:03 #8 [verbose] >
00:00:03 #9 [verbose] > ── markdown ────────────────────────────────────────────────────────────────────
00:00:03 #10 [verbose] > ╭──────────────────────────────────────────────────────────────────────────────╮
00:00:03 #11 [verbose] > │ # math │
00:00:03 #12 [verbose] > ╰──────────────────────────────────────────────────────────────────────────────╯
00:00:03 #13 [verbose] >
00:00:03 #14 [verbose] > ── spiral ──────────────────────────────────────────────────────────────────────
00:00:03 #15 [verbose] > open testing
00:00:03 #16 [verbose] > open rust_operators
00:00:06 #17 [verbose] > Building c:\home\git\polyglot\target\polyglot\spiral_eval\packages\dbfb98f86b21deb6b35fe3a80945f9312d296d3871cb8776c774b57d259aaabf\main.spi
00:00:08 #18 [verbose] >
00:00:08 #19 [verbose] > ╭─[ 5.56s - stdout ]───────────────────────────────────────────────────────────╮
00:00:08 #20 [verbose] > │ () │
00:00:09 #21 [verbose] > │ │
00:00:09 #22 [verbose] > │ │
00:00:09 #23 [verbose] > ╰──────────────────────────────────────────────────────────────────────────────╯
00:00:09 #24 [verbose] >
00:00:09 #25 [verbose] > ── spiral ──────────────────────────────────────────────────────────────────────
00:00:09 #26 [verbose] > inl types () =
00:00:09 #27 [verbose] > global "[[<Fable.Core.Erase;
00:00:09 #28 [verbose] > Fable.Core.Emit(\"num_complex::Complex<$0>\")>]] type num_complex_Complex<'T> =
00:00:09 #29 [verbose] > class end"
00:00:09 #30 [verbose] > global "[[<Fable.Core.Erase; Fable.Core.Emit(\"pyo3::types::PyModule\")>]]
00:00:09 #31 [verbose] > type pyo3_types_PyModule = class end"
00:00:09 #32 [verbose] > global "[[<Fable.Core.Erase; Fable.Core.Emit(\"pyo3::Bound<$0>\")>]] type
00:00:09 #33 [verbose] > pyo3_Bound<'T> = class end"
00:00:09 #34 [verbose] > global "[[<Fable.Core.Erase; Fable.Core.Emit(\"pyo3::Python\")>]] type
00:00:09 #35 [verbose] > pyo3_Python = class end"
00:00:09 #36 [verbose] > global "[[<Fable.Core.Erase; Fable.Core.Emit(\"pyo3::PyAny\")>]] type
00:00:09 #37 [verbose] > pyo3_PyAny = class end"
00:00:09 #38 [verbose] > global "[[<Fable.Core.Erase; Fable.Core.Emit(\"pyo3::PyErr\")>]] type
00:00:09 #39 [verbose] > pyo3_PyErr = class end"
00:00:09 #40 [verbose] > Building c:\home\git\polyglot\target\polyglot\spiral_eval\packages\c8f0864954924202c04d677eb5455703cb3b1c12117620b7981f63f9267221bb\main.spi
00:00:09 #41 [verbose] >
00:00:09 #42 [verbose] > ╭─[ 335.50ms - stdout ]────────────────────────────────────────────────────────╮
00:00:09 #43 [verbose] > │ () │
00:00:09 #44 [verbose] > │ │
00:00:09 #45 [verbose] > │ │
00:00:09 #46 [verbose] > ╰──────────────────────────────────────────────────────────────────────────────╯
00:00:09 #47 [verbose] >
00:00:09 #48 [verbose] > ── spiral ──────────────────────────────────────────────────────────────────────
00:00:09 #49 [verbose] > inl types () =
00:00:09 #50 [verbose] > rust.types ()
00:00:09 #51 [verbose] > sm'.types ()
00:00:09 #52 [verbose] > types ()
00:00:09 #53 [verbose] > Building c:\home\git\polyglot\target\polyglot\spiral_eval\packages\7617a3a286862b4ceb770aa451c622eaef1492d1ce601c2db1211ed261f948f6\main.spi
00:00:09 #54 [verbose] >
00:00:09 #55 [verbose] > ╭─[ 343.83ms - stdout ]────────────────────────────────────────────────────────╮
00:00:09 #56 [verbose] > │ () │
00:00:09 #57 [verbose] > │ │
00:00:09 #58 [verbose] > │ │
00:00:09 #59 [verbose] > ╰──────────────────────────────────────────────────────────────────────────────╯
00:00:09 #60 [verbose] >
00:00:09 #61 [verbose] > ── markdown ────────────────────────────────────────────────────────────────────
00:00:09 #62 [verbose] > ╭──────────────────────────────────────────────────────────────────────────────╮
00:00:09 #63 [verbose] > │ ## complex │
00:00:09 #64 [verbose] > ╰──────────────────────────────────────────────────────────────────────────────╯
00:00:09 #65 [verbose] >
00:00:09 #66 [verbose] > ── spiral ──────────────────────────────────────────────────────────────────────
00:00:09 #67 [verbose] > nominal complex t = $"num_complex_Complex<`t>"
00:00:09 #68 [verbose] > nominal bound t = $"pyo3_Bound<`t>"
00:00:09 #69 [verbose] > nominal python = $"pyo3_Python"
00:00:09 #70 [verbose] > nominal pymodule = $"pyo3_types_PyModule"
00:00:09 #71 [verbose] > nominal pyany = $"pyo3_PyAny"
00:00:09 #72 [verbose] > nominal pyerr = $"pyo3_PyErr"
00:00:09 #73 [verbose] >
00:00:09 #74 [verbose] > inl complex forall t. ((re : t), (im : t)) : complex t =
00:00:09 #75 [verbose] > !\\((re, im), $'"num_complex::Complex::new($0, $1)"')
00:00:09 #76 [verbose] > Building c:\home\git\polyglot\target\polyglot\spiral_eval\packages\94de0881508799e6879bea0aa98890075d503c37b10fc086131ba628b08fbaa7\main.spi
00:00:09 #77 [verbose] >
00:00:09 #78 [verbose] > ╭─[ 247.31ms - stdout ]────────────────────────────────────────────────────────╮
00:00:09 #79 [verbose] > │ () │
00:00:09 #80 [verbose] > │ │
00:00:09 #81 [verbose] > │ │
00:00:09 #82 [verbose] > ╰──────────────────────────────────────────────────────────────────────────────╯
00:00:09 #83 [verbose] >
00:00:09 #84 [verbose] > ── spiral ──────────────────────────────────────────────────────────────────────
00:00:09 #85 [verbose] > // // test
00:00:09 #86 [verbose] > // // rust=
00:00:09 #87 [verbose] >
00:00:09 #88 [verbose] > types ()
00:00:09 #89 [verbose] >
00:00:09 #90 [verbose] > complex (0f64, 0f64)
00:00:09 #91 [verbose] > |> sm'.format'
00:00:09 #92 [verbose] > |> sm'.from_std_string
00:00:09 #93 [verbose] > |> _assert_eq "0+0i"
00:00:10 #94 [verbose] > Building c:\home\git\polyglot\target\polyglot\spiral_eval\packages\f8578f732a65cfae18b4b17be322b3fa7700f9cdad2aa36b7bddd231278f7461\main.spi
00:00:17 #95 [verbose] >
00:00:17 #96 [verbose] > ╭─[ 7.88s - return value ]─────────────────────────────────────────────────────╮
00:00:17 #97 [verbose] > │ .rs output: │
00:00:17 #98 [verbose] > │ "0+0i" │
00:00:17 #99 [verbose] > │ │
00:00:17 #100 [verbose] > │ │
00:00:17 #101 [verbose] > │ │
00:00:17 #102 [verbose] > ╰──────────────────────────────────────────────────────────────────────────────╯
00:00:17 #103 [verbose] >
00:00:17 #104 [verbose] > ╭─[ 7.90s - stdout ]───────────────────────────────────────────────────────────╮
00:00:17 #105 [verbose] > │ .fsx: │
00:00:17 #106 [verbose] > │ [<Fable.Core.Erase; Fable.Core.Emit("Func0<$0>")>] type Func0<'T> = class │
00:00:17 #107 [verbose] > │ end │
00:00:17 #108 [verbose] > │ [<Fable.Core.Erase; Fable.Core.Emit("Func1<$0, $1>")>] type Func0<'T, 'U> = │
00:00:17 #109 [verbose] > │ class end │
00:00:17 #110 [verbose] > │ [<Fable.Core.Erase; Fable.Core.Emit("Box<$0>")>] type Box<'T> = class end │
00:00:17 #111 [verbose] > │ [<Fable.Core.Erase; Fable.Core.Emit("dyn $0")>] type Dyn<'T> = class end │
00:00:17 #112 [verbose] > │ [<Fable.Core.Erase; Fable.Core.Emit("Fn() -> $0")>] type Fn<'T> = class end │
00:00:17 #113 [verbose] > │ [<Fable.Core.Erase; Fable.Core.Emit("Fn()")>] type FnUnit = class end │
00:00:17 #114 [verbose] > │ [<Fable.Core.Erase; Fable.Core.Emit("FnOnce() -> $0")>] type FnOnce<'T> = │
00:00:17 #115 [verbose] > │ class end │
00:00:17 #116 [verbose] > │ [<Fable.Core.Erase; Fable.Core.Emit("Fn($0, $1)")>] type ActionFn2<'T, 'U> = │
00:00:17 #117 [verbose] > │ class end │
00:00:17 #118 [verbose] > │ [<Fable.Core.Erase; Fable.Core.Emit("impl $0")>] type Impl<'T> = class end │
00:00:17 #119 [verbose] > │ [<Fable.Core.Erase; Fable.Core.Emit("mut $0")>] type Mut<'T> = class end │
00:00:17 #120 [verbose] > │ [<Fable.Core.Erase; Fable.Core.Emit("&$0")>] type Ref<'T> = class end │
00:00:17 #121 [verbose] > │ [<Fable.Core.Erase; Fable.Core.Emit("&'static $0")>] type StaticRef<'T> = │
00:00:17 #122 [verbose] > │ class end │
00:00:17 #123 [verbose] > │ [<Fable.Core.Erase; Fable.Core.Emit("MutCell<$0>")>] type MutCell<'T> = │
00:00:17 #124 [verbose] > │ class end │
00:00:17 #125 [verbose] > │ [<Fable.Core.Erase; Fable.Core.Emit("std::any::Any")>] type std_any_Any = │
00:00:17 #126 [verbose] > │ class end │
00:00:17 #127 [verbose] > │ [<Fable.Core.Erase; Fable.Core.Emit("std::cell::RefCell<$0>")>] type │
00:00:17 #128 [verbose] > │ std_cell_RefCell<'T> = class end │
00:00:17 #129 [verbose] > │ [<Fable.Core.Erase; Fable.Core.Emit("std::pin::Pin<$0>")>] type │
00:00:17 #130 [verbose] > │ std_pin_Pin<'T> = class end │
00:00:17 #131 [verbose] > │ [<Fable.Core.Erase; Fable.Core.Emit("std::rc::Rc<$0>")>] type std_rc_Rc<'T> │
00:00:17 #132 [verbose] > │ = class end │
00:00:17 #133 [verbose] > │ [<Fable.Core.Erase; Fable.Core.Emit("std::rc::Weak<$0>")>] type │
00:00:17 #134 [verbose] > │ std_rc_Weak<'T> = class end │
00:00:17 #135 [verbose] > │ [<Fable.Core.Erase; Fable.Core.Emit("std::sync::Arc<$0>")>] type │
00:00:17 #136 [verbose] > │ std_sync_Arc<'T> = class end │
00:00:17 #137 [verbose] > │ [<Fable.Core.Erase; Fable.Core.Emit("str")>] type Str = class end │
00:00:17 #138 [verbose] > │ [<Fable.Core.Erase; Fable.Core.Emit("base64::DecodeError")>] type │
00:00:17 #139 [verbose] > │ base64_DecodeError = class end │
00:00:17 #140 [verbose] > │ [<Fable.Core.Erase; Fable.Core.Emit("borsh::io::Error")>] type │
00:00:17 #141 [verbose] > │ borsh_io_Error = class end │
00:00:17 #142 [verbose] > │ [<Fable.Core.Erase; Fable.Core.Emit("js_sys::JsString")>] type │
00:00:17 #143 [verbose] > │ js_sys_JsString = class end │
00:00:17 #144 [verbose] > │ [<Fable.Core.Erase; Fable.Core.Emit("serde_json::Error")>] type │
00:00:17 #145 [verbose] > │ serde_json_Error = class end │
00:00:17 #146 [verbose] > │ [<Fable.Core.Erase; Fable.Core.Emit("serde_json::Value")>] type │
00:00:17 #147 [verbose] > │ serde_json_Value = class end │
00:00:17 #148 [verbose] > │ [<Fable.Core.Erase; Fable.Core.Emit("serde_wasm_bindgen::Error")>] type │
00:00:17 #149 [verbose] > │ serde_wasm_bindgen_Error = class end │
00:00:17 #150 [verbose] > │ [<Fable.Core.Erase; Fable.Core.Emit("std::ffi::OsStr")>] type std_ffi_OsStr │
00:00:17 #151 [verbose] > │ = class end │
00:00:17 #152 [verbose] > │ [<Fable.Core.Erase; Fable.Core.Emit("std::ffi::OsString")>] type │
00:00:17 #153 [verbose] > │ std_ffi_OsString = class end │
00:00:17 #154 [verbose] > │ [<Fable.Core.Erase; Fable.Core.Emit("std::str::Utf8Error")>] type │
00:00:17 #155 [verbose] > │ std_str_Utf8Error = class end │
00:00:17 #156 [verbose] > │ [<Fable.Core.Erase; Fable.Core.Emit("std::string::String")>] type │
00:00:17 #157 [verbose] > │ std_string_String = class end │
00:00:17 #158 [verbose] > │ [<Fable.Core.Erase; Fable.Core.Emit("num_complex::Complex<$0>")>] type │
00:00:17 #159 [verbose] > │ num_complex_Complex<'T> = class end │
00:00:17 #160 [verbose] > │ [<Fable.Core.Erase; Fable.Core.Emit("pyo3::types::PyModule")>] type │
00:00:17 #161 [verbose] > │ pyo3_types_PyModule = class end │
00:00:17 #162 [verbose] > │ [<Fable.Core.Erase; Fable.Core.Emit("pyo3::Bound<$0>")>] type pyo3_Bound<'T> │
00:00:17 #163 [verbose] > │ = class end │
00:00:17 #164 [verbose] > │ [<Fable.Core.Erase; Fable.Core.Emit("pyo3::Python")>] type pyo3_Python = │
00:00:17 #165 [verbose] > │ class end │
00:00:17 #166 [verbose] > │ [<Fable.Core.Erase; Fable.Core.Emit("pyo3::PyAny")>] type pyo3_PyAny = class │
00:00:17 #167 [verbose] > │ end │
00:00:17 #168 [verbose] > │ [<Fable.Core.Erase; Fable.Core.Emit("pyo3::PyErr")>] type pyo3_PyErr = class │
00:00:17 #169 [verbose] > │ end │
00:00:17 #170 [verbose] > │ let rec method1 (v0 : bool) : bool = │
00:00:17 #171 [verbose] > │ v0 │
00:00:17 #172 [verbose] > │ and method0 () : unit = │
00:00:17 #173 [verbose] > │ let v0 : string = "num_complex::Complex::new($0, $1)" │
00:00:17 #174 [verbose] > │ let v1 : num_complex_Complex<float> = │
00:00:17 #175 [verbose] > │ Fable.Core.RustInterop.emitRustExpr struct (0.0, 0.0) v0 │
00:00:17 #176 [verbose] > │ let v2 : string = @$"format!(""{{}}"", $0)" │
00:00:17 #177 [verbose] > │ let v3 : std_string_String = Fable.Core.RustInterop.emitRustExpr v1 v2 │
00:00:17 #178 [verbose] > │ let v4 : string = "fable_library_rust::String_::fromString($0)" │
00:00:17 #179 [verbose] > │ let v5 : string = Fable.Core.RustInterop.emitRustExpr v3 v4 │
00:00:17 #180 [verbose] > │ let v6 : string = $"%A{v5}" │
00:00:17 #181 [verbose] > │ System.Console.WriteLine v6 │
00:00:17 #182 [verbose] > │ let v8 : bool = v5 = "0+0i" │
00:00:17 #183 [verbose] > │ let v10 : bool = │
00:00:17 #184 [verbose] > │ if v8 then │
00:00:17 #185 [verbose] > │ true │
00:00:17 #186 [verbose] > │ else │
00:00:17 #187 [verbose] > │ method1(v8) │
00:00:17 #188 [verbose] > │ let v11 : string = "0+0i" │
00:00:17 #189 [verbose] > │ let v12 : string = $"__expect / actual: %A{v5} / expected: %A{v11}" │
00:00:17 #190 [verbose] > │ let v13 : bool = v10 = false │
00:00:17 #191 [verbose] > │ if v13 then │
00:00:17 #192 [verbose] > │ failwith<unit> v12 │
00:00:17 #193 [verbose] > │ method0() │
00:00:17 #194 [verbose] > │ │
00:00:17 #195 [verbose] > │ │
00:00:17 #196 [verbose] > │ .rs: │
00:00:17 #197 [verbose] > │ #![allow(dead_code,)] │
00:00:17 #198 [verbose] > │ #![allow(non_camel_case_types,)] │
00:00:17 #199 [verbose] > │ #![allow(non_snake_case,)] │
00:00:17 #200 [verbose] > │ #![allow(non_upper_case_globals,)] │
00:00:17 #201 [verbose] > │ #![allow(unreachable_code,)] │
00:00:17 #202 [verbose] > │ #![allow(unused_attributes,)] │
00:00:17 #203 [verbose] > │ #![allow(unused_imports,)] │
00:00:17 #204 [verbose] > │ #![allow(unused_macros,)] │
00:00:17 #205 [verbose] > │ #![allow(unused_parens,)] │
00:00:17 #206 [verbose] > │ #![allow(unused_variables,)] │
00:00:17 #207 [verbose] > │ mod module_ccfa04bf { │
00:00:17 #208 [verbose] > │ pub mod Spiral_eval { │
00:00:17 #209 [verbose] > │ use super::*; │
00:00:17 #210 [verbose] > │ use fable_library_rust::Native_::on_startup; │
00:00:17 #211 [verbose] > │ use fable_library_rust::String_::printfn; │
00:00:17 #212 [verbose] > │ use fable_library_rust::String_::sprintf; │
00:00:17 #213 [verbose] > │ use fable_library_rust::String_::string; │
00:00:17 #214 [verbose] > │ pub fn method1(v0: bool) -> bool { v0 } │
00:00:17 #215 [verbose] > │ pub fn method0() { │
00:00:17 #216 [verbose] > │ let v1: num_complex::Complex<f64> = │
00:00:17 #217 [verbose] > │ num_complex::Complex::new(0.0_f64, 0.0_f64); │
00:00:17 #218 [verbose] > │ let v3: std::string::String = format!("{}", v1); │
00:00:17 #219 [verbose] > │ let v5: string = fable_library_rust::String_::fromString(v3); │
00:00:17 #220 [verbose] > │ let v6: string = sprintf!("{:?}", v5.clone()); │
00:00:17 #221 [verbose] > │ printfn!("{0}", v6); │
00:00:17 #222 [verbose] > │ { │
00:00:17 #223 [verbose] > │ let v8: bool = v5.clone() == string("0+0i"); │
00:00:17 #224 [verbose] > │ if (if v8 { true } else { Spiral_eval::method1(v8) }) == │
00:00:17 #225 [verbose] > │ false │
00:00:17 #226 [verbose] > │ { │
00:00:17 #227 [verbose] > │ panic!("{}", │
00:00:17 #228 [verbose] > │ sprintf!("__expect / actual: {:?} / expected: │
00:00:17 #229 [verbose] > │ {:?}", v5, string("0+0i"))); │
00:00:17 #230 [verbose] > │ } │
00:00:17 #231 [verbose] > │ } │
00:00:17 #232 [verbose] > │ } │
00:00:17 #233 [verbose] > │ on_startup!(Spiral_eval::method0()); │
00:00:17 #234 [verbose] > │ } │
00:00:17 #235 [verbose] > │ } │
00:00:17 #236 [verbose] > │ pub use module_ccfa04bf::*; │
00:00:17 #237 [verbose] > │ │
00:00:17 #238 [verbose] > │ │
00:00:17 #239 [verbose] > ╰──────────────────────────────────────────────────────────────────────────────╯
00:00:17 #240 [verbose] >
00:00:17 #241 [verbose] > ── markdown ────────────────────────────────────────────────────────────────────
00:00:17 #242 [verbose] > ╭──────────────────────────────────────────────────────────────────────────────╮
00:00:17 #243 [verbose] > │ ## complex_sin │
00:00:17 #244 [verbose] > ╰──────────────────────────────────────────────────────────────────────────────╯
00:00:17 #245 [verbose] >
00:00:17 #246 [verbose] > ── spiral ──────────────────────────────────────────────────────────────────────
00:00:17 #247 [verbose] > inl re forall t. (c : complex t) : t =
00:00:17 #248 [verbose] > inl c = join c
00:00:17 #249 [verbose] > !\($'"!c.re"')
00:00:17 #250 [verbose] >
00:00:17 #251 [verbose] > inl im forall t. (c : complex t) : t =
00:00:17 #252 [verbose] > inl c = join c
00:00:17 #253 [verbose] > !\($'"!c.im"')
00:00:17 #254 [verbose] >
00:00:17 #255 [verbose] > inl complex_unbox forall t. (c : complex t) =
00:00:17 #256 [verbose] > re c, im c
00:00:17 #257 [verbose] >
00:00:17 #258 [verbose] > inl (~.^) c = complex c
00:00:17 #259 [verbose] >
00:00:17 #260 [verbose] > inl complex_eq forall t. (a : complex t) (b : complex t) : bool =
00:00:17 #261 [verbose] > !\($'"!a == !b"')
00:00:17 #262 [verbose] >
00:00:17 #263 [verbose] > inl (.=) a b = complex_eq a b
00:00:17 #264 [verbose] >
00:00:17 #265 [verbose] > instance equable complex t = complex_eq
00:00:17 #266 [verbose] >
00:00:17 #267 [verbose] > inl complex_add forall t. (a : complex t) (b : complex t) : complex t =
00:00:17 #268 [verbose] > !\($'"!a + !b"')
00:00:17 #269 [verbose] >
00:00:17 #270 [verbose] > inl (.+) a b = complex_add a b
00:00:17 #271 [verbose] >
00:00:17 #272 [verbose] > inl complex_sub forall t. (a : complex t) (b : complex t) : complex t =
00:00:17 #273 [verbose] > !\\((a, b), $'"$0 - $1"')
00:00:17 #274 [verbose] >
00:00:17 #275 [verbose] > inl (.-) a b = complex_sub a b
00:00:17 #276 [verbose] >
00:00:17 #277 [verbose] > inl complex_mult forall t. (a : complex t) (b : complex t) : complex t =
00:00:17 #278 [verbose] > !\\((a, b), $'"$0 * $1"')
00:00:17 #279 [verbose] >
00:00:17 #280 [verbose] > inl (.*) a b = complex_mult a b
00:00:17 #281 [verbose] >
00:00:17 #282 [verbose] > inl complex_div forall t. (a : complex t) (b : complex t) : complex t =
00:00:17 #283 [verbose] > !\($'"!a / !b"')
00:00:17 #284 [verbose] >
00:00:17 #285 [verbose] > inl (./) a b = complex_div a b
00:00:17 #286 [verbose] >
00:00:17 #287 [verbose] > inl powc forall t. (s : complex t) (c : complex t) : complex t =
00:00:17 #288 [verbose] > inl c = join c
00:00:17 #289 [verbose] > inl s = join s
00:00:17 #290 [verbose] > !\($'"num_complex::Complex::powc(!c, !s)"')
00:00:17 #291 [verbose] >
00:00:17 #292 [verbose] > inl (.**) a b = powc b a
00:00:17 #293 [verbose] >
00:00:17 #294 [verbose] > inl complex_sin forall t. (c : complex t) : complex t =
00:00:17 #295 [verbose] > !\($'"!c.sin()"')
00:00:17 #296 [verbose] >
00:00:17 #297 [verbose] > inl conj forall t. (c : complex t) : complex t =
00:00:17 #298 [verbose] > !\($'"!c.conj()"')
00:00:18 #299 [verbose] > Building c:\home\git\polyglot\target\polyglot\spiral_eval\packages\5a95c3e15923c6920070293d6716cbb2793842b5c066db481586bd441486b97c\main.spi
00:00:18 #300 [verbose] >
00:00:18 #301 [verbose] > ╭─[ 671.60ms - stdout ]────────────────────────────────────────────────────────╮
00:00:19 #302 [verbose] > │ () │
00:00:19 #303 [verbose] > │ │
00:00:19 #304 [verbose] > │ │
00:00:19 #305 [verbose] > ╰──────────────────────────────────────────────────────────────────────────────╯
00:00:19 #306 [verbose] >
00:00:19 #307 [verbose] > ── markdown ────────────────────────────────────────────────────────────────────
00:00:19 #308 [verbose] > ╭──────────────────────────────────────────────────────────────────────────────╮
00:00:19 #309 [verbose] > │ ## zeta │
00:00:19 #310 [verbose] > ╰──────────────────────────────────────────────────────────────────────────────╯
00:00:19 #311 [verbose] >
00:00:19 #312 [verbose] > ── spiral ──────────────────────────────────────────────────────────────────────
00:00:19 #313 [verbose] > inl zeta log (gamma : complex f64 -> complex f64) (s : complex f64) : complex
00:00:19 #314 [verbose] > f64 =
00:00:19 #315 [verbose] > inl rec zeta count gamma s =
00:00:19 #316 [verbose] > if log then
00:00:19 #317 [verbose] > !\\(s, $'"println\!(\\\"zeta / count: {:?} / s: {:?}\\\", !count,
00:00:19 #318 [verbose] > $0)"')
00:00:19 #319 [verbose] > if re s > 1 then
00:00:19 #320 [verbose] > (.^(0, 0), (am.init 10000i32 id : a i32 _))
00:00:19 #321 [verbose] > ||> am.fold fun acc n =>
00:00:19 #322 [verbose] > acc .+ (.^(1, 0) ./ (.^(f64 n, 0) .** s))
00:00:19 #323 [verbose] > else
00:00:19 #324 [verbose] > inl gamma_term = gamma (.^(1, 0) .- s)
00:00:19 #325 [verbose] > inl sin_term = .^(pi, 0) .* s ./ .^(2, 0) |> complex_sin
00:00:19 #326 [verbose] > inl one_minus_s = .^(1 - re s, -(im s))
00:00:19 #327 [verbose] > inl mirror_term =
00:00:19 #328 [verbose] > if re one_minus_s <= 1
00:00:19 #329 [verbose] > then .^(0, 0)
00:00:19 #330 [verbose] > else
00:00:19 #331 [verbose] > if count <= 3
00:00:19 #332 [verbose] > then zeta (count + 1) gamma one_minus_s
00:00:19 #333 [verbose] > else one_minus_s
00:00:19 #334 [verbose] > inl reflection_formula =
00:00:19 #335 [verbose] > .^(2, 0) .* (.^(pi, 0) .** s) .* sin_term .* gamma_term .*
00:00:19 #336 [verbose] > mirror_term
00:00:19 #337 [verbose] > reflection_formula
00:00:19 #338 [verbose] > join zeta 0i32 gamma s
00:00:19 #339 [verbose] > Building c:\home\git\polyglot\target\polyglot\spiral_eval\packages\10cc2e61d8e1c8501ee311ac1aaa7bb5ddb8c7476f64e51b4571b80e485463bd\main.spi
00:00:19 #340 [verbose] >
00:00:19 #341 [verbose] > ╭─[ 410.01ms - stdout ]────────────────────────────────────────────────────────╮
00:00:19 #342 [verbose] > │ () │
00:00:19 #343 [verbose] > │ │
00:00:19 #344 [verbose] > │ │
00:00:19 #345 [verbose] > ╰──────────────────────────────────────────────────────────────────────────────╯
00:00:19 #346 [verbose] >
00:00:19 #347 [verbose] > ── markdown ────────────────────────────────────────────────────────────────────
00:00:19 #348 [verbose] > ╭──────────────────────────────────────────────────────────────────────────────╮
00:00:19 #349 [verbose] > │ ## eval │
00:00:19 #350 [verbose] > ╰──────────────────────────────────────────────────────────────────────────────╯
00:00:19 #351 [verbose] >
00:00:19 #352 [verbose] > ── spiral ──────────────────────────────────────────────────────────────────────
00:00:19 #353 [verbose] > inl module_from_code (py : python) (code : string) : _ (bound pymodule) _ =
00:00:19 #354 [verbose] > inl py = join py
00:00:19 #355 [verbose] > inl code = code |> sm'.as_str
00:00:19 #356 [verbose] > !\($'"pyo3::types::PyModule::from_code_bound(!py, !code, \\"\\", \\"\\")"')
00:00:19 #357 [verbose] > |> resultm.map_error' fun (x : pyerr) => x |> sm'.format'
00:00:19 #358 [verbose] >
00:00:19 #359 [verbose] > inl use_pyanymethods () =
00:00:19 #360 [verbose] > global "Fable.Core.RustInterop.emitRustExpr () \");\nuse
00:00:19 #361 [verbose] > pyo3::prelude::PyAnyMethods;\n//\""
00:00:19 #362 [verbose] >
00:00:19 #363 [verbose] > inl getattr (attr : string) (module : bound pymodule) : _ (bound pyany) _ =
00:00:19 #364 [verbose] > inl attr = join attr
00:00:19 #365 [verbose] > inl attr = attr |> sm'.as_str
00:00:19 #366 [verbose] > inl module = join module
00:00:19 #367 [verbose] > use_pyanymethods ()
00:00:19 #368 [verbose] > !\($'"!module.getattr(!attr)"')
00:00:19 #369 [verbose] > |> resultm.map_error' fun (x : pyerr) => x |> sm'.format'
00:00:19 #370 [verbose] >
00:00:19 #371 [verbose] > inl call forall t. (args : t) (module : bound pyany) : _ (bound pyany) _ =
00:00:19 #372 [verbose] > inl args = join args
00:00:19 #373 [verbose] > inl module = join module
00:00:19 #374 [verbose] > !\($'"pyo3::prelude::PyAnyMethods::call(&!module, ((*!args).0, *(*!args).1),
00:00:19 #375 [verbose] > None)"')
00:00:19 #376 [verbose] > |> resultm.map_error' fun (x : pyerr) => x |> sm'.format'
00:00:19 #377 [verbose] >
00:00:19 #378 [verbose] > inl extract forall t. (result : bound pyany) : _ t _ =
00:00:19 #379 [verbose] > inl result = join result
00:00:19 #380 [verbose] > use_pyanymethods ()
00:00:19 #381 [verbose] > !\($'"!result.extract()"')
00:00:19 #382 [verbose] > |> resultm.map_error' fun (x : pyerr) => x |> sm'.format'
00:00:19 #383 [verbose] >
00:00:19 #384 [verbose] > inl eval py code (args : pair bool (pair f64 f64)) : _ (_ f64) sm'.std_string =
00:00:19 #385 [verbose] > inl code =
00:00:19 #386 [verbose] > code
00:00:19 #387 [verbose] > |> module_from_code py
00:00:19 #388 [verbose] > |> resultm.unwrap'
00:00:19 #389 [verbose] > inl fn =
00:00:19 #390 [verbose] > code
00:00:19 #391 [verbose] > |> getattr "fn"
00:00:19 #392 [verbose] > |> resultm.unwrap'
00:00:19 #393 [verbose] >
00:00:19 #394 [verbose] > fn
00:00:19 #395 [verbose] > |> call args
00:00:19 #396 [verbose] > |> resultm.try'
00:00:19 #397 [verbose] > |> extract
00:00:19 #398 [verbose] > |> resultm.try'
00:00:19 #399 [verbose] > |> complex
00:00:19 #400 [verbose] > |> Ok
00:00:19 #401 [verbose] > |> resultm.box
00:00:19 #402 [verbose] >
00:00:19 #403 [verbose] > inl call1_ log py s code =
00:00:19 #404 [verbose] > inl code = join (a code : _ i32 _) |> sm'.concat_array_trailing "\n"
00:00:19 #405 [verbose] >
00:00:19 #406 [verbose] > inl s = new_pair (re s) (im s)
00:00:19 #407 [verbose] > inl args = new_pair log s
00:00:19 #408 [verbose] >
00:00:19 #409 [verbose] > eval py code args
00:00:19 #410 [verbose] >
00:00:19 #411 [verbose] > inl call1_ log name py s line =
00:00:19 #412 [verbose] > inl s = join s
00:00:19 #413 [verbose] > join
00:00:19 #414 [verbose] > ;[[
00:00:19 #415 [verbose] > $'$"import sys"'
00:00:19 #416 [verbose] > $'$"import traceback"'
00:00:19 #417 [verbose] > $'$"import re"'
00:00:19 #418 [verbose] > $'$"count = 0"'
00:00:19 #419 [verbose] > $'$"memory_address_pattern = re.compile(r\' at 0x[[0-9a-fA-F]]+\')"'
00:00:19 #420 [verbose] > $'$"def trace_calls(frame, event, arg):"'
00:00:19 #421 [verbose] > $'$" global count"'
00:00:19 #422 [verbose] > $'$" count += 1"'
00:00:19 #423 [verbose] > $'$" if count < 200:"'
00:00:19 #424 [verbose] > $'$" try:"'
00:00:19 #425 [verbose] > $'$" args = {{ k: v for k, v in frame.f_locals.items() if
00:00:19 #426 [verbose] > frame.f_code.co_name \!= \'make_mpc\' and k not in [[\'ctx\']] and not
00:00:19 #427 [verbose] > callable(v) }}"'
00:00:19 #428 [verbose] > $'$" args_str = \', \'.join([[
00:00:19 #429 [verbose] > f\\\"{{k}}={{re.sub(memory_address_pattern, \' at 0x<?>\', repr(v))}}\\\" for k,
00:00:19 #430 [verbose] > v in args.items() ]])"'
00:00:19 #431 [verbose] > $'$" print(f\\\"{{event}}({!name}) / f_code.co_name:
00:00:19 #432 [verbose] > {{frame.f_code.co_name}} / f_locals: {{args_str}} / f_lineno: {{frame.f_lineno}}
00:00:19 #433 [verbose] > / f_code.co_filename:
00:00:19 #434 [verbose] > {{frame.f_code.co_filename.split(\'site-packages\')[[-1]]}} / f_back.f_lineno:
00:00:19 #435 [verbose] > {{ \'\' if frame.f_back is None else frame.f_back.f_lineno }}
00:00:19 #436 [verbose] > f_back.f_code.co_filename: {{ \'\' if frame.f_back is None else
00:00:19 #437 [verbose] > frame.f_back.f_code.co_filename.split(\'site-packages\')[[-1]] }} / arg:
00:00:19 #438 [verbose] > {{re.sub(memory_address_pattern, \' at 0x<?>\', repr(arg))}}\\\", flush=True)"'
00:00:19 #439 [verbose] > $'$" except ValueError as e:"'
00:00:19 #440 [verbose] > $'$" print(f\'{!name} / e: {{e}}\', flush=True)"'
00:00:19 #441 [verbose] > $'$" return trace_calls"'
00:00:19 #442 [verbose] > $'$"import mpmath"'
00:00:19 #443 [verbose] > $'$"def fn(log, s):"'
00:00:19 #444 [verbose] > $'$" global count"'
00:00:19 #445 [verbose] > $'$" if log:"'
00:00:19 #446 [verbose] > $'$" print(f\'{!name} / s: {{s}} / count: {{count}}\',
00:00:19 #447 [verbose] > flush=True)"'
00:00:19 #448 [verbose] > $'$" s = complex(*s)"'
00:00:19 #449 [verbose] > $'$" try:"'
00:00:19 #450 [verbose] > $'$" if log: sys.settrace(trace_calls)"'
00:00:19 #451 [verbose] > line
00:00:19 #452 [verbose] > $'$" if log:"'
00:00:19 #453 [verbose] > $'$" sys.settrace(None)"'
00:00:19 #454 [verbose] > $'$" print(f\'{!name} / result: {{s}} / count:
00:00:19 #455 [verbose] > {{count}}\', flush=True)"'
00:00:19 #456 [verbose] > $'$" except ValueError as e:"'
00:00:19 #457 [verbose] > $'$" if s.real == 1:"'
00:00:19 #458 [verbose] > $'$" s = complex(float(\'inf\'), 0)"'
00:00:19 #459 [verbose] > $'$" return (s.real, s.imag)"'
00:00:19 #460 [verbose] > ]]
00:00:19 #461 [verbose] > |> call1_ log py s
00:00:19 #462 [verbose] >
00:00:19 #463 [verbose] > inl gamma_ log py s =
00:00:19 #464 [verbose] > call1_ log "gamma_" py s $'$" s = mpmath.gamma(s)"'
00:00:19 #465 [verbose] >
00:00:19 #466 [verbose] > inl zeta_ log py s =
00:00:19 #467 [verbose] > call1_ log "zeta_" py s $'$" s = mpmath.zeta(s)"'
00:00:19 #468 [verbose] > Building c:\home\git\polyglot\target\polyglot\spiral_eval\packages\1beafb1ea5033857f27d0eb49274cd5c95c2a2f402111e314b94c6a3b184b965\main.spi
00:00:20 #469 [verbose] >
00:00:20 #470 [verbose] > ╭─[ 342.66ms - stdout ]────────────────────────────────────────────────────────╮
00:00:20 #471 [verbose] > │ () │
00:00:20 #472 [verbose] > │ │
00:00:20 #473 [verbose] > │ │
00:00:20 #474 [verbose] > ╰──────────────────────────────────────────────────────────────────────────────╯
00:00:20 #475 [verbose] >
00:00:20 #476 [verbose] > ── markdown ────────────────────────────────────────────────────────────────────
00:00:20 #477 [verbose] > ╭──────────────────────────────────────────────────────────────────────────────╮
00:00:20 #478 [verbose] > │ ## run_test │
00:00:20 #479 [verbose] > ╰──────────────────────────────────────────────────────────────────────────────╯
00:00:20 #480 [verbose] >
00:00:20 #481 [verbose] > ── spiral ──────────────────────────────────────────────────────────────────────
00:00:20 #482 [verbose] > inl run_test log closure_fix (fn : (complex f64 -> complex f64) * (complex f64
00:00:20 #483 [verbose] > -> complex f64) -> ()) =
00:00:20 #484 [verbose] > inl fn_ (py : python) : resultm.result' () pyerr =
00:00:20 #485 [verbose] > inl nan () =
00:00:20 #486 [verbose] > !\($'"f64::NAN"')
00:00:20 #487 [verbose] > inl gamma__ = fun (s : complex f64) =>
00:00:20 #488 [verbose] > inl result = gamma_ log py s
00:00:20 #489 [verbose] > if log then
00:00:20 #490 [verbose] > inl s = join s
00:00:20 #491 [verbose] > !\($'"println\!(\\\"gamma__ / s: {:?} / result: {:?}\\\", !s,
00:00:20 #492 [verbose] > !result)"')
00:00:20 #493 [verbose] > result |> resultm.ok' |> optionm'.unbox |> optionm'.default_value
00:00:20 #494 [verbose] > .^(nan (), nan ())
00:00:20 #495 [verbose] > inl zeta__ = fun (s : complex f64) =>
00:00:20 #496 [verbose] > inl result = zeta_ log py s
00:00:20 #497 [verbose] >
00:00:20 #498 [verbose] > inl z = zeta true gamma__ s
00:00:20 #499 [verbose] >
00:00:20 #500 [verbose] > if log then
00:00:20 #501 [verbose] > inl s = join s
00:00:20 #502 [verbose] > !\($'"println\!(\\\"zeta__ / s: {:?} / result: {:?} / z:
00:00:20 #503 [verbose] > {:?}\\\", !s, !result, !z)"')
00:00:20 #504 [verbose] >
00:00:20 #505 [verbose] > // re result - re x |> abs
00:00:20 #506 [verbose] > // |> _assert_lt 0.001
00:00:20 #507 [verbose] >
00:00:20 #508 [verbose] > // im result - im x |> abs
00:00:20 #509 [verbose] > // |> _assert_lt 0.001
00:00:20 #510 [verbose] >
00:00:20 #511 [verbose] > result |> resultm.ok' |> optionm'.unbox |> optionm'.default_value
00:00:20 #512 [verbose] > .^(nan (), nan ())
00:00:20 #513 [verbose] > join fn (zeta__, gamma__)
00:00:20 #514 [verbose] >
00:00:20 #515 [verbose] > Ok ()
00:00:20 #516 [verbose] > |> resultm.box
00:00:20 #517 [verbose] >
00:00:20 #518 [verbose] > join
00:00:20 #519 [verbose] > !\($'"pyo3::prepare_freethreaded_python()"') : ()
00:00:20 #520 [verbose] >
00:00:20 #521 [verbose] > !\($'"let __result = pyo3::Python::with_gil(|py| -> pyo3::PyResult<()> {
00:00:20 #522 [verbose] > //"')
00:00:20 #523 [verbose] >
00:00:20 #524 [verbose] > let x' = fn_ (!\($'"py"') : python)
00:00:20 #525 [verbose] > inl x' = join x'
00:00:20 #526 [verbose] >
00:00:20 #527 [verbose] > inl closure_fix = 2u8, 1u8
00:00:20 #528 [verbose] > x' |> rust.fix_closure closure_fix
00:00:20 #529 [verbose] >
00:00:20 #530 [verbose] > (!\($'"__result"') : _ () pyerr)
00:00:20 #531 [verbose] > |> resultm.unwrap'
00:00:20 #532 [verbose] > Building c:\home\git\polyglot\target\polyglot\spiral_eval\packages\60cb034f29db0aa707880c66bc2a81fa6de304bdcf50fe99066307718b6a0a28\main.spi
00:00:20 #533 [verbose] >
00:00:20 #534 [verbose] > ╭─[ 367.86ms - stdout ]────────────────────────────────────────────────────────╮
00:00:20 #535 [verbose] > │ () │
00:00:20 #536 [verbose] > │ │
00:00:20 #537 [verbose] > │ │
00:00:20 #538 [verbose] > ╰──────────────────────────────────────────────────────────────────────────────╯
00:00:20 #539 [verbose] >
00:00:20 #540 [verbose] > ── markdown ────────────────────────────────────────────────────────────────────
00:00:20 #541 [verbose] > ╭──────────────────────────────────────────────────────────────────────────────╮
00:00:20 #542 [verbose] > │ ## test_zeta_at_known_values_ │
00:00:20 #543 [verbose] > ╰──────────────────────────────────────────────────────────────────────────────╯
00:00:20 #544 [verbose] >
00:00:20 #545 [verbose] > ── spiral ──────────────────────────────────────────────────────────────────────
00:00:20 #546 [verbose] > inl test_zeta_at_known_values_ log = run_test log (3u8, 2u8) fun zeta, gamma =>
00:00:20 #547 [verbose] > ;[[
00:00:20 #548 [verbose] > .^(2, 0), pi ** 2 / 6
00:00:20 #549 [verbose] > .^(-1, 0), -1 / 12
00:00:20 #550 [verbose] > ]]
00:00:20 #551 [verbose] > |> fun x => a x : _ i32 _
00:00:20 #552 [verbose] > |> am.iter fun s, e =>
00:00:20 #553 [verbose] > inl result = zeta s
00:00:20 #554 [verbose] >
00:00:20 #555 [verbose] > result |> im |> _assert_eq 0
00:00:20 #556 [verbose] > re result - e |> abs |> _assert_lt 0.0001
00:00:20 #557 [verbose] > Building c:\home\git\polyglot\target\polyglot\spiral_eval\packages\fd5fefba53273641104c90da554fd24610fadf039beccf1db1aee723e1700ecb\main.spi
00:00:20 #558 [verbose] >
00:00:20 #559 [verbose] > ╭─[ 355.55ms - stdout ]────────────────────────────────────────────────────────╮
00:00:20 #560 [verbose] > │ () │
00:00:20 #561 [verbose] > │ │
00:00:20 #562 [verbose] > │ │
00:00:20 #563 [verbose] > ╰──────────────────────────────────────────────────────────────────────────────╯
00:00:20 #564 [verbose] >
00:00:20 #565 [verbose] > ── spiral ──────────────────────────────────────────────────────────────────────
00:00:20 #566 [verbose] > // // test
00:00:20 #567 [verbose] > // // rust=
00:00:20 #568 [verbose] > // // print_code=false
00:00:20 #569 [verbose] >
00:00:20 #570 [verbose] > types ()
00:00:20 #571 [verbose] > test_zeta_at_known_values_ true
00:00:20 #572 [verbose] > Building c:\home\git\polyglot\target\polyglot\spiral_eval\packages\c781d4d8759e20d2658a8ca5848941870b7ad14357541382e69fab0bc9a8bf43\main.spi
00:00:30 #573 [verbose] >
00:00:30 #574 [verbose] > ╭─[ 9.29s - return value ]─────────────────────────────────────────────────────╮
00:00:30 #575 [verbose] > │ zeta_ / s: (2.0, 0.0) / count: 0 │
00:00:30 #576 [verbose] > │ call(zeta_) / f_code.co_name: zeta / f_locals: s=(2+0j), a=1, derivative=0, │
00:00:30 #577 [verbose] > │ method=None, kwargs={} / f_lineno: 530 / f_code.co_filename: │
00:00:30 #578 [verbose] > │ \mpmath\functions\zeta.py / f_back.f_lineno: 25 / f_back.f_code.co_filename: │
00:00:30 #579 [verbose] > │ / arg: None │
00:00:30 #580 [verbose] > │ line(zeta_) / f_code.co_name: zeta / f_locals: s=(2+0j), a=1, derivative=0, │
00:00:30 #581 [verbose] > │ method=None, kwargs={} / f_lineno: 532 / f_code.co_filename: │
00:00:30 #582 [verbose] > │ \mpmath\functions\zeta.py / f_back.f_lineno: 25 / f_back.f_code.co_filename: │
00:00:30 #583 [verbose] > │ / arg: None │
00:00:30 #584 [verbose] > │ line(zeta_) / f_code.co_name: zeta / f_locals: s=(2+0j), a=1, derivative=0, │
00:00:30 #585 [verbose] > │ method=None, kwargs={}, d=0 / f_lineno: 533 / f_code.co_filename: │
00:00:30 #586 [verbose] > │ \mpmath\functions\zeta.py / f_back.f_lineno: 25 / f_back.f_code.co_filename: │
00:00:30 #587 [verbose] > │ / arg: None │
00:00:30 #588 [verbose] > │ line(zeta_) / f_code.co_name: z... │
00:00:30 #589 [verbose] > ╰──────────────────────────────────────────────────────────────────────────────╯
00:00:30 #590 [verbose] >
00:00:30 #591 [verbose] > ── markdown ────────────────────────────────────────────────────────────────────
00:00:30 #592 [verbose] > ╭──────────────────────────────────────────────────────────────────────────────╮
00:00:30 #593 [verbose] > │ ## test_zeta_at_2_minus2 │
00:00:30 #594 [verbose] > ╰──────────────────────────────────────────────────────────────────────────────╯
00:00:30 #595 [verbose] >
00:00:30 #596 [verbose] > ── spiral ──────────────────────────────────────────────────────────────────────
00:00:30 #597 [verbose] > inl test_zeta_at_2_minus2 log = run_test log (6u8, 5u8) fun zeta, gamma =>
00:00:30 #598 [verbose] > inl s = .^(2, -2)
00:00:30 #599 [verbose] > inl result = zeta s
00:00:30 #600 [verbose] >
00:00:30 #601 [verbose] > (re result - 0.8673) |> abs |> _assert_lt 0.001
00:00:30 #602 [verbose] > (im result - 0.2750) |> abs |> _assert_lt 0.001
00:00:30 #603 [verbose] > Building c:\home\git\polyglot\target\polyglot\spiral_eval\packages\50bd39b9d8610c7d26d812e2e21d86ccf12bbbe89f0bb8fca42dafe52783f7da\main.spi
00:00:30 #604 [verbose] >
00:00:30 #605 [verbose] > ╭─[ 245.53ms - stdout ]────────────────────────────────────────────────────────╮
00:00:30 #606 [verbose] > │ () │
00:00:30 #607 [verbose] > │ │
00:00:30 #608 [verbose] > │ │
00:00:30 #609 [verbose] > ╰──────────────────────────────────────────────────────────────────────────────╯
00:00:30 #610 [verbose] >
00:00:30 #611 [verbose] > ── spiral ──────────────────────────────────────────────────────────────────────
00:00:30 #612 [verbose] > // // test
00:00:30 #613 [verbose] > // // rust=
00:00:30 #614 [verbose] > // // print_code=false
00:00:30 #615 [verbose] >
00:00:30 #616 [verbose] > types ()
00:00:30 #617 [verbose] > test_zeta_at_2_minus2 true
00:00:30 #618 [verbose] > Building c:\home\git\polyglot\target\polyglot\spiral_eval\packages\995c9d4a2cb8e61d947c16deccdf7d65926c4818c476610574852f413f9e5a1e\main.spi
00:00:37 #619 [verbose] >
00:00:37 #620 [verbose] > ╭─[ 7.04s - return value ]─────────────────────────────────────────────────────╮
00:00:37 #621 [verbose] > │ zeta_ / s: (2.0, -2.0) / count: 0 │
00:00:37 #622 [verbose] > │ call(zeta_) / f_code.co_name: zeta / f_locals: s=(2-2j), a=1, derivative=0, │
00:00:37 #623 [verbose] > │ method=None, kwargs={} / f_lineno: 530 / f_code.co_filename: │
00:00:37 #624 [verbose] > │ \mpmath\functions\zeta.py / f_back.f_lineno: 25 / f_back.f_code.co_filename: │
00:00:37 #625 [verbose] > │ / arg: None │
00:00:37 #626 [verbose] > │ line(zeta_) / f_code.co_name: zeta / f_locals: s=(2-2j), a=1, derivative=0, │
00:00:37 #627 [verbose] > │ method=None, kwargs={} / f_lineno: 532 / f_code.co_filename: │
00:00:37 #628 [verbose] > │ \mpmath\functions\zeta.py / f_back.f_lineno: 25 / f_back.f_code.co_filename: │
00:00:37 #629 [verbose] > │ / arg: None │
00:00:37 #630 [verbose] > │ line(zeta_) / f_code.co_name: zeta / f_locals: s=(2-2j), a=1, derivative=0, │
00:00:37 #631 [verbose] > │ method=None, kwargs={}, d=0 / f_lineno: 533 / f_code.co_filename: │
00:00:37 #632 [verbose] > │ \mpmath\functions\zeta.py / f_back.f_lineno: 25 / f_back.f_code.co_filename: │
00:00:37 #633 [verbose] > │ / arg: None │
00:00:37 #634 [verbose] > │ line(zeta_) / f_code.co_name: ... │
00:00:37 #635 [verbose] > ╰──────────────────────────────────────────────────────────────────────────────╯
00:00:37 #636 [verbose] >
00:00:37 #637 [verbose] > ── markdown ────────────────────────────────────────────────────────────────────
00:00:37 #638 [verbose] > ╭──────────────────────────────────────────────────────────────────────────────╮
00:00:37 #639 [verbose] > │ ## test_trivial_zero_at_negative_even___ │
00:00:37 #640 [verbose] > ╰──────────────────────────────────────────────────────────────────────────────╯
00:00:37 #641 [verbose] >
00:00:37 #642 [verbose] > ── spiral ──────────────────────────────────────────────────────────────────────
00:00:37 #643 [verbose] > inl test_trivial_zero_at_negative_even___ log = run_test log (2u8, 1u8) fun
00:00:37 #644 [verbose] > zeta, gamma =>
00:00:37 #645 [verbose] > (join listm'.init_series -2f64 -40 -2)
00:00:37 #646 [verbose] > |> listm.iter fun n =>
00:00:37 #647 [verbose] > inl s = .^(n, 0)
00:00:37 #648 [verbose] > inl result = zeta s
00:00:37 #649 [verbose] >
00:00:37 #650 [verbose] > result |> re |> _assert_eq 0
00:00:37 #651 [verbose] > result |> im |> _assert_eq 0
00:00:37 #652 [verbose] > Building c:\home\git\polyglot\target\polyglot\spiral_eval\packages\36d9bf28854978eccc49c247bab71a54ef8174e117f5dcadc58e8e3521bbd7d5\main.spi
00:00:37 #653 [verbose] >
00:00:37 #654 [verbose] > ╭─[ 485.75ms - stdout ]────────────────────────────────────────────────────────╮
00:00:37 #655 [verbose] > │ () │
00:00:37 #656 [verbose] > │ │
00:00:37 #657 [verbose] > │ │
00:00:37 #658 [verbose] > ╰──────────────────────────────────────────────────────────────────────────────╯
00:00:37 #659 [verbose] >
00:00:37 #660 [verbose] > ── spiral ──────────────────────────────────────────────────────────────────────
00:00:37 #661 [verbose] > // // test
00:00:37 #662 [verbose] > // // rust=
00:00:37 #663 [verbose] > // // print_code=false
00:00:37 #664 [verbose] >
00:00:37 #665 [verbose] > types ()
00:00:37 #666 [verbose] > test_trivial_zero_at_negative_even___ true
00:00:38 #667 [verbose] > Building c:\home\git\polyglot\target\polyglot\spiral_eval\packages\3befd6d952e2ab7deb7979efed0ef8f1814fb29bf1b73860608b95c3820d87a5\main.spi
00:00:45 #668 [verbose] >
00:00:45 #669 [verbose] > ╭─[ 7.65s - return value ]─────────────────────────────────────────────────────╮
00:00:45 #670 [verbose] > │ zeta_ / s: (-2.0, 0.0) / count: 0 │
00:00:45 #671 [verbose] > │ call(zeta_) / f_code.co_name: zeta / f_locals: s=(-2+0j), a=1, derivative=0, │
00:00:45 #672 [verbose] > │ method=None, kwargs={} / f_lineno: 530 / f_code.co_filename: │
00:00:45 #673 [verbose] > │ \mpmath\functions\zeta.py / f_back.f_lineno: 25 / f_back.f_code.co_filename: │
00:00:45 #674 [verbose] > │ / arg: None │
00:00:45 #675 [verbose] > │ line(zeta_) / f_code.co_name: zeta / f_locals: s=(-2+0j), a=1, derivative=0, │
00:00:45 #676 [verbose] > │ method=None, kwargs={} / f_lineno: 532 / f_code.co_filename: │
00:00:45 #677 [verbose] > │ \mpmath\functions\zeta.py / f_back.f_lineno: 25 / f_back.f_code.co_filename: │
00:00:45 #678 [verbose] > │ / arg: None │
00:00:45 #679 [verbose] > │ line(zeta_) / f_code.co_name: zeta / f_locals: s=(-2+0j), a=1, derivative=0, │
00:00:45 #680 [verbose] > │ method=None, kwargs={}, d=0 / f_lineno: 533 / f_code.co_filename: │
00:00:45 #681 [verbose] > │ \mpmath\functions\zeta.py / f_back.f_lineno: 25 / f_back.f_code.co_filename: │
00:00:45 #682 [verbose] > │ / arg: None │
00:00:45 #683 [verbose] > │ line(zeta_) / f_code.co_nam... │
00:00:45 #684 [verbose] > ╰──────────────────────────────────────────────────────────────────────────────╯
00:00:45 #685 [verbose] >
00:00:45 #686 [verbose] > ── markdown ────────────────────────────────────────────────────────────────────
00:00:45 #687 [verbose] > ╭──────────────────────────────────────────────────────────────────────────────╮
00:00:45 #688 [verbose] > │ ## test_non_trivial_zero___ │
00:00:45 #689 [verbose] > ╰──────────────────────────────────────────────────────────────────────────────╯
00:00:45 #690 [verbose] >
00:00:45 #691 [verbose] > ── spiral ──────────────────────────────────────────────────────────────────────
00:00:45 #692 [verbose] > inl test_non_trivial_zero___ log = run_test log (3u8, 2u8) fun zeta, gamma =>
00:00:45 #693 [verbose] > ;[[
00:00:45 #694 [verbose] > .^(0.5, 14.134725)
00:00:45 #695 [verbose] > .^(0.5, 21.022040)
00:00:45 #696 [verbose] > .^(0.5, 25.010857)
00:00:45 #697 [verbose] > .^(0.5, 30.424876)
00:00:45 #698 [verbose] > .^(0.5, 32.935062)
00:00:45 #699 [verbose] > .^(0.5, 37.586178)
00:00:45 #700 [verbose] > ]]
00:00:45 #701 [verbose] > |> fun x => a x : _ i32 _
00:00:45 #702 [verbose] > |> am.iter fun x =>
00:00:45 #703 [verbose] > inl result = zeta x
00:00:45 #704 [verbose] > result |> re |> abs |> _assert_lt 0.0001
00:00:45 #705 [verbose] > result |> im |> abs |> _assert_lt 0.0001
00:00:45 #706 [verbose] > Building c:\home\git\polyglot\target\polyglot\spiral_eval\packages\e0fdf427ebfe8c84a3a54b0fac6b4ad39a8b5553d642359402615c21b392c2b2\main.spi
00:00:45 #707 [verbose] >
00:00:45 #708 [verbose] > ╭─[ 232.33ms - stdout ]────────────────────────────────────────────────────────╮
00:00:45 #709 [verbose] > │ () │
00:00:45 #710 [verbose] > │ │
00:00:45 #711 [verbose] > │ │
00:00:45 #712 [verbose] > ╰──────────────────────────────────────────────────────────────────────────────╯
00:00:45 #713 [verbose] >
00:00:45 #714 [verbose] > ── spiral ──────────────────────────────────────────────────────────────────────
00:00:45 #715 [verbose] > // // test
00:00:45 #716 [verbose] > // // rust=
00:00:45 #717 [verbose] > // // print_code=false
00:00:45 #718 [verbose] >
00:00:45 #719 [verbose] > types ()
00:00:45 #720 [verbose] > test_non_trivial_zero___ true
00:00:45 #721 [verbose] > Building c:\home\git\polyglot\target\polyglot\spiral_eval\packages\2f272a829c8de3479752ea0d06c60e38f3ba66a88a45b648bef9568876b35997\main.spi
00:00:53 #722 [verbose] >
00:00:53 #723 [verbose] > ╭─[ 7.29s - return value ]─────────────────────────────────────────────────────╮
00:00:53 #724 [verbose] > │ zeta_ / s: (0.5, 14.134725) / count: 0 │
00:00:53 #725 [verbose] > │ call(zeta_) / f_code.co_name: zeta / f_locals: s=(0.5+14.134725j), a=1, │
00:00:53 #726 [verbose] > │ derivative=0, method=None, kwargs={} / f_lineno: 530 / f_code.co_filename: │
00:00:53 #727 [verbose] > │ \mpmath\functions\zeta.py / f_back.f_lineno: 25 / f_back.f_code.co_filename: │
00:00:53 #728 [verbose] > │ / arg: None │
00:00:53 #729 [verbose] > │ line(zeta_) / f_code.co_name: zeta / f_locals: s=(0.5+14.134725j), a=1, │
00:00:53 #730 [verbose] > │ derivative=0, method=None, kwargs={} / f_lineno: 532 / f_code.co_filename: │
00:00:53 #731 [verbose] > │ \mpmath\functions\zeta.py / f_back.f_lineno: 25 / f_back.f_code.co_filename: │
00:00:53 #732 [verbose] > │ / arg: None │
00:00:53 #733 [verbose] > │ line(zeta_) / f_code.co_name: zeta / f_locals: s=(0.5+14.134725j), a=1, │
00:00:53 #734 [verbose] > │ derivative=0, method=None, kwargs={}, d=0 / f_lineno: 533 / │
00:00:53 #735 [verbose] > │ f_code.co_filename: \mpmath\functions\zeta.py / f_back.f_lineno: 25 / │
00:00:53 #736 [verbose] > │ f_back.f_code.co_filename: / arg: ... │
00:00:53 #737 [verbose] > ╰──────────────────────────────────────────────────────────────────────────────╯
00:00:53 #738 [verbose] >
00:00:53 #739 [verbose] > ── markdown ────────────────────────────────────────────────────────────────────
00:00:53 #740 [verbose] > ╭──────────────────────────────────────────────────────────────────────────────╮
00:00:53 #741 [verbose] > │ ## test_real_part_greater_than_one___ │
00:00:53 #742 [verbose] > ╰──────────────────────────────────────────────────────────────────────────────╯
00:00:53 #743 [verbose] >
00:00:53 #744 [verbose] > ── spiral ──────────────────────────────────────────────────────────────────────
00:00:53 #745 [verbose] > inl test_real_part_greater_than_one___ log = run_test log (3u8, 2u8) fun zeta,
00:00:53 #746 [verbose] > gamma =>
00:00:53 #747 [verbose] > inl points = ;[[2; 3; 4; 5; 10; 20; 50]]
00:00:53 #748 [verbose] > (a points : _ i32 _)
00:00:53 #749 [verbose] > |> am.iter fun point =>
00:00:53 #750 [verbose] > inl s = .^(point, 0)
00:00:53 #751 [verbose] > inl result = zeta s
00:00:53 #752 [verbose] > result |> re |> _assert_gt 0
00:00:53 #753 [verbose] > result |> im |> _assert_eq 0
00:00:53 #754 [verbose] > Building c:\home\git\polyglot\target\polyglot\spiral_eval\packages\5dcaf2f644ec0b9e24763a5511c4afc964d5d022ed0ca7fe798f84a0b65817f6\main.spi
00:00:53 #755 [verbose] >
00:00:53 #756 [verbose] > ╭─[ 217.25ms - stdout ]────────────────────────────────────────────────────────╮
00:00:53 #757 [verbose] > │ () │
00:00:53 #758 [verbose] > │ │
00:00:53 #759 [verbose] > │ │
00:00:53 #760 [verbose] > ╰──────────────────────────────────────────────────────────────────────────────╯
00:00:53 #761 [verbose] >
00:00:53 #762 [verbose] > ── spiral ──────────────────────────────────────────────────────────────────────
00:00:53 #763 [verbose] > // // test
00:00:53 #764 [verbose] > // // rust=
00:00:53 #765 [verbose] > // // print_code=false
00:00:53 #766 [verbose] >
00:00:53 #767 [verbose] > types ()
00:00:53 #768 [verbose] > test_real_part_greater_than_one___ true
00:00:53 #769 [verbose] > Building c:\home\git\polyglot\target\polyglot\spiral_eval\packages\e24f49fbd4c8e1c7f04e3b55c813589dcf26a83258153b537769cfdd5c109dcd\main.spi
00:01:00 #770 [verbose] >
00:01:00 #771 [verbose] > ╭─[ 7.21s - return value ]─────────────────────────────────────────────────────╮
00:01:00 #772 [verbose] > │ zeta_ / s: (2.0, 0.0) / count: 0 │
00:01:00 #773 [verbose] > │ call(zeta_) / f_code.co_name: zeta / f_locals: s=(2+0j), a=1, derivative=0, │
00:01:00 #774 [verbose] > │ method=None, kwargs={} / f_lineno: 530 / f_code.co_filename: │
00:01:00 #775 [verbose] > │ \mpmath\functions\zeta.py / f_back.f_lineno: 25 / f_back.f_code.co_filename: │
00:01:00 #776 [verbose] > │ / arg: None │
00:01:00 #777 [verbose] > │ line(zeta_) / f_code.co_name: zeta / f_locals: s=(2+0j), a=1, derivative=0, │
00:01:00 #778 [verbose] > │ method=None, kwargs={} / f_lineno: 532 / f_code.co_filename: │
00:01:00 #779 [verbose] > │ \mpmath\functions\zeta.py / f_back.f_lineno: 25 / f_back.f_code.co_filename: │
00:01:00 #780 [verbose] > │ / arg: None │
00:01:00 #781 [verbose] > │ line(zeta_) / f_code.co_name: zeta / f_locals: s=(2+0j), a=1, derivative=0, │
00:01:00 #782 [verbose] > │ method=None, kwargs={}, d=0 / f_lineno: 533 / f_code.co_filename: │
00:01:00 #783 [verbose] > │ \mpmath\functions\zeta.py / f_back.f_lineno: 25 / f_back.f_code.co_filename: │
00:01:00 #784 [verbose] > │ / arg: None │
00:01:00 #785 [verbose] > │ line(zeta_) / f_code.co_name: z... │
00:01:00 #786 [verbose] > ╰──────────────────────────────────────────────────────────────────────────────╯
00:01:00 #787 [verbose] >
00:01:00 #788 [verbose] > ── markdown ────────────────────────────────────────────────────────────────────
00:01:00 #789 [verbose] > ╭──────────────────────────────────────────────────────────────────────────────╮
00:01:00 #790 [verbose] > │ ## test_zeta_at_1___ │
00:01:00 #791 [verbose] > ╰──────────────────────────────────────────────────────────────────────────────╯
00:01:00 #792 [verbose] >
00:01:00 #793 [verbose] > ── spiral ──────────────────────────────────────────────────────────────────────
00:01:00 #794 [verbose] > inl test_zeta_at_1___ log = run_test log (6u8, 5u8) fun zeta, gamma =>
00:01:00 #795 [verbose] > inl s = .^(1, 0)
00:01:00 #796 [verbose] > inl result = zeta s
00:01:00 #797 [verbose] > result |> re |> _assert_eq limit.max
00:01:00 #798 [verbose] > result |> im |> _assert_eq 0
00:01:00 #799 [verbose] > Building c:\home\git\polyglot\target\polyglot\spiral_eval\packages\681d0b454f3fc007212a3e16253bdcc6e5a9b727d9e5201275d7a16eb9403ca5\main.spi
00:01:00 #800 [verbose] >
00:01:00 #801 [verbose] > ╭─[ 237.83ms - stdout ]────────────────────────────────────────────────────────╮
00:01:00 #802 [verbose] > │ () │
00:01:00 #803 [verbose] > │ │
00:01:00 #804 [verbose] > │ │
00:01:00 #805 [verbose] > ╰──────────────────────────────────────────────────────────────────────────────╯
00:01:00 #806 [verbose] >
00:01:00 #807 [verbose] > ── spiral ──────────────────────────────────────────────────────────────────────
00:01:00 #808 [verbose] > // // test
00:01:00 #809 [verbose] > // // rust=
00:01:00 #810 [verbose] > // // print_code=false
00:01:00 #811 [verbose] >
00:01:00 #812 [verbose] > types ()
00:01:00 #813 [verbose] > test_zeta_at_1___ true
00:01:00 #814 [verbose] > Building c:\home\git\polyglot\target\polyglot\spiral_eval\packages\3373364c4404f323737de7a93aa7ae96b06a911eb9b71f3a495eb58e3eecbc39\main.spi
00:01:07 #815 [verbose] >
00:01:07 #816 [verbose] > ╭─[ 7.08s - return value ]─────────────────────────────────────────────────────╮
00:01:07 #817 [verbose] > │ zeta_ / s: (1.0, 0.0) / count: 0 │
00:01:07 #818 [verbose] > │ call(zeta_) / f_code.co_name: zeta / f_locals: s=(1+0j), a=1, derivative=0, │
00:01:07 #819 [verbose] > │ method=None, kwargs={} / f_lineno: 530 / f_code.co_filename: │
00:01:07 #820 [verbose] > │ \mpmath\functions\zeta.py / f_back.f_lineno: 25 / f_back.f_code.co_filename: │
00:01:07 #821 [verbose] > │ / arg: None │
00:01:07 #822 [verbose] > │ line(zeta_) / f_code.co_name: zeta / f_locals: s=(1+0j), a=1, derivative=0, │
00:01:07 #823 [verbose] > │ method=None, kwargs={} / f_lineno: 532 / f_code.co_filename: │
00:01:07 #824 [verbose] > │ \mpmath\functions\zeta.py / f_back.f_lineno: 25 / f_back.f_code.co_filename: │
00:01:07 #825 [verbose] > │ / arg: None │
00:01:07 #826 [verbose] > │ line(zeta_) / f_code.co_name: zeta / f_locals: s=(1+0j), a=1, derivative=0, │
00:01:07 #827 [verbose] > │ method=None, kwargs={}, d=0 / f_lineno: 533 / f_code.co_filename: │
00:01:07 #828 [verbose] > │ \mpmath\functions\zeta.py / f_back.f_lineno: 25 / f_back.f_code.co_filename: │
00:01:07 #829 [verbose] > │ / arg: None │
00:01:07 #830 [verbose] > │ line(zeta_) / f_code.co_name: z... │
00:01:07 #831 [verbose] > ╰──────────────────────────────────────────────────────────────────────────────╯
00:01:07 #832 [verbose] >
00:01:07 #833 [verbose] > ── markdown ────────────────────────────────────────────────────────────────────
00:01:07 #834 [verbose] > ╭──────────────────────────────────────────────────────────────────────────────╮
00:01:07 #835 [verbose] > │ ## test_symmetry_across_real_axis___ │
00:01:07 #836 [verbose] > ╰──────────────────────────────────────────────────────────────────────────────╯
00:01:07 #837 [verbose] >
00:01:07 #838 [verbose] > ── spiral ──────────────────────────────────────────────────────────────────────
00:01:07 #839 [verbose] > inl test_symmetry_across_real_axis___ log = run_test log (8u8, 7u8) fun zeta,
00:01:07 #840 [verbose] > gamma =>
00:01:07 #841 [verbose] > inl s = .^(2, 10)
00:01:07 #842 [verbose] > inl result_positive_im = zeta s
00:01:07 #843 [verbose] > inl result_negative_im = zeta .^(re s, -(im s))
00:01:07 #844 [verbose] > inl conj = result_negative_im |> conj
00:01:07 #845 [verbose] > result_positive_im |> re |> _assert_eq (conj |> re)
00:01:07 #846 [verbose] > result_positive_im |> im |> _assert_eq (conj |> im)
00:01:08 #847 [verbose] > Building c:\home\git\polyglot\target\polyglot\spiral_eval\packages\db0be26f008672b1a1f0025b5145d93575fc8dca48fe809b0692ffad3598a952\main.spi
00:01:08 #848 [verbose] >
00:01:08 #849 [verbose] > ╭─[ 238.05ms - stdout ]────────────────────────────────────────────────────────╮
00:01:08 #850 [verbose] > │ () │
00:01:08 #851 [verbose] > │ │
00:01:08 #852 [verbose] > │ │
00:01:08 #853 [verbose] > ╰──────────────────────────────────────────────────────────────────────────────╯
00:01:08 #854 [verbose] >
00:01:08 #855 [verbose] > ── spiral ──────────────────────────────────────────────────────────────────────
00:01:08 #856 [verbose] > // // test
00:01:08 #857 [verbose] > // // rust=
00:01:08 #858 [verbose] > // // print_code=false
00:01:08 #859 [verbose] >
00:01:08 #860 [verbose] > types ()
00:01:08 #861 [verbose] > test_symmetry_across_real_axis___ true
00:01:08 #862 [verbose] > Building c:\home\git\polyglot\target\polyglot\spiral_eval\packages\13c751b1b25890ec6c1abb171838126ac5c469b7df59b206f26eed3e3a3e5d9c\main.spi
00:01:15 #863 [verbose] >
00:01:15 #864 [verbose] > ╭─[ 7.02s - return value ]─────────────────────────────────────────────────────╮
00:01:15 #865 [verbose] > │ zeta_ / s: (2.0, 10.0) / count: 0 │
00:01:15 #866 [verbose] > │ call(zeta_) / f_code.co_name: zeta / f_locals: s=(2+10j), a=1, derivative=0, │
00:01:15 #867 [verbose] > │ method=None, kwargs={} / f_lineno: 530 / f_code.co_filename: │
00:01:15 #868 [verbose] > │ \mpmath\functions\zeta.py / f_back.f_lineno: 25 / f_back.f_code.co_filename: │
00:01:15 #869 [verbose] > │ / arg: None │
00:01:15 #870 [verbose] > │ line(zeta_) / f_code.co_name: zeta / f_locals: s=(2+10j), a=1, derivative=0, │
00:01:15 #871 [verbose] > │ method=None, kwargs={} / f_lineno: 532 / f_code.co_filename: │
00:01:15 #872 [verbose] > │ \mpmath\functions\zeta.py / f_back.f_lineno: 25 / f_back.f_code.co_filename: │
00:01:15 #873 [verbose] > │ / arg: None │
00:01:15 #874 [verbose] > │ line(zeta_) / f_code.co_name: zeta / f_locals: s=(2+10j), a=1, derivative=0, │
00:01:15 #875 [verbose] > │ method=None, kwargs={}, d=0 / f_lineno: 533 / f_code.co_filename: │
00:01:15 #876 [verbose] > │ \mpmath\functions\zeta.py / f_back.f_lineno: 25 / f_back.f_code.co_filename: │
00:01:15 #877 [verbose] > │ / arg: None │
00:01:15 #878 [verbose] > │ line(zeta_) / f_code.co_nam... │
00:01:15 #879 [verbose] > ╰──────────────────────────────────────────────────────────────────────────────╯
00:01:15 #880 [verbose] >
00:01:15 #881 [verbose] > ── markdown ────────────────────────────────────────────────────────────────────
00:01:15 #882 [verbose] > ╭──────────────────────────────────────────────────────────────────────────────╮
00:01:15 #883 [verbose] > │ ## test_behavior_near_origin___ │
00:01:15 #884 [verbose] > ╰──────────────────────────────────────────────────────────────────────────────╯
00:01:15 #885 [verbose] >
00:01:15 #886 [verbose] > ── spiral ──────────────────────────────────────────────────────────────────────
00:01:15 #887 [verbose] > inl test_behavior_near_origin___ log = run_test log (6u8, 5u8) fun zeta, gamma
00:01:15 #888 [verbose] > =>
00:01:15 #889 [verbose] > inl s = .^(0.01, 0.01)
00:01:15 #890 [verbose] > inl result = zeta s
00:01:15 #891 [verbose] > result |> re |> _assert_lt limit.max
00:01:15 #892 [verbose] > result |> im |> _assert_lt limit.max
00:01:15 #893 [verbose] > Building c:\home\git\polyglot\target\polyglot\spiral_eval\packages\40bb3a58ea5272b8c26ea468f8de11e68721ad26ada5035a8d4798134eda7ee3\main.spi
00:01:15 #894 [verbose] >
00:01:15 #895 [verbose] > ╭─[ 253.14ms - stdout ]────────────────────────────────────────────────────────╮
00:01:15 #896 [verbose] > │ () │
00:01:15 #897 [verbose] > │ │
00:01:15 #898 [verbose] > │ │
00:01:15 #899 [verbose] > ╰──────────────────────────────────────────────────────────────────────────────╯
00:01:15 #900 [verbose] >
00:01:15 #901 [verbose] > ── spiral ──────────────────────────────────────────────────────────────────────
00:01:15 #902 [verbose] > // // test
00:01:15 #903 [verbose] > // // rust=
00:01:15 #904 [verbose] > // // print_code=false
00:01:15 #905 [verbose] >
00:01:15 #906 [verbose] > types ()
00:01:15 #907 [verbose] > test_behavior_near_origin___ true
00:01:15 #908 [verbose] > Building c:\home\git\polyglot\target\polyglot\spiral_eval\packages\69d313be3213b4dfcc387d224eaa0fe1188e4d4bb08b3ebc49973ed21c45984f\main.spi
00:01:22 #909 [verbose] >
00:01:22 #910 [verbose] > ╭─[ 7.04s - return value ]─────────────────────────────────────────────────────╮
00:01:22 #911 [verbose] > │ zeta_ / s: (0.01, 0.01) / count: 0 │
00:01:22 #912 [verbose] > │ call(zeta_) / f_code.co_name: zeta / f_locals: s=(0.01+0.01j), a=1, │
00:01:22 #913 [verbose] > │ derivative=0, method=None, kwargs={} / f_lineno: 530 / f_code.co_filename: │
00:01:22 #914 [verbose] > │ \mpmath\functions\zeta.py / f_back.f_lineno: 25 / f_back.f_code.co_filename: │
00:01:22 #915 [verbose] > │ / arg: None │
00:01:22 #916 [verbose] > │ line(zeta_) / f_code.co_name: zeta / f_locals: s=(0.01+0.01j), a=1, │
00:01:22 #917 [verbose] > │ derivative=0, method=None, kwargs={} / f_lineno: 532 / f_code.co_filename: │
00:01:22 #918 [verbose] > │ \mpmath\functions\zeta.py / f_back.f_lineno: 25 / f_back.f_code.co_filename: │
00:01:22 #919 [verbose] > │ / arg: None │
00:01:22 #920 [verbose] > │ line(zeta_) / f_code.co_name: zeta / f_locals: s=(0.01+0.01j), a=1, │
00:01:22 #921 [verbose] > │ derivative=0, method=None, kwargs={}, d=0 / f_lineno: 533 / │
00:01:22 #922 [verbose] > │ f_code.co_filename: \mpmath\functions\zeta.py / f_back.f_lineno: 25 / │
00:01:22 #923 [verbose] > │ f_back.f_code.co_filename: / arg: None │
00:01:22 #924 [verbose] > │ line(zeta_)... │
00:01:22 #925 [verbose] > ╰──────────────────────────────────────────────────────────────────────────────╯
00:01:22 #926 [verbose] >
00:01:22 #927 [verbose] > ── markdown ────────────────────────────────────────────────────────────────────
00:01:22 #928 [verbose] > ╭──────────────────────────────────────────────────────────────────────────────╮
00:01:22 #929 [verbose] > │ ## test_imaginary_axis │
00:01:22 #930 [verbose] > ╰──────────────────────────────────────────────────────────────────────────────╯
00:01:22 #931 [verbose] >
00:01:22 #932 [verbose] > ── spiral ──────────────────────────────────────────────────────────────────────
00:01:22 #933 [verbose] > inl test_imaginary_axis log = run_test log (3u8, 2u8) fun zeta, gamma =>
00:01:22 #934 [verbose] > (join a ;[[10; 20; 30; 40; 50; 60; 70; 80; 90; 100]] : _ i32 _)
00:01:22 #935 [verbose] > |> am.iter fun s =>
00:01:22 #936 [verbose] > inl s = .^(0, s)
00:01:22 #937 [verbose] > inl result = zeta s
00:01:22 #938 [verbose] > result |> re |> _assert_ne 0
00:01:22 #939 [verbose] > result |> im |> _assert_ne 0
00:01:22 #940 [verbose] > Building c:\home\git\polyglot\target\polyglot\spiral_eval\packages\d710da2ae36eff93976ecb138e7a1d96d76bd4e50e3161030b78360fb8abe30e\main.spi
00:01:22 #941 [verbose] >
00:01:22 #942 [verbose] > ╭─[ 241.13ms - stdout ]────────────────────────────────────────────────────────╮
00:01:22 #943 [verbose] > │ () │
00:01:22 #944 [verbose] > │ │
00:01:22 #945 [verbose] > │ │
00:01:22 #946 [verbose] > ╰──────────────────────────────────────────────────────────────────────────────╯
00:01:22 #947 [verbose] >
00:01:22 #948 [verbose] > ── spiral ──────────────────────────────────────────────────────────────────────
00:01:22 #949 [verbose] > // // test
00:01:22 #950 [verbose] > // // rust=
00:01:22 #951 [verbose] > // // print_code=false
00:01:22 #952 [verbose] >
00:01:22 #953 [verbose] > types ()
00:01:22 #954 [verbose] > test_imaginary_axis true
00:01:22 #955 [verbose] > Building c:\home\git\polyglot\target\polyglot\spiral_eval\packages\28bbf5b816de2e2b7c9e0da9b6d3aed7383346cbeed4026ea0e50cd21793cf24\main.spi
00:01:30 #956 [verbose] >
00:01:30 #957 [verbose] > ╭─[ 7.82s - return value ]─────────────────────────────────────────────────────╮
00:01:30 #958 [verbose] > │ zeta_ / s: (0.0, 10.0) / count: 0 │
00:01:30 #959 [verbose] > │ call(zeta_) / f_code.co_name: zeta / f_locals: s=10j, a=1, derivative=0, │
00:01:30 #960 [verbose] > │ method=None, kwargs={} / f_lineno: 530 / f_code.co_filename: │
00:01:30 #961 [verbose] > │ \mpmath\functions\zeta.py / f_back.f_lineno: 25 / f_back.f_code.co_filename: │
00:01:30 #962 [verbose] > │ / arg: None │
00:01:30 #963 [verbose] > │ line(zeta_) / f_code.co_name: zeta / f_locals: s=10j, a=1, derivative=0, │
00:01:30 #964 [verbose] > │ method=None, kwargs={} / f_lineno: 532 / f_code.co_filename: │
00:01:30 #965 [verbose] > │ \mpmath\functions\zeta.py / f_back.f_lineno: 25 / f_back.f_code.co_filename: │
00:01:30 #966 [verbose] > │ / arg: None │
00:01:30 #967 [verbose] > │ line(zeta_) / f_code.co_name: zeta / f_locals: s=10j, a=1, derivative=0, │
00:01:30 #968 [verbose] > │ method=None, kwargs={}, d=0 / f_lineno: 533 / f_code.co_filename: │
00:01:30 #969 [verbose] > │ \mpmath\functions\zeta.py / f_back.f_lineno: 25 / f_back.f_code.co_filename: │
00:01:30 #970 [verbose] > │ / arg: None │
00:01:30 #971 [verbose] > │ line(zeta_) / f_code.co_name: zeta / f_... │
00:01:30 #972 [verbose] > ╰──────────────────────────────────────────────────────────────────────────────╯
00:01:30 #973 [verbose] >
00:01:30 #974 [verbose] > ── markdown ────────────────────────────────────────────────────────────────────
00:01:30 #975 [verbose] > ╭──────────────────────────────────────────────────────────────────────────────╮
00:01:30 #976 [verbose] > │ ## test_critical_strip │
00:01:30 #977 [verbose] > ╰──────────────────────────────────────────────────────────────────────────────╯
00:01:30 #978 [verbose] >
00:01:30 #979 [verbose] > ── spiral ──────────────────────────────────────────────────────────────────────
00:01:30 #980 [verbose] > inl test_critical_strip log = run_test log (3u8, 2u8) fun zeta, gamma =>
00:01:30 #981 [verbose] > ;[[
00:01:30 #982 [verbose] > .^(0.5, 14.134725)
00:01:30 #983 [verbose] > .^(0.75, 20.5)
00:01:30 #984 [verbose] > .^(1.25, 30.1)
00:01:30 #985 [verbose] > .^(0.25, 40.0)
00:01:30 #986 [verbose] > .^(1.0, 50.0)
00:01:30 #987 [verbose] > ]]
00:01:30 #988 [verbose] > |> fun x => a x : _ i32 _
00:01:30 #989 [verbose] > |> am.iter fun s =>
00:01:30 #990 [verbose] > inl result = zeta s
00:01:30 #991 [verbose] > result |> re |> _assert_ne 0
00:01:30 #992 [verbose] > result |> im |> _assert_ne 0
00:01:30 #993 [verbose] > Building c:\home\git\polyglot\target\polyglot\spiral_eval\packages\41748520875dabfe16dfd6fa42aa9813af7b765e7a669107cd17d283feaafd6f\main.spi
00:01:30 #994 [verbose] >
00:01:30 #995 [verbose] > ╭─[ 247.74ms - stdout ]────────────────────────────────────────────────────────╮
00:01:30 #996 [verbose] > │ () │
00:01:30 #997 [verbose] > │ │
00:01:30 #998 [verbose] > │ │
00:01:30 #999 [verbose] > ╰──────────────────────────────────────────────────────────────────────────────╯
00:01:30 #1000 [verbose] >
00:01:30 #1001 [verbose] > ── spiral ──────────────────────────────────────────────────────────────────────
00:01:30 #1002 [verbose] > // // test
00:01:30 #1003 [verbose] > // // rust=
00:01:30 #1004 [verbose] > // // print_code=false
00:01:30 #1005 [verbose] >
00:01:30 #1006 [verbose] > types ()
00:01:30 #1007 [verbose] > test_critical_strip true
00:01:30 #1008 [verbose] > Building c:\home\git\polyglot\target\polyglot\spiral_eval\packages\3bd7c56ee74de3e0119981e403d610cb951ad8a07e14464ab1a0d4b2385ccd05\main.spi
00:01:38 #1009 [verbose] >
00:01:38 #1010 [verbose] > ╭─[ 7.38s - return value ]─────────────────────────────────────────────────────╮
00:01:38 #1011 [verbose] > │ zeta_ / s: (0.5, 14.134725) / count: 0 │
00:01:38 #1012 [verbose] > │ call(zeta_) / f_code.co_name: zeta / f_locals: s=(0.5+14.134725j), a=1, │
00:01:38 #1013 [verbose] > │ derivative=0, method=None, kwargs={} / f_lineno: 530 / f_code.co_filename: │
00:01:38 #1014 [verbose] > │ \mpmath\functions\zeta.py / f_back.f_lineno: 25 / f_back.f_code.co_filename: │
00:01:38 #1015 [verbose] > │ / arg: None │
00:01:38 #1016 [verbose] > │ line(zeta_) / f_code.co_name: zeta / f_locals: s=(0.5+14.134725j), a=1, │
00:01:38 #1017 [verbose] > │ derivative=0, method=None, kwargs={} / f_lineno: 532 / f_code.co_filename: │
00:01:38 #1018 [verbose] > │ \mpmath\functions\zeta.py / f_back.f_lineno: 25 / f_back.f_code.co_filename: │
00:01:38 #1019 [verbose] > │ / arg: None │
00:01:38 #1020 [verbose] > │ line(zeta_) / f_code.co_name: zeta / f_locals: s=(0.5+14.134725j), a=1, │
00:01:38 #1021 [verbose] > │ derivative=0, method=None, kwargs={}, d=0 / f_lineno: 533 / │
00:01:38 #1022 [verbose] > │ f_code.co_filename: \mpmath\functions\zeta.py / f_back.f_lineno: 25 / │
00:01:38 #1023 [verbose] > │ f_back.f_code.co_filename: / arg: ... │
00:01:38 #1024 [verbose] > ╰──────────────────────────────────────────────────────────────────────────────╯
00:01:38 #1025 [verbose] >
00:01:38 #1026 [verbose] > ── markdown ────────────────────────────────────────────────────────────────────
00:01:38 #1027 [verbose] > ╭──────────────────────────────────────────────────────────────────────────────╮
00:01:38 #1028 [verbose] > │ ## test_reflection_formula_for_specific_value │
00:01:38 #1029 [verbose] > ╰──────────────────────────────────────────────────────────────────────────────╯
00:01:38 #1030 [verbose] >
00:01:38 #1031 [verbose] > ── spiral ──────────────────────────────────────────────────────────────────────
00:01:38 #1032 [verbose] > inl test_reflection_formula_for_specific_value log = run_test log (3u8, 2u8) fun
00:01:38 #1033 [verbose] > zeta, gamma =>
00:01:38 #1034 [verbose] > ;[[
00:01:38 #1035 [verbose] > .^(3, 4)
00:01:38 #1036 [verbose] > .^(2.5, -3.5)
00:01:38 #1037 [verbose] > .^(1.5, 2.5)
00:01:38 #1038 [verbose] > .^(0.5, 14.134725)
00:01:38 #1039 [verbose] > ]]
00:01:38 #1040 [verbose] > |> fun x => a x : _ i32 _
00:01:38 #1041 [verbose] > |> am.iter fun s =>
00:01:38 #1042 [verbose] > inl lhs = zeta s
00:01:38 #1043 [verbose] > inl reflection_coefficient =
00:01:38 #1044 [verbose] > (.^(2, 0) .** s)
00:01:38 #1045 [verbose] > .* (.^(pi, 0) .** (s .- .^(1, 0)))
00:01:38 #1046 [verbose] > .* (.^(pi, 0) .* s ./ .^(2, 0) |> complex_sin)
00:01:38 #1047 [verbose] > .* gamma (.^(1, 0) .- s)
00:01:38 #1048 [verbose] >
00:01:38 #1049 [verbose] > inl one_minus_s = .^(1 - re s, -(im s))
00:01:38 #1050 [verbose] > inl rhs = reflection_coefficient .* zeta one_minus_s
00:01:38 #1051 [verbose] >
00:01:38 #1052 [verbose] > re lhs - re rhs |> abs |> _assert_lt 0.0001
00:01:38 #1053 [verbose] > im lhs - im rhs |> abs |> _assert_lt 0.0001
00:01:38 #1054 [verbose] > Building c:\home\git\polyglot\target\polyglot\spiral_eval\packages\51cc5c9d9e2e5e8e09f160cab15b751d62a375de452e9145180316c10a174ba0\main.spi
00:01:38 #1055 [verbose] >
00:01:38 #1056 [verbose] > ╭─[ 218.35ms - stdout ]────────────────────────────────────────────────────────╮
00:01:38 #1057 [verbose] > │ () │
00:01:38 #1058 [verbose] > │ │
00:01:38 #1059 [verbose] > │ │
00:01:38 #1060 [verbose] > ╰──────────────────────────────────────────────────────────────────────────────╯
00:01:38 #1061 [verbose] >
00:01:38 #1062 [verbose] > ── spiral ──────────────────────────────────────────────────────────────────────
00:01:38 #1063 [verbose] > // // test
00:01:38 #1064 [verbose] > // // rust=
00:01:38 #1065 [verbose] > // // print_code=false
00:01:38 #1066 [verbose] >
00:01:38 #1067 [verbose] > types ()
00:01:38 #1068 [verbose] > test_reflection_formula_for_specific_value true
00:01:38 #1069 [verbose] > Building c:\home\git\polyglot\target\polyglot\spiral_eval\packages\fc345db85b14d4683c70648d94bdef1f3b9f748f0b1f8edfc38b11b54840b525\main.spi
00:01:45 #1070 [verbose] >
00:01:45 #1071 [verbose] > ╭─[ 7.31s - return value ]─────────────────────────────────────────────────────╮
00:01:45 #1072 [verbose] > │ zeta_ / s: (3.0, 4.0) / count: 0 │
00:01:45 #1073 [verbose] > │ call(zeta_) / f_code.co_name: zeta / f_locals: s=(3+4j), a=1, derivative=0, │
00:01:45 #1074 [verbose] > │ method=None, kwargs={} / f_lineno: 530 / f_code.co_filename: │
00:01:45 #1075 [verbose] > │ \mpmath\functions\zeta.py / f_back.f_lineno: 25 / f_back.f_code.co_filename: │
00:01:45 #1076 [verbose] > │ / arg: None │
00:01:45 #1077 [verbose] > │ line(zeta_) / f_code.co_name: zeta / f_locals: s=(3+4j), a=1, derivative=0, │
00:01:45 #1078 [verbose] > │ method=None, kwargs={} / f_lineno: 532 / f_code.co_filename: │
00:01:45 #1079 [verbose] > │ \mpmath\functions\zeta.py / f_back.f_lineno: 25 / f_back.f_code.co_filename: │
00:01:45 #1080 [verbose] > │ / arg: None │
00:01:45 #1081 [verbose] > │ line(zeta_) / f_code.co_name: zeta / f_locals: s=(3+4j), a=1, derivative=0, │
00:01:45 #1082 [verbose] > │ method=None, kwargs={}, d=0 / f_lineno: 533 / f_code.co_filename: │
00:01:45 #1083 [verbose] > │ \mpmath\functions\zeta.py / f_back.f_lineno: 25 / f_back.f_code.co_filename: │
00:01:45 #1084 [verbose] > │ / arg: None │
00:01:45 #1085 [verbose] > │ line(zeta_) / f_code.co_name: z... │
00:01:45 #1086 [verbose] > ╰──────────────────────────────────────────────────────────────────────────────╯
00:01:45 #1087 [verbose] >
00:01:45 #1088 [verbose] > ── markdown ────────────────────────────────────────────────────────────────────
00:01:45 #1089 [verbose] > ╭──────────────────────────────────────────────────────────────────────────────╮
00:01:45 #1090 [verbose] > │ ## test_euler_product_formula │
00:01:45 #1091 [verbose] > ╰──────────────────────────────────────────────────────────────────────────────╯
00:01:45 #1092 [verbose] >
00:01:45 #1093 [verbose] > ── spiral ──────────────────────────────────────────────────────────────────────
00:01:45 #1094 [verbose] > inl test_euler_product_formula log = run_test log (3u8, 2u8) fun zeta, gamma =>
00:01:45 #1095 [verbose] > inl s_values = ;[[2; 2.5; 3; 3.5; 4; 4.5; 5]]
00:01:45 #1096 [verbose] > inl primes = ;[[2; 3; 5; 7; 11; 13; 17; 19; 23; 29; 31; 37; 41; 43; 47; 53;
00:01:45 #1097 [verbose] > 59; 61; 67; 71]]
00:01:45 #1098 [verbose] > (a s_values : _ i32 _)
00:01:45 #1099 [verbose] > |> am.iter fun s_re =>
00:01:45 #1100 [verbose] > inl s = .^(s_re, 0)
00:01:45 #1101 [verbose] > inl product =
00:01:45 #1102 [verbose] > (1, (a primes : _ i32 _))
00:01:45 #1103 [verbose] > ||> am.fold fun acc x =>
00:01:45 #1104 [verbose] > acc * 1 / (1 - x ** -s_re)
00:01:45 #1105 [verbose] >
00:01:45 #1106 [verbose] > inl result = zeta s
00:01:45 #1107 [verbose] > re result - product |> abs |> _assert_lt 0.01
00:01:45 #1108 [verbose] > result |> im |> _assert_lt 0.01
00:01:45 #1109 [verbose] > Building c:\home\git\polyglot\target\polyglot\spiral_eval\packages\5f8e6a65f4e71d4499f3e0a37c266f15602a9caa4e924ad980b5ba49407e710b\main.spi
00:01:45 #1110 [verbose] >
00:01:45 #1111 [verbose] > ╭─[ 228.60ms - stdout ]────────────────────────────────────────────────────────╮
00:01:45 #1112 [verbose] > │ () │
00:01:45 #1113 [verbose] > │ │
00:01:45 #1114 [verbose] > │ │
00:01:45 #1115 [verbose] > ╰──────────────────────────────────────────────────────────────────────────────╯
00:01:45 #1116 [verbose] >
00:01:45 #1117 [verbose] > ── spiral ──────────────────────────────────────────────────────────────────────
00:01:45 #1118 [verbose] > // // test
00:01:45 #1119 [verbose] > // // rust=
00:01:45 #1120 [verbose] > // // print_code=false
00:01:45 #1121 [verbose] >
00:01:45 #1122 [verbose] > types ()
00:01:45 #1123 [verbose] > test_euler_product_formula true
00:01:46 #1124 [verbose] > Building c:\home\git\polyglot\target\polyglot\spiral_eval\packages\e79be65ce15b97d805936520f0d45cb76bcfe604c0beb7771a2ea883b1f850b1\main.spi
00:01:53 #1125 [verbose] >
00:01:53 #1126 [verbose] > ╭─[ 7.42s - return value ]─────────────────────────────────────────────────────╮
00:01:53 #1127 [verbose] > │ zeta_ / s: (2.0, 0.0) / count: 0 │
00:01:53 #1128 [verbose] > │ call(zeta_) / f_code.co_name: zeta / f_locals: s=(2+0j), a=1, derivative=0, │
00:01:53 #1129 [verbose] > │ method=None, kwargs={} / f_lineno: 530 / f_code.co_filename: │
00:01:53 #1130 [verbose] > │ \mpmath\functions\zeta.py / f_back.f_lineno: 25 / f_back.f_code.co_filename: │
00:01:53 #1131 [verbose] > │ / arg: None │
00:01:53 #1132 [verbose] > │ line(zeta_) / f_code.co_name: zeta / f_locals: s=(2+0j), a=1, derivative=0, │
00:01:53 #1133 [verbose] > │ method=None, kwargs={} / f_lineno: 532 / f_code.co_filename: │
00:01:53 #1134 [verbose] > │ \mpmath\functions\zeta.py / f_back.f_lineno: 25 / f_back.f_code.co_filename: │
00:01:53 #1135 [verbose] > │ / arg: None │
00:01:53 #1136 [verbose] > │ line(zeta_) / f_code.co_name: zeta / f_locals: s=(2+0j), a=1, derivative=0, │
00:01:53 #1137 [verbose] > │ method=None, kwargs={}, d=0 / f_lineno: 533 / f_code.co_filename: │
00:01:53 #1138 [verbose] > │ \mpmath\functions\zeta.py / f_back.f_lineno: 25 / f_back.f_code.co_filename: │
00:01:53 #1139 [verbose] > │ / arg: None │
00:01:53 #1140 [verbose] > │ line(zeta_) / f_code.co_name: z... │
00:01:53 #1141 [verbose] > ╰──────────────────────────────────────────────────────────────────────────────╯
00:01:53 #1142 [verbose] >
00:01:53 #1143 [verbose] > ── markdown ────────────────────────────────────────────────────────────────────
00:01:53 #1144 [verbose] > ╭──────────────────────────────────────────────────────────────────────────────╮
00:01:53 #1145 [verbose] > │ ## graph │
00:01:53 #1146 [verbose] > ╰──────────────────────────────────────────────────────────────────────────────╯
00:01:53 #1147 [verbose] >
00:01:53 #1148 [verbose] > ── mermaid ─────────────────────────────────────────────────────────────────────
00:01:53 #1149 [verbose] > ╭──────────────────────────────────────────────────────────────────────────────╮
00:01:53 #1150 [verbose] > │ <div class="mermaidMarkdownContainer" style="background-color:white"> │
00:01:53 #1151 [verbose] > │ <link rel="stylesheet" │
00:01:53 #1152 [verbose] > │ href="https://cdnjs.cloudflare.com/ajax/libs/font-awesome/6.2.0/css/all.min. │
00:01:53 #1153 [verbose] > │ css"> │
00:01:53 #1154 [verbose] > │ <div id="e4acde0eb2c8420abdf0b224294dacdd"></div> │
00:01:53 #1155 [verbose] > │ <script type="module"> │
00:01:53 #1156 [verbose] > │ │
00:01:53 #1157 [verbose] > │ import mermaid from │
00:01:53 #1158 [verbose] > │ 'https://cdn.jsdelivr.net/npm/mermaid@10.6.1/dist/mermaid.esm.min.mjs'; │
00:01:53 #1159 [verbose] > │ let renderTarget = │
00:01:53 #1160 [verbose] > │ document.getElementById('e4acde0eb2c8420abdf0b224294dacdd'); │
00:01:53 #1161 [verbose] > │ try { │
00:01:53 #1162 [verbose] > │ const {svg, bindFunctions} = await │
00:01:53 #1163 [verbose] > │ mermaid.mermaidAPI.render( │
00:01:53 #1164 [verbose] > │ 'mermaid_e4acde0eb2c8420abdf0b224294dacdd', │
00:01:53 #1165 [verbose] > │ `graph TD │
00:01:53 #1166 [verbose] > │ zeta("zeta()") --> convert │
00:01:53 #1167 [verbose] > │ zeta --> f["f()"] │
00:01:53 #1168 [verbose] > │ f --> mpc_f["mpc_zeta()"] │
00:01:53 #1169 [verbose] > │ f --> mpf_f["mpf_zeta()"] │
00:01:53 #1170 [verbose] > │ convert --> from_float │
00:01:53 #1171 [verbose] > │ from_float --> from_man_exp │
00:01:53 #1172 [verbose] > │ from_man_exp --> python_bitcount │
00:01:53 #1173 [verbose] > │ python_bitcount --> _normalize │
00:01:53 #1174 [verbose] > │ _normalize --> make_mpc │
00:01:53 #1175 [verbose] > │ make_mpc --> mpc_zeta["mpc_zeta()"] │
00:01:53 #1176 [verbose] > │ mpc_zeta --> mpf_zeta["mpf_zeta()"] │
00:01:53 #1177 [verbose] > │ mpf_zeta --> to_int │
00:01:53 #1178 [verbose] > │ to_int --> mpf_zeta_int["mpf_zeta_int()"] │
00:01:53 #1179 [verbose] > │ mpf_zeta_int --> borwein_coefficients │
00:01:53 #1180 [verbose] > │ borwein_coefficients --> from_man_exp_2("from_man_exp()") │
00:01:53 #1181 [verbose] > │ from_man_exp_2 --> python_bitcount_2("python_bitcount()") │
00:01:53 #1182 [verbose] > │ python_bitcount_2 --> _normalize_2("_normalize()") │
00:01:53 #1183 [verbose] > │ _normalize_2 --> make_mpc_2("make_mpc()") │
00:01:53 #1184 [verbose] > │ make_mpc_2 --> stop_trace │
00:01:53 #1185 [verbose] > │ mpf_zeta_int --> mpf_bernoulli │
00:01:53 #1186 [verbose] > │ mpf_bernoulli --> bernoulli_size │
00:01:53 #1187 [verbose] > │ bernoulli_size --> mpf_rdiv_int │
00:01:53 #1188 [verbose] > │ mpf_rdiv_int --> python_bitcount_3("python_bitcount()") │
00:01:53 #1189 [verbose] > │ python_bitcount_3 --> _normalize1 │
00:01:53 #1190 [verbose] > │ _normalize1 --> from_man_exp_3("from_man_exp()") │
00:01:53 #1191 [verbose] > │ from_man_exp_3 --> _normalize_3("_normalize()") │
00:01:53 #1192 [verbose] > │ _normalize_3 --> mpf_sub │
00:01:53 #1193 [verbose] > │ mpf_sub --> mpf_add │
00:01:53 #1194 [verbose] > │ mpf_add --> mpf_neg │
00:01:53 #1195 [verbose] > │ mpf_neg --> _normalize1_2("_normalize1()") │
00:01:53 #1196 [verbose] > │ _normalize1_2 --> from_int │
00:01:53 #1197 [verbose] > │ from_int --> mpf_div │
00:01:53 #1198 [verbose] > │ mpf_div --> python_bitcount_4("python_bitcount()") │
00:01:53 #1199 [verbose] > │ python_bitcount_4 --> _normalize1_3("_normalize1()") │
00:01:53 #1200 [verbose] > │ _normalize1_3 --> make_mpc_3("make_mpc()") │
00:01:53 #1201 [verbose] > │ make_mpc_3 --> final_stop["stop_trace()"]`); │
00:01:53 #1202 [verbose] > │ renderTarget.innerHTML = svg; │
00:01:53 #1203 [verbose] > │ bindFunctions?.(renderTarget); │
00:01:53 #1204 [verbose] > │ } │
00:01:53 #1205 [verbose] > │ catch (error) { │
00:01:53 #1206 [verbose] > │ console.log(error); │
00:01:53 #1207 [verbose] > │ } │
00:01:53 #1208 [verbose] > │ </script> │
00:01:53 #1209 [verbose] > │ </div> │
00:01:53 #1210 [verbose] > │ │
00:01:53 #1211 [verbose] > ╰──────────────────────────────────────────────────────────────────────────────╯
00:01:53 #1212 [verbose] >
00:01:53 #1213 [verbose] > ── mermaid ─────────────────────────────────────────────────────────────────────
00:01:53 #1214 [verbose] > ╭──────────────────────────────────────────────────────────────────────────────╮
00:01:53 #1215 [verbose] > │ <div class="mermaidMarkdownContainer" style="background-color:white"> │
00:01:53 #1216 [verbose] > │ <link rel="stylesheet" │
00:01:53 #1217 [verbose] > │ href="https://cdnjs.cloudflare.com/ajax/libs/font-awesome/6.2.0/css/all.min. │
00:01:53 #1218 [verbose] > │ css"> │
00:01:53 #1219 [verbose] > │ <div id="7bcce228515048f29fe5e88caca6230d"></div> │
00:01:53 #1220 [verbose] > │ <script type="module"> │
00:01:53 #1221 [verbose] > │ │
00:01:53 #1222 [verbose] > │ import mermaid from │
00:01:53 #1223 [verbose] > │ 'https://cdn.jsdelivr.net/npm/mermaid@10.6.1/dist/mermaid.esm.min.mjs'; │
00:01:53 #1224 [verbose] > │ let renderTarget = │
00:01:53 #1225 [verbose] > │ document.getElementById('7bcce228515048f29fe5e88caca6230d'); │
00:01:53 #1226 [verbose] > │ try { │
00:01:53 #1227 [verbose] > │ const {svg, bindFunctions} = await │
00:01:53 #1228 [verbose] > │ mermaid.mermaidAPI.render( │
00:01:53 #1229 [verbose] > │ 'mermaid_7bcce228515048f29fe5e88caca6230d', │
00:01:53 #1230 [verbose] > │ `graph TD │
00:01:53 #1231 [verbose] > │ zeta_rust("zeta() - Rust") --> num_traits("num-traits") │
00:01:53 #1232 [verbose] > │ zeta_rust --> num_bigint("num-bigint") │
00:01:53 #1233 [verbose] > │ zeta_rust --> rust_decimal("rust_decimal for precision") │
00:01:53 #1234 [verbose] > │ zeta_rust --> error_handling("Rust Error Handling") │
00:01:53 #1235 [verbose] > │ │
00:01:53 #1236 [verbose] > │ num_traits --> num_traits_usage("Use for common traits") │
00:01:53 #1237 [verbose] > │ num_bigint --> bigint_operations("Arbitrary-precision arithmetic │
00:01:53 #1238 [verbose] > │ operations") │
00:01:53 #1239 [verbose] > │ rust_decimal --> decimal_operations("High-precision decimal operations") │
00:01:53 #1240 [verbose] > │ error_handling --> result_type("Use Result<T, E> for error handling") │
00:01:53 #1241 [verbose] > │ │
00:01:53 #1242 [verbose] > │ bigint_operations --> convert_rust("convert() - Rust") │
00:01:53 #1243 [verbose] > │ bigint_operations --> normalize_rust("_normalize() - Rust") │
00:01:53 #1244 [verbose] > │ │
00:01:53 #1245 [verbose] > │ convert_rust --> from_float_rust("from_float() - Rust") │
00:01:53 #1246 [verbose] > │ from_float_rust --> from_man_exp_rust("from_man_exp() - Rust") │
00:01:53 #1247 [verbose] > │ from_man_exp_rust --> bitcount_rust("bitcount() - Rust") │
00:01:53 #1248 [verbose] > │ bitcount_rust --> normalize_rust │
00:01:53 #1249 [verbose] > │ normalize_rust --> mpc_zeta_rust("mpc_zeta() - Rust") │
00:01:53 #1250 [verbose] > │ mpc_zeta_rust --> mpf_zeta_rust("mpf_zeta() - Rust") │
00:01:53 #1251 [verbose] > │ mpf_zeta_rust --> to_int_rust("to_int() - Rust") │
00:01:53 #1252 [verbose] > │ to_int_rust --> mpf_zeta_int_rust("mpf_zeta_int() - Rust") │
00:01:53 #1253 [verbose] > │ │
00:01:53 #1254 [verbose] > │ mpf_zeta_int_rust --> borwein_coefficients_rust("borwein_coefficients() │
00:01:53 #1255 [verbose] > │ - Rust") │
00:01:53 #1256 [verbose] > │ borwein_coefficients_rust --> from_man_exp_rust_2("from_man_exp() - │
00:01:53 #1257 [verbose] > │ Rust") │
00:01:53 #1258 [verbose] > │ from_man_exp_rust_2 --> bitcount_rust_2("bitcount() - Rust") │
00:01:53 #1259 [verbose] > │ bitcount_rust_2 --> normalize_rust_2("_normalize() - Rust") │
00:01:53 #1260 [verbose] > │ normalize_rust_2 --> make_mpc_rust("make_mpc() - Rust") │
00:01:53 #1261 [verbose] > │ │
00:01:53 #1262 [verbose] > │ mpf_zeta_int_rust --> mpf_bernoulli_rust("mpf_bernoulli() - Rust") │
00:01:53 #1263 [verbose] > │ mpf_bernoulli_rust --> bernoulli_size_rust("bernoulli_size() - Rust") │
00:01:53 #1264 [verbose] > │ bernoulli_size_rust --> mpf_rdiv_int_rust("mpf_rdiv_int() - Rust") │
00:01:53 #1265 [verbose] > │ mpf_rdiv_int_rust --> bitcount_rust_3("bitcount() - Rust") │
00:01:53 #1266 [verbose] > │ bitcount_rust_3 --> normalize1_rust("_normalize1() - Rust") │
00:01:53 #1267 [verbose] > │ normalize1_rust --> from_man_exp_rust_3("from_man_exp() - Rust") │
00:01:53 #1268 [verbose] > │ from_man_exp_rust_3 --> normalize_rust_3("_normalize() - Rust") │
00:01:53 #1269 [verbose] > │ normalize_rust_3 --> mpf_sub_rust("mpf_sub() - Rust") │
00:01:53 #1270 [verbose] > │ mpf_sub_rust --> mpf_add_rust("mpf_add() - Rust") │
00:01:53 #1271 [verbose] > │ mpf_add_rust --> mpf_neg_rust("mpf_neg() - Rust") │
00:01:53 #1272 [verbose] > │ mpf_neg_rust --> normalize1_rust_2("_normalize1() - Rust") │
00:01:53 #1273 [verbose] > │ normalize1_rust_2 --> from_int_rust("from_int() - Rust") │
00:01:53 #1274 [verbose] > │ from_int_rust --> mpf_div_rust("mpf_div() - Rust") │
00:01:53 #1275 [verbose] > │ mpf_div_rust --> bitcount_rust_4("bitcount() - Rust") │
00:01:53 #1276 [verbose] > │ bitcount_rust_4 --> normalize1_rust_3("_normalize1() - Rust") │
00:01:53 #1277 [verbose] > │ │
00:01:53 #1278 [verbose] > │ style zeta_rust fill:#f9f,stroke:#333,stroke-width:4px │
00:01:53 #1279 [verbose] > │ style num_traits fill:#bbf,stroke:#333,stroke-width:2px │
00:01:53 #1280 [verbose] > │ style num_bigint fill:#bbf,stroke:#333,stroke-width:2px │
00:01:53 #1281 [verbose] > │ style rust_decimal fill:#bbf,stroke:#333,stroke-width:2px │
00:01:53 #1282 [verbose] > │ style error_handling fill:#bbf,stroke:#333,stroke-width:2px │
00:01:53 #1283 [verbose] > │ style bigint_operations fill:#bfb,stroke:#333,stroke-width:2px │
00:01:53 #1284 [verbose] > │ style decimal_operations fill:#bfb,stroke:#333,stroke-width:2px │
00:01:53 #1285 [verbose] > │ style result_type fill:#bfb,stroke:#333,stroke-width:2px`); │
00:01:53 #1286 [verbose] > │ renderTarget.innerHTML = svg; │
00:01:53 #1287 [verbose] > │ bindFunctions?.(renderTarget); │
00:01:53 #1288 [verbose] > │ } │
00:01:53 #1289 [verbose] > │ catch (error) { │
00:01:53 #1290 [verbose] > │ console.log(error); │
00:01:53 #1291 [verbose] > │ } │
00:01:53 #1292 [verbose] > │ </script> │
00:01:53 #1293 [verbose] > │ </div> │
00:01:53 #1294 [verbose] > │ │
00:01:53 #1295 [verbose] > ╰──────────────────────────────────────────────────────────────────────────────╯
00:01:53 #1296 [verbose] >
00:01:53 #1297 [verbose] > ── markdown ────────────────────────────────────────────────────────────────────
00:01:53 #1298 [verbose] > ╭──────────────────────────────────────────────────────────────────────────────╮
00:01:53 #1299 [verbose] > │ ## tests │
00:01:53 #1300 [verbose] > ╰──────────────────────────────────────────────────────────────────────────────╯
00:01:53 #1301 [verbose] >
00:01:53 #1302 [verbose] > ── spiral ──────────────────────────────────────────────────────────────────────
00:01:53 #1303 [verbose] > inl tests () =
00:01:53 #1304 [verbose] > !\($'"}//"') : ()
00:01:53 #1305 [verbose] >
00:01:53 #1306 [verbose] > !\($'"#[[test]] fn test_zeta_at_known_values_() { //"') : ()
00:01:53 #1307 [verbose] > test_zeta_at_known_values_ false
00:01:53 #1308 [verbose] > !\($'"} #[[test]] fn test_zeta_at_2_minus2() { //"') : ()
00:01:53 #1309 [verbose] > test_zeta_at_2_minus2 false
00:01:53 #1310 [verbose] > !\($'"} #[[test]] fn test_trivial_zero_at_negative_even___() { //"') : ()
00:01:53 #1311 [verbose] > test_trivial_zero_at_negative_even___ false
00:01:53 #1312 [verbose] > !\($'"} #[[test]] fn test_non_trivial_zero___() { //"') : ()
00:01:53 #1313 [verbose] > test_non_trivial_zero___ false
00:01:53 #1314 [verbose] > !\($'"} #[[test]] fn test_real_part_greater_than_one___() { //"') : ()
00:01:53 #1315 [verbose] > test_real_part_greater_than_one___ false
00:01:53 #1316 [verbose] > !\($'"} #[[test]] fn test_zeta_at_1___() { //"') : ()
00:01:53 #1317 [verbose] > test_zeta_at_1___ false
00:01:53 #1318 [verbose] > !\($'"} #[[test]] fn test_symmetry_across_real_axis___() { //"') : ()
00:01:53 #1319 [verbose] > test_symmetry_across_real_axis___ false
00:01:53 #1320 [verbose] > !\($'"} #[[test]] fn test_behavior_near_origin___() { //"') : ()
00:01:53 #1321 [verbose] > test_behavior_near_origin___ false
00:01:53 #1322 [verbose] > !\($'"} #[[test]] fn test_imaginary_axis() { //"') : ()
00:01:53 #1323 [verbose] > test_imaginary_axis false
00:01:53 #1324 [verbose] > !\($'"} #[[test]] fn test_critical_strip() { //"') : ()
00:01:53 #1325 [verbose] > test_critical_strip false
00:01:53 #1326 [verbose] > !\($'"} #[[test]] fn test_reflection_formula_for_specific_value() { //"') :
00:01:53 #1327 [verbose] > ()
00:01:53 #1328 [verbose] > test_reflection_formula_for_specific_value false
00:01:53 #1329 [verbose] > !\($'"} #[[test]] fn test_euler_product_formula() { //"') : ()
00:01:53 #1330 [verbose] > test_euler_product_formula false
00:01:53 #1331 [verbose] > Building c:\home\git\polyglot\target\polyglot\spiral_eval\packages\71715f6c6d78a9e9d429b30ab3c178078d1e0508af92fe5b5ab764b0e8816880\main.spi
00:01:53 #1332 [verbose] >
00:01:53 #1333 [verbose] > ╭─[ 223.80ms - stdout ]────────────────────────────────────────────────────────╮
00:01:53 #1334 [verbose] > │ () │
00:01:53 #1335 [verbose] > │ │
00:01:53 #1336 [verbose] > │ │
00:01:53 #1337 [verbose] > ╰──────────────────────────────────────────────────────────────────────────────╯
00:01:53 #1338 [verbose] >
00:01:53 #1339 [verbose] > ── spiral ──────────────────────────────────────────────────────────────────────
00:01:53 #1340 [verbose] > // // rust=
00:01:53 #1341 [verbose] >
00:01:53 #1342 [verbose] > inl main (_args : array_base string) =
00:01:53 #1343 [verbose] > inl value = 1i32
00:01:53 #1344 [verbose] > console.write_line ($"$\"value: {!value}\"" : string)
00:01:53 #1345 [verbose] > 0i32
00:01:53 #1346 [verbose] >
00:01:53 #1347 [verbose] > inl main () =
00:01:53 #1348 [verbose] > types ()
00:01:53 #1349 [verbose] > $"let tests () = !tests ()" : ()
00:01:53 #1350 [verbose] > $"let main args = !main args" : ()
00:01:53 #1351 [verbose] > Building c:\home\git\polyglot\target\polyglot\spiral_eval\packages\8fcad2fea1f334fff713b886c5df4d6fd51c3be84f414babfc3e658555240cf9\main.spi
00:01:53 #1352 [verbose] >
00:01:54 #1353 [verbose] > ╭─[ 311.80ms - stdout ]────────────────────────────────────────────────────────╮
00:01:54 #1354 [verbose] > │ .fsx: │
00:01:54 #1355 [verbose] > │ [<Fable.Core.Erase; Fable.Core.Emit("Func0<$0>")>] type Func0<'T> = class │
00:01:54 #1356 [verbose] > │ end │
00:01:54 #1357 [verbose] > │ [<Fable.Core.Erase; Fable.Core.Emit("Func1<$0, $1>")>] type Func0<'T, 'U> = │
00:01:54 #1358 [verbose] > │ class end │
00:01:54 #1359 [verbose] > │ [<Fable.Core.Erase; Fable.Core.Emit("Box<$0>")>] type Box<'T> = class end │
00:01:54 #1360 [verbose] > │ [<Fable.Core.Erase; Fable.Core.Emit("dyn $0")>] type Dyn<'T> = class end │
00:01:54 #1361 [verbose] > │ [<Fable.Core.Erase; Fable.Core.Emit("Fn() -> $0")>] type Fn<'T> = class end │
00:01:54 #1362 [verbose] > │ [<Fable.Core.Erase; Fable.Core.Emit("Fn()")>] type FnUnit = class end │
00:01:54 #1363 [verbose] > │ [<Fable.Core.Erase; Fable.Core.Emit("FnOnce() -> $0")>] type FnOnce<'T> = │
00:01:54 #1364 [verbose] > │ class end │
00:01:54 #1365 [verbose] > │ [<Fable.Core.Erase; Fable.Core.Emit("Fn($0, $1)")>] type ActionFn2<'T, 'U> = │
00:01:54 #1366 [verbose] > │ class end │
00:01:54 #1367 [verbose] > │ [<Fable.Core.Erase; Fable.Core.Emit("impl $0")>] type Impl<'T> = class end │
00:01:54 #1368 [verbose] > │ [<Fable.Core.Erase; Fable.Core.Emit("mut $0")>] type Mut<'T> = class end │
00:01:54 #1369 [verbose] > │ [<Fable.Core.Erase; Fable.Core.Emit("&$0")>] type Ref<'T> = class end │
00:01:54 #1370 [verbose] > │ [<Fable.Core.Erase; Fable.Core.Emit("&'static $0")>] type StaticRef<'T> = │
00:01:54 #1371 [verbose] > │ class end │
00:01:54 #1372 [verbose] > │ [<Fable.Core.Erase; Fable.Core.Emit("MutCell<$0>")>] type MutCell<'T> = │
00:01:54 #1373 [verbose] > │ class end │
00:01:54 #1374 [verbose] > │ [<Fable.Core.Erase; Fable.Core.Emit("std::any::Any")>] type std_any_Any = │
00:01:54 #1375 [verbose] > │ class end │
00:01:54 #1376 [verbose] > │ [<Fable.Core.Erase; Fable.Core.Emit("std::cell::RefCell<$0>")>] type │
00:01:54 #1377 [verbose] > │ std_cell_RefCell<'T> = class end │
00:01:54 #1378 [verbose] > │ [<Fable.Core.Erase; Fable.Core.Emit("std::pin::Pin<$0>")>] type │
00:01:54 #1379 [verbose] > │ std_pin_Pin<'T> = class end │
00:01:54 #1380 [verbose] > │ [<Fable.Core.Erase; Fable.Core.Emit("std::rc::Rc<$0>")>] type std_rc_Rc<'T> │
00:01:54 #1381 [verbose] > │ = class end │
00:01:54 #1382 [verbose] > │ [<Fable.Core.Erase; Fable.Core.Emit("std::rc::Weak<$0>")>] type │
00:01:54 #1383 [verbose] > │ std_rc_Weak<'T> = class end │
00:01:54 #1384 [verbose] > │ [<Fable.Core.Erase; Fable.Core.Emit("std::sync::Arc<$0>")>] type │
00:01:54 #1385 [verbose] > │ std_sync_Arc<'T> = class end │
00:01:54 #1386 [verbose] > │ [<Fable.Core.Erase; Fable.Core.Emit("str")>] type Str = class end │
00:01:54 #1387 [verbose] > │ [<Fable.Core.Erase; Fable.Core.Emit("base64::DecodeError")>] type │
00:01:54 #1388 [verbose] > │ base64_DecodeError = class end │
00:01:54 #1389 [verbose] > │ [<Fable.Core.Erase; Fable.Core.Emit("borsh::io::Error")>] type │
00:01:54 #1390 [verbose] > │ borsh_io_Error = class end │
00:01:54 #1391 [verbose] > │ [<Fable.Core.Erase; Fable.Core.Emit("js_sys::JsString")>] type │
00:01:54 #1392 [verbose] > │ js_sys_JsString = class end │
00:01:54 #1393 [verbose] > │ [<Fable.Core.Erase; Fable.Core.Emit("serde_json::Error")>] type │
00:01:54 #1394 [verbose] > │ serde_json_Error = class end │
00:01:54 #1395 [verbose] > │ [<Fable.Core.Erase; Fable.Core.Emit("serde_json::Value")>] type │
00:01:54 #1396 [verbose] > │ serde_json_Value = class end │
00:01:54 #1397 [verbose] > │ [<Fable.Core.Erase; Fable.Core.Emit("serde_wasm_bindgen::Error")>] type │
00:01:54 #1398 [verbose] > │ serde_wasm_bindgen_Error = class end │
00:01:54 #1399 [verbose] > │ [<Fable.Core.Erase; Fable.Core.Emit("std::ffi::OsStr")>] type std_ffi_OsStr │
00:01:54 #1400 [verbose] > │ = class end │
00:01:54 #1401 [verbose] > │ [<Fable.Core.Erase; Fable.Core.Emit("std::ffi::OsString")>] type │
00:01:54 #1402 [verbose] > │ std_ffi_OsString = class end │
00:01:54 #1403 [verbose] > │ [<Fable.Core.Erase; Fable.Core.Emit("std::str::Utf8Error")>] type │
00:01:54 #1404 [verbose] > │ std_str_Utf8Error = class end │
00:01:54 #1405 [verbose] > │ [<Fable.Core.Erase; Fable.Core.Emit("std::string::String")>] type │
00:01:54 #1406 [verbose] > │ std_string_String = class end │
00:01:54 #1407 [verbose] > │ [<Fable.Core.Erase; Fable.Core.Emit("num_complex::Complex<$0>")>] type │
00:01:54 #1408 [verbose] > │ num_complex_Complex<'T> = class end │
00:01:54 #1409 [verbose] > │ [<Fable.Core.Erase; Fable.Core.Emit("pyo3::types::PyModule")>] type │
00:01:54 #1410 [verbose] > │ pyo3_types_PyModule = class end │
00:01:54 #1411 [verbose] > │ [<Fable.Core.Erase; Fable.Core.Emit("pyo3::Bound<$0>")>] type pyo3_Bound<'T> │
00:01:54 #1412 [verbose] > │ = class end │
00:01:54 #1413 [verbose] > │ [<Fable.Core.Erase; Fable.Core.Emit("pyo3::Python")>] type pyo3_Python = │
00:01:54 #1414 [verbose] > │ class end │
00:01:54 #1415 [verbose] > │ [<Fable.Core.Erase; Fable.Core.Emit("pyo3::PyAny")>] type pyo3_PyAny = class │
00:01:54 #1416 [verbose] > │ end │
00:01:54 #1417 [verbose] > │ [<Fable.Core.Erase; Fable.Core.Emit("pyo3::PyErr")>] type pyo3_PyErr = class │
00:01:54 #1418 [verbose] > │ end │
00:01:54 #1419 [verbose] > │ Fable.Core.RustInterop.emitRustExpr () "); │
00:01:54 #1420 [verbose] > │ use pyo3::prelude::PyAnyMethods; │
00:01:54 #1421 [verbose] > │ //" │
00:01:54 #1422 [verbose] > │ type Mut0 = {mutable l0 : int32} │
00:01:54 #1423 [verbose] > │ and Mut1 = {mutable l0 : int32; mutable l1 : string} │
00:01:54 #1424 [verbose] > │ and Mut2 = {mutable l0 : int32; mutable l1 : num_complex_Complex<float>} │
00:01:54 #1425 [verbose] > │ and [<Struct>] US0 = │
00:01:54 #1426 [verbose] > │ | US0_0 of f0_0 : num_complex_Complex<float> │
00:01:54 #1427 [verbose] > │ | US0_1 │
00:01:54 #1428 [verbose] > │ and UH0 = │
00:01:54 #1429 [verbose] > │ | UH0_0 │
00:01:54 #1430 [verbose] > │ | UH0_1 of float * UH0 │
00:01:54 #1431 [verbose] > │ and Mut3 = {mutable l0 : int32; mutable l1 : float} │
00:01:54 #1432 [verbose] > │ let rec method2 (v0 : int32, v1 : Mut0) : bool = │
00:01:54 #1433 [verbose] > │ let v2 : int32 = v1.l0 │
00:01:54 #1434 [verbose] > │ let v3 : bool = v2 < v0 │
00:01:54 #1435 [verbose] > │ v3 │
00:01:54 #1436 [verbose] > │ and method3 (v0 : num_complex_Complex<float>) : num_complex_Complex<float> = │
00:01:54 #1437 [verbose] > │ v0 │
00:01:54 #1438 [verbose] > │ and method6 (v0 : int32, v1 : Mut1) : bool = │
00:01:54 #1439 [verbose] > │ let v2 : int32 = v1.l0 │
00:01:54 #1440 [verbose] > │ let v3 : bool = v2 < v0 │
00:01:54 #1441 [verbose] > │ v3 │
00:01:54 #1442 [verbose] > │ and method5 (v0 : (string [])) : string = │
00:01:54 #1443 [verbose] > │ let v1 : int32 = v0.Length │
00:01:54 #1444 [verbose] > │ let v2 : string = "" │
00:01:54 #1445 [verbose] > │ let v3 : Mut1 = {l0 = 0; l1 = v2} : Mut1 │
00:01:54 #1446 [verbose] > │ while method6(v1, v3) do │
00:01:54 #1447 [verbose] > │ let v5 : int32 = v3.l0 │
00:01:54 #1448 [verbose] > │ let v6 : string = v3.l1 │
00:01:54 #1449 [verbose] > │ let v7 : string = v0.[int v5] │
00:01:54 #1450 [verbose] > │ let v8 : string = "\n" │
00:01:54 #1451 [verbose] > │ let v9 : string = v6 + v7 + v8 + "" │
00:01:54 #1452 [verbose] > │ let v10 : int32 = v5 + 1 │
00:01:54 #1453 [verbose] > │ v3.l0 <- v10 │
00:01:54 #1454 [verbose] > │ v3.l1 <- v9 │
00:01:54 #1455 [verbose] > │ () │
00:01:54 #1456 [verbose] > │ let v11 : string = v3.l1 │
00:01:54 #1457 [verbose] > │ v11 │
00:01:54 #1458 [verbose] > │ and method7 (v0 : num_complex_Complex<float>) : num_complex_Complex<float> = │
00:01:54 #1459 [verbose] > │ v0 │
00:01:54 #1460 [verbose] > │ and method8 (v0 : num_complex_Complex<float>) : num_complex_Complex<float> = │
00:01:54 #1461 [verbose] > │ v0 │
00:01:54 #1462 [verbose] > │ and method9 (v0 : pyo3_Python) : pyo3_Python = │
00:01:54 #1463 [verbose] > │ v0 │
00:01:54 #1464 [verbose] > │ and closure1 () (v0 : pyo3_PyErr) : std_string_String = │
00:01:54 #1465 [verbose] > │ let v1 : string = @$"format!(""{{}}"", $0)" │
00:01:54 #1466 [verbose] > │ let v2 : std_string_String = Fable.Core.RustInterop.emitRustExpr v0 v1 │
00:01:54 #1467 [verbose] > │ v2 │
00:01:54 #1468 [verbose] > │ and method10 () : (pyo3_PyErr -> std_string_String) = │
00:01:54 #1469 [verbose] > │ closure1() │
00:01:54 #1470 [verbose] > │ and method11 (v0 : Result<pyo3_Bound<pyo3_types_PyModule>, pyo3_PyErr>) : │
00:01:54 #1471 [verbose] > │ Result<pyo3_Bound<pyo3_types_PyModule>, pyo3_PyErr> = │
00:01:54 #1472 [verbose] > │ v0 │
00:01:54 #1473 [verbose] > │ and method12 (v0 : Result<pyo3_Bound<pyo3_types_PyModule>, │
00:01:54 #1474 [verbose] > │ std_string_String>) : Result<pyo3_Bound<pyo3_types_PyModule>, │
00:01:54 #1475 [verbose] > │ std_string_String> = │
00:01:54 #1476 [verbose] > │ v0 │
00:01:54 #1477 [verbose] > │ and method13 () : string = │
00:01:54 #1478 [verbose] > │ let v0 : string = "fn" │
00:01:54 #1479 [verbose] > │ v0 │
00:01:54 #1480 [verbose] > │ and method14 (v0 : pyo3_Bound<pyo3_types_PyModule>) : │
00:01:54 #1481 [verbose] > │ pyo3_Bound<pyo3_types_PyModule> = │
00:01:54 #1482 [verbose] > │ v0 │
00:01:54 #1483 [verbose] > │ and closure2 () (v0 : pyo3_PyErr) : std_string_String = │
00:01:54 #1484 [verbose] > │ let v1 : string = @$"format!(""{{}}"", $0)" │
00:01:54 #1485 [verbose] > │ let v2 : std_string_String = Fable.Core.RustInterop.emitRustExpr v0 v1 │
00:01:54 #1486 [verbose] > │ v2 │
00:01:54 #1487 [verbose] > │ and method15 () : (pyo3_PyErr -> std_string_String) = │
00:01:54 #1488 [verbose] > │ closure2() │
00:01:54 #1489 [verbose] > │ and method16 (v0 : Result<pyo3_Bound<pyo3_PyAny>, pyo3_PyErr>) : │
00:01:54 #1490 [verbose] > │ Result<pyo3_Bound<pyo3_PyAny>, pyo3_PyErr> = │
00:01:54 #1491 [verbose] > │ v0 │
00:01:54 #1492 [verbose] > │ and method17 (v0 : Result<pyo3_Bound<pyo3_PyAny>, std_string_String>) : │
00:01:54 #1493 [verbose] > │ Result<pyo3_Bound<pyo3_PyAny>, std_string_String> = │
00:01:54 #1494 [verbose] > │ v0 │
00:01:54 #1495 [verbose] > │ and method18 (v0 : (bool * (float * float))) : (bool * (float * float)) = │
00:01:54 #1496 [verbose] > │ v0 │
00:01:54 #1497 [verbose] > │ and method19 (v0 : pyo3_Bound<pyo3_PyAny>) : pyo3_Bound<pyo3_PyAny> = │
00:01:54 #1498 [verbose] > │ v0 │
00:01:54 #1499 [verbose] > │ and closure3 () (v0 : pyo3_PyErr) : std_string_String = │
00:01:54 #1500 [verbose] > │ let v1 : string = @$"format!(""{{}}"", $0)" │
00:01:54 #1501 [verbose] > │ let v2 : std_string_String = Fable.Core.RustInterop.emitRustExpr v0 v1 │
00:01:54 #1502 [verbose] > │ v2 │
00:01:54 #1503 [verbose] > │ and method20 () : (pyo3_PyErr -> std_string_String) = │
00:01:54 #1504 [verbose] > │ closure3() │
00:01:54 #1505 [verbose] > │ and method21 (v0 : pyo3_Bound<pyo3_PyAny>) : pyo3_Bound<pyo3_PyAny> = │
00:01:54 #1506 [verbose] > │ v0 │
00:01:54 #1507 [verbose] > │ and closure4 () (v0 : pyo3_PyErr) : std_string_String = │
00:01:54 #1508 [verbose] > │ let v1 : string = @$"format!(""{{}}"", $0)" │
00:01:54 #1509 [verbose] > │ let v2 : std_string_String = Fable.Core.RustInterop.emitRustExpr v0 v1 │
00:01:54 #1510 [verbose] > │ v2 │
00:01:54 #1511 [verbose] > │ and method22 () : (pyo3_PyErr -> std_string_String) = │
00:01:54 #1512 [verbose] > │ closure4() │
00:01:54 #1513 [verbose] > │ and method23 (v0 : Result<struct (float * float), pyo3_PyErr>) : │
00:01:54 #1514 [verbose] > │ Result<struct (float * float), pyo3_PyErr> = │
00:01:54 #1515 [verbose] > │ v0 │
00:01:54 #1516 [verbose] > │ and method4 (v0 : pyo3_Python, v1 : string, v2 : num_complex_Complex<float>) │
00:01:54 #1517 [verbose] > │ : Result<num_complex_Complex<float>, std_string_String> = │
00:01:54 #1518 [verbose] > │ let v3 : string = $"import sys" │
00:01:54 #1519 [verbose] > │ let v4 : string = $"import traceback" │
00:01:54 #1520 [verbose] > │ let v5 : string = $"import re" │
00:01:54 #1521 [verbose] > │ let v6 : string = $"count = 0" │
00:01:54 #1522 [verbose] > │ let v7 : string = $"memory_address_pattern = re.compile(r' at 0x[ │
00:01:54 #1523 [verbose] > │ 0-9a-fA-F]+')" │
00:01:54 #1524 [verbose] > │ let v8 : string = $"def trace_calls(frame, event, arg):" │
00:01:54 #1525 [verbose] > │ let v9 : string = $" global count" │
00:01:54 #1526 [verbose] > │ let v10 : string = $" count += 1" │
00:01:54 #1527 [verbose] > │ let v11 : string = $" if count < 200:" │
00:01:54 #1528 [verbose] > │ let v12 : string = $" try:" │
00:01:54 #1529 [verbose] > │ let v13 : string = $" args = {{ k: v for k, v in │
00:01:54 #1530 [verbose] > │ frame.f_locals.items() if frame.f_code.co_name != 'make_mpc' and k not in [ │
00:01:54 #1531 [verbose] > │ 'ctx'] and not callable(v) }}" │
00:01:54 #1532 [verbose] > │ let v14 : string = $" args_str = ', '.join([ │
00:01:54 #1533 [verbose] > │ f\"{{k}}={{re.sub(memory_address_pattern, ' at 0x<?>', repr(v))}}\" for k, v │
00:01:54 #1534 [verbose] > │ in args.items() ])" │
00:01:54 #1535 [verbose] > │ let v15 : string = "zeta_" │
00:01:54 #1536 [verbose] > │ let v16 : string = $" print(f\"{{event}}({v15}) / │
00:01:54 #1537 [verbose] > │ f_code.co_name: {{frame.f_code.co_name}} / f_locals: {{args_str}} / │
00:01:54 #1538 [verbose] > │ f_lineno: {{frame.f_lineno}} / f_code.co_filename: │
00:01:54 #1539 [verbose] > │ {{frame.f_code.co_filename.split('site-packages')[-1]}} / f_back.f_lineno: │
00:01:54 #1540 [verbose] > │ {{ '' if frame.f_back is None else frame.f_back.f_lineno }} / │
00:01:54 #1541 [verbose] > │ f_back.f_code.co_filename: {{ '' if frame.f_back is None else │
00:01:54 #1542 [verbose] > │ frame.f_back.f_code.co_filename.split('site-packages')[-1] }} / arg: │
00:01:54 #1543 [verbose] > │ {{re.sub(memory_address_pattern, ' at 0x<?>', repr(arg))}}\", flush=True)" │
00:01:54 #1544 [verbose] > │ let v17 : string = $" except ValueError as e:" │
00:01:54 #1545 [verbose] > │ let v18 : string = $" print(f'{v15} / e: {{e}}', flush=True)" │
00:01:54 #1546 [verbose] > │ let v19 : string = $" return trace_calls" │
00:01:54 #1547 [verbose] > │ let v20 : string = $"import mpmath" │
00:01:54 #1548 [verbose] > │ let v21 : string = $"def fn(log, s):" │
00:01:54 #1549 [verbose] > │ let v22 : string = $" global count" │
00:01:54 #1550 [verbose] > │ let v23 : string = $" if log:" │
00:01:54 #1551 [verbose] > │ let v24 : string = $" print(f'{v15} / s: {{s}} / count: │
00:01:54 #1552 [verbose] > │ {{count}}', flush=True)" │
00:01:54 #1553 [verbose] > │ let v25 : string = $" s = complex(*s)" │
00:01:54 #1554 [verbose] > │ let v26 : string = $" try:" │
00:01:54 #1555 [verbose] > │ let v27 : string = $" if log: sys.settrace(trace_calls)" │
00:01:54 #1556 [verbose] > │ let v28 : string = $" if log:" │
00:01:54 #1557 [verbose] > │ let v29 : string = $" sys.settrace(None)" │
00:01:54 #1558 [verbose] > │ let v30 : string = $" print(f'{v15} / result: {{s}} / count: │
00:01:54 #1559 [verbose] > │ {{count}}', flush=True)" │
00:01:54 #1560 [verbose] > │ let v31 : string = $" except ValueError as e:" │
00:01:54 #1561 [verbose] > │ let v32 : string = $" if s.real == 1:" │
00:01:54 #1562 [verbose] > │ let v33 : string = $" s = complex(float('inf'), 0)" │
00:01:54 #1563 [verbose] > │ let v34 : string = $" return (s.real, s.imag)" │
00:01:54 #1564 [verbose] > │ let v35 : (string []) = [|v3; v4; v5; v6; v7; v8; v9; v10; v11; v12; │
00:01:54 #1565 [verbose] > │ v13; v14; v16; v17; v18; v19; v20; v21; v22; v23; v24; v25; v26; v27; v1; │
00:01:54 #1566 [verbose] > │ v28; v29; v30; v31; v32; v33; v34|] │
00:01:54 #1567 [verbose] > │ let v36 : string = method5(v35) │
00:01:54 #1568 [verbose] > │ let v37 : num_complex_Complex<float> = method7(v2) │
00:01:54 #1569 [verbose] > │ let v38 : string = "v37.re" │
00:01:54 #1570 [verbose] > │ let v39 : float = Fable.Core.RustInterop.emitRustExpr () v38 │
00:01:54 #1571 [verbose] > │ let v40 : num_complex_Complex<float> = method8(v2) │
00:01:54 #1572 [verbose] > │ let v41 : string = "v40.im" │
00:01:54 #1573 [verbose] > │ let v42 : float = Fable.Core.RustInterop.emitRustExpr () v41 │
00:01:54 #1574 [verbose] > │ let v43 : (float * float) = v39, v42 │
00:01:54 #1575 [verbose] > │ let v44 : (bool * (float * float)) = false, v43 │
00:01:54 #1576 [verbose] > │ let v45 : pyo3_Python = method9(v0) │
00:01:54 #1577 [verbose] > │ let v46 : string = "fable_library_rust::String_::LrcStr::as_str(&$0)" │
00:01:54 #1578 [verbose] > │ let v47 : Ref<Str> = Fable.Core.RustInterop.emitRustExpr v36 v46 │
00:01:54 #1579 [verbose] > │ let v48 : string = "pyo3::types::PyModule::from_code_bound(v45, v47, │
00:01:54 #1580 [verbose] > │ \"\", \"\")" │
00:01:54 #1581 [verbose] > │ let v49 : Result<pyo3_Bound<pyo3_types_PyModule>, pyo3_PyErr> = │
00:01:54 #1582 [verbose] > │ Fable.Core.RustInterop.emitRustExpr () v48 │
00:01:54 #1583 [verbose] > │ let v50 : (pyo3_PyErr -> std_string_String) = method10() │
00:01:54 #1584 [verbose] > │ let v51 : Result<pyo3_Bound<pyo3_types_PyModule>, pyo3_PyErr> = │
00:01:54 #1585 [verbose] > │ method11(v49) │
00:01:54 #1586 [verbose] > │ let v52 : string = "v51.map_err(|x| v50(x))" │
00:01:54 #1587 [verbose] > │ let v53 : Result<pyo3_Bound<pyo3_types_PyModule>, std_string_String> = │
00:01:54 #1588 [verbose] > │ Fable.Core.RustInterop.emitRustExpr () v52 │
00:01:54 #1589 [verbose] > │ let v54 : Result<pyo3_Bound<pyo3_types_PyModule>, std_string_String> = │
00:01:54 #1590 [verbose] > │ method12(v53) │
00:01:54 #1591 [verbose] > │ let v55 : string = "v54.unwrap()" │
00:01:54 #1592 [verbose] > │ let v56 : pyo3_Bound<pyo3_types_PyModule> = │
00:01:54 #1593 [verbose] > │ Fable.Core.RustInterop.emitRustExpr () v55 │
00:01:54 #1594 [verbose] > │ let v57 : string = method13() │
00:01:54 #1595 [verbose] > │ let v58 : string = "fable_library_rust::String_::LrcStr::as_str(&$0)" │
00:01:54 #1596 [verbose] > │ let v59 : Ref<Str> = Fable.Core.RustInterop.emitRustExpr v57 v58 │
00:01:54 #1597 [verbose] > │ let v60 : pyo3_Bound<pyo3_types_PyModule> = method14(v56) │
00:01:54 #1598 [verbose] > │ let v61 : string = "v60.getattr(v59)" │
00:01:54 #1599 [verbose] > │ let v62 : Result<pyo3_Bound<pyo3_PyAny>, pyo3_PyErr> = │
00:01:54 #1600 [verbose] > │ Fable.Core.RustInterop.emitRustExpr () v61 │
00:01:54 #1601 [verbose] > │ let v63 : (pyo3_PyErr -> std_string_String) = method15() │
00:01:54 #1602 [verbose] > │ let v64 : Result<pyo3_Bound<pyo3_PyAny>, pyo3_PyErr> = method16(v62) │
00:01:54 #1603 [verbose] > │ let v65 : string = "v64.map_err(|x| v63(x))" │
00:01:54 #1604 [verbose] > │ let v66 : Result<pyo3_Bound<pyo3_PyAny>, std_string_String> = │
00:01:54 #1605 [verbose] > │ Fable.Core.RustInterop.emitRustExpr () v65 │
00:01:54 #1606 [verbose] > │ let v67 : Result<pyo3_Bound<pyo3_PyAny>, std_string_String> = │
00:01:54 #1607 [verbose] > │ method17(v66) │
00:01:54 #1608 [verbose] > │ let v68 : string = "v67.unwrap()" │
00:01:54 #1609 [verbose] > │ let v69 : pyo3_Bound<pyo3_PyAny> = Fable.Core.RustInterop.emitRustExpr │
00:01:54 #1610 [verbose] > │ () v68 │
00:01:54 #1611 [verbose] > │ let v70 : (bool * (float * float)) = method18(v44) │
00:01:54 #1612 [verbose] > │ let v71 : pyo3_Bound<pyo3_PyAny> = method19(v69) │
00:01:54 #1613 [verbose] > │ let v72 : string = "pyo3::prelude::PyAnyMethods::call(&v71, ((*v70).0, │
00:01:54 #1614 [verbose] > │ *(*v70).1), None)" │
00:01:54 #1615 [verbose] > │ let v73 : Result<pyo3_Bound<pyo3_PyAny>, pyo3_PyErr> = │
00:01:54 #1616 [verbose] > │ Fable.Core.RustInterop.emitRustExpr () v72 │
00:01:54 #1617 [verbose] > │ let v74 : (pyo3_PyErr -> std_string_String) = method20() │
00:01:54 #1618 [verbose] > │ let v75 : Result<pyo3_Bound<pyo3_PyAny>, pyo3_PyErr> = method16(v73) │
00:01:54 #1619 [verbose] > │ let v76 : string = "v75.map_err(|x| v74(x))" │
00:01:54 #1620 [verbose] > │ let v77 : Result<pyo3_Bound<pyo3_PyAny>, std_string_String> = │
00:01:54 #1621 [verbose] > │ Fable.Core.RustInterop.emitRustExpr () v76 │
00:01:54 #1622 [verbose] > │ let v78 : string = "v77?" │
00:01:54 #1623 [verbose] > │ let v79 : pyo3_Bound<pyo3_PyAny> = Fable.Core.RustInterop.emitRustExpr │
00:01:54 #1624 [verbose] > │ () v78 │
00:01:54 #1625 [verbose] > │ let v80 : pyo3_Bound<pyo3_PyAny> = method21(v79) │
00:01:54 #1626 [verbose] > │ let v81 : string = "v80.extract()" │
00:01:54 #1627 [verbose] > │ let v82 : Result<struct (float * float), pyo3_PyErr> = │
00:01:54 #1628 [verbose] > │ Fable.Core.RustInterop.emitRustExpr () v81 │
00:01:54 #1629 [verbose] > │ let v83 : (pyo3_PyErr -> std_string_String) = method22() │
00:01:54 #1630 [verbose] > │ let v84 : Result<struct (float * float), pyo3_PyErr> = method23(v82) │
00:01:54 #1631 [verbose] > │ let v85 : string = "v84.map_err(|x| v83(x))" │
00:01:54 #1632 [verbose] > │ let v86 : Result<struct (float * float), std_string_String> = │
00:01:54 #1633 [verbose] > │ Fable.Core.RustInterop.emitRustExpr () v85 │
00:01:54 #1634 [verbose] > │ let v87 : string = "v86?" │
00:01:54 #1635 [verbose] > │ let struct (v88 : float, v89 : float) = │
00:01:54 #1636 [verbose] > │ Fable.Core.RustInterop.emitRustExpr () v87 │
00:01:54 #1637 [verbose] > │ let v90 : string = "num_complex::Complex::new($0, $1)" │
00:01:54 #1638 [verbose] > │ let v91 : num_complex_Complex<float> = │
00:01:54 #1639 [verbose] > │ Fable.Core.RustInterop.emitRustExpr struct (v88, v89) v90 │
00:01:54 #1640 [verbose] > │ let v92 : Result<num_complex_Complex<float>, std_string_String> = Ok v91 │
00:01:54 #1641 [verbose] > │ v92 │
00:01:54 #1642 [verbose] > │ and method25 (v0 : Mut0) : bool = │
00:01:54 #1643 [verbose] > │ let v1 : int32 = v0.l0 │
00:01:54 #1644 [verbose] > │ let v2 : bool = v1 < 10000 │
00:01:54 #1645 [verbose] > │ v2 │
00:01:54 #1646 [verbose] > │ and method26 (v0 : int32, v1 : Mut2) : bool = │
00:01:54 #1647 [verbose] > │ let v2 : int32 = v1.l0 │
00:01:54 #1648 [verbose] > │ let v3 : bool = v2 < v0 │
00:01:54 #1649 [verbose] > │ v3 │
00:01:54 #1650 [verbose] > │ and method27 (v0 : num_complex_Complex<float>) : num_complex_Complex<float> │
00:01:54 #1651 [verbose] > │ = │
00:01:54 #1652 [verbose] > │ v0 │
00:01:54 #1653 [verbose] > │ and method28 (v0 : num_complex_Complex<float>) : num_complex_Complex<float> │
00:01:54 #1654 [verbose] > │ = │
00:01:54 #1655 [verbose] > │ v0 │
00:01:54 #1656 [verbose] > │ and method29 (v0 : pyo3_Python, v1 : string, v2 : │
00:01:54 #1657 [verbose] > │ num_complex_Complex<float>) : Result<num_complex_Complex<float>, │
00:01:54 #1658 [verbose] > │ std_string_String> = │
00:01:54 #1659 [verbose] > │ let v3 : string = $"import sys" │
00:01:54 #1660 [verbose] > │ let v4 : string = $"import traceback" │
00:01:54 #1661 [verbose] > │ let v5 : string = $"import re" │
00:01:54 #1662 [verbose] > │ let v6 : string = $"count = 0" │
00:01:54 #1663 [verbose] > │ let v7 : string = $"memory_address_pattern = re.compile(r' at 0x[ │
00:01:54 #1664 [verbose] > │ 0-9a-fA-F]+')" │
00:01:54 #1665 [verbose] > │ let v8 : string = $"def trace_calls(frame, event, arg):" │
00:01:54 #1666 [verbose] > │ let v9 : string = $" global count" │
00:01:54 #1667 [verbose] > │ let v10 : string = $" count += 1" │
00:01:54 #1668 [verbose] > │ let v11 : string = $" if count < 200:" │
00:01:54 #1669 [verbose] > │ let v12 : string = $" try:" │
00:01:54 #1670 [verbose] > │ let v13 : string = $" args = {{ k: v for k, v in │
00:01:54 #1671 [verbose] > │ frame.f_locals.items() if frame.f_code.co_name != 'make_mpc' and k not in [ │
00:01:54 #1672 [verbose] > │ 'ctx'] and not callable(v) }}" │
00:01:54 #1673 [verbose] > │ let v14 : string = $" args_str = ', '.join([ │
00:01:54 #1674 [verbose] > │ f\"{{k}}={{re.sub(memory_address_pattern, ' at 0x<?>', repr(v))}}\" for k, v │
00:01:54 #1675 [verbose] > │ in args.items() ])" │
00:01:54 #1676 [verbose] > │ let v15 : string = "gamma_" │
00:01:54 #1677 [verbose] > │ let v16 : string = $" print(f\"{{event}}({v15}) / │
00:01:54 #1678 [verbose] > │ f_code.co_name: {{frame.f_code.co_name}} / f_locals: {{args_str}} / │
00:01:54 #1679 [verbose] > │ f_lineno: {{frame.f_lineno}} / f_code.co_filename: │
00:01:54 #1680 [verbose] > │ {{frame.f_code.co_filename.split('site-packages')[-1]}} / f_back.f_lineno: │
00:01:54 #1681 [verbose] > │ {{ '' if frame.f_back is None else frame.f_back.f_lineno }} / │
00:01:54 #1682 [verbose] > │ f_back.f_code.co_filename: {{ '' if frame.f_back is None else │
00:01:54 #1683 [verbose] > │ frame.f_back.f_code.co_filename.split('site-packages')[-1] }} / arg: │
00:01:54 #1684 [verbose] > │ {{re.sub(memory_address_pattern, ' at 0x<?>', repr(arg))}}\", flush=True)" │
00:01:54 #1685 [verbose] > │ let v17 : string = $" except ValueError as e:" │
00:01:54 #1686 [verbose] > │ let v18 : string = $" print(f'{v15} / e: {{e}}', flush=True)" │
00:01:54 #1687 [verbose] > │ let v19 : string = $" return trace_calls" │
00:01:54 #1688 [verbose] > │ let v20 : string = $"import mpmath" │
00:01:54 #1689 [verbose] > │ let v21 : string = $"def fn(log, s):" │
00:01:54 #1690 [verbose] > │ let v22 : string = $" global count" │
00:01:54 #1691 [verbose] > │ let v23 : string = $" if log:" │
00:01:54 #1692 [verbose] > │ let v24 : string = $" print(f'{v15} / s: {{s}} / count: │
00:01:54 #1693 [verbose] > │ {{count}}', flush=True)" │
00:01:54 #1694 [verbose] > │ let v25 : string = $" s = complex(*s)" │
00:01:54 #1695 [verbose] > │ let v26 : string = $" try:" │
00:01:54 #1696 [verbose] > │ let v27 : string = $" if log: sys.settrace(trace_calls)" │
00:01:54 #1697 [verbose] > │ let v28 : string = $" if log:" │
00:01:54 #1698 [verbose] > │ let v29 : string = $" sys.settrace(None)" │
00:01:54 #1699 [verbose] > │ let v30 : string = $" print(f'{v15} / result: {{s}} / count: │
00:01:54 #1700 [verbose] > │ {{count}}', flush=True)" │
00:01:54 #1701 [verbose] > │ let v31 : string = $" except ValueError as e:" │
00:01:54 #1702 [verbose] > │ let v32 : string = $" if s.real == 1:" │
00:01:54 #1703 [verbose] > │ let v33 : string = $" s = complex(float('inf'), 0)" │
00:01:54 #1704 [verbose] > │ let v34 : string = $" return (s.real, s.imag)" │
00:01:54 #1705 [verbose] > │ let v35 : (string []) = [|v3; v4; v5; v6; v7; v8; v9; v10; v11; v12; │
00:01:54 #1706 [verbose] > │ v13; v14; v16; v17; v18; v19; v20; v21; v22; v23; v24; v25; v26; v27; v1; │
00:01:54 #1707 [verbose] > │ v28; v29; v30; v31; v32; v33; v34|] │
00:01:54 #1708 [verbose] > │ let v36 : string = method5(v35) │
00:01:54 #1709 [verbose] > │ let v37 : num_complex_Complex<float> = method7(v2) │
00:01:54 #1710 [verbose] > │ let v38 : string = "v37.re" │
00:01:54 #1711 [verbose] > │ let v39 : float = Fable.Core.RustInterop.emitRustExpr () v38 │
00:01:54 #1712 [verbose] > │ let v40 : num_complex_Complex<float> = method8(v2) │
00:01:54 #1713 [verbose] > │ let v41 : string = "v40.im" │
00:01:54 #1714 [verbose] > │ let v42 : float = Fable.Core.RustInterop.emitRustExpr () v41 │
00:01:54 #1715 [verbose] > │ let v43 : (float * float) = v39, v42 │
00:01:54 #1716 [verbose] > │ let v44 : (bool * (float * float)) = false, v43 │
00:01:54 #1717 [verbose] > │ let v45 : pyo3_Python = method9(v0) │
00:01:54 #1718 [verbose] > │ let v46 : string = "fable_library_rust::String_::LrcStr::as_str(&$0)" │
00:01:54 #1719 [verbose] > │ let v47 : Ref<Str> = Fable.Core.RustInterop.emitRustExpr v36 v46 │
00:01:54 #1720 [verbose] > │ let v48 : string = "pyo3::types::PyModule::from_code_bound(v45, v47, │
00:01:54 #1721 [verbose] > │ \"\", \"\")" │
00:01:54 #1722 [verbose] > │ let v49 : Result<pyo3_Bound<pyo3_types_PyModule>, pyo3_PyErr> = │
00:01:54 #1723 [verbose] > │ Fable.Core.RustInterop.emitRustExpr () v48 │
00:01:54 #1724 [verbose] > │ let v50 : (pyo3_PyErr -> std_string_String) = method10() │
00:01:54 #1725 [verbose] > │ let v51 : Result<pyo3_Bound<pyo3_types_PyModule>, pyo3_PyErr> = │
00:01:54 #1726 [verbose] > │ method11(v49) │
00:01:54 #1727 [verbose] > │ let v52 : string = "v51.map_err(|x| v50(x))" │
00:01:54 #1728 [verbose] > │ let v53 : Result<pyo3_Bound<pyo3_types_PyModule>, std_string_String> = │
00:01:54 #1729 [verbose] > │ Fable.Core.RustInterop.emitRustExpr () v52 │
00:01:54 #1730 [verbose] > │ let v54 : Result<pyo3_Bound<pyo3_types_PyModule>, std_string_String> = │
00:01:54 #1731 [verbose] > │ method12(v53) │
00:01:54 #1732 [verbose] > │ let v55 : string = "v54.unwrap()" │
00:01:54 #1733 [verbose] > │ let v56 : pyo3_Bound<pyo3_types_PyModule> = │
00:01:54 #1734 [verbose] > │ Fable.Core.RustInterop.emitRustExpr () v55 │
00:01:54 #1735 [verbose] > │ let v57 : string = method13() │
00:01:54 #1736 [verbose] > │ let v58 : string = "fable_library_rust::String_::LrcStr::as_str(&$0)" │
00:01:54 #1737 [verbose] > │ let v59 : Ref<Str> = Fable.Core.RustInterop.emitRustExpr v57 v58 │
00:01:54 #1738 [verbose] > │ let v60 : pyo3_Bound<pyo3_types_PyModule> = method14(v56) │
00:01:54 #1739 [verbose] > │ let v61 : string = "v60.getattr(v59)" │
00:01:54 #1740 [verbose] > │ let v62 : Result<pyo3_Bound<pyo3_PyAny>, pyo3_PyErr> = │
00:01:54 #1741 [verbose] > │ Fable.Core.RustInterop.emitRustExpr () v61 │
00:01:54 #1742 [verbose] > │ let v63 : (pyo3_PyErr -> std_string_String) = method15() │
00:01:54 #1743 [verbose] > │ let v64 : Result<pyo3_Bound<pyo3_PyAny>, pyo3_PyErr> = method16(v62) │
00:01:54 #1744 [verbose] > │ let v65 : string = "v64.map_err(|x| v63(x))" │
00:01:54 #1745 [verbose] > │ let v66 : Result<pyo3_Bound<pyo3_PyAny>, std_string_String> = │
00:01:54 #1746 [verbose] > │ Fable.Core.RustInterop.emitRustExpr () v65 │
00:01:54 #1747 [verbose] > │ let v67 : Result<pyo3_Bound<pyo3_PyAny>, std_string_String> = │
00:01:54 #1748 [verbose] > │ method17(v66) │
00:01:54 #1749 [verbose] > │ let v68 : string = "v67.unwrap()" │
00:01:54 #1750 [verbose] > │ let v69 : pyo3_Bound<pyo3_PyAny> = Fable.Core.RustInterop.emitRustExpr │
00:01:54 #1751 [verbose] > │ () v68 │
00:01:54 #1752 [verbose] > │ let v70 : (bool * (float * float)) = method18(v44) │
00:01:54 #1753 [verbose] > │ let v71 : pyo3_Bound<pyo3_PyAny> = method19(v69) │
00:01:54 #1754 [verbose] > │ let v72 : string = "pyo3::prelude::PyAnyMethods::call(&v71, ((*v70).0, │
00:01:54 #1755 [verbose] > │ *(*v70).1), None)" │
00:01:54 #1756 [verbose] > │ let v73 : Result<pyo3_Bound<pyo3_PyAny>, pyo3_PyErr> = │
00:01:54 #1757 [verbose] > │ Fable.Core.RustInterop.emitRustExpr () v72 │
00:01:54 #1758 [verbose] > │ let v74 : (pyo3_PyErr -> std_string_String) = method20() │
00:01:54 #1759 [verbose] > │ let v75 : Result<pyo3_Bound<pyo3_PyAny>, pyo3_PyErr> = method16(v73) │
00:01:54 #1760 [verbose] > │ let v76 : string = "v75.map_err(|x| v74(x))" │
00:01:54 #1761 [verbose] > │ let v77 : Result<pyo3_Bound<pyo3_PyAny>, std_string_String> = │
00:01:54 #1762 [verbose] > │ Fable.Core.RustInterop.emitRustExpr () v76 │
00:01:54 #1763 [verbose] > │ let v78 : string = "v77?" │
00:01:54 #1764 [verbose] > │ let v79 : pyo3_Bound<pyo3_PyAny> = Fable.Core.RustInterop.emitRustExpr │
00:01:54 #1765 [verbose] > │ () v78 │
00:01:54 #1766 [verbose] > │ let v80 : pyo3_Bound<pyo3_PyAny> = method21(v79) │
00:01:54 #1767 [verbose] > │ let v81 : string = "v80.extract()" │
00:01:54 #1768 [verbose] > │ let v82 : Result<struct (float * float), pyo3_PyErr> = │
00:01:54 #1769 [verbose] > │ Fable.Core.RustInterop.emitRustExpr () v81 │
00:01:54 #1770 [verbose] > │ let v83 : (pyo3_PyErr -> std_string_String) = method22() │
00:01:54 #1771 [verbose] > │ let v84 : Result<struct (float * float), pyo3_PyErr> = method23(v82) │
00:01:54 #1772 [verbose] > │ let v85 : string = "v84.map_err(|x| v83(x))" │
00:01:54 #1773 [verbose] > │ let v86 : Result<struct (float * float), std_string_String> = │
00:01:54 #1774 [verbose] > │ Fable.Core.RustInterop.emitRustExpr () v85 │
00:01:54 #1775 [verbose] > │ let v87 : string = "v86?" │
00:01:54 #1776 [verbose] > │ let struct (v88 : float, v89 : float) = │
00:01:54 #1777 [verbose] > │ Fable.Core.RustInterop.emitRustExpr () v87 │
00:01:54 #1778 [verbose] > │ let v90 : string = "num_complex::Complex::new($0, $1)" │
00:01:54 #1779 [verbose] > │ let v91 : num_complex_Complex<float> = │
00:01:54 #1780 [verbose] > │ Fable.Core.RustInterop.emitRustExpr struct (v88, v89) v90 │
00:01:54 #1781 [verbose] > │ let v92 : Result<num_complex_Complex<float>, std_string_String> = Ok v91 │
00:01:54 #1782 [verbose] > │ v92 │
00:01:54 #1783 [verbose] > │ and closure5 () (v0 : num_complex_Complex<float>) : US0 = │
00:01:54 #1784 [verbose] > │ US0_0(v0) │
00:01:54 #1785 [verbose] > │ and method30 () : (num_complex_Complex<float> -> US0) = │
00:01:54 #1786 [verbose] > │ closure5() │
00:01:54 #1787 [verbose] > │ and method24 (v0 : pyo3_Python, v1 : num_complex_Complex<float>) : │
00:01:54 #1788 [verbose] > │ num_complex_Complex<float> = │
00:01:54 #1789 [verbose] > │ let v2 : string = "println!(\"zeta / count: {:?} / s: {:?}\", 0, $0)" │
00:01:54 #1790 [verbose] > │ Fable.Core.RustInterop.emitRustExpr v1 v2 │
00:01:54 #1791 [verbose] > │ let v3 : num_complex_Complex<float> = method7(v1) │
00:01:54 #1792 [verbose] > │ let v4 : string = "v3.re" │
00:01:54 #1793 [verbose] > │ let v5 : float = Fable.Core.RustInterop.emitRustExpr () v4 │
00:01:54 #1794 [verbose] > │ let v6 : bool = v5 > 1.0 │
00:01:54 #1795 [verbose] > │ if v6 then │
00:01:54 #1796 [verbose] > │ let v7 : string = "num_complex::Complex::new($0, $1)" │
00:01:54 #1797 [verbose] > │ let v8 : num_complex_Complex<float> = │
00:01:54 #1798 [verbose] > │ Fable.Core.RustInterop.emitRustExpr struct (0.0, 0.0) v7 │
00:01:54 #1799 [verbose] > │ let v9 : (int32 []) = Array.zeroCreate<int32> (10000) │
00:01:54 #1800 [verbose] > │ let v10 : Mut0 = {l0 = 0} : Mut0 │
00:01:54 #1801 [verbose] > │ while method25(v10) do │
00:01:54 #1802 [verbose] > │ let v12 : int32 = v10.l0 │
00:01:54 #1803 [verbose] > │ v9.[int v12] <- v12 │
00:01:54 #1804 [verbose] > │ let v13 : int32 = v12 + 1 │
00:01:54 #1805 [verbose] > │ v10.l0 <- v13 │
00:01:54 #1806 [verbose] > │ () │
00:01:54 #1807 [verbose] > │ let v14 : int32 = v9.Length │
00:01:54 #1808 [verbose] > │ let v15 : Mut2 = {l0 = 0; l1 = v8} : Mut2 │
00:01:54 #1809 [verbose] > │ while method26(v14, v15) do │
00:01:54 #1810 [verbose] > │ let v17 : int32 = v15.l0 │
00:01:54 #1811 [verbose] > │ let v18 : num_complex_Complex<float> = v15.l1 │
00:01:54 #1812 [verbose] > │ let v19 : int32 = v9.[int v17] │
00:01:54 #1813 [verbose] > │ let v20 : string = "num_complex::Complex::new($0, $1)" │
00:01:54 #1814 [verbose] > │ let v21 : num_complex_Complex<float> = │
00:01:54 #1815 [verbose] > │ Fable.Core.RustInterop.emitRustExpr struct (1.0, 0.0) v20 │
00:01:54 #1816 [verbose] > │ let v22 : float = float v19 │
00:01:54 #1817 [verbose] > │ let v23 : string = "num_complex::Complex::new($0, $1)" │
00:01:54 #1818 [verbose] > │ let v24 : num_complex_Complex<float> = │
00:01:54 #1819 [verbose] > │ Fable.Core.RustInterop.emitRustExpr struct (v22, 0.0) v23 │
00:01:54 #1820 [verbose] > │ let v25 : num_complex_Complex<float> = method27(v24) │
00:01:54 #1821 [verbose] > │ let v26 : num_complex_Complex<float> = method28(v1) │
00:01:54 #1822 [verbose] > │ let v27 : string = "num_complex::Complex::powc(v25, v26)" │
00:01:54 #1823 [verbose] > │ let v28 : num_complex_Complex<float> = │
00:01:54 #1824 [verbose] > │ Fable.Core.RustInterop.emitRustExpr () v27 │
00:01:54 #1825 [verbose] > │ let v29 : string = "v21 / v28" │
00:01:54 #1826 [verbose] > │ let v30 : num_complex_Complex<float> = │
00:01:54 #1827 [verbose] > │ Fable.Core.RustInterop.emitRustExpr () v29 │
00:01:54 #1828 [verbose] > │ let v31 : string = "v18 + v30" │
00:01:54 #1829 [verbose] > │ let v32 : num_complex_Complex<float> = │
00:01:54 #1830 [verbose] > │ Fable.Core.RustInterop.emitRustExpr () v31 │
00:01:54 #1831 [verbose] > │ let v33 : int32 = v17 + 1 │
00:01:54 #1832 [verbose] > │ v15.l0 <- v33 │
00:01:54 #1833 [verbose] > │ v15.l1 <- v32 │
00:01:54 #1834 [verbose] > │ () │
00:01:54 #1835 [verbose] > │ let v34 : num_complex_Complex<float> = v15.l1 │
00:01:54 #1836 [verbose] > │ v34 │
00:01:54 #1837 [verbose] > │ else │
00:01:54 #1838 [verbose] > │ let v35 : string = "num_complex::Complex::new($0, $1)" │
00:01:54 #1839 [verbose] > │ let v36 : num_complex_Complex<float> = │
00:01:54 #1840 [verbose] > │ Fable.Core.RustInterop.emitRustExpr struct (1.0, 0.0) v35 │
00:01:54 #1841 [verbose] > │ let v37 : string = "$0 - $1" │
00:01:54 #1842 [verbose] > │ let v38 : num_complex_Complex<float> = │
00:01:54 #1843 [verbose] > │ Fable.Core.RustInterop.emitRustExpr struct (v36, v1) v37 │
00:01:54 #1844 [verbose] > │ let v39 : string = $" s = mpmath.gamma(s)" │
00:01:54 #1845 [verbose] > │ let v40 : num_complex_Complex<float> = method3(v38) │
00:01:54 #1846 [verbose] > │ let v41 : Result<num_complex_Complex<float>, std_string_String> = │
00:01:54 #1847 [verbose] > │ method29(v0, v39, v40) │
00:01:54 #1848 [verbose] > │ let v42 : string = "v41.ok()" │
00:01:54 #1849 [verbose] > │ let v43 : num_complex_Complex<float> option = │
00:01:54 #1850 [verbose] > │ Fable.Core.RustInterop.emitRustExpr () v42 │
00:01:54 #1851 [verbose] > │ let v44 : (num_complex_Complex<float> -> US0) = method30() │
00:01:54 #1852 [verbose] > │ let v45 : US0 = US0_1 │
00:01:54 #1853 [verbose] > │ let v46 : US0 = v43 |> Option.map v44 |> Option.defaultValue v45 │
00:01:54 #1854 [verbose] > │ let v47 : string = "f64::NAN" │
00:01:54 #1855 [verbose] > │ let v48 : float = Fable.Core.RustInterop.emitRustExpr () v47 │
00:01:54 #1856 [verbose] > │ let v49 : string = "f64::NAN" │
00:01:54 #1857 [verbose] > │ let v50 : float = Fable.Core.RustInterop.emitRustExpr () v49 │
00:01:54 #1858 [verbose] > │ let v51 : string = "num_complex::Complex::new($0, $1)" │
00:01:54 #1859 [verbose] > │ let v52 : num_complex_Complex<float> = │
00:01:54 #1860 [verbose] > │ Fable.Core.RustInterop.emitRustExpr struct (v48, v50) v51 │
00:01:54 #1861 [verbose] > │ let v55 : num_complex_Complex<float> = │
00:01:54 #1862 [verbose] > │ match v46 with │
00:01:54 #1863 [verbose] > │ | US0_1 -> (* None *) │
00:01:54 #1864 [verbose] > │ v52 │
00:01:54 #1865 [verbose] > │ | US0_0(v53) -> (* Some *) │
00:01:54 #1866 [verbose] > │ v53 │
00:01:54 #1867 [verbose] > │ let v56 : string = "num_complex::Complex::new($0, $1)" │
00:01:54 #1868 [verbose] > │ let v57 : num_complex_Complex<float> = │
00:01:54 #1869 [verbose] > │ Fable.Core.RustInterop.emitRustExpr struct (3.141592653589793, 0.0) v56 │
00:01:54 #1870 [verbose] > │ let v58 : string = "$0 * $1" │
00:01:54 #1871 [verbose] > │ let v59 : num_complex_Complex<float> = │
00:01:54 #1872 [verbose] > │ Fable.Core.RustInterop.emitRustExpr struct (v57, v1) v58 │
00:01:54 #1873 [verbose] > │ let v60 : string = "num_complex::Complex::new($0, $1)" │
00:01:54 #1874 [verbose] > │ let v61 : num_complex_Complex<float> = │
00:01:54 #1875 [verbose] > │ Fable.Core.RustInterop.emitRustExpr struct (2.0, 0.0) v60 │
00:01:54 #1876 [verbose] > │ let v62 : string = "v59 / v61" │
00:01:54 #1877 [verbose] > │ let v63 : num_complex_Complex<float> = │
00:01:54 #1878 [verbose] > │ Fable.Core.RustInterop.emitRustExpr () v62 │
00:01:54 #1879 [verbose] > │ let v64 : string = "v63.sin()" │
00:01:54 #1880 [verbose] > │ let v65 : num_complex_Complex<float> = │
00:01:54 #1881 [verbose] > │ Fable.Core.RustInterop.emitRustExpr () v64 │
00:01:54 #1882 [verbose] > │ let v66 : num_complex_Complex<float> = method7(v1) │
00:01:54 #1883 [verbose] > │ let v67 : string = "v66.re" │
00:01:54 #1884 [verbose] > │ let v68 : float = Fable.Core.RustInterop.emitRustExpr () v67 │
00:01:54 #1885 [verbose] > │ let v69 : float = 1.0 - v68 │
00:01:54 #1886 [verbose] > │ let v70 : num_complex_Complex<float> = method8(v1) │
00:01:54 #1887 [verbose] > │ let v71 : string = "v70.im" │
00:01:54 #1888 [verbose] > │ let v72 : float = Fable.Core.RustInterop.emitRustExpr () v71 │
00:01:54 #1889 [verbose] > │ let v73 : float = -v72 │
00:01:54 #1890 [verbose] > │ let v74 : string = "num_complex::Complex::new($0, $1)" │
00:01:54 #1891 [verbose] > │ let v75 : num_complex_Complex<float> = │
00:01:54 #1892 [verbose] > │ Fable.Core.RustInterop.emitRustExpr struct (v69, v73) v74 │
00:01:54 #1893 [verbose] > │ let v76 : num_complex_Complex<float> = method7(v75) │
00:01:54 #1894 [verbose] > │ let v77 : string = "v76.re" │
00:01:54 #1895 [verbose] > │ let v78 : float = Fable.Core.RustInterop.emitRustExpr () v77 │
00:01:54 #1896 [verbose] > │ let v79 : bool = v78 <= 1.0 │
00:01:54 #1897 [verbose] > │ let v474 : num_complex_Complex<float> = │
00:01:54 #1898 [verbose] > │ if v79 then │
00:01:54 #1899 [verbose] > │ let v80 : string = "num_complex::Complex::new($0, $1)" │
00:01:54 #1900 [verbose] > │ let v81 : num_complex_Complex<float> = │
00:01:54 #1901 [verbose] > │ Fable.Core.RustInterop.emitRustExpr struct (0.0, 0.0) v80 │
00:01:54 #1902 [verbose] > │ v81 │
00:01:54 #1903 [verbose] > │ else │
00:01:54 #1904 [verbose] > │ let v82 : string = "println!(\"zeta / count: {:?} / s: │
00:01:54 #1905 [verbose] > │ {:?}\", 1, $0)" │
00:01:54 #1906 [verbose] > │ Fable.Core.RustInterop.emitRustExpr v75 v82 │
00:01:54 #1907 [verbose] > │ let v83 : num_complex_Complex<float> = method7(v75) │
00:01:54 #1908 [verbose] > │ let v84 : string = "v83.re" │
00:01:54 #1909 [verbose] > │ let v85 : float = Fable.Core.RustInterop.emitRustExpr () v84 │
00:01:54 #1910 [verbose] > │ let v86 : bool = v85 > 1.0 │
00:01:54 #1911 [verbose] > │ if v86 then │
00:01:54 #1912 [verbose] > │ let v87 : string = "num_complex::Complex::new($0, $1)" │
00:01:54 #1913 [verbose] > │ let v88 : num_complex_Complex<float> = │
00:01:54 #1914 [verbose] > │ Fable.Core.RustInterop.emitRustExpr struct (0.0, 0.0) v87 │
00:01:54 #1915 [verbose] > │ let v89 : (int32 []) = Array.zeroCreate<int32> (10000) │
00:01:54 #1916 [verbose] > │ let v90 : Mut0 = {l0 = 0} : Mut0 │
00:01:54 #1917 [verbose] > │ while method25(v90) do │
00:01:54 #1918 [verbose] > │ let v92 : int32 = v90.l0 │
00:01:54 #1919 [verbose] > │ v89.[int v92] <- v92 │
00:01:54 #1920 [verbose] > │ let v93 : int32 = v92 + 1 │
00:01:54 #1921 [verbose] > │ v90.l0 <- v93 │
00:01:54 #1922 [verbose] > │ () │
00:01:54 #1923 [verbose] > │ let v94 : int32 = v89.Length │
00:01:54 #1924 [verbose] > │ let v95 : Mut2 = {l0 = 0; l1 = v88} : Mut2 │
00:01:54 #1925 [verbose] > │ while method26(v94, v95) do │
00:01:54 #1926 [verbose] > │ let v97 : int32 = v95.l0 │
00:01:54 #1927 [verbose] > │ let v98 : num_complex_Complex<float> = v95.l1 │
00:01:54 #1928 [verbose] > │ let v99 : int32 = v89.[int v97] │
00:01:54 #1929 [verbose] > │ let v100 : string = "num_complex::Complex::new($0, │
00:01:54 #1930 [verbose] > │ $1)" │
00:01:54 #1931 [verbose] > │ let v101 : num_complex_Complex<float> = │
00:01:54 #1932 [verbose] > │ Fable.Core.RustInterop.emitRustExpr struct (1.0, 0.0) v100 │
00:01:54 #1933 [verbose] > │ let v102 : float = float v99 │
00:01:54 #1934 [verbose] > │ let v103 : string = "num_complex::Complex::new($0, │
00:01:54 #1935 [verbose] > │ $1)" │
00:01:54 #1936 [verbose] > │ let v104 : num_complex_Complex<float> = │
00:01:54 #1937 [verbose] > │ Fable.Core.RustInterop.emitRustExpr struct (v102, 0.0) v103 │
00:01:54 #1938 [verbose] > │ let v105 : num_complex_Complex<float> = │
00:01:54 #1939 [verbose] > │ method27(v104) │
00:01:54 #1940 [verbose] > │ let v106 : num_complex_Complex<float> = │
00:01:54 #1941 [verbose] > │ method28(v75) │
00:01:54 #1942 [verbose] > │ let v107 : string = │
00:01:54 #1943 [verbose] > │ "num_complex::Complex::powc(v105, v106)" │
00:01:54 #1944 [verbose] > │ let v108 : num_complex_Complex<float> = │
00:01:54 #1945 [verbose] > │ Fable.Core.RustInterop.emitRustExpr () v107 │
00:01:54 #1946 [verbose] > │ let v109 : string = "v101 / v108" │
00:01:54 #1947 [verbose] > │ let v110 : num_complex_Complex<float> = │
00:01:54 #1948 [verbose] > │ Fable.Core.RustInterop.emitRustExpr () v109 │
00:01:54 #1949 [verbose] > │ let v111 : string = "v98 + v110" │
00:01:54 #1950 [verbose] > │ let v112 : num_complex_Complex<float> = │
00:01:54 #1951 [verbose] > │ Fable.Core.RustInterop.emitRustExpr () v111 │
00:01:54 #1952 [verbose] > │ let v113 : int32 = v97 + 1 │
00:01:54 #1953 [verbose] > │ v95.l0 <- v113 │
00:01:54 #1954 [verbose] > │ v95.l1 <- v112 │
00:01:54 #1955 [verbose] > │ () │
00:01:54 #1956 [verbose] > │ let v114 : num_complex_Complex<float> = v95.l1 │
00:01:54 #1957 [verbose] > │ v114 │
00:01:54 #1958 [verbose] > │ else │
00:01:54 #1959 [verbose] > │ let v115 : string = "num_complex::Complex::new($0, $1)" │
00:01:54 #1960 [verbose] > │ let v116 : num_complex_Complex<float> = │
00:01:54 #1961 [verbose] > │ Fable.Core.RustInterop.emitRustExpr struct (1.0, 0.0) v115 │
00:01:54 #1962 [verbose] > │ let v117 : string = "$0 - $1" │
00:01:54 #1963 [verbose] > │ let v118 : num_complex_Complex<float> = │
00:01:54 #1964 [verbose] > │ Fable.Core.RustInterop.emitRustExpr struct (v116, v75) v117 │
00:01:54 #1965 [verbose] > │ let v119 : string = $" s = mpmath.gamma(s)" │
00:01:54 #1966 [verbose] > │ let v120 : num_complex_Complex<float> = method3(v118) │
00:01:54 #1967 [verbose] > │ let v121 : Result<num_complex_Complex<float>, │
00:01:54 #1968 [verbose] > │ std_string_String> = method29(v0, v119, v120) │
00:01:54 #1969 [verbose] > │ let v122 : string = "v121.ok()" │
00:01:54 #1970 [verbose] > │ let v123 : num_complex_Complex<float> option = │
00:01:54 #1971 [verbose] > │ Fable.Core.RustInterop.emitRustExpr () v122 │
00:01:54 #1972 [verbose] > │ let v124 : (num_complex_Complex<float> -> US0) = │
00:01:54 #1973 [verbose] > │ method30() │
00:01:54 #1974 [verbose] > │ let v125 : US0 = US0_1 │
00:01:54 #1975 [verbose] > │ let v126 : US0 = v123 |> Option.map v124 |> │
00:01:54 #1976 [verbose] > │ Option.defaultValue v125 │
00:01:54 #1977 [verbose] > │ let v127 : string = "f64::NAN" │
00:01:54 #1978 [verbose] > │ let v128 : float = Fable.Core.RustInterop.emitRustExpr │
00:01:54 #1979 [verbose] > │ () v127 │
00:01:54 #1980 [verbose] > │ let v129 : string = "f64::NAN" │
00:01:54 #1981 [verbose] > │ let v130 : float = Fable.Core.RustInterop.emitRustExpr │
00:01:54 #1982 [verbose] > │ () v129 │
00:01:54 #1983 [verbose] > │ let v131 : string = "num_complex::Complex::new($0, $1)" │
00:01:54 #1984 [verbose] > │ let v132 : num_complex_Complex<float> = │
00:01:54 #1985 [verbose] > │ Fable.Core.RustInterop.emitRustExpr struct (v128, v130) v131 │
00:01:54 #1986 [verbose] > │ let v135 : num_complex_Complex<float> = │
00:01:54 #1987 [verbose] > │ match v126 with │
00:01:54 #1988 [verbose] > │ | US0_1 -> (* None *) │
00:01:54 #1989 [verbose] > │ v132 │
00:01:54 #1990 [verbose] > │ | US0_0(v133) -> (* Some *) │
00:01:54 #1991 [verbose] > │ v133 │
00:01:54 #1992 [verbose] > │ let v136 : string = "num_complex::Complex::new($0, $1)" │
00:01:54 #1993 [verbose] > │ let v137 : num_complex_Complex<float> = │
00:01:54 #1994 [verbose] > │ Fable.Core.RustInterop.emitRustExpr struct (3.141592653589793, 0.0) v136 │
00:01:54 #1995 [verbose] > │ let v138 : string = "$0 * $1" │
00:01:54 #1996 [verbose] > │ let v139 : num_complex_Complex<float> = │
00:01:54 #1997 [verbose] > │ Fable.Core.RustInterop.emitRustExpr struct (v137, v75) v138 │
00:01:54 #1998 [verbose] > │ let v140 : string = "num_complex::Complex::new($0, $1)" │
00:01:54 #1999 [verbose] > │ let v141 : num_complex_Complex<float> = │
00:01:54 #2000 [verbose] > │ Fable.Core.RustInterop.emitRustExpr struct (2.0, 0.0) v140 │
00:01:54 #2001 [verbose] > │ let v142 : string = "v139 / v141" │
00:01:54 #2002 [verbose] > │ let v143 : num_complex_Complex<float> = │
00:01:54 #2003 [verbose] > │ Fable.Core.RustInterop.emitRustExpr () v142 │
00:01:54 #2004 [verbose] > │ let v144 : string = "v143.sin()" │
00:01:54 #2005 [verbose] > │ let v145 : num_complex_Complex<float> = │
00:01:54 #2006 [verbose] > │ Fable.Core.RustInterop.emitRustExpr () v144 │
00:01:54 #2007 [verbose] > │ let v146 : num_complex_Complex<float> = method7(v75) │
00:01:54 #2008 [verbose] > │ let v147 : string = "v146.re" │
00:01:54 #2009 [verbose] > │ let v148 : float = Fable.Core.RustInterop.emitRustExpr │
00:01:54 #2010 [verbose] > │ () v147 │
00:01:54 #2011 [verbose] > │ let v149 : float = 1.0 - v148 │
00:01:54 #2012 [verbose] > │ let v150 : num_complex_Complex<float> = method8(v75) │
00:01:54 #2013 [verbose] > │ let v151 : string = "v150.im" │
00:01:54 #2014 [verbose] > │ let v152 : float = Fable.Core.RustInterop.emitRustExpr │
00:01:54 #2015 [verbose] > │ () v151 │
00:01:54 #2016 [verbose] > │ let v153 : float = -v152 │
00:01:54 #2017 [verbose] > │ let v154 : string = "num_complex::Complex::new($0, $1)" │
00:01:54 #2018 [verbose] > │ let v155 : num_complex_Complex<float> = │
00:01:54 #2019 [verbose] > │ Fable.Core.RustInterop.emitRustExpr struct (v149, v153) v154 │
00:01:54 #2020 [verbose] > │ let v156 : num_complex_Complex<float> = method7(v155) │
00:01:54 #2021 [verbose] > │ let v157 : string = "v156.re" │
00:01:54 #2022 [verbose] > │ let v158 : float = Fable.Core.RustInterop.emitRustExpr │
00:01:54 #2023 [verbose] > │ () v157 │
00:01:54 #2024 [verbose] > │ let v159 : bool = v158 <= 1.0 │
00:01:54 #2025 [verbose] > │ let v456 : num_complex_Complex<float> = │
00:01:54 #2026 [verbose] > │ if v159 then │
00:01:54 #2027 [verbose] > │ let v160 : string = │
00:01:54 #2028 [verbose] > │ "num_complex::Complex::new($0, $1)" │
00:01:54 #2029 [verbose] > │ let v161 : num_complex_Complex<float> = │
00:01:54 #2030 [verbose] > │ Fable.Core.RustInterop.emitRustExpr struct (0.0, 0.0) v160 │
00:01:54 #2031 [verbose] > │ v161 │
00:01:54 #2032 [verbose] > │ else │
00:01:54 #2033 [verbose] > │ let v162 : string = "println!(\"zeta / count: │
00:01:54 #2034 [verbose] > │ {:?} / s: {:?}\", 2, $0)" │
00:01:54 #2035 [verbose] > │ Fable.Core.RustInterop.emitRustExpr v155 v162 │
00:01:54 #2036 [verbose] > │ let v163 : num_complex_Complex<float> = │
00:01:54 #2037 [verbose] > │ method7(v155) │
00:01:54 #2038 [verbose] > │ let v164 : string = "v163.re" │
00:01:54 #2039 [verbose] > │ let v165 : float = │
00:01:54 #2040 [verbose] > │ Fable.Core.RustInterop.emitRustExpr () v164 │
00:01:54 #2041 [verbose] > │ let v166 : bool = v165 > 1.0 │
00:01:54 #2042 [verbose] > │ if v166 then │
00:01:54 #2043 [verbose] > │ let v167 : string = │
00:01:54 #2044 [verbose] > │ "num_complex::Complex::new($0, $1)" │
00:01:54 #2045 [verbose] > │ let v168 : num_complex_Complex<float> = │
00:01:54 #2046 [verbose] > │ Fable.Core.RustInterop.emitRustExpr struct (0.0, 0.0) v167 │
00:01:54 #2047 [verbose] > │ let v169 : (int32 []) = │
00:01:54 #2048 [verbose] > │ Array.zeroCreate<int32> (10000) │
00:01:54 #2049 [verbose] > │ let v170 : Mut0 = {l0 = 0} : Mut0 │
00:01:54 #2050 [verbose] > │ while method25(v170) do │
00:01:54 #2051 [verbose] > │ let v172 : int32 = v170.l0 │
00:01:54 #2052 [verbose] > │ v169.[int v172] <- v172 │
00:01:54 #2053 [verbose] > │ let v173 : int32 = v172 + 1 │
00:01:54 #2054 [verbose] > │ v170.l0 <- v173 │
00:01:54 #2055 [verbose] > │ () │
00:01:54 #2056 [verbose] > │ let v174 : int32 = v169.Length │
00:01:54 #2057 [verbose] > │ let v175 : Mut2 = {l0 = 0; l1 = v168} : Mut2 │
00:01:54 #2058 [verbose] > │ while method26(v174, v175) do │
00:01:54 #2059 [verbose] > │ let v177 : int32 = v175.l0 │
00:01:54 #2060 [verbose] > │ let v178 : num_complex_Complex<float> = │
00:01:54 #2061 [verbose] > │ v175.l1 │
00:01:54 #2062 [verbose] > │ let v179 : int32 = v169.[int v177] │
00:01:54 #2063 [verbose] > │ let v180 : string = │
00:01:54 #2064 [verbose] > │ "num_complex::Complex::new($0, $1)" │
00:01:54 #2065 [verbose] > │ let v181 : num_complex_Complex<float> = │
00:01:54 #2066 [verbose] > │ Fable.Core.RustInterop.emitRustExpr struct (1.0, 0.0) v180 │
00:01:54 #2067 [verbose] > │ let v182 : float = float v179 │
00:01:54 #2068 [verbose] > │ let v183 : string = │
00:01:54 #2069 [verbose] > │ "num_complex::Complex::new($0, $1)" │
00:01:54 #2070 [verbose] > │ let v184 : num_complex_Complex<float> = │
00:01:54 #2071 [verbose] > │ Fable.Core.RustInterop.emitRustExpr struct (v182, 0.0) v183 │
00:01:54 #2072 [verbose] > │ let v185 : num_complex_Complex<float> = │
00:01:54 #2073 [verbose] > │ method27(v184) │
00:01:54 #2074 [verbose] > │ let v186 : num_complex_Complex<float> = │
00:01:54 #2075 [verbose] > │ method28(v155) │
00:01:54 #2076 [verbose] > │ let v187 : string = │
00:01:54 #2077 [verbose] > │ "num_complex::Complex::powc(v185, v186)" │
00:01:54 #2078 [verbose] > │ let v188 : num_complex_Complex<float> = │
00:01:54 #2079 [verbose] > │ Fable.Core.RustInterop.emitRustExpr () v187 │
00:01:54 #2080 [verbose] > │ let v189 : string = "v181 / v188" │
00:01:54 #2081 [verbose] > │ let v190 : num_complex_Complex<float> = │
00:01:54 #2082 [verbose] > │ Fable.Core.RustInterop.emitRustExpr () v189 │
00:01:54 #2083 [verbose] > │ let v191 : string = "v178 + v190" │
00:01:54 #2084 [verbose] > │ let v192 : num_complex_Complex<float> = │
00:01:54 #2085 [verbose] > │ Fable.Core.RustInterop.emitRustExpr () v191 │
00:01:54 #2086 [verbose] > │ let v193 : int32 = v177 + 1 │
00:01:54 #2087 [verbose] > │ v175.l0 <- v193 │
00:01:54 #2088 [verbose] > │ v175.l1 <- v192 │
00:01:54 #2089 [verbose] > │ () │
00:01:54 #2090 [verbose] > │ let v194 : num_complex_Complex<float> = │
00:01:54 #2091 [verbose] > │ v175.l1 │
00:01:54 #2092 [verbose] > │ v194 │
00:01:54 #2093 [verbose] > │ else │
00:01:54 #2094 [verbose] > │ let v195 : string = │
00:01:54 #2095 [verbose] > │ "num_complex::Complex::new($0, $1)" │
00:01:54 #2096 [verbose] > │ let v196 : num_complex_Complex<float> = │
00:01:54 #2097 [verbose] > │ Fable.Core.RustInterop.emitRustExpr struct (1.0, 0.0) v195 │
00:01:54 #2098 [verbose] > │ let v197 : string = "$0 - $1" │
00:01:54 #2099 [verbose] > │ let v198 : num_complex_Complex<float> = │
00:01:54 #2100 [verbose] > │ Fable.Core.RustInterop.emitRustExpr struct (v196, v155) v197 │
00:01:54 #2101 [verbose] > │ let v199 : string = $" s = │
00:01:54 #2102 [verbose] > │ mpmath.gamma(s)" │
00:01:54 #2103 [verbose] > │ let v200 : num_complex_Complex<float> = │
00:01:54 #2104 [verbose] > │ method3(v198) │
00:01:54 #2105 [verbose] > │ let v201 : │
00:01:54 #2106 [verbose] > │ Result<num_complex_Complex<float>, std_string_String> = method29(v0, v199, │
00:01:54 #2107 [verbose] > │ v200) │
00:01:54 #2108 [verbose] > │ let v202 : string = "v201.ok()" │
00:01:54 #2109 [verbose] > │ let v203 : num_complex_Complex<float> option │
00:01:54 #2110 [verbose] > │ = Fable.Core.RustInterop.emitRustExpr () v202 │
00:01:54 #2111 [verbose] > │ let v204 : (num_complex_Complex<float> -> │
00:01:54 #2112 [verbose] > │ US0) = method30() │
00:01:54 #2113 [verbose] > │ let v205 : US0 = US0_1 │
00:01:54 #2114 [verbose] > │ let v206 : US0 = v203 |> Option.map v204 |> │
00:01:54 #2115 [verbose] > │ Option.defaultValue v205 │
00:01:54 #2116 [verbose] > │ let v207 : string = "f64::NAN" │
00:01:54 #2117 [verbose] > │ let v208 : float = │
00:01:54 #2118 [verbose] > │ Fable.Core.RustInterop.emitRustExpr () v207 │
00:01:54 #2119 [verbose] > │ let v209 : string = "f64::NAN" │
00:01:54 #2120 [verbose] > │ let v210 : float = │
00:01:54 #2121 [verbose] > │ Fable.Core.RustInterop.emitRustExpr () v209 │
00:01:54 #2122 [verbose] > │ let v211 : string = │
00:01:54 #2123 [verbose] > │ "num_complex::Complex::new($0, $1)" │
00:01:54 #2124 [verbose] > │ let v212 : num_complex_Complex<float> = │
00:01:54 #2125 [verbose] > │ Fable.Core.RustInterop.emitRustExpr struct (v208, v210) v211 │
00:01:54 #2126 [verbose] > │ let v215 : num_complex_Complex<float> = │
00:01:54 #2127 [verbose] > │ match v206 with │
00:01:54 #2128 [verbose] > │ | US0_1 -> (* None *) │
00:01:54 #2129 [verbose] > │ v212 │
00:01:54 #2130 [verbose] > │ | US0_0(v213) -> (* Some *) │
00:01:54 #2131 [verbose] > │ v213 │
00:01:54 #2132 [verbose] > │ let v216 : string = │
00:01:54 #2133 [verbose] > │ "num_complex::Complex::new($0, $1)" │
00:01:54 #2134 [verbose] > │ let v217 : num_complex_Complex<float> = │
00:01:54 #2135 [verbose] > │ Fable.Core.RustInterop.emitRustExpr struct (3.141592653589793, 0.0) v216 │
00:01:54 #2136 [verbose] > │ let v218 : string = "$0 * $1" │
00:01:54 #2137 [verbose] > │ let v219 : num_complex_Complex<float> = │
00:01:54 #2138 [verbose] > │ Fable.Core.RustInterop.emitRustExpr struct (v217, v155) v218 │
00:01:54 #2139 [verbose] > │ let v220 : string = │
00:01:54 #2140 [verbose] > │ "num_complex::Complex::new($0, $1)" │
00:01:54 #2141 [verbose] > │ let v221 : num_complex_Complex<float> = │
00:01:54 #2142 [verbose] > │ Fable.Core.RustInterop.emitRustExpr struct (2.0, 0.0) v220 │
00:01:54 #2143 [verbose] > │ let v222 : string = "v219 / v221" │
00:01:54 #2144 [verbose] > │ let v223 : num_complex_Complex<float> = │
00:01:54 #2145 [verbose] > │ Fable.Core.RustInterop.emitRustExpr () v222 │
00:01:54 #2146 [verbose] > │ let v224 : string = "v223.sin()" │
00:01:54 #2147 [verbose] > │ let v225 : num_complex_Complex<float> = │
00:01:54 #2148 [verbose] > │ Fable.Core.RustInterop.emitRustExpr () v224 │
00:01:54 #2149 [verbose] > │ let v226 : num_complex_Complex<float> = │
00:01:54 #2150 [verbose] > │ method7(v155) │
00:01:54 #2151 [verbose] > │ let v227 : string = "v226.re" │
00:01:54 #2152 [verbose] > │ let v228 : float = │
00:01:54 #2153 [verbose] > │ Fable.Core.RustInterop.emitRustExpr () v227 │
00:01:54 #2154 [verbose] > │ let v229 : float = 1.0 - v228 │
00:01:54 #2155 [verbose] > │ let v230 : num_complex_Complex<float> = │
00:01:54 #2156 [verbose] > │ method8(v155) │
00:01:54 #2157 [verbose] > │ let v231 : string = "v230.im" │
00:01:54 #2158 [verbose] > │ let v232 : float = │
00:01:54 #2159 [verbose] > │ Fable.Core.RustInterop.emitRustExpr () v231 │
00:01:54 #2160 [verbose] > │ let v233 : float = -v232 │
00:01:54 #2161 [verbose] > │ let v234 : string = │
00:01:54 #2162 [verbose] > │ "num_complex::Complex::new($0, $1)" │
00:01:54 #2163 [verbose] > │ let v235 : num_complex_Complex<float> = │
00:01:54 #2164 [verbose] > │ Fable.Core.RustInterop.emitRustExpr struct (v229, v233) v234 │
00:01:54 #2165 [verbose] > │ let v236 : num_complex_Complex<float> = │
00:01:54 #2166 [verbose] > │ method7(v235) │
00:01:54 #2167 [verbose] > │ let v237 : string = "v236.re" │
00:01:54 #2168 [verbose] > │ let v238 : float = │
00:01:54 #2169 [verbose] > │ Fable.Core.RustInterop.emitRustExpr () v237 │
00:01:54 #2170 [verbose] > │ let v239 : bool = v238 <= 1.0 │
00:01:54 #2171 [verbose] > │ let v438 : num_complex_Complex<float> = │
00:01:54 #2172 [verbose] > │ if v239 then │
00:01:54 #2173 [verbose] > │ let v240 : string = │
00:01:54 #2174 [verbose] > │ "num_complex::Complex::new($0, $1)" │
00:01:54 #2175 [verbose] > │ let v241 : │
00:01:54 #2176 [verbose] > │ num_complex_Complex<float> = Fable.Core.RustInterop.emitRustExpr struct │
00:01:54 #2177 [verbose] > │ (0.0, 0.0) v240 │
00:01:54 #2178 [verbose] > │ v241 │
00:01:54 #2179 [verbose] > │ else │
00:01:54 #2180 [verbose] > │ let v242 : string = "println!(\"zeta │
00:01:54 #2181 [verbose] > │ / count: {:?} / s: {:?}\", 3, $0)" │
00:01:54 #2182 [verbose] > │ Fable.Core.RustInterop.emitRustExpr │
00:01:54 #2183 [verbose] > │ v235 v242 │
00:01:54 #2184 [verbose] > │ let v243 : │
00:01:54 #2185 [verbose] > │ num_complex_Complex<float> = method7(v235) │
00:01:54 #2186 [verbose] > │ let v244 : string = "v243.re" │
00:01:54 #2187 [verbose] > │ let v245 : float = │
00:01:54 #2188 [verbose] > │ Fable.Core.RustInterop.emitRustExpr () v244 │
00:01:54 #2189 [verbose] > │ let v246 : bool = v245 > 1.0 │
00:01:54 #2190 [verbose] > │ if v246 then │
00:01:54 #2191 [verbose] > │ let v247 : string = │
00:01:54 #2192 [verbose] > │ "num_complex::Complex::new($0, $1)" │
00:01:54 #2193 [verbose] > │ let v248 : │
00:01:54 #2194 [verbose] > │ num_complex_Complex<float> = Fable.Core.RustInterop.emitRustExpr struct │
00:01:54 #2195 [verbose] > │ (0.0, 0.0) v247 │
00:01:54 #2196 [verbose] > │ let v249 : (int32 []) = │
00:01:54 #2197 [verbose] > │ Array.zeroCreate<int32> (10000) │
00:01:54 #2198 [verbose] > │ let v250 : Mut0 = {l0 = 0} : │
00:01:54 #2199 [verbose] > │ Mut0 │
00:01:54 #2200 [verbose] > │ while method25(v250) do │
00:01:54 #2201 [verbose] > │ let v252 : int32 = v250.l0 │
00:01:54 #2202 [verbose] > │ v249.[int v252] <- v252 │
00:01:54 #2203 [verbose] > │ let v253 : int32 = v252 + 1 │
00:01:54 #2204 [verbose] > │ v250.l0 <- v253 │
00:01:54 #2205 [verbose] > │ () │
00:01:54 #2206 [verbose] > │ let v254 : int32 = v249.Length │
00:01:54 #2207 [verbose] > │ let v255 : Mut2 = {l0 = 0; l1 = │
00:01:54 #2208 [verbose] > │ v248} : Mut2 │
00:01:54 #2209 [verbose] > │ while method26(v254, v255) do │
00:01:54 #2210 [verbose] > │ let v257 : int32 = v255.l0 │
00:01:54 #2211 [verbose] > │ let v258 : │
00:01:54 #2212 [verbose] > │ num_complex_Complex<float> = v255.l1 │
00:01:54 #2213 [verbose] > │ let v259 : int32 = v249.[int │
00:01:54 #2214 [verbose] > │ v257] │
00:01:54 #2215 [verbose] > │ let v260 : string = │
00:01:54 #2216 [verbose] > │ "num_complex::Complex::new($0, $1)" │
00:01:54 #2217 [verbose] > │ let v261 : │
00:01:54 #2218 [verbose] > │ num_complex_Complex<float> = Fable.Core.RustInterop.emitRustExpr struct │
00:01:54 #2219 [verbose] > │ (1.0, 0.0) v260 │
00:01:54 #2220 [verbose] > │ let v262 : float = float │
00:01:54 #2221 [verbose] > │ v259 │
00:01:54 #2222 [verbose] > │ let v263 : string = │
00:01:54 #2223 [verbose] > │ "num_complex::Complex::new($0, $1)" │
00:01:54 #2224 [verbose] > │ let v264 : │
00:01:54 #2225 [verbose] > │ num_complex_Complex<float> = Fable.Core.RustInterop.emitRustExpr struct │
00:01:54 #2226 [verbose] > │ (v262, 0.0) v263 │
00:01:54 #2227 [verbose] > │ let v265 : │
00:01:54 #2228 [verbose] > │ num_complex_Complex<float> = method27(v264) │
00:01:54 #2229 [verbose] > │ let v266 : │
00:01:54 #2230 [verbose] > │ num_complex_Complex<float> = method28(v235) │
00:01:54 #2231 [verbose] > │ let v267 : string = │
00:01:54 #2232 [verbose] > │ "num_complex::Complex::powc(v265, v266)" │
00:01:54 #2233 [verbose] > │ let v268 : │
00:01:54 #2234 [verbose] > │ num_complex_Complex<float> = Fable.Core.RustInterop.emitRustExpr () v267 │
00:01:54 #2235 [verbose] > │ let v269 : string = "v261 / │
00:01:54 #2236 [verbose] > │ v268" │
00:01:54 #2237 [verbose] > │ let v270 : │
00:01:54 #2238 [verbose] > │ num_complex_Complex<float> = Fable.Core.RustInterop.emitRustExpr () v269 │
00:01:54 #2239 [verbose] > │ let v271 : string = "v258 + │
00:01:54 #2240 [verbose] > │ v270" │
00:01:54 #2241 [verbose] > │ let v272 : │
00:01:54 #2242 [verbose] > │ num_complex_Complex<float> = Fable.Core.RustInterop.emitRustExpr () v271 │
00:01:54 #2243 [verbose] > │ let v273 : int32 = v257 + 1 │
00:01:54 #2244 [verbose] > │ v255.l0 <- v273 │
00:01:54 #2245 [verbose] > │ v255.l1 <- v272 │
00:01:54 #2246 [verbose] > │ () │
00:01:54 #2247 [verbose] > │ let v274 : │
00:01:54 #2248 [verbose] > │ num_complex_Complex<float> = v255.l1 │
00:01:54 #2249 [verbose] > │ v274 │
00:01:54 #2250 [verbose] > │ else │
00:01:54 #2251 [verbose] > │ let v275 : string = │
00:01:54 #2252 [verbose] > │ "num_complex::Complex::new($0, $1)" │
00:01:54 #2253 [verbose] > │ let v276 : │
00:01:54 #2254 [verbose] > │ num_complex_Complex<float> = Fable.Core.RustInterop.emitRustExpr struct │
00:01:54 #2255 [verbose] > │ (1.0, 0.0) v275 │
00:01:54 #2256 [verbose] > │ let v277 : string = "$0 - $1" │
00:01:54 #2257 [verbose] > │ let v278 : │
00:01:54 #2258 [verbose] > │ num_complex_Complex<float> = Fable.Core.RustInterop.emitRustExpr struct │
00:01:54 #2259 [verbose] > │ (v276, v235) v277 │
00:01:54 #2260 [verbose] > │ let v279 : string = $" s │
00:01:54 #2261 [verbose] > │ = mpmath.gamma(s)" │
00:01:54 #2262 [verbose] > │ let v280 : │
00:01:54 #2263 [verbose] > │ num_complex_Complex<float> = method3(v278) │
00:01:54 #2264 [verbose] > │ let v281 : │
00:01:54 #2265 [verbose] > │ Result<num_complex_Complex<float>, std_string_String> = method29(v0, v279, │
00:01:54 #2266 [verbose] > │ v280) │
00:01:54 #2267 [verbose] > │ let v282 : string = "v281.ok()" │
00:01:54 #2268 [verbose] > │ let v283 : │
00:01:54 #2269 [verbose] > │ num_complex_Complex<float> option = Fable.Core.RustInterop.emitRustExpr () │
00:01:54 #2270 [verbose] > │ v282 │
00:01:54 #2271 [verbose] > │ let v284 : │
00:01:54 #2272 [verbose] > │ (num_complex_Complex<float> -> US0) = method30() │
00:01:54 #2273 [verbose] > │ let v285 : US0 = US0_1 │
00:01:54 #2274 [verbose] > │ let v286 : US0 = v283 |> │
00:01:54 #2275 [verbose] > │ Option.map v284 |> Option.defaultValue v285 │
00:01:54 #2276 [verbose] > │ let v287 : string = "f64::NAN" │
00:01:54 #2277 [verbose] > │ let v288 : float = │
00:01:54 #2278 [verbose] > │ Fable.Core.RustInterop.emitRustExpr () v287 │
00:01:54 #2279 [verbose] > │ let v289 : string = "f64::NAN" │
00:01:54 #2280 [verbose] > │ let v290 : float = │
00:01:54 #2281 [verbose] > │ Fable.Core.RustInterop.emitRustExpr () v289 │
00:01:54 #2282 [verbose] > │ let v291 : string = │
00:01:54 #2283 [verbose] > │ "num_complex::Complex::new($0, $1)" │
00:01:54 #2284 [verbose] > │ let v292 : │
00:01:54 #2285 [verbose] > │ num_complex_Complex<float> = Fable.Core.RustInterop.emitRustExpr struct │
00:01:54 #2286 [verbose] > │ (v288, v290) v291 │
00:01:54 #2287 [verbose] > │ let v295 : │
00:01:54 #2288 [verbose] > │ num_complex_Complex<float> = │
00:01:54 #2289 [verbose] > │ match v286 with │
00:01:54 #2290 [verbose] > │ | US0_1 -> (* None *) │
00:01:54 #2291 [verbose] > │ v292 │
00:01:54 #2292 [verbose] > │ | US0_0(v293) -> (* Some *) │
00:01:54 #2293 [verbose] > │ v293 │
00:01:54 #2294 [verbose] > │ let v296 : string = │
00:01:54 #2295 [verbose] > │ "num_complex::Complex::new($0, $1)" │
00:01:54 #2296 [verbose] > │ let v297 : │
00:01:54 #2297 [verbose] > │ num_complex_Complex<float> = Fable.Core.RustInterop.emitRustExpr struct │
00:01:54 #2298 [verbose] > │ (3.141592653589793, 0.0) v296 │
00:01:54 #2299 [verbose] > │ let v298 : string = "$0 * $1" │
00:01:54 #2300 [verbose] > │ let v299 : │
00:01:54 #2301 [verbose] > │ num_complex_Complex<float> = Fable.Core.RustInterop.emitRustExpr struct │
00:01:54 #2302 [verbose] > │ (v297, v235) v298 │
00:01:54 #2303 [verbose] > │ let v300 : string = │
00:01:54 #2304 [verbose] > │ "num_complex::Complex::new($0, $1)" │
00:01:54 #2305 [verbose] > │ let v301 : │
00:01:54 #2306 [verbose] > │ num_complex_Complex<float> = Fable.Core.RustInterop.emitRustExpr struct │
00:01:54 #2307 [verbose] > │ (2.0, 0.0) v300 │
00:01:54 #2308 [verbose] > │ let v302 : string = "v299 / │
00:01:54 #2309 [verbose] > │ v301" │
00:01:54 #2310 [verbose] > │ let v303 : │
00:01:54 #2311 [verbose] > │ num_complex_Complex<float> = Fable.Core.RustInterop.emitRustExpr () v302 │
00:01:54 #2312 [verbose] > │ let v304 : string = "v303.sin()" │
00:01:54 #2313 [verbose] > │ let v305 : │
00:01:54 #2314 [verbose] > │ num_complex_Complex<float> = Fable.Core.RustInterop.emitRustExpr () v304 │
00:01:54 #2315 [verbose] > │ let v306 : │
00:01:54 #2316 [verbose] > │ num_complex_Complex<float> = method7(v235) │
00:01:54 #2317 [verbose] > │ let v307 : string = "v306.re" │
00:01:54 #2318 [verbose] > │ let v308 : float = │
00:01:54 #2319 [verbose] > │ Fable.Core.RustInterop.emitRustExpr () v307 │
00:01:54 #2320 [verbose] > │ let v309 : float = 1.0 - v308 │
00:01:54 #2321 [verbose] > │ let v310 : │
00:01:54 #2322 [verbose] > │ num_complex_Complex<float> = method8(v235) │
00:01:54 #2323 [verbose] > │ let v311 : string = "v310.im" │
00:01:54 #2324 [verbose] > │ let v312 : float = │
00:01:54 #2325 [verbose] > │ Fable.Core.RustInterop.emitRustExpr () v311 │
00:01:54 #2326 [verbose] > │ let v313 : float = -v312 │
00:01:54 #2327 [verbose] > │ let v314 : string = │
00:01:54 #2328 [verbose] > │ "num_complex::Complex::new($0, $1)" │
00:01:54 #2329 [verbose] > │ let v315 : │
00:01:54 #2330 [verbose] > │ num_complex_Complex<float> = Fable.Core.RustInterop.emitRustExpr struct │
00:01:54 #2331 [verbose] > │ (v309, v313) v314 │
00:01:54 #2332 [verbose] > │ let v316 : │
00:01:54 #2333 [verbose] > │ num_complex_Complex<float> = method7(v315) │
00:01:54 #2334 [verbose] > │ let v317 : string = "v316.re" │
00:01:54 #2335 [verbose] > │ let v318 : float = │
00:01:54 #2336 [verbose] > │ Fable.Core.RustInterop.emitRustExpr () v317 │
00:01:54 #2337 [verbose] > │ let v319 : bool = v318 <= 1.0 │
00:01:54 #2338 [verbose] > │ let v420 : │
00:01:54 #2339 [verbose] > │ num_complex_Complex<float> = │
00:01:54 #2340 [verbose] > │ if v319 then │
00:01:54 #2341 [verbose] > │ let v320 : string = │
00:01:54 #2342 [verbose] > │ "num_complex::Complex::new($0, $1)" │
00:01:54 #2343 [verbose] > │ let v321 : │
00:01:54 #2344 [verbose] > │ num_complex_Complex<float> = Fable.Core.RustInterop.emitRustExpr struct │
00:01:54 #2345 [verbose] > │ (0.0, 0.0) v320 │
00:01:54 #2346 [verbose] > │ v321 │
00:01:54 #2347 [verbose] > │ else │
00:01:54 #2348 [verbose] > │ let v322 : string = │
00:01:54 #2349 [verbose] > │ "println!(\"zeta / count: {:?} / s: {:?}\", 4, $0)" │
00:01:54 #2350 [verbose] > │ │
00:01:54 #2351 [verbose] > │ Fable.Core.RustInterop.emitRustExpr v315 v322 │
00:01:54 #2352 [verbose] > │ let v323 : │
00:01:54 #2353 [verbose] > │ num_complex_Complex<float> = method7(v315) │
00:01:54 #2354 [verbose] > │ let v324 : string = │
00:01:54 #2355 [verbose] > │ "v323.re" │
00:01:54 #2356 [verbose] > │ let v325 : float = │
00:01:54 #2357 [verbose] > │ Fable.Core.RustInterop.emitRustExpr () v324 │
00:01:54 #2358 [verbose] > │ let v326 : bool = v325 > │
00:01:54 #2359 [verbose] > │ 1.0 │
00:01:54 #2360 [verbose] > │ if v326 then │
00:01:54 #2361 [verbose] > │ let v327 : string = │
00:01:54 #2362 [verbose] > │ "num_complex::Complex::new($0, $1)" │
00:01:54 #2363 [verbose] > │ let v328 : │
00:01:54 #2364 [verbose] > │ num_complex_Complex<float> = Fable.Core.RustInterop.emitRustExpr struct │
00:01:54 #2365 [verbose] > │ (0.0, 0.0) v327 │
00:01:54 #2366 [verbose] > │ let v329 : (int32 [ │
00:01:54 #2367 [verbose] > │ ]) = Array.zeroCreate<int32> (10000) │
00:01:54 #2368 [verbose] > │ let v330 : Mut0 = │
00:01:54 #2369 [verbose] > │ {l0 = 0} : Mut0 │
00:01:54 #2370 [verbose] > │ while method25(v330) │
00:01:54 #2371 [verbose] > │ do │
00:01:54 #2372 [verbose] > │ let v332 : int32 │
00:01:54 #2373 [verbose] > │ = v330.l0 │
00:01:54 #2374 [verbose] > │ v329.[int v332] │
00:01:54 #2375 [verbose] > │ <- v332 │
00:01:54 #2376 [verbose] > │ let v333 : int32 │
00:01:54 #2377 [verbose] > │ = v332 + 1 │
00:01:54 #2378 [verbose] > │ v330.l0 <- v333 │
00:01:54 #2379 [verbose] > │ () │
00:01:54 #2380 [verbose] > │ let v334 : int32 = │
00:01:54 #2381 [verbose] > │ v329.Length │
00:01:54 #2382 [verbose] > │ let v335 : Mut2 = │
00:01:54 #2383 [verbose] > │ {l0 = 0; l1 = v328} : Mut2 │
00:01:54 #2384 [verbose] > │ while method26(v334, │
00:01:54 #2385 [verbose] > │ v335) do │
00:01:54 #2386 [verbose] > │ let v337 : int32 │
00:01:54 #2387 [verbose] > │ = v335.l0 │
00:01:54 #2388 [verbose] > │ let v338 : │
00:01:54 #2389 [verbose] > │ num_complex_Complex<float> = v335.l1 │
00:01:54 #2390 [verbose] > │ let v339 : int32 │
00:01:54 #2391 [verbose] > │ = v329.[int v337] │
00:01:54 #2392 [verbose] > │ let v340 : │
00:01:54 #2393 [verbose] > │ string = "num_complex::Complex::new($0, $1)" │
00:01:54 #2394 [verbose] > │ let v341 : │
00:01:54 #2395 [verbose] > │ num_complex_Complex<float> = Fable.Core.RustInterop.emitRustExpr struct │
00:01:54 #2396 [verbose] > │ (1.0, 0.0) v340 │
00:01:54 #2397 [verbose] > │ let v342 : float │
00:01:54 #2398 [verbose] > │ = float v339 │
00:01:54 #2399 [verbose] > │ let v343 : │
00:01:54 #2400 [verbose] > │ string = "num_complex::Complex::new($0, $1)" │
00:01:54 #2401 [verbose] > │ let v344 : │
00:01:54 #2402 [verbose] > │ num_complex_Complex<float> = Fable.Core.RustInterop.emitRustExpr struct │
00:01:54 #2403 [verbose] > │ (v342, 0.0) v343 │
00:01:54 #2404 [verbose] > │ let v345 : │
00:01:54 #2405 [verbose] > │ num_complex_Complex<float> = method27(v344) │
00:01:54 #2406 [verbose] > │ let v346 : │
00:01:54 #2407 [verbose] > │ num_complex_Complex<float> = method28(v315) │
00:01:54 #2408 [verbose] > │ let v347 : │
00:01:54 #2409 [verbose] > │ string = "num_complex::Complex::powc(v345, v346)" │
00:01:54 #2410 [verbose] > │ let v348 : │
00:01:54 #2411 [verbose] > │ num_complex_Complex<float> = Fable.Core.RustInterop.emitRustExpr () v347 │
00:01:54 #2412 [verbose] > │ let v349 : │
00:01:54 #2413 [verbose] > │ string = "v341 / v348" │
00:01:54 #2414 [verbose] > │ let v350 : │
00:01:54 #2415 [verbose] > │ num_complex_Complex<float> = Fable.Core.RustInterop.emitRustExpr () v349 │
00:01:54 #2416 [verbose] > │ let v351 : │
00:01:54 #2417 [verbose] > │ string = "v338 + v350" │
00:01:54 #2418 [verbose] > │ let v352 : │
00:01:54 #2419 [verbose] > │ num_complex_Complex<float> = Fable.Core.RustInterop.emitRustExpr () v351 │
00:01:54 #2420 [verbose] > │ let v353 : int32 │
00:01:54 #2421 [verbose] > │ = v337 + 1 │
00:01:54 #2422 [verbose] > │ v335.l0 <- v353 │
00:01:54 #2423 [verbose] > │ v335.l1 <- v352 │
00:01:54 #2424 [verbose] > │ () │
00:01:54 #2425 [verbose] > │ let v354 : │
00:01:54 #2426 [verbose] > │ num_complex_Complex<float> = v335.l1 │
00:01:54 #2427 [verbose] > │ v354 │
00:01:54 #2428 [verbose] > │ else │
00:01:54 #2429 [verbose] > │ let v355 : string = │
00:01:54 #2430 [verbose] > │ "num_complex::Complex::new($0, $1)" │
00:01:54 #2431 [verbose] > │ let v356 : │
00:01:54 #2432 [verbose] > │ num_complex_Complex<float> = Fable.Core.RustInterop.emitRustExpr struct │
00:01:54 #2433 [verbose] > │ (1.0, 0.0) v355 │
00:01:54 #2434 [verbose] > │ let v357 : string = │
00:01:54 #2435 [verbose] > │ "$0 - $1" │
00:01:54 #2436 [verbose] > │ let v358 : │
00:01:54 #2437 [verbose] > │ num_complex_Complex<float> = Fable.Core.RustInterop.emitRustExpr struct │
00:01:54 #2438 [verbose] > │ (v356, v315) v357 │
00:01:54 #2439 [verbose] > │ let v359 : string = │
00:01:54 #2440 [verbose] > │ $" s = mpmath.gamma(s)" │
00:01:54 #2441 [verbose] > │ let v360 : │
00:01:54 #2442 [verbose] > │ num_complex_Complex<float> = method3(v358) │
00:01:54 #2443 [verbose] > │ let v361 : │
00:01:54 #2444 [verbose] > │ Result<num_complex_Complex<float>, std_string_String> = method29(v0, v359, │
00:01:54 #2445 [verbose] > │ v360) │
00:01:54 #2446 [verbose] > │ let v362 : string = │
00:01:54 #2447 [verbose] > │ "v361.ok()" │
00:01:54 #2448 [verbose] > │ let v363 : │
00:01:54 #2449 [verbose] > │ num_complex_Complex<float> option = Fable.Core.RustInterop.emitRustExpr () │
00:01:54 #2450 [verbose] > │ v362 │
00:01:54 #2451 [verbose] > │ let v364 : │
00:01:54 #2452 [verbose] > │ (num_complex_Complex<float> -> US0) = method30() │
00:01:54 #2453 [verbose] > │ let v365 : US0 = │
00:01:54 #2454 [verbose] > │ US0_1 │
00:01:54 #2455 [verbose] > │ let v366 : US0 = │
00:01:54 #2456 [verbose] > │ v363 |> Option.map v364 |> Option.defaultValue v365 │
00:01:54 #2457 [verbose] > │ let v367 : string = │
00:01:54 #2458 [verbose] > │ "f64::NAN" │
00:01:54 #2459 [verbose] > │ let v368 : float = │
00:01:54 #2460 [verbose] > │ Fable.Core.RustInterop.emitRustExpr () v367 │
00:01:54 #2461 [verbose] > │ let v369 : string = │
00:01:54 #2462 [verbose] > │ "f64::NAN" │
00:01:54 #2463 [verbose] > │ let v370 : float = │
00:01:54 #2464 [verbose] > │ Fable.Core.RustInterop.emitRustExpr () v369 │
00:01:54 #2465 [verbose] > │ let v371 : string = │
00:01:54 #2466 [verbose] > │ "num_complex::Complex::new($0, $1)" │
00:01:54 #2467 [verbose] > │ let v372 : │
00:01:54 #2468 [verbose] > │ num_complex_Complex<float> = Fable.Core.RustInterop.emitRustExpr struct │
00:01:54 #2469 [verbose] > │ (v368, v370) v371 │
00:01:54 #2470 [verbose] > │ let v375 : │
00:01:54 #2471 [verbose] > │ num_complex_Complex<float> = │
00:01:54 #2472 [verbose] > │ match v366 with │
00:01:54 #2473 [verbose] > │ | US0_1 -> (* │
00:01:54 #2474 [verbose] > │ None *) │
00:01:54 #2475 [verbose] > │ v372 │
00:01:54 #2476 [verbose] > │ | US0_0(v373) -> │
00:01:54 #2477 [verbose] > │ (* Some *) │
00:01:54 #2478 [verbose] > │ v373 │
00:01:54 #2479 [verbose] > │ let v376 : string = │
00:01:54 #2480 [verbose] > │ "num_complex::Complex::new($0, $1)" │
00:01:54 #2481 [verbose] > │ let v377 : │
00:01:54 #2482 [verbose] > │ num_complex_Complex<float> = Fable.Core.RustInterop.emitRustExpr struct │
00:01:54 #2483 [verbose] > │ (3.141592653589793, 0.0) v376 │
00:01:54 #2484 [verbose] > │ let v378 : string = │
00:01:54 #2485 [verbose] > │ "$0 * $1" │
00:01:54 #2486 [verbose] > │ let v379 : │
00:01:54 #2487 [verbose] > │ num_complex_Complex<float> = Fable.Core.RustInterop.emitRustExpr struct │
00:01:54 #2488 [verbose] > │ (v377, v315) v378 │
00:01:54 #2489 [verbose] > │ let v380 : string = │
00:01:54 #2490 [verbose] > │ "num_complex::Complex::new($0, $1)" │
00:01:54 #2491 [verbose] > │ let v381 : │
00:01:54 #2492 [verbose] > │ num_complex_Complex<float> = Fable.Core.RustInterop.emitRustExpr struct │
00:01:54 #2493 [verbose] > │ (2.0, 0.0) v380 │
00:01:54 #2494 [verbose] > │ let v382 : string = │
00:01:54 #2495 [verbose] > │ "v379 / v381" │
00:01:54 #2496 [verbose] > │ let v383 : │
00:01:54 #2497 [verbose] > │ num_complex_Complex<float> = Fable.Core.RustInterop.emitRustExpr () v382 │
00:01:54 #2498 [verbose] > │ let v384 : string = │
00:01:54 #2499 [verbose] > │ "v383.sin()" │
00:01:54 #2500 [verbose] > │ let v385 : │
00:01:54 #2501 [verbose] > │ num_complex_Complex<float> = Fable.Core.RustInterop.emitRustExpr () v384 │
00:01:54 #2502 [verbose] > │ let v386 : │
00:01:54 #2503 [verbose] > │ num_complex_Complex<float> = method7(v315) │
00:01:54 #2504 [verbose] > │ let v387 : string = │
00:01:54 #2505 [verbose] > │ "v386.re" │
00:01:54 #2506 [verbose] > │ let v388 : float = │
00:01:54 #2507 [verbose] > │ Fable.Core.RustInterop.emitRustExpr () v387 │
00:01:54 #2508 [verbose] > │ let v389 : float = │
00:01:54 #2509 [verbose] > │ 1.0 - v388 │
00:01:54 #2510 [verbose] > │ let v390 : │
00:01:54 #2511 [verbose] > │ num_complex_Complex<float> = method8(v315) │
00:01:54 #2512 [verbose] > │ let v391 : string = │
00:01:54 #2513 [verbose] > │ "v390.im" │
00:01:54 #2514 [verbose] > │ let v392 : float = │
00:01:54 #2515 [verbose] > │ Fable.Core.RustInterop.emitRustExpr () v391 │
00:01:54 #2516 [verbose] > │ let v393 : float = │
00:01:54 #2517 [verbose] > │ -v392 │
00:01:54 #2518 [verbose] > │ let v394 : string = │
00:01:54 #2519 [verbose] > │ "num_complex::Complex::new($0, $1)" │
00:01:54 #2520 [verbose] > │ let v395 : │
00:01:54 #2521 [verbose] > │ num_complex_Complex<float> = Fable.Core.RustInterop.emitRustExpr struct │
00:01:54 #2522 [verbose] > │ (v389, v393) v394 │
00:01:54 #2523 [verbose] > │ let v396 : │
00:01:54 #2524 [verbose] > │ num_complex_Complex<float> = method7(v395) │
00:01:54 #2525 [verbose] > │ let v397 : string = │
00:01:54 #2526 [verbose] > │ "v396.re" │
00:01:54 #2527 [verbose] > │ let v398 : float = │
00:01:54 #2528 [verbose] > │ Fable.Core.RustInterop.emitRustExpr () v397 │
00:01:54 #2529 [verbose] > │ let v399 : bool = │
00:01:54 #2530 [verbose] > │ v398 <= 1.0 │
00:01:54 #2531 [verbose] > │ let v402 : │
00:01:54 #2532 [verbose] > │ num_complex_Complex<float> = │
00:01:54 #2533 [verbose] > │ if v399 then │
00:01:54 #2534 [verbose] > │ let v400 : │
00:01:54 #2535 [verbose] > │ string = "num_complex::Complex::new($0, $1)" │
00:01:54 #2536 [verbose] > │ let v401 : │
00:01:54 #2537 [verbose] > │ num_complex_Complex<float> = Fable.Core.RustInterop.emitRustExpr struct │
00:01:54 #2538 [verbose] > │ (0.0, 0.0) v400 │
00:01:54 #2539 [verbose] > │ v401 │
00:01:54 #2540 [verbose] > │ else │
00:01:54 #2541 [verbose] > │ v395 │
00:01:54 #2542 [verbose] > │ let v403 : string = │
00:01:54 #2543 [verbose] > │ "num_complex::Complex::new($0, $1)" │
00:01:54 #2544 [verbose] > │ let v404 : │
00:01:54 #2545 [verbose] > │ num_complex_Complex<float> = Fable.Core.RustInterop.emitRustExpr struct │
00:01:54 #2546 [verbose] > │ (2.0, 0.0) v403 │
00:01:54 #2547 [verbose] > │ let v405 : string = │
00:01:54 #2548 [verbose] > │ "num_complex::Complex::new($0, $1)" │
00:01:54 #2549 [verbose] > │ let v406 : │
00:01:54 #2550 [verbose] > │ num_complex_Complex<float> = Fable.Core.RustInterop.emitRustExpr struct │
00:01:54 #2551 [verbose] > │ (3.141592653589793, 0.0) v405 │
00:01:54 #2552 [verbose] > │ let v407 : │
00:01:54 #2553 [verbose] > │ num_complex_Complex<float> = method27(v406) │
00:01:54 #2554 [verbose] > │ let v408 : │
00:01:54 #2555 [verbose] > │ num_complex_Complex<float> = method28(v315) │
00:01:54 #2556 [verbose] > │ let v409 : string = │
00:01:54 #2557 [verbose] > │ "num_complex::Complex::powc(v407, v408)" │
00:01:54 #2558 [verbose] > │ let v410 : │
00:01:54 #2559 [verbose] > │ num_complex_Complex<float> = Fable.Core.RustInterop.emitRustExpr () v409 │
00:01:54 #2560 [verbose] > │ let v411 : string = │
00:01:54 #2561 [verbose] > │ "$0 * $1" │
00:01:54 #2562 [verbose] > │ let v412 : │
00:01:54 #2563 [verbose] > │ num_complex_Complex<float> = Fable.Core.RustInterop.emitRustExpr struct │
00:01:54 #2564 [verbose] > │ (v404, v410) v411 │
00:01:54 #2565 [verbose] > │ let v413 : string = │
00:01:54 #2566 [verbose] > │ "$0 * $1" │
00:01:54 #2567 [verbose] > │ let v414 : │
00:01:54 #2568 [verbose] > │ num_complex_Complex<float> = Fable.Core.RustInterop.emitRustExpr struct │
00:01:54 #2569 [verbose] > │ (v412, v385) v413 │
00:01:54 #2570 [verbose] > │ let v415 : string = │
00:01:54 #2571 [verbose] > │ "$0 * $1" │
00:01:54 #2572 [verbose] > │ let v416 : │
00:01:54 #2573 [verbose] > │ num_complex_Complex<float> = Fable.Core.RustInterop.emitRustExpr struct │
00:01:54 #2574 [verbose] > │ (v414, v375) v415 │
00:01:54 #2575 [verbose] > │ let v417 : string = │
00:01:54 #2576 [verbose] > │ "$0 * $1" │
00:01:54 #2577 [verbose] > │ let v418 : │
00:01:54 #2578 [verbose] > │ num_complex_Complex<float> = Fable.Core.RustInterop.emitRustExpr struct │
00:01:54 #2579 [verbose] > │ (v416, v402) v417 │
00:01:54 #2580 [verbose] > │ v418 │
00:01:54 #2581 [verbose] > │ let v421 : string = │
00:01:54 #2582 [verbose] > │ "num_complex::Complex::new($0, $1)" │
00:01:54 #2583 [verbose] > │ let v422 : │
00:01:54 #2584 [verbose] > │ num_complex_Complex<float> = Fable.Core.RustInterop.emitRustExpr struct │
00:01:54 #2585 [verbose] > │ (2.0, 0.0) v421 │
00:01:54 #2586 [verbose] > │ let v423 : string = │
00:01:54 #2587 [verbose] > │ "num_complex::Complex::new($0, $1)" │
00:01:54 #2588 [verbose] > │ let v424 : │
00:01:54 #2589 [verbose] > │ num_complex_Complex<float> = Fable.Core.RustInterop.emitRustExpr struct │
00:01:54 #2590 [verbose] > │ (3.141592653589793, 0.0) v423 │
00:01:54 #2591 [verbose] > │ let v425 : │
00:01:54 #2592 [verbose] > │ num_complex_Complex<float> = method27(v424) │
00:01:54 #2593 [verbose] > │ let v426 : │
00:01:54 #2594 [verbose] > │ num_complex_Complex<float> = method28(v235) │
00:01:54 #2595 [verbose] > │ let v427 : string = │
00:01:54 #2596 [verbose] > │ "num_complex::Complex::powc(v425, v426)" │
00:01:54 #2597 [verbose] > │ let v428 : │
00:01:54 #2598 [verbose] > │ num_complex_Complex<float> = Fable.Core.RustInterop.emitRustExpr () v427 │
00:01:54 #2599 [verbose] > │ let v429 : string = "$0 * $1" │
00:01:54 #2600 [verbose] > │ let v430 : │
00:01:54 #2601 [verbose] > │ num_complex_Complex<float> = Fable.Core.RustInterop.emitRustExpr struct │
00:01:54 #2602 [verbose] > │ (v422, v428) v429 │
00:01:54 #2603 [verbose] > │ let v431 : string = "$0 * $1" │
00:01:54 #2604 [verbose] > │ let v432 : │
00:01:54 #2605 [verbose] > │ num_complex_Complex<float> = Fable.Core.RustInterop.emitRustExpr struct │
00:01:54 #2606 [verbose] > │ (v430, v305) v431 │
00:01:54 #2607 [verbose] > │ let v433 : string = "$0 * $1" │
00:01:54 #2608 [verbose] > │ let v434 : │
00:01:54 #2609 [verbose] > │ num_complex_Complex<float> = Fable.Core.RustInterop.emitRustExpr struct │
00:01:54 #2610 [verbose] > │ (v432, v295) v433 │
00:01:54 #2611 [verbose] > │ let v435 : string = "$0 * $1" │
00:01:54 #2612 [verbose] > │ let v436 : │
00:01:54 #2613 [verbose] > │ num_complex_Complex<float> = Fable.Core.RustInterop.emitRustExpr struct │
00:01:54 #2614 [verbose] > │ (v434, v420) v435 │
00:01:54 #2615 [verbose] > │ v436 │
00:01:54 #2616 [verbose] > │ let v439 : string = │
00:01:54 #2617 [verbose] > │ "num_complex::Complex::new($0, $1)" │
00:01:54 #2618 [verbose] > │ let v440 : num_complex_Complex<float> = │
00:01:54 #2619 [verbose] > │ Fable.Core.RustInterop.emitRustExpr struct (2.0, 0.0) v439 │
00:01:54 #2620 [verbose] > │ let v441 : string = │
00:01:54 #2621 [verbose] > │ "num_complex::Complex::new($0, $1)" │
00:01:54 #2622 [verbose] > │ let v442 : num_complex_Complex<float> = │
00:01:54 #2623 [verbose] > │ Fable.Core.RustInterop.emitRustExpr struct (3.141592653589793, 0.0) v441 │
00:01:54 #2624 [verbose] > │ let v443 : num_complex_Complex<float> = │
00:01:54 #2625 [verbose] > │ method27(v442) │
00:01:54 #2626 [verbose] > │ let v444 : num_complex_Complex<float> = │
00:01:54 #2627 [verbose] > │ method28(v155) │
00:01:54 #2628 [verbose] > │ let v445 : string = │
00:01:54 #2629 [verbose] > │ "num_complex::Complex::powc(v443, v444)" │
00:01:54 #2630 [verbose] > │ let v446 : num_complex_Complex<float> = │
00:01:54 #2631 [verbose] > │ Fable.Core.RustInterop.emitRustExpr () v445 │
00:01:54 #2632 [verbose] > │ let v447 : string = "$0 * $1" │
00:01:54 #2633 [verbose] > │ let v448 : num_complex_Complex<float> = │
00:01:54 #2634 [verbose] > │ Fable.Core.RustInterop.emitRustExpr struct (v440, v446) v447 │
00:01:54 #2635 [verbose] > │ let v449 : string = "$0 * $1" │
00:01:54 #2636 [verbose] > │ let v450 : num_complex_Complex<float> = │
00:01:54 #2637 [verbose] > │ Fable.Core.RustInterop.emitRustExpr struct (v448, v225) v449 │
00:01:54 #2638 [verbose] > │ let v451 : string = "$0 * $1" │
00:01:54 #2639 [verbose] > │ let v452 : num_complex_Complex<float> = │
00:01:54 #2640 [verbose] > │ Fable.Core.RustInterop.emitRustExpr struct (v450, v215) v451 │
00:01:54 #2641 [verbose] > │ let v453 : string = "$0 * $1" │
00:01:54 #2642 [verbose] > │ let v454 : num_complex_Complex<float> = │
00:01:54 #2643 [verbose] > │ Fable.Core.RustInterop.emitRustExpr struct (v452, v438) v453 │
00:01:54 #2644 [verbose] > │ v454 │
00:01:54 #2645 [verbose] > │ let v457 : string = "num_complex::Complex::new($0, $1)" │
00:01:54 #2646 [verbose] > │ let v458 : num_complex_Complex<float> = │
00:01:54 #2647 [verbose] > │ Fable.Core.RustInterop.emitRustExpr struct (2.0, 0.0) v457 │
00:01:54 #2648 [verbose] > │ let v459 : string = "num_complex::Complex::new($0, $1)" │
00:01:54 #2649 [verbose] > │ let v460 : num_complex_Complex<float> = │
00:01:54 #2650 [verbose] > │ Fable.Core.RustInterop.emitRustExpr struct (3.141592653589793, 0.0) v459 │
00:01:54 #2651 [verbose] > │ let v461 : num_complex_Complex<float> = method27(v460) │
00:01:54 #2652 [verbose] > │ let v462 : num_complex_Complex<float> = method28(v75) │
00:01:54 #2653 [verbose] > │ let v463 : string = "num_complex::Complex::powc(v461, │
00:01:54 #2654 [verbose] > │ v462)" │
00:01:54 #2655 [verbose] > │ let v464 : num_complex_Complex<float> = │
00:01:54 #2656 [verbose] > │ Fable.Core.RustInterop.emitRustExpr () v463 │
00:01:54 #2657 [verbose] > │ let v465 : string = "$0 * $1" │
00:01:54 #2658 [verbose] > │ let v466 : num_complex_Complex<float> = │
00:01:54 #2659 [verbose] > │ Fable.Core.RustInterop.emitRustExpr struct (v458, v464) v465 │
00:01:54 #2660 [verbose] > │ let v467 : string = "$0 * $1" │
00:01:54 #2661 [verbose] > │ let v468 : num_complex_Complex<float> = │
00:01:54 #2662 [verbose] > │ Fable.Core.RustInterop.emitRustExpr struct (v466, v145) v467 │
00:01:54 #2663 [verbose] > │ let v469 : string = "$0 * $1" │
00:01:54 #2664 [verbose] > │ let v470 : num_complex_Complex<float> = │
00:01:54 #2665 [verbose] > │ Fable.Core.RustInterop.emitRustExpr struct (v468, v135) v469 │
00:01:54 #2666 [verbose] > │ let v471 : string = "$0 * $1" │
00:01:54 #2667 [verbose] > │ let v472 : num_complex_Complex<float> = │
00:01:54 #2668 [verbose] > │ Fable.Core.RustInterop.emitRustExpr struct (v470, v456) v471 │
00:01:54 #2669 [verbose] > │ v472 │
00:01:54 #2670 [verbose] > │ let v475 : string = "num_complex::Complex::new($0, $1)" │
00:01:54 #2671 [verbose] > │ let v476 : num_complex_Complex<float> = │
00:01:54 #2672 [verbose] > │ Fable.Core.RustInterop.emitRustExpr struct (2.0, 0.0) v475 │
00:01:54 #2673 [verbose] > │ let v477 : string = "num_complex::Complex::new($0, $1)" │
00:01:54 #2674 [verbose] > │ let v478 : num_complex_Complex<float> = │
00:01:54 #2675 [verbose] > │ Fable.Core.RustInterop.emitRustExpr struct (3.141592653589793, 0.0) v477 │
00:01:54 #2676 [verbose] > │ let v479 : num_complex_Complex<float> = method27(v478) │
00:01:54 #2677 [verbose] > │ let v480 : num_complex_Complex<float> = method28(v1) │
00:01:54 #2678 [verbose] > │ let v481 : string = "num_complex::Complex::powc(v479, v480)" │
00:01:54 #2679 [verbose] > │ let v482 : num_complex_Complex<float> = │
00:01:54 #2680 [verbose] > │ Fable.Core.RustInterop.emitRustExpr () v481 │
00:01:54 #2681 [verbose] > │ let v483 : string = "$0 * $1" │
00:01:54 #2682 [verbose] > │ let v484 : num_complex_Complex<float> = │
00:01:54 #2683 [verbose] > │ Fable.Core.RustInterop.emitRustExpr struct (v476, v482) v483 │
00:01:54 #2684 [verbose] > │ let v485 : string = "$0 * $1" │
00:01:54 #2685 [verbose] > │ let v486 : num_complex_Complex<float> = │
00:01:54 #2686 [verbose] > │ Fable.Core.RustInterop.emitRustExpr struct (v484, v65) v485 │
00:01:54 #2687 [verbose] > │ let v487 : string = "$0 * $1" │
00:01:54 #2688 [verbose] > │ let v488 : num_complex_Complex<float> = │
00:01:54 #2689 [verbose] > │ Fable.Core.RustInterop.emitRustExpr struct (v486, v55) v487 │
00:01:54 #2690 [verbose] > │ let v489 : string = "$0 * $1" │
00:01:54 #2691 [verbose] > │ let v490 : num_complex_Complex<float> = │
00:01:54 #2692 [verbose] > │ Fable.Core.RustInterop.emitRustExpr struct (v488, v474) v489 │
00:01:54 #2693 [verbose] > │ v490 │
00:01:54 #2694 [verbose] > │ and method31 (v0 : bool) : bool = │
00:01:54 #2695 [verbose] > │ v0 │
00:01:54 #2696 [verbose] > │ and method1 (v0 : pyo3_Python) : unit = │
00:01:54 #2697 [verbose] > │ let v1 : string = "num_complex::Complex::new($0, $1)" │
00:01:54 #2698 [verbose] > │ let v2 : num_complex_Complex<float> = │
00:01:54 #2699 [verbose] > │ Fable.Core.RustInterop.emitRustExpr struct (2.0, 0.0) v1 │
00:01:54 #2700 [verbose] > │ let v3 : string = "num_complex::Complex::new($0, $1)" │
00:01:54 #2701 [verbose] > │ let v4 : num_complex_Complex<float> = │
00:01:54 #2702 [verbose] > │ Fable.Core.RustInterop.emitRustExpr struct (-1.0, 0.0) v3 │
00:01:54 #2703 [verbose] > │ let v5 : (struct (num_complex_Complex<float> * float) []) = [|struct │
00:01:54 #2704 [verbose] > │ (v2, 1.6449340668482264); struct (v4, -0.08333333333333333)|] │
00:01:54 #2705 [verbose] > │ let v6 : int32 = v5.Length │
00:01:54 #2706 [verbose] > │ let v7 : Mut0 = {l0 = 0} : Mut0 │
00:01:54 #2707 [verbose] > │ while method2(v6, v7) do │
00:01:54 #2708 [verbose] > │ let v9 : int32 = v7.l0 │
00:01:54 #2709 [verbose] > │ let struct (v10 : num_complex_Complex<float>, v11 : float) = v5.[int │
00:01:54 #2710 [verbose] > │ v9] │
00:01:54 #2711 [verbose] > │ let v12 : string = $" s = mpmath.zeta(s)" │
00:01:54 #2712 [verbose] > │ let v13 : num_complex_Complex<float> = method3(v10) │
00:01:54 #2713 [verbose] > │ let v14 : Result<num_complex_Complex<float>, std_string_String> = │
00:01:54 #2714 [verbose] > │ method4(v0, v12, v13) │
00:01:54 #2715 [verbose] > │ let v15 : num_complex_Complex<float> = method24(v0, v10) │
00:01:54 #2716 [verbose] > │ let v16 : string = "v14.ok()" │
00:01:54 #2717 [verbose] > │ let v17 : num_complex_Complex<float> option = │
00:01:54 #2718 [verbose] > │ Fable.Core.RustInterop.emitRustExpr () v16 │
00:01:54 #2719 [verbose] > │ let v18 : (num_complex_Complex<float> -> US0) = method30() │
00:01:54 #2720 [verbose] > │ let v19 : US0 = US0_1 │
00:01:54 #2721 [verbose] > │ let v20 : US0 = v17 |> Option.map v18 |> Option.defaultValue v19 │
00:01:54 #2722 [verbose] > │ let v21 : string = "f64::NAN" │
00:01:54 #2723 [verbose] > │ let v22 : float = Fable.Core.RustInterop.emitRustExpr () v21 │
00:01:54 #2724 [verbose] > │ let v23 : string = "f64::NAN" │
00:01:54 #2725 [verbose] > │ let v24 : float = Fable.Core.RustInterop.emitRustExpr () v23 │
00:01:54 #2726 [verbose] > │ let v25 : string = "num_complex::Complex::new($0, $1)" │
00:01:54 #2727 [verbose] > │ let v26 : num_complex_Complex<float> = │
00:01:54 #2728 [verbose] > │ Fable.Core.RustInterop.emitRustExpr struct (v22, v24) v25 │
00:01:54 #2729 [verbose] > │ let v29 : num_complex_Complex<float> = │
00:01:54 #2730 [verbose] > │ match v20 with │
00:01:54 #2731 [verbose] > │ | US0_1 -> (* None *) │
00:01:54 #2732 [verbose] > │ v26 │
00:01:54 #2733 [verbose] > │ | US0_0(v27) -> (* Some *) │
00:01:54 #2734 [verbose] > │ v27 │
00:01:54 #2735 [verbose] > │ let v30 : num_complex_Complex<float> = method8(v29) │
00:01:54 #2736 [verbose] > │ let v31 : string = "v30.im" │
00:01:54 #2737 [verbose] > │ let v32 : float = Fable.Core.RustInterop.emitRustExpr () v31 │
00:01:54 #2738 [verbose] > │ let v33 : string = $"%A{v32}" │
00:01:54 #2739 [verbose] > │ System.Console.WriteLine v33 │
00:01:54 #2740 [verbose] > │ let v34 : bool = v32 = 0.0 │
00:01:54 #2741 [verbose] > │ let v36 : bool = │
00:01:54 #2742 [verbose] > │ if v34 then │
00:01:54 #2743 [verbose] > │ true │
00:01:54 #2744 [verbose] > │ else │
00:01:54 #2745 [verbose] > │ method31(v34) │
00:01:54 #2746 [verbose] > │ let v37 : string = $"__expect / actual: %A{v32} / expected: %A{0.0}" │
00:01:54 #2747 [verbose] > │ let v38 : bool = v36 = false │
00:01:54 #2748 [verbose] > │ if v38 then │
00:01:54 #2749 [verbose] > │ failwith<unit> v37 │
00:01:54 #2750 [verbose] > │ let v39 : num_complex_Complex<float> = method7(v29) │
00:01:54 #2751 [verbose] > │ let v40 : string = "v39.re" │
00:01:54 #2752 [verbose] > │ let v41 : float = Fable.Core.RustInterop.emitRustExpr () v40 │
00:01:54 #2753 [verbose] > │ let v42 : float = v41 - v11 │
00:01:54 #2754 [verbose] > │ let v43 : float = -v42 │
00:01:54 #2755 [verbose] > │ let v44 : bool = v42 >= v43 │
00:01:54 #2756 [verbose] > │ let v45 : float = │
00:01:54 #2757 [verbose] > │ if v44 then │
00:01:54 #2758 [verbose] > │ v42 │
00:01:54 #2759 [verbose] > │ else │
00:01:54 #2760 [verbose] > │ v43 │
00:01:54 #2761 [verbose] > │ let v46 : string = $"%A{v45}" │
00:01:54 #2762 [verbose] > │ System.Console.WriteLine v46 │
00:01:54 #2763 [verbose] > │ let v47 : bool = v45 < 0.0001 │
00:01:54 #2764 [verbose] > │ let v49 : bool = │
00:01:54 #2765 [verbose] > │ if v47 then │
00:01:54 #2766 [verbose] > │ true │
00:01:54 #2767 [verbose] > │ else │
00:01:54 #2768 [verbose] > │ method31(v47) │
00:01:54 #2769 [verbose] > │ let v50 : string = $"__expect / actual: %A{v45} / expected: │
00:01:54 #2770 [verbose] > │ %A{0.0001}" │
00:01:54 #2771 [verbose] > │ let v51 : bool = v49 = false │
00:01:54 #2772 [verbose] > │ if v51 then │
00:01:54 #2773 [verbose] > │ failwith<unit> v50 │
00:01:54 #2774 [verbose] > │ let v52 : int32 = v9 + 1 │
00:01:54 #2775 [verbose] > │ v7.l0 <- v52 │
00:01:54 #2776 [verbose] > │ () │
00:01:54 #2777 [verbose] > │ () │
00:01:54 #2778 [verbose] > │ and method32 (v0 : Result<unit, pyo3_PyErr>) : Result<unit, pyo3_PyErr> = │
00:01:54 #2779 [verbose] > │ v0 │
00:01:54 #2780 [verbose] > │ and method33 (v0 : Result<unit, pyo3_PyErr>) : Result<unit, pyo3_PyErr> = │
00:01:54 #2781 [verbose] > │ v0 │
00:01:54 #2782 [verbose] > │ and method0 () : unit = │
00:01:54 #2783 [verbose] > │ let v0 : string = "pyo3::prepare_freethreaded_python()" │
00:01:54 #2784 [verbose] > │ Fable.Core.RustInterop.emitRustExpr () v0 │
00:01:54 #2785 [verbose] > │ let v1 : string = "let __result = pyo3::Python::with_gil(|py| -> │
00:01:54 #2786 [verbose] > │ pyo3::PyResult<()> { //" │
00:01:54 #2787 [verbose] > │ Fable.Core.RustInterop.emitRustExpr () v1 │
00:01:54 #2788 [verbose] > │ let v2 : string = "py" │
00:01:54 #2789 [verbose] > │ let v3 : pyo3_Python = Fable.Core.RustInterop.emitRustExpr () v2 │
00:01:54 #2790 [verbose] > │ method1(v3) │
00:01:54 #2791 [verbose] > │ let v4 : Result<unit, pyo3_PyErr> = Ok () │
00:01:54 #2792 [verbose] > │ let v5 : Result<unit, pyo3_PyErr> = method32(v4) │
00:01:54 #2793 [verbose] > │ let v6 : string = "v5 }})" │
00:01:54 #2794 [verbose] > │ Fable.Core.RustInterop.emitRustExpr () v6 │
00:01:54 #2795 [verbose] > │ let v7 : string = "{ //" │
00:01:54 #2796 [verbose] > │ Fable.Core.RustInterop.emitRustExpr () v7 │
00:01:54 #2797 [verbose] > │ let v8 : string = "__result" │
00:01:54 #2798 [verbose] > │ let v9 : Result<unit, pyo3_PyErr> = Fable.Core.RustInterop.emitRustExpr │
00:01:54 #2799 [verbose] > │ () v8 │
00:01:54 #2800 [verbose] > │ let v10 : Result<unit, pyo3_PyErr> = method33(v9) │
00:01:54 #2801 [verbose] > │ let v11 : string = "v10.unwrap()" │
00:01:54 #2802 [verbose] > │ Fable.Core.RustInterop.emitRustExpr () v11 │
00:01:54 #2803 [verbose] > │ () │
00:01:54 #2804 [verbose] > │ and method35 (v0 : pyo3_Python) : unit = │
00:01:54 #2805 [verbose] > │ let v1 : string = "num_complex::Complex::new($0, $1)" │
00:01:54 #2806 [verbose] > │ let v2 : num_complex_Complex<float> = │
00:01:54 #2807 [verbose] > │ Fable.Core.RustInterop.emitRustExpr struct (2.0, -2.0) v1 │
00:01:54 #2808 [verbose] > │ let v3 : string = $" s = mpmath.zeta(s)" │
00:01:54 #2809 [verbose] > │ let v4 : num_complex_Complex<float> = method3(v2) │
00:01:54 #2810 [verbose] > │ let v5 : Result<num_complex_Complex<float>, std_string_String> = │
00:01:54 #2811 [verbose] > │ method4(v0, v3, v4) │
00:01:54 #2812 [verbose] > │ let v6 : num_complex_Complex<float> = method24(v0, v2) │
00:01:54 #2813 [verbose] > │ let v7 : string = "v5.ok()" │
00:01:54 #2814 [verbose] > │ let v8 : num_complex_Complex<float> option = │
00:01:54 #2815 [verbose] > │ Fable.Core.RustInterop.emitRustExpr () v7 │
00:01:54 #2816 [verbose] > │ let v9 : (num_complex_Complex<float> -> US0) = method30() │
00:01:54 #2817 [verbose] > │ let v10 : US0 = US0_1 │
00:01:54 #2818 [verbose] > │ let v11 : US0 = v8 |> Option.map v9 |> Option.defaultValue v10 │
00:01:54 #2819 [verbose] > │ let v12 : string = "f64::NAN" │
00:01:54 #2820 [verbose] > │ let v13 : float = Fable.Core.RustInterop.emitRustExpr () v12 │
00:01:54 #2821 [verbose] > │ let v14 : string = "f64::NAN" │
00:01:54 #2822 [verbose] > │ let v15 : float = Fable.Core.RustInterop.emitRustExpr () v14 │
00:01:54 #2823 [verbose] > │ let v16 : string = "num_complex::Complex::new($0, $1)" │
00:01:54 #2824 [verbose] > │ let v17 : num_complex_Complex<float> = │
00:01:54 #2825 [verbose] > │ Fable.Core.RustInterop.emitRustExpr struct (v13, v15) v16 │
00:01:54 #2826 [verbose] > │ let v20 : num_complex_Complex<float> = │
00:01:54 #2827 [verbose] > │ match v11 with │
00:01:54 #2828 [verbose] > │ | US0_1 -> (* None *) │
00:01:54 #2829 [verbose] > │ v17 │
00:01:54 #2830 [verbose] > │ | US0_0(v18) -> (* Some *) │
00:01:54 #2831 [verbose] > │ v18 │
00:01:54 #2832 [verbose] > │ let v21 : num_complex_Complex<float> = method7(v20) │
00:01:54 #2833 [verbose] > │ let v22 : string = "v21.re" │
00:01:54 #2834 [verbose] > │ let v23 : float = Fable.Core.RustInterop.emitRustExpr () v22 │
00:01:54 #2835 [verbose] > │ let v24 : float = v23 - 0.8673 │
00:01:54 #2836 [verbose] > │ let v25 : float = -v24 │
00:01:54 #2837 [verbose] > │ let v26 : bool = v24 >= v25 │
00:01:54 #2838 [verbose] > │ let v27 : float = │
00:01:54 #2839 [verbose] > │ if v26 then │
00:01:54 #2840 [verbose] > │ v24 │
00:01:54 #2841 [verbose] > │ else │
00:01:54 #2842 [verbose] > │ v25 │
00:01:54 #2843 [verbose] > │ let v28 : string = $"%A{v27}" │
00:01:54 #2844 [verbose] > │ System.Console.WriteLine v28 │
00:01:54 #2845 [verbose] > │ let v29 : bool = v27 < 0.001 │
00:01:54 #2846 [verbose] > │ let v31 : bool = │
00:01:54 #2847 [verbose] > │ if v29 then │
00:01:54 #2848 [verbose] > │ true │
00:01:54 #2849 [verbose] > │ else │
00:01:54 #2850 [verbose] > │ method31(v29) │
00:01:54 #2851 [verbose] > │ let v32 : string = $"__expect / actual: %A{v27} / expected: %A{0.001}" │
00:01:54 #2852 [verbose] > │ let v33 : bool = v31 = false │
00:01:54 #2853 [verbose] > │ if v33 then │
00:01:54 #2854 [verbose] > │ failwith<unit> v32 │
00:01:54 #2855 [verbose] > │ let v34 : num_complex_Complex<float> = method8(v20) │
00:01:54 #2856 [verbose] > │ let v35 : string = "v34.im" │
00:01:54 #2857 [verbose] > │ let v36 : float = Fable.Core.RustInterop.emitRustExpr () v35 │
00:01:54 #2858 [verbose] > │ let v37 : float = v36 - 0.275 │
00:01:54 #2859 [verbose] > │ let v38 : float = -v37 │
00:01:54 #2860 [verbose] > │ let v39 : bool = v37 >= v38 │
00:01:54 #2861 [verbose] > │ let v40 : float = │
00:01:54 #2862 [verbose] > │ if v39 then │
00:01:54 #2863 [verbose] > │ v37 │
00:01:54 #2864 [verbose] > │ else │
00:01:54 #2865 [verbose] > │ v38 │
00:01:54 #2866 [verbose] > │ let v41 : string = $"%A{v40}" │
00:01:54 #2867 [verbose] > │ System.Console.WriteLine v41 │
00:01:54 #2868 [verbose] > │ let v42 : bool = v40 < 0.001 │
00:01:54 #2869 [verbose] > │ let v44 : bool = │
00:01:54 #2870 [verbose] > │ if v42 then │
00:01:54 #2871 [verbose] > │ true │
00:01:54 #2872 [verbose] > │ else │
00:01:54 #2873 [verbose] > │ method31(v42) │
00:01:54 #2874 [verbose] > │ let v45 : string = $"__expect / actual: %A{v40} / expected: %A{0.001}" │
00:01:54 #2875 [verbose] > │ let v46 : bool = v44 = false │
00:01:54 #2876 [verbose] > │ if v46 then │
00:01:54 #2877 [verbose] > │ failwith<unit> v45 │
00:01:54 #2878 [verbose] > │ and method34 () : unit = │
00:01:54 #2879 [verbose] > │ let v0 : string = "pyo3::prepare_freethreaded_python()" │
00:01:54 #2880 [verbose] > │ Fable.Core.RustInterop.emitRustExpr () v0 │
00:01:54 #2881 [verbose] > │ let v1 : string = "let __result = pyo3::Python::with_gil(|py| -> │
00:01:54 #2882 [verbose] > │ pyo3::PyResult<()> { //" │
00:01:54 #2883 [verbose] > │ Fable.Core.RustInterop.emitRustExpr () v1 │
00:01:54 #2884 [verbose] > │ let v2 : string = "py" │
00:01:54 #2885 [verbose] > │ let v3 : pyo3_Python = Fable.Core.RustInterop.emitRustExpr () v2 │
00:01:54 #2886 [verbose] > │ method35(v3) │
00:01:54 #2887 [verbose] > │ let v4 : Result<unit, pyo3_PyErr> = Ok () │
00:01:54 #2888 [verbose] > │ let v5 : Result<unit, pyo3_PyErr> = method32(v4) │
00:01:54 #2889 [verbose] > │ let v6 : string = "v5 }})" │
00:01:54 #2890 [verbose] > │ Fable.Core.RustInterop.emitRustExpr () v6 │
00:01:54 #2891 [verbose] > │ let v7 : string = "{ //" │
00:01:54 #2892 [verbose] > │ Fable.Core.RustInterop.emitRustExpr () v7 │
00:01:54 #2893 [verbose] > │ let v8 : string = "__result" │
00:01:54 #2894 [verbose] > │ let v9 : Result<unit, pyo3_PyErr> = Fable.Core.RustInterop.emitRustExpr │
00:01:54 #2895 [verbose] > │ () v8 │
00:01:54 #2896 [verbose] > │ let v10 : Result<unit, pyo3_PyErr> = method33(v9) │
00:01:54 #2897 [verbose] > │ let v11 : string = "v10.unwrap()" │
00:01:54 #2898 [verbose] > │ Fable.Core.RustInterop.emitRustExpr () v11 │
00:01:54 #2899 [verbose] > │ () │
00:01:54 #2900 [verbose] > │ and method38 () : UH0 = │
00:01:54 #2901 [verbose] > │ let v0 : UH0 = UH0_0 │
00:01:54 #2902 [verbose] > │ let v1 : UH0 = UH0_1(-40.0, v0) │
00:01:54 #2903 [verbose] > │ let v2 : UH0 = UH0_1(-38.0, v1) │
00:01:54 #2904 [verbose] > │ let v3 : UH0 = UH0_1(-36.0, v2) │
00:01:54 #2905 [verbose] > │ let v4 : UH0 = UH0_1(-34.0, v3) │
00:01:54 #2906 [verbose] > │ let v5 : UH0 = UH0_1(-32.0, v4) │
00:01:54 #2907 [verbose] > │ let v6 : UH0 = UH0_1(-30.0, v5) │
00:01:54 #2908 [verbose] > │ let v7 : UH0 = UH0_1(-28.0, v6) │
00:01:54 #2909 [verbose] > │ let v8 : UH0 = UH0_1(-26.0, v7) │
00:01:54 #2910 [verbose] > │ let v9 : UH0 = UH0_1(-24.0, v8) │
00:01:54 #2911 [verbose] > │ let v10 : UH0 = UH0_1(-22.0, v9) │
00:01:54 #2912 [verbose] > │ let v11 : UH0 = UH0_1(-20.0, v10) │
00:01:54 #2913 [verbose] > │ let v12 : UH0 = UH0_1(-18.0, v11) │
00:01:54 #2914 [verbose] > │ let v13 : UH0 = UH0_1(-16.0, v12) │
00:01:54 #2915 [verbose] > │ let v14 : UH0 = UH0_1(-14.0, v13) │
00:01:54 #2916 [verbose] > │ let v15 : UH0 = UH0_1(-12.0, v14) │
00:01:54 #2917 [verbose] > │ let v16 : UH0 = UH0_1(-10.0, v15) │
00:01:54 #2918 [verbose] > │ let v17 : UH0 = UH0_1(-8.0, v16) │
00:01:54 #2919 [verbose] > │ let v18 : UH0 = UH0_1(-6.0, v17) │
00:01:54 #2920 [verbose] > │ let v19 : UH0 = UH0_1(-4.0, v18) │
00:01:54 #2921 [verbose] > │ UH0_1(-2.0, v19) │
00:01:54 #2922 [verbose] > │ and method39 (v0 : pyo3_Python, v1 : UH0) : unit = │
00:01:54 #2923 [verbose] > │ match v1 with │
00:01:54 #2924 [verbose] > │ | UH0_1(v2, v3) -> (* Cons *) │
00:01:54 #2925 [verbose] > │ let v4 : string = "num_complex::Complex::new($0, $1)" │
00:01:54 #2926 [verbose] > │ let v5 : num_complex_Complex<float> = │
00:01:54 #2927 [verbose] > │ Fable.Core.RustInterop.emitRustExpr struct (v2, 0.0) v4 │
00:01:54 #2928 [verbose] > │ let v6 : string = $" s = mpmath.zeta(s)" │
00:01:54 #2929 [verbose] > │ let v7 : num_complex_Complex<float> = method3(v5) │
00:01:54 #2930 [verbose] > │ let v8 : Result<num_complex_Complex<float>, std_string_String> = │
00:01:54 #2931 [verbose] > │ method4(v0, v6, v7) │
00:01:54 #2932 [verbose] > │ let v9 : num_complex_Complex<float> = method24(v0, v5) │
00:01:54 #2933 [verbose] > │ let v10 : string = "v8.ok()" │
00:01:54 #2934 [verbose] > │ let v11 : num_complex_Complex<float> option = │
00:01:54 #2935 [verbose] > │ Fable.Core.RustInterop.emitRustExpr () v10 │
00:01:54 #2936 [verbose] > │ let v12 : (num_complex_Complex<float> -> US0) = method30() │
00:01:54 #2937 [verbose] > │ let v13 : US0 = US0_1 │
00:01:54 #2938 [verbose] > │ let v14 : US0 = v11 |> Option.map v12 |> Option.defaultValue v13 │
00:01:54 #2939 [verbose] > │ let v15 : string = "f64::NAN" │
00:01:54 #2940 [verbose] > │ let v16 : float = Fable.Core.RustInterop.emitRustExpr () v15 │
00:01:54 #2941 [verbose] > │ let v17 : string = "f64::NAN" │
00:01:54 #2942 [verbose] > │ let v18 : float = Fable.Core.RustInterop.emitRustExpr () v17 │
00:01:54 #2943 [verbose] > │ let v19 : string = "num_complex::Complex::new($0, $1)" │
00:01:54 #2944 [verbose] > │ let v20 : num_complex_Complex<float> = │
00:01:54 #2945 [verbose] > │ Fable.Core.RustInterop.emitRustExpr struct (v16, v18) v19 │
00:01:54 #2946 [verbose] > │ let v23 : num_complex_Complex<float> = │
00:01:54 #2947 [verbose] > │ match v14 with │
00:01:54 #2948 [verbose] > │ | US0_1 -> (* None *) │
00:01:54 #2949 [verbose] > │ v20 │
00:01:54 #2950 [verbose] > │ | US0_0(v21) -> (* Some *) │
00:01:54 #2951 [verbose] > │ v21 │
00:01:54 #2952 [verbose] > │ let v24 : num_complex_Complex<float> = method7(v23) │
00:01:54 #2953 [verbose] > │ let v25 : string = "v24.re" │
00:01:54 #2954 [verbose] > │ let v26 : float = Fable.Core.RustInterop.emitRustExpr () v25 │
00:01:54 #2955 [verbose] > │ let v27 : string = $"%A{v26}" │
00:01:54 #2956 [verbose] > │ System.Console.WriteLine v27 │
00:01:54 #2957 [verbose] > │ let v28 : bool = v26 = 0.0 │
00:01:54 #2958 [verbose] > │ let v30 : bool = │
00:01:54 #2959 [verbose] > │ if v28 then │
00:01:54 #2960 [verbose] > │ true │
00:01:54 #2961 [verbose] > │ else │
00:01:54 #2962 [verbose] > │ method31(v28) │
00:01:54 #2963 [verbose] > │ let v31 : string = $"__expect / actual: %A{v26} / expected: %A{0.0}" │
00:01:54 #2964 [verbose] > │ let v32 : bool = v30 = false │
00:01:54 #2965 [verbose] > │ if v32 then │
00:01:54 #2966 [verbose] > │ failwith<unit> v31 │
00:01:54 #2967 [verbose] > │ let v33 : num_complex_Complex<float> = method8(v23) │
00:01:54 #2968 [verbose] > │ let v34 : string = "v33.im" │
00:01:54 #2969 [verbose] > │ let v35 : float = Fable.Core.RustInterop.emitRustExpr () v34 │
00:01:54 #2970 [verbose] > │ let v36 : string = $"%A{v35}" │
00:01:54 #2971 [verbose] > │ System.Console.WriteLine v36 │
00:01:54 #2972 [verbose] > │ let v37 : bool = v35 = 0.0 │
00:01:54 #2973 [verbose] > │ let v39 : bool = │
00:01:54 #2974 [verbose] > │ if v37 then │
00:01:54 #2975 [verbose] > │ true │
00:01:54 #2976 [verbose] > │ else │
00:01:54 #2977 [verbose] > │ method31(v37) │
00:01:54 #2978 [verbose] > │ let v40 : string = $"__expect / actual: %A{v35} / expected: %A{0.0}" │
00:01:54 #2979 [verbose] > │ let v41 : bool = v39 = false │
00:01:54 #2980 [verbose] > │ if v41 then │
00:01:54 #2981 [verbose] > │ failwith<unit> v40 │
00:01:54 #2982 [verbose] > │ method39(v0, v3) │
00:01:54 #2983 [verbose] > │ | UH0_0 -> (* Nil *) │
00:01:54 #2984 [verbose] > │ () │
00:01:54 #2985 [verbose] > │ and method37 (v0 : pyo3_Python) : unit = │
00:01:54 #2986 [verbose] > │ let v1 : UH0 = method38() │
00:01:54 #2987 [verbose] > │ method39(v0, v1) │
00:01:54 #2988 [verbose] > │ and method36 () : unit = │
00:01:54 #2989 [verbose] > │ let v0 : string = "pyo3::prepare_freethreaded_python()" │
00:01:54 #2990 [verbose] > │ Fable.Core.RustInterop.emitRustExpr () v0 │
00:01:54 #2991 [verbose] > │ let v1 : string = "let __result = pyo3::Python::with_gil(|py| -> │
00:01:54 #2992 [verbose] > │ pyo3::PyResult<()> { //" │
00:01:54 #2993 [verbose] > │ Fable.Core.RustInterop.emitRustExpr () v1 │
00:01:54 #2994 [verbose] > │ let v2 : string = "py" │
00:01:54 #2995 [verbose] > │ let v3 : pyo3_Python = Fable.Core.RustInterop.emitRustExpr () v2 │
00:01:54 #2996 [verbose] > │ method37(v3) │
00:01:54 #2997 [verbose] > │ let v4 : Result<unit, pyo3_PyErr> = Ok () │
00:01:54 #2998 [verbose] > │ let v5 : Result<unit, pyo3_PyErr> = method32(v4) │
00:01:54 #2999 [verbose] > │ let v6 : string = "v5 }})" │
00:01:54 #3000 [verbose] > │ Fable.Core.RustInterop.emitRustExpr () v6 │
00:01:54 #3001 [verbose] > │ let v7 : string = "{ //" │
00:01:54 #3002 [verbose] > │ Fable.Core.RustInterop.emitRustExpr () v7 │
00:01:54 #3003 [verbose] > │ let v8 : string = "__result" │
00:01:54 #3004 [verbose] > │ let v9 : Result<unit, pyo3_PyErr> = Fable.Core.RustInterop.emitRustExpr │
00:01:54 #3005 [verbose] > │ () v8 │
00:01:54 #3006 [verbose] > │ let v10 : Result<unit, pyo3_PyErr> = method33(v9) │
00:01:54 #3007 [verbose] > │ let v11 : string = "v10.unwrap()" │
00:01:54 #3008 [verbose] > │ Fable.Core.RustInterop.emitRustExpr () v11 │
00:01:54 #3009 [verbose] > │ () │
00:01:54 #3010 [verbose] > │ and method41 (v0 : pyo3_Python) : unit = │
00:01:54 #3011 [verbose] > │ let v1 : string = "num_complex::Complex::new($0, $1)" │
00:01:54 #3012 [verbose] > │ let v2 : num_complex_Complex<float> = │
00:01:54 #3013 [verbose] > │ Fable.Core.RustInterop.emitRustExpr struct (0.5, 14.134725) v1 │
00:01:54 #3014 [verbose] > │ let v3 : string = "num_complex::Complex::new($0, $1)" │
00:01:54 #3015 [verbose] > │ let v4 : num_complex_Complex<float> = │
00:01:54 #3016 [verbose] > │ Fable.Core.RustInterop.emitRustExpr struct (0.5, 21.02204) v3 │
00:01:54 #3017 [verbose] > │ let v5 : string = "num_complex::Complex::new($0, $1)" │
00:01:54 #3018 [verbose] > │ let v6 : num_complex_Complex<float> = │
00:01:54 #3019 [verbose] > │ Fable.Core.RustInterop.emitRustExpr struct (0.5, 25.010857) v5 │
00:01:54 #3020 [verbose] > │ let v7 : string = "num_complex::Complex::new($0, $1)" │
00:01:54 #3021 [verbose] > │ let v8 : num_complex_Complex<float> = │
00:01:54 #3022 [verbose] > │ Fable.Core.RustInterop.emitRustExpr struct (0.5, 30.424876) v7 │
00:01:54 #3023 [verbose] > │ let v9 : string = "num_complex::Complex::new($0, $1)" │
00:01:54 #3024 [verbose] > │ let v10 : num_complex_Complex<float> = │
00:01:54 #3025 [verbose] > │ Fable.Core.RustInterop.emitRustExpr struct (0.5, 32.935062) v9 │
00:01:54 #3026 [verbose] > │ let v11 : string = "num_complex::Complex::new($0, $1)" │
00:01:54 #3027 [verbose] > │ let v12 : num_complex_Complex<float> = │
00:01:54 #3028 [verbose] > │ Fable.Core.RustInterop.emitRustExpr struct (0.5, 37.586178) v11 │
00:01:54 #3029 [verbose] > │ let v13 : (num_complex_Complex<float> []) = [|v2; v4; v6; v8; v10; v12|] │
00:01:54 #3030 [verbose] > │ let v14 : int32 = v13.Length │
00:01:54 #3031 [verbose] > │ let v15 : Mut0 = {l0 = 0} : Mut0 │
00:01:54 #3032 [verbose] > │ while method2(v14, v15) do │
00:01:54 #3033 [verbose] > │ let v17 : int32 = v15.l0 │
00:01:54 #3034 [verbose] > │ let v18 : num_complex_Complex<float> = v13.[int v17] │
00:01:54 #3035 [verbose] > │ let v19 : string = $" s = mpmath.zeta(s)" │
00:01:54 #3036 [verbose] > │ let v20 : num_complex_Complex<float> = method3(v18) │
00:01:54 #3037 [verbose] > │ let v21 : Result<num_complex_Complex<float>, std_string_String> = │
00:01:54 #3038 [verbose] > │ method4(v0, v19, v20) │
00:01:54 #3039 [verbose] > │ let v22 : num_complex_Complex<float> = method24(v0, v18) │
00:01:54 #3040 [verbose] > │ let v23 : string = "v21.ok()" │
00:01:54 #3041 [verbose] > │ let v24 : num_complex_Complex<float> option = │
00:01:54 #3042 [verbose] > │ Fable.Core.RustInterop.emitRustExpr () v23 │
00:01:54 #3043 [verbose] > │ let v25 : (num_complex_Complex<float> -> US0) = method30() │
00:01:54 #3044 [verbose] > │ let v26 : US0 = US0_1 │
00:01:54 #3045 [verbose] > │ let v27 : US0 = v24 |> Option.map v25 |> Option.defaultValue v26 │
00:01:54 #3046 [verbose] > │ let v28 : string = "f64::NAN" │
00:01:54 #3047 [verbose] > │ let v29 : float = Fable.Core.RustInterop.emitRustExpr () v28 │
00:01:54 #3048 [verbose] > │ let v30 : string = "f64::NAN" │
00:01:54 #3049 [verbose] > │ let v31 : float = Fable.Core.RustInterop.emitRustExpr () v30 │
00:01:54 #3050 [verbose] > │ let v32 : string = "num_complex::Complex::new($0, $1)" │
00:01:54 #3051 [verbose] > │ let v33 : num_complex_Complex<float> = │
00:01:54 #3052 [verbose] > │ Fable.Core.RustInterop.emitRustExpr struct (v29, v31) v32 │
00:01:54 #3053 [verbose] > │ let v36 : num_complex_Complex<float> = │
00:01:54 #3054 [verbose] > │ match v27 with │
00:01:54 #3055 [verbose] > │ | US0_1 -> (* None *) │
00:01:54 #3056 [verbose] > │ v33 │
00:01:54 #3057 [verbose] > │ | US0_0(v34) -> (* Some *) │
00:01:54 #3058 [verbose] > │ v34 │
00:01:54 #3059 [verbose] > │ let v37 : num_complex_Complex<float> = method7(v36) │
00:01:54 #3060 [verbose] > │ let v38 : string = "v37.re" │
00:01:54 #3061 [verbose] > │ let v39 : float = Fable.Core.RustInterop.emitRustExpr () v38 │
00:01:54 #3062 [verbose] > │ let v40 : float = -v39 │
00:01:54 #3063 [verbose] > │ let v41 : bool = v39 >= v40 │
00:01:54 #3064 [verbose] > │ let v42 : float = │
00:01:54 #3065 [verbose] > │ if v41 then │
00:01:54 #3066 [verbose] > │ v39 │
00:01:54 #3067 [verbose] > │ else │
00:01:54 #3068 [verbose] > │ v40 │
00:01:54 #3069 [verbose] > │ let v43 : string = $"%A{v42}" │
00:01:54 #3070 [verbose] > │ System.Console.WriteLine v43 │
00:01:54 #3071 [verbose] > │ let v44 : bool = v42 < 0.0001 │
00:01:54 #3072 [verbose] > │ let v46 : bool = │
00:01:54 #3073 [verbose] > │ if v44 then │
00:01:54 #3074 [verbose] > │ true │
00:01:54 #3075 [verbose] > │ else │
00:01:54 #3076 [verbose] > │ method31(v44) │
00:01:54 #3077 [verbose] > │ let v47 : string = $"__expect / actual: %A{v42} / expected: │
00:01:54 #3078 [verbose] > │ %A{0.0001}" │
00:01:54 #3079 [verbose] > │ let v48 : bool = v46 = false │
00:01:54 #3080 [verbose] > │ if v48 then │
00:01:54 #3081 [verbose] > │ failwith<unit> v47 │
00:01:54 #3082 [verbose] > │ let v49 : num_complex_Complex<float> = method8(v36) │
00:01:54 #3083 [verbose] > │ let v50 : string = "v49.im" │
00:01:54 #3084 [verbose] > │ let v51 : float = Fable.Core.RustInterop.emitRustExpr () v50 │
00:01:54 #3085 [verbose] > │ let v52 : float = -v51 │
00:01:54 #3086 [verbose] > │ let v53 : bool = v51 >= v52 │
00:01:54 #3087 [verbose] > │ let v54 : float = │
00:01:54 #3088 [verbose] > │ if v53 then │
00:01:54 #3089 [verbose] > │ v51 │
00:01:54 #3090 [verbose] > │ else │
00:01:54 #3091 [verbose] > │ v52 │
00:01:54 #3092 [verbose] > │ let v55 : string = $"%A{v54}" │
00:01:54 #3093 [verbose] > │ System.Console.WriteLine v55 │
00:01:54 #3094 [verbose] > │ let v56 : bool = v54 < 0.0001 │
00:01:54 #3095 [verbose] > │ let v58 : bool = │
00:01:54 #3096 [verbose] > │ if v56 then │
00:01:54 #3097 [verbose] > │ true │
00:01:54 #3098 [verbose] > │ else │
00:01:54 #3099 [verbose] > │ method31(v56) │
00:01:54 #3100 [verbose] > │ let v59 : string = $"__expect / actual: %A{v54} / expected: │
00:01:54 #3101 [verbose] > │ %A{0.0001}" │
00:01:54 #3102 [verbose] > │ let v60 : bool = v58 = false │
00:01:54 #3103 [verbose] > │ if v60 then │
00:01:54 #3104 [verbose] > │ failwith<unit> v59 │
00:01:54 #3105 [verbose] > │ let v61 : int32 = v17 + 1 │
00:01:54 #3106 [verbose] > │ v15.l0 <- v61 │
00:01:54 #3107 [verbose] > │ () │
00:01:54 #3108 [verbose] > │ () │
00:01:54 #3109 [verbose] > │ and method40 () : unit = │
00:01:54 #3110 [verbose] > │ let v0 : string = "pyo3::prepare_freethreaded_python()" │
00:01:54 #3111 [verbose] > │ Fable.Core.RustInterop.emitRustExpr () v0 │
00:01:54 #3112 [verbose] > │ let v1 : string = "let __result = pyo3::Python::with_gil(|py| -> │
00:01:54 #3113 [verbose] > │ pyo3::PyResult<()> { //" │
00:01:54 #3114 [verbose] > │ Fable.Core.RustInterop.emitRustExpr () v1 │
00:01:54 #3115 [verbose] > │ let v2 : string = "py" │
00:01:54 #3116 [verbose] > │ let v3 : pyo3_Python = Fable.Core.RustInterop.emitRustExpr () v2 │
00:01:54 #3117 [verbose] > │ method41(v3) │
00:01:54 #3118 [verbose] > │ let v4 : Result<unit, pyo3_PyErr> = Ok () │
00:01:54 #3119 [verbose] > │ let v5 : Result<unit, pyo3_PyErr> = method32(v4) │
00:01:54 #3120 [verbose] > │ let v6 : string = "v5 }})" │
00:01:54 #3121 [verbose] > │ Fable.Core.RustInterop.emitRustExpr () v6 │
00:01:54 #3122 [verbose] > │ let v7 : string = "{ //" │
00:01:54 #3123 [verbose] > │ Fable.Core.RustInterop.emitRustExpr () v7 │
00:01:54 #3124 [verbose] > │ let v8 : string = "__result" │
00:01:54 #3125 [verbose] > │ let v9 : Result<unit, pyo3_PyErr> = Fable.Core.RustInterop.emitRustExpr │
00:01:54 #3126 [verbose] > │ () v8 │
00:01:54 #3127 [verbose] > │ let v10 : Result<unit, pyo3_PyErr> = method33(v9) │
00:01:54 #3128 [verbose] > │ let v11 : string = "v10.unwrap()" │
00:01:54 #3129 [verbose] > │ Fable.Core.RustInterop.emitRustExpr () v11 │
00:01:54 #3130 [verbose] > │ () │
00:01:54 #3131 [verbose] > │ and method43 (v0 : pyo3_Python) : unit = │
00:01:54 #3132 [verbose] > │ let v1 : (float []) = [|2.0; 3.0; 4.0; 5.0; 10.0; 20.0; 50.0|] │
00:01:54 #3133 [verbose] > │ let v2 : int32 = v1.Length │
00:01:54 #3134 [verbose] > │ let v3 : Mut0 = {l0 = 0} : Mut0 │
00:01:54 #3135 [verbose] > │ while method2(v2, v3) do │
00:01:54 #3136 [verbose] > │ let v5 : int32 = v3.l0 │
00:01:54 #3137 [verbose] > │ let v6 : float = v1.[int v5] │
00:01:54 #3138 [verbose] > │ let v7 : string = "num_complex::Complex::new($0, $1)" │
00:01:54 #3139 [verbose] > │ let v8 : num_complex_Complex<float> = │
00:01:54 #3140 [verbose] > │ Fable.Core.RustInterop.emitRustExpr struct (v6, 0.0) v7 │
00:01:54 #3141 [verbose] > │ let v9 : string = $" s = mpmath.zeta(s)" │
00:01:54 #3142 [verbose] > │ let v10 : num_complex_Complex<float> = method3(v8) │
00:01:54 #3143 [verbose] > │ let v11 : Result<num_complex_Complex<float>, std_string_String> = │
00:01:54 #3144 [verbose] > │ method4(v0, v9, v10) │
00:01:54 #3145 [verbose] > │ let v12 : num_complex_Complex<float> = method24(v0, v8) │
00:01:54 #3146 [verbose] > │ let v13 : string = "v11.ok()" │
00:01:54 #3147 [verbose] > │ let v14 : num_complex_Complex<float> option = │
00:01:54 #3148 [verbose] > │ Fable.Core.RustInterop.emitRustExpr () v13 │
00:01:54 #3149 [verbose] > │ let v15 : (num_complex_Complex<float> -> US0) = method30() │
00:01:54 #3150 [verbose] > │ let v16 : US0 = US0_1 │
00:01:54 #3151 [verbose] > │ let v17 : US0 = v14 |> Option.map v15 |> Option.defaultValue v16 │
00:01:54 #3152 [verbose] > │ let v18 : string = "f64::NAN" │
00:01:54 #3153 [verbose] > │ let v19 : float = Fable.Core.RustInterop.emitRustExpr () v18 │
00:01:54 #3154 [verbose] > │ let v20 : string = "f64::NAN" │
00:01:54 #3155 [verbose] > │ let v21 : float = Fable.Core.RustInterop.emitRustExpr () v20 │
00:01:54 #3156 [verbose] > │ let v22 : string = "num_complex::Complex::new($0, $1)" │
00:01:54 #3157 [verbose] > │ let v23 : num_complex_Complex<float> = │
00:01:54 #3158 [verbose] > │ Fable.Core.RustInterop.emitRustExpr struct (v19, v21) v22 │
00:01:54 #3159 [verbose] > │ let v26 : num_complex_Complex<float> = │
00:01:54 #3160 [verbose] > │ match v17 with │
00:01:54 #3161 [verbose] > │ | US0_1 -> (* None *) │
00:01:54 #3162 [verbose] > │ v23 │
00:01:54 #3163 [verbose] > │ | US0_0(v24) -> (* Some *) │
00:01:54 #3164 [verbose] > │ v24 │
00:01:54 #3165 [verbose] > │ let v27 : num_complex_Complex<float> = method7(v26) │
00:01:54 #3166 [verbose] > │ let v28 : string = "v27.re" │
00:01:54 #3167 [verbose] > │ let v29 : float = Fable.Core.RustInterop.emitRustExpr () v28 │
00:01:54 #3168 [verbose] > │ let v30 : string = $"%A{v29}" │
00:01:54 #3169 [verbose] > │ System.Console.WriteLine v30 │
00:01:54 #3170 [verbose] > │ let v31 : bool = v29 > 0.0 │
00:01:54 #3171 [verbose] > │ let v33 : bool = │
00:01:54 #3172 [verbose] > │ if v31 then │
00:01:54 #3173 [verbose] > │ true │
00:01:54 #3174 [verbose] > │ else │
00:01:54 #3175 [verbose] > │ method31(v31) │
00:01:54 #3176 [verbose] > │ let v34 : string = $"__expect / actual: %A{v29} / expected: %A{0.0}" │
00:01:54 #3177 [verbose] > │ let v35 : bool = v33 = false │
00:01:54 #3178 [verbose] > │ if v35 then │
00:01:54 #3179 [verbose] > │ failwith<unit> v34 │
00:01:54 #3180 [verbose] > │ let v36 : num_complex_Complex<float> = method8(v26) │
00:01:54 #3181 [verbose] > │ let v37 : string = "v36.im" │
00:01:54 #3182 [verbose] > │ let v38 : float = Fable.Core.RustInterop.emitRustExpr () v37 │
00:01:54 #3183 [verbose] > │ let v39 : string = $"%A{v38}" │
00:01:54 #3184 [verbose] > │ System.Console.WriteLine v39 │
00:01:54 #3185 [verbose] > │ let v40 : bool = v38 = 0.0 │
00:01:54 #3186 [verbose] > │ let v42 : bool = │
00:01:54 #3187 [verbose] > │ if v40 then │
00:01:54 #3188 [verbose] > │ true │
00:01:54 #3189 [verbose] > │ else │
00:01:54 #3190 [verbose] > │ method31(v40) │
00:01:54 #3191 [verbose] > │ let v43 : string = $"__expect / actual: %A{v38} / expected: %A{0.0}" │
00:01:54 #3192 [verbose] > │ let v44 : bool = v42 = false │
00:01:54 #3193 [verbose] > │ if v44 then │
00:01:54 #3194 [verbose] > │ failwith<unit> v43 │
00:01:54 #3195 [verbose] > │ let v45 : int32 = v5 + 1 │
00:01:54 #3196 [verbose] > │ v3.l0 <- v45 │
00:01:54 #3197 [verbose] > │ () │
00:01:54 #3198 [verbose] > │ () │
00:01:54 #3199 [verbose] > │ and method42 () : unit = │
00:01:54 #3200 [verbose] > │ let v0 : string = "pyo3::prepare_freethreaded_python()" │
00:01:54 #3201 [verbose] > │ Fable.Core.RustInterop.emitRustExpr () v0 │
00:01:54 #3202 [verbose] > │ let v1 : string = "let __result = pyo3::Python::with_gil(|py| -> │
00:01:54 #3203 [verbose] > │ pyo3::PyResult<()> { //" │
00:01:54 #3204 [verbose] > │ Fable.Core.RustInterop.emitRustExpr () v1 │
00:01:54 #3205 [verbose] > │ let v2 : string = "py" │
00:01:54 #3206 [verbose] > │ let v3 : pyo3_Python = Fable.Core.RustInterop.emitRustExpr () v2 │
00:01:54 #3207 [verbose] > │ method43(v3) │
00:01:54 #3208 [verbose] > │ let v4 : Result<unit, pyo3_PyErr> = Ok () │
00:01:54 #3209 [verbose] > │ let v5 : Result<unit, pyo3_PyErr> = method32(v4) │
00:01:54 #3210 [verbose] > │ let v6 : string = "v5 }})" │
00:01:54 #3211 [verbose] > │ Fable.Core.RustInterop.emitRustExpr () v6 │
00:01:54 #3212 [verbose] > │ let v7 : string = "{ //" │
00:01:54 #3213 [verbose] > │ Fable.Core.RustInterop.emitRustExpr () v7 │
00:01:54 #3214 [verbose] > │ let v8 : string = "__result" │
00:01:54 #3215 [verbose] > │ let v9 : Result<unit, pyo3_PyErr> = Fable.Core.RustInterop.emitRustExpr │
00:01:54 #3216 [verbose] > │ () v8 │
00:01:54 #3217 [verbose] > │ let v10 : Result<unit, pyo3_PyErr> = method33(v9) │
00:01:54 #3218 [verbose] > │ let v11 : string = "v10.unwrap()" │
00:01:54 #3219 [verbose] > │ Fable.Core.RustInterop.emitRustExpr () v11 │
00:01:54 #3220 [verbose] > │ () │
00:01:54 #3221 [verbose] > │ and method45 (v0 : pyo3_Python) : unit = │
00:01:54 #3222 [verbose] > │ let v1 : string = "num_complex::Complex::new($0, $1)" │
00:01:54 #3223 [verbose] > │ let v2 : num_complex_Complex<float> = │
00:01:54 #3224 [verbose] > │ Fable.Core.RustInterop.emitRustExpr struct (1.0, 0.0) v1 │
00:01:54 #3225 [verbose] > │ let v3 : string = $" s = mpmath.zeta(s)" │
00:01:54 #3226 [verbose] > │ let v4 : num_complex_Complex<float> = method3(v2) │
00:01:54 #3227 [verbose] > │ let v5 : Result<num_complex_Complex<float>, std_string_String> = │
00:01:54 #3228 [verbose] > │ method4(v0, v3, v4) │
00:01:54 #3229 [verbose] > │ let v6 : num_complex_Complex<float> = method24(v0, v2) │
00:01:54 #3230 [verbose] > │ let v7 : string = "v5.ok()" │
00:01:54 #3231 [verbose] > │ let v8 : num_complex_Complex<float> option = │
00:01:54 #3232 [verbose] > │ Fable.Core.RustInterop.emitRustExpr () v7 │
00:01:54 #3233 [verbose] > │ let v9 : (num_complex_Complex<float> -> US0) = method30() │
00:01:54 #3234 [verbose] > │ let v10 : US0 = US0_1 │
00:01:54 #3235 [verbose] > │ let v11 : US0 = v8 |> Option.map v9 |> Option.defaultValue v10 │
00:01:54 #3236 [verbose] > │ let v12 : string = "f64::NAN" │
00:01:54 #3237 [verbose] > │ let v13 : float = Fable.Core.RustInterop.emitRustExpr () v12 │
00:01:54 #3238 [verbose] > │ let v14 : string = "f64::NAN" │
00:01:54 #3239 [verbose] > │ let v15 : float = Fable.Core.RustInterop.emitRustExpr () v14 │
00:01:54 #3240 [verbose] > │ let v16 : string = "num_complex::Complex::new($0, $1)" │
00:01:54 #3241 [verbose] > │ let v17 : num_complex_Complex<float> = │
00:01:54 #3242 [verbose] > │ Fable.Core.RustInterop.emitRustExpr struct (v13, v15) v16 │
00:01:54 #3243 [verbose] > │ let v20 : num_complex_Complex<float> = │
00:01:54 #3244 [verbose] > │ match v11 with │
00:01:54 #3245 [verbose] > │ | US0_1 -> (* None *) │
00:01:54 #3246 [verbose] > │ v17 │
00:01:54 #3247 [verbose] > │ | US0_0(v18) -> (* Some *) │
00:01:54 #3248 [verbose] > │ v18 │
00:01:54 #3249 [verbose] > │ let v21 : num_complex_Complex<float> = method7(v20) │
00:01:54 #3250 [verbose] > │ let v22 : string = "v21.re" │
00:01:54 #3251 [verbose] > │ let v23 : float = Fable.Core.RustInterop.emitRustExpr () v22 │
00:01:54 #3252 [verbose] > │ let v24 : string = $"%A{v23}" │
00:01:54 #3253 [verbose] > │ System.Console.WriteLine v24 │
00:01:54 #3254 [verbose] > │ let v25 : bool = v23 = infinity │
00:01:54 #3255 [verbose] > │ let v27 : bool = │
00:01:54 #3256 [verbose] > │ if v25 then │
00:01:54 #3257 [verbose] > │ true │
00:01:54 #3258 [verbose] > │ else │
00:01:54 #3259 [verbose] > │ method31(v25) │
00:01:54 #3260 [verbose] > │ let v28 : string = $"__expect / actual: %A{v23} / expected: │
00:01:54 #3261 [verbose] > │ %A{infinity}" │
00:01:54 #3262 [verbose] > │ let v29 : bool = v27 = false │
00:01:54 #3263 [verbose] > │ if v29 then │
00:01:54 #3264 [verbose] > │ failwith<unit> v28 │
00:01:54 #3265 [verbose] > │ let v30 : num_complex_Complex<float> = method8(v20) │
00:01:54 #3266 [verbose] > │ let v31 : string = "v30.im" │
00:01:54 #3267 [verbose] > │ let v32 : float = Fable.Core.RustInterop.emitRustExpr () v31 │
00:01:54 #3268 [verbose] > │ let v33 : string = $"%A{v32}" │
00:01:54 #3269 [verbose] > │ System.Console.WriteLine v33 │
00:01:54 #3270 [verbose] > │ let v34 : bool = v32 = 0.0 │
00:01:54 #3271 [verbose] > │ let v36 : bool = │
00:01:54 #3272 [verbose] > │ if v34 then │
00:01:54 #3273 [verbose] > │ true │
00:01:54 #3274 [verbose] > │ else │
00:01:54 #3275 [verbose] > │ method31(v34) │
00:01:54 #3276 [verbose] > │ let v37 : string = $"__expect / actual: %A{v32} / expected: %A{0.0}" │
00:01:54 #3277 [verbose] > │ let v38 : bool = v36 = false │
00:01:54 #3278 [verbose] > │ if v38 then │
00:01:54 #3279 [verbose] > │ failwith<unit> v37 │
00:01:54 #3280 [verbose] > │ and method44 () : unit = │
00:01:54 #3281 [verbose] > │ let v0 : string = "pyo3::prepare_freethreaded_python()" │
00:01:54 #3282 [verbose] > │ Fable.Core.RustInterop.emitRustExpr () v0 │
00:01:54 #3283 [verbose] > │ let v1 : string = "let __result = pyo3::Python::with_gil(|py| -> │
00:01:54 #3284 [verbose] > │ pyo3::PyResult<()> { //" │
00:01:54 #3285 [verbose] > │ Fable.Core.RustInterop.emitRustExpr () v1 │
00:01:54 #3286 [verbose] > │ let v2 : string = "py" │
00:01:54 #3287 [verbose] > │ let v3 : pyo3_Python = Fable.Core.RustInterop.emitRustExpr () v2 │
00:01:54 #3288 [verbose] > │ method45(v3) │
00:01:54 #3289 [verbose] > │ let v4 : Result<unit, pyo3_PyErr> = Ok () │
00:01:54 #3290 [verbose] > │ let v5 : Result<unit, pyo3_PyErr> = method32(v4) │
00:01:54 #3291 [verbose] > │ let v6 : string = "v5 }})" │
00:01:54 #3292 [verbose] > │ Fable.Core.RustInterop.emitRustExpr () v6 │
00:01:54 #3293 [verbose] > │ let v7 : string = "{ //" │
00:01:54 #3294 [verbose] > │ Fable.Core.RustInterop.emitRustExpr () v7 │
00:01:54 #3295 [verbose] > │ let v8 : string = "__result" │
00:01:54 #3296 [verbose] > │ let v9 : Result<unit, pyo3_PyErr> = Fable.Core.RustInterop.emitRustExpr │
00:01:54 #3297 [verbose] > │ () v8 │
00:01:54 #3298 [verbose] > │ let v10 : Result<unit, pyo3_PyErr> = method33(v9) │
00:01:54 #3299 [verbose] > │ let v11 : string = "v10.unwrap()" │
00:01:54 #3300 [verbose] > │ Fable.Core.RustInterop.emitRustExpr () v11 │
00:01:54 #3301 [verbose] > │ () │
00:01:54 #3302 [verbose] > │ and method47 (v0 : pyo3_Python) : unit = │
00:01:54 #3303 [verbose] > │ let v1 : string = "num_complex::Complex::new($0, $1)" │
00:01:54 #3304 [verbose] > │ let v2 : num_complex_Complex<float> = │
00:01:54 #3305 [verbose] > │ Fable.Core.RustInterop.emitRustExpr struct (2.0, 10.0) v1 │
00:01:54 #3306 [verbose] > │ let v3 : string = $" s = mpmath.zeta(s)" │
00:01:54 #3307 [verbose] > │ let v4 : num_complex_Complex<float> = method3(v2) │
00:01:54 #3308 [verbose] > │ let v5 : Result<num_complex_Complex<float>, std_string_String> = │
00:01:54 #3309 [verbose] > │ method4(v0, v3, v4) │
00:01:54 #3310 [verbose] > │ let v6 : num_complex_Complex<float> = method24(v0, v2) │
00:01:54 #3311 [verbose] > │ let v7 : string = "v5.ok()" │
00:01:54 #3312 [verbose] > │ let v8 : num_complex_Complex<float> option = │
00:01:54 #3313 [verbose] > │ Fable.Core.RustInterop.emitRustExpr () v7 │
00:01:54 #3314 [verbose] > │ let v9 : (num_complex_Complex<float> -> US0) = method30() │
00:01:54 #3315 [verbose] > │ let v10 : US0 = US0_1 │
00:01:54 #3316 [verbose] > │ let v11 : US0 = v8 |> Option.map v9 |> Option.defaultValue v10 │
00:01:54 #3317 [verbose] > │ let v12 : string = "f64::NAN" │
00:01:54 #3318 [verbose] > │ let v13 : float = Fable.Core.RustInterop.emitRustExpr () v12 │
00:01:54 #3319 [verbose] > │ let v14 : string = "f64::NAN" │
00:01:54 #3320 [verbose] > │ let v15 : float = Fable.Core.RustInterop.emitRustExpr () v14 │
00:01:54 #3321 [verbose] > │ let v16 : string = "num_complex::Complex::new($0, $1)" │
00:01:54 #3322 [verbose] > │ let v17 : num_complex_Complex<float> = │
00:01:54 #3323 [verbose] > │ Fable.Core.RustInterop.emitRustExpr struct (v13, v15) v16 │
00:01:54 #3324 [verbose] > │ let v20 : num_complex_Complex<float> = │
00:01:54 #3325 [verbose] > │ match v11 with │
00:01:54 #3326 [verbose] > │ | US0_1 -> (* None *) │
00:01:54 #3327 [verbose] > │ v17 │
00:01:54 #3328 [verbose] > │ | US0_0(v18) -> (* Some *) │
00:01:54 #3329 [verbose] > │ v18 │
00:01:54 #3330 [verbose] > │ let v21 : num_complex_Complex<float> = method7(v2) │
00:01:54 #3331 [verbose] > │ let v22 : string = "v21.re" │
00:01:54 #3332 [verbose] > │ let v23 : float = Fable.Core.RustInterop.emitRustExpr () v22 │
00:01:54 #3333 [verbose] > │ let v24 : num_complex_Complex<float> = method8(v2) │
00:01:54 #3334 [verbose] > │ let v25 : string = "v24.im" │
00:01:54 #3335 [verbose] > │ let v26 : float = Fable.Core.RustInterop.emitRustExpr () v25 │
00:01:54 #3336 [verbose] > │ let v27 : float = -v26 │
00:01:54 #3337 [verbose] > │ let v28 : string = "num_complex::Complex::new($0, $1)" │
00:01:54 #3338 [verbose] > │ let v29 : num_complex_Complex<float> = │
00:01:54 #3339 [verbose] > │ Fable.Core.RustInterop.emitRustExpr struct (v23, v27) v28 │
00:01:54 #3340 [verbose] > │ let v30 : string = $" s = mpmath.zeta(s)" │
00:01:54 #3341 [verbose] > │ let v31 : num_complex_Complex<float> = method3(v29) │
00:01:54 #3342 [verbose] > │ let v32 : Result<num_complex_Complex<float>, std_string_String> = │
00:01:54 #3343 [verbose] > │ method4(v0, v30, v31) │
00:01:54 #3344 [verbose] > │ let v33 : num_complex_Complex<float> = method24(v0, v29) │
00:01:54 #3345 [verbose] > │ let v34 : string = "v32.ok()" │
00:01:54 #3346 [verbose] > │ let v35 : num_complex_Complex<float> option = │
00:01:54 #3347 [verbose] > │ Fable.Core.RustInterop.emitRustExpr () v34 │
00:01:54 #3348 [verbose] > │ let v36 : (num_complex_Complex<float> -> US0) = method30() │
00:01:54 #3349 [verbose] > │ let v37 : US0 = US0_1 │
00:01:54 #3350 [verbose] > │ let v38 : US0 = v35 |> Option.map v36 |> Option.defaultValue v37 │
00:01:54 #3351 [verbose] > │ let v39 : string = "f64::NAN" │
00:01:54 #3352 [verbose] > │ let v40 : float = Fable.Core.RustInterop.emitRustExpr () v39 │
00:01:54 #3353 [verbose] > │ let v41 : string = "f64::NAN" │
00:01:54 #3354 [verbose] > │ let v42 : float = Fable.Core.RustInterop.emitRustExpr () v41 │
00:01:54 #3355 [verbose] > │ let v43 : string = "num_complex::Complex::new($0, $1)" │
00:01:54 #3356 [verbose] > │ let v44 : num_complex_Complex<float> = │
00:01:54 #3357 [verbose] > │ Fable.Core.RustInterop.emitRustExpr struct (v40, v42) v43 │
00:01:54 #3358 [verbose] > │ let v47 : num_complex_Complex<float> = │
00:01:54 #3359 [verbose] > │ match v38 with │
00:01:54 #3360 [verbose] > │ | US0_1 -> (* None *) │
00:01:54 #3361 [verbose] > │ v44 │
00:01:54 #3362 [verbose] > │ | US0_0(v45) -> (* Some *) │
00:01:54 #3363 [verbose] > │ v45 │
00:01:54 #3364 [verbose] > │ let v48 : string = "v47.conj()" │
00:01:54 #3365 [verbose] > │ let v49 : num_complex_Complex<float> = │
00:01:54 #3366 [verbose] > │ Fable.Core.RustInterop.emitRustExpr () v48 │
00:01:54 #3367 [verbose] > │ let v50 : num_complex_Complex<float> = method7(v20) │
00:01:54 #3368 [verbose] > │ let v51 : string = "v50.re" │
00:01:54 #3369 [verbose] > │ let v52 : float = Fable.Core.RustInterop.emitRustExpr () v51 │
00:01:54 #3370 [verbose] > │ let v53 : num_complex_Complex<float> = method7(v49) │
00:01:54 #3371 [verbose] > │ let v54 : string = "v53.re" │
00:01:54 #3372 [verbose] > │ let v55 : float = Fable.Core.RustInterop.emitRustExpr () v54 │
00:01:54 #3373 [verbose] > │ let v56 : string = $"%A{v52}" │
00:01:54 #3374 [verbose] > │ System.Console.WriteLine v56 │
00:01:54 #3375 [verbose] > │ let v57 : bool = v52 = v55 │
00:01:54 #3376 [verbose] > │ let v59 : bool = │
00:01:54 #3377 [verbose] > │ if v57 then │
00:01:54 #3378 [verbose] > │ true │
00:01:54 #3379 [verbose] > │ else │
00:01:54 #3380 [verbose] > │ method31(v57) │
00:01:54 #3381 [verbose] > │ let v60 : string = $"__expect / actual: %A{v52} / expected: %A{v55}" │
00:01:54 #3382 [verbose] > │ let v61 : bool = v59 = false │
00:01:54 #3383 [verbose] > │ if v61 then │
00:01:54 #3384 [verbose] > │ failwith<unit> v60 │
00:01:54 #3385 [verbose] > │ let v62 : num_complex_Complex<float> = method8(v20) │
00:01:54 #3386 [verbose] > │ let v63 : string = "v62.im" │
00:01:54 #3387 [verbose] > │ let v64 : float = Fable.Core.RustInterop.emitRustExpr () v63 │
00:01:54 #3388 [verbose] > │ let v65 : num_complex_Complex<float> = method8(v49) │
00:01:54 #3389 [verbose] > │ let v66 : string = "v65.im" │
00:01:54 #3390 [verbose] > │ let v67 : float = Fable.Core.RustInterop.emitRustExpr () v66 │
00:01:54 #3391 [verbose] > │ let v68 : string = $"%A{v64}" │
00:01:54 #3392 [verbose] > │ System.Console.WriteLine v68 │
00:01:54 #3393 [verbose] > │ let v69 : bool = v64 = v67 │
00:01:54 #3394 [verbose] > │ let v71 : bool = │
00:01:54 #3395 [verbose] > │ if v69 then │
00:01:54 #3396 [verbose] > │ true │
00:01:54 #3397 [verbose] > │ else │
00:01:54 #3398 [verbose] > │ method31(v69) │
00:01:54 #3399 [verbose] > │ let v72 : string = $"__expect / actual: %A{v64} / expected: %A{v67}" │
00:01:54 #3400 [verbose] > │ let v73 : bool = v71 = false │
00:01:54 #3401 [verbose] > │ if v73 then │
00:01:54 #3402 [verbose] > │ failwith<unit> v72 │
00:01:54 #3403 [verbose] > │ and method46 () : unit = │
00:01:54 #3404 [verbose] > │ let v0 : string = "pyo3::prepare_freethreaded_python()" │
00:01:54 #3405 [verbose] > │ Fable.Core.RustInterop.emitRustExpr () v0 │
00:01:54 #3406 [verbose] > │ let v1 : string = "let __result = pyo3::Python::with_gil(|py| -> │
00:01:54 #3407 [verbose] > │ pyo3::PyResult<()> { //" │
00:01:54 #3408 [verbose] > │ Fable.Core.RustInterop.emitRustExpr () v1 │
00:01:54 #3409 [verbose] > │ let v2 : string = "py" │
00:01:54 #3410 [verbose] > │ let v3 : pyo3_Python = Fable.Core.RustInterop.emitRustExpr () v2 │
00:01:54 #3411 [verbose] > │ method47(v3) │
00:01:54 #3412 [verbose] > │ let v4 : Result<unit, pyo3_PyErr> = Ok () │
00:01:54 #3413 [verbose] > │ let v5 : Result<unit, pyo3_PyErr> = method32(v4) │
00:01:54 #3414 [verbose] > │ let v6 : string = "v5 }})" │
00:01:54 #3415 [verbose] > │ Fable.Core.RustInterop.emitRustExpr () v6 │
00:01:54 #3416 [verbose] > │ let v7 : string = "{ //" │
00:01:54 #3417 [verbose] > │ Fable.Core.RustInterop.emitRustExpr () v7 │
00:01:54 #3418 [verbose] > │ let v8 : string = "__result" │
00:01:54 #3419 [verbose] > │ let v9 : Result<unit, pyo3_PyErr> = Fable.Core.RustInterop.emitRustExpr │
00:01:54 #3420 [verbose] > │ () v8 │
00:01:54 #3421 [verbose] > │ let v10 : Result<unit, pyo3_PyErr> = method33(v9) │
00:01:54 #3422 [verbose] > │ let v11 : string = "v10.unwrap()" │
00:01:54 #3423 [verbose] > │ Fable.Core.RustInterop.emitRustExpr () v11 │
00:01:54 #3424 [verbose] > │ () │
00:01:54 #3425 [verbose] > │ and method49 (v0 : pyo3_Python) : unit = │
00:01:54 #3426 [verbose] > │ let v1 : string = "num_complex::Complex::new($0, $1)" │
00:01:54 #3427 [verbose] > │ let v2 : num_complex_Complex<float> = │
00:01:54 #3428 [verbose] > │ Fable.Core.RustInterop.emitRustExpr struct (0.01, 0.01) v1 │
00:01:54 #3429 [verbose] > │ let v3 : string = $" s = mpmath.zeta(s)" │
00:01:54 #3430 [verbose] > │ let v4 : num_complex_Complex<float> = method3(v2) │
00:01:54 #3431 [verbose] > │ let v5 : Result<num_complex_Complex<float>, std_string_String> = │
00:01:54 #3432 [verbose] > │ method4(v0, v3, v4) │
00:01:54 #3433 [verbose] > │ let v6 : num_complex_Complex<float> = method24(v0, v2) │
00:01:54 #3434 [verbose] > │ let v7 : string = "v5.ok()" │
00:01:54 #3435 [verbose] > │ let v8 : num_complex_Complex<float> option = │
00:01:54 #3436 [verbose] > │ Fable.Core.RustInterop.emitRustExpr () v7 │
00:01:54 #3437 [verbose] > │ let v9 : (num_complex_Complex<float> -> US0) = method30() │
00:01:54 #3438 [verbose] > │ let v10 : US0 = US0_1 │
00:01:54 #3439 [verbose] > │ let v11 : US0 = v8 |> Option.map v9 |> Option.defaultValue v10 │
00:01:54 #3440 [verbose] > │ let v12 : string = "f64::NAN" │
00:01:54 #3441 [verbose] > │ let v13 : float = Fable.Core.RustInterop.emitRustExpr () v12 │
00:01:54 #3442 [verbose] > │ let v14 : string = "f64::NAN" │
00:01:54 #3443 [verbose] > │ let v15 : float = Fable.Core.RustInterop.emitRustExpr () v14 │
00:01:54 #3444 [verbose] > │ let v16 : string = "num_complex::Complex::new($0, $1)" │
00:01:54 #3445 [verbose] > │ let v17 : num_complex_Complex<float> = │
00:01:54 #3446 [verbose] > │ Fable.Core.RustInterop.emitRustExpr struct (v13, v15) v16 │
00:01:54 #3447 [verbose] > │ let v20 : num_complex_Complex<float> = │
00:01:54 #3448 [verbose] > │ match v11 with │
00:01:54 #3449 [verbose] > │ | US0_1 -> (* None *) │
00:01:54 #3450 [verbose] > │ v17 │
00:01:54 #3451 [verbose] > │ | US0_0(v18) -> (* Some *) │
00:01:54 #3452 [verbose] > │ v18 │
00:01:54 #3453 [verbose] > │ let v21 : num_complex_Complex<float> = method7(v20) │
00:01:54 #3454 [verbose] > │ let v22 : string = "v21.re" │
00:01:54 #3455 [verbose] > │ let v23 : float = Fable.Core.RustInterop.emitRustExpr () v22 │
00:01:54 #3456 [verbose] > │ let v24 : string = $"%A{v23}" │
00:01:54 #3457 [verbose] > │ System.Console.WriteLine v24 │
00:01:54 #3458 [verbose] > │ let v25 : bool = v23 < infinity │
00:01:54 #3459 [verbose] > │ let v27 : bool = │
00:01:54 #3460 [verbose] > │ if v25 then │
00:01:54 #3461 [verbose] > │ true │
00:01:54 #3462 [verbose] > │ else │
00:01:54 #3463 [verbose] > │ method31(v25) │
00:01:54 #3464 [verbose] > │ let v28 : string = $"__expect / actual: %A{v23} / expected: │
00:01:54 #3465 [verbose] > │ %A{infinity}" │
00:01:54 #3466 [verbose] > │ let v29 : bool = v27 = false │
00:01:54 #3467 [verbose] > │ if v29 then │
00:01:54 #3468 [verbose] > │ failwith<unit> v28 │
00:01:54 #3469 [verbose] > │ let v30 : num_complex_Complex<float> = method8(v20) │
00:01:54 #3470 [verbose] > │ let v31 : string = "v30.im" │
00:01:54 #3471 [verbose] > │ let v32 : float = Fable.Core.RustInterop.emitRustExpr () v31 │
00:01:54 #3472 [verbose] > │ let v33 : string = $"%A{v32}" │
00:01:54 #3473 [verbose] > │ System.Console.WriteLine v33 │
00:01:54 #3474 [verbose] > │ let v34 : bool = v32 < infinity │
00:01:54 #3475 [verbose] > │ let v36 : bool = │
00:01:54 #3476 [verbose] > │ if v34 then │
00:01:54 #3477 [verbose] > │ true │
00:01:54 #3478 [verbose] > │ else │
00:01:54 #3479 [verbose] > │ method31(v34) │
00:01:54 #3480 [verbose] > │ let v37 : string = $"__expect / actual: %A{v32} / expected: │
00:01:54 #3481 [verbose] > │ %A{infinity}" │
00:01:54 #3482 [verbose] > │ let v38 : bool = v36 = false │
00:01:54 #3483 [verbose] > │ if v38 then │
00:01:54 #3484 [verbose] > │ failwith<unit> v37 │
00:01:54 #3485 [verbose] > │ and method48 () : unit = │
00:01:54 #3486 [verbose] > │ let v0 : string = "pyo3::prepare_freethreaded_python()" │
00:01:54 #3487 [verbose] > │ Fable.Core.RustInterop.emitRustExpr () v0 │
00:01:54 #3488 [verbose] > │ let v1 : string = "let __result = pyo3::Python::with_gil(|py| -> │
00:01:54 #3489 [verbose] > │ pyo3::PyResult<()> { //" │
00:01:54 #3490 [verbose] > │ Fable.Core.RustInterop.emitRustExpr () v1 │
00:01:54 #3491 [verbose] > │ let v2 : string = "py" │
00:01:54 #3492 [verbose] > │ let v3 : pyo3_Python = Fable.Core.RustInterop.emitRustExpr () v2 │
00:01:54 #3493 [verbose] > │ method49(v3) │
00:01:54 #3494 [verbose] > │ let v4 : Result<unit, pyo3_PyErr> = Ok () │
00:01:54 #3495 [verbose] > │ let v5 : Result<unit, pyo3_PyErr> = method32(v4) │
00:01:54 #3496 [verbose] > │ let v6 : string = "v5 }})" │
00:01:54 #3497 [verbose] > │ Fable.Core.RustInterop.emitRustExpr () v6 │
00:01:54 #3498 [verbose] > │ let v7 : string = "{ //" │
00:01:54 #3499 [verbose] > │ Fable.Core.RustInterop.emitRustExpr () v7 │
00:01:54 #3500 [verbose] > │ let v8 : string = "__result" │
00:01:54 #3501 [verbose] > │ let v9 : Result<unit, pyo3_PyErr> = Fable.Core.RustInterop.emitRustExpr │
00:01:54 #3502 [verbose] > │ () v8 │
00:01:54 #3503 [verbose] > │ let v10 : Result<unit, pyo3_PyErr> = method33(v9) │
00:01:54 #3504 [verbose] > │ let v11 : string = "v10.unwrap()" │
00:01:54 #3505 [verbose] > │ Fable.Core.RustInterop.emitRustExpr () v11 │
00:01:54 #3506 [verbose] > │ () │
00:01:54 #3507 [verbose] > │ and method52 () : (float []) = │
00:01:54 #3508 [verbose] > │ let v0 : (float []) = [|10.0; 20.0; 30.0; 40.0; 50.0; 60.0; 70.0; 80.0; │
00:01:54 #3509 [verbose] > │ 90.0; 100.0|] │
00:01:54 #3510 [verbose] > │ v0 │
00:01:54 #3511 [verbose] > │ and method53 (v0 : bool) : bool = │
00:01:54 #3512 [verbose] > │ let v1 : bool = v0 = false │
00:01:54 #3513 [verbose] > │ v1 │
00:01:54 #3514 [verbose] > │ and method51 (v0 : pyo3_Python) : unit = │
00:01:54 #3515 [verbose] > │ let v1 : (float []) = method52() │
00:01:54 #3516 [verbose] > │ let v2 : int32 = v1.Length │
00:01:54 #3517 [verbose] > │ let v3 : Mut0 = {l0 = 0} : Mut0 │
00:01:54 #3518 [verbose] > │ while method2(v2, v3) do │
00:01:54 #3519 [verbose] > │ let v5 : int32 = v3.l0 │
00:01:54 #3520 [verbose] > │ let v6 : float = v1.[int v5] │
00:01:54 #3521 [verbose] > │ let v7 : string = "num_complex::Complex::new($0, $1)" │
00:01:54 #3522 [verbose] > │ let v8 : num_complex_Complex<float> = │
00:01:54 #3523 [verbose] > │ Fable.Core.RustInterop.emitRustExpr struct (0.0, v6) v7 │
00:01:54 #3524 [verbose] > │ let v9 : string = $" s = mpmath.zeta(s)" │
00:01:54 #3525 [verbose] > │ let v10 : num_complex_Complex<float> = method3(v8) │
00:01:54 #3526 [verbose] > │ let v11 : Result<num_complex_Complex<float>, std_string_String> = │
00:01:54 #3527 [verbose] > │ method4(v0, v9, v10) │
00:01:54 #3528 [verbose] > │ let v12 : num_complex_Complex<float> = method24(v0, v8) │
00:01:54 #3529 [verbose] > │ let v13 : string = "v11.ok()" │
00:01:54 #3530 [verbose] > │ let v14 : num_complex_Complex<float> option = │
00:01:54 #3531 [verbose] > │ Fable.Core.RustInterop.emitRustExpr () v13 │
00:01:54 #3532 [verbose] > │ let v15 : (num_complex_Complex<float> -> US0) = method30() │
00:01:54 #3533 [verbose] > │ let v16 : US0 = US0_1 │
00:01:54 #3534 [verbose] > │ let v17 : US0 = v14 |> Option.map v15 |> Option.defaultValue v16 │
00:01:54 #3535 [verbose] > │ let v18 : string = "f64::NAN" │
00:01:54 #3536 [verbose] > │ let v19 : float = Fable.Core.RustInterop.emitRustExpr () v18 │
00:01:54 #3537 [verbose] > │ let v20 : string = "f64::NAN" │
00:01:54 #3538 [verbose] > │ let v21 : float = Fable.Core.RustInterop.emitRustExpr () v20 │
00:01:54 #3539 [verbose] > │ let v22 : string = "num_complex::Complex::new($0, $1)" │
00:01:54 #3540 [verbose] > │ let v23 : num_complex_Complex<float> = │
00:01:54 #3541 [verbose] > │ Fable.Core.RustInterop.emitRustExpr struct (v19, v21) v22 │
00:01:54 #3542 [verbose] > │ let v26 : num_complex_Complex<float> = │
00:01:54 #3543 [verbose] > │ match v17 with │
00:01:54 #3544 [verbose] > │ | US0_1 -> (* None *) │
00:01:54 #3545 [verbose] > │ v23 │
00:01:54 #3546 [verbose] > │ | US0_0(v24) -> (* Some *) │
00:01:54 #3547 [verbose] > │ v24 │
00:01:54 #3548 [verbose] > │ let v27 : num_complex_Complex<float> = method7(v26) │
00:01:54 #3549 [verbose] > │ let v28 : string = "v27.re" │
00:01:54 #3550 [verbose] > │ let v29 : float = Fable.Core.RustInterop.emitRustExpr () v28 │
00:01:54 #3551 [verbose] > │ let v30 : string = $"%A{v29}" │
00:01:54 #3552 [verbose] > │ System.Console.WriteLine v30 │
00:01:54 #3553 [verbose] > │ let v31 : bool = v29 = 0.0 │
00:01:54 #3554 [verbose] > │ let v32 : bool = method53(v31) │
00:01:54 #3555 [verbose] > │ let v34 : bool = │
00:01:54 #3556 [verbose] > │ if v32 then │
00:01:54 #3557 [verbose] > │ true │
00:01:54 #3558 [verbose] > │ else │
00:01:54 #3559 [verbose] > │ method31(v32) │
00:01:54 #3560 [verbose] > │ let v35 : string = $"__expect / actual: %A{v29} / expected: %A{0.0}" │
00:01:54 #3561 [verbose] > │ let v36 : bool = v34 = false │
00:01:54 #3562 [verbose] > │ if v36 then │
00:01:54 #3563 [verbose] > │ failwith<unit> v35 │
00:01:54 #3564 [verbose] > │ let v37 : num_complex_Complex<float> = method8(v26) │
00:01:54 #3565 [verbose] > │ let v38 : string = "v37.im" │
00:01:54 #3566 [verbose] > │ let v39 : float = Fable.Core.RustInterop.emitRustExpr () v38 │
00:01:54 #3567 [verbose] > │ let v40 : string = $"%A{v39}" │
00:01:54 #3568 [verbose] > │ System.Console.WriteLine v40 │
00:01:54 #3569 [verbose] > │ let v41 : bool = v39 = 0.0 │
00:01:54 #3570 [verbose] > │ let v42 : bool = method53(v41) │
00:01:54 #3571 [verbose] > │ let v44 : bool = │
00:01:54 #3572 [verbose] > │ if v42 then │
00:01:54 #3573 [verbose] > │ true │
00:01:54 #3574 [verbose] > │ else │
00:01:54 #3575 [verbose] > │ method31(v42) │
00:01:54 #3576 [verbose] > │ let v45 : string = $"__expect / actual: %A{v39} / expected: %A{0.0}" │
00:01:54 #3577 [verbose] > │ let v46 : bool = v44 = false │
00:01:54 #3578 [verbose] > │ if v46 then │
00:01:54 #3579 [verbose] > │ failwith<unit> v45 │
00:01:54 #3580 [verbose] > │ let v47 : int32 = v5 + 1 │
00:01:54 #3581 [verbose] > │ v3.l0 <- v47 │
00:01:54 #3582 [verbose] > │ () │
00:01:54 #3583 [verbose] > │ () │
00:01:54 #3584 [verbose] > │ and method50 () : unit = │
00:01:54 #3585 [verbose] > │ let v0 : string = "pyo3::prepare_freethreaded_python()" │
00:01:54 #3586 [verbose] > │ Fable.Core.RustInterop.emitRustExpr () v0 │
00:01:54 #3587 [verbose] > │ let v1 : string = "let __result = pyo3::Python::with_gil(|py| -> │
00:01:54 #3588 [verbose] > │ pyo3::PyResult<()> { //" │
00:01:54 #3589 [verbose] > │ Fable.Core.RustInterop.emitRustExpr () v1 │
00:01:54 #3590 [verbose] > │ let v2 : string = "py" │
00:01:54 #3591 [verbose] > │ let v3 : pyo3_Python = Fable.Core.RustInterop.emitRustExpr () v2 │
00:01:54 #3592 [verbose] > │ method51(v3) │
00:01:54 #3593 [verbose] > │ let v4 : Result<unit, pyo3_PyErr> = Ok () │
00:01:54 #3594 [verbose] > │ let v5 : Result<unit, pyo3_PyErr> = method32(v4) │
00:01:54 #3595 [verbose] > │ let v6 : string = "v5 }})" │
00:01:54 #3596 [verbose] > │ Fable.Core.RustInterop.emitRustExpr () v6 │
00:01:54 #3597 [verbose] > │ let v7 : string = "{ //" │
00:01:54 #3598 [verbose] > │ Fable.Core.RustInterop.emitRustExpr () v7 │
00:01:54 #3599 [verbose] > │ let v8 : string = "__result" │
00:01:54 #3600 [verbose] > │ let v9 : Result<unit, pyo3_PyErr> = Fable.Core.RustInterop.emitRustExpr │
00:01:54 #3601 [verbose] > │ () v8 │
00:01:54 #3602 [verbose] > │ let v10 : Result<unit, pyo3_PyErr> = method33(v9) │
00:01:54 #3603 [verbose] > │ let v11 : string = "v10.unwrap()" │
00:01:54 #3604 [verbose] > │ Fable.Core.RustInterop.emitRustExpr () v11 │
00:01:54 #3605 [verbose] > │ () │
00:01:54 #3606 [verbose] > │ and method55 (v0 : pyo3_Python) : unit = │
00:01:54 #3607 [verbose] > │ let v1 : string = "num_complex::Complex::new($0, $1)" │
00:01:54 #3608 [verbose] > │ let v2 : num_complex_Complex<float> = │
00:01:54 #3609 [verbose] > │ Fable.Core.RustInterop.emitRustExpr struct (0.5, 14.134725) v1 │
00:01:54 #3610 [verbose] > │ let v3 : string = "num_complex::Complex::new($0, $1)" │
00:01:54 #3611 [verbose] > │ let v4 : num_complex_Complex<float> = │
00:01:54 #3612 [verbose] > │ Fable.Core.RustInterop.emitRustExpr struct (0.75, 20.5) v3 │
00:01:54 #3613 [verbose] > │ let v5 : string = "num_complex::Complex::new($0, $1)" │
00:01:54 #3614 [verbose] > │ let v6 : num_complex_Complex<float> = │
00:01:54 #3615 [verbose] > │ Fable.Core.RustInterop.emitRustExpr struct (1.25, 30.1) v5 │
00:01:54 #3616 [verbose] > │ let v7 : string = "num_complex::Complex::new($0, $1)" │
00:01:54 #3617 [verbose] > │ let v8 : num_complex_Complex<float> = │
00:01:54 #3618 [verbose] > │ Fable.Core.RustInterop.emitRustExpr struct (0.25, 40.0) v7 │
00:01:54 #3619 [verbose] > │ let v9 : string = "num_complex::Complex::new($0, $1)" │
00:01:54 #3620 [verbose] > │ let v10 : num_complex_Complex<float> = │
00:01:54 #3621 [verbose] > │ Fable.Core.RustInterop.emitRustExpr struct (1.0, 50.0) v9 │
00:01:54 #3622 [verbose] > │ let v11 : (num_complex_Complex<float> []) = [|v2; v4; v6; v8; v10|] │
00:01:54 #3623 [verbose] > │ let v12 : int32 = v11.Length │
00:01:54 #3624 [verbose] > │ let v13 : Mut0 = {l0 = 0} : Mut0 │
00:01:54 #3625 [verbose] > │ while method2(v12, v13) do │
00:01:54 #3626 [verbose] > │ let v15 : int32 = v13.l0 │
00:01:54 #3627 [verbose] > │ let v16 : num_complex_Complex<float> = v11.[int v15] │
00:01:54 #3628 [verbose] > │ let v17 : string = $" s = mpmath.zeta(s)" │
00:01:54 #3629 [verbose] > │ let v18 : num_complex_Complex<float> = method3(v16) │
00:01:54 #3630 [verbose] > │ let v19 : Result<num_complex_Complex<float>, std_string_String> = │
00:01:54 #3631 [verbose] > │ method4(v0, v17, v18) │
00:01:54 #3632 [verbose] > │ let v20 : num_complex_Complex<float> = method24(v0, v16) │
00:01:54 #3633 [verbose] > │ let v21 : string = "v19.ok()" │
00:01:54 #3634 [verbose] > │ let v22 : num_complex_Complex<float> option = │
00:01:54 #3635 [verbose] > │ Fable.Core.RustInterop.emitRustExpr () v21 │
00:01:54 #3636 [verbose] > │ let v23 : (num_complex_Complex<float> -> US0) = method30() │
00:01:54 #3637 [verbose] > │ let v24 : US0 = US0_1 │
00:01:54 #3638 [verbose] > │ let v25 : US0 = v22 |> Option.map v23 |> Option.defaultValue v24 │
00:01:54 #3639 [verbose] > │ let v26 : string = "f64::NAN" │
00:01:54 #3640 [verbose] > │ let v27 : float = Fable.Core.RustInterop.emitRustExpr () v26 │
00:01:54 #3641 [verbose] > │ let v28 : string = "f64::NAN" │
00:01:54 #3642 [verbose] > │ let v29 : float = Fable.Core.RustInterop.emitRustExpr () v28 │
00:01:54 #3643 [verbose] > │ let v30 : string = "num_complex::Complex::new($0, $1)" │
00:01:54 #3644 [verbose] > │ let v31 : num_complex_Complex<float> = │
00:01:54 #3645 [verbose] > │ Fable.Core.RustInterop.emitRustExpr struct (v27, v29) v30 │
00:01:54 #3646 [verbose] > │ let v34 : num_complex_Complex<float> = │
00:01:54 #3647 [verbose] > │ match v25 with │
00:01:54 #3648 [verbose] > │ | US0_1 -> (* None *) │
00:01:54 #3649 [verbose] > │ v31 │
00:01:54 #3650 [verbose] > │ | US0_0(v32) -> (* Some *) │
00:01:54 #3651 [verbose] > │ v32 │
00:01:54 #3652 [verbose] > │ let v35 : num_complex_Complex<float> = method7(v34) │
00:01:54 #3653 [verbose] > │ let v36 : string = "v35.re" │
00:01:54 #3654 [verbose] > │ let v37 : float = Fable.Core.RustInterop.emitRustExpr () v36 │
00:01:54 #3655 [verbose] > │ let v38 : string = $"%A{v37}" │
00:01:54 #3656 [verbose] > │ System.Console.WriteLine v38 │
00:01:54 #3657 [verbose] > │ let v39 : bool = v37 = 0.0 │
00:01:54 #3658 [verbose] > │ let v40 : bool = method53(v39) │
00:01:54 #3659 [verbose] > │ let v42 : bool = │
00:01:54 #3660 [verbose] > │ if v40 then │
00:01:54 #3661 [verbose] > │ true │
00:01:54 #3662 [verbose] > │ else │
00:01:54 #3663 [verbose] > │ method31(v40) │
00:01:54 #3664 [verbose] > │ let v43 : string = $"__expect / actual: %A{v37} / expected: %A{0.0}" │
00:01:54 #3665 [verbose] > │ let v44 : bool = v42 = false │
00:01:54 #3666 [verbose] > │ if v44 then │
00:01:54 #3667 [verbose] > │ failwith<unit> v43 │
00:01:54 #3668 [verbose] > │ let v45 : num_complex_Complex<float> = method8(v34) │
00:01:54 #3669 [verbose] > │ let v46 : string = "v45.im" │
00:01:54 #3670 [verbose] > │ let v47 : float = Fable.Core.RustInterop.emitRustExpr () v46 │
00:01:54 #3671 [verbose] > │ let v48 : string = $"%A{v47}" │
00:01:54 #3672 [verbose] > │ System.Console.WriteLine v48 │
00:01:54 #3673 [verbose] > │ let v49 : bool = v47 = 0.0 │
00:01:54 #3674 [verbose] > │ let v50 : bool = method53(v49) │
00:01:54 #3675 [verbose] > │ let v52 : bool = │
00:01:54 #3676 [verbose] > │ if v50 then │
00:01:54 #3677 [verbose] > │ true │
00:01:54 #3678 [verbose] > │ else │
00:01:54 #3679 [verbose] > │ method31(v50) │
00:01:54 #3680 [verbose] > │ let v53 : string = $"__expect / actual: %A{v47} / expected: %A{0.0}" │
00:01:54 #3681 [verbose] > │ let v54 : bool = v52 = false │
00:01:54 #3682 [verbose] > │ if v54 then │
00:01:54 #3683 [verbose] > │ failwith<unit> v53 │
00:01:54 #3684 [verbose] > │ let v55 : int32 = v15 + 1 │
00:01:54 #3685 [verbose] > │ v13.l0 <- v55 │
00:01:54 #3686 [verbose] > │ () │
00:01:54 #3687 [verbose] > │ () │
00:01:54 #3688 [verbose] > │ and method54 () : unit = │
00:01:54 #3689 [verbose] > │ let v0 : string = "pyo3::prepare_freethreaded_python()" │
00:01:54 #3690 [verbose] > │ Fable.Core.RustInterop.emitRustExpr () v0 │
00:01:54 #3691 [verbose] > │ let v1 : string = "let __result = pyo3::Python::with_gil(|py| -> │
00:01:54 #3692 [verbose] > │ pyo3::PyResult<()> { //" │
00:01:54 #3693 [verbose] > │ Fable.Core.RustInterop.emitRustExpr () v1 │
00:01:54 #3694 [verbose] > │ let v2 : string = "py" │
00:01:54 #3695 [verbose] > │ let v3 : pyo3_Python = Fable.Core.RustInterop.emitRustExpr () v2 │
00:01:54 #3696 [verbose] > │ method55(v3) │
00:01:54 #3697 [verbose] > │ let v4 : Result<unit, pyo3_PyErr> = Ok () │
00:01:54 #3698 [verbose] > │ let v5 : Result<unit, pyo3_PyErr> = method32(v4) │
00:01:54 #3699 [verbose] > │ let v6 : string = "v5 }})" │
00:01:54 #3700 [verbose] > │ Fable.Core.RustInterop.emitRustExpr () v6 │
00:01:54 #3701 [verbose] > │ let v7 : string = "{ //" │
00:01:54 #3702 [verbose] > │ Fable.Core.RustInterop.emitRustExpr () v7 │
00:01:54 #3703 [verbose] > │ let v8 : string = "__result" │
00:01:54 #3704 [verbose] > │ let v9 : Result<unit, pyo3_PyErr> = Fable.Core.RustInterop.emitRustExpr │
00:01:54 #3705 [verbose] > │ () v8 │
00:01:54 #3706 [verbose] > │ let v10 : Result<unit, pyo3_PyErr> = method33(v9) │
00:01:54 #3707 [verbose] > │ let v11 : string = "v10.unwrap()" │
00:01:54 #3708 [verbose] > │ Fable.Core.RustInterop.emitRustExpr () v11 │
00:01:54 #3709 [verbose] > │ () │
00:01:54 #3710 [verbose] > │ and method57 (v0 : pyo3_Python) : unit = │
00:01:54 #3711 [verbose] > │ let v1 : string = "num_complex::Complex::new($0, $1)" │
00:01:54 #3712 [verbose] > │ let v2 : num_complex_Complex<float> = │
00:01:54 #3713 [verbose] > │ Fable.Core.RustInterop.emitRustExpr struct (3.0, 4.0) v1 │
00:01:54 #3714 [verbose] > │ let v3 : string = "num_complex::Complex::new($0, $1)" │
00:01:54 #3715 [verbose] > │ let v4 : num_complex_Complex<float> = │
00:01:54 #3716 [verbose] > │ Fable.Core.RustInterop.emitRustExpr struct (2.5, -3.5) v3 │
00:01:54 #3717 [verbose] > │ let v5 : string = "num_complex::Complex::new($0, $1)" │
00:01:54 #3718 [verbose] > │ let v6 : num_complex_Complex<float> = │
00:01:54 #3719 [verbose] > │ Fable.Core.RustInterop.emitRustExpr struct (1.5, 2.5) v5 │
00:01:54 #3720 [verbose] > │ let v7 : string = "num_complex::Complex::new($0, $1)" │
00:01:54 #3721 [verbose] > │ let v8 : num_complex_Complex<float> = │
00:01:54 #3722 [verbose] > │ Fable.Core.RustInterop.emitRustExpr struct (0.5, 14.134725) v7 │
00:01:54 #3723 [verbose] > │ let v9 : (num_complex_Complex<float> []) = [|v2; v4; v6; v8|] │
00:01:54 #3724 [verbose] > │ let v10 : int32 = v9.Length │
00:01:54 #3725 [verbose] > │ let v11 : Mut0 = {l0 = 0} : Mut0 │
00:01:54 #3726 [verbose] > │ while method2(v10, v11) do │
00:01:54 #3727 [verbose] > │ let v13 : int32 = v11.l0 │
00:01:54 #3728 [verbose] > │ let v14 : num_complex_Complex<float> = v9.[int v13] │
00:01:54 #3729 [verbose] > │ let v15 : string = $" s = mpmath.zeta(s)" │
00:01:54 #3730 [verbose] > │ let v16 : num_complex_Complex<float> = method3(v14) │
00:01:54 #3731 [verbose] > │ let v17 : Result<num_complex_Complex<float>, std_string_String> = │
00:01:54 #3732 [verbose] > │ method4(v0, v15, v16) │
00:01:54 #3733 [verbose] > │ let v18 : num_complex_Complex<float> = method24(v0, v14) │
00:01:54 #3734 [verbose] > │ let v19 : string = "v17.ok()" │
00:01:54 #3735 [verbose] > │ let v20 : num_complex_Complex<float> option = │
00:01:54 #3736 [verbose] > │ Fable.Core.RustInterop.emitRustExpr () v19 │
00:01:54 #3737 [verbose] > │ let v21 : (num_complex_Complex<float> -> US0) = method30() │
00:01:54 #3738 [verbose] > │ let v22 : US0 = US0_1 │
00:01:54 #3739 [verbose] > │ let v23 : US0 = v20 |> Option.map v21 |> Option.defaultValue v22 │
00:01:54 #3740 [verbose] > │ let v24 : string = "f64::NAN" │
00:01:54 #3741 [verbose] > │ let v25 : float = Fable.Core.RustInterop.emitRustExpr () v24 │
00:01:54 #3742 [verbose] > │ let v26 : string = "f64::NAN" │
00:01:54 #3743 [verbose] > │ let v27 : float = Fable.Core.RustInterop.emitRustExpr () v26 │
00:01:54 #3744 [verbose] > │ let v28 : string = "num_complex::Complex::new($0, $1)" │
00:01:54 #3745 [verbose] > │ let v29 : num_complex_Complex<float> = │
00:01:54 #3746 [verbose] > │ Fable.Core.RustInterop.emitRustExpr struct (v25, v27) v28 │
00:01:54 #3747 [verbose] > │ let v32 : num_complex_Complex<float> = │
00:01:54 #3748 [verbose] > │ match v23 with │
00:01:54 #3749 [verbose] > │ | US0_1 -> (* None *) │
00:01:54 #3750 [verbose] > │ v29 │
00:01:54 #3751 [verbose] > │ | US0_0(v30) -> (* Some *) │
00:01:54 #3752 [verbose] > │ v30 │
00:01:54 #3753 [verbose] > │ let v33 : string = "num_complex::Complex::new($0, $1)" │
00:01:54 #3754 [verbose] > │ let v34 : num_complex_Complex<float> = │
00:01:54 #3755 [verbose] > │ Fable.Core.RustInterop.emitRustExpr struct (2.0, 0.0) v33 │
00:01:54 #3756 [verbose] > │ let v35 : num_complex_Complex<float> = method27(v34) │
00:01:54 #3757 [verbose] > │ let v36 : num_complex_Complex<float> = method28(v14) │
00:01:54 #3758 [verbose] > │ let v37 : string = "num_complex::Complex::powc(v35, v36)" │
00:01:54 #3759 [verbose] > │ let v38 : num_complex_Complex<float> = │
00:01:54 #3760 [verbose] > │ Fable.Core.RustInterop.emitRustExpr () v37 │
00:01:54 #3761 [verbose] > │ let v39 : string = "num_complex::Complex::new($0, $1)" │
00:01:54 #3762 [verbose] > │ let v40 : num_complex_Complex<float> = │
00:01:54 #3763 [verbose] > │ Fable.Core.RustInterop.emitRustExpr struct (3.141592653589793, 0.0) v39 │
00:01:54 #3764 [verbose] > │ let v41 : string = "num_complex::Complex::new($0, $1)" │
00:01:54 #3765 [verbose] > │ let v42 : num_complex_Complex<float> = │
00:01:54 #3766 [verbose] > │ Fable.Core.RustInterop.emitRustExpr struct (1.0, 0.0) v41 │
00:01:54 #3767 [verbose] > │ let v43 : string = "$0 - $1" │
00:01:54 #3768 [verbose] > │ let v44 : num_complex_Complex<float> = │
00:01:54 #3769 [verbose] > │ Fable.Core.RustInterop.emitRustExpr struct (v14, v42) v43 │
00:01:54 #3770 [verbose] > │ let v45 : num_complex_Complex<float> = method27(v40) │
00:01:54 #3771 [verbose] > │ let v46 : num_complex_Complex<float> = method28(v44) │
00:01:54 #3772 [verbose] > │ let v47 : string = "num_complex::Complex::powc(v45, v46)" │
00:01:54 #3773 [verbose] > │ let v48 : num_complex_Complex<float> = │
00:01:54 #3774 [verbose] > │ Fable.Core.RustInterop.emitRustExpr () v47 │
00:01:54 #3775 [verbose] > │ let v49 : string = "$0 * $1" │
00:01:54 #3776 [verbose] > │ let v50 : num_complex_Complex<float> = │
00:01:54 #3777 [verbose] > │ Fable.Core.RustInterop.emitRustExpr struct (v38, v48) v49 │
00:01:54 #3778 [verbose] > │ let v51 : string = "num_complex::Complex::new($0, $1)" │
00:01:54 #3779 [verbose] > │ let v52 : num_complex_Complex<float> = │
00:01:54 #3780 [verbose] > │ Fable.Core.RustInterop.emitRustExpr struct (3.141592653589793, 0.0) v51 │
00:01:54 #3781 [verbose] > │ let v53 : string = "$0 * $1" │
00:01:54 #3782 [verbose] > │ let v54 : num_complex_Complex<float> = │
00:01:54 #3783 [verbose] > │ Fable.Core.RustInterop.emitRustExpr struct (v52, v14) v53 │
00:01:54 #3784 [verbose] > │ let v55 : string = "num_complex::Complex::new($0, $1)" │
00:01:54 #3785 [verbose] > │ let v56 : num_complex_Complex<float> = │
00:01:54 #3786 [verbose] > │ Fable.Core.RustInterop.emitRustExpr struct (2.0, 0.0) v55 │
00:01:54 #3787 [verbose] > │ let v57 : string = "v54 / v56" │
00:01:54 #3788 [verbose] > │ let v58 : num_complex_Complex<float> = │
00:01:54 #3789 [verbose] > │ Fable.Core.RustInterop.emitRustExpr () v57 │
00:01:54 #3790 [verbose] > │ let v59 : string = "v58.sin()" │
00:01:54 #3791 [verbose] > │ let v60 : num_complex_Complex<float> = │
00:01:54 #3792 [verbose] > │ Fable.Core.RustInterop.emitRustExpr () v59 │
00:01:54 #3793 [verbose] > │ let v61 : string = "$0 * $1" │
00:01:54 #3794 [verbose] > │ let v62 : num_complex_Complex<float> = │
00:01:54 #3795 [verbose] > │ Fable.Core.RustInterop.emitRustExpr struct (v50, v60) v61 │
00:01:54 #3796 [verbose] > │ let v63 : string = "num_complex::Complex::new($0, $1)" │
00:01:54 #3797 [verbose] > │ let v64 : num_complex_Complex<float> = │
00:01:54 #3798 [verbose] > │ Fable.Core.RustInterop.emitRustExpr struct (1.0, 0.0) v63 │
00:01:54 #3799 [verbose] > │ let v65 : string = "$0 - $1" │
00:01:54 #3800 [verbose] > │ let v66 : num_complex_Complex<float> = │
00:01:54 #3801 [verbose] > │ Fable.Core.RustInterop.emitRustExpr struct (v64, v14) v65 │
00:01:54 #3802 [verbose] > │ let v67 : string = $" s = mpmath.gamma(s)" │
00:01:54 #3803 [verbose] > │ let v68 : num_complex_Complex<float> = method3(v66) │
00:01:54 #3804 [verbose] > │ let v69 : Result<num_complex_Complex<float>, std_string_String> = │
00:01:54 #3805 [verbose] > │ method29(v0, v67, v68) │
00:01:54 #3806 [verbose] > │ let v70 : string = "v69.ok()" │
00:01:54 #3807 [verbose] > │ let v71 : num_complex_Complex<float> option = │
00:01:54 #3808 [verbose] > │ Fable.Core.RustInterop.emitRustExpr () v70 │
00:01:54 #3809 [verbose] > │ let v72 : (num_complex_Complex<float> -> US0) = method30() │
00:01:54 #3810 [verbose] > │ let v73 : US0 = US0_1 │
00:01:54 #3811 [verbose] > │ let v74 : US0 = v71 |> Option.map v72 |> Option.defaultValue v73 │
00:01:54 #3812 [verbose] > │ let v75 : string = "f64::NAN" │
00:01:54 #3813 [verbose] > │ let v76 : float = Fable.Core.RustInterop.emitRustExpr () v75 │
00:01:54 #3814 [verbose] > │ let v77 : string = "f64::NAN" │
00:01:54 #3815 [verbose] > │ let v78 : float = Fable.Core.RustInterop.emitRustExpr () v77 │
00:01:54 #3816 [verbose] > │ let v79 : string = "num_complex::Complex::new($0, $1)" │
00:01:54 #3817 [verbose] > │ let v80 : num_complex_Complex<float> = │
00:01:54 #3818 [verbose] > │ Fable.Core.RustInterop.emitRustExpr struct (v76, v78) v79 │
00:01:54 #3819 [verbose] > │ let v83 : num_complex_Complex<float> = │
00:01:54 #3820 [verbose] > │ match v74 with │
00:01:54 #3821 [verbose] > │ | US0_1 -> (* None *) │
00:01:54 #3822 [verbose] > │ v80 │
00:01:54 #3823 [verbose] > │ | US0_0(v81) -> (* Some *) │
00:01:54 #3824 [verbose] > │ v81 │
00:01:54 #3825 [verbose] > │ let v84 : string = "$0 * $1" │
00:01:54 #3826 [verbose] > │ let v85 : num_complex_Complex<float> = │
00:01:54 #3827 [verbose] > │ Fable.Core.RustInterop.emitRustExpr struct (v62, v83) v84 │
00:01:54 #3828 [verbose] > │ let v86 : num_complex_Complex<float> = method7(v14) │
00:01:54 #3829 [verbose] > │ let v87 : string = "v86.re" │
00:01:54 #3830 [verbose] > │ let v88 : float = Fable.Core.RustInterop.emitRustExpr () v87 │
00:01:54 #3831 [verbose] > │ let v89 : float = 1.0 - v88 │
00:01:54 #3832 [verbose] > │ let v90 : num_complex_Complex<float> = method8(v14) │
00:01:54 #3833 [verbose] > │ let v91 : string = "v90.im" │
00:01:54 #3834 [verbose] > │ let v92 : float = Fable.Core.RustInterop.emitRustExpr () v91 │
00:01:54 #3835 [verbose] > │ let v93 : float = -v92 │
00:01:54 #3836 [verbose] > │ let v94 : string = "num_complex::Complex::new($0, $1)" │
00:01:54 #3837 [verbose] > │ let v95 : num_complex_Complex<float> = │
00:01:54 #3838 [verbose] > │ Fable.Core.RustInterop.emitRustExpr struct (v89, v93) v94 │
00:01:54 #3839 [verbose] > │ let v96 : string = $" s = mpmath.zeta(s)" │
00:01:54 #3840 [verbose] > │ let v97 : num_complex_Complex<float> = method3(v95) │
00:01:54 #3841 [verbose] > │ let v98 : Result<num_complex_Complex<float>, std_string_String> = │
00:01:54 #3842 [verbose] > │ method4(v0, v96, v97) │
00:01:54 #3843 [verbose] > │ let v99 : num_complex_Complex<float> = method24(v0, v95) │
00:01:54 #3844 [verbose] > │ let v100 : string = "v98.ok()" │
00:01:54 #3845 [verbose] > │ let v101 : num_complex_Complex<float> option = │
00:01:54 #3846 [verbose] > │ Fable.Core.RustInterop.emitRustExpr () v100 │
00:01:54 #3847 [verbose] > │ let v102 : (num_complex_Complex<float> -> US0) = method30() │
00:01:54 #3848 [verbose] > │ let v103 : US0 = US0_1 │
00:01:54 #3849 [verbose] > │ let v104 : US0 = v101 |> Option.map v102 |> Option.defaultValue v103 │
00:01:54 #3850 [verbose] > │ let v105 : string = "f64::NAN" │
00:01:54 #3851 [verbose] > │ let v106 : float = Fable.Core.RustInterop.emitRustExpr () v105 │
00:01:54 #3852 [verbose] > │ let v107 : string = "f64::NAN" │
00:01:54 #3853 [verbose] > │ let v108 : float = Fable.Core.RustInterop.emitRustExpr () v107 │
00:01:54 #3854 [verbose] > │ let v109 : string = "num_complex::Complex::new($0, $1)" │
00:01:54 #3855 [verbose] > │ let v110 : num_complex_Complex<float> = │
00:01:54 #3856 [verbose] > │ Fable.Core.RustInterop.emitRustExpr struct (v106, v108) v109 │
00:01:54 #3857 [verbose] > │ let v113 : num_complex_Complex<float> = │
00:01:54 #3858 [verbose] > │ match v104 with │
00:01:54 #3859 [verbose] > │ | US0_1 -> (* None *) │
00:01:54 #3860 [verbose] > │ v110 │
00:01:54 #3861 [verbose] > │ | US0_0(v111) -> (* Some *) │
00:01:54 #3862 [verbose] > │ v111 │
00:01:54 #3863 [verbose] > │ let v114 : string = "$0 * $1" │
00:01:54 #3864 [verbose] > │ let v115 : num_complex_Complex<float> = │
00:01:54 #3865 [verbose] > │ Fable.Core.RustInterop.emitRustExpr struct (v85, v113) v114 │
00:01:54 #3866 [verbose] > │ let v116 : num_complex_Complex<float> = method7(v32) │
00:01:54 #3867 [verbose] > │ let v117 : string = "v116.re" │
00:01:54 #3868 [verbose] > │ let v118 : float = Fable.Core.RustInterop.emitRustExpr () v117 │
00:01:54 #3869 [verbose] > │ let v119 : num_complex_Complex<float> = method7(v115) │
00:01:54 #3870 [verbose] > │ let v120 : string = "v119.re" │
00:01:54 #3871 [verbose] > │ let v121 : float = Fable.Core.RustInterop.emitRustExpr () v120 │
00:01:54 #3872 [verbose] > │ let v122 : float = v118 - v121 │
00:01:54 #3873 [verbose] > │ let v123 : float = -v122 │
00:01:54 #3874 [verbose] > │ let v124 : bool = v122 >= v123 │
00:01:54 #3875 [verbose] > │ let v125 : float = │
00:01:54 #3876 [verbose] > │ if v124 then │
00:01:54 #3877 [verbose] > │ v122 │
00:01:54 #3878 [verbose] > │ else │
00:01:54 #3879 [verbose] > │ v123 │
00:01:54 #3880 [verbose] > │ let v126 : string = $"%A{v125}" │
00:01:54 #3881 [verbose] > │ System.Console.WriteLine v126 │
00:01:54 #3882 [verbose] > │ let v127 : bool = v125 < 0.0001 │
00:01:54 #3883 [verbose] > │ let v129 : bool = │
00:01:54 #3884 [verbose] > │ if v127 then │
00:01:54 #3885 [verbose] > │ true │
00:01:54 #3886 [verbose] > │ else │
00:01:54 #3887 [verbose] > │ method31(v127) │
00:01:54 #3888 [verbose] > │ let v130 : string = $"__expect / actual: %A{v125} / expected: │
00:01:54 #3889 [verbose] > │ %A{0.0001}" │
00:01:54 #3890 [verbose] > │ let v131 : bool = v129 = false │
00:01:54 #3891 [verbose] > │ if v131 then │
00:01:54 #3892 [verbose] > │ failwith<unit> v130 │
00:01:54 #3893 [verbose] > │ let v132 : num_complex_Complex<float> = method8(v32) │
00:01:54 #3894 [verbose] > │ let v133 : string = "v132.im" │
00:01:54 #3895 [verbose] > │ let v134 : float = Fable.Core.RustInterop.emitRustExpr () v133 │
00:01:54 #3896 [verbose] > │ let v135 : num_complex_Complex<float> = method8(v115) │
00:01:54 #3897 [verbose] > │ let v136 : string = "v135.im" │
00:01:54 #3898 [verbose] > │ let v137 : float = Fable.Core.RustInterop.emitRustExpr () v136 │
00:01:54 #3899 [verbose] > │ let v138 : float = v134 - v137 │
00:01:54 #3900 [verbose] > │ let v139 : float = -v138 │
00:01:54 #3901 [verbose] > │ let v140 : bool = v138 >= v139 │
00:01:54 #3902 [verbose] > │ let v141 : float = │
00:01:54 #3903 [verbose] > │ if v140 then │
00:01:54 #3904 [verbose] > │ v138 │
00:01:54 #3905 [verbose] > │ else │
00:01:54 #3906 [verbose] > │ v139 │
00:01:54 #3907 [verbose] > │ let v142 : string = $"%A{v141}" │
00:01:54 #3908 [verbose] > │ System.Console.WriteLine v142 │
00:01:54 #3909 [verbose] > │ let v143 : bool = v141 < 0.0001 │
00:01:54 #3910 [verbose] > │ let v145 : bool = │
00:01:54 #3911 [verbose] > │ if v143 then │
00:01:54 #3912 [verbose] > │ true │
00:01:54 #3913 [verbose] > │ else │
00:01:54 #3914 [verbose] > │ method31(v143) │
00:01:54 #3915 [verbose] > │ let v146 : string = $"__expect / actual: %A{v141} / expected: │
00:01:54 #3916 [verbose] > │ %A{0.0001}" │
00:01:54 #3917 [verbose] > │ let v147 : bool = v145 = false │
00:01:54 #3918 [verbose] > │ if v147 then │
00:01:54 #3919 [verbose] > │ failwith<unit> v146 │
00:01:54 #3920 [verbose] > │ let v148 : int32 = v13 + 1 │
00:01:54 #3921 [verbose] > │ v11.l0 <- v148 │
00:01:54 #3922 [verbose] > │ () │
00:01:54 #3923 [verbose] > │ () │
00:01:54 #3924 [verbose] > │ and method56 () : unit = │
00:01:54 #3925 [verbose] > │ let v0 : string = "pyo3::prepare_freethreaded_python()" │
00:01:54 #3926 [verbose] > │ Fable.Core.RustInterop.emitRustExpr () v0 │
00:01:54 #3927 [verbose] > │ let v1 : string = "let __result = pyo3::Python::with_gil(|py| -> │
00:01:54 #3928 [verbose] > │ pyo3::PyResult<()> { //" │
00:01:54 #3929 [verbose] > │ Fable.Core.RustInterop.emitRustExpr () v1 │
00:01:54 #3930 [verbose] > │ let v2 : string = "py" │
00:01:54 #3931 [verbose] > │ let v3 : pyo3_Python = Fable.Core.RustInterop.emitRustExpr () v2 │
00:01:54 #3932 [verbose] > │ method57(v3) │
00:01:54 #3933 [verbose] > │ let v4 : Result<unit, pyo3_PyErr> = Ok () │
00:01:54 #3934 [verbose] > │ let v5 : Result<unit, pyo3_PyErr> = method32(v4) │
00:01:54 #3935 [verbose] > │ let v6 : string = "v5 }})" │
00:01:54 #3936 [verbose] > │ Fable.Core.RustInterop.emitRustExpr () v6 │
00:01:54 #3937 [verbose] > │ let v7 : string = "{ //" │
00:01:54 #3938 [verbose] > │ Fable.Core.RustInterop.emitRustExpr () v7 │
00:01:54 #3939 [verbose] > │ let v8 : string = "__result" │
00:01:54 #3940 [verbose] > │ let v9 : Result<unit, pyo3_PyErr> = Fable.Core.RustInterop.emitRustExpr │
00:01:54 #3941 [verbose] > │ () v8 │
00:01:54 #3942 [verbose] > │ let v10 : Result<unit, pyo3_PyErr> = method33(v9) │
00:01:54 #3943 [verbose] > │ let v11 : string = "v10.unwrap()" │
00:01:54 #3944 [verbose] > │ Fable.Core.RustInterop.emitRustExpr () v11 │
00:01:54 #3945 [verbose] > │ () │
00:01:54 #3946 [verbose] > │ and method60 (v0 : int32, v1 : Mut3) : bool = │
00:01:54 #3947 [verbose] > │ let v2 : int32 = v1.l0 │
00:01:54 #3948 [verbose] > │ let v3 : bool = v2 < v0 │
00:01:54 #3949 [verbose] > │ v3 │
00:01:54 #3950 [verbose] > │ and method59 (v0 : pyo3_Python) : unit = │
00:01:54 #3951 [verbose] > │ let v1 : (float []) = [|2.0; 2.5; 3.0; 3.5; 4.0; 4.5; 5.0|] │
00:01:54 #3952 [verbose] > │ let v2 : (float []) = [|2.0; 3.0; 5.0; 7.0; 11.0; 13.0; 17.0; 19.0; │
00:01:54 #3953 [verbose] > │ 23.0; 29.0; 31.0; 37.0; 41.0; 43.0; 47.0; 53.0; 59.0; 61.0; 67.0; 71.0|] │
00:01:54 #3954 [verbose] > │ let v3 : int32 = v1.Length │
00:01:54 #3955 [verbose] > │ let v4 : Mut0 = {l0 = 0} : Mut0 │
00:01:55 #3956 [verbose] > │ while method2(v3, v4) do │
00:01:55 #3957 [verbose] > │ let v6 : int32 = v4.l0 │
00:01:55 #3958 [verbose] > │ let v7 : float = v1.[int v6] │
00:01:55 #3959 [verbose] > │ let v8 : string = "num_complex::Complex::new($0, $1)" │
00:01:55 #3960 [verbose] > │ let v9 : num_complex_Complex<float> = │
00:01:55 #3961 [verbose] > │ Fable.Core.RustInterop.emitRustExpr struct (v7, 0.0) v8 │
00:01:55 #3962 [verbose] > │ let v10 : int32 = v2.Length │
00:01:55 #3963 [verbose] > │ let v11 : Mut3 = {l0 = 0; l1 = 1.0} : Mut3 │
00:01:55 #3964 [verbose] > │ while method60(v10, v11) do │
00:01:55 #3965 [verbose] > │ let v13 : int32 = v11.l0 │
00:01:55 #3966 [verbose] > │ let v14 : float = v11.l1 │
00:01:55 #3967 [verbose] > │ let v15 : float = v2.[int v13] │
00:01:55 #3968 [verbose] > │ let v16 : float = -v7 │
00:01:55 #3969 [verbose] > │ let v17 : float = v15 ** v16 │
00:01:55 #3970 [verbose] > │ let v18 : float = 1.0 - v17 │
00:01:55 #3971 [verbose] > │ let v19 : float = v14 / v18 │
00:01:55 #3972 [verbose] > │ let v20 : int32 = v13 + 1 │
00:01:55 #3973 [verbose] > │ v11.l0 <- v20 │
00:01:55 #3974 [verbose] > │ v11.l1 <- v19 │
00:01:55 #3975 [verbose] > │ () │
00:01:55 #3976 [verbose] > │ let v21 : float = v11.l1 │
00:01:55 #3977 [verbose] > │ let v22 : string = $" s = mpmath.zeta(s)" │
00:01:55 #3978 [verbose] > │ let v23 : num_complex_Complex<float> = method3(v9) │
00:01:55 #3979 [verbose] > │ let v24 : Result<num_complex_Complex<float>, std_string_String> = │
00:01:55 #3980 [verbose] > │ method4(v0, v22, v23) │
00:01:55 #3981 [verbose] > │ let v25 : num_complex_Complex<float> = method24(v0, v9) │
00:01:55 #3982 [verbose] > │ let v26 : string = "v24.ok()" │
00:01:55 #3983 [verbose] > │ let v27 : num_complex_Complex<float> option = │
00:01:55 #3984 [verbose] > │ Fable.Core.RustInterop.emitRustExpr () v26 │
00:01:55 #3985 [verbose] > │ let v28 : (num_complex_Complex<float> -> US0) = method30() │
00:01:55 #3986 [verbose] > │ let v29 : US0 = US0_1 │
00:01:55 #3987 [verbose] > │ let v30 : US0 = v27 |> Option.map v28 |> Option.defaultValue v29 │
00:01:55 #3988 [verbose] > │ let v31 : string = "f64::NAN" │
00:01:55 #3989 [verbose] > │ let v32 : float = Fable.Core.RustInterop.emitRustExpr () v31 │
00:01:55 #3990 [verbose] > │ let v33 : string = "f64::NAN" │
00:01:55 #3991 [verbose] > │ let v34 : float = Fable.Core.RustInterop.emitRustExpr () v33 │
00:01:55 #3992 [verbose] > │ let v35 : string = "num_complex::Complex::new($0, $1)" │
00:01:55 #3993 [verbose] > │ let v36 : num_complex_Complex<float> = │
00:01:55 #3994 [verbose] > │ Fable.Core.RustInterop.emitRustExpr struct (v32, v34) v35 │
00:01:55 #3995 [verbose] > │ let v39 : num_complex_Complex<float> = │
00:01:55 #3996 [verbose] > │ match v30 with │
00:01:55 #3997 [verbose] > │ | US0_1 -> (* None *) │
00:01:55 #3998 [verbose] > │ v36 │
00:01:55 #3999 [verbose] > │ | US0_0(v37) -> (* Some *) │
00:01:55 #4000 [verbose] > │ v37 │
00:01:55 #4001 [verbose] > │ let v40 : num_complex_Complex<float> = method7(v39) │
00:01:55 #4002 [verbose] > │ let v41 : string = "v40.re" │
00:01:55 #4003 [verbose] > │ let v42 : float = Fable.Core.RustInterop.emitRustExpr () v41 │
00:01:55 #4004 [verbose] > │ let v43 : float = v42 - v21 │
00:01:55 #4005 [verbose] > │ let v44 : float = -v43 │
00:01:55 #4006 [verbose] > │ let v45 : bool = v43 >= v44 │
00:01:55 #4007 [verbose] > │ let v46 : float = │
00:01:55 #4008 [verbose] > │ if v45 then │
00:01:55 #4009 [verbose] > │ v43 │
00:01:55 #4010 [verbose] > │ else │
00:01:55 #4011 [verbose] > │ v44 │
00:01:55 #4012 [verbose] > │ let v47 : string = $"%A{v46}" │
00:01:55 #4013 [verbose] > │ System.Console.WriteLine v47 │
00:01:55 #4014 [verbose] > │ let v48 : bool = v46 < 0.01 │
00:01:55 #4015 [verbose] > │ let v50 : bool = │
00:01:55 #4016 [verbose] > │ if v48 then │
00:01:55 #4017 [verbose] > │ true │
00:01:55 #4018 [verbose] > │ else │
00:01:55 #4019 [verbose] > │ method31(v48) │
00:01:55 #4020 [verbose] > │ let v51 : string = $"__expect / actual: %A{v46} / expected: │
00:01:55 #4021 [verbose] > │ %A{0.01}" │
00:01:55 #4022 [verbose] > │ let v52 : bool = v50 = false │
00:01:55 #4023 [verbose] > │ if v52 then │
00:01:55 #4024 [verbose] > │ failwith<unit> v51 │
00:01:55 #4025 [verbose] > │ let v53 : num_complex_Complex<float> = method8(v39) │
00:01:55 #4026 [verbose] > │ let v54 : string = "v53.im" │
00:01:55 #4027 [verbose] > │ let v55 : float = Fable.Core.RustInterop.emitRustExpr () v54 │
00:01:55 #4028 [verbose] > │ let v56 : string = $"%A{v55}" │
00:01:55 #4029 [verbose] > │ System.Console.WriteLine v56 │
00:01:55 #4030 [verbose] > │ let v57 : bool = v55 < 0.01 │
00:01:55 #4031 [verbose] > │ let v59 : bool = │
00:01:55 #4032 [verbose] > │ if v57 then │
00:01:55 #4033 [verbose] > │ true │
00:01:55 #4034 [verbose] > │ else │
00:01:55 #4035 [verbose] > │ method31(v57) │
00:01:55 #4036 [verbose] > │ let v60 : string = $"__expect / actual: %A{v55} / expected: │
00:01:55 #4037 [verbose] > │ %A{0.01}" │
00:01:55 #4038 [verbose] > │ let v61 : bool = v59 = false │
00:01:55 #4039 [verbose] > │ if v61 then │
00:01:55 #4040 [verbose] > │ failwith<unit> v60 │
00:01:55 #4041 [verbose] > │ let v62 : int32 = v6 + 1 │
00:01:55 #4042 [verbose] > │ v4.l0 <- v62 │
00:01:55 #4043 [verbose] > │ () │
00:01:55 #4044 [verbose] > │ () │
00:01:55 #4045 [verbose] > │ and method58 () : unit = │
00:01:55 #4046 [verbose] > │ let v0 : string = "pyo3::prepare_freethreaded_python()" │
00:01:55 #4047 [verbose] > │ Fable.Core.RustInterop.emitRustExpr () v0 │
00:01:55 #4048 [verbose] > │ let v1 : string = "let __result = pyo3::Python::with_gil(|py| -> │
00:01:55 #4049 [verbose] > │ pyo3::PyResult<()> { //" │
00:01:55 #4050 [verbose] > │ Fable.Core.RustInterop.emitRustExpr () v1 │
00:01:55 #4051 [verbose] > │ let v2 : string = "py" │
00:01:55 #4052 [verbose] > │ let v3 : pyo3_Python = Fable.Core.RustInterop.emitRustExpr () v2 │
00:01:55 #4053 [verbose] > │ method59(v3) │
00:01:55 #4054 [verbose] > │ let v4 : Result<unit, pyo3_PyErr> = Ok () │
00:01:55 #4055 [verbose] > │ let v5 : Result<unit, pyo3_PyErr> = method32(v4) │
00:01:55 #4056 [verbose] > │ let v6 : string = "v5 }})" │
00:01:55 #4057 [verbose] > │ Fable.Core.RustInterop.emitRustExpr () v6 │
00:01:55 #4058 [verbose] > │ let v7 : string = "{ //" │
00:01:55 #4059 [verbose] > │ Fable.Core.RustInterop.emitRustExpr () v7 │
00:01:55 #4060 [verbose] > │ let v8 : string = "__result" │
00:01:55 #4061 [verbose] > │ let v9 : Result<unit, pyo3_PyErr> = Fable.Core.RustInterop.emitRustExpr │
00:01:55 #4062 [verbose] > │ () v8 │
00:01:55 #4063 [verbose] > │ let v10 : Result<unit, pyo3_PyErr> = method33(v9) │
00:01:55 #4064 [verbose] > │ let v11 : string = "v10.unwrap()" │
00:01:55 #4065 [verbose] > │ Fable.Core.RustInterop.emitRustExpr () v11 │
00:01:55 #4066 [verbose] > │ () │
00:01:55 #4067 [verbose] > │ and closure0 () () : unit = │
00:01:55 #4068 [verbose] > │ let v0 : string = "}//" │
00:01:55 #4069 [verbose] > │ Fable.Core.RustInterop.emitRustExpr () v0 │
00:01:55 #4070 [verbose] > │ let v1 : string = "#[test] fn test_zeta_at_known_values_() { //" │
00:01:55 #4071 [verbose] > │ Fable.Core.RustInterop.emitRustExpr () v1 │
00:01:55 #4072 [verbose] > │ method0() │
00:01:55 #4073 [verbose] > │ let v2 : string = "} #[test] fn test_zeta_at_2_minus2() { //" │
00:01:55 #4074 [verbose] > │ Fable.Core.RustInterop.emitRustExpr () v2 │
00:01:55 #4075 [verbose] > │ method34() │
00:01:55 #4076 [verbose] > │ let v3 : string = "} #[test] fn test_trivial_zero_at_negative_even___() │
00:01:55 #4077 [verbose] > │ { //" │
00:01:55 #4078 [verbose] > │ Fable.Core.RustInterop.emitRustExpr () v3 │
00:01:55 #4079 [verbose] > │ method36() │
00:01:55 #4080 [verbose] > │ let v4 : string = "} #[test] fn test_non_trivial_zero___() { //" │
00:01:55 #4081 [verbose] > │ Fable.Core.RustInterop.emitRustExpr () v4 │
00:01:55 #4082 [verbose] > │ method40() │
00:01:55 #4083 [verbose] > │ let v5 : string = "} #[test] fn test_real_part_greater_than_one___() { │
00:01:55 #4084 [verbose] > │ //" │
00:01:55 #4085 [verbose] > │ Fable.Core.RustInterop.emitRustExpr () v5 │
00:01:55 #4086 [verbose] > │ method42() │
00:01:55 #4087 [verbose] > │ let v6 : string = "} #[test] fn test_zeta_at_1___() { //" │
00:01:55 #4088 [verbose] > │ Fable.Core.RustInterop.emitRustExpr () v6 │
00:01:55 #4089 [verbose] > │ method44() │
00:01:55 #4090 [verbose] > │ let v7 : string = "} #[test] fn test_symmetry_across_real_axis___() { │
00:01:55 #4091 [verbose] > │ //" │
00:01:55 #4092 [verbose] > │ Fable.Core.RustInterop.emitRustExpr () v7 │
00:01:55 #4093 [verbose] > │ method46() │
00:01:55 #4094 [verbose] > │ let v8 : string = "} #[test] fn test_behavior_near_origin___() { //" │
00:01:55 #4095 [verbose] > │ Fable.Core.RustInterop.emitRustExpr () v8 │
00:01:55 #4096 [verbose] > │ method48() │
00:01:55 #4097 [verbose] > │ let v9 : string = "} #[test] fn test_imaginary_axis() { //" │
00:01:55 #4098 [verbose] > │ Fable.Core.RustInterop.emitRustExpr () v9 │
00:01:55 #4099 [verbose] > │ method50() │
00:01:55 #4100 [verbose] > │ let v10 : string = "} #[test] fn test_critical_strip() { //" │
00:01:55 #4101 [verbose] > │ Fable.Core.RustInterop.emitRustExpr () v10 │
00:01:55 #4102 [verbose] > │ method54() │
00:01:55 #4103 [verbose] > │ let v11 : string = "} #[test] fn │
00:01:55 #4104 [verbose] > │ test_reflection_formula_for_specific_value() { //" │
00:01:55 #4105 [verbose] > │ Fable.Core.RustInterop.emitRustExpr () v11 │
00:01:55 #4106 [verbose] > │ method56() │
00:01:55 #4107 [verbose] > │ let v12 : string = "} #[test] fn test_euler_product_formula() { //" │
00:01:55 #4108 [verbose] > │ Fable.Core.RustInterop.emitRustExpr () v12 │
00:01:55 #4109 [verbose] > │ method58() │
00:01:55 #4110 [verbose] > │ and closure6 () (v0 : (string [])) : int32 = │
00:01:55 #4111 [verbose] > │ let v1 : string = $"value: {1}" │
00:01:55 #4112 [verbose] > │ System.Console.WriteLine v1 │
00:01:55 #4113 [verbose] > │ 0 │
00:01:55 #4114 [verbose] > │ let v0 : (unit -> unit) = closure0() │
00:01:55 #4115 [verbose] > │ let tests () = v0 () │
00:01:55 #4116 [verbose] > │ let v1 : ((string []) -> int32) = closure6() │
00:01:55 #4117 [verbose] > │ let main args = v1 args │
00:01:55 #4118 [verbose] > │ () │
00:01:55 #4119 [verbose] > │ │
00:01:55 #4120 [verbose] > │ │
00:01:55 #4121 [verbose] > ╰──────────────────────────────────────────────────────────────────────────────╯
00:01:57 #4122 [verbose] > [NbConvertApp] Converting notebook math.dib.ipynb to html
00:01:57 #4123 [verbose] > C:\Users\i574n\scoop\apps\python\current\Lib\site-packages\nbformat\__init__.py:93: MissingIDFieldWarning: Code cell is missing an id field, this will become a hard error in future nbformat versions. You may want to use `normalize()` on your notebooks before validations (available since nbformat 5.1.4). Previous versions of nbformat are fixing this issue transparently, and will stop doing so in the future.
00:01:57 #4124 [verbose] > validate(nb)
00:01:57 #4125 [verbose] > C:\Users\i574n\scoop\apps\python\current\Lib\site-packages\nbconvert\filters\highlight.py:71: UserWarning: IPython3 lexer unavailable, falling back on Python 3
00:01:57 #4126 [verbose] > return _pygments_highlight(
00:01:58 #4127 [verbose] > [NbConvertApp] Writing 7420612 bytes to math.dib.html
00:02:00 #4128 [debug] execute_with_options_async / exit_code: 0 / output.Length: 297960
00:02:00 #6 [debug] main / executeCommand / exitCode: 0
00:02:02 #7 [debug] runWithTimeoutChildAsync / timeout: 2000
00:00:00 #1 [debug] writeDibCode / output: Spi / path: math.dib
00:00:00 #2 [debug] parseDibCode / output: Spi / file: math.dib
00:00:00 #1 [debug] runWithTimeoutChildAsync / timeout: 60
00:00:00 #1 [debug] execute_with_options_async / options: struct (Some System.Threading.CancellationToken,
"dotnet "C:\home\git\polyglot\deps\The-Spiral-Language\The Spiral Language 2\artifacts\bin\The Spiral Language 2\release\Spiral.dll" --port 13805 --default-int i32 --default-float f64",
Some <fun:main@439-43>, None, None)
00:00:00 #2 [verbose] > pwd: C:\home\git\polyglot\lib\math
00:00:00 #3 [verbose] > dllPath: C:\home\git\polyglot\deps\The-Spiral-Language\The Spiral Language 2\artifacts\bin\The Spiral Language 2\release
00:00:00 #4 [verbose] > targetDir: C:\home\git\polyglot\target/polyglot/spiral_eval
00:00:00 #5 [verbose] > Starting the Spiral Server. It is bound to: http://localhost:13805
00:00:00 #2 [debug] runWithTimeoutChildAsync / timeout: 500
00:00:00 #3 [verbose] waitForPortAccess / port: 13805 / retry: 0
00:00:01 #4 [debug] sendJson / port: 13805 / json: {"Ping":true} / result.Length:
00:00:01 #5 [verbose] awaitCompiler / Ping / result: Some(null) / port: 13805 / retry: 0
00:00:01 #6 [verbose] > Server bound to: http://localhost:13805
00:00:01 #6 [debug] runWithTimeoutChildAsync / timeout: 60
00:00:01 #7 [debug] buildFile / takeWhileInclusive / fsxContent: / errors: [] / typeErrorCount: 0
00:00:01 #8 [debug] buildFile / takeWhileInclusive / fsxContent: / errors: [] / typeErrorCount: 0
00:00:01 #9 [debug] sendJson / port: 13805 / json: {"FileOpen":{"spiText":"// // # math\n\nopen testing\nopen rust_operators\n\ninl types () =\n global \u0022[\u003CFable.Core.Erase; Fable.Core.Emit(\\\u0022num_complex::Complex\u003C$0\u003E\\\u0022)\u003E] type num_complex_Complex\u003C\u0027T\u003E = class end\u0022\n global \u0022[\u003CFable.Core.Erase; Fable.Core.Emit(\\\u0022pyo3::types::PyModule\\\u0022)\u003E] type pyo3_types_PyModule = class end\u0022\n global \u0022[\u003CFable.Core.Erase; Fable.Core.Emit(\\\u0022pyo3::Bound\u003C$0\u003E\\\u0022)\u003E] type pyo3_Bound\u003C\u0027T\u003E = class end\u0022\n global \u0022[\u003CFable.Core.Erase; Fable.Core.Emit(\\\u0022pyo3::Python\\\u0022)\u003E] type pyo3_Python = class end\u0022\n global \u0022[\u003CFable.Core.Erase; Fable.Core.Emit(\\\u0022pyo3::PyAny\\\u0022)\u003E] type pyo3_PyAny = class end\u0022\n global \u0022[\u003CFable.Core.Erase; Fable.Core.Emit(\\\u0022pyo3::PyErr\\\u0022)\u003E] type pyo3_PyErr = class end\u0022\n\ninl types () =\n rust.types ()\n sm\u0027.types ()\n types ()\n\n// // ## complex\n\nnominal complex t = $\u0022num_complex_Complex\u003C\u0060t\u003E\u0022\nnominal bound t = $\u0022pyo3_Bound\u003C\u0060t\u003E\u0022\nnominal python = $\u0022pyo3_Python\u0022\nnominal pymodule = $\u0022pyo3_types_PyModule\u0022\nnominal pyany = $\u0022pyo3_PyAny\u0022\nnominal pyerr = $\u0022pyo3_PyErr\u0022\n\ninl complex forall t. ((re : t), (im : t)) : complex t =\n !\\\\((re, im), $\u0027\u0022num_complex::Complex::new($0, $1)\u0022\u0027)\n\n// // ## complex_sin\n\ninl re forall t. (c : complex t) : t =\n inl c = join c\n !\\($\u0027\u0022!c.re\u0022\u0027)\n\ninl im forall t. (c : complex t) : t =\n inl c = join c\n !\\($\u0027\u0022!c.im\u0022\u0027)\n\ninl complex_unbox forall t. (c : complex t) =\n re c, im c\n\ninl (~.^) c = complex c\n\ninl complex_eq forall t. (a : complex t) (b : complex t) : bool =\n !\\($\u0027\u0022!a == !b\u0022\u0027)\n\ninl (.=) a b = complex_eq a b\n\ninstance equable complex t = complex_eq\n\ninl complex_add forall t. (a : complex t) (b : complex t) : complex t =\n !\\($\u0027\u0022!a \u002B !b\u0022\u0027)\n\ninl (.\u002B) a b = complex_add a b\n\ninl complex_sub forall t. (a : complex t) (b : complex t) : complex t =\n !\\\\((a, b), $\u0027\u0022$0 - $1\u0022\u0027)\n\ninl (.-) a b = complex_sub a b\n\ninl complex_mult forall t. (a : complex t) (b : complex t) : complex t =\n !\\\\((a, b), $\u0027\u0022$0 * $1\u0022\u0027)\n\ninl (.*) a b = complex_mult a b\n\ninl complex_div forall t. (a : complex t) (b : complex t) : complex t =\n !\\($\u0027\u0022!a / !b\u0022\u0027)\n\ninl (./) a b = complex_div a b\n\ninl powc forall t. (s : complex t) (c : complex t) : complex t =\n inl c = join c\n inl s = join s\n !\\($\u0027\u0022num_complex::Complex::powc(!c, !s)\u0022\u0027)\n\ninl (.**) a b = powc b a\n\ninl complex_sin forall t. (c : complex t) : complex t =\n !\\($\u0027\u0022!c.sin()\u0022\u0027)\n\ninl conj forall t. (c : complex t) : complex t =\n !\\($\u0027\u0022!c.conj()\u0022\u0027)\n\n// // ## zeta\n\ninl zeta log (gamma : complex f64 -\u003E complex f64) (s : complex f64) : complex f64 =\n inl rec zeta count gamma s =\n if log then\n !\\\\(s, $\u0027\u0022println\\!(\\\\\\\u0022zeta / count: {:?} / s: {:?}\\\\\\\u0022, !count, $0)\u0022\u0027)\n if re s \u003E 1 then\n (.^(0, 0), (am.init 10000i32 id : a i32 _))\n ||\u003E am.fold fun acc n =\u003E\n acc .\u002B (.^(1, 0) ./ (.^(f64 n, 0) .** s))\n else\n inl gamma_term = gamma (.^(1, 0) .- s)\n inl sin_term = .^(pi, 0) .* s ./ .^(2, 0) |\u003E complex_sin\n inl one_minus_s = .^(1 - re s, -(im s))\n inl mirror_term =\n if re one_minus_s \u003C= 1\n then .^(0, 0)\n else\n if count \u003C= 3\n then zeta (count \u002B 1) gamma one_minus_s\n else one_minus_s\n inl reflection_formula =\n .^(2, 0) .* (.^(pi, 0) .** s) .* sin_term .* gamma_term .* mirror_term\n reflection_formula\n join zeta 0i32 gamma s\n\n// // ## eval\n\ninl module_from_code (py : python) (code : string) : _ (bound pymodule) _ =\n inl py = join py\n inl code = code |\u003E sm\u0027.as_str\n !\\($\u0027\u0022pyo3::types::PyModule::from_code_bound(!py, !code, \\\\\u0022\\\\\u0022, \\\\\u0022\\\\\u0022)\u0022\u0027)\n |\u003E resultm.map_error\u0027 fun (x : pyerr) =\u003E x |\u003E sm\u0027.format\u0027\n\ninl use_pyanymethods () =\n global \u0022Fable.Core.RustInterop.emitRustExpr () \\\u0022);\\nuse pyo3::prelude::PyAnyMethods;\\n//\\\u0022\u0022\n\ninl getattr (attr : string) (module : bound pymodule) : _ (bound pyany) _ =\n inl attr = join attr\n inl attr = attr |\u003E sm\u0027.as_str\n inl module = join module\n use_pyanymethods ()\n !\\($\u0027\u0022!module.getattr(!attr)\u0022\u0027)\n |\u003E resultm.map_error\u0027 fun (x : pyerr) =\u003E x |\u003E sm\u0027.format\u0027\n\ninl call forall t. (args : t) (module : bound pyany) : _ (bound pyany) _ =\n inl args = join args\n inl module = join module\n !\\($\u0027\u0022pyo3::prelude::PyAnyMethods::call(\u0026!module, ((*!args).0, *(*!args).1), None)\u0022\u0027)\n |\u003E resultm.map_error\u0027 fun (x : pyerr) =\u003E x |\u003E sm\u0027.format\u0027\n\ninl extract forall t. (result : bound pyany) : _ t _ =\n inl result = join result\n use_pyanymethods ()\n !\\($\u0027\u0022!result.extract()\u0022\u0027)\n |\u003E resultm.map_error\u0027 fun (x : pyerr) =\u003E x |\u003E sm\u0027.format\u0027\n\ninl eval py code (args : pair bool (pair f64 f64)) : _ (_ f64) sm\u0027.std_string =\n inl code =\n code\n |\u003E module_from_code py\n |\u003E resultm.unwrap\u0027\n inl fn =\n code\n |\u003E getattr \u0022fn\u0022\n |\u003E resultm.unwrap\u0027\n\n fn\n |\u003E call args\n |\u003E resultm.try\u0027\n |\u003E extract\n |\u003E resultm.try\u0027\n |\u003E complex\n |\u003E Ok\n |\u003E resultm.box\n\ninl call1_ log py s code =\n inl code = join (a code : _ i32 _) |\u003E sm\u0027.concat_array_trailing \u0022\\n\u0022\n \n inl s = new_pair (re s) (im s)\n inl args = new_pair log s\n\n eval py code args\n\ninl call1_ log name py s line =\n inl s = join s\n join\n ;[\n $\u0027$\u0022import sys\u0022\u0027\n $\u0027$\u0022import traceback\u0022\u0027\n $\u0027$\u0022import re\u0022\u0027\n $\u0027$\u0022count = 0\u0022\u0027\n $\u0027$\u0022memory_address_pattern = re.compile(r\\\u0027 at 0x[0-9a-fA-F]\u002B\\\u0027)\u0022\u0027\n $\u0027$\u0022def trace_calls(frame, event, arg):\u0022\u0027\n $\u0027$\u0022 global count\u0022\u0027\n $\u0027$\u0022 count \u002B= 1\u0022\u0027\n $\u0027$\u0022 if count \u003C 200:\u0022\u0027\n $\u0027$\u0022 try:\u0022\u0027\n $\u0027$\u0022 args = {{ k: v for k, v in frame.f_locals.items() if frame.f_code.co_name \\!= \\\u0027make_mpc\\\u0027 and k not in [\\\u0027ctx\\\u0027] and not callable(v) }}\u0022\u0027\n $\u0027$\u0022 args_str = \\\u0027, \\\u0027.join([ f\\\\\\\u0022{{k}}={{re.sub(memory_address_pattern, \\\u0027 at 0x\u003C?\u003E\\\u0027, repr(v))}}\\\\\\\u0022 for k, v in args.items() ])\u0022\u0027\n $\u0027$\u0022 print(f\\\\\\\u0022{{event}}({!name}) / f_code.co_name: {{frame.f_code.co_name}} / f_locals: {{args_str}} / f_lineno: {{frame.f_lineno}} / f_code.co_filename: {{frame.f_code.co_filename.split(\\\u0027site-packages\\\u0027)[-1]}} / f_back.f_lineno: {{ \\\u0027\\\u0027 if frame.f_back is None else frame.f_back.f_lineno }} / f_back.f_code.co_filename: {{ \\\u0027\\\u0027 if frame.f_back is None else frame.f_back.f_code.co_filename.split(\\\u0027site-packages\\\u0027)[-1] }} / arg: {{re.sub(memory_address_pattern, \\\u0027 at 0x\u003C?\u003E\\\u0027, repr(arg))}}\\\\\\\u0022, flush=True)\u0022\u0027\n $\u0027$\u0022 except ValueError as e:\u0022\u0027\n $\u0027$\u0022 print(f\\\u0027{!name} / e: {{e}}\\\u0027, flush=True)\u0022\u0027\n $\u0027$\u0022 return trace_calls\u0022\u0027\n $\u0027$\u0022import mpmath\u0022\u0027\n $\u0027$\u0022def fn(log, s):\u0022\u0027\n $\u0027$\u0022 global count\u0022\u0027\n $\u0027$\u0022 if log:\u0022\u0027\n $\u0027$\u0022 print(f\\\u0027{!name} / s: {{s}} / count: {{count}}\\\u0027, flush=True)\u0022\u0027\n $\u0027$\u0022 s = complex(*s)\u0022\u0027\n $\u0027$\u0022 try:\u0022\u0027\n $\u0027$\u0022 if log: sys.settrace(trace_calls)\u0022\u0027\n line\n $\u0027$\u0022 if log:\u0022\u0027\n $\u0027$\u0022 sys.settrace(None)\u0022\u0027\n $\u0027$\u0022 print(f\\\u0027{!name} / result: {{s}} / count: {{count}}\\\u0027, flush=True)\u0022\u0027\n $\u0027$\u0022 except ValueError as e:\u0022\u0027\n $\u0027$\u0022 if s.real == 1:\u0022\u0027\n $\u0027$\u0022 s = complex(float(\\\u0027inf\\\u0027), 0)\u0022\u0027\n $\u0027$\u0022 return (s.real, s.imag)\u0022\u0027\n ]\n |\u003E call1_ log py s\n\ninl gamma_ log py s =\n call1_ log \u0022gamma_\u0022 py s $\u0027$\u0022 s = mpmath.gamma(s)\u0022\u0027\n\ninl zeta_ log py s =\n call1_ log \u0022zeta_\u0022 py s $\u0027$\u0022 s = mpmath.zeta(s)\u0022\u0027\n\n// // ## run_test\n\ninl run_test log closure_fix (fn : (complex f64 -\u003E complex f64) * (complex f64 -\u003E complex f64) -\u003E ()) =\n inl fn_ (py : python) : resultm.result\u0027 () pyerr =\n inl nan () =\n !\\($\u0027\u0022f64::NAN\u0022\u0027)\n inl gamma__ = fun (s : complex f64) =\u003E\n inl result = gamma_ log py s\n if log then\n inl s = join s\n !\\($\u0027\u0022println\\!(\\\\\\\u0022gamma__ / s: {:?} / result: {:?}\\\\\\\u0022, !s, !result)\u0022\u0027)\n result |\u003E resultm.ok\u0027 |\u003E optionm\u0027.unbox |\u003E optionm\u0027.default_value .^(nan (), nan ())\n inl zeta__ = fun (s : complex f64) =\u003E\n inl result = zeta_ log py s\n\n inl z = zeta true gamma__ s\n\n if log then\n inl s = join s\n !\\($\u0027\u0022println\\!(\\\\\\\u0022zeta__ / s: {:?} / result: {:?} / z: {:?}\\\\\\\u0022, !s, !result, !z)\u0022\u0027)\n\n // re result - re x |\u003E abs\n // |\u003E _assert_lt 0.001\n\n // im result - im x |\u003E abs\n // |\u003E _assert_lt 0.001\n\n result |\u003E resultm.ok\u0027 |\u003E optionm\u0027.unbox |\u003E optionm\u0027.default_value .^(nan (), nan ())\n join fn (zeta__, gamma__)\n\n Ok ()\n |\u003E resultm.box\n \n join\n !\\($\u0027\u0022pyo3::prepare_freethreaded_python()\u0022\u0027) : ()\n\n !\\($\u0027\u0022let __result = pyo3::Python::with_gil(|py| -\u003E pyo3::PyResult\u003C()\u003E { //\u0022\u0027)\n\n let x\u0027 = fn_ (!\\($\u0027\u0022py\u0022\u0027) : python)\n inl x\u0027 = join x\u0027\n \n inl closure_fix = 2u8, 1u8\n x\u0027 |\u003E rust.fix_closure closure_fix\n\n (!\\($\u0027\u0022__result\u0022\u0027) : _ () pyerr)\n |\u003E resultm.unwrap\u0027\n\n// // ## test_zeta_at_known_values_\n\ninl test_zeta_at_known_values_ log = run_test log (3u8, 2u8) fun zeta, gamma =\u003E\n ;[\n .^(2, 0), pi ** 2 / 6\n .^(-1, 0), -1 / 12\n ]\n |\u003E fun x =\u003E a x : _ i32 _\n |\u003E am.iter fun s, e =\u003E\n inl result = zeta s\n\n result |\u003E im |\u003E _assert_eq 0\n re result - e |\u003E abs |\u003E _assert_lt 0.0001\n\n// // ## test_zeta_at_2_minus2\n\ninl test_zeta_at_2_minus2 log = run_test log (6u8, 5u8) fun zeta, gamma =\u003E\n inl s = .^(2, -2)\n inl result = zeta s\n\n (re result - 0.8673) |\u003E abs |\u003E _assert_lt 0.001\n (im result - 0.2750) |\u003E abs |\u003E _assert_lt 0.001\n\n// // ## test_trivial_zero_at_negative_even___\n\ninl test_trivial_zero_at_negative_even___ log = run_test log (2u8, 1u8) fun zeta, gamma =\u003E\n (join listm\u0027.init_series -2f64 -40 -2)\n |\u003E listm.iter fun n =\u003E\n inl s = .^(n, 0)\n inl result = zeta s\n\n result |\u003E re |\u003E _assert_eq 0\n result |\u003E im |\u003E _assert_eq 0\n\n// // ## test_non_trivial_zero___\n\ninl test_non_trivial_zero___ log = run_test log (3u8, 2u8) fun zeta, gamma =\u003E\n ;[\n .^(0.5, 14.134725)\n .^(0.5, 21.022040)\n .^(0.5, 25.010857)\n .^(0.5, 30.424876)\n .^(0.5, 32.935062)\n .^(0.5, 37.586178)\n ]\n |\u003E fun x =\u003E a x : _ i32 _\n |\u003E am.iter fun x =\u003E\n inl result = zeta x\n result |\u003E re |\u003E abs |\u003E _assert_lt 0.0001\n result |\u003E im |\u003E abs |\u003E _assert_lt 0.0001\n\n// // ## test_real_part_greater_than_one___\n\ninl test_real_part_greater_than_one___ log = run_test log (3u8, 2u8) fun zeta, gamma =\u003E\n inl points = ;[2; 3; 4; 5; 10; 20; 50]\n (a points : _ i32 _)\n |\u003E am.iter fun point =\u003E\n inl s = .^(point, 0)\n inl result = zeta s\n result |\u003E re |\u003E _assert_gt 0\n result |\u003E im |\u003E _assert_eq 0\n\n// // ## test_zeta_at_1___\n\ninl test_zeta_at_1___ log = run_test log (6u8, 5u8) fun zeta, gamma =\u003E\n inl s = .^(1, 0)\n inl result = zeta s\n result |\u003E re |\u003E _assert_eq limit.max\n result |\u003E im |\u003E _assert_eq 0\n\n// // ## test_symmetry_across_real_axis___\n\ninl test_symmetry_across_real_axis___ log = run_test log (8u8, 7u8) fun zeta, gamma =\u003E\n inl s = .^(2, 10)\n inl result_positive_im = zeta s\n inl result_negative_im = zeta .^(re s, -(im s))\n inl conj = result_negative_im |\u003E conj\n result_positive_im |\u003E re |\u003E _assert_eq (conj |\u003E re)\n result_positive_im |\u003E im |\u003E _assert_eq (conj |\u003E im)\n\n// // ## test_behavior_near_origin___\n\ninl test_behavior_near_origin___ log = run_test log (6u8, 5u8) fun zeta, gamma =\u003E\n inl s = .^(0.01, 0.01)\n inl result = zeta s\n result |\u003E re |\u003E _assert_lt limit.max\n result |\u003E im |\u003E _assert_lt limit.max\n\n// // ## test_imaginary_axis\n\ninl test_imaginary_axis log = run_test log (3u8, 2u8) fun zeta, gamma =\u003E\n (join a ;[10; 20; 30; 40; 50; 60; 70; 80; 90; 100] : _ i32 _)\n |\u003E am.iter fun s =\u003E\n inl s = .^(0, s)\n inl result = zeta s\n result |\u003E re |\u003E _assert_ne 0\n result |\u003E im |\u003E _assert_ne 0\n\n// // ## test_critical_strip\n\ninl test_critical_strip log = run_test log (3u8, 2u8) fun zeta, gamma =\u003E\n ;[\n .^(0.5, 14.134725)\n .^(0.75, 20.5)\n .^(1.25, 30.1)\n .^(0.25, 40.0)\n .^(1.0, 50.0)\n ]\n |\u003E fun x =\u003E a x : _ i32 _\n |\u003E am.iter fun s =\u003E\n inl result = zeta s\n result |\u003E re |\u003E _assert_ne 0\n result |\u003E im |\u003E _assert_ne 0\n\n// // ## test_reflection_formula_for_specific_value\n\ninl test_reflection_formula_for_specific_value log = run_test log (3u8, 2u8) fun zeta, gamma =\u003E\n ;[\n .^(3, 4)\n .^(2.5, -3.5)\n .^(1.5, 2.5)\n .^(0.5, 14.134725)\n ]\n |\u003E fun x =\u003E a x : _ i32 _\n |\u003E am.iter fun s =\u003E\n inl lhs = zeta s\n inl reflection_coefficient =\n (.^(2, 0) .** s)\n .* (.^(pi, 0) .** (s .- .^(1, 0)))\n .* (.^(pi, 0) .* s ./ .^(2, 0) |\u003E complex_sin)\n .* gamma (.^(1, 0) .- s)\n\n inl one_minus_s = .^(1 - re s, -(im s))\n inl rhs = reflection_coefficient .* zeta one_minus_s\n\n re lhs - re rhs |\u003E abs |\u003E _assert_lt 0.0001\n im lhs - im rhs |\u003E abs |\u003E _assert_lt 0.0001\n\n// // ## test_euler_product_formula\n\ninl test_euler_product_formula log = run_test log (3u8, 2u8) fun zeta, gamma =\u003E\n inl s_values = ;[2; 2.5; 3; 3.5; 4; 4.5; 5]\n inl primes = ;[2; 3; 5; 7; 11; 13; 17; 19; 23; 29; 31; 37; 41; 43; 47; 53; 59; 61; 67; 71]\n (a s_values : _ i32 _)\n |\u003E am.iter fun s_re =\u003E\n inl s = .^(s_re, 0)\n inl product =\n (1, (a primes : _ i32 _))\n ||\u003E am.fold fun acc x =\u003E\n acc * 1 / (1 - x ** -s_re)\n\n inl result = zeta s\n re result - product |\u003E abs |\u003E _assert_lt 0.01\n result |\u003E im |\u003E _assert_lt 0.01\n\n// // ## graph\n\n// // ## tests\n\ninl tests () =\n !\\($\u0027\u0022}//\u0022\u0027) : ()\n\n !\\($\u0027\u0022#[test] fn test_zeta_at_known_values_() { //\u0022\u0027) : ()\n test_zeta_at_known_values_ false\n !\\($\u0027\u0022} #[test] fn test_zeta_at_2_minus2() { //\u0022\u0027) : ()\n test_zeta_at_2_minus2 false\n !\\($\u0027\u0022} #[test] fn test_trivial_zero_at_negative_even___() { //\u0022\u0027) : ()\n test_trivial_zero_at_negative_even___ false\n !\\($\u0027\u0022} #[test] fn test_non_trivial_zero___() { //\u0022\u0027) : ()\n test_non_trivial_zero___ false\n !\\($\u0027\u0022} #[test] fn test_real_part_greater_than_one___() { //\u0022\u0027) : ()\n test_real_part_greater_than_one___ false\n !\\($\u0027\u0022} #[test] fn test_zeta_at_1___() { //\u0022\u0027) : ()\n test_zeta_at_1___ false\n !\\($\u0027\u0022} #[test] fn test_symmetry_across_real_axis___() { //\u0022\u0027) : ()\n test_symmetry_across_real_axis___ false\n !\\($\u0027\u0022} #[test] fn test_behavior_near_origin___() { //\u0022\u0027) : ()\n test_behavior_near_origin___ false\n !\\($\u0027\u0022} #[test] fn test_imaginary_axis() { //\u0022\u0027) : ()\n test_imaginary_axis false\n !\\($\u0027\u0022} #[test] fn test_critical_strip() { //\u0022\u0027) : ()\n test_critical_strip false\n !\\($\u0027\u0022} #[test] fn test_reflection_formula_for_specific_value() { //\u0022\u0027) : ()\n test_reflection_formula_for_specific_value false\n !\\($\u0027\u0022} #[test] fn test_euler_product_formula() { //\u0022\u0027) : ()\n test_euler_product_formula false\n\n// // rust=\n\ninl main (_args : array_base string) =\n inl value = 1i32\n console.write_line ($\u0022$\\\u0022value: {!value}\\\u0022\u0022 : string)\n 0i32\n\ninl main () =\n types ()\n $\u0022let tests () = !tests ()\u0022 : ()\n $\u0022let main args = !main args\u0022 : ()\n","uri":"file:///c:/home/git/polyglot/lib/math/math.spi"}} / result.Length:
00:00:01 #10 [debug] sendJson / port: 13805 / json: {"BuildFile":{"backend":"Fsharp","uri":"file:///c:/home/git/polyglot/lib/math/math.spi"}} / result.Length:
00:00:01 #7 [verbose] > Building c:\home\git\polyglot\lib\math\math.spi
00:00:02 #11 [debug] buildFile / takeWhileInclusive / fsxContent: / errors: [] / typeErrorCount: 0
00:00:03 #12 [debug] buildFile / takeWhileInclusive / fsxContent: / errors: [] / typeErrorCount: 0
00:00:04 #13 [debug] buildFile / takeWhileInclusive / fsxContent: [<Fable.Core.Erase; Fable.Core.Emit("Func0<$0>")>] type Func0<'T> = class end
[<Fable.Core.Erase; Fable.Core.Emit("Func1<$0, $1>")>] type Func0<'T, 'U> = class end
[<Fable.Core.Erase; Fable.Core.Emit(...let v1 : string = $"value: {1}"
System.Console.WriteLine v1
0
let v0 : (unit -> unit) = closure0()
let tests () = v0 ()
let v1 : ((string []) -> int32) = closure6()
let main args = v1 args
()
/ errors: [] / typeErrorCount: 0
00:00:04 #14 [debug] watchWithFilter / Disposing watch stream / filter: FileName, LastWrite
00:00:06 #15 [debug] runWithTimeoutChildAsync / timeout: 2000
00:00:00 #1 [debug] persistCodeProject / packages: [Fable.Core] / modules: [lib/spiral/common.fsx; lib/spiral/sm.fsx; lib/spiral/crypto.fsx; ... ] / name: math / code.Length: 125510
00:00:00 #2 [debug] buildProject / fullPath: C:\home\git\polyglot\target\polyglot\builder\math\math.fsproj
00:00:00 #1 [debug] execute_with_options_async / options: struct (None,
"dotnet publish "C:\home\git\polyglot\target/polyglot/builder\math\math.fsproj" --configuration Release --output "C:\home\git\polyglot\lib\math\dist" --runtime linux-x64",
None, None, Some "C:\home\git\polyglot\target\polyglot\builder\math")
00:00:00 #2 [verbose] > MSBuild version 17.10.0-preview-24101-01+07fd5d51f for .NET
00:00:00 #3 [verbose] > Determining projects to restore...
00:00:01 #4 [verbose] > Restored C:\home\git\polyglot\target\polyglot\builder\math\math.fsproj (in 346 ms).
00:00:01 #5 [verbose] > C:\Users\i574n\scoop\apps\dotnet-sdk-preview\current\sdk\9.0.100-preview.1.24101.2\Sdks\Microsoft.NET.Sdk\targets\Microsoft.NET.RuntimeIdentifierInference.targets(313,5): message NETSDK1057: You are using a preview version of .NET. See: https://aka.ms/dotnet-support-policy [C:\home\git\polyglot\target\polyglot\builder\math\math.fsproj]
00:00:08 #6 [verbose] > math -> C:\home\git\polyglot\target\polyglot\builder\math\bin\Release\net9.0\linux-x64\math.dll
00:00:10 #7 [verbose] > math -> C:\home\git\polyglot\lib\math\dist\
00:00:10 #8 [debug] execute_with_options_async / exit_code: 0 / output.Length: 664
00:00:10 #9 [debug] execute_with_options_async / options: struct (None,
"dotnet publish "C:\home\git\polyglot\target/polyglot/builder\math\math.fsproj" --configuration Release --output "C:\home\git\polyglot\lib\math\dist" --runtime win-x64",
None, None, Some "C:\home\git\polyglot\target\polyglot\builder\math")
00:00:10 #10 [verbose] > MSBuild version 17.10.0-preview-24101-01+07fd5d51f for .NET
00:00:11 #11 [verbose] > Determining projects to restore...
00:00:11 #12 [verbose] > Restored C:\home\git\polyglot\target\polyglot\builder\math\math.fsproj (in 339 ms).
00:00:12 #13 [verbose] > C:\Users\i574n\scoop\apps\dotnet-sdk-preview\current\sdk\9.0.100-preview.1.24101.2\Sdks\Microsoft.NET.Sdk\targets\Microsoft.NET.RuntimeIdentifierInference.targets(313,5): message NETSDK1057: You are using a preview version of .NET. See: https://aka.ms/dotnet-support-policy [C:\home\git\polyglot\target\polyglot\builder\math\math.fsproj]
00:00:19 #14 [verbose] > math -> C:\home\git\polyglot\target\polyglot\builder\math\bin\Release\net9.0\win-x64\math.dll
00:00:25 #15 [verbose] > math -> C:\home\git\polyglot\lib\math\dist\
00:00:25 #16 [debug] execute_with_options_async / exit_code: 0 / output.Length: 662
targetDir: C:\home\git\polyglot\target\polyglot\builder\math
Fable 4.14.0: F# to Rust compiler (status: alpha)
Thanks to the contributor! @SirUppyPancakes
Stand with Ukraine! https://standwithukraine.com.ua/
Parsing ..\..\target\polyglot\builder\math\math.fsproj...
Retrieving project options from cache, in case of issues run `dotnet fable clean` or try `--noCache` option.
Project and references (11 source files) parsed in 171ms
Started Fable compilation...
Fable compilation finished in 4850ms
.\..\spiral\crypto.fsx(76,0): (76,2) warning FABLE: For Rust, support for F# static and module do bindings is disabled by default. It can be enabled with the 'static_do_bindings' feature. Use at your own risk!
.\..\spiral\async_.fsx(74,0): (74,2) warning FABLE: For Rust, support for F# static and module do bindings is disabled by default. It can be enabled with the 'static_do_bindings' feature. Use at your own risk!
.\..\spiral\common.fsx(100,0): (100,2) warning FABLE: For Rust, support for F# static and module do bindings is disabled by default. It can be enabled with the 'static_do_bindings' feature. Use at your own risk!
.\..\spiral\date_time.fsx(107,0): (107,2) warning FABLE: For Rust, support for F# static and module do bindings is disabled by default. It can be enabled with the 'static_do_bindings' feature. Use at your own risk!
.\..\spiral\sm.fsx(300,0): (300,2) warning FABLE: For Rust, support for F# static and module do bindings is disabled by default. It can be enabled with the 'static_do_bindings' feature. Use at your own risk!
.\..\spiral\runtime.fsx(1514,0): (1514,2) warning FABLE: For Rust, support for F# static and module do bindings is disabled by default. It can be enabled with the 'static_do_bindings' feature. Use at your own risk!
.\..\spiral\trace.fsx(267,0): (267,2) warning FABLE: For Rust, support for F# static and module do bindings is disabled by default. It can be enabled with the 'static_do_bindings' feature. Use at your own risk!
.\..\spiral\file_system.fsx(3448,12): (3448,25) warning FABLE: For Rust, support for F# static and module do bindings is disabled by default. It can be enabled with the 'static_do_bindings' feature. Use at your own risk!
.\..\spiral\file_system.fsx(3449,0): (3449,9) warning FABLE: For Rust, support for F# static and module do bindings is disabled by default. It can be enabled with the 'static_do_bindings' feature. Use at your own risk!
.\..\spiral\file_system.fsx(3460,0): (3460,2) warning FABLE: For Rust, support for F# static and module do bindings is disabled by default. It can be enabled with the 'static_do_bindings' feature. Use at your own risk!
.\..\..\target\polyglot\builder\math\math.fs(37,0): (39,3) warning FABLE: For Rust, support for F# static and module do bindings is disabled by default. It can be enabled with the 'static_do_bindings' feature. Use at your own risk!
Compiling math v0.0.1 (C:\home\git\polyglot\lib\math)
Finished `release` profile [optimized] target(s) in 19.69s
Running unittests math.rs (C:\home\git\polyglot\target\release\deps\math-06c03a18adbd81df.exe)
running 12 tests
test module_b7a9935b::Math::test_real_part_greater_than_one___ ... ok
test module_b7a9935b::Math::test_behavior_near_origin___ ... ok
test module_b7a9935b::Math::test_symmetry_across_real_axis___ ... ok
test module_b7a9935b::Math::test_zeta_at_1___ ... ok
test module_b7a9935b::Math::test_non_trivial_zero___ ... ok
test module_b7a9935b::Math::test_zeta_at_known_values_ ... ok
test module_b7a9935b::Math::test_zeta_at_2_minus2 ... ok
test module_b7a9935b::Math::test_euler_product_formula ... ok
test module_b7a9935b::Math::test_trivial_zero_at_negative_even___ ... ok
test module_b7a9935b::Math::test_imaginary_axis ... ok
test module_b7a9935b::Math::test_reflection_formula_for_specific_value ... ok
test module_b7a9935b::Math::test_critical_strip ... ok
test result: ok. 12 passed; 0 failed; 0 ignored; 0 measured; 0 filtered out; finished in 0.41s
In [ ]:
{ . "$ScriptDir/../apps/plot/build.ps1" } | Invoke-Block
Compiling plot v0.0.1 (C:\home\git\polyglot\apps\plot) Finished `release` profile [optimized] target(s) in 10.17s
In [ ]:
{ . "$ScriptDir/../lib/spiral/build.ps1" -sequential 1 } | Invoke-Block
00:00:00 #1 [debug] runWithTimeoutChildAsync / timeout: 60
00:00:00 #1 [debug] execute_with_options_async / options: struct (Some System.Threading.CancellationToken,
"dotnet "C:\home\git\polyglot\deps\The-Spiral-Language\The Spiral Language 2\artifacts\bin\The Spiral Language 2\release\Spiral.dll" --port 13805 --default-int i32 --default-float f64",
Some <fun:main@439-43>, None, None)
00:00:00 #2 [verbose] > pwd: C:\home\git\polyglot\lib\spiral
00:00:00 #3 [verbose] > dllPath: C:\home\git\polyglot\deps\The-Spiral-Language\The Spiral Language 2\artifacts\bin\The Spiral Language 2\release
00:00:00 #4 [verbose] > targetDir: C:\home\git\polyglot\target/polyglot/spiral_eval
00:00:00 #5 [verbose] > Starting the Spiral Server. It is bound to: http://localhost:13805
00:00:00 #2 [debug] runWithTimeoutChildAsync / timeout: 500
00:00:00 #3 [verbose] waitForPortAccess / port: 13805 / retry: 0
00:00:01 #4 [debug] sendJson / port: 13805 / json: {"Ping":true} / result.Length:
00:00:01 #5 [verbose] awaitCompiler / Ping / result: Some(null) / port: 13805 / retry: 0
00:00:01 #6 [verbose] > Server bound to: http://localhost:13805
00:00:01 #7 [debug] execute_with_options_async / options: struct (Some System.Threading.CancellationToken,
"pwsh -c "../../scripts/invoke-dib.ps1 testing.dib -Retries 3"", None,
None, None)
00:00:03 #8 [verbose] >
00:00:03 #9 [verbose] > ── markdown ────────────────────────────────────────────────────────────────────
00:00:03 #10 [verbose] > ╭──────────────────────────────────────────────────────────────────────────────╮
00:00:03 #11 [verbose] > │ # testing │
00:00:03 #12 [verbose] > ╰──────────────────────────────────────────────────────────────────────────────╯
00:00:03 #13 [verbose] >
00:00:03 #14 [verbose] > ── spiral ──────────────────────────────────────────────────────────────────────
00:00:03 #15 [verbose] > inl __expect fn log b a =
00:00:03 #16 [verbose] > if log then
00:00:03 #17 [verbose] > a |> sm'.format_debug |> console.write_line
00:00:03 #18 [verbose] > inl result = fn a b
00:00:03 #19 [verbose] > inl result =
00:00:03 #20 [verbose] > result || join result
00:00:03 #21 [verbose] > if log
00:00:03 #22 [verbose] > then $"$\"__expect / actual: %A{!a} / expected: %A{!b}\""
00:00:03 #23 [verbose] > else "__expect"
00:00:03 #24 [verbose] > |> assert result
00:00:03 #25 [verbose] >
00:00:03 #26 [verbose] > inl __assert_approx_eq log e b a = __expect (fun a b => abs (b - a) < (e |>
00:00:03 #27 [verbose] > optionm.defaultWith 0.00000001)) log b a
00:00:03 #28 [verbose] > inl _assert_approx_eq e b a = __assert_approx_eq true e b a
00:00:03 #29 [verbose] >
00:00:03 #30 [verbose] > inl __assert_eq log b a = __expect (=) log b a
00:00:03 #31 [verbose] > inl _assert_eq b a = __assert_eq true b a
00:00:03 #32 [verbose] >
00:00:03 #33 [verbose] > inl __assert_eq' log b a = __expect (=.) log b a
00:00:03 #34 [verbose] > inl _assert_eq' b a = __assert_eq' true b a
00:00:03 #35 [verbose] >
00:00:03 #36 [verbose] > inl __assert_ne log b a = __expect (fun a b => a = b |> fun x => join x |> not)
00:00:03 #37 [verbose] > log b a
00:00:03 #38 [verbose] > inl _assert_ne b a = __assert_ne true b a
00:00:03 #39 [verbose] >
00:00:03 #40 [verbose] > inl __assert_gt log b a = __expect (>) log b a
00:00:03 #41 [verbose] > inl _assert_gt b a = __assert_gt true b a
00:00:03 #42 [verbose] >
00:00:03 #43 [verbose] > inl __assert_ge log b a = __expect (>=) log b a
00:00:03 #44 [verbose] > inl _assert_ge b a = __assert_ge true b a
00:00:03 #45 [verbose] >
00:00:03 #46 [verbose] > inl __assert_lt log b a = __expect (<) log b a
00:00:03 #47 [verbose] > inl _assert_lt b a = __assert_lt true b a
00:00:03 #48 [verbose] >
00:00:03 #49 [verbose] > inl __assert_le log b a = __expect (<=) log b a
00:00:03 #50 [verbose] > inl _assert_le b a = __assert_le true b a
00:00:03 #51 [verbose] >
00:00:03 #52 [verbose] > inl __assert_contains forall t. log (b : t) a =
00:00:03 #53 [verbose] > __expect
00:00:03 #54 [verbose] > fun a b =>
00:00:03 #55 [verbose] > a
00:00:03 #56 [verbose] > |> $'List.ofSeq'
00:00:03 #57 [verbose] > |> fun x => x : listm'.list' t
00:00:03 #58 [verbose] > |> $'List.tryFind' ((=) b)
00:00:03 #59 [verbose] > |> optionm'.unbox
00:00:03 #60 [verbose] > |> fun (x : _ t) => x <> None
00:00:03 #61 [verbose] > log b a
00:00:03 #62 [verbose] > inl _assert_contains b a = __assert_contains true b a
00:00:03 #63 [verbose] >
00:00:03 #64 [verbose] > inl __assert_string_contains log b a = __expect sm'.contains log a b
00:00:03 #65 [verbose] > inl _assert_string_contains b a = __assert_string_contains true b a
00:00:03 #66 [verbose] >
00:00:03 #67 [verbose] > inl _throws (fn : () -> ()) : option exn =
00:00:03 #68 [verbose] > inl none = None : option exn
00:00:03 #69 [verbose] > inl some (s : exn) = Some s
00:00:03 #70 [verbose] > $"try !fn (); !none with ex -> ex |> !some"
00:00:03 #71 [verbose] >
00:00:03 #72 [verbose] > inl __assert_between log a b actual =
00:00:03 #73 [verbose] > inl assert_between actual (a, b) =
00:00:03 #74 [verbose] > __assert_ge log a actual
00:00:03 #75 [verbose] > __assert_le log b actual
00:00:03 #76 [verbose] > true
00:00:03 #77 [verbose] > __expect assert_between log (a, b) actual
00:00:03 #78 [verbose] > inl _assert_between a b actual = __assert_between true a b actual
00:00:06 #79 [verbose] > Building c:\home\git\polyglot\target\polyglot\spiral_eval\packages\ed5c4069d0bc309d4f01cb192f7e4dc2361f62a40f39b8385c07c179a18f7335\main.spi
00:00:09 #80 [verbose] >
00:00:09 #81 [verbose] > ╭─[ 5.88s - stdout ]───────────────────────────────────────────────────────────╮
00:00:09 #82 [verbose] > │ () │
00:00:09 #83 [verbose] > │ │
00:00:09 #84 [verbose] > │ │
00:00:09 #85 [verbose] > ╰──────────────────────────────────────────────────────────────────────────────╯
00:00:09 #86 [verbose] >
00:00:09 #87 [verbose] > ── spiral ──────────────────────────────────────────────────────────────────────
00:00:09 #88 [verbose] > // // test
00:00:09 #89 [verbose] >
00:00:09 #90 [verbose] > 1f64
00:00:09 #91 [verbose] > |> _assert_approx_eq (Some 3) 2
00:00:09 #92 [verbose] > Building c:\home\git\polyglot\target\polyglot\spiral_eval\packages\54cf48f87000c1e4e086982ced5aeae2e505b7133126d6c5a7c2666d5de8c986\main.spi
00:00:10 #93 [verbose] >
00:00:10 #94 [verbose] > ╭─[ 1.02s - stdout ]───────────────────────────────────────────────────────────╮
00:00:10 #95 [verbose] > │ let rec method0 () : unit = │
00:00:10 #96 [verbose] > │ let v0 : string = $"%A{1.0}" │
00:00:10 #97 [verbose] > │ System.Console.WriteLine v0 │
00:00:10 #98 [verbose] > │ let v1 : string = $"__expect / actual: %A{1.0} / expected: %A{2.0}" │
00:00:10 #99 [verbose] > │ () │
00:00:10 #100 [verbose] > │ method0() │
00:00:10 #101 [verbose] > │ │
00:00:10 #102 [verbose] > │ 1.0 │
00:00:10 #103 [verbose] > │ │
00:00:10 #104 [verbose] > ╰──────────────────────────────────────────────────────────────────────────────╯
00:00:10 #105 [verbose] >
00:00:10 #106 [verbose] > ── spiral ──────────────────────────────────────────────────────────────────────
00:00:10 #107 [verbose] > // // test
00:00:10 #108 [verbose] >
00:00:10 #109 [verbose] > "abcd"
00:00:10 #110 [verbose] > |> _assert_contains 'b'
00:00:10 #111 [verbose] > Building c:\home\git\polyglot\target\polyglot\spiral_eval\packages\2fdc2da479337757fd0ef07bca3997abc6e07803406ed5a7ae9b198dbb74cdd0\main.spi
00:00:11 #112 [verbose] >
00:00:11 #113 [verbose] > ╭─[ 895.50ms - stdout ]────────────────────────────────────────────────────────╮
00:00:11 #114 [verbose] > │ type [<Struct>] US0 = │
00:00:11 #115 [verbose] > │ | US0_0 of f0_0 : char │
00:00:11 #116 [verbose] > │ | US0_1 │
00:00:11 #117 [verbose] > │ let rec closure0 () (v0 : char) : bool = │
00:00:11 #118 [verbose] > │ let v1 : bool = 'b' = v0 │
00:00:11 #119 [verbose] > │ v1 │
00:00:11 #120 [verbose] > │ and closure1 () (v0 : char) : US0 = │
00:00:11 #121 [verbose] > │ US0_0(v0) │
00:00:11 #122 [verbose] > │ and method1 () : (char -> US0) = │
00:00:11 #123 [verbose] > │ closure1() │
00:00:11 #124 [verbose] > │ and method2 (v0 : bool) : bool = │
00:00:11 #125 [verbose] > │ v0 │
00:00:11 #126 [verbose] > │ and method0 () : unit = │
00:00:11 #127 [verbose] > │ let v0 : string = "abcd" │
00:00:11 #128 [verbose] > │ let v1 : string = $"%A{v0}" │
00:00:11 #129 [verbose] > │ System.Console.WriteLine v1 │
00:00:11 #130 [verbose] > │ let v2 : (string -> char list) = List.ofSeq │
00:00:11 #131 [verbose] > │ let v3 : char list = v2 v0 │
00:00:11 #132 [verbose] > │ let v4 : ((char -> bool) -> (char list -> char option)) = List.tryFind │
00:00:11 #133 [verbose] > │ let v5 : (char -> bool) = closure0() │
00:00:11 #134 [verbose] > │ let v6 : (char list -> char option) = v4 v5 │
00:00:11 #135 [verbose] > │ let v7 : char option = v6 v3 │
00:00:11 #136 [verbose] > │ let v8 : (char -> US0) = method1() │
00:00:11 #137 [verbose] > │ let v9 : US0 = US0_1 │
00:00:11 #138 [verbose] > │ let v10 : US0 = v7 |> Option.map v8 |> Option.defaultValue v9 │
00:00:11 #139 [verbose] > │ let v12 : bool = │
00:00:11 #140 [verbose] > │ match v10 with │
00:00:11 #141 [verbose] > │ | US0_1 -> (* None *) │
00:00:11 #142 [verbose] > │ true │
00:00:11 #143 [verbose] > │ | _ -> │
00:00:11 #144 [verbose] > │ false │
00:00:11 #145 [verbose] > │ let v13 : bool = v12 <> true │
00:00:11 #146 [verbose] > │ let v15 : bool = │
00:00:11 #147 [verbose] > │ if v13 then │
00:00:11 #148 [verbose] > │ true │
00:00:11 #149 [verbose] > │ else │
00:00:11 #150 [verbose] > │ method2(v13) │
00:00:11 #151 [verbose] > │ let v16 : string = $"__expect / actual: %A{v0} / expected: %A{'b'}" │
00:00:11 #152 [verbose] > │ let v17 : bool = v15 = false │
00:00:11 #153 [verbose] > │ if v17 then │
00:00:11 #154 [verbose] > │ failwith<unit> v16 │
00:00:11 #155 [verbose] > │ method0() │
00:00:11 #156 [verbose] > │ │
00:00:11 #157 [verbose] > │ "abcd" │
00:00:11 #158 [verbose] > │ │
00:00:11 #159 [verbose] > ╰──────────────────────────────────────────────────────────────────────────────╯
00:00:11 #160 [verbose] >
00:00:11 #161 [verbose] > ── spiral ──────────────────────────────────────────────────────────────────────
00:00:11 #162 [verbose] > // // test
00:00:11 #163 [verbose] >
00:00:11 #164 [verbose] > (dyn 1f64)
00:00:11 #165 [verbose] > |> _assert_approx_eq (Some 3) 2
00:00:11 #166 [verbose] > Building c:\home\git\polyglot\target\polyglot\spiral_eval\packages\c64fb0b4aa0feed28f1e6afe41032f4910f4522b62a4a76ea04b56c7f0e6daa5\main.spi
00:00:11 #167 [verbose] >
00:00:11 #168 [verbose] > ╭─[ 393.20ms - stdout ]────────────────────────────────────────────────────────╮
00:00:11 #169 [verbose] > │ let rec method1 (v0 : bool) : bool = │
00:00:11 #170 [verbose] > │ v0 │
00:00:11 #171 [verbose] > │ and method0 () : unit = │
00:00:11 #172 [verbose] > │ let v0 : float = 1.0 │
00:00:11 #173 [verbose] > │ let v1 : string = $"%A{v0}" │
00:00:11 #174 [verbose] > │ System.Console.WriteLine v1 │
00:00:11 #175 [verbose] > │ let v2 : float = 2.0 - v0 │
00:00:11 #176 [verbose] > │ let v3 : float = -v2 │
00:00:11 #177 [verbose] > │ let v4 : bool = v2 >= v3 │
00:00:11 #178 [verbose] > │ let v5 : float = │
00:00:11 #179 [verbose] > │ if v4 then │
00:00:11 #180 [verbose] > │ v2 │
00:00:11 #181 [verbose] > │ else │
00:00:11 #182 [verbose] > │ v3 │
00:00:11 #183 [verbose] > │ let v6 : bool = v5 < 3.0 │
00:00:11 #184 [verbose] > │ let v8 : bool = │
00:00:11 #185 [verbose] > │ if v6 then │
00:00:11 #186 [verbose] > │ true │
00:00:11 #187 [verbose] > │ else │
00:00:11 #188 [verbose] > │ method1(v6) │
00:00:11 #189 [verbose] > │ let v9 : string = $"__expect / actual: %A{v0} / expected: %A{2.0}" │
00:00:11 #190 [verbose] > │ let v10 : bool = v8 = false │
00:00:11 #191 [verbose] > │ if v10 then │
00:00:11 #192 [verbose] > │ failwith<unit> v9 │
00:00:11 #193 [verbose] > │ method0() │
00:00:11 #194 [verbose] > │ │
00:00:11 #195 [verbose] > │ 1.0 │
00:00:11 #196 [verbose] > │ │
00:00:11 #197 [verbose] > ╰──────────────────────────────────────────────────────────────────────────────╯
00:00:11 #198 [verbose] >
00:00:11 #199 [verbose] > ── spiral ──────────────────────────────────────────────────────────────────────
00:00:11 #200 [verbose] > inl print_and_return x =
00:00:11 #201 [verbose] > $"printfn $\"print_and_return / x: {!x}\""
00:00:11 #202 [verbose] > x
00:00:11 #203 [verbose] > Building c:\home\git\polyglot\target\polyglot\spiral_eval\packages\3fb5085e6f7418290588aa0f6374473248356f140e280e9a6454a5892a54a29f\main.spi
00:00:11 #204 [verbose] >
00:00:11 #205 [verbose] > ╭─[ 220.55ms - stdout ]────────────────────────────────────────────────────────╮
00:00:11 #206 [verbose] > │ () │
00:00:11 #207 [verbose] > │ │
00:00:11 #208 [verbose] > │ │
00:00:11 #209 [verbose] > ╰──────────────────────────────────────────────────────────────────────────────╯
00:00:13 #210 [verbose] > [NbConvertApp] Converting notebook testing.dib.ipynb to html
00:00:13 #211 [verbose] > C:\Users\i574n\scoop\apps\python\current\Lib\site-packages\nbformat\__init__.py:93: MissingIDFieldWarning: Code cell is missing an id field, this will become a hard error in future nbformat versions. You may want to use `normalize()` on your notebooks before validations (available since nbformat 5.1.4). Previous versions of nbformat are fixing this issue transparently, and will stop doing so in the future.
00:00:13 #212 [verbose] > validate(nb)
00:00:14 #213 [verbose] > C:\Users\i574n\scoop\apps\python\current\Lib\site-packages\nbconvert\filters\highlight.py:71: UserWarning: IPython3 lexer unavailable, falling back on Python 3
00:00:14 #214 [verbose] > return _pygments_highlight(
00:00:14 #215 [verbose] > [NbConvertApp] Writing 289702 bytes to testing.dib.html
00:00:15 #216 [debug] execute_with_options_async / exit_code: 0 / output.Length: 11694
00:00:15 #6 [debug] main / executeCommand / exitCode: 0
00:00:15 #217 [debug] execute_with_options_async / options: struct (Some System.Threading.CancellationToken,
"pwsh -c "../../scripts/invoke-dib.ps1 guid.dib -Retries 3"", None, None,
None)
00:00:17 #218 [verbose] >
00:00:17 #219 [verbose] > ── markdown ────────────────────────────────────────────────────────────────────
00:00:17 #220 [verbose] > ╭──────────────────────────────────────────────────────────────────────────────╮
00:00:17 #221 [verbose] > │ # guid │
00:00:17 #222 [verbose] > ╰──────────────────────────────────────────────────────────────────────────────╯
00:00:17 #223 [verbose] >
00:00:17 #224 [verbose] > ── spiral ──────────────────────────────────────────────────────────────────────
00:00:17 #225 [verbose] > // // test
00:00:17 #226 [verbose] >
00:00:17 #227 [verbose] > open testing
00:00:20 #228 [verbose] > Building c:\home\git\polyglot\target\polyglot\spiral_eval\packages\8837341da068f4ef4271045b3ef1c89d209237bf74b4f11596b6ee2d484becb0\main.spi
00:00:21 #229 [verbose] >
00:00:21 #230 [verbose] > ╭─[ 3.58s - stdout ]───────────────────────────────────────────────────────────╮
00:00:21 #231 [verbose] > │ () │
00:00:21 #232 [verbose] > │ │
00:00:21 #233 [verbose] > │ │
00:00:21 #234 [verbose] > ╰──────────────────────────────────────────────────────────────────────────────╯
00:00:21 #235 [verbose] >
00:00:21 #236 [verbose] > ── markdown ────────────────────────────────────────────────────────────────────
00:00:21 #237 [verbose] > ╭──────────────────────────────────────────────────────────────────────────────╮
00:00:21 #238 [verbose] > │ ## guid │
00:00:21 #239 [verbose] > ╰──────────────────────────────────────────────────────────────────────────────╯
00:00:21 #240 [verbose] >
00:00:21 #241 [verbose] > ── spiral ──────────────────────────────────────────────────────────────────────
00:00:21 #242 [verbose] > nominal guid = $"System.Guid"
00:00:21 #243 [verbose] > Building c:\home\git\polyglot\target\polyglot\spiral_eval\packages\a75c685f6960362eab9a8fe1a3e2b3278ffd74315908bf46c8e60d83cf8715fd\main.spi
00:00:21 #244 [verbose] >
00:00:21 #245 [verbose] > ╭─[ 216.84ms - stdout ]────────────────────────────────────────────────────────╮
00:00:21 #246 [verbose] > │ () │
00:00:21 #247 [verbose] > │ │
00:00:21 #248 [verbose] > │ │
00:00:21 #249 [verbose] > ╰──────────────────────────────────────────────────────────────────────────────╯
00:00:21 #250 [verbose] >
00:00:21 #251 [verbose] > ── markdown ────────────────────────────────────────────────────────────────────
00:00:21 #252 [verbose] > ╭──────────────────────────────────────────────────────────────────────────────╮
00:00:21 #253 [verbose] > │ ## new_guid │
00:00:21 #254 [verbose] > ╰──────────────────────────────────────────────────────────────────────────────╯
00:00:21 #255 [verbose] >
00:00:21 #256 [verbose] > ── spiral ──────────────────────────────────────────────────────────────────────
00:00:21 #257 [verbose] > inl new_guid (x : string) : guid =
00:00:21 #258 [verbose] > $'`guid !x '
00:00:21 #259 [verbose] > Building c:\home\git\polyglot\target\polyglot\spiral_eval\packages\cda63d39ae325d8a34c76067fb2a26b2bb91b40507122d404bd07cc0ac607868\main.spi
00:00:21 #260 [verbose] >
00:00:21 #261 [verbose] > ╭─[ 252.38ms - stdout ]────────────────────────────────────────────────────────╮
00:00:21 #262 [verbose] > │ () │
00:00:21 #263 [verbose] > │ │
00:00:21 #264 [verbose] > │ │
00:00:21 #265 [verbose] > ╰──────────────────────────────────────────────────────────────────────────────╯
00:00:21 #266 [verbose] >
00:00:21 #267 [verbose] > ── markdown ────────────────────────────────────────────────────────────────────
00:00:21 #268 [verbose] > ╭──────────────────────────────────────────────────────────────────────────────╮
00:00:21 #269 [verbose] > │ ## new_raw_guid │
00:00:21 #270 [verbose] > ╰──────────────────────────────────────────────────────────────────────────────╯
00:00:21 #271 [verbose] >
00:00:21 #272 [verbose] > ── spiral ──────────────────────────────────────────────────────────────────────
00:00:21 #273 [verbose] > inl new_raw_guid () : guid =
00:00:21 #274 [verbose] > $"System.Guid.NewGuid ()"
00:00:21 #275 [verbose] > Building c:\home\git\polyglot\target\polyglot\spiral_eval\packages\17475be22bfb40029be299879a84344d6c09cdd87b5c5bd3cf868a8d42099288\main.spi
00:00:21 #276 [verbose] >
00:00:21 #277 [verbose] > ╭─[ 211.20ms - stdout ]────────────────────────────────────────────────────────╮
00:00:21 #278 [verbose] > │ () │
00:00:21 #279 [verbose] > │ │
00:00:21 #280 [verbose] > │ │
00:00:21 #281 [verbose] > ╰──────────────────────────────────────────────────────────────────────────────╯
00:00:21 #282 [verbose] >
00:00:21 #283 [verbose] > ── markdown ────────────────────────────────────────────────────────────────────
00:00:21 #284 [verbose] > ╭──────────────────────────────────────────────────────────────────────────────╮
00:00:21 #285 [verbose] > │ ## main │
00:00:21 #286 [verbose] > ╰──────────────────────────────────────────────────────────────────────────────╯
00:00:21 #287 [verbose] >
00:00:21 #288 [verbose] > ── spiral ──────────────────────────────────────────────────────────────────────
00:00:21 #289 [verbose] > inl main () =
00:00:21 #290 [verbose] > $"let new_guid x = !new_guid x" : ()
00:00:21 #291 [verbose] > $"let new_raw_guid x = !new_raw_guid x" : ()
00:00:22 #292 [verbose] > Building c:\home\git\polyglot\target\polyglot\spiral_eval\packages\5b058abdfc3b2df628d49e420079117d23cd4a15771fc466a6a31bb6c3eca04c\main.spi
00:00:22 #293 [verbose] >
00:00:22 #294 [verbose] > ╭─[ 772.45ms - stdout ]────────────────────────────────────────────────────────╮
00:00:22 #295 [verbose] > │ let rec closure0 () (v0 : string) : System.Guid = │
00:00:22 #296 [verbose] > │ let v1 : System.Guid = System.Guid v0 │
00:00:22 #297 [verbose] > │ v1 │
00:00:22 #298 [verbose] > │ and closure1 () () : System.Guid = │
00:00:22 #299 [verbose] > │ let v0 : System.Guid = System.Guid.NewGuid () │
00:00:22 #300 [verbose] > │ v0 │
00:00:22 #301 [verbose] > │ let v0 : (string -> System.Guid) = closure0() │
00:00:22 #302 [verbose] > │ let new_guid x = v0 x │
00:00:22 #303 [verbose] > │ let v1 : (unit -> System.Guid) = closure1() │
00:00:22 #304 [verbose] > │ let new_raw_guid x = v1 x │
00:00:22 #305 [verbose] > │ () │
00:00:22 #306 [verbose] > │ │
00:00:22 #307 [verbose] > │ │
00:00:22 #308 [verbose] > ╰──────────────────────────────────────────────────────────────────────────────╯
00:00:24 #309 [verbose] > [NbConvertApp] Converting notebook guid.dib.ipynb to html
00:00:24 #310 [verbose] > C:\Users\i574n\scoop\apps\python\current\Lib\site-packages\nbformat\__init__.py:93: MissingIDFieldWarning: Code cell is missing an id field, this will become a hard error in future nbformat versions. You may want to use `normalize()` on your notebooks before validations (available since nbformat 5.1.4). Previous versions of nbformat are fixing this issue transparently, and will stop doing so in the future.
00:00:24 #311 [verbose] > validate(nb)
00:00:25 #312 [verbose] > C:\Users\i574n\scoop\apps\python\current\Lib\site-packages\nbconvert\filters\highlight.py:71: UserWarning: IPython3 lexer unavailable, falling back on Python 3
00:00:25 #313 [verbose] > return _pygments_highlight(
00:00:25 #314 [verbose] > [NbConvertApp] Writing 278591 bytes to guid.dib.html
00:00:25 #315 [debug] execute_with_options_async / exit_code: 0 / output.Length: 5882
00:00:25 #7 [debug] main / executeCommand / exitCode: 0
00:00:25 #316 [debug] execute_with_options_async / options: struct (Some System.Threading.CancellationToken,
"pwsh -c "../../scripts/invoke-dib.ps1 async.dib -Retries 3"", None,
None, None)
00:00:28 #317 [verbose] >
00:00:28 #318 [verbose] > ── markdown ────────────────────────────────────────────────────────────────────
00:00:28 #319 [verbose] > ╭──────────────────────────────────────────────────────────────────────────────╮
00:00:28 #320 [verbose] > │ # async │
00:00:28 #321 [verbose] > ╰──────────────────────────────────────────────────────────────────────────────╯
00:00:28 #322 [verbose] >
00:00:28 #323 [verbose] > ── spiral ──────────────────────────────────────────────────────────────────────
00:00:28 #324 [verbose] > // // test
00:00:28 #325 [verbose] >
00:00:28 #326 [verbose] > open testing
00:00:30 #327 [verbose] > Building c:\home\git\polyglot\target\polyglot\spiral_eval\packages\8837341da068f4ef4271045b3ef1c89d209237bf74b4f11596b6ee2d484becb0\main.spi
00:00:31 #328 [verbose] >
00:00:31 #329 [verbose] > ╭─[ 3.56s - stdout ]───────────────────────────────────────────────────────────╮
00:00:31 #330 [verbose] > │ () │
00:00:31 #331 [verbose] > │ │
00:00:31 #332 [verbose] > │ │
00:00:31 #333 [verbose] > ╰──────────────────────────────────────────────────────────────────────────────╯
00:00:31 #334 [verbose] >
00:00:31 #335 [verbose] > ── spiral ──────────────────────────────────────────────────────────────────────
00:00:31 #336 [verbose] > open rust_operators
00:00:31 #337 [verbose] > Building c:\home\git\polyglot\target\polyglot\spiral_eval\packages\b9bafaa9190fd8b92f96dcaf4c2d6855aa7c524558dd349c71163ab7065188b0\main.spi
00:00:31 #338 [verbose] >
00:00:31 #339 [verbose] > ╭─[ 241.93ms - stdout ]────────────────────────────────────────────────────────╮
00:00:31 #340 [verbose] > │ () │
00:00:31 #341 [verbose] > │ │
00:00:31 #342 [verbose] > │ │
00:00:31 #343 [verbose] > ╰──────────────────────────────────────────────────────────────────────────────╯
00:00:31 #344 [verbose] >
00:00:31 #345 [verbose] > ── markdown ────────────────────────────────────────────────────────────────────
00:00:31 #346 [verbose] > ╭──────────────────────────────────────────────────────────────────────────────╮
00:00:31 #347 [verbose] > │ ## types │
00:00:31 #348 [verbose] > ╰──────────────────────────────────────────────────────────────────────────────╯
00:00:31 #349 [verbose] >
00:00:31 #350 [verbose] > ── spiral ──────────────────────────────────────────────────────────────────────
00:00:31 #351 [verbose] > inl types () =
00:00:31 #352 [verbose] > global "[[<Fable.Core.Erase; Fable.Core.Emit(\"std::future::Future<Output =
00:00:31 #353 [verbose] > $0>\")>]] type Future<'T> = class end"
00:00:31 #354 [verbose] > global "[[<Fable.Core.Erase;
00:00:31 #355 [verbose] > Fable.Core.Emit(\"futures::future::TryJoinAll<$0>\")>]] type TryJoinAll<'T> =
00:00:31 #356 [verbose] > class end"
00:00:32 #357 [verbose] > Building c:\home\git\polyglot\target\polyglot\spiral_eval\packages\ab48399130e43dc117c178a16c23aaf0cfcd57375b0fc291fd5344858a320691\main.spi
00:00:32 #358 [verbose] >
00:00:32 #359 [verbose] > ╭─[ 290.59ms - stdout ]────────────────────────────────────────────────────────╮
00:00:32 #360 [verbose] > │ () │
00:00:32 #361 [verbose] > │ │
00:00:32 #362 [verbose] > │ │
00:00:32 #363 [verbose] > ╰──────────────────────────────────────────────────────────────────────────────╯
00:00:32 #364 [verbose] >
00:00:32 #365 [verbose] > ── markdown ────────────────────────────────────────────────────────────────────
00:00:32 #366 [verbose] > ╭──────────────────────────────────────────────────────────────────────────────╮
00:00:32 #367 [verbose] > │ ## async │
00:00:32 #368 [verbose] > ╰──────────────────────────────────────────────────────────────────────────────╯
00:00:32 #369 [verbose] >
00:00:32 #370 [verbose] > ── spiral ──────────────────────────────────────────────────────────────────────
00:00:32 #371 [verbose] > nominal async t = $"Async<`t>"
00:00:32 #372 [verbose] > Building c:\home\git\polyglot\target\polyglot\spiral_eval\packages\fc0de2587f0accec53ff19c544f544c661e9b32d33ffa2503370af0363f6877e\main.spi
00:00:32 #373 [verbose] >
00:00:32 #374 [verbose] > ╭─[ 223.94ms - stdout ]────────────────────────────────────────────────────────╮
00:00:32 #375 [verbose] > │ () │
00:00:32 #376 [verbose] > │ │
00:00:32 #377 [verbose] > │ │
00:00:32 #378 [verbose] > ╰──────────────────────────────────────────────────────────────────────────────╯
00:00:32 #379 [verbose] >
00:00:32 #380 [verbose] > ── markdown ────────────────────────────────────────────────────────────────────
00:00:32 #381 [verbose] > ╭──────────────────────────────────────────────────────────────────────────────╮
00:00:32 #382 [verbose] > │ ## future │
00:00:32 #383 [verbose] > ╰──────────────────────────────────────────────────────────────────────────────╯
00:00:32 #384 [verbose] >
00:00:32 #385 [verbose] > ── spiral ──────────────────────────────────────────────────────────────────────
00:00:32 #386 [verbose] > nominal future t = $"Future<`t>"
00:00:32 #387 [verbose] > Building c:\home\git\polyglot\target\polyglot\spiral_eval\packages\e4f84321309f279e617a9744317f8e172c01eb74e217f8a530c524f1d33075e7\main.spi
00:00:32 #388 [verbose] >
00:00:32 #389 [verbose] > ╭─[ 281.93ms - stdout ]────────────────────────────────────────────────────────╮
00:00:32 #390 [verbose] > │ () │
00:00:32 #391 [verbose] > │ │
00:00:32 #392 [verbose] > │ │
00:00:32 #393 [verbose] > ╰──────────────────────────────────────────────────────────────────────────────╯
00:00:32 #394 [verbose] >
00:00:32 #395 [verbose] > ── markdown ────────────────────────────────────────────────────────────────────
00:00:32 #396 [verbose] > ╭──────────────────────────────────────────────────────────────────────────────╮
00:00:32 #397 [verbose] > │ ## task │
00:00:32 #398 [verbose] > ╰──────────────────────────────────────────────────────────────────────────────╯
00:00:32 #399 [verbose] >
00:00:32 #400 [verbose] > ── spiral ──────────────────────────────────────────────────────────────────────
00:00:32 #401 [verbose] > nominal task t =
00:00:32 #402 [verbose] > `(
00:00:32 #403 [verbose] > typecase t with
00:00:32 #404 [verbose] > | () => $'' : $"System.Threading.Tasks.Task"
00:00:32 #405 [verbose] > | _ => $'' : $"System.Threading.Tasks.Task<`t>"
00:00:32 #406 [verbose] > )
00:00:32 #407 [verbose] > Building c:\home\git\polyglot\target\polyglot\spiral_eval\packages\73f5e0bd9fb0b3233b72b9e40160ae6ab9eaaf2ab7439d9e6cbbba6fa76b399c\main.spi
00:00:32 #408 [verbose] >
00:00:32 #409 [verbose] > ╭─[ 242.10ms - stdout ]────────────────────────────────────────────────────────╮
00:00:32 #410 [verbose] > │ () │
00:00:32 #411 [verbose] > │ │
00:00:32 #412 [verbose] > │ │
00:00:32 #413 [verbose] > ╰──────────────────────────────────────────────────────────────────────────────╯
00:00:32 #414 [verbose] >
00:00:32 #415 [verbose] > ── markdown ────────────────────────────────────────────────────────────────────
00:00:32 #416 [verbose] > ╭──────────────────────────────────────────────────────────────────────────────╮
00:00:32 #417 [verbose] > │ ## future_pin │
00:00:32 #418 [verbose] > ╰──────────────────────────────────────────────────────────────────────────────╯
00:00:32 #419 [verbose] >
00:00:32 #420 [verbose] > ── spiral ──────────────────────────────────────────────────────────────────────
00:00:32 #421 [verbose] > type future_pin t = rust.pin (rust.box (rust.dyn' (future t)))
00:00:33 #422 [verbose] > Building c:\home\git\polyglot\target\polyglot\spiral_eval\packages\97819fa2046bdb234404c32ad0ccf9e77d947e19edf308af274ea808c7717a2a\main.spi
00:00:33 #423 [verbose] >
00:00:33 #424 [verbose] > ╭─[ 235.54ms - stdout ]────────────────────────────────────────────────────────╮
00:00:33 #425 [verbose] > │ () │
00:00:33 #426 [verbose] > │ │
00:00:33 #427 [verbose] > │ │
00:00:33 #428 [verbose] > ╰──────────────────────────────────────────────────────────────────────────────╯
00:00:33 #429 [verbose] >
00:00:33 #430 [verbose] > ── markdown ────────────────────────────────────────────────────────────────────
00:00:33 #431 [verbose] > ╭──────────────────────────────────────────────────────────────────────────────╮
00:00:33 #432 [verbose] > │ ## try_join_all │
00:00:33 #433 [verbose] > ╰──────────────────────────────────────────────────────────────────────────────╯
00:00:33 #434 [verbose] >
00:00:33 #435 [verbose] > ── spiral ──────────────────────────────────────────────────────────────────────
00:00:33 #436 [verbose] > nominal try_join_all t = $"TryJoinAll<`t>"
00:00:33 #437 [verbose] > Building c:\home\git\polyglot\target\polyglot\spiral_eval\packages\98a25d4bd5f4ba6f83eae67495e26feb4431f7bf83f156f90ab65ba3c65b6f24\main.spi
00:00:33 #438 [verbose] >
00:00:33 #439 [verbose] > ╭─[ 270.06ms - stdout ]────────────────────────────────────────────────────────╮
00:00:33 #440 [verbose] > │ () │
00:00:33 #441 [verbose] > │ │
00:00:33 #442 [verbose] > │ │
00:00:33 #443 [verbose] > ╰──────────────────────────────────────────────────────────────────────────────╯
00:00:33 #444 [verbose] >
00:00:33 #445 [verbose] > ── markdown ────────────────────────────────────────────────────────────────────
00:00:33 #446 [verbose] > ╭──────────────────────────────────────────────────────────────────────────────╮
00:00:33 #447 [verbose] > │ ## future_init │
00:00:33 #448 [verbose] > ╰──────────────────────────────────────────────────────────────────────────────╯
00:00:33 #449 [verbose] >
00:00:33 #450 [verbose] > ── spiral ──────────────────────────────────────────────────────────────────────
00:00:33 #451 [verbose] > inl future_init forall t. (depth : (u8 * u8)) (flag : u8) (x : () -> t) :
00:00:33 #452 [verbose] > future_pin t =
00:00:33 #453 [verbose] > join
00:00:33 #454 [verbose] > if flag = 1
00:00:33 #455 [verbose] > then !\($'"let __result = Box::pin(async move { //"')
00:00:33 #456 [verbose] > else !\($'"let __result = Box::pin(async { //"')
00:00:33 #457 [verbose] >
00:00:33 #458 [verbose] > let x' = x ()
00:00:33 #459 [verbose] > inl x' = join x'
00:00:33 #460 [verbose] >
00:00:33 #461 [verbose] > x' |> rust.fix_closure depth
00:00:33 #462 [verbose] >
00:00:33 #463 [verbose] > !\($'"__result"')
00:00:33 #464 [verbose] > Building c:\home\git\polyglot\target\polyglot\spiral_eval\packages\e8d427dfa8e4fa2fc41dfc1c67ab29ec184329ae4a0ed22c11710eabe52420e8\main.spi
00:00:33 #465 [verbose] >
00:00:33 #466 [verbose] > ╭─[ 263.23ms - stdout ]────────────────────────────────────────────────────────╮
00:00:33 #467 [verbose] > │ () │
00:00:33 #468 [verbose] > │ │
00:00:33 #469 [verbose] > │ │
00:00:33 #470 [verbose] > ╰──────────────────────────────────────────────────────────────────────────────╯
00:00:33 #471 [verbose] >
00:00:33 #472 [verbose] > ── markdown ────────────────────────────────────────────────────────────────────
00:00:33 #473 [verbose] > ╭──────────────────────────────────────────────────────────────────────────────╮
00:00:33 #474 [verbose] > │ ## try_join_all │
00:00:33 #475 [verbose] > ╰──────────────────────────────────────────────────────────────────────────────╯
00:00:33 #476 [verbose] >
00:00:33 #477 [verbose] > ── spiral ──────────────────────────────────────────────────────────────────────
00:00:33 #478 [verbose] > inl try_join_all forall t. (x : am'.vec (future_pin (resultm.result' t
00:00:33 #479 [verbose] > sm'.std_string))) : try_join_all (future_pin (resultm.result' t sm'.std_string))
00:00:33 #480 [verbose] > =
00:00:33 #481 [verbose] > inl x = join x
00:00:33 #482 [verbose] > !\($'"futures::future::try_join_all(!x)"')
00:00:33 #483 [verbose] > Building c:\home\git\polyglot\target\polyglot\spiral_eval\packages\a437e159340cda7f81d273968ac133f94aa0c79ee35383818d4f375c7edb5f3b\main.spi
00:00:34 #484 [verbose] >
00:00:34 #485 [verbose] > ╭─[ 520.94ms - stdout ]────────────────────────────────────────────────────────╮
00:00:34 #486 [verbose] > │ () │
00:00:34 #487 [verbose] > │ │
00:00:34 #488 [verbose] > │ │
00:00:34 #489 [verbose] > ╰──────────────────────────────────────────────────────────────────────────────╯
00:00:34 #490 [verbose] >
00:00:34 #491 [verbose] > ── markdown ────────────────────────────────────────────────────────────────────
00:00:34 #492 [verbose] > ╭──────────────────────────────────────────────────────────────────────────────╮
00:00:34 #493 [verbose] > │ ## await' │
00:00:34 #494 [verbose] > ╰──────────────────────────────────────────────────────────────────────────────╯
00:00:34 #495 [verbose] >
00:00:34 #496 [verbose] > ── spiral ──────────────────────────────────────────────────────────────────────
00:00:34 #497 [verbose] > inl await' forall t. (x : try_join_all (future_pin (resultm.result' t
00:00:34 #498 [verbose] > sm'.std_string))) : resultm.result' (am'.vec t) sm'.std_string =
00:00:34 #499 [verbose] > !\($'"!x.await"')
00:00:34 #500 [verbose] > Building c:\home\git\polyglot\target\polyglot\spiral_eval\packages\374f2fb42b3a6d09a9ce679715e25c7f6ed401061be64f9a93b4eeaf81c8a0cd\main.spi
00:00:34 #501 [verbose] >
00:00:34 #502 [verbose] > ╭─[ 248.77ms - stdout ]────────────────────────────────────────────────────────╮
00:00:34 #503 [verbose] > │ () │
00:00:34 #504 [verbose] > │ │
00:00:34 #505 [verbose] > │ │
00:00:34 #506 [verbose] > ╰──────────────────────────────────────────────────────────────────────────────╯
00:00:34 #507 [verbose] >
00:00:34 #508 [verbose] > ── markdown ────────────────────────────────────────────────────────────────────
00:00:34 #509 [verbose] > ╭──────────────────────────────────────────────────────────────────────────────╮
00:00:34 #510 [verbose] > │ ## await │
00:00:34 #511 [verbose] > ╰──────────────────────────────────────────────────────────────────────────────╯
00:00:34 #512 [verbose] >
00:00:34 #513 [verbose] > ── spiral ──────────────────────────────────────────────────────────────────────
00:00:34 #514 [verbose] > inl await forall t. (x : future_pin t) : t =
00:00:34 #515 [verbose] > !\($'"!x.await"')
00:00:34 #516 [verbose] > Building c:\home\git\polyglot\target\polyglot\spiral_eval\packages\baafb274d6977aef3e87907cd8f013de950094c8579b8b8e320b5b4e20912589\main.spi
00:00:34 #517 [verbose] >
00:00:34 #518 [verbose] > ╭─[ 274.84ms - stdout ]────────────────────────────────────────────────────────╮
00:00:34 #519 [verbose] > │ () │
00:00:34 #520 [verbose] > │ │
00:00:34 #521 [verbose] > │ │
00:00:34 #522 [verbose] > ╰──────────────────────────────────────────────────────────────────────────────╯
00:00:34 #523 [verbose] >
00:00:34 #524 [verbose] > ── markdown ────────────────────────────────────────────────────────────────────
00:00:34 #525 [verbose] > ╭──────────────────────────────────────────────────────────────────────────────╮
00:00:34 #526 [verbose] > │ ## new_async_unit │
00:00:34 #527 [verbose] > ╰──────────────────────────────────────────────────────────────────────────────╯
00:00:34 #528 [verbose] >
00:00:34 #529 [verbose] > ── spiral ──────────────────────────────────────────────────────────────────────
00:00:34 #530 [verbose] > inl new_async_unit forall t. (fn : () -> ()) : async t =
00:00:34 #531 [verbose] > run_target function
00:00:34 #532 [verbose] > | Fsharp (Native) => fun () =>
00:00:34 #533 [verbose] > inl result : optionm'.option' (async t) = optionm'.none' ()
00:00:34 #534 [verbose] > $"let mutable _!result = !result"
00:00:34 #535 [verbose] > $"async {"
00:00:34 #536 [verbose] > fn ()
00:00:34 #537 [verbose] > $"}"
00:00:34 #538 [verbose] > $"|> fun x -> _!result <- Some x"
00:00:34 #539 [verbose] > $"_!result |> Option.get"
00:00:34 #540 [verbose] > | _ => fun () => null ()
00:00:34 #541 [verbose] > Building c:\home\git\polyglot\target\polyglot\spiral_eval\packages\83a1440082d71d134a69afa0e9c9f97d5dc8062f1abccdeebb908643cce2cf3a\main.spi
00:00:35 #542 [verbose] >
00:00:35 #543 [verbose] > ╭─[ 192.87ms - stdout ]────────────────────────────────────────────────────────╮
00:00:35 #544 [verbose] > │ () │
00:00:35 #545 [verbose] > │ │
00:00:35 #546 [verbose] > │ │
00:00:35 #547 [verbose] > ╰──────────────────────────────────────────────────────────────────────────────╯
00:00:35 #548 [verbose] >
00:00:35 #549 [verbose] > ── markdown ────────────────────────────────────────────────────────────────────
00:00:35 #550 [verbose] > ╭──────────────────────────────────────────────────────────────────────────────╮
00:00:35 #551 [verbose] > │ ## new_async │
00:00:35 #552 [verbose] > ╰──────────────────────────────────────────────────────────────────────────────╯
00:00:35 #553 [verbose] >
00:00:35 #554 [verbose] > ── spiral ──────────────────────────────────────────────────────────────────────
00:00:35 #555 [verbose] > inl new_async forall t. (fn : () -> t) : async t =
00:00:35 #556 [verbose] > new_async_unit (fn >> ignore)
00:00:35 #557 [verbose] > Building c:\home\git\polyglot\target\polyglot\spiral_eval\packages\431d72cb81fd5920e9c047eb7bf1e48b213645f916b6a532bd10ede14f65e776\main.spi
00:00:35 #558 [verbose] >
00:00:35 #559 [verbose] > ╭─[ 233.26ms - stdout ]────────────────────────────────────────────────────────╮
00:00:35 #560 [verbose] > │ () │
00:00:35 #561 [verbose] > │ │
00:00:35 #562 [verbose] > │ │
00:00:35 #563 [verbose] > ╰──────────────────────────────────────────────────────────────────────────────╯
00:00:35 #564 [verbose] >
00:00:35 #565 [verbose] > ── markdown ────────────────────────────────────────────────────────────────────
00:00:35 #566 [verbose] > ╭──────────────────────────────────────────────────────────────────────────────╮
00:00:35 #567 [verbose] > │ ## new_task │
00:00:35 #568 [verbose] > ╰──────────────────────────────────────────────────────────────────────────────╯
00:00:35 #569 [verbose] >
00:00:35 #570 [verbose] > ── spiral ──────────────────────────────────────────────────────────────────────
00:00:35 #571 [verbose] > inl new_task forall t. (fn : () -> t) : task t =
00:00:35 #572 [verbose] > run_target function
00:00:35 #573 [verbose] > | Fsharp (Native) => fun () =>
00:00:35 #574 [verbose] > inl result : optionm'.option' (task t) = optionm'.none' ()
00:00:35 #575 [verbose] > $"let mutable _!result = !result"
00:00:35 #576 [verbose] > $"task {"
00:00:35 #577 [verbose] > fn () |> ignore
00:00:35 #578 [verbose] > $"}"
00:00:35 #579 [verbose] > $"|> fun x -> _!result <- Some x"
00:00:35 #580 [verbose] > $"_!result |> Option.get"
00:00:35 #581 [verbose] > | _ => fun () => null ()
00:00:35 #582 [verbose] > Building c:\home\git\polyglot\target\polyglot\spiral_eval\packages\5ffc7548328b078b3e481a25d4283d0d6eb7f498089ff9b7649268f720b013fc\main.spi
00:00:35 #583 [verbose] >
00:00:35 #584 [verbose] > ╭─[ 233.80ms - stdout ]────────────────────────────────────────────────────────╮
00:00:35 #585 [verbose] > │ () │
00:00:35 #586 [verbose] > │ │
00:00:35 #587 [verbose] > │ │
00:00:35 #588 [verbose] > ╰──────────────────────────────────────────────────────────────────────────────╯
00:00:35 #589 [verbose] >
00:00:35 #590 [verbose] > ── markdown ────────────────────────────────────────────────────────────────────
00:00:35 #591 [verbose] > ╭──────────────────────────────────────────────────────────────────────────────╮
00:00:35 #592 [verbose] > │ ## await_task │
00:00:35 #593 [verbose] > ╰──────────────────────────────────────────────────────────────────────────────╯
00:00:35 #594 [verbose] >
00:00:35 #595 [verbose] > ── spiral ──────────────────────────────────────────────────────────────────────
00:00:35 #596 [verbose] > inl await_task forall t. (a : task t) : async t =
00:00:35 #597 [verbose] > run_target function
00:00:35 #598 [verbose] > | Fsharp (Native) => fun () =>
00:00:35 #599 [verbose] > a |> $'Async.AwaitTask'
00:00:35 #600 [verbose] > | _ => fun () => null ()
00:00:35 #601 [verbose] > Building c:\home\git\polyglot\target\polyglot\spiral_eval\packages\917a8a659ae5a0f400178a8905a287fb2adf5b7387f59aec191632cbf796c88f\main.spi
00:00:35 #602 [verbose] >
00:00:35 #603 [verbose] > ╭─[ 260.38ms - stdout ]────────────────────────────────────────────────────────╮
00:00:35 #604 [verbose] > │ () │
00:00:35 #605 [verbose] > │ │
00:00:35 #606 [verbose] > │ │
00:00:35 #607 [verbose] > ╰──────────────────────────────────────────────────────────────────────────────╯
00:00:35 #608 [verbose] >
00:00:35 #609 [verbose] > ── markdown ────────────────────────────────────────────────────────────────────
00:00:35 #610 [verbose] > ╭──────────────────────────────────────────────────────────────────────────────╮
00:00:35 #611 [verbose] > │ ## ignore │
00:00:35 #612 [verbose] > ╰──────────────────────────────────────────────────────────────────────────────╯
00:00:35 #613 [verbose] >
00:00:35 #614 [verbose] > ── spiral ──────────────────────────────────────────────────────────────────────
00:00:35 #615 [verbose] > inl ignore forall t. (a : async t) : async () =
00:00:35 #616 [verbose] > run_target function
00:00:35 #617 [verbose] > | Fsharp (Native) => fun () =>
00:00:35 #618 [verbose] > a |> $'Async.Ignore'
00:00:35 #619 [verbose] > | _ => fun () => null ()
00:00:35 #620 [verbose] > Building c:\home\git\polyglot\target\polyglot\spiral_eval\packages\e55459eea25d69436c5f07835e48c6f784080fbab79d4c06f2aeee656a774437\main.spi
00:00:35 #621 [verbose] >
00:00:35 #622 [verbose] > ╭─[ 227.25ms - stdout ]────────────────────────────────────────────────────────╮
00:00:35 #623 [verbose] > │ () │
00:00:35 #624 [verbose] > │ │
00:00:35 #625 [verbose] > │ │
00:00:35 #626 [verbose] > ╰──────────────────────────────────────────────────────────────────────────────╯
00:00:35 #627 [verbose] >
00:00:35 #628 [verbose] > ── markdown ────────────────────────────────────────────────────────────────────
00:00:35 #629 [verbose] > ╭──────────────────────────────────────────────────────────────────────────────╮
00:00:35 #630 [verbose] > │ ## run_synchronously │
00:00:35 #631 [verbose] > ╰──────────────────────────────────────────────────────────────────────────────╯
00:00:35 #632 [verbose] >
00:00:35 #633 [verbose] > ── spiral ──────────────────────────────────────────────────────────────────────
00:00:35 #634 [verbose] > inl run_synchronously forall t. (a : async t) : t =
00:00:35 #635 [verbose] > run_target function
00:00:35 #636 [verbose] > | Fsharp (Native) => fun () =>
00:00:35 #637 [verbose] > a |> $'Async.RunSynchronously'
00:00:35 #638 [verbose] > | _ => fun () => null ()
00:00:36 #639 [verbose] > Building c:\home\git\polyglot\target\polyglot\spiral_eval\packages\e883338004ba2f71287a7ab0c1fb37907624c7293ac6dda1fe614e6d9f455752\main.spi
00:00:36 #640 [verbose] >
00:00:36 #641 [verbose] > ╭─[ 207.18ms - stdout ]────────────────────────────────────────────────────────╮
00:00:36 #642 [verbose] > │ () │
00:00:36 #643 [verbose] > │ │
00:00:36 #644 [verbose] > │ │
00:00:36 #645 [verbose] > ╰──────────────────────────────────────────────────────────────────────────────╯
00:00:36 #646 [verbose] >
00:00:36 #647 [verbose] > ── markdown ────────────────────────────────────────────────────────────────────
00:00:36 #648 [verbose] > ╭──────────────────────────────────────────────────────────────────────────────╮
00:00:36 #649 [verbose] > │ ## start_child │
00:00:36 #650 [verbose] > ╰──────────────────────────────────────────────────────────────────────────────╯
00:00:36 #651 [verbose] >
00:00:36 #652 [verbose] > ── spiral ──────────────────────────────────────────────────────────────────────
00:00:36 #653 [verbose] > inl start_child forall t. (a : async t) : async (async t) =
00:00:36 #654 [verbose] > run_target function
00:00:36 #655 [verbose] > | Fsharp (Native) => fun () =>
00:00:36 #656 [verbose] > a |> $'Async.StartChild'
00:00:36 #657 [verbose] > | _ => fun () => null ()
00:00:36 #658 [verbose] > Building c:\home\git\polyglot\target\polyglot\spiral_eval\packages\edd0ac963e6920d2914c09df3138b7ee4d3ebba2827618c6d03e6d9bca3615c6\main.spi
00:00:36 #659 [verbose] >
00:00:36 #660 [verbose] > ╭─[ 197.57ms - stdout ]────────────────────────────────────────────────────────╮
00:00:36 #661 [verbose] > │ () │
00:00:36 #662 [verbose] > │ │
00:00:36 #663 [verbose] > │ │
00:00:36 #664 [verbose] > ╰──────────────────────────────────────────────────────────────────────────────╯
00:00:36 #665 [verbose] >
00:00:36 #666 [verbose] > ── markdown ────────────────────────────────────────────────────────────────────
00:00:36 #667 [verbose] > ╭──────────────────────────────────────────────────────────────────────────────╮
00:00:36 #668 [verbose] > │ ## start_child_timeout │
00:00:36 #669 [verbose] > ╰──────────────────────────────────────────────────────────────────────────────╯
00:00:36 #670 [verbose] >
00:00:36 #671 [verbose] > ── spiral ──────────────────────────────────────────────────────────────────────
00:00:36 #672 [verbose] > inl start_child_timeout forall t. (timeout : i32) (a : async t) : async (async
00:00:36 #673 [verbose] > t) =
00:00:36 #674 [verbose] > run_target function
00:00:36 #675 [verbose] > | Fsharp (Native) => fun () =>
00:00:36 #676 [verbose] > $'Async.StartChild (!a, !timeout)'
00:00:36 #677 [verbose] > | _ => fun () => null ()
00:00:36 #678 [verbose] > Building c:\home\git\polyglot\target\polyglot\spiral_eval\packages\dc861fc4b224356caf48bbf8e9b9c5bc87a235352adc2cf3ad683df7c1d4a4b4\main.spi
00:00:36 #679 [verbose] >
00:00:36 #680 [verbose] > ╭─[ 252.89ms - stdout ]────────────────────────────────────────────────────────╮
00:00:36 #681 [verbose] > │ () │
00:00:36 #682 [verbose] > │ │
00:00:36 #683 [verbose] > │ │
00:00:36 #684 [verbose] > ╰──────────────────────────────────────────────────────────────────────────────╯
00:00:36 #685 [verbose] >
00:00:36 #686 [verbose] > ── markdown ────────────────────────────────────────────────────────────────────
00:00:36 #687 [verbose] > ╭──────────────────────────────────────────────────────────────────────────────╮
00:00:36 #688 [verbose] > │ ## start_immediate │
00:00:36 #689 [verbose] > ╰──────────────────────────────────────────────────────────────────────────────╯
00:00:36 #690 [verbose] >
00:00:36 #691 [verbose] > ── spiral ──────────────────────────────────────────────────────────────────────
00:00:36 #692 [verbose] > inl start_immediate forall t. (a : async t) : () =
00:00:36 #693 [verbose] > run_target function
00:00:36 #694 [verbose] > | Fsharp (Native) => fun () =>
00:00:36 #695 [verbose] > a |> $'Async.StartImmediate'
00:00:36 #696 [verbose] > | _ => fun () => null ()
00:00:36 #697 [verbose] > Building c:\home\git\polyglot\target\polyglot\spiral_eval\packages\3da16fa119abb5a1c8ca41460bd403f14183a30d84a46374e33cb91d7ba7d8c9\main.spi
00:00:36 #698 [verbose] >
00:00:36 #699 [verbose] > ╭─[ 226.10ms - stdout ]────────────────────────────────────────────────────────╮
00:00:36 #700 [verbose] > │ () │
00:00:36 #701 [verbose] > │ │
00:00:36 #702 [verbose] > │ │
00:00:36 #703 [verbose] > ╰──────────────────────────────────────────────────────────────────────────────╯
00:00:36 #704 [verbose] >
00:00:36 #705 [verbose] > ── markdown ────────────────────────────────────────────────────────────────────
00:00:36 #706 [verbose] > ╭──────────────────────────────────────────────────────────────────────────────╮
00:00:36 #707 [verbose] > │ ## task_canceled_exception │
00:00:36 #708 [verbose] > ╰──────────────────────────────────────────────────────────────────────────────╯
00:00:36 #709 [verbose] >
00:00:36 #710 [verbose] > ── spiral ──────────────────────────────────────────────────────────────────────
00:00:36 #711 [verbose] > nominal task_canceled_exception =
00:00:36 #712 [verbose] > $'System.Threading.Tasks.TaskCanceledException'
00:00:37 #713 [verbose] > Building c:\home\git\polyglot\target\polyglot\spiral_eval\packages\e81725a734afb2797425fcabcf94b800ab76d69d1fd919a4bc638d57f14e1129\main.spi
00:00:37 #714 [verbose] >
00:00:37 #715 [verbose] > ╭─[ 202.39ms - stdout ]────────────────────────────────────────────────────────╮
00:00:37 #716 [verbose] > │ () │
00:00:37 #717 [verbose] > │ │
00:00:37 #718 [verbose] > │ │
00:00:37 #719 [verbose] > ╰──────────────────────────────────────────────────────────────────────────────╯
00:00:37 #720 [verbose] >
00:00:37 #721 [verbose] > ── markdown ────────────────────────────────────────────────────────────────────
00:00:37 #722 [verbose] > ╭──────────────────────────────────────────────────────────────────────────────╮
00:00:37 #723 [verbose] > │ ## sleep │
00:00:37 #724 [verbose] > ╰──────────────────────────────────────────────────────────────────────────────╯
00:00:37 #725 [verbose] >
00:00:37 #726 [verbose] > ── spiral ──────────────────────────────────────────────────────────────────────
00:00:37 #727 [verbose] > inl sleep (ms : i32) : async () =
00:00:37 #728 [verbose] > run_target function
00:00:37 #729 [verbose] > | Fsharp (Native) => fun () =>
00:00:37 #730 [verbose] > ms |> $'Async.Sleep'
00:00:37 #731 [verbose] > | _ => fun () => null ()
00:00:37 #732 [verbose] > Building c:\home\git\polyglot\target\polyglot\spiral_eval\packages\8b22857ce13d1fb315748e36f815ea3dff067c36627510b916d82bf09138c5e4\main.spi
00:00:37 #733 [verbose] >
00:00:37 #734 [verbose] > ╭─[ 236.55ms - stdout ]────────────────────────────────────────────────────────╮
00:00:37 #735 [verbose] > │ () │
00:00:37 #736 [verbose] > │ │
00:00:37 #737 [verbose] > │ │
00:00:37 #738 [verbose] > ╰──────────────────────────────────────────────────────────────────────────────╯
00:00:37 #739 [verbose] >
00:00:37 #740 [verbose] > ── markdown ────────────────────────────────────────────────────────────────────
00:00:37 #741 [verbose] > ╭──────────────────────────────────────────────────────────────────────────────╮
00:00:37 #742 [verbose] > │ ## do │
00:00:37 #743 [verbose] > ╰──────────────────────────────────────────────────────────────────────────────╯
00:00:37 #744 [verbose] >
00:00:37 #745 [verbose] > ── spiral ──────────────────────────────────────────────────────────────────────
00:00:37 #746 [verbose] > inl do (a : async ()) : () =
00:00:37 #747 [verbose] > $'do\! !a '
00:00:37 #748 [verbose] > Building c:\home\git\polyglot\target\polyglot\spiral_eval\packages\561c60e902f448a240fad29c3d8eaf62ef53ea782de92dce6d26273cd957953d\main.spi
00:00:37 #749 [verbose] >
00:00:37 #750 [verbose] > ╭─[ 251.64ms - stdout ]────────────────────────────────────────────────────────╮
00:00:37 #751 [verbose] > │ () │
00:00:37 #752 [verbose] > │ │
00:00:37 #753 [verbose] > │ │
00:00:37 #754 [verbose] > ╰──────────────────────────────────────────────────────────────────────────────╯
00:00:37 #755 [verbose] >
00:00:37 #756 [verbose] > ── markdown ────────────────────────────────────────────────────────────────────
00:00:37 #757 [verbose] > ╭──────────────────────────────────────────────────────────────────────────────╮
00:00:37 #758 [verbose] > │ ## let' │
00:00:37 #759 [verbose] > ╰──────────────────────────────────────────────────────────────────────────────╯
00:00:37 #760 [verbose] >
00:00:37 #761 [verbose] > ── spiral ──────────────────────────────────────────────────────────────────────
00:00:37 #762 [verbose] > inl let' forall t. (a : async t) : t =
00:00:37 #763 [verbose] > $'let\! !a = !a '
00:00:37 #764 [verbose] > $'!a '
00:00:37 #765 [verbose] > Building c:\home\git\polyglot\target\polyglot\spiral_eval\packages\f8615b638917dffe735c49f80a202a5815495a99ff239ba5f5980b2892bb3f9b\main.spi
00:00:37 #766 [verbose] >
00:00:37 #767 [verbose] > ╭─[ 256.90ms - stdout ]────────────────────────────────────────────────────────╮
00:00:37 #768 [verbose] > │ () │
00:00:37 #769 [verbose] > │ │
00:00:37 #770 [verbose] > │ │
00:00:37 #771 [verbose] > ╰──────────────────────────────────────────────────────────────────────────────╯
00:00:37 #772 [verbose] >
00:00:37 #773 [verbose] > ── markdown ────────────────────────────────────────────────────────────────────
00:00:37 #774 [verbose] > ╭──────────────────────────────────────────────────────────────────────────────╮
00:00:37 #775 [verbose] > │ ## return_await │
00:00:37 #776 [verbose] > ╰──────────────────────────────────────────────────────────────────────────────╯
00:00:37 #777 [verbose] >
00:00:37 #778 [verbose] > ── spiral ──────────────────────────────────────────────────────────────────────
00:00:37 #779 [verbose] > inl return_await forall t. (a : async t) : () =
00:00:37 #780 [verbose] > $'return\! !a '
00:00:38 #781 [verbose] > Building c:\home\git\polyglot\target\polyglot\spiral_eval\packages\c829596522df925ef51aaec00140644b831b6f44e020f61411b43b5c122e5b85\main.spi
00:00:38 #782 [verbose] >
00:00:38 #783 [verbose] > ╭─[ 242.45ms - stdout ]────────────────────────────────────────────────────────╮
00:00:38 #784 [verbose] > │ () │
00:00:38 #785 [verbose] > │ │
00:00:38 #786 [verbose] > │ │
00:00:38 #787 [verbose] > ╰──────────────────────────────────────────────────────────────────────────────╯
00:00:38 #788 [verbose] >
00:00:38 #789 [verbose] > ── markdown ────────────────────────────────────────────────────────────────────
00:00:38 #790 [verbose] > ╭──────────────────────────────────────────────────────────────────────────────╮
00:00:38 #791 [verbose] > │ ## return_await' │
00:00:38 #792 [verbose] > ╰──────────────────────────────────────────────────────────────────────────────╯
00:00:38 #793 [verbose] >
00:00:38 #794 [verbose] > ── spiral ──────────────────────────────────────────────────────────────────────
00:00:38 #795 [verbose] > inl return_await' forall t. (a : async t) : t =
00:00:38 #796 [verbose] > $'return\! !a '
00:00:38 #797 [verbose] > Building c:\home\git\polyglot\target\polyglot\spiral_eval\packages\76ed5ff13ce28b913e6a6815914d693a09752621d7814dc9ac288044d83ab475\main.spi
00:00:38 #798 [verbose] >
00:00:38 #799 [verbose] > ╭─[ 256.27ms - stdout ]────────────────────────────────────────────────────────╮
00:00:38 #800 [verbose] > │ () │
00:00:38 #801 [verbose] > │ │
00:00:38 #802 [verbose] > │ │
00:00:38 #803 [verbose] > ╰──────────────────────────────────────────────────────────────────────────────╯
00:00:38 #804 [verbose] >
00:00:38 #805 [verbose] > ── markdown ────────────────────────────────────────────────────────────────────
00:00:38 #806 [verbose] > ╭──────────────────────────────────────────────────────────────────────────────╮
00:00:38 #807 [verbose] > │ ## map │
00:00:38 #808 [verbose] > ╰──────────────────────────────────────────────────────────────────────────────╯
00:00:38 #809 [verbose] >
00:00:38 #810 [verbose] > ── spiral ──────────────────────────────────────────────────────────────────────
00:00:38 #811 [verbose] > inl map forall t u. (fn : t -> u) (a : async t) : async u =
00:00:38 #812 [verbose] > fun () =>
00:00:38 #813 [verbose] > inl x = a |> let'
00:00:38 #814 [verbose] > fn x |> return
00:00:38 #815 [verbose] > |> new_async_unit
00:00:38 #816 [verbose] > Building c:\home\git\polyglot\target\polyglot\spiral_eval\packages\785b068304f1839f0000195f0139ac9a1fbe5c0d2c8716064ef525d98eac1762\main.spi
00:00:38 #817 [verbose] >
00:00:38 #818 [verbose] > ╭─[ 274.58ms - stdout ]────────────────────────────────────────────────────────╮
00:00:38 #819 [verbose] > │ () │
00:00:38 #820 [verbose] > │ │
00:00:38 #821 [verbose] > │ │
00:00:38 #822 [verbose] > ╰──────────────────────────────────────────────────────────────────────────────╯
00:00:38 #823 [verbose] >
00:00:38 #824 [verbose] > ── markdown ────────────────────────────────────────────────────────────────────
00:00:38 #825 [verbose] > ╭──────────────────────────────────────────────────────────────────────────────╮
00:00:38 #826 [verbose] > │ ## choice │
00:00:38 #827 [verbose] > ╰──────────────────────────────────────────────────────────────────────────────╯
00:00:38 #828 [verbose] >
00:00:38 #829 [verbose] > ── spiral ──────────────────────────────────────────────────────────────────────
00:00:38 #830 [verbose] > union choice t1 t2 =
00:00:38 #831 [verbose] > | Choice1Of2 : t1
00:00:38 #832 [verbose] > | Choice2Of2 : t2
00:00:38 #833 [verbose] >
00:00:38 #834 [verbose] > nominal choice' t1 t2 = $'Choice<`t1, `t2>'
00:00:39 #835 [verbose] > Building c:\home\git\polyglot\target\polyglot\spiral_eval\packages\c5405d04ceb6a5b0ed509f86076072a60f175db4c185775ca41e5e94e013d9ae\main.spi
00:00:39 #836 [verbose] >
00:00:39 #837 [verbose] > ╭─[ 447.82ms - stdout ]────────────────────────────────────────────────────────╮
00:00:39 #838 [verbose] > │ () │
00:00:39 #839 [verbose] > │ │
00:00:39 #840 [verbose] > │ │
00:00:39 #841 [verbose] > ╰──────────────────────────────────────────────────────────────────────────────╯
00:00:39 #842 [verbose] >
00:00:39 #843 [verbose] > ── markdown ────────────────────────────────────────────────────────────────────
00:00:39 #844 [verbose] > ╭──────────────────────────────────────────────────────────────────────────────╮
00:00:39 #845 [verbose] > │ ## choice_unbox │
00:00:39 #846 [verbose] > ╰──────────────────────────────────────────────────────────────────────────────╯
00:00:39 #847 [verbose] >
00:00:39 #848 [verbose] > ── spiral ──────────────────────────────────────────────────────────────────────
00:00:39 #849 [verbose] > inl choice_unbox forall t1 t2. (choice : choice' t1 t2) : choice t1 t2 =
00:00:39 #850 [verbose] > run_target function
00:00:39 #851 [verbose] > | Fsharp (Native) => fun () =>
00:00:39 #852 [verbose] > inl choice1Of2 (x : t1) : _ _ t2 = Choice1Of2 x
00:00:39 #853 [verbose] > inl choice2Of2 (x : t2) : _ t1 _ = Choice2Of2 x
00:00:39 #854 [verbose] > $'match !choice with Choice1Of2 x -> !choice1Of2 x | Choice2Of2 x ->
00:00:39 #855 [verbose] > !choice2Of2 x'
00:00:39 #856 [verbose] > | _ => fun () => null ()
00:00:39 #857 [verbose] > Building c:\home\git\polyglot\target\polyglot\spiral_eval\packages\fd898b390cd1fca76c1ef1e085c9ce2132acf8728d7952f25e74225938420438\main.spi
00:00:39 #858 [verbose] >
00:00:39 #859 [verbose] > ╭─[ 241.65ms - stdout ]────────────────────────────────────────────────────────╮
00:00:39 #860 [verbose] > │ () │
00:00:39 #861 [verbose] > │ │
00:00:39 #862 [verbose] > │ │
00:00:39 #863 [verbose] > ╰──────────────────────────────────────────────────────────────────────────────╯
00:00:39 #864 [verbose] >
00:00:39 #865 [verbose] > ── markdown ────────────────────────────────────────────────────────────────────
00:00:39 #866 [verbose] > ╭──────────────────────────────────────────────────────────────────────────────╮
00:00:39 #867 [verbose] > │ ## catch' │
00:00:39 #868 [verbose] > ╰──────────────────────────────────────────────────────────────────────────────╯
00:00:39 #869 [verbose] >
00:00:39 #870 [verbose] > ── spiral ──────────────────────────────────────────────────────────────────────
00:00:39 #871 [verbose] > inl catch' forall t e. (a : async t) : async (choice' t e) =
00:00:39 #872 [verbose] > run_target function
00:00:39 #873 [verbose] > | Fsharp (Native) => fun () =>
00:00:39 #874 [verbose] > a |> $'Async.Catch'
00:00:39 #875 [verbose] > | _ => fun () => null ()
00:00:39 #876 [verbose] > Building c:\home\git\polyglot\target\polyglot\spiral_eval\packages\ecbb275689462115bba36eb8fa95ab57bc89ad687c5d5c20d12543a436910358\main.spi
00:00:39 #877 [verbose] >
00:00:39 #878 [verbose] > ╭─[ 209.20ms - stdout ]────────────────────────────────────────────────────────╮
00:00:39 #879 [verbose] > │ () │
00:00:39 #880 [verbose] > │ │
00:00:39 #881 [verbose] > │ │
00:00:39 #882 [verbose] > ╰──────────────────────────────────────────────────────────────────────────────╯
00:00:39 #883 [verbose] >
00:00:39 #884 [verbose] > ── markdown ────────────────────────────────────────────────────────────────────
00:00:39 #885 [verbose] > ╭──────────────────────────────────────────────────────────────────────────────╮
00:00:39 #886 [verbose] > │ ## catch │
00:00:39 #887 [verbose] > ╰──────────────────────────────────────────────────────────────────────────────╯
00:00:39 #888 [verbose] >
00:00:39 #889 [verbose] > ── spiral ──────────────────────────────────────────────────────────────────────
00:00:39 #890 [verbose] > inl catch forall t e. (a : async t) : async (result t e) =
00:00:39 #891 [verbose] > a
00:00:39 #892 [verbose] > |> catch'
00:00:39 #893 [verbose] > |> map choice_unbox
00:00:39 #894 [verbose] > |> map function
00:00:39 #895 [verbose] > | Choice1Of2 result => Ok result
00:00:39 #896 [verbose] > | Choice2Of2 ex => Error ex
00:00:39 #897 [verbose] > Building c:\home\git\polyglot\target\polyglot\spiral_eval\packages\4db57caf10a90a871f2cb2d9d7ee1de695636188de69c93411021c8277babe14\main.spi
00:00:39 #898 [verbose] >
00:00:39 #899 [verbose] > ╭─[ 237.19ms - stdout ]────────────────────────────────────────────────────────╮
00:00:39 #900 [verbose] > │ () │
00:00:39 #901 [verbose] > │ │
00:00:39 #902 [verbose] > │ │
00:00:39 #903 [verbose] > ╰──────────────────────────────────────────────────────────────────────────────╯
00:00:39 #904 [verbose] >
00:00:39 #905 [verbose] > ── markdown ────────────────────────────────────────────────────────────────────
00:00:39 #906 [verbose] > ╭──────────────────────────────────────────────────────────────────────────────╮
00:00:39 #907 [verbose] > │ ## run_with_timeout_async │
00:00:39 #908 [verbose] > ╰──────────────────────────────────────────────────────────────────────────────╯
00:00:39 #909 [verbose] >
00:00:39 #910 [verbose] > ── spiral ──────────────────────────────────────────────────────────────────────
00:00:39 #911 [verbose] > inl run_with_timeout_async forall t. (timeout : i32) (fn : async t) : async
00:00:39 #912 [verbose] > (option t) =
00:00:39 #913 [verbose] > run_target function
00:00:39 #914 [verbose] > | Fsharp (Native) => fun () =>
00:00:39 #915 [verbose] > fun () =>
00:00:39 #916 [verbose] > inl get_locals () = $'$"timeout: {!timeout} / {!get_locals ()}"'
00:00:39 #917 [verbose] > : string
00:00:39 #918 [verbose] > inl child = fn |> start_child_timeout timeout |> let'
00:00:39 #919 [verbose] > child
00:00:39 #920 [verbose] > |> catch
00:00:39 #921 [verbose] > |> map function
00:00:39 #922 [verbose] > | Ok result => Some result
00:00:39 #923 [verbose] > | Error ex when ex |> sm'.format_debug |> sm'.contains
00:00:39 #924 [verbose] > "System.TimeoutException" =>
00:00:39 #925 [verbose] > trace Debug (fun () => $'"run_with_timeout_async"' :
00:00:39 #926 [verbose] > string) get_locals
00:00:39 #927 [verbose] > None
00:00:39 #928 [verbose] > | Error (ex : exn) =>
00:00:39 #929 [verbose] > inl ex = ex |> sm'.format_exception
00:00:39 #930 [verbose] > trace Critical (fun () => $'$"run_with_timeout_async**
00:00:39 #931 [verbose] > ex: {!ex}"' : string) get_locals
00:00:39 #932 [verbose] > None
00:00:39 #933 [verbose] > |> return_await
00:00:39 #934 [verbose] > // $'(*'
00:00:39 #935 [verbose] > // $'*)'
00:00:39 #936 [verbose] > |> new_async_unit
00:00:39 #937 [verbose] > | _ => fun () => null ()
00:00:39 #938 [verbose] > Building c:\home\git\polyglot\target\polyglot\spiral_eval\packages\10ac7f2ef486e3742257b927d4526eeda7bc7d936431179184477029a6e287c1\main.spi
00:00:40 #939 [verbose] >
00:00:40 #940 [verbose] > ╭─[ 242.92ms - stdout ]────────────────────────────────────────────────────────╮
00:00:40 #941 [verbose] > │ () │
00:00:40 #942 [verbose] > │ │
00:00:40 #943 [verbose] > │ │
00:00:40 #944 [verbose] > ╰──────────────────────────────────────────────────────────────────────────────╯
00:00:40 #945 [verbose] >
00:00:40 #946 [verbose] > ── markdown ────────────────────────────────────────────────────────────────────
00:00:40 #947 [verbose] > ╭──────────────────────────────────────────────────────────────────────────────╮
00:00:40 #948 [verbose] > │ ## run_with_timeout │
00:00:40 #949 [verbose] > ╰──────────────────────────────────────────────────────────────────────────────╯
00:00:40 #950 [verbose] >
00:00:40 #951 [verbose] > ── spiral ──────────────────────────────────────────────────────────────────────
00:00:40 #952 [verbose] > inl run_with_timeout timeout fn =
00:00:40 #953 [verbose] > fn
00:00:40 #954 [verbose] > |> run_with_timeout_async timeout
00:00:40 #955 [verbose] > |> run_synchronously
00:00:40 #956 [verbose] > Building c:\home\git\polyglot\target\polyglot\spiral_eval\packages\5d0b037c134fcad7c14ed193420593c46188bbb2d02535f783cb52471368c40c\main.spi
00:00:40 #957 [verbose] >
00:00:40 #958 [verbose] > ╭─[ 222.88ms - stdout ]────────────────────────────────────────────────────────╮
00:00:40 #959 [verbose] > │ () │
00:00:40 #960 [verbose] > │ │
00:00:40 #961 [verbose] > │ │
00:00:40 #962 [verbose] > ╰──────────────────────────────────────────────────────────────────────────────╯
00:00:40 #963 [verbose] >
00:00:40 #964 [verbose] > ── markdown ────────────────────────────────────────────────────────────────────
00:00:40 #965 [verbose] > ╭──────────────────────────────────────────────────────────────────────────────╮
00:00:40 #966 [verbose] > │ ## cancellation_token │
00:00:40 #967 [verbose] > ╰──────────────────────────────────────────────────────────────────────────────╯
00:00:40 #968 [verbose] >
00:00:40 #969 [verbose] > ── spiral ──────────────────────────────────────────────────────────────────────
00:00:40 #970 [verbose] > inl cancellation_token () : async threading.cancellation_token =
00:00:40 #971 [verbose] > $'Async.CancellationToken'
00:00:40 #972 [verbose] > Building c:\home\git\polyglot\target\polyglot\spiral_eval\packages\f58493524c0b3273623dc88ebb48b19a12d9cff4c0c3f003ba358caf4a0b7b31\main.spi
00:00:40 #973 [verbose] >
00:00:40 #974 [verbose] > ╭─[ 217.52ms - stdout ]────────────────────────────────────────────────────────╮
00:00:40 #975 [verbose] > │ () │
00:00:40 #976 [verbose] > │ │
00:00:40 #977 [verbose] > │ │
00:00:40 #978 [verbose] > ╰──────────────────────────────────────────────────────────────────────────────╯
00:00:40 #979 [verbose] >
00:00:40 #980 [verbose] > ── spiral ──────────────────────────────────────────────────────────────────────
00:00:40 #981 [verbose] > inl default_cancellation_token () : threading.cancellation_token =
00:00:40 #982 [verbose] > $'Async.DefaultCancellationToken'
00:00:40 #983 [verbose] > Building c:\home\git\polyglot\target\polyglot\spiral_eval\packages\5bc3ab9769220fca3236f8a6e36fb91c41fe2cd864f3ac226b27bb6272e77a55\main.spi
00:00:40 #984 [verbose] >
00:00:40 #985 [verbose] > ╭─[ 234.79ms - stdout ]────────────────────────────────────────────────────────╮
00:00:40 #986 [verbose] > │ () │
00:00:40 #987 [verbose] > │ │
00:00:40 #988 [verbose] > │ │
00:00:40 #989 [verbose] > ╰──────────────────────────────────────────────────────────────────────────────╯
00:00:40 #990 [verbose] >
00:00:40 #991 [verbose] > ── markdown ────────────────────────────────────────────────────────────────────
00:00:40 #992 [verbose] > ╭──────────────────────────────────────────────────────────────────────────────╮
00:00:40 #993 [verbose] > │ ## merge_cancellation_token_with_default_async │
00:00:40 #994 [verbose] > ╰──────────────────────────────────────────────────────────────────────────────╯
00:00:40 #995 [verbose] >
00:00:40 #996 [verbose] > ── spiral ──────────────────────────────────────────────────────────────────────
00:00:40 #997 [verbose] > inl merge_cancellation_token_with_default_async
00:00:40 #998 [verbose] > (token : threading.cancellation_token)
00:00:40 #999 [verbose] > : async threading.cancellation_token
00:00:40 #1000 [verbose] > =
00:00:40 #1001 [verbose] > run_target function
00:00:40 #1002 [verbose] > | Fsharp (Native) => fun () =>
00:00:40 #1003 [verbose] > fun () =>
00:00:40 #1004 [verbose] > inl ct = cancellation_token () |> let'
00:00:40 #1005 [verbose] > inl dct = default_cancellation_token ()
00:00:40 #1006 [verbose] > inl cts = threading.create_linked_token_source ;[[ ct; dct;
00:00:40 #1007 [verbose] > token ]]
00:00:40 #1008 [verbose] > cts |> threading.cancellation_source_token |> return
00:00:40 #1009 [verbose] > |> new_async_unit
00:00:40 #1010 [verbose] > | _ => fun () => null ()
00:00:40 #1011 [verbose] > Building c:\home\git\polyglot\target\polyglot\spiral_eval\packages\cbb42693f16801feeaae9b03f07790a30ba9a019131f05b6defd252cd700ff50\main.spi
00:00:40 #1012 [verbose] >
00:00:40 #1013 [verbose] > ╭─[ 223.89ms - stdout ]────────────────────────────────────────────────────────╮
00:00:40 #1014 [verbose] > │ () │
00:00:40 #1015 [verbose] > │ │
00:00:40 #1016 [verbose] > │ │
00:00:40 #1017 [verbose] > ╰──────────────────────────────────────────────────────────────────────────────╯
00:00:40 #1018 [verbose] >
00:00:40 #1019 [verbose] > ── markdown ────────────────────────────────────────────────────────────────────
00:00:40 #1020 [verbose] > ╭──────────────────────────────────────────────────────────────────────────────╮
00:00:40 #1021 [verbose] > │ ## with_trace_level │
00:00:40 #1022 [verbose] > ╰──────────────────────────────────────────────────────────────────────────────╯
00:00:40 #1023 [verbose] >
00:00:40 #1024 [verbose] > ── spiral ──────────────────────────────────────────────────────────────────────
00:00:40 #1025 [verbose] > inl with_trace_level forall t. level fn : _ t = new_async fun () =>
00:00:40 #1026 [verbose] > inl trace_state = get_trace_state ()
00:00:40 #1027 [verbose] > inl old_trace_level = *trace_state.level
00:00:40 #1028 [verbose] > inl trace_level = trace_state.level
00:00:40 #1029 [verbose] > try_finally
00:00:40 #1030 [verbose] > fun () =>
00:00:40 #1031 [verbose] > trace_level <- level
00:00:40 #1032 [verbose] > fn |> return_await
00:00:40 #1033 [verbose] > fun () =>
00:00:40 #1034 [verbose] > trace_level <- old_trace_level
00:00:41 #1035 [verbose] > Building c:\home\git\polyglot\target\polyglot\spiral_eval\packages\60665f8c1a37bc78575971bfc8dcf7a6fba8e9cb69d05fa1e4582a72df5ff9b9\main.spi
00:00:41 #1036 [verbose] >
00:00:41 #1037 [verbose] > ╭─[ 232.25ms - stdout ]────────────────────────────────────────────────────────╮
00:00:41 #1038 [verbose] > │ () │
00:00:41 #1039 [verbose] > │ │
00:00:41 #1040 [verbose] > │ │
00:00:41 #1041 [verbose] > ╰──────────────────────────────────────────────────────────────────────────────╯
00:00:41 #1042 [verbose] >
00:00:41 #1043 [verbose] > ── markdown ────────────────────────────────────────────────────────────────────
00:00:41 #1044 [verbose] > ╭──────────────────────────────────────────────────────────────────────────────╮
00:00:41 #1045 [verbose] > │ ## main │
00:00:41 #1046 [verbose] > ╰──────────────────────────────────────────────────────────────────────────────╯
00:00:41 #1047 [verbose] >
00:00:41 #1048 [verbose] > ── spiral ──────────────────────────────────────────────────────────────────────
00:00:41 #1049 [verbose] > inl main () =
00:00:41 #1050 [verbose] > $"let merge_cancellation_token_with_default_async x =
00:00:41 #1051 [verbose] > !merge_cancellation_token_with_default_async x" : ()
00:00:41 #1052 [verbose] > Building c:\home\git\polyglot\target\polyglot\spiral_eval\packages\918a4683901980840b80e713e9aec90bcaac1cf9ce62d4435008b407c558af21\main.spi
00:00:42 #1053 [verbose] >
00:00:42 #1054 [verbose] > ╭─[ 935.36ms - stdout ]────────────────────────────────────────────────────────╮
00:00:42 #1055 [verbose] > │ let rec closure0 () (v0 : System.Threading.CancellationToken) : │
00:00:42 #1056 [verbose] > │ Async<System.Threading.CancellationToken> = │
00:00:42 #1057 [verbose] > │ let v1 : Async<System.Threading.CancellationToken> option = None │
00:00:42 #1058 [verbose] > │ let mutable _v1 = v1 │
00:00:42 #1059 [verbose] > │ #if FABLE_COMPILER_RUST && !WASM && !CONTRACT │
00:00:42 #1060 [verbose] > │ let v2 : Async<System.Threading.CancellationToken> = null |> │
00:00:42 #1061 [verbose] > │ unbox<Async<System.Threading.CancellationToken>> │
00:00:42 #1062 [verbose] > │ v2 │
00:00:42 #1063 [verbose] > │ #endif │
00:00:42 #1064 [verbose] > │ #if FABLE_COMPILER_RUST && WASM │
00:00:42 #1065 [verbose] > │ let v3 : Async<System.Threading.CancellationToken> = null |> │
00:00:42 #1066 [verbose] > │ unbox<Async<System.Threading.CancellationToken>> │
00:00:42 #1067 [verbose] > │ v3 │
00:00:42 #1068 [verbose] > │ #endif │
00:00:42 #1069 [verbose] > │ #if FABLE_COMPILER_RUST && CONTRACT │
00:00:42 #1070 [verbose] > │ let v4 : Async<System.Threading.CancellationToken> = null |> │
00:00:42 #1071 [verbose] > │ unbox<Async<System.Threading.CancellationToken>> │
00:00:42 #1072 [verbose] > │ v4 │
00:00:42 #1073 [verbose] > │ #endif │
00:00:42 #1074 [verbose] > │ #if !FABLE_COMPILER && !FABLE_COMPILER_RUST && │
00:00:42 #1075 [verbose] > │ !FABLE_COMPILER_TYPESCRIPT && !WASM && !CONTRACT │
00:00:42 #1076 [verbose] > │ let v5 : Async<System.Threading.CancellationToken> option = None │
00:00:42 #1077 [verbose] > │ let mutable _v5 = v5 │
00:00:42 #1078 [verbose] > │ #if FABLE_COMPILER_RUST && !WASM && !CONTRACT │
00:00:42 #1079 [verbose] > │ let v6 : Async<System.Threading.CancellationToken> = null |> │
00:00:42 #1080 [verbose] > │ unbox<Async<System.Threading.CancellationToken>> │
00:00:42 #1081 [verbose] > │ v6 │
00:00:42 #1082 [verbose] > │ #endif │
00:00:42 #1083 [verbose] > │ #if FABLE_COMPILER_RUST && WASM │
00:00:42 #1084 [verbose] > │ let v7 : Async<System.Threading.CancellationToken> = null |> │
00:00:42 #1085 [verbose] > │ unbox<Async<System.Threading.CancellationToken>> │
00:00:42 #1086 [verbose] > │ v7 │
00:00:42 #1087 [verbose] > │ #endif │
00:00:42 #1088 [verbose] > │ #if FABLE_COMPILER_RUST && CONTRACT │
00:00:42 #1089 [verbose] > │ let v8 : Async<System.Threading.CancellationToken> = null |> │
00:00:42 #1090 [verbose] > │ unbox<Async<System.Threading.CancellationToken>> │
00:00:42 #1091 [verbose] > │ v8 │
00:00:42 #1092 [verbose] > │ #endif │
00:00:42 #1093 [verbose] > │ #if !FABLE_COMPILER && !FABLE_COMPILER_RUST && │
00:00:42 #1094 [verbose] > │ !FABLE_COMPILER_TYPESCRIPT && !WASM && !CONTRACT │
00:00:42 #1095 [verbose] > │ let v9 : Async<System.Threading.CancellationToken> option = None │
00:00:42 #1096 [verbose] > │ let mutable _v9 = v9 │
00:00:42 #1097 [verbose] > │ async { │
00:00:42 #1098 [verbose] > │ let v10 : Async<System.Threading.CancellationToken> = │
00:00:42 #1099 [verbose] > │ Async.CancellationToken │
00:00:42 #1100 [verbose] > │ let! v10 = v10 │
00:00:42 #1101 [verbose] > │ let v11 : System.Threading.CancellationToken = v10 │
00:00:42 #1102 [verbose] > │ let v12 : System.Threading.CancellationToken = │
00:00:42 #1103 [verbose] > │ Async.DefaultCancellationToken │
00:00:42 #1104 [verbose] > │ let v13 : (System.Threading.CancellationToken []) = [|v11; v12; v0|] │
00:00:42 #1105 [verbose] > │ let v14 : ((System.Threading.CancellationToken []) -> │
00:00:42 #1106 [verbose] > │ System.Threading.CancellationTokenSource) = │
00:00:42 #1107 [verbose] > │ System.Threading.CancellationTokenSource.CreateLinkedTokenSource │
00:00:42 #1108 [verbose] > │ let v15 : System.Threading.CancellationTokenSource = v14 v13 │
00:00:42 #1109 [verbose] > │ let v16 : System.Threading.CancellationToken = v15.Token │
00:00:42 #1110 [verbose] > │ return v16 │
00:00:42 #1111 [verbose] > │ } │
00:00:42 #1112 [verbose] > │ |> fun x -> _v9 <- Some x │
00:00:42 #1113 [verbose] > │ let v17 : Async<System.Threading.CancellationToken> = _v9 |> Option.get │
00:00:42 #1114 [verbose] > │ v17 │
00:00:42 #1115 [verbose] > │ #endif │
00:00:42 #1116 [verbose] > │ #if FABLE_COMPILER_TYPESCRIPT │
00:00:42 #1117 [verbose] > │ let v18 : Async<System.Threading.CancellationToken> = null |> │
00:00:42 #1118 [verbose] > │ unbox<Async<System.Threading.CancellationToken>> │
00:00:42 #1119 [verbose] > │ v18 │
00:00:42 #1120 [verbose] > │ #endif │
00:00:42 #1121 [verbose] > │ #if FABLE_COMPILER_PYTHON || FABLE_COMPILER_PHP || FABLE_COMPILER_DART │
00:00:42 #1122 [verbose] > │ let v19 : Async<System.Threading.CancellationToken> = │
00:00:42 #1123 [verbose] > │ Unchecked.defaultof<Async<System.Threading.CancellationToken>> │
00:00:42 #1124 [verbose] > │ v19 │
00:00:42 #1125 [verbose] > │ #endif │
00:00:42 #1126 [verbose] > │ |> fun x -> _v5 <- Some x │
00:00:42 #1127 [verbose] > │ let v20 : Async<System.Threading.CancellationToken> = _v5.Value │
00:00:42 #1128 [verbose] > │ v20 │
00:00:42 #1129 [verbose] > │ #endif │
00:00:42 #1130 [verbose] > │ #if FABLE_COMPILER_TYPESCRIPT │
00:00:42 #1131 [verbose] > │ let v21 : Async<System.Threading.CancellationToken> = null |> │
00:00:42 #1132 [verbose] > │ unbox<Async<System.Threading.CancellationToken>> │
00:00:42 #1133 [verbose] > │ v21 │
00:00:42 #1134 [verbose] > │ #endif │
00:00:42 #1135 [verbose] > │ #if FABLE_COMPILER_PYTHON || FABLE_COMPILER_PHP || FABLE_COMPILER_DART │
00:00:42 #1136 [verbose] > │ let v22 : Async<System.Threading.CancellationToken> = │
00:00:42 #1137 [verbose] > │ Unchecked.defaultof<Async<System.Threading.CancellationToken>> │
00:00:42 #1138 [verbose] > │ v22 │
00:00:42 #1139 [verbose] > │ #endif │
00:00:42 #1140 [verbose] > │ |> fun x -> _v1 <- Some x │
00:00:42 #1141 [verbose] > │ let v23 : Async<System.Threading.CancellationToken> = _v1.Value │
00:00:42 #1142 [verbose] > │ v23 │
00:00:42 #1143 [verbose] > │ let v0 : (System.Threading.CancellationToken -> │
00:00:42 #1144 [verbose] > │ Async<System.Threading.CancellationToken>) = closure0() │
00:00:42 #1145 [verbose] > │ let merge_cancellation_token_with_default_async x = v0 x │
00:00:42 #1146 [verbose] > │ () │
00:00:42 #1147 [verbose] > │ │
00:00:42 #1148 [verbose] > │ │
00:00:42 #1149 [verbose] > ╰──────────────────────────────────────────────────────────────────────────────╯
00:00:44 #1150 [verbose] > [NbConvertApp] Converting notebook async.dib.ipynb to html
00:00:44 #1151 [verbose] > C:\Users\i574n\scoop\apps\python\current\Lib\site-packages\nbformat\__init__.py:93: MissingIDFieldWarning: Code cell is missing an id field, this will become a hard error in future nbformat versions. You may want to use `normalize()` on your notebooks before validations (available since nbformat 5.1.4). Previous versions of nbformat are fixing this issue transparently, and will stop doing so in the future.
00:00:44 #1152 [verbose] > validate(nb)
00:00:44 #1153 [verbose] > C:\Users\i574n\scoop\apps\python\current\Lib\site-packages\nbconvert\filters\highlight.py:71: UserWarning: IPython3 lexer unavailable, falling back on Python 3
00:00:44 #1154 [verbose] > return _pygments_highlight(
00:00:45 #1155 [verbose] > [NbConvertApp] Writing 363224 bytes to async.dib.html
00:00:45 #1156 [debug] execute_with_options_async / exit_code: 0 / output.Length: 46617
00:00:46 #8 [debug] main / executeCommand / exitCode: 0
00:00:45 #1157 [debug] execute_with_options_async / options: struct (Some System.Threading.CancellationToken,
"pwsh -c "../../scripts/invoke-dib.ps1 runtime.dib -Retries 3"", None,
None, None)
00:00:48 #1158 [verbose] >
00:00:48 #1159 [verbose] > ── markdown ────────────────────────────────────────────────────────────────────
00:00:48 #1160 [verbose] > ╭──────────────────────────────────────────────────────────────────────────────╮
00:00:48 #1161 [verbose] > │ # runtime │
00:00:48 #1162 [verbose] > ╰──────────────────────────────────────────────────────────────────────────────╯
00:00:48 #1163 [verbose] >
00:00:48 #1164 [verbose] > ── spiral ──────────────────────────────────────────────────────────────────────
00:00:48 #1165 [verbose] > open file_system_operators
00:00:50 #1166 [verbose] > Building c:\home\git\polyglot\target\polyglot\spiral_eval\packages\1f892646516f5c536d926ea4b06d9442ed839b2d3d43719a4ca40142c972cb36\main.spi
00:00:51 #1167 [verbose] >
00:00:51 #1168 [verbose] > ╭─[ 3.62s - stdout ]───────────────────────────────────────────────────────────╮
00:00:51 #1169 [verbose] > │ () │
00:00:51 #1170 [verbose] > │ │
00:00:51 #1171 [verbose] > │ │
00:00:51 #1172 [verbose] > ╰──────────────────────────────────────────────────────────────────────────────╯
00:00:51 #1173 [verbose] >
00:00:51 #1174 [verbose] > ── spiral ──────────────────────────────────────────────────────────────────────
00:00:51 #1175 [verbose] > // // test
00:00:51 #1176 [verbose] >
00:00:51 #1177 [verbose] > open testing
00:00:52 #1178 [verbose] > Building c:\home\git\polyglot\target\polyglot\spiral_eval\packages\d845613e62b4fb1e1443a5647fba4ef3f716377a14db1bdf34ddafa46c3af210\main.spi
00:00:52 #1179 [verbose] >
00:00:52 #1180 [verbose] > ╭─[ 244.90ms - stdout ]────────────────────────────────────────────────────────╮
00:00:52 #1181 [verbose] > │ () │
00:00:52 #1182 [verbose] > │ │
00:00:52 #1183 [verbose] > │ │
00:00:52 #1184 [verbose] > ╰──────────────────────────────────────────────────────────────────────────────╯
00:00:52 #1185 [verbose] >
00:00:52 #1186 [verbose] > ── markdown ────────────────────────────────────────────────────────────────────
00:00:52 #1187 [verbose] > ╭──────────────────────────────────────────────────────────────────────────────╮
00:00:52 #1188 [verbose] > │ ## os_platform │
00:00:52 #1189 [verbose] > ╰──────────────────────────────────────────────────────────────────────────────╯
00:00:52 #1190 [verbose] >
00:00:52 #1191 [verbose] > ── spiral ──────────────────────────────────────────────────────────────────────
00:00:52 #1192 [verbose] > nominal os_platform' = $'System.Runtime.InteropServices.OSPlatform'
00:00:52 #1193 [verbose] >
00:00:52 #1194 [verbose] > union os_platform =
00:00:52 #1195 [verbose] > | Windows
00:00:52 #1196 [verbose] >
00:00:52 #1197 [verbose] > inl os_platform = function
00:00:52 #1198 [verbose] > | Windows => $'`os_platform'.Windows' : os_platform'
00:00:52 #1199 [verbose] > Building c:\home\git\polyglot\target\polyglot\spiral_eval\packages\166320262d4c12b1925cf9962a513cde21fbfcaca1ad2e4b1ac1afc0e73d60b8\main.spi
00:00:52 #1200 [verbose] >
00:00:52 #1201 [verbose] > ╭─[ 279.22ms - stdout ]────────────────────────────────────────────────────────╮
00:00:52 #1202 [verbose] > │ () │
00:00:52 #1203 [verbose] > │ │
00:00:52 #1204 [verbose] > │ │
00:00:52 #1205 [verbose] > ╰──────────────────────────────────────────────────────────────────────────────╯
00:00:52 #1206 [verbose] >
00:00:52 #1207 [verbose] > ── markdown ────────────────────────────────────────────────────────────────────
00:00:52 #1208 [verbose] > ╭──────────────────────────────────────────────────────────────────────────────╮
00:00:52 #1209 [verbose] > │ ## is_os_platform │
00:00:52 #1210 [verbose] > ╰──────────────────────────────────────────────────────────────────────────────╯
00:00:52 #1211 [verbose] >
00:00:52 #1212 [verbose] > ── spiral ──────────────────────────────────────────────────────────────────────
00:00:52 #1213 [verbose] > inl is_os_platform (x : os_platform') : bool =
00:00:52 #1214 [verbose] > x |> $'System.Runtime.InteropServices.RuntimeInformation.IsOSPlatform'
00:00:52 #1215 [verbose] > Building c:\home\git\polyglot\target\polyglot\spiral_eval\packages\c7b5f5e78a86b80cc4951cde90229fcecbae34c6988070cb30a4460bf597349f\main.spi
00:00:52 #1216 [verbose] >
00:00:52 #1217 [verbose] > ╭─[ 235.22ms - stdout ]────────────────────────────────────────────────────────╮
00:00:52 #1218 [verbose] > │ () │
00:00:52 #1219 [verbose] > │ │
00:00:52 #1220 [verbose] > │ │
00:00:52 #1221 [verbose] > ╰──────────────────────────────────────────────────────────────────────────────╯
00:00:52 #1222 [verbose] >
00:00:52 #1223 [verbose] > ── markdown ────────────────────────────────────────────────────────────────────
00:00:52 #1224 [verbose] > ╭──────────────────────────────────────────────────────────────────────────────╮
00:00:52 #1225 [verbose] > │ ## is_windows │
00:00:52 #1226 [verbose] > ╰──────────────────────────────────────────────────────────────────────────────╯
00:00:52 #1227 [verbose] >
00:00:52 #1228 [verbose] > ── spiral ──────────────────────────────────────────────────────────────────────
00:00:52 #1229 [verbose] > inl is_windows () : bool =
00:00:52 #1230 [verbose] > run_target function
00:00:52 #1231 [verbose] > | Fsharp (Native) => fun () =>
00:00:52 #1232 [verbose] > Windows |> os_platform |> is_os_platform
00:00:52 #1233 [verbose] > | _ => fun () => null ()
00:00:52 #1234 [verbose] > Building c:\home\git\polyglot\target\polyglot\spiral_eval\packages\61e5b6c76ff9d446a4959fc3fc609c1efa4e2634ee3fa4b4d796edacbc247b30\main.spi
00:00:52 #1235 [verbose] >
00:00:52 #1236 [verbose] > ╭─[ 261.15ms - stdout ]────────────────────────────────────────────────────────╮
00:00:52 #1237 [verbose] > │ () │
00:00:52 #1238 [verbose] > │ │
00:00:52 #1239 [verbose] > │ │
00:00:52 #1240 [verbose] > ╰──────────────────────────────────────────────────────────────────────────────╯
00:00:52 #1241 [verbose] >
00:00:52 #1242 [verbose] > ── markdown ────────────────────────────────────────────────────────────────────
00:00:52 #1243 [verbose] > ╭──────────────────────────────────────────────────────────────────────────────╮
00:00:52 #1244 [verbose] > │ ## get_executable_suffix │
00:00:52 #1245 [verbose] > ╰──────────────────────────────────────────────────────────────────────────────╯
00:00:52 #1246 [verbose] >
00:00:52 #1247 [verbose] > ── spiral ──────────────────────────────────────────────────────────────────────
00:00:52 #1248 [verbose] > inl get_executable_suffix () =
00:00:52 #1249 [verbose] > if is_windows ()
00:00:52 #1250 [verbose] > then ".exe"
00:00:52 #1251 [verbose] > else ""
00:00:53 #1252 [verbose] > Building c:\home\git\polyglot\target\polyglot\spiral_eval\packages\dc19395ad8569ef1848bfcda986a917feeef03b8f1dfe07346c3c1adcffb3323\main.spi
00:00:53 #1253 [verbose] >
00:00:53 #1254 [verbose] > ╭─[ 288.70ms - stdout ]────────────────────────────────────────────────────────╮
00:00:53 #1255 [verbose] > │ () │
00:00:53 #1256 [verbose] > │ │
00:00:53 #1257 [verbose] > │ │
00:00:53 #1258 [verbose] > ╰──────────────────────────────────────────────────────────────────────────────╯
00:00:53 #1259 [verbose] >
00:00:53 #1260 [verbose] > ── spiral ──────────────────────────────────────────────────────────────────────
00:00:53 #1261 [verbose] > // // test
00:00:53 #1262 [verbose] >
00:00:53 #1263 [verbose] > get_executable_suffix ()
00:00:53 #1264 [verbose] > Building c:\home\git\polyglot\target\polyglot\spiral_eval\packages\dfc149c1b808ddc0363497886b3ba244a9ba87dc81c2870544a7fd57db647c77\main.spi
00:00:54 #1265 [verbose] >
00:00:54 #1266 [verbose] > ╭─[ 853.72ms - return value ]──────────────────────────────────────────────────╮
00:00:54 #1267 [verbose] > │ .exe │
00:00:54 #1268 [verbose] > ╰──────────────────────────────────────────────────────────────────────────────╯
00:00:54 #1269 [verbose] >
00:00:54 #1270 [verbose] > ╭─[ 862.26ms - stdout ]────────────────────────────────────────────────────────╮
00:00:54 #1271 [verbose] > │ let rec method0 () : string = │
00:00:54 #1272 [verbose] > │ let v0 : bool option = None │
00:00:54 #1273 [verbose] > │ let mutable _v0 = v0 │
00:00:54 #1274 [verbose] > │ #if FABLE_COMPILER_RUST && !WASM && !CONTRACT │
00:00:54 #1275 [verbose] > │ let v1 : bool = null |> unbox<bool> │
00:00:54 #1276 [verbose] > │ v1 │
00:00:54 #1277 [verbose] > │ #endif │
00:00:54 #1278 [verbose] > │ #if FABLE_COMPILER_RUST && WASM │
00:00:54 #1279 [verbose] > │ let v2 : bool = null |> unbox<bool> │
00:00:54 #1280 [verbose] > │ v2 │
00:00:54 #1281 [verbose] > │ #endif │
00:00:54 #1282 [verbose] > │ #if FABLE_COMPILER_RUST && CONTRACT │
00:00:54 #1283 [verbose] > │ let v3 : bool = null |> unbox<bool> │
00:00:54 #1284 [verbose] > │ v3 │
00:00:54 #1285 [verbose] > │ #endif │
00:00:54 #1286 [verbose] > │ #if !FABLE_COMPILER && !FABLE_COMPILER_RUST && │
00:00:54 #1287 [verbose] > │ !FABLE_COMPILER_TYPESCRIPT && !WASM && !CONTRACT │
00:00:54 #1288 [verbose] > │ let v4 : System.Runtime.InteropServices.OSPlatform = │
00:00:54 #1289 [verbose] > │ System.Runtime.InteropServices.OSPlatform.Windows │
00:00:54 #1290 [verbose] > │ let v5 : (System.Runtime.InteropServices.OSPlatform -> bool) = │
00:00:54 #1291 [verbose] > │ System.Runtime.InteropServices.RuntimeInformation.IsOSPlatform │
00:00:54 #1292 [verbose] > │ let v6 : bool = v5 v4 │
00:00:54 #1293 [verbose] > │ v6 │
00:00:54 #1294 [verbose] > │ #endif │
00:00:54 #1295 [verbose] > │ #if FABLE_COMPILER_TYPESCRIPT │
00:00:54 #1296 [verbose] > │ let v7 : bool = null |> unbox<bool> │
00:00:54 #1297 [verbose] > │ v7 │
00:00:54 #1298 [verbose] > │ #endif │
00:00:54 #1299 [verbose] > │ #if FABLE_COMPILER_PYTHON || FABLE_COMPILER_PHP || FABLE_COMPILER_DART │
00:00:54 #1300 [verbose] > │ let v8 : bool = Unchecked.defaultof<bool> │
00:00:54 #1301 [verbose] > │ v8 │
00:00:54 #1302 [verbose] > │ #endif │
00:00:54 #1303 [verbose] > │ |> fun x -> _v0 <- Some x │
00:00:54 #1304 [verbose] > │ let v9 : bool = _v0.Value │
00:00:54 #1305 [verbose] > │ if v9 then │
00:00:54 #1306 [verbose] > │ let v10 : string = ".exe" │
00:00:54 #1307 [verbose] > │ v10 │
00:00:54 #1308 [verbose] > │ else │
00:00:54 #1309 [verbose] > │ let v11 : string = "" │
00:00:54 #1310 [verbose] > │ v11 │
00:00:54 #1311 [verbose] > │ method0() │
00:00:54 #1312 [verbose] > │ │
00:00:54 #1313 [verbose] > │ │
00:00:54 #1314 [verbose] > ╰──────────────────────────────────────────────────────────────────────────────╯
00:00:54 #1315 [verbose] >
00:00:54 #1316 [verbose] > ── markdown ────────────────────────────────────────────────────────────────────
00:00:54 #1317 [verbose] > ╭──────────────────────────────────────────────────────────────────────────────╮
00:00:54 #1318 [verbose] > │ ## split_command │
00:00:54 #1319 [verbose] > ╰──────────────────────────────────────────────────────────────────────────────╯
00:00:54 #1320 [verbose] >
00:00:54 #1321 [verbose] > ── spiral ──────────────────────────────────────────────────────────────────────
00:00:54 #1322 [verbose] > union quoted =
00:00:54 #1323 [verbose] > | Quoted
00:00:54 #1324 [verbose] > | NotQuoted
00:00:54 #1325 [verbose] >
00:00:54 #1326 [verbose] > union command_parse_step =
00:00:54 #1327 [verbose] > | Start
00:00:54 #1328 [verbose] > | Path : quoted
00:00:54 #1329 [verbose] > | Arguments
00:00:54 #1330 [verbose] >
00:00:54 #1331 [verbose] > inl split_command (command : string) =
00:00:54 #1332 [verbose] > let rec loop (path, args) (chars : list char) step =
00:00:54 #1333 [verbose] > match step, chars with
00:00:54 #1334 [verbose] > | _, (('"' | '\'') :: tail) when path = "" => loop (path, args) tail
00:00:54 #1335 [verbose] > (Path Quoted)
00:00:54 #1336 [verbose] > | Path (Quoted), (('"' | '\'') :: tail) => loop (path, args) tail (Path
00:00:54 #1337 [verbose] > NotQuoted)
00:00:54 #1338 [verbose] > | Path (Quoted), (' ' :: tail) => loop ($'$"{!path} "', args) tail (Path
00:00:54 #1339 [verbose] > Quoted)
00:00:54 #1340 [verbose] > | (Start | Path _), (' ' :: tail) => loop (path, args) tail Arguments
00:00:54 #1341 [verbose] > | Arguments, (char :: tail) => loop (path, $'$"{!args}{!char}"') tail
00:00:54 #1342 [verbose] > Arguments
00:00:54 #1343 [verbose] > | _, (char :: tail) => loop ($'$"{!path}{!char}"', args) tail step
00:00:54 #1344 [verbose] > | _ => path |> sm'.replace @"\" "/", args
00:00:54 #1345 [verbose] > loop (join "", "") (command |> seq.of_string |> seq.to_list' |>
00:00:54 #1346 [verbose] > listm'.unbox) Start
00:00:54 #1347 [verbose] > Building c:\home\git\polyglot\target\polyglot\spiral_eval\packages\b95ddea8abb7de9326635adfb6c4b87bfad41078cdc53dda3eadfe653fd9b575\main.spi
00:00:54 #1348 [verbose] >
00:00:54 #1349 [verbose] > ╭─[ 293.60ms - stdout ]────────────────────────────────────────────────────────╮
00:00:54 #1350 [verbose] > │ () │
00:00:54 #1351 [verbose] > │ │
00:00:54 #1352 [verbose] > │ │
00:00:54 #1353 [verbose] > ╰──────────────────────────────────────────────────────────────────────────────╯
00:00:54 #1354 [verbose] >
00:00:54 #1355 [verbose] > ── spiral ──────────────────────────────────────────────────────────────────────
00:00:54 #1356 [verbose] > // // test
00:00:54 #1357 [verbose] >
00:00:54 #1358 [verbose] > split_command ""
00:00:54 #1359 [verbose] > |> _assert_eq ("", "")
00:00:54 #1360 [verbose] >
00:00:54 #1361 [verbose] > split_command "/a/b/c"
00:00:54 #1362 [verbose] > |> _assert_eq ("/a/b/c", "")
00:00:54 #1363 [verbose] >
00:00:54 #1364 [verbose] > split_command "cat file.txt"
00:00:54 #1365 [verbose] > |> _assert_eq ("cat", "file.txt")
00:00:54 #1366 [verbose] >
00:00:54 #1367 [verbose] > split_command $'"""..\\..\\file.exe file1.txt file2.txt"""'
00:00:54 #1368 [verbose] > |> _assert_eq ("../../file.exe", "file1.txt file2.txt")
00:00:54 #1369 [verbose] >
00:00:54 #1370 [verbose] > split_command $'\@"c:\\dir\\file.exe ""file1.txt file2.txt"""'
00:00:54 #1371 [verbose] > |> _assert_eq ("c:/dir/file.exe", $'\@"""file1.txt file2.txt"""')
00:00:54 #1372 [verbose] >
00:00:54 #1373 [verbose] > split_command $'\@"""..\\..\\dir name\\file.exe"" ""file 1.txt"" file2.txt"'
00:00:54 #1374 [verbose] > |> _assert_eq ("../../dir name/file.exe", $'\@"""file 1.txt"" file2.txt"')
00:00:54 #1375 [verbose] >
00:00:54 #1376 [verbose] > split_command $'\@"""..\\..\\file 1.exe"" -c \\\\""echo 1\\\\"""'
00:00:54 #1377 [verbose] > |> _assert_eq ("../../file 1.exe", $'\@"-c \\\\""echo 1\\\\"""')
00:00:54 #1378 [verbose] >
00:00:54 #1379 [verbose] > split_command $'\@"..\\..\\file 1.exe -c \\\\""echo 1\\\\"""'
00:00:54 #1380 [verbose] > |> _assert_eq ("../../file", $'\@"1.exe -c \\\\""echo 1\\\\"""')
00:00:54 #1381 [verbose] > Building c:\home\git\polyglot\target\polyglot\spiral_eval\packages\65b652b4676791073d29f324bbafd506ab676c31dbafab4c92066ba2b1299e75\main.spi
00:00:55 #1382 [verbose] >
00:00:55 #1383 [verbose] > ╭─[ 1.30s - stdout ]───────────────────────────────────────────────────────────╮
00:00:55 #1384 [verbose] > │ type UH0 = │
00:00:55 #1385 [verbose] > │ | UH0_0 │
00:00:55 #1386 [verbose] > │ | UH0_1 of char * UH0 │
00:00:55 #1387 [verbose] > │ and [<Struct>] US1 = │
00:00:55 #1388 [verbose] > │ | US1_0 │
00:00:55 #1389 [verbose] > │ | US1_1 │
00:00:55 #1390 [verbose] > │ and [<Struct>] US0 = │
00:00:55 #1391 [verbose] > │ | US0_0 │
00:00:55 #1392 [verbose] > │ | US0_1 of f1_0 : US1 │
00:00:55 #1393 [verbose] > │ | US0_2 │
00:00:55 #1394 [verbose] > │ let rec method1 () : struct (string * string) = │
00:00:55 #1395 [verbose] > │ let v0 : string = "" │
00:00:55 #1396 [verbose] > │ struct (v0, v0) │
00:00:55 #1397 [verbose] > │ and closure1 (v0 : char) (v1 : UH0) : UH0 = │
00:00:55 #1398 [verbose] > │ UH0_1(v0, v1) │
00:00:55 #1399 [verbose] > │ and closure0 () (v0 : char) : (UH0 -> UH0) = │
00:00:55 #1400 [verbose] > │ closure1(v0) │
00:00:55 #1401 [verbose] > │ and method2 () : (char -> (UH0 -> UH0)) = │
00:00:55 #1402 [verbose] > │ closure0() │
00:00:55 #1403 [verbose] > │ and method3 (v0 : string, v1 : string, v2 : UH0, v3 : US0) : struct (string │
00:00:55 #1404 [verbose] > │ * string) = │
00:00:55 #1405 [verbose] > │ match v2 with │
00:00:55 #1406 [verbose] > │ | UH0_1(v4, v5) -> (* Cons *) │
00:00:55 #1407 [verbose] > │ let v6 : bool = '"' = v4 │
00:00:55 #1408 [verbose] > │ if v6 then │
00:00:55 #1409 [verbose] > │ let v8 : bool = v1 = "" │
00:00:55 #1410 [verbose] > │ if v8 then │
00:00:55 #1411 [verbose] > │ let v9 : US1 = US1_0 │
00:00:55 #1412 [verbose] > │ let v10 : US0 = US0_1(v9) │
00:00:55 #1413 [verbose] > │ method3(v0, v1, v5, v10) │
00:00:55 #1414 [verbose] > │ else │
00:00:55 #1415 [verbose] > │ match v3 with │
00:00:55 #1416 [verbose] > │ | US0_2 -> (* Arguments *) │
00:00:55 #1417 [verbose] > │ let v38 : string = $"{v0}{v4}" │
00:00:55 #1418 [verbose] > │ let v39 : US0 = US0_2 │
00:00:55 #1419 [verbose] > │ method3(v38, v1, v5, v39) │
00:00:55 #1420 [verbose] > │ | US0_1(v13) -> (* Path *) │
00:00:55 #1421 [verbose] > │ match v13 with │
00:00:55 #1422 [verbose] > │ | US1_0 -> (* Quoted *) │
00:00:55 #1423 [verbose] > │ let v14 : US1 = US1_1 │
00:00:55 #1424 [verbose] > │ let v15 : US0 = US0_1(v14) │
00:00:55 #1425 [verbose] > │ method3(v0, v1, v5, v15) │
00:00:55 #1426 [verbose] > │ | _ -> │
00:00:55 #1427 [verbose] > │ let v18 : bool = ' ' = v4 │
00:00:55 #1428 [verbose] > │ if v18 then │
00:00:55 #1429 [verbose] > │ let v19 : US0 = US0_2 │
00:00:55 #1430 [verbose] > │ method3(v0, v1, v5, v19) │
00:00:55 #1431 [verbose] > │ else │
00:00:55 #1432 [verbose] > │ let v22 : string = $"{v1}{v4}" │
00:00:55 #1433 [verbose] > │ method3(v0, v22, v5, v3) │
00:00:55 #1434 [verbose] > │ | US0_0 -> (* Start *) │
00:00:55 #1435 [verbose] > │ let v29 : bool = ' ' = v4 │
00:00:55 #1436 [verbose] > │ if v29 then │
00:00:55 #1437 [verbose] > │ let v30 : US0 = US0_2 │
00:00:55 #1438 [verbose] > │ method3(v0, v1, v5, v30) │
00:00:55 #1439 [verbose] > │ else │
00:00:55 #1440 [verbose] > │ let v33 : string = $"{v1}{v4}" │
00:00:55 #1441 [verbose] > │ method3(v0, v33, v5, v3) │
00:00:55 #1442 [verbose] > │ else │
00:00:55 #1443 [verbose] > │ let v50 : bool = ''' = v4 │
00:00:55 #1444 [verbose] > │ if v50 then │
00:00:55 #1445 [verbose] > │ let v52 : bool = v1 = "" │
00:00:55 #1446 [verbose] > │ if v52 then │
00:00:55 #1447 [verbose] > │ let v53 : US1 = US1_0 │
00:00:55 #1448 [verbose] > │ let v54 : US0 = US0_1(v53) │
00:00:55 #1449 [verbose] > │ method3(v0, v1, v5, v54) │
00:00:55 #1450 [verbose] > │ else │
00:00:55 #1451 [verbose] > │ match v3 with │
00:00:55 #1452 [verbose] > │ | US0_2 -> (* Arguments *) │
00:00:55 #1453 [verbose] > │ let v82 : string = $"{v0}{v4}" │
00:00:55 #1454 [verbose] > │ let v83 : US0 = US0_2 │
00:00:55 #1455 [verbose] > │ method3(v82, v1, v5, v83) │
00:00:55 #1456 [verbose] > │ | US0_1(v57) -> (* Path *) │
00:00:55 #1457 [verbose] > │ match v57 with │
00:00:55 #1458 [verbose] > │ | US1_0 -> (* Quoted *) │
00:00:55 #1459 [verbose] > │ let v58 : US1 = US1_1 │
00:00:55 #1460 [verbose] > │ let v59 : US0 = US0_1(v58) │
00:00:55 #1461 [verbose] > │ method3(v0, v1, v5, v59) │
00:00:55 #1462 [verbose] > │ | _ -> │
00:00:55 #1463 [verbose] > │ let v62 : bool = ' ' = v4 │
00:00:55 #1464 [verbose] > │ if v62 then │
00:00:55 #1465 [verbose] > │ let v63 : US0 = US0_2 │
00:00:55 #1466 [verbose] > │ method3(v0, v1, v5, v63) │
00:00:55 #1467 [verbose] > │ else │
00:00:55 #1468 [verbose] > │ let v66 : string = $"{v1}{v4}" │
00:00:55 #1469 [verbose] > │ method3(v0, v66, v5, v3) │
00:00:55 #1470 [verbose] > │ | US0_0 -> (* Start *) │
00:00:55 #1471 [verbose] > │ let v73 : bool = ' ' = v4 │
00:00:55 #1472 [verbose] > │ if v73 then │
00:00:55 #1473 [verbose] > │ let v74 : US0 = US0_2 │
00:00:55 #1474 [verbose] > │ method3(v0, v1, v5, v74) │
00:00:55 #1475 [verbose] > │ else │
00:00:55 #1476 [verbose] > │ let v77 : string = $"{v1}{v4}" │
00:00:55 #1477 [verbose] > │ method3(v0, v77, v5, v3) │
00:00:55 #1478 [verbose] > │ else │
00:00:55 #1479 [verbose] > │ match v3 with │
00:00:55 #1480 [verbose] > │ | US0_2 -> (* Arguments *) │
00:00:55 #1481 [verbose] > │ let v126 : string = $"{v0}{v4}" │
00:00:55 #1482 [verbose] > │ let v127 : US0 = US0_2 │
00:00:55 #1483 [verbose] > │ method3(v126, v1, v5, v127) │
00:00:55 #1484 [verbose] > │ | US0_1(v94) -> (* Path *) │
00:00:55 #1485 [verbose] > │ match v94 with │
00:00:55 #1486 [verbose] > │ | US1_0 -> (* Quoted *) │
00:00:55 #1487 [verbose] > │ let v95 : bool = ' ' = v4 │
00:00:55 #1488 [verbose] > │ if v95 then │
00:00:55 #1489 [verbose] > │ let v96 : string = $"{v1} " │
00:00:55 #1490 [verbose] > │ let v97 : US1 = US1_0 │
00:00:55 #1491 [verbose] > │ let v98 : US0 = US0_1(v97) │
00:00:55 #1492 [verbose] > │ method3(v0, v96, v5, v98) │
00:00:55 #1493 [verbose] > │ else │
00:00:55 #1494 [verbose] > │ let v101 : string = $"{v1}{v4}" │
00:00:55 #1495 [verbose] > │ method3(v0, v101, v5, v3) │
00:00:55 #1496 [verbose] > │ | _ -> │
00:00:55 #1497 [verbose] > │ let v106 : bool = ' ' = v4 │
00:00:55 #1498 [verbose] > │ if v106 then │
00:00:55 #1499 [verbose] > │ let v107 : US0 = US0_2 │
00:00:55 #1500 [verbose] > │ method3(v0, v1, v5, v107) │
00:00:55 #1501 [verbose] > │ else │
00:00:55 #1502 [verbose] > │ let v110 : string = $"{v1}{v4}" │
00:00:55 #1503 [verbose] > │ method3(v0, v110, v5, v3) │
00:00:55 #1504 [verbose] > │ | US0_0 -> (* Start *) │
00:00:55 #1505 [verbose] > │ let v117 : bool = ' ' = v4 │
00:00:55 #1506 [verbose] > │ if v117 then │
00:00:55 #1507 [verbose] > │ let v118 : US0 = US0_2 │
00:00:55 #1508 [verbose] > │ method3(v0, v1, v5, v118) │
00:00:55 #1509 [verbose] > │ else │
00:00:55 #1510 [verbose] > │ let v121 : string = $"{v1}{v4}" │
00:00:55 #1511 [verbose] > │ method3(v0, v121, v5, v3) │
00:00:55 #1512 [verbose] > │ | _ -> │
00:00:55 #1513 [verbose] > │ match v3 with │
00:00:55 #1514 [verbose] > │ | US0_2 -> (* Arguments *) │
00:00:55 #1515 [verbose] > │ let v152 : string = "\\" │
00:00:55 #1516 [verbose] > │ let v153 : string = "/" │
00:00:55 #1517 [verbose] > │ let v154 : string = v1.Replace (v152, v153) │
00:00:55 #1518 [verbose] > │ struct (v154, v0) │
00:00:55 #1519 [verbose] > │ | US0_1(v140) -> (* Path *) │
00:00:55 #1520 [verbose] > │ match v140 with │
00:00:55 #1521 [verbose] > │ | US1_0 -> (* Quoted *) │
00:00:55 #1522 [verbose] > │ let v141 : string = "\\" │
00:00:55 #1523 [verbose] > │ let v142 : string = "/" │
00:00:55 #1524 [verbose] > │ let v143 : string = v1.Replace (v141, v142) │
00:00:55 #1525 [verbose] > │ struct (v143, v0) │
00:00:55 #1526 [verbose] > │ | _ -> │
00:00:55 #1527 [verbose] > │ let v144 : string = "\\" │
00:00:55 #1528 [verbose] > │ let v145 : string = "/" │
00:00:55 #1529 [verbose] > │ let v146 : string = v1.Replace (v144, v145) │
00:00:55 #1530 [verbose] > │ struct (v146, v0) │
00:00:55 #1531 [verbose] > │ | US0_0 -> (* Start *) │
00:00:55 #1532 [verbose] > │ let v149 : string = "\\" │
00:00:55 #1533 [verbose] > │ let v150 : string = "/" │
00:00:55 #1534 [verbose] > │ let v151 : string = v1.Replace (v149, v150) │
00:00:55 #1535 [verbose] > │ struct (v151, v0) │
00:00:55 #1536 [verbose] > │ and method4 (v0 : bool) : bool = │
00:00:55 #1537 [verbose] > │ v0 │
00:00:55 #1538 [verbose] > │ and method0 () : unit = │
00:00:55 #1539 [verbose] > │ let struct (v0 : string, v1 : string) = method1() │
00:00:55 #1540 [verbose] > │ let v2 : string = "" │
00:00:55 #1541 [verbose] > │ let v3 : char seq = v2 |> unbox<char seq> │
00:00:55 #1542 [verbose] > │ let v4 : (char seq -> char list) = Seq.toList │
00:00:55 #1543 [verbose] > │ let v5 : char list = v4 v3 │
00:00:55 #1544 [verbose] > │ let v6 : ((char -> (UH0 -> UH0)) -> (char list -> (UH0 -> UH0))) = │
00:00:55 #1545 [verbose] > │ List.foldBack │
00:00:55 #1546 [verbose] > │ let v7 : (char -> (UH0 -> UH0)) = method2() │
00:00:55 #1547 [verbose] > │ let v8 : (char list -> (UH0 -> UH0)) = v6 v7 │
00:00:55 #1548 [verbose] > │ let v9 : (UH0 -> UH0) = v8 v5 │
00:00:55 #1549 [verbose] > │ let v10 : UH0 = UH0_0 │
00:00:55 #1550 [verbose] > │ let v11 : UH0 = v9 v10 │
00:00:55 #1551 [verbose] > │ let v12 : US0 = US0_0 │
00:00:55 #1552 [verbose] > │ let struct (v13 : string, v14 : string) = method3(v1, v0, v11, v12) │
00:00:55 #1553 [verbose] > │ let v15 : string = $"%A{struct (v13, v14)}" │
00:00:55 #1554 [verbose] > │ System.Console.WriteLine v15 │
00:00:55 #1555 [verbose] > │ let v16 : bool = v13 = "" │
00:00:55 #1556 [verbose] > │ let v18 : bool = │
00:00:55 #1557 [verbose] > │ if v16 then │
00:00:55 #1558 [verbose] > │ let v17 : bool = v14 = "" │
00:00:55 #1559 [verbose] > │ v17 │
00:00:55 #1560 [verbose] > │ else │
00:00:55 #1561 [verbose] > │ false │
00:00:55 #1562 [verbose] > │ let v20 : bool = │
00:00:55 #1563 [verbose] > │ if v18 then │
00:00:55 #1564 [verbose] > │ true │
00:00:55 #1565 [verbose] > │ else │
00:00:55 #1566 [verbose] > │ method4(v18) │
00:00:55 #1567 [verbose] > │ let v21 : string = $"__expect / actual: %A{struct (v13, v14)} / │
00:00:55 #1568 [verbose] > │ expected: %A{struct (v2, v2)}" │
00:00:55 #1569 [verbose] > │ let v22 : bool = v20 = false │
00:00:55 #1570 [verbose] > │ if v22 then │
00:00:55 #1571 [verbose] > │ failwith<unit> v21 │
00:00:55 #1572 [verbose] > │ let struct (v23 : string, v24 : string) = method1() │
00:00:55 #1573 [verbose] > │ let v25 : string = "/a/b/c" │
00:00:55 #1574 [verbose] > │ let v26 : char seq = v25 |> unbox<char seq> │
00:00:55 #1575 [verbose] > │ let v27 : (char seq -> char list) = Seq.toList │
00:00:55 #1576 [verbose] > │ let v28 : char list = v27 v26 │
00:00:55 #1577 [verbose] > │ let v29 : ((char -> (UH0 -> UH0)) -> (char list -> (UH0 -> UH0))) = │
00:00:55 #1578 [verbose] > │ List.foldBack │
00:00:55 #1579 [verbose] > │ let v30 : (char -> (UH0 -> UH0)) = method2() │
00:00:55 #1580 [verbose] > │ let v31 : (char list -> (UH0 -> UH0)) = v29 v30 │
00:00:55 #1581 [verbose] > │ let v32 : (UH0 -> UH0) = v31 v28 │
00:00:55 #1582 [verbose] > │ let v33 : UH0 = UH0_0 │
00:00:55 #1583 [verbose] > │ let v34 : UH0 = v32 v33 │
00:00:55 #1584 [verbose] > │ let v35 : US0 = US0_0 │
00:00:55 #1585 [verbose] > │ let struct (v36 : string, v37 : string) = method3(v24, v23, v34, v35) │
00:00:55 #1586 [verbose] > │ let v38 : string = $"%A{struct (v36, v37)}" │
00:00:55 #1587 [verbose] > │ System.Console.WriteLine v38 │
00:00:55 #1588 [verbose] > │ let v39 : bool = v36 = "/a/b/c" │
00:00:55 #1589 [verbose] > │ let v41 : bool = │
00:00:55 #1590 [verbose] > │ if v39 then │
00:00:55 #1591 [verbose] > │ let v40 : bool = v37 = "" │
00:00:55 #1592 [verbose] > │ v40 │
00:00:55 #1593 [verbose] > │ else │
00:00:55 #1594 [verbose] > │ false │
00:00:55 #1595 [verbose] > │ let v43 : bool = │
00:00:55 #1596 [verbose] > │ if v41 then │
00:00:55 #1597 [verbose] > │ true │
00:00:55 #1598 [verbose] > │ else │
00:00:55 #1599 [verbose] > │ method4(v41) │
00:00:55 #1600 [verbose] > │ let v44 : string = $"__expect / actual: %A{struct (v36, v37)} / │
00:00:55 #1601 [verbose] > │ expected: %A{struct (v25, v2)}" │
00:00:55 #1602 [verbose] > │ let v45 : bool = v43 = false │
00:00:55 #1603 [verbose] > │ if v45 then │
00:00:55 #1604 [verbose] > │ failwith<unit> v44 │
00:00:55 #1605 [verbose] > │ let struct (v46 : string, v47 : string) = method1() │
00:00:55 #1606 [verbose] > │ let v48 : string = "cat file.txt" │
00:00:55 #1607 [verbose] > │ let v49 : char seq = v48 |> unbox<char seq> │
00:00:55 #1608 [verbose] > │ let v50 : (char seq -> char list) = Seq.toList │
00:00:55 #1609 [verbose] > │ let v51 : char list = v50 v49 │
00:00:55 #1610 [verbose] > │ let v52 : ((char -> (UH0 -> UH0)) -> (char list -> (UH0 -> UH0))) = │
00:00:55 #1611 [verbose] > │ List.foldBack │
00:00:55 #1612 [verbose] > │ let v53 : (char -> (UH0 -> UH0)) = method2() │
00:00:55 #1613 [verbose] > │ let v54 : (char list -> (UH0 -> UH0)) = v52 v53 │
00:00:55 #1614 [verbose] > │ let v55 : (UH0 -> UH0) = v54 v51 │
00:00:55 #1615 [verbose] > │ let v56 : UH0 = UH0_0 │
00:00:55 #1616 [verbose] > │ let v57 : UH0 = v55 v56 │
00:00:55 #1617 [verbose] > │ let v58 : US0 = US0_0 │
00:00:55 #1618 [verbose] > │ let struct (v59 : string, v60 : string) = method3(v47, v46, v57, v58) │
00:00:55 #1619 [verbose] > │ let v61 : string = $"%A{struct (v59, v60)}" │
00:00:55 #1620 [verbose] > │ System.Console.WriteLine v61 │
00:00:55 #1621 [verbose] > │ let v64 : bool = v59 = "cat" │
00:00:55 #1622 [verbose] > │ let v66 : bool = │
00:00:55 #1623 [verbose] > │ if v64 then │
00:00:55 #1624 [verbose] > │ let v65 : bool = v60 = "file.txt" │
00:00:55 #1625 [verbose] > │ v65 │
00:00:55 #1626 [verbose] > │ else │
00:00:55 #1627 [verbose] > │ false │
00:00:55 #1628 [verbose] > │ let v68 : bool = │
00:00:55 #1629 [verbose] > │ if v66 then │
00:00:55 #1630 [verbose] > │ true │
00:00:55 #1631 [verbose] > │ else │
00:00:55 #1632 [verbose] > │ method4(v66) │
00:00:55 #1633 [verbose] > │ let v69 : string = "cat" │
00:00:55 #1634 [verbose] > │ let v70 : string = "file.txt" │
00:00:55 #1635 [verbose] > │ let v71 : string = $"__expect / actual: %A{struct (v59, v60)} / │
00:00:55 #1636 [verbose] > │ expected: %A{struct (v69, v70)}" │
00:00:55 #1637 [verbose] > │ let v72 : bool = v68 = false │
00:00:55 #1638 [verbose] > │ if v72 then │
00:00:55 #1639 [verbose] > │ failwith<unit> v71 │
00:00:55 #1640 [verbose] > │ let v73 : string = """..\..\file.exe file1.txt file2.txt""" │
00:00:55 #1641 [verbose] > │ let struct (v74 : string, v75 : string) = method1() │
00:00:55 #1642 [verbose] > │ let v76 : char seq = v73 |> unbox<char seq> │
00:00:55 #1643 [verbose] > │ let v77 : (char seq -> char list) = Seq.toList │
00:00:55 #1644 [verbose] > │ let v78 : char list = v77 v76 │
00:00:55 #1645 [verbose] > │ let v79 : ((char -> (UH0 -> UH0)) -> (char list -> (UH0 -> UH0))) = │
00:00:55 #1646 [verbose] > │ List.foldBack │
00:00:55 #1647 [verbose] > │ let v80 : (char -> (UH0 -> UH0)) = method2() │
00:00:55 #1648 [verbose] > │ let v81 : (char list -> (UH0 -> UH0)) = v79 v80 │
00:00:55 #1649 [verbose] > │ let v82 : (UH0 -> UH0) = v81 v78 │
00:00:55 #1650 [verbose] > │ let v83 : UH0 = UH0_0 │
00:00:55 #1651 [verbose] > │ let v84 : UH0 = v82 v83 │
00:00:55 #1652 [verbose] > │ let v85 : US0 = US0_0 │
00:00:55 #1653 [verbose] > │ let struct (v86 : string, v87 : string) = method3(v75, v74, v84, v85) │
00:00:55 #1654 [verbose] > │ let v88 : string = $"%A{struct (v86, v87)}" │
00:00:55 #1655 [verbose] > │ System.Console.WriteLine v88 │
00:00:55 #1656 [verbose] > │ let v91 : bool = v86 = "../../file.exe" │
00:00:55 #1657 [verbose] > │ let v93 : bool = │
00:00:55 #1658 [verbose] > │ if v91 then │
00:00:55 #1659 [verbose] > │ let v92 : bool = v87 = "file1.txt file2.txt" │
00:00:55 #1660 [verbose] > │ v92 │
00:00:55 #1661 [verbose] > │ else │
00:00:55 #1662 [verbose] > │ false │
00:00:55 #1663 [verbose] > │ let v95 : bool = │
00:00:55 #1664 [verbose] > │ if v93 then │
00:00:55 #1665 [verbose] > │ true │
00:00:55 #1666 [verbose] > │ else │
00:00:55 #1667 [verbose] > │ method4(v93) │
00:00:55 #1668 [verbose] > │ let v96 : string = "../../file.exe" │
00:00:55 #1669 [verbose] > │ let v97 : string = "file1.txt file2.txt" │
00:00:55 #1670 [verbose] > │ let v98 : string = $"__expect / actual: %A{struct (v86, v87)} / │
00:00:55 #1671 [verbose] > │ expected: %A{struct (v96, v97)}" │
00:00:55 #1672 [verbose] > │ let v99 : bool = v95 = false │
00:00:55 #1673 [verbose] > │ if v99 then │
00:00:55 #1674 [verbose] > │ failwith<unit> v98 │
00:00:55 #1675 [verbose] > │ let v100 : string = @"c:\dir\file.exe ""file1.txt file2.txt""" │
00:00:55 #1676 [verbose] > │ let struct (v101 : string, v102 : string) = method1() │
00:00:55 #1677 [verbose] > │ let v103 : char seq = v100 |> unbox<char seq> │
00:00:55 #1678 [verbose] > │ let v104 : (char seq -> char list) = Seq.toList │
00:00:55 #1679 [verbose] > │ let v105 : char list = v104 v103 │
00:00:55 #1680 [verbose] > │ let v106 : ((char -> (UH0 -> UH0)) -> (char list -> (UH0 -> UH0))) = │
00:00:55 #1681 [verbose] > │ List.foldBack │
00:00:55 #1682 [verbose] > │ let v107 : (char -> (UH0 -> UH0)) = method2() │
00:00:55 #1683 [verbose] > │ let v108 : (char list -> (UH0 -> UH0)) = v106 v107 │
00:00:55 #1684 [verbose] > │ let v109 : (UH0 -> UH0) = v108 v105 │
00:00:55 #1685 [verbose] > │ let v110 : UH0 = UH0_0 │
00:00:55 #1686 [verbose] > │ let v111 : UH0 = v109 v110 │
00:00:55 #1687 [verbose] > │ let v112 : US0 = US0_0 │
00:00:55 #1688 [verbose] > │ let struct (v113 : string, v114 : string) = method3(v102, v101, v111, │
00:00:55 #1689 [verbose] > │ v112) │
00:00:55 #1690 [verbose] > │ let v115 : string = @"""file1.txt file2.txt""" │
00:00:55 #1691 [verbose] > │ let v116 : string = $"%A{struct (v113, v114)}" │
00:00:55 #1692 [verbose] > │ System.Console.WriteLine v116 │
00:00:55 #1693 [verbose] > │ let v118 : bool = v113 = "c:/dir/file.exe" │
00:00:55 #1694 [verbose] > │ let v120 : bool = │
00:00:55 #1695 [verbose] > │ if v118 then │
00:00:55 #1696 [verbose] > │ let v119 : bool = v114 = v115 │
00:00:55 #1697 [verbose] > │ v119 │
00:00:55 #1698 [verbose] > │ else │
00:00:55 #1699 [verbose] > │ false │
00:00:55 #1700 [verbose] > │ let v122 : bool = │
00:00:55 #1701 [verbose] > │ if v120 then │
00:00:55 #1702 [verbose] > │ true │
00:00:55 #1703 [verbose] > │ else │
00:00:55 #1704 [verbose] > │ method4(v120) │
00:00:55 #1705 [verbose] > │ let v123 : string = "c:/dir/file.exe" │
00:00:55 #1706 [verbose] > │ let v124 : string = $"__expect / actual: %A{struct (v113, v114)} / │
00:00:55 #1707 [verbose] > │ expected: %A{struct (v123, v115)}" │
00:00:55 #1708 [verbose] > │ let v125 : bool = v122 = false │
00:00:55 #1709 [verbose] > │ if v125 then │
00:00:55 #1710 [verbose] > │ failwith<unit> v124 │
00:00:55 #1711 [verbose] > │ let v126 : string = @"""..\..\dir name\file.exe"" ""file 1.txt"" │
00:00:55 #1712 [verbose] > │ file2.txt" │
00:00:55 #1713 [verbose] > │ let struct (v127 : string, v128 : string) = method1() │
00:00:55 #1714 [verbose] > │ let v129 : char seq = v126 |> unbox<char seq> │
00:00:55 #1715 [verbose] > │ let v130 : (char seq -> char list) = Seq.toList │
00:00:55 #1716 [verbose] > │ let v131 : char list = v130 v129 │
00:00:55 #1717 [verbose] > │ let v132 : ((char -> (UH0 -> UH0)) -> (char list -> (UH0 -> UH0))) = │
00:00:55 #1718 [verbose] > │ List.foldBack │
00:00:55 #1719 [verbose] > │ let v133 : (char -> (UH0 -> UH0)) = method2() │
00:00:55 #1720 [verbose] > │ let v134 : (char list -> (UH0 -> UH0)) = v132 v133 │
00:00:55 #1721 [verbose] > │ let v135 : (UH0 -> UH0) = v134 v131 │
00:00:55 #1722 [verbose] > │ let v136 : UH0 = UH0_0 │
00:00:55 #1723 [verbose] > │ let v137 : UH0 = v135 v136 │
00:00:55 #1724 [verbose] > │ let v138 : US0 = US0_0 │
00:00:55 #1725 [verbose] > │ let struct (v139 : string, v140 : string) = method3(v128, v127, v137, │
00:00:55 #1726 [verbose] > │ v138) │
00:00:55 #1727 [verbose] > │ let v141 : string = @"""file 1.txt"" file2.txt" │
00:00:55 #1728 [verbose] > │ let v142 : string = $"%A{struct (v139, v140)}" │
00:00:55 #1729 [verbose] > │ System.Console.WriteLine v142 │
00:00:55 #1730 [verbose] > │ let v144 : bool = v139 = "../../dir name/file.exe" │
00:00:55 #1731 [verbose] > │ let v146 : bool = │
00:00:55 #1732 [verbose] > │ if v144 then │
00:00:55 #1733 [verbose] > │ let v145 : bool = v140 = v141 │
00:00:55 #1734 [verbose] > │ v145 │
00:00:55 #1735 [verbose] > │ else │
00:00:55 #1736 [verbose] > │ false │
00:00:55 #1737 [verbose] > │ let v148 : bool = │
00:00:55 #1738 [verbose] > │ if v146 then │
00:00:55 #1739 [verbose] > │ true │
00:00:55 #1740 [verbose] > │ else │
00:00:55 #1741 [verbose] > │ method4(v146) │
00:00:55 #1742 [verbose] > │ let v149 : string = "../../dir name/file.exe" │
00:00:55 #1743 [verbose] > │ let v150 : string = $"__expect / actual: %A{struct (v139, v140)} / │
00:00:55 #1744 [verbose] > │ expected: %A{struct (v149, v141)}" │
00:00:55 #1745 [verbose] > │ let v151 : bool = v148 = false │
00:00:55 #1746 [verbose] > │ if v151 then │
00:00:55 #1747 [verbose] > │ failwith<unit> v150 │
00:00:55 #1748 [verbose] > │ let v152 : string = @"""..\..\file 1.exe"" -c \\""echo 1\\""" │
00:00:55 #1749 [verbose] > │ let struct (v153 : string, v154 : string) = method1() │
00:00:55 #1750 [verbose] > │ let v155 : char seq = v152 |> unbox<char seq> │
00:00:55 #1751 [verbose] > │ let v156 : (char seq -> char list) = Seq.toList │
00:00:55 #1752 [verbose] > │ let v157 : char list = v156 v155 │
00:00:55 #1753 [verbose] > │ let v158 : ((char -> (UH0 -> UH0)) -> (char list -> (UH0 -> UH0))) = │
00:00:55 #1754 [verbose] > │ List.foldBack │
00:00:55 #1755 [verbose] > │ let v159 : (char -> (UH0 -> UH0)) = method2() │
00:00:55 #1756 [verbose] > │ let v160 : (char list -> (UH0 -> UH0)) = v158 v159 │
00:00:55 #1757 [verbose] > │ let v161 : (UH0 -> UH0) = v160 v157 │
00:00:55 #1758 [verbose] > │ let v162 : UH0 = UH0_0 │
00:00:55 #1759 [verbose] > │ let v163 : UH0 = v161 v162 │
00:00:55 #1760 [verbose] > │ let v164 : US0 = US0_0 │
00:00:55 #1761 [verbose] > │ let struct (v165 : string, v166 : string) = method3(v154, v153, v163, │
00:00:55 #1762 [verbose] > │ v164) │
00:00:55 #1763 [verbose] > │ let v167 : string = @"-c \\""echo 1\\""" │
00:00:55 #1764 [verbose] > │ let v168 : string = $"%A{struct (v165, v166)}" │
00:00:55 #1765 [verbose] > │ System.Console.WriteLine v168 │
00:00:55 #1766 [verbose] > │ let v170 : bool = v165 = "../../file 1.exe" │
00:00:55 #1767 [verbose] > │ let v172 : bool = │
00:00:55 #1768 [verbose] > │ if v170 then │
00:00:55 #1769 [verbose] > │ let v171 : bool = v166 = v167 │
00:00:55 #1770 [verbose] > │ v171 │
00:00:55 #1771 [verbose] > │ else │
00:00:55 #1772 [verbose] > │ false │
00:00:55 #1773 [verbose] > │ let v174 : bool = │
00:00:55 #1774 [verbose] > │ if v172 then │
00:00:55 #1775 [verbose] > │ true │
00:00:55 #1776 [verbose] > │ else │
00:00:55 #1777 [verbose] > │ method4(v172) │
00:00:55 #1778 [verbose] > │ let v175 : string = "../../file 1.exe" │
00:00:55 #1779 [verbose] > │ let v176 : string = $"__expect / actual: %A{struct (v165, v166)} / │
00:00:55 #1780 [verbose] > │ expected: %A{struct (v175, v167)}" │
00:00:55 #1781 [verbose] > │ let v177 : bool = v174 = false │
00:00:55 #1782 [verbose] > │ if v177 then │
00:00:55 #1783 [verbose] > │ failwith<unit> v176 │
00:00:55 #1784 [verbose] > │ let v178 : string = @"..\..\file 1.exe -c \\""echo 1\\""" │
00:00:55 #1785 [verbose] > │ let struct (v179 : string, v180 : string) = method1() │
00:00:55 #1786 [verbose] > │ let v181 : char seq = v178 |> unbox<char seq> │
00:00:55 #1787 [verbose] > │ let v182 : (char seq -> char list) = Seq.toList │
00:00:55 #1788 [verbose] > │ let v183 : char list = v182 v181 │
00:00:55 #1789 [verbose] > │ let v184 : ((char -> (UH0 -> UH0)) -> (char list -> (UH0 -> UH0))) = │
00:00:55 #1790 [verbose] > │ List.foldBack │
00:00:55 #1791 [verbose] > │ let v185 : (char -> (UH0 -> UH0)) = method2() │
00:00:55 #1792 [verbose] > │ let v186 : (char list -> (UH0 -> UH0)) = v184 v185 │
00:00:55 #1793 [verbose] > │ let v187 : (UH0 -> UH0) = v186 v183 │
00:00:55 #1794 [verbose] > │ let v188 : UH0 = UH0_0 │
00:00:55 #1795 [verbose] > │ let v189 : UH0 = v187 v188 │
00:00:55 #1796 [verbose] > │ let v190 : US0 = US0_0 │
00:00:55 #1797 [verbose] > │ let struct (v191 : string, v192 : string) = method3(v180, v179, v189, │
00:00:55 #1798 [verbose] > │ v190) │
00:00:55 #1799 [verbose] > │ let v193 : string = @"1.exe -c \\""echo 1\\""" │
00:00:55 #1800 [verbose] > │ let v194 : string = $"%A{struct (v191, v192)}" │
00:00:55 #1801 [verbose] > │ System.Console.WriteLine v194 │
00:00:55 #1802 [verbose] > │ let v196 : bool = v191 = "../../file" │
00:00:55 #1803 [verbose] > │ let v198 : bool = │
00:00:55 #1804 [verbose] > │ if v196 then │
00:00:55 #1805 [verbose] > │ let v197 : bool = v192 = v193 │
00:00:55 #1806 [verbose] > │ v197 │
00:00:55 #1807 [verbose] > │ else │
00:00:55 #1808 [verbose] > │ false │
00:00:55 #1809 [verbose] > │ let v200 : bool = │
00:00:55 #1810 [verbose] > │ if v198 then │
00:00:55 #1811 [verbose] > │ true │
00:00:55 #1812 [verbose] > │ else │
00:00:55 #1813 [verbose] > │ method4(v198) │
00:00:55 #1814 [verbose] > │ let v201 : string = "../../file" │
00:00:55 #1815 [verbose] > │ let v202 : string = $"__expect / actual: %A{struct (v191, v192)} / │
00:00:55 #1816 [verbose] > │ expected: %A{struct (v201, v193)}" │
00:00:55 #1817 [verbose] > │ let v203 : bool = v200 = false │
00:00:55 #1818 [verbose] > │ if v203 then │
00:00:55 #1819 [verbose] > │ failwith<unit> v202 │
00:00:55 #1820 [verbose] > │ method0() │
00:00:55 #1821 [verbose] > │ │
00:00:55 #1822 [verbose] > │ struct ("", "") │
00:00:55 #1823 [verbose] > │ struct ("/a/b/c", "") │
00:00:55 #1824 [verbose] > │ struct ("cat", "file.txt") │
00:00:55 #1825 [verbose] > │ struct ("../../file.exe", "file1.txt file2.txt") │
00:00:55 #1826 [verbose] > │ struct ("c:/dir/file.exe", ""file1.txt file2.txt"") │
00:00:55 #1827 [verbose] > │ struct ("../../dir name/file.exe", ""file 1.txt" file2.txt") │
00:00:55 #1828 [verbose] > │ struct ("../../file 1.exe", "-c \\"echo 1\\"") │
00:00:55 #1829 [verbose] > │ struct ("../../file", "1.exe -c \\"echo 1\\"") │
00:00:55 #1830 [verbose] > │ │
00:00:55 #1831 [verbose] > ╰──────────────────────────────────────────────────────────────────────────────╯
00:00:55 #1832 [verbose] >
00:00:55 #1833 [verbose] > ── markdown ────────────────────────────────────────────────────────────────────
00:00:55 #1834 [verbose] > ╭──────────────────────────────────────────────────────────────────────────────╮
00:00:55 #1835 [verbose] > │ ## process │
00:00:55 #1836 [verbose] > ╰──────────────────────────────────────────────────────────────────────────────╯
00:00:55 #1837 [verbose] >
00:00:55 #1838 [verbose] > ── spiral ──────────────────────────────────────────────────────────────────────
00:00:55 #1839 [verbose] > nominal process = $'System.Diagnostics.Process'
00:00:55 #1840 [verbose] > nominal process_start_info = $'System.Diagnostics.ProcessStartInfo'
00:00:55 #1841 [verbose] > nominal data_received_event_args = $'System.Diagnostics.DataReceivedEventArgs'
00:00:55 #1842 [verbose] >
00:00:55 #1843 [verbose] > inl new_process (process_start_info : process_start_info) : process =
00:00:55 #1844 [verbose] > $'new `process (StartInfo = !process_start_info)'
00:00:55 #1845 [verbose] >
00:00:55 #1846 [verbose] > inl process_start (process : process) : bool =
00:00:55 #1847 [verbose] > $'!process.Start' ()
00:00:55 #1848 [verbose] >
00:00:55 #1849 [verbose] > inl process_exit_code (process : process) : i32 =
00:00:55 #1850 [verbose] > $'!process.ExitCode'
00:00:55 #1851 [verbose] >
00:00:55 #1852 [verbose] > inl process_id (process : process) : i32 =
00:00:55 #1853 [verbose] > $'!process.Id'
00:00:55 #1854 [verbose] >
00:00:55 #1855 [verbose] > inl process_has_exited (process : process) : bool =
00:00:55 #1856 [verbose] > run_target function
00:00:55 #1857 [verbose] > | Fsharp (Native) => fun () =>
00:00:55 #1858 [verbose] > $'!process.HasExited'
00:00:55 #1859 [verbose] > | _ => fun () => null ()
00:00:55 #1860 [verbose] >
00:00:55 #1861 [verbose] > inl process_kill (process : process) : () =
00:00:55 #1862 [verbose] > run_target function
00:00:55 #1863 [verbose] > | Fsharp (Native) => fun () =>
00:00:55 #1864 [verbose] > $'!process.Kill' ()
00:00:55 #1865 [verbose] > | _ => fun () => null ()
00:00:55 #1866 [verbose] >
00:00:55 #1867 [verbose] > inl process_begin_error_read_line (process : process) : () =
00:00:55 #1868 [verbose] > $'!process.BeginErrorReadLine' ()
00:00:55 #1869 [verbose] >
00:00:55 #1870 [verbose] > inl process_begin_output_read_line (process : process) : () =
00:00:55 #1871 [verbose] > $'!process.BeginOutputReadLine' ()
00:00:55 #1872 [verbose] >
00:00:55 #1873 [verbose] > inl process_add_output_data_received fn (process : process) : () =
00:00:55 #1874 [verbose] > $'!process.OutputDataReceived.Add !fn '
00:00:55 #1875 [verbose] >
00:00:55 #1876 [verbose] > inl process_add_error_data_received fn (process : process) : () =
00:00:55 #1877 [verbose] > $'!process.ErrorDataReceived.Add !fn '
00:00:55 #1878 [verbose] >
00:00:55 #1879 [verbose] > inl process_wait_for_exit_async (ct : threading.cancellation_token) (process :
00:00:55 #1880 [verbose] > process) : async.task () =
00:00:55 #1881 [verbose] > $'!process.WaitForExitAsync !ct '
00:00:55 #1882 [verbose] >
00:00:55 #1883 [verbose] > inl event_data (e : data_received_event_args) : string =
00:00:55 #1884 [verbose] > $'!e.Data'
00:00:56 #1885 [verbose] > Building c:\home\git\polyglot\target\polyglot\spiral_eval\packages\9f89d7640d3b30759a3c49925eb142d396c8135b25b64b05cc793974ee68a2d1\main.spi
00:00:56 #1886 [verbose] >
00:00:56 #1887 [verbose] > ╭─[ 259.70ms - stdout ]────────────────────────────────────────────────────────╮
00:00:56 #1888 [verbose] > │ () │
00:00:56 #1889 [verbose] > │ │
00:00:56 #1890 [verbose] > │ │
00:00:56 #1891 [verbose] > ╰──────────────────────────────────────────────────────────────────────────────╯
00:00:56 #1892 [verbose] >
00:00:56 #1893 [verbose] > ── markdown ────────────────────────────────────────────────────────────────────
00:00:56 #1894 [verbose] > ╭──────────────────────────────────────────────────────────────────────────────╮
00:00:56 #1895 [verbose] > │ ## execute_async │
00:00:56 #1896 [verbose] > ╰──────────────────────────────────────────────────────────────────────────────╯
00:00:56 #1897 [verbose] >
00:00:56 #1898 [verbose] > ── spiral ──────────────────────────────────────────────────────────────────────
00:00:56 #1899 [verbose] > type execution_line =
00:00:56 #1900 [verbose] > {
00:00:56 #1901 [verbose] > process_id : int
00:00:56 #1902 [verbose] > line : string
00:00:56 #1903 [verbose] > error : bool
00:00:56 #1904 [verbose] > }
00:00:56 #1905 [verbose] >
00:00:56 #1906 [verbose] > type execution_options =
00:00:56 #1907 [verbose] > {
00:00:56 #1908 [verbose] > command : string
00:00:56 #1909 [verbose] > working_directory : optionm'.option' string
00:00:56 #1910 [verbose] > cancellation_token : optionm'.option' threading.cancellation_token
00:00:56 #1911 [verbose] > on_line : optionm'.option' (execution_line -> async.async ())
00:00:56 #1912 [verbose] > trace_level : optionm'.option' trace_level
00:00:56 #1913 [verbose] > }
00:00:56 #1914 [verbose] >
00:00:56 #1915 [verbose] > inl execute_with_options_async (options : execution_options) : _ (i32 * string)
00:00:56 #1916 [verbose] > =
00:00:56 #1917 [verbose] > run_target function
00:00:56 #1918 [verbose] > | Fsharp (Native) => fun () =>
00:00:56 #1919 [verbose] > fun () =>
00:00:56 #1920 [verbose] > inl file_name, arguments = options.command |> split_command
00:00:56 #1921 [verbose] > inl working_directory = options.working_directory |>
00:00:56 #1922 [verbose] > optionm'.unbox |> optionm'.default_value ""
00:00:56 #1923 [verbose] >
00:00:56 #1924 [verbose] > trace Debug (fun () => $'$"execute_with_options_async / options:
00:00:56 #1925 [verbose] > %A{!options}"') (join get_locals)
00:00:56 #1926 [verbose] >
00:00:56 #1927 [verbose] > inl utf8 = sm'.encoding_utf8 ()
00:00:56 #1928 [verbose] > inl start_info : process_start_info =
00:00:56 #1929 [verbose] > $'System.Diagnostics.ProcessStartInfo (Arguments = !arguments,
00:00:56 #1930 [verbose] > StandardOutputEncoding = !utf8, WorkingDirectory = !working_directory, FileName
00:00:56 #1931 [verbose] > = !file_name, CreateNoWindow = true, RedirectStandardError = true,
00:00:56 #1932 [verbose] > RedirectStandardOutput = true, UseShellExecute = false)'
00:00:56 #1933 [verbose] >
00:00:56 #1934 [verbose] > inl proc = start_info |> new_process |> use
00:00:56 #1935 [verbose] > inl output : _ string = threading.new_concurrent_stack ()
00:00:56 #1936 [verbose] >
00:00:56 #1937 [verbose] > inl event error (e : data_received_event_args) = async.new_async
00:00:56 #1938 [verbose] > fun () =>
00:00:56 #1939 [verbose] > inl data = e |> event_data
00:00:56 #1940 [verbose] > if data <> null () then
00:00:56 #1941 [verbose] > match options.on_line |> optionm'.unbox with
00:00:56 #1942 [verbose] > | Some on_line =>
00:00:56 #1943 [verbose] > on_line
00:00:56 #1944 [verbose] > {
00:00:56 #1945 [verbose] > process_id = proc |> process_id
00:00:56 #1946 [verbose] > line = data
00:00:56 #1947 [verbose] > error = error
00:00:56 #1948 [verbose] > }
00:00:56 #1949 [verbose] > |> async.do
00:00:56 #1950 [verbose] > | None => ()
00:00:56 #1951 [verbose] >
00:00:56 #1952 [verbose] > trace Verbose (fun () => $'$"> {!data}"') get_locals
00:00:56 #1953 [verbose] >
00:00:56 #1954 [verbose] > inl l = if error then "[[" else ""
00:00:56 #1955 [verbose] > inl r = if error then "]]" else ""
00:00:56 #1956 [verbose] > output |> threading.concurrent_stack_push
00:00:56 #1957 [verbose] > $'$"{!l}{!data}{!r}"'
00:00:56 #1958 [verbose] >
00:00:56 #1959 [verbose] > proc |> process_add_output_data_received (event false >>
00:00:56 #1960 [verbose] > async.start_immediate)
00:00:56 #1961 [verbose] > proc |> process_add_error_data_received (event true >>
00:00:56 #1962 [verbose] > async.start_immediate)
00:00:56 #1963 [verbose] >
00:00:56 #1964 [verbose] > if proc |> process_start |> not
00:00:56 #1965 [verbose] > then failwith $'$"execute_with_options_async / process_start
00:00:56 #1966 [verbose] > error"'
00:00:56 #1967 [verbose] >
00:00:56 #1968 [verbose] > proc |> process_begin_error_read_line
00:00:56 #1969 [verbose] > proc |> process_begin_output_read_line
00:00:56 #1970 [verbose] >
00:00:56 #1971 [verbose] > inl ct =
00:00:56 #1972 [verbose] > options.cancellation_token
00:00:56 #1973 [verbose] > |> optionm'.unbox
00:00:56 #1974 [verbose] > |> optionm'.default_with threading.token_none
00:00:56 #1975 [verbose] > |> async.merge_cancellation_token_with_default_async
00:00:56 #1976 [verbose] > |> async.let'
00:00:56 #1977 [verbose] >
00:00:56 #1978 [verbose] > ct |> threading.token_register fun () =>
00:00:56 #1979 [verbose] > if proc |> process_has_exited |> not
00:00:56 #1980 [verbose] > then proc |> process_kill
00:00:56 #1981 [verbose] > |> use
00:00:56 #1982 [verbose] > |> ignore
00:00:56 #1983 [verbose] >
00:00:56 #1984 [verbose] > inl exit_code : i32 =
00:00:56 #1985 [verbose] > fun () =>
00:00:56 #1986 [verbose] > try_unit
00:00:56 #1987 [verbose] > fun () =>
00:00:56 #1988 [verbose] > proc
00:00:56 #1989 [verbose] > |> process_wait_for_exit_async ct
00:00:56 #1990 [verbose] > |> async.await_task
00:00:56 #1991 [verbose] > |> async.do
00:00:56 #1992 [verbose] > proc |> process_exit_code |> return
00:00:56 #1993 [verbose] > fun ex =>
00:00:56 #1994 [verbose] > // with :?
00:00:56 #1995 [verbose] > System.Threading.Tasks.TaskCanceledException as ex =>
00:00:56 #1996 [verbose] > inl ex' = ex |> sm'.format_exception
00:00:56 #1997 [verbose] > output |> threading.concurrent_stack_push ex'
00:00:56 #1998 [verbose] > inl ex : async.task_canceled_exception = ex |>
00:00:56 #1999 [verbose] > unbox
00:00:56 #2000 [verbose] > trace Warning (fun () =>
00:00:56 #2001 [verbose] > $'$"execute_with_options_async / WaitForExitAsync / ex: %A{!ex}"') (join
00:00:56 #2002 [verbose] > get_locals)
00:00:56 #2003 [verbose] > (limit.min : i32) |> return
00:00:56 #2004 [verbose] > |> async.new_async_unit
00:00:56 #2005 [verbose] > |> async.let'
00:00:56 #2006 [verbose] >
00:00:56 #2007 [verbose] > inl output =
00:00:56 #2008 [verbose] > output
00:00:56 #2009 [verbose] > |> seq.rev''
00:00:56 #2010 [verbose] > |> fun x => x : seq.seq' string
00:00:56 #2011 [verbose] > |> sm'.concat "\n"
00:00:56 #2012 [verbose] >
00:00:56 #2013 [verbose] > trace Debug (fun () =>
00:00:56 #2014 [verbose] > $'$"execute_with_options_async / exit_code: {!exit_code}
00:00:56 #2015 [verbose] > output.Length: {!output.Length}"'
00:00:56 #2016 [verbose] > ) (join get_locals)
00:00:56 #2017 [verbose] >
00:00:56 #2018 [verbose] > (exit_code, output) |> return
00:00:56 #2019 [verbose] > |> async.new_async_unit
00:00:56 #2020 [verbose] > |> fun fn =>
00:00:56 #2021 [verbose] > match options.trace_level |> optionm'.unbox with
00:00:56 #2022 [verbose] > | Some trace_level => fn |> async.with_trace_level trace_level
00:00:56 #2023 [verbose] > | None => fn
00:00:56 #2024 [verbose] > | _ => fun () =>
00:00:56 #2025 [verbose] > global "#if FABLE_COMPILER\n[[<CompilationRepresentation
00:00:56 #2026 [verbose] > (CompilationRepresentationFlags.ModuleSuffix)>]]\nmodule System =\n module
00:00:56 #2027 [verbose] > Diagnostics =\n type Process = unit\n type DataReceivedEventArgs =
00:00:56 #2028 [verbose] > unit\n#endif"
00:00:56 #2029 [verbose] > null ()
00:00:56 #2030 [verbose] >
00:00:56 #2031 [verbose] > inl execute_async command =
00:00:56 #2032 [verbose] > execute_with_options_async
00:00:56 #2033 [verbose] > {
00:00:56 #2034 [verbose] > command = command
00:00:56 #2035 [verbose] > cancellation_token = None |> optionm'.box
00:00:56 #2036 [verbose] > on_line = None |> optionm'.box
00:00:56 #2037 [verbose] > working_directory = None |> optionm'.box
00:00:56 #2038 [verbose] > trace_level = None |> optionm'.box
00:00:56 #2039 [verbose] > }
00:00:56 #2040 [verbose] >
00:00:56 #2041 [verbose] > inl execution_options (fn : execution_options -> execution_options) :
00:00:56 #2042 [verbose] > execution_options =
00:00:56 #2043 [verbose] > {
00:00:56 #2044 [verbose] > command = ""
00:00:56 #2045 [verbose] > cancellation_token = None |> optionm'.box
00:00:56 #2046 [verbose] > on_line = None |> optionm'.box
00:00:56 #2047 [verbose] > working_directory = None |> optionm'.box
00:00:56 #2048 [verbose] > trace_level = None |> optionm'.box
00:00:56 #2049 [verbose] > }
00:00:56 #2050 [verbose] > |> fn
00:00:56 #2051 [verbose] > Building c:\home\git\polyglot\target\polyglot\spiral_eval\packages\071ec79dbfb9f85a1a000df4a61e421d1e45c977d1143ca4f9cb49799a0367a2\main.spi
00:00:56 #2052 [verbose] >
00:00:56 #2053 [verbose] > ╭─[ 620.42ms - stdout ]────────────────────────────────────────────────────────╮
00:00:56 #2054 [verbose] > │ () │
00:00:56 #2055 [verbose] > │ │
00:00:56 #2056 [verbose] > │ │
00:00:56 #2057 [verbose] > ╰──────────────────────────────────────────────────────────────────────────────╯
00:00:56 #2058 [verbose] >
00:00:56 #2059 [verbose] > ── spiral ──────────────────────────────────────────────────────────────────────
00:00:56 #2060 [verbose] > // // test
00:00:56 #2061 [verbose] > // // print_code=true
00:00:56 #2062 [verbose] >
00:00:56 #2063 [verbose] > inl temp_folder, disposable = file_system.create_temp_directory ()
00:00:56 #2064 [verbose] > disposable |> use |> ignore
00:00:56 #2065 [verbose] > inl file_name = "test.txt"
00:00:56 #2066 [verbose] > inl path = temp_folder </> file_name
00:00:56 #2067 [verbose] >
00:00:56 #2068 [verbose] > fun () =>
00:00:56 #2069 [verbose] > inl exit_code, result = execute_async $'\@$"pwsh -c ""Get-Content
00:00:56 #2070 [verbose] > {!path}"""' |> async.let'
00:00:56 #2071 [verbose] > exit_code |> _assert_eq 1
00:00:56 #2072 [verbose] > result |> _assert_string_contains "not exist"
00:00:56 #2073 [verbose] >
00:00:56 #2074 [verbose] > "0" |> file_system.write_all_text_async path |> async.do
00:00:56 #2075 [verbose] >
00:00:56 #2076 [verbose] > execution_options fun x => { x with
00:00:56 #2077 [verbose] > command = $'\@$"pwsh -c ""Get-Content {!file_name}"""'
00:00:56 #2078 [verbose] > working_directory = Some temp_folder |> optionm'.box
00:00:56 #2079 [verbose] > }
00:00:56 #2080 [verbose] > |> execute_with_options_async
00:00:56 #2081 [verbose] > |> async.return_await
00:00:56 #2082 [verbose] > |> async.new_async_unit
00:00:56 #2083 [verbose] > |> async.run_with_timeout 10000
00:00:56 #2084 [verbose] > |> function
00:00:56 #2085 [verbose] > | Some (exit_code, output) =>
00:00:56 #2086 [verbose] > exit_code |> _assert_eq 0i32
00:00:56 #2087 [verbose] > output |> _assert_eq (join "0")
00:00:56 #2088 [verbose] > true
00:00:56 #2089 [verbose] > | _ => false
00:00:56 #2090 [verbose] > |> _assert_eq true
00:00:56 #2091 [verbose] > Building c:\home\git\polyglot\target\polyglot\spiral_eval\packages\879048a0a7da3aa8b2bb671d7d9b569e23917fb3776232bee7c9d113f795dff0\main.spi
00:01:00 #2092 [verbose] >
00:01:00 #2093 [verbose] > ╭─[ 3.80s - stdout ]───────────────────────────────────────────────────────────╮
00:01:00 #2094 [verbose] > │ type IPathJoin = abstract join: [<System.ParamArray>] paths: string[] -> │
00:01:00 #2095 [verbose] > │ string │
00:01:00 #2096 [verbose] > │ #if FABLE_COMPILER │
00:01:00 #2097 [verbose] > │ [<CompilationRepresentation (CompilationRepresentationFlags.ModuleSuffix)>] │
00:01:00 #2098 [verbose] > │ module System = │
00:01:00 #2099 [verbose] > │ module Diagnostics = │
00:01:00 #2100 [verbose] > │ type Process = unit │
00:01:00 #2101 [verbose] > │ type DataReceivedEventArgs = unit │
00:01:00 #2102 [verbose] > │ #endif │
00:01:00 #2103 [verbose] > │ module State = let mutable trace_state = None │
00:01:00 #2104 [verbose] > │ type [<Struct>] US0 = │
00:01:00 #2105 [verbose] > │ | US0_0 │
00:01:00 #2106 [verbose] > │ | US0_1 │
00:01:00 #2107 [verbose] > │ | US0_2 │
00:01:00 #2108 [verbose] > │ | US0_3 │
00:01:00 #2109 [verbose] > │ | US0_4 │
00:01:00 #2110 [verbose] > │ and UH0 = │
00:01:00 #2111 [verbose] > │ | UH0_0 │
00:01:00 #2112 [verbose] > │ | UH0_1 of char * UH0 │
00:01:00 #2113 [verbose] > │ and [<Struct>] US2 = │
00:01:00 #2114 [verbose] > │ | US2_0 │
00:01:00 #2115 [verbose] > │ | US2_1 │
00:01:00 #2116 [verbose] > │ and [<Struct>] US1 = │
00:01:00 #2117 [verbose] > │ | US1_0 │
00:01:00 #2118 [verbose] > │ | US1_1 of f1_0 : US2 │
00:01:00 #2119 [verbose] > │ | US1_2 │
00:01:00 #2120 [verbose] > │ and [<Struct>] US3 = │
00:01:00 #2121 [verbose] > │ | US3_0 of f0_0 : string │
00:01:00 #2122 [verbose] > │ | US3_1 │
00:01:00 #2123 [verbose] > │ and Mut0 = {mutable l0 : int64} │
00:01:00 #2124 [verbose] > │ and Mut1 = {mutable l0 : bool} │
00:01:00 #2125 [verbose] > │ and Mut2 = {mutable l0 : US0} │
00:01:00 #2126 [verbose] > │ and [<Struct>] US4 = │
00:01:00 #2127 [verbose] > │ | US4_0 of f0_0 : int64 │
00:01:00 #2128 [verbose] > │ | US4_1 │
00:01:00 #2129 [verbose] > │ and [<Struct>] US5 = │
00:01:00 #2130 [verbose] > │ | US5_0 of f0_0 : int64 │
00:01:00 #2131 [verbose] > │ | US5_1 │
00:01:00 #2132 [verbose] > │ and [<Struct>] US6 = │
00:01:00 #2133 [verbose] > │ | US6_0 of f0_0 : (struct (bool * string * int32) -> Async<unit>) │
00:01:00 #2134 [verbose] > │ | US6_1 │
00:01:00 #2135 [verbose] > │ and [<Struct>] US7 = │
00:01:00 #2136 [verbose] > │ | US7_0 of f0_0 : System.Threading.CancellationToken │
00:01:00 #2137 [verbose] > │ | US7_1 │
00:01:00 #2138 [verbose] > │ and [<Struct>] US8 = │
00:01:00 #2139 [verbose] > │ | US8_0 of f0_0 : US0 │
00:01:00 #2140 [verbose] > │ | US8_1 │
00:01:00 #2141 [verbose] > │ and [<Struct>] US9 = │
00:01:00 #2142 [verbose] > │ | US9_0 of f0_0 : int32 * f0_1 : string │
00:01:00 #2143 [verbose] > │ | US9_1 │
00:01:00 #2144 [verbose] > │ and [<Struct>] US10 = │
00:01:00 #2145 [verbose] > │ | US10_0 of f0_0 : int32 * f0_1 : string │
00:01:00 #2146 [verbose] > │ | US10_1 of f1_0 : exn │
00:01:00 #2147 [verbose] > │ and [<Struct>] US11 = │
00:01:00 #2148 [verbose] > │ | US11_0 of f0_0 : int32 * f0_1 : string │
00:01:00 #2149 [verbose] > │ | US11_1 of f1_0 : exn │
00:01:00 #2150 [verbose] > │ let rec closure0 () () : string = │
00:01:00 #2151 [verbose] > │ let v0 : string option = None │
00:01:00 #2152 [verbose] > │ let mutable _v0 = v0 │
00:01:00 #2153 [verbose] > │ #if FABLE_COMPILER_RUST && !WASM && !CONTRACT │
00:01:00 #2154 [verbose] > │ let v1 : string = null |> unbox<string> │
00:01:00 #2155 [verbose] > │ v1 │
00:01:00 #2156 [verbose] > │ #endif │
00:01:00 #2157 [verbose] > │ #if FABLE_COMPILER_RUST && WASM │
00:01:00 #2158 [verbose] > │ let v2 : string = null |> unbox<string> │
00:01:00 #2159 [verbose] > │ v2 │
00:01:00 #2160 [verbose] > │ #endif │
00:01:00 #2161 [verbose] > │ #if FABLE_COMPILER_RUST && CONTRACT │
00:01:00 #2162 [verbose] > │ let v3 : string = null |> unbox<string> │
00:01:00 #2163 [verbose] > │ v3 │
00:01:00 #2164 [verbose] > │ #endif │
00:01:00 #2165 [verbose] > │ #if !FABLE_COMPILER && !FABLE_COMPILER_RUST && │
00:01:00 #2166 [verbose] > │ !FABLE_COMPILER_TYPESCRIPT && !WASM && !CONTRACT │
00:01:00 #2167 [verbose] > │ let v4 : string = │
00:01:00 #2168 [verbose] > │ System.Reflection.Assembly.GetEntryAssembly().GetName().Name │
00:01:00 #2169 [verbose] > │ v4 │
00:01:00 #2170 [verbose] > │ #endif │
00:01:00 #2171 [verbose] > │ #if FABLE_COMPILER_TYPESCRIPT │
00:01:00 #2172 [verbose] > │ let v5 : string = null |> unbox<string> │
00:01:00 #2173 [verbose] > │ v5 │
00:01:00 #2174 [verbose] > │ #endif │
00:01:00 #2175 [verbose] > │ #if FABLE_COMPILER_PYTHON || FABLE_COMPILER_PHP || FABLE_COMPILER_DART │
00:01:00 #2176 [verbose] > │ let v6 : string = Unchecked.defaultof<string> │
00:01:00 #2177 [verbose] > │ v6 │
00:01:00 #2178 [verbose] > │ #endif │
00:01:00 #2179 [verbose] > │ |> fun x -> _v0 <- Some x │
00:01:00 #2180 [verbose] > │ let v7 : string = _v0.Value │
00:01:00 #2181 [verbose] > │ v7 │
00:01:00 #2182 [verbose] > │ and method1 (v0 : string) : string = │
00:01:00 #2183 [verbose] > │ v0 │
00:01:00 #2184 [verbose] > │ and closure2 () () : string = │
00:01:00 #2185 [verbose] > │ let v0 : string = "" │
00:01:00 #2186 [verbose] > │ v0 │
00:01:00 #2187 [verbose] > │ and closure1 (v0 : string, v1 : string) () : string = │
00:01:00 #2188 [verbose] > │ let v2 : (unit -> string) = closure2() │
00:01:00 #2189 [verbose] > │ let v3 : string = $"temp_folder: {v0} / result: {v1} {v2 ()}" │
00:01:00 #2190 [verbose] > │ v3 │
00:01:00 #2191 [verbose] > │ and closure5 () (v0 : string) : string = │
00:01:00 #2192 [verbose] > │ let v1 : string option = None │
00:01:00 #2193 [verbose] > │ let mutable _v1 = v1 │
00:01:00 #2194 [verbose] > │ #if FABLE_COMPILER_RUST && !WASM && !CONTRACT │
00:01:00 #2195 [verbose] > │ let v2 : string = null |> unbox<string> │
00:01:00 #2196 [verbose] > │ v2 │
00:01:00 #2197 [verbose] > │ #endif │
00:01:00 #2198 [verbose] > │ #if FABLE_COMPILER_RUST && WASM │
00:01:00 #2199 [verbose] > │ let v3 : string = null |> unbox<string> │
00:01:00 #2200 [verbose] > │ v3 │
00:01:00 #2201 [verbose] > │ #endif │
00:01:00 #2202 [verbose] > │ #if FABLE_COMPILER_RUST && CONTRACT │
00:01:00 #2203 [verbose] > │ let v4 : string = null |> unbox<string> │
00:01:00 #2204 [verbose] > │ v4 │
00:01:00 #2205 [verbose] > │ #endif │
00:01:00 #2206 [verbose] > │ #if !FABLE_COMPILER && !FABLE_COMPILER_RUST && │
00:01:00 #2207 [verbose] > │ !FABLE_COMPILER_TYPESCRIPT && !WASM && !CONTRACT │
00:01:00 #2208 [verbose] > │ let v5 : (string -> string) = System.IO.Path.GetFileName │
00:01:00 #2209 [verbose] > │ let v6 : string = v5 v0 │
00:01:00 #2210 [verbose] > │ v6 │
00:01:00 #2211 [verbose] > │ #endif │
00:01:00 #2212 [verbose] > │ #if FABLE_COMPILER_TYPESCRIPT │
00:01:00 #2213 [verbose] > │ let v7 : string = null |> unbox<string> │
00:01:00 #2214 [verbose] > │ v7 │
00:01:00 #2215 [verbose] > │ #endif │
00:01:00 #2216 [verbose] > │ #if FABLE_COMPILER_PYTHON || FABLE_COMPILER_PHP || FABLE_COMPILER_DART │
00:01:00 #2217 [verbose] > │ let v8 : string = Unchecked.defaultof<string> │
00:01:00 #2218 [verbose] > │ v8 │
00:01:00 #2219 [verbose] > │ #endif │
00:01:00 #2220 [verbose] > │ |> fun x -> _v1 <- Some x │
00:01:00 #2221 [verbose] > │ let v9 : string = _v1.Value │
00:01:00 #2222 [verbose] > │ v9 │
00:01:00 #2223 [verbose] > │ and method3 (v0 : string, v1 : string) : string = │
00:01:00 #2224 [verbose] > │ let v2 : (string -> string) = closure5() │
00:01:00 #2225 [verbose] > │ let v3 : (unit -> string) = closure2() │
00:01:00 #2226 [verbose] > │ let v4 : string = $"path: {v0 |> v2} / ex: {v1} / {v3 ()}" │
00:01:00 #2227 [verbose] > │ v4 │
00:01:00 #2228 [verbose] > │ and closure4 (v0 : string, v1 : string) () : string = │
00:01:00 #2229 [verbose] > │ method3(v0, v1) │
00:01:00 #2230 [verbose] > │ and method2 (v0 : string, v1 : int64) : Async<int64> = │
00:01:00 #2231 [verbose] > │ let v2 : Async<int64> option = None │
00:01:00 #2232 [verbose] > │ let mutable _v2 = v2 │
00:01:00 #2233 [verbose] > │ #if FABLE_COMPILER_RUST && !WASM && !CONTRACT │
00:01:00 #2234 [verbose] > │ let v3 : Async<int64> = null |> unbox<Async<int64>> │
00:01:00 #2235 [verbose] > │ v3 │
00:01:00 #2236 [verbose] > │ #endif │
00:01:00 #2237 [verbose] > │ #if FABLE_COMPILER_RUST && WASM │
00:01:00 #2238 [verbose] > │ let v4 : Async<int64> = null |> unbox<Async<int64>> │
00:01:00 #2239 [verbose] > │ v4 │
00:01:00 #2240 [verbose] > │ #endif │
00:01:00 #2241 [verbose] > │ #if FABLE_COMPILER_RUST && CONTRACT │
00:01:00 #2242 [verbose] > │ let v5 : Async<int64> = null |> unbox<Async<int64>> │
00:01:00 #2243 [verbose] > │ v5 │
00:01:00 #2244 [verbose] > │ #endif │
00:01:00 #2245 [verbose] > │ #if !FABLE_COMPILER && !FABLE_COMPILER_RUST && │
00:01:00 #2246 [verbose] > │ !FABLE_COMPILER_TYPESCRIPT && !WASM && !CONTRACT │
00:01:00 #2247 [verbose] > │ let v6 : Async<int64> option = None │
00:01:00 #2248 [verbose] > │ let mutable _v6 = v6 │
00:01:00 #2249 [verbose] > │ async { │
00:01:00 #2250 [verbose] > │ try │
00:01:00 #2251 [verbose] > │ let v7 : unit option = None │
00:01:00 #2252 [verbose] > │ let mutable _v7 = v7 │
00:01:00 #2253 [verbose] > │ #if FABLE_COMPILER_RUST && !WASM && !CONTRACT │
00:01:00 #2254 [verbose] > │ null |> unbox<unit> │
00:01:00 #2255 [verbose] > │ () │
00:01:00 #2256 [verbose] > │ #endif │
00:01:00 #2257 [verbose] > │ #if FABLE_COMPILER_RUST && WASM │
00:01:00 #2258 [verbose] > │ null |> unbox<unit> │
00:01:00 #2259 [verbose] > │ () │
00:01:00 #2260 [verbose] > │ #endif │
00:01:00 #2261 [verbose] > │ #if FABLE_COMPILER_RUST && CONTRACT │
00:01:00 #2262 [verbose] > │ null |> unbox<unit> │
00:01:00 #2263 [verbose] > │ () │
00:01:00 #2264 [verbose] > │ #endif │
00:01:00 #2265 [verbose] > │ #if !FABLE_COMPILER && !FABLE_COMPILER_RUST && │
00:01:00 #2266 [verbose] > │ !FABLE_COMPILER_TYPESCRIPT && !WASM && !CONTRACT │
00:01:00 #2267 [verbose] > │ System.IO.Directory.Delete (v0, true) │
00:01:00 #2268 [verbose] > │ () │
00:01:00 #2269 [verbose] > │ #endif │
00:01:00 #2270 [verbose] > │ #if FABLE_COMPILER_TYPESCRIPT │
00:01:00 #2271 [verbose] > │ null |> unbox<unit> │
00:01:00 #2272 [verbose] > │ () │
00:01:00 #2273 [verbose] > │ #endif │
00:01:00 #2274 [verbose] > │ #if FABLE_COMPILER_PYTHON || FABLE_COMPILER_PHP || FABLE_COMPILER_DART │
00:01:00 #2275 [verbose] > │ Unchecked.defaultof<unit> │
00:01:00 #2276 [verbose] > │ () │
00:01:00 #2277 [verbose] > │ #endif │
00:01:00 #2278 [verbose] > │ |> fun x -> _v7 <- Some x │
00:01:00 #2279 [verbose] > │ _v7.Value │
00:01:00 #2280 [verbose] > │ return v1 │
00:01:00 #2281 [verbose] > │ with ex -> │
00:01:00 #2282 [verbose] > │ let v8 : exn = ex │
00:01:00 #2283 [verbose] > │ let v9 : int64 = v1 % 100L │
00:01:00 #2284 [verbose] > │ let v10 : bool = v9 = 0L │
00:01:00 #2285 [verbose] > │ if v10 then │
00:01:00 #2286 [verbose] > │ let v11 : string option = None │
00:01:00 #2287 [verbose] > │ let mutable _v11 = v11 │
00:01:00 #2288 [verbose] > │ #if FABLE_COMPILER_RUST && !WASM && !CONTRACT │
00:01:00 #2289 [verbose] > │ let v12 : string = $"%A{v8}" │
00:01:00 #2290 [verbose] > │ v12 │
00:01:00 #2291 [verbose] > │ #endif │
00:01:00 #2292 [verbose] > │ #if FABLE_COMPILER_RUST && WASM │
00:01:00 #2293 [verbose] > │ let v13 : string = $"%A{v8}" │
00:01:00 #2294 [verbose] > │ v13 │
00:01:00 #2295 [verbose] > │ #endif │
00:01:00 #2296 [verbose] > │ #if FABLE_COMPILER_RUST && CONTRACT │
00:01:00 #2297 [verbose] > │ let v14 : string = $"%A{v8}" │
00:01:00 #2298 [verbose] > │ v14 │
00:01:00 #2299 [verbose] > │ #endif │
00:01:00 #2300 [verbose] > │ #if !FABLE_COMPILER && !FABLE_COMPILER_RUST && │
00:01:00 #2301 [verbose] > │ !FABLE_COMPILER_TYPESCRIPT && !WASM && !CONTRACT │
00:01:00 #2302 [verbose] > │ let v15 : string = $"{v8.GetType ()}: {v8.Message}" │
00:01:00 #2303 [verbose] > │ v15 │
00:01:00 #2304 [verbose] > │ #endif │
00:01:00 #2305 [verbose] > │ #if FABLE_COMPILER_TYPESCRIPT │
00:01:00 #2306 [verbose] > │ let v16 : string = $"%A{v8}" │
00:01:00 #2307 [verbose] > │ v16 │
00:01:00 #2308 [verbose] > │ #endif │
00:01:00 #2309 [verbose] > │ #if FABLE_COMPILER_PYTHON || FABLE_COMPILER_PHP || │
00:01:00 #2310 [verbose] > │ FABLE_COMPILER_DART │
00:01:00 #2311 [verbose] > │ let v17 : string = Unchecked.defaultof<string> │
00:01:00 #2312 [verbose] > │ v17 │
00:01:00 #2313 [verbose] > │ #endif │
00:01:00 #2314 [verbose] > │ |> fun x -> _v11 <- Some x │
00:01:00 #2315 [verbose] > │ let v18 : string = _v11.Value │
00:01:00 #2316 [verbose] > │ let v19 : (unit -> string) = closure4(v0, v18) │
00:01:00 #2317 [verbose] > │ let v20 : string = $"delete_directory_async / {v19 ()}" │
00:01:00 #2318 [verbose] > │ System.Console.WriteLine v20 │
00:01:00 #2319 [verbose] > │ () │
00:01:00 #2320 [verbose] > │ let v21 : Async<unit> option = None │
00:01:00 #2321 [verbose] > │ let mutable _v21 = v21 │
00:01:00 #2322 [verbose] > │ #if FABLE_COMPILER_RUST && !WASM && !CONTRACT │
00:01:00 #2323 [verbose] > │ let v22 : Async<unit> = null |> unbox<Async<unit>> │
00:01:00 #2324 [verbose] > │ v22 │
00:01:00 #2325 [verbose] > │ #endif │
00:01:00 #2326 [verbose] > │ #if FABLE_COMPILER_RUST && WASM │
00:01:00 #2327 [verbose] > │ let v23 : Async<unit> = null |> unbox<Async<unit>> │
00:01:00 #2328 [verbose] > │ v23 │
00:01:00 #2329 [verbose] > │ #endif │
00:01:00 #2330 [verbose] > │ #if FABLE_COMPILER_RUST && CONTRACT │
00:01:00 #2331 [verbose] > │ let v24 : Async<unit> = null |> unbox<Async<unit>> │
00:01:00 #2332 [verbose] > │ v24 │
00:01:00 #2333 [verbose] > │ #endif │
00:01:00 #2334 [verbose] > │ #if !FABLE_COMPILER && !FABLE_COMPILER_RUST && │
00:01:00 #2335 [verbose] > │ !FABLE_COMPILER_TYPESCRIPT && !WASM && !CONTRACT │
00:01:00 #2336 [verbose] > │ let v25 : (int32 -> Async<unit>) = Async.Sleep │
00:01:00 #2337 [verbose] > │ let v26 : Async<unit> = v25 10 │
00:01:00 #2338 [verbose] > │ v26 │
00:01:00 #2339 [verbose] > │ #endif │
00:01:00 #2340 [verbose] > │ #if FABLE_COMPILER_TYPESCRIPT │
00:01:00 #2341 [verbose] > │ let v27 : Async<unit> = null |> unbox<Async<unit>> │
00:01:00 #2342 [verbose] > │ v27 │
00:01:00 #2343 [verbose] > │ #endif │
00:01:00 #2344 [verbose] > │ #if FABLE_COMPILER_PYTHON || FABLE_COMPILER_PHP || FABLE_COMPILER_DART │
00:01:00 #2345 [verbose] > │ let v28 : Async<unit> = Unchecked.defaultof<Async<unit>> │
00:01:00 #2346 [verbose] > │ v28 │
00:01:00 #2347 [verbose] > │ #endif │
00:01:00 #2348 [verbose] > │ |> fun x -> _v21 <- Some x │
00:01:00 #2349 [verbose] > │ let v29 : Async<unit> = _v21.Value │
00:01:00 #2350 [verbose] > │ do! v29 │
00:01:00 #2351 [verbose] > │ let v30 : int64 = v1 + 1L │
00:01:00 #2352 [verbose] > │ let v31 : Async<int64> = method2(v0, v30) │
00:01:00 #2353 [verbose] > │ return! v31 │
00:01:00 #2354 [verbose] > │ (* │
00:01:00 #2355 [verbose] > │ let v32 : int64 = *) │
00:01:00 #2356 [verbose] > │ } │
00:01:00 #2357 [verbose] > │ |> fun x -> _v6 <- Some x │
00:01:00 #2358 [verbose] > │ let v33 : Async<int64> = _v6 |> Option.get │
00:01:00 #2359 [verbose] > │ v33 │
00:01:00 #2360 [verbose] > │ #endif │
00:01:00 #2361 [verbose] > │ #if FABLE_COMPILER_TYPESCRIPT │
00:01:00 #2362 [verbose] > │ let v34 : Async<int64> = null |> unbox<Async<int64>> │
00:01:00 #2363 [verbose] > │ v34 │
00:01:00 #2364 [verbose] > │ #endif │
00:01:00 #2365 [verbose] > │ #if FABLE_COMPILER_PYTHON || FABLE_COMPILER_PHP || FABLE_COMPILER_DART │
00:01:00 #2366 [verbose] > │ let v35 : Async<int64> = Unchecked.defaultof<Async<int64>> │
00:01:00 #2367 [verbose] > │ v35 │
00:01:00 #2368 [verbose] > │ #endif │
00:01:00 #2369 [verbose] > │ |> fun x -> _v2 <- Some x │
00:01:00 #2370 [verbose] > │ let v36 : Async<int64> = _v2.Value │
00:01:00 #2371 [verbose] > │ v36 │
00:01:00 #2372 [verbose] > │ and closure3 (v0 : string) () : unit = │
00:01:00 #2373 [verbose] > │ let v1 : Async<int64> option = None │
00:01:00 #2374 [verbose] > │ let mutable _v1 = v1 │
00:01:00 #2375 [verbose] > │ #if FABLE_COMPILER_RUST && !WASM && !CONTRACT │
00:01:00 #2376 [verbose] > │ let v2 : Async<int64> = null |> unbox<Async<int64>> │
00:01:00 #2377 [verbose] > │ v2 │
00:01:00 #2378 [verbose] > │ #endif │
00:01:00 #2379 [verbose] > │ #if FABLE_COMPILER_RUST && WASM │
00:01:00 #2380 [verbose] > │ let v3 : Async<int64> = null |> unbox<Async<int64>> │
00:01:00 #2381 [verbose] > │ v3 │
00:01:00 #2382 [verbose] > │ #endif │
00:01:00 #2383 [verbose] > │ #if FABLE_COMPILER_RUST && CONTRACT │
00:01:00 #2384 [verbose] > │ let v4 : Async<int64> = null |> unbox<Async<int64>> │
00:01:00 #2385 [verbose] > │ v4 │
00:01:00 #2386 [verbose] > │ #endif │
00:01:00 #2387 [verbose] > │ #if !FABLE_COMPILER && !FABLE_COMPILER_RUST && │
00:01:00 #2388 [verbose] > │ !FABLE_COMPILER_TYPESCRIPT && !WASM && !CONTRACT │
00:01:00 #2389 [verbose] > │ let v5 : int64 = 0L │
00:01:00 #2390 [verbose] > │ let v6 : Async<int64> = method2(v0, v5) │
00:01:00 #2391 [verbose] > │ v6 │
00:01:00 #2392 [verbose] > │ #endif │
00:01:00 #2393 [verbose] > │ #if FABLE_COMPILER_TYPESCRIPT │
00:01:00 #2394 [verbose] > │ let v7 : Async<int64> = null |> unbox<Async<int64>> │
00:01:00 #2395 [verbose] > │ v7 │
00:01:00 #2396 [verbose] > │ #endif │
00:01:00 #2397 [verbose] > │ #if FABLE_COMPILER_PYTHON || FABLE_COMPILER_PHP || FABLE_COMPILER_DART │
00:01:00 #2398 [verbose] > │ let v8 : Async<int64> = Unchecked.defaultof<Async<int64>> │
00:01:00 #2399 [verbose] > │ v8 │
00:01:00 #2400 [verbose] > │ #endif │
00:01:00 #2401 [verbose] > │ |> fun x -> _v1 <- Some x │
00:01:00 #2402 [verbose] > │ let v9 : Async<int64> = _v1.Value │
00:01:00 #2403 [verbose] > │ let v10 : Async<unit> option = None │
00:01:00 #2404 [verbose] > │ let mutable _v10 = v10 │
00:01:00 #2405 [verbose] > │ #if FABLE_COMPILER_RUST && !WASM && !CONTRACT │
00:01:00 #2406 [verbose] > │ let v11 : Async<unit> = null |> unbox<Async<unit>> │
00:01:00 #2407 [verbose] > │ v11 │
00:01:00 #2408 [verbose] > │ #endif │
00:01:00 #2409 [verbose] > │ #if FABLE_COMPILER_RUST && WASM │
00:01:00 #2410 [verbose] > │ let v12 : Async<unit> = null |> unbox<Async<unit>> │
00:01:00 #2411 [verbose] > │ v12 │
00:01:00 #2412 [verbose] > │ #endif │
00:01:00 #2413 [verbose] > │ #if FABLE_COMPILER_RUST && CONTRACT │
00:01:00 #2414 [verbose] > │ let v13 : Async<unit> = null |> unbox<Async<unit>> │
00:01:00 #2415 [verbose] > │ v13 │
00:01:00 #2416 [verbose] > │ #endif │
00:01:00 #2417 [verbose] > │ #if !FABLE_COMPILER && !FABLE_COMPILER_RUST && │
00:01:00 #2418 [verbose] > │ !FABLE_COMPILER_TYPESCRIPT && !WASM && !CONTRACT │
00:01:00 #2419 [verbose] > │ let v14 : (Async<int64> -> Async<unit>) = Async.Ignore │
00:01:00 #2420 [verbose] > │ let v15 : Async<unit> = v14 v9 │
00:01:00 #2421 [verbose] > │ v15 │
00:01:00 #2422 [verbose] > │ #endif │
00:01:00 #2423 [verbose] > │ #if FABLE_COMPILER_TYPESCRIPT │
00:01:00 #2424 [verbose] > │ let v16 : Async<unit> = null |> unbox<Async<unit>> │
00:01:00 #2425 [verbose] > │ v16 │
00:01:00 #2426 [verbose] > │ #endif │
00:01:00 #2427 [verbose] > │ #if FABLE_COMPILER_PYTHON || FABLE_COMPILER_PHP || FABLE_COMPILER_DART │
00:01:00 #2428 [verbose] > │ let v17 : Async<unit> = Unchecked.defaultof<Async<unit>> │
00:01:00 #2429 [verbose] > │ v17 │
00:01:00 #2430 [verbose] > │ #endif │
00:01:00 #2431 [verbose] > │ |> fun x -> _v10 <- Some x │
00:01:00 #2432 [verbose] > │ let v18 : Async<unit> = _v10.Value │
00:01:00 #2433 [verbose] > │ let v19 : unit option = None │
00:01:00 #2434 [verbose] > │ let mutable _v19 = v19 │
00:01:00 #2435 [verbose] > │ #if FABLE_COMPILER_RUST && !WASM && !CONTRACT │
00:01:00 #2436 [verbose] > │ null |> unbox<unit> │
00:01:00 #2437 [verbose] > │ () │
00:01:00 #2438 [verbose] > │ #endif │
00:01:00 #2439 [verbose] > │ #if FABLE_COMPILER_RUST && WASM │
00:01:00 #2440 [verbose] > │ null |> unbox<unit> │
00:01:00 #2441 [verbose] > │ () │
00:01:00 #2442 [verbose] > │ #endif │
00:01:00 #2443 [verbose] > │ #if FABLE_COMPILER_RUST && CONTRACT │
00:01:00 #2444 [verbose] > │ null |> unbox<unit> │
00:01:00 #2445 [verbose] > │ () │
00:01:00 #2446 [verbose] > │ #endif │
00:01:00 #2447 [verbose] > │ #if !FABLE_COMPILER && !FABLE_COMPILER_RUST && │
00:01:00 #2448 [verbose] > │ !FABLE_COMPILER_TYPESCRIPT && !WASM && !CONTRACT │
00:01:00 #2449 [verbose] > │ let v20 : (Async<unit> -> unit) = Async.RunSynchronously │
00:01:00 #2450 [verbose] > │ v20 v18 │
00:01:00 #2451 [verbose] > │ () │
00:01:00 #2452 [verbose] > │ #endif │
00:01:00 #2453 [verbose] > │ #if FABLE_COMPILER_TYPESCRIPT │
00:01:00 #2454 [verbose] > │ null |> unbox<unit> │
00:01:00 #2455 [verbose] > │ () │
00:01:00 #2456 [verbose] > │ #endif │
00:01:00 #2457 [verbose] > │ #if FABLE_COMPILER_PYTHON || FABLE_COMPILER_PHP || FABLE_COMPILER_DART │
00:01:00 #2458 [verbose] > │ Unchecked.defaultof<unit> │
00:01:00 #2459 [verbose] > │ () │
00:01:00 #2460 [verbose] > │ #endif │
00:01:00 #2461 [verbose] > │ |> fun x -> _v19 <- Some x │
00:01:00 #2462 [verbose] > │ _v19.Value │
00:01:00 #2463 [verbose] > │ () │
00:01:00 #2464 [verbose] > │ and method4 () : string = │
00:01:00 #2465 [verbose] > │ let v0 : string = "test.txt" │
00:01:00 #2466 [verbose] > │ v0 │
00:01:00 #2467 [verbose] > │ and method5 () : struct (string * string) = │
00:01:00 #2468 [verbose] > │ let v0 : string = "" │
00:01:00 #2469 [verbose] > │ struct (v0, v0) │
00:01:00 #2470 [verbose] > │ and closure7 (v0 : char) (v1 : UH0) : UH0 = │
00:01:00 #2471 [verbose] > │ UH0_1(v0, v1) │
00:01:00 #2472 [verbose] > │ and closure6 () (v0 : char) : (UH0 -> UH0) = │
00:01:00 #2473 [verbose] > │ closure7(v0) │
00:01:00 #2474 [verbose] > │ and method6 () : (char -> (UH0 -> UH0)) = │
00:01:00 #2475 [verbose] > │ closure6() │
00:01:00 #2476 [verbose] > │ and method7 (v0 : string, v1 : string, v2 : UH0, v3 : US1) : struct (string │
00:01:00 #2477 [verbose] > │ * string) = │
00:01:00 #2478 [verbose] > │ match v2 with │
00:01:00 #2479 [verbose] > │ | UH0_1(v4, v5) -> (* Cons *) │
00:01:00 #2480 [verbose] > │ let v6 : bool = '"' = v4 │
00:01:00 #2481 [verbose] > │ if v6 then │
00:01:00 #2482 [verbose] > │ let v8 : bool = v1 = "" │
00:01:00 #2483 [verbose] > │ if v8 then │
00:01:00 #2484 [verbose] > │ let v9 : US2 = US2_0 │
00:01:00 #2485 [verbose] > │ let v10 : US1 = US1_1(v9) │
00:01:00 #2486 [verbose] > │ method7(v0, v1, v5, v10) │
00:01:00 #2487 [verbose] > │ else │
00:01:00 #2488 [verbose] > │ match v3 with │
00:01:00 #2489 [verbose] > │ | US1_2 -> (* Arguments *) │
00:01:00 #2490 [verbose] > │ let v38 : string = $"{v0}{v4}" │
00:01:00 #2491 [verbose] > │ let v39 : US1 = US1_2 │
00:01:00 #2492 [verbose] > │ method7(v38, v1, v5, v39) │
00:01:00 #2493 [verbose] > │ | US1_1(v13) -> (* Path *) │
00:01:00 #2494 [verbose] > │ match v13 with │
00:01:00 #2495 [verbose] > │ | US2_0 -> (* Quoted *) │
00:01:00 #2496 [verbose] > │ let v14 : US2 = US2_1 │
00:01:00 #2497 [verbose] > │ let v15 : US1 = US1_1(v14) │
00:01:00 #2498 [verbose] > │ method7(v0, v1, v5, v15) │
00:01:00 #2499 [verbose] > │ | _ -> │
00:01:00 #2500 [verbose] > │ let v18 : bool = ' ' = v4 │
00:01:00 #2501 [verbose] > │ if v18 then │
00:01:00 #2502 [verbose] > │ let v19 : US1 = US1_2 │
00:01:00 #2503 [verbose] > │ method7(v0, v1, v5, v19) │
00:01:00 #2504 [verbose] > │ else │
00:01:00 #2505 [verbose] > │ let v22 : string = $"{v1}{v4}" │
00:01:00 #2506 [verbose] > │ method7(v0, v22, v5, v3) │
00:01:00 #2507 [verbose] > │ | US1_0 -> (* Start *) │
00:01:00 #2508 [verbose] > │ let v29 : bool = ' ' = v4 │
00:01:00 #2509 [verbose] > │ if v29 then │
00:01:00 #2510 [verbose] > │ let v30 : US1 = US1_2 │
00:01:00 #2511 [verbose] > │ method7(v0, v1, v5, v30) │
00:01:00 #2512 [verbose] > │ else │
00:01:00 #2513 [verbose] > │ let v33 : string = $"{v1}{v4}" │
00:01:00 #2514 [verbose] > │ method7(v0, v33, v5, v3) │
00:01:00 #2515 [verbose] > │ else │
00:01:00 #2516 [verbose] > │ let v50 : bool = ''' = v4 │
00:01:00 #2517 [verbose] > │ if v50 then │
00:01:00 #2518 [verbose] > │ let v52 : bool = v1 = "" │
00:01:00 #2519 [verbose] > │ if v52 then │
00:01:00 #2520 [verbose] > │ let v53 : US2 = US2_0 │
00:01:00 #2521 [verbose] > │ let v54 : US1 = US1_1(v53) │
00:01:00 #2522 [verbose] > │ method7(v0, v1, v5, v54) │
00:01:00 #2523 [verbose] > │ else │
00:01:00 #2524 [verbose] > │ match v3 with │
00:01:00 #2525 [verbose] > │ | US1_2 -> (* Arguments *) │
00:01:00 #2526 [verbose] > │ let v82 : string = $"{v0}{v4}" │
00:01:00 #2527 [verbose] > │ let v83 : US1 = US1_2 │
00:01:00 #2528 [verbose] > │ method7(v82, v1, v5, v83) │
00:01:00 #2529 [verbose] > │ | US1_1(v57) -> (* Path *) │
00:01:00 #2530 [verbose] > │ match v57 with │
00:01:00 #2531 [verbose] > │ | US2_0 -> (* Quoted *) │
00:01:00 #2532 [verbose] > │ let v58 : US2 = US2_1 │
00:01:00 #2533 [verbose] > │ let v59 : US1 = US1_1(v58) │
00:01:00 #2534 [verbose] > │ method7(v0, v1, v5, v59) │
00:01:00 #2535 [verbose] > │ | _ -> │
00:01:00 #2536 [verbose] > │ let v62 : bool = ' ' = v4 │
00:01:00 #2537 [verbose] > │ if v62 then │
00:01:00 #2538 [verbose] > │ let v63 : US1 = US1_2 │
00:01:00 #2539 [verbose] > │ method7(v0, v1, v5, v63) │
00:01:00 #2540 [verbose] > │ else │
00:01:00 #2541 [verbose] > │ let v66 : string = $"{v1}{v4}" │
00:01:00 #2542 [verbose] > │ method7(v0, v66, v5, v3) │
00:01:00 #2543 [verbose] > │ | US1_0 -> (* Start *) │
00:01:00 #2544 [verbose] > │ let v73 : bool = ' ' = v4 │
00:01:00 #2545 [verbose] > │ if v73 then │
00:01:00 #2546 [verbose] > │ let v74 : US1 = US1_2 │
00:01:00 #2547 [verbose] > │ method7(v0, v1, v5, v74) │
00:01:00 #2548 [verbose] > │ else │
00:01:00 #2549 [verbose] > │ let v77 : string = $"{v1}{v4}" │
00:01:00 #2550 [verbose] > │ method7(v0, v77, v5, v3) │
00:01:00 #2551 [verbose] > │ else │
00:01:00 #2552 [verbose] > │ match v3 with │
00:01:00 #2553 [verbose] > │ | US1_2 -> (* Arguments *) │
00:01:00 #2554 [verbose] > │ let v126 : string = $"{v0}{v4}" │
00:01:00 #2555 [verbose] > │ let v127 : US1 = US1_2 │
00:01:00 #2556 [verbose] > │ method7(v126, v1, v5, v127) │
00:01:00 #2557 [verbose] > │ | US1_1(v94) -> (* Path *) │
00:01:00 #2558 [verbose] > │ match v94 with │
00:01:00 #2559 [verbose] > │ | US2_0 -> (* Quoted *) │
00:01:00 #2560 [verbose] > │ let v95 : bool = ' ' = v4 │
00:01:00 #2561 [verbose] > │ if v95 then │
00:01:00 #2562 [verbose] > │ let v96 : string = $"{v1} " │
00:01:00 #2563 [verbose] > │ let v97 : US2 = US2_0 │
00:01:00 #2564 [verbose] > │ let v98 : US1 = US1_1(v97) │
00:01:00 #2565 [verbose] > │ method7(v0, v96, v5, v98) │
00:01:00 #2566 [verbose] > │ else │
00:01:00 #2567 [verbose] > │ let v101 : string = $"{v1}{v4}" │
00:01:00 #2568 [verbose] > │ method7(v0, v101, v5, v3) │
00:01:00 #2569 [verbose] > │ | _ -> │
00:01:00 #2570 [verbose] > │ let v106 : bool = ' ' = v4 │
00:01:00 #2571 [verbose] > │ if v106 then │
00:01:00 #2572 [verbose] > │ let v107 : US1 = US1_2 │
00:01:00 #2573 [verbose] > │ method7(v0, v1, v5, v107) │
00:01:00 #2574 [verbose] > │ else │
00:01:00 #2575 [verbose] > │ let v110 : string = $"{v1}{v4}" │
00:01:00 #2576 [verbose] > │ method7(v0, v110, v5, v3) │
00:01:00 #2577 [verbose] > │ | US1_0 -> (* Start *) │
00:01:00 #2578 [verbose] > │ let v117 : bool = ' ' = v4 │
00:01:00 #2579 [verbose] > │ if v117 then │
00:01:00 #2580 [verbose] > │ let v118 : US1 = US1_2 │
00:01:00 #2581 [verbose] > │ method7(v0, v1, v5, v118) │
00:01:00 #2582 [verbose] > │ else │
00:01:00 #2583 [verbose] > │ let v121 : string = $"{v1}{v4}" │
00:01:00 #2584 [verbose] > │ method7(v0, v121, v5, v3) │
00:01:00 #2585 [verbose] > │ | _ -> │
00:01:00 #2586 [verbose] > │ match v3 with │
00:01:00 #2587 [verbose] > │ | US1_2 -> (* Arguments *) │
00:01:00 #2588 [verbose] > │ let v152 : string = "\\" │
00:01:00 #2589 [verbose] > │ let v153 : string = "/" │
00:01:00 #2590 [verbose] > │ let v154 : string = v1.Replace (v152, v153) │
00:01:00 #2591 [verbose] > │ struct (v154, v0) │
00:01:00 #2592 [verbose] > │ | US1_1(v140) -> (* Path *) │
00:01:00 #2593 [verbose] > │ match v140 with │
00:01:00 #2594 [verbose] > │ | US2_0 -> (* Quoted *) │
00:01:00 #2595 [verbose] > │ let v141 : string = "\\" │
00:01:00 #2596 [verbose] > │ let v142 : string = "/" │
00:01:00 #2597 [verbose] > │ let v143 : string = v1.Replace (v141, v142) │
00:01:00 #2598 [verbose] > │ struct (v143, v0) │
00:01:00 #2599 [verbose] > │ | _ -> │
00:01:00 #2600 [verbose] > │ let v144 : string = "\\" │
00:01:00 #2601 [verbose] > │ let v145 : string = "/" │
00:01:00 #2602 [verbose] > │ let v146 : string = v1.Replace (v144, v145) │
00:01:00 #2603 [verbose] > │ struct (v146, v0) │
00:01:00 #2604 [verbose] > │ | US1_0 -> (* Start *) │
00:01:00 #2605 [verbose] > │ let v149 : string = "\\" │
00:01:00 #2606 [verbose] > │ let v150 : string = "/" │
00:01:00 #2607 [verbose] > │ let v151 : string = v1.Replace (v149, v150) │
00:01:00 #2608 [verbose] > │ struct (v151, v0) │
00:01:00 #2609 [verbose] > │ and closure8 () (v0 : string) : US3 = │
00:01:00 #2610 [verbose] > │ US3_0(v0) │
00:01:00 #2611 [verbose] > │ and method8 () : (string -> US3) = │
00:01:00 #2612 [verbose] > │ closure8() │
00:01:00 #2613 [verbose] > │ and closure9 (v0 : System.Threading.CancellationToken option, v1 : string, │
00:01:00 #2614 [verbose] > │ v2 : (struct (bool * string * int32) -> Async<unit>) option, v3 : US0 │
00:01:00 #2615 [verbose] > │ option, v4 : string option) () : string = │
00:01:00 #2616 [verbose] > │ let v5 : string = $"execute_with_options_async / options: %A{struct (v0, │
00:01:00 #2617 [verbose] > │ v1, v2, v3, v4)}" │
00:01:00 #2618 [verbose] > │ v5 │
00:01:00 #2619 [verbose] > │ and method9 () : (unit -> string) = │
00:01:00 #2620 [verbose] > │ closure2() │
00:01:00 #2621 [verbose] > │ and method11 (v0 : int64 option) : int64 option = │
00:01:00 #2622 [verbose] > │ v0 │
00:01:00 #2623 [verbose] > │ and method12 (v0 : int64 option) : int64 option = │
00:01:00 #2624 [verbose] > │ v0 │
00:01:00 #2625 [verbose] > │ and closure10 () () : struct (Mut0 * Mut1 * Mut1 * Mut2 * int64 option) = │
00:01:00 #2626 [verbose] > │ let v0 : Mut1 = {l0 = true} : Mut1 │
00:01:00 #2627 [verbose] > │ let v1 : Mut0 = {l0 = 0L} : Mut0 │
00:01:00 #2628 [verbose] > │ let v2 : US0 = US0_0 │
00:01:00 #2629 [verbose] > │ let v3 : Mut2 = {l0 = v2} : Mut2 │
00:01:00 #2630 [verbose] > │ let v4 : Mut1 = {l0 = false} : Mut1 │
00:01:00 #2631 [verbose] > │ let v5 : int64 option option = None │
00:01:00 #2632 [verbose] > │ let mutable _v5 = v5 │
00:01:00 #2633 [verbose] > │ #if INTERACTIVE || !FABLE_COMPILER │
00:01:01 #2634 [verbose] > │ let v6 : string option = None │
00:01:01 #2635 [verbose] > │ let mutable _v6 = v6 │
00:01:01 #2636 [verbose] > │ #if FABLE_COMPILER_RUST && !WASM && !CONTRACT │
00:01:01 #2637 [verbose] > │ let v7 : string = null |> unbox<string> │
00:01:01 #2638 [verbose] > │ v7 │
00:01:01 #2639 [verbose] > │ #endif │
00:01:01 #2640 [verbose] > │ #if FABLE_COMPILER_RUST && WASM │
00:01:01 #2641 [verbose] > │ let v8 : string = null |> unbox<string> │
00:01:01 #2642 [verbose] > │ v8 │
00:01:01 #2643 [verbose] > │ #endif │
00:01:01 #2644 [verbose] > │ #if FABLE_COMPILER_RUST && CONTRACT │
00:01:01 #2645 [verbose] > │ let v9 : string = null |> unbox<string> │
00:01:01 #2646 [verbose] > │ v9 │
00:01:01 #2647 [verbose] > │ #endif │
00:01:01 #2648 [verbose] > │ #if !FABLE_COMPILER && !FABLE_COMPILER_RUST && │
00:01:01 #2649 [verbose] > │ !FABLE_COMPILER_TYPESCRIPT && !WASM && !CONTRACT │
00:01:01 #2650 [verbose] > │ let v10 : string = │
00:01:01 #2651 [verbose] > │ System.Reflection.Assembly.GetEntryAssembly().GetName().Name │
00:01:01 #2652 [verbose] > │ v10 │
00:01:01 #2653 [verbose] > │ #endif │
00:01:01 #2654 [verbose] > │ #if FABLE_COMPILER_TYPESCRIPT │
00:01:01 #2655 [verbose] > │ let v11 : string = null |> unbox<string> │
00:01:01 #2656 [verbose] > │ v11 │
00:01:01 #2657 [verbose] > │ #endif │
00:01:01 #2658 [verbose] > │ #if FABLE_COMPILER_PYTHON || FABLE_COMPILER_PHP || FABLE_COMPILER_DART │
00:01:01 #2659 [verbose] > │ let v12 : string = Unchecked.defaultof<string> │
00:01:01 #2660 [verbose] > │ v12 │
00:01:01 #2661 [verbose] > │ #endif │
00:01:01 #2662 [verbose] > │ |> fun x -> _v6 <- Some x │
00:01:01 #2663 [verbose] > │ let v13 : string = _v6.Value │
00:01:01 #2664 [verbose] > │ let v15 : bool = v13 = "Microsoft.DotNet.Interactive.App" │
00:01:01 #2665 [verbose] > │ let v16 : bool = v15 <> true │
00:01:01 #2666 [verbose] > │ let v22 : US4 = │
00:01:01 #2667 [verbose] > │ if v16 then │
00:01:01 #2668 [verbose] > │ let v17 : System.DateTime = System.DateTime.Now │
00:01:01 #2669 [verbose] > │ let v18 : (System.DateTime -> int64) = _.Ticks │
00:01:01 #2670 [verbose] > │ let v19 : int64 = v18 v17 │
00:01:01 #2671 [verbose] > │ US4_0(v19) │
00:01:01 #2672 [verbose] > │ else │
00:01:01 #2673 [verbose] > │ US4_1 │
00:01:01 #2674 [verbose] > │ let v27 : int64 option = │
00:01:01 #2675 [verbose] > │ match v22 with │
00:01:01 #2676 [verbose] > │ | US4_1 -> (* None *) │
00:01:01 #2677 [verbose] > │ let v25 : int64 option = None │
00:01:01 #2678 [verbose] > │ v25 │
00:01:01 #2679 [verbose] > │ | US4_0(v23) -> (* Some *) │
00:01:01 #2680 [verbose] > │ let v24 : int64 option = Some v23 │
00:01:01 #2681 [verbose] > │ v24 │
00:01:01 #2682 [verbose] > │ let v28 : int64 option = method11(v27) │
00:01:01 #2683 [verbose] > │ v28 │
00:01:01 #2684 [verbose] > │ #else │
00:01:01 #2685 [verbose] > │ let v29 : int64 option = None │
00:01:01 #2686 [verbose] > │ let v30 : int64 option = method12(v29) │
00:01:01 #2687 [verbose] > │ v30 │
00:01:01 #2688 [verbose] > │ #endif │
00:01:01 #2689 [verbose] > │ |> fun x -> _v5 <- Some x │
00:01:01 #2690 [verbose] > │ let v31 : int64 option = _v5.Value │
00:01:01 #2691 [verbose] > │ struct (v1, v4, v0, v3, v31) │
00:01:01 #2692 [verbose] > │ and closure12 () (v0 : int64) : US5 = │
00:01:01 #2693 [verbose] > │ US5_0(v0) │
00:01:01 #2694 [verbose] > │ and method13 () : (int64 -> US5) = │
00:01:01 #2695 [verbose] > │ closure12() │
00:01:01 #2696 [verbose] > │ and method14 () : string = │
00:01:01 #2697 [verbose] > │ let v0 : string = "" │
00:01:01 #2698 [verbose] > │ v0 │
00:01:01 #2699 [verbose] > │ and closure11 (v0 : US0, v1 : (unit -> string), v2 : (unit -> string)) () : │
00:01:01 #2700 [verbose] > │ string = │
00:01:01 #2701 [verbose] > │ let v3 : (unit -> struct (Mut0 * Mut1 * Mut1 * Mut2 * int64 option)) = │
00:01:01 #2702 [verbose] > │ closure10() │
00:01:01 #2703 [verbose] > │ if State.trace_state = None then State.trace_state <- v3 () |> Some │
00:01:01 #2704 [verbose] > │ let struct (v4 : Mut0, v5 : Mut1, v6 : Mut1, v7 : Mut2, v8 : int64 │
00:01:01 #2705 [verbose] > │ option) = State.trace_state.Value │
00:01:01 #2706 [verbose] > │ let v9 : string option = None │
00:01:01 #2707 [verbose] > │ let mutable _v9 = v9 │
00:01:01 #2708 [verbose] > │ #if FABLE_COMPILER_RUST && !WASM && !CONTRACT │
00:01:01 #2709 [verbose] > │ let v10 : (int64 -> US5) = method13() │
00:01:01 #2710 [verbose] > │ let v11 : US5 = US5_1 │
00:01:01 #2711 [verbose] > │ let v12 : US5 = v8 |> Option.map v10 |> Option.defaultValue v11 │
00:01:01 #2712 [verbose] > │ let v30 : System.DateTime = │
00:01:01 #2713 [verbose] > │ match v12 with │
00:01:01 #2714 [verbose] > │ | US5_1 -> (* None *) │
00:01:01 #2715 [verbose] > │ let v28 : System.DateTime = System.DateTime.Now │
00:01:01 #2716 [verbose] > │ v28 │
00:01:01 #2717 [verbose] > │ | US5_0(v13) -> (* Some *) │
00:01:01 #2718 [verbose] > │ let v14 : System.DateTime = System.DateTime.Now │
00:01:01 #2719 [verbose] > │ let v15 : (System.DateTime -> int64) = _.Ticks │
00:01:01 #2720 [verbose] > │ let v16 : int64 = v15 v14 │
00:01:01 #2721 [verbose] > │ let v17 : int64 = v16 - v13 │
00:01:01 #2722 [verbose] > │ let v18 : System.TimeSpan = System.TimeSpan v17 │
00:01:01 #2723 [verbose] > │ let v19 : (System.TimeSpan -> int32) = _.Hours │
00:01:01 #2724 [verbose] > │ let v20 : int32 = v19 v18 │
00:01:01 #2725 [verbose] > │ let v21 : (System.TimeSpan -> int32) = _.Minutes │
00:01:01 #2726 [verbose] > │ let v22 : int32 = v21 v18 │
00:01:01 #2727 [verbose] > │ let v23 : (System.TimeSpan -> int32) = _.Seconds │
00:01:01 #2728 [verbose] > │ let v24 : int32 = v23 v18 │
00:01:01 #2729 [verbose] > │ let v25 : (System.TimeSpan -> int32) = _.Milliseconds │
00:01:01 #2730 [verbose] > │ let v26 : int32 = v25 v18 │
00:01:01 #2731 [verbose] > │ let v27 : System.DateTime = System.DateTime (1, 1, 1, v20, v22, │
00:01:01 #2732 [verbose] > │ v24, v26) │
00:01:01 #2733 [verbose] > │ v27 │
00:01:01 #2734 [verbose] > │ let v31 : string = "hh:mm:ss" │
00:01:01 #2735 [verbose] > │ let v32 : string = v30.ToString v31 │
00:01:01 #2736 [verbose] > │ v32 │
00:01:01 #2737 [verbose] > │ #endif │
00:01:01 #2738 [verbose] > │ #if FABLE_COMPILER_RUST && WASM │
00:01:01 #2739 [verbose] > │ let v33 : string = method14() │
00:01:01 #2740 [verbose] > │ v33 │
00:01:01 #2741 [verbose] > │ #endif │
00:01:01 #2742 [verbose] > │ #if FABLE_COMPILER_RUST && CONTRACT │
00:01:01 #2743 [verbose] > │ let v34 : string = method14() │
00:01:01 #2744 [verbose] > │ v34 │
00:01:01 #2745 [verbose] > │ #endif │
00:01:01 #2746 [verbose] > │ #if !FABLE_COMPILER && !FABLE_COMPILER_RUST && │
00:01:01 #2747 [verbose] > │ !FABLE_COMPILER_TYPESCRIPT && !WASM && !CONTRACT │
00:01:01 #2748 [verbose] > │ let v35 : (int64 -> US5) = method13() │
00:01:01 #2749 [verbose] > │ let v36 : US5 = US5_1 │
00:01:01 #2750 [verbose] > │ let v37 : US5 = v8 |> Option.map v35 |> Option.defaultValue v36 │
00:01:01 #2751 [verbose] > │ let v55 : System.DateTime = │
00:01:01 #2752 [verbose] > │ match v37 with │
00:01:01 #2753 [verbose] > │ | US5_1 -> (* None *) │
00:01:01 #2754 [verbose] > │ let v53 : System.DateTime = System.DateTime.Now │
00:01:01 #2755 [verbose] > │ v53 │
00:01:01 #2756 [verbose] > │ | US5_0(v38) -> (* Some *) │
00:01:01 #2757 [verbose] > │ let v39 : System.DateTime = System.DateTime.Now │
00:01:01 #2758 [verbose] > │ let v40 : (System.DateTime -> int64) = _.Ticks │
00:01:01 #2759 [verbose] > │ let v41 : int64 = v40 v39 │
00:01:01 #2760 [verbose] > │ let v42 : int64 = v41 - v38 │
00:01:01 #2761 [verbose] > │ let v43 : System.TimeSpan = System.TimeSpan v42 │
00:01:01 #2762 [verbose] > │ let v44 : (System.TimeSpan -> int32) = _.Hours │
00:01:01 #2763 [verbose] > │ let v45 : int32 = v44 v43 │
00:01:01 #2764 [verbose] > │ let v46 : (System.TimeSpan -> int32) = _.Minutes │
00:01:01 #2765 [verbose] > │ let v47 : int32 = v46 v43 │
00:01:01 #2766 [verbose] > │ let v48 : (System.TimeSpan -> int32) = _.Seconds │
00:01:01 #2767 [verbose] > │ let v49 : int32 = v48 v43 │
00:01:01 #2768 [verbose] > │ let v50 : (System.TimeSpan -> int32) = _.Milliseconds │
00:01:01 #2769 [verbose] > │ let v51 : int32 = v50 v43 │
00:01:01 #2770 [verbose] > │ let v52 : System.DateTime = System.DateTime (1, 1, 1, v45, v47, │
00:01:01 #2771 [verbose] > │ v49, v51) │
00:01:01 #2772 [verbose] > │ v52 │
00:01:01 #2773 [verbose] > │ let v56 : string = "HH:mm:ss" │
00:01:01 #2774 [verbose] > │ let v57 : string = v55.ToString v56 │
00:01:01 #2775 [verbose] > │ v57 │
00:01:01 #2776 [verbose] > │ #endif │
00:01:01 #2777 [verbose] > │ #if FABLE_COMPILER_TYPESCRIPT │
00:01:01 #2778 [verbose] > │ let v58 : string = method14() │
00:01:01 #2779 [verbose] > │ v58 │
00:01:01 #2780 [verbose] > │ #endif │
00:01:01 #2781 [verbose] > │ #if FABLE_COMPILER_PYTHON || FABLE_COMPILER_PHP || FABLE_COMPILER_DART │
00:01:01 #2782 [verbose] > │ let v59 : string = Unchecked.defaultof<string> │
00:01:01 #2783 [verbose] > │ v59 │
00:01:01 #2784 [verbose] > │ #endif │
00:01:01 #2785 [verbose] > │ |> fun x -> _v9 <- Some x │
00:01:01 #2786 [verbose] > │ let v60 : string = _v9.Value │
00:01:01 #2787 [verbose] > │ let v61 : int64 = v4.l0 │
00:01:01 #2788 [verbose] > │ let v71 : string = │
00:01:01 #2789 [verbose] > │ match v0 with │
00:01:01 #2790 [verbose] > │ | US0_4 -> (* Critical *) │
00:01:01 #2791 [verbose] > │ let v66 : string = "Critical" │
00:01:01 #2792 [verbose] > │ v66 │
00:01:01 #2793 [verbose] > │ | US0_1 -> (* Debug *) │
00:01:01 #2794 [verbose] > │ let v63 : string = "Debug" │
00:01:01 #2795 [verbose] > │ v63 │
00:01:01 #2796 [verbose] > │ | US0_2 -> (* Info *) │
00:01:01 #2797 [verbose] > │ let v64 : string = "Info" │
00:01:01 #2798 [verbose] > │ v64 │
00:01:01 #2799 [verbose] > │ | US0_0 -> (* Verbose *) │
00:01:01 #2800 [verbose] > │ let v62 : string = "Verbose" │
00:01:01 #2801 [verbose] > │ v62 │
00:01:01 #2802 [verbose] > │ | US0_3 -> (* Warning *) │
00:01:01 #2803 [verbose] > │ let v65 : string = "Warning" │
00:01:01 #2804 [verbose] > │ v65 │
00:01:01 #2805 [verbose] > │ let v72 : string = v71.ToLower () │
00:01:01 #2806 [verbose] > │ let v73 : string = $"{v60} #{v61} [{v72}] %s{v1 ()} / %s{v2 ()}" │
00:01:01 #2807 [verbose] > │ let v74 : (char []) = [||] │
00:01:01 #2808 [verbose] > │ let v75 : string = v73.TrimStart v74 │
00:01:01 #2809 [verbose] > │ let v76 : (char []) = [|' '; '/'|] │
00:01:01 #2810 [verbose] > │ let v77 : string = v75.TrimEnd v76 │
00:01:01 #2811 [verbose] > │ v77 │
00:01:01 #2812 [verbose] > │ and method10 (v0 : US0, v1 : (unit -> string), v2 : (unit -> string)) : unit │
00:01:01 #2813 [verbose] > │ = │
00:01:01 #2814 [verbose] > │ let v3 : (unit -> struct (Mut0 * Mut1 * Mut1 * Mut2 * int64 option)) = │
00:01:01 #2815 [verbose] > │ closure10() │
00:01:01 #2816 [verbose] > │ if State.trace_state = None then State.trace_state <- v3 () |> Some │
00:01:01 #2817 [verbose] > │ let struct (v4 : Mut0, v5 : Mut1, v6 : Mut1, v7 : Mut2, v8 : int64 │
00:01:01 #2818 [verbose] > │ option) = State.trace_state.Value │
00:01:01 #2819 [verbose] > │ if State.trace_state = None then State.trace_state <- v3 () |> Some │
00:01:01 #2820 [verbose] > │ let struct (v9 : Mut0, v10 : Mut1, v11 : Mut1, v12 : Mut2, v13 : int64 │
00:01:01 #2821 [verbose] > │ option) = State.trace_state.Value │
00:01:01 #2822 [verbose] > │ let v14 : US0 = v12.l0 │
00:01:01 #2823 [verbose] > │ let v15 : bool = v11.l0 │
00:01:01 #2824 [verbose] > │ let v17 : bool = │
00:01:01 #2825 [verbose] > │ if v15 then │
00:01:01 #2826 [verbose] > │ let v16 : bool = v0 >= v14 │
00:01:01 #2827 [verbose] > │ v16 │
00:01:01 #2828 [verbose] > │ else │
00:01:01 #2829 [verbose] > │ false │
00:01:01 #2830 [verbose] > │ if v17 then │
00:01:01 #2831 [verbose] > │ let v18 : int64 = v4.l0 │
00:01:01 #2832 [verbose] > │ let v19 : int64 = v18 + 1L │
00:01:01 #2833 [verbose] > │ v4.l0 <- v19 │
00:01:01 #2834 [verbose] > │ let v20 : (unit -> string) = closure11(v0, v1, v2) │
00:01:01 #2835 [verbose] > │ let v21 : string = $"%s{v20 ()}" │
00:01:01 #2836 [verbose] > │ let v22 : unit option = None │
00:01:01 #2837 [verbose] > │ let mutable _v22 = v22 │
00:01:01 #2838 [verbose] > │ #if FABLE_COMPILER_RUST && !WASM && !CONTRACT │
00:01:01 #2839 [verbose] > │ let v23 : string = @"println!(""{}"", $0)" │
00:01:01 #2840 [verbose] > │ Fable.Core.RustInterop.emitRustExpr v21 v23 │
00:01:01 #2841 [verbose] > │ () │
00:01:01 #2842 [verbose] > │ #endif │
00:01:01 #2843 [verbose] > │ #if FABLE_COMPILER_RUST && WASM │
00:01:01 #2844 [verbose] > │ let v24 : string = @"println!(""{}"", $0)" │
00:01:01 #2845 [verbose] > │ Fable.Core.RustInterop.emitRustExpr v21 v24 │
00:01:01 #2846 [verbose] > │ () │
00:01:01 #2847 [verbose] > │ #endif │
00:01:01 #2848 [verbose] > │ #if FABLE_COMPILER_RUST && CONTRACT │
00:01:01 #2849 [verbose] > │ let v25 : string = @"println!(""{}"", $0)" │
00:01:01 #2850 [verbose] > │ Fable.Core.RustInterop.emitRustExpr v21 v25 │
00:01:01 #2851 [verbose] > │ () │
00:01:01 #2852 [verbose] > │ #endif │
00:01:01 #2853 [verbose] > │ #if !FABLE_COMPILER && !FABLE_COMPILER_RUST && │
00:01:01 #2854 [verbose] > │ !FABLE_COMPILER_TYPESCRIPT && !WASM && !CONTRACT │
00:01:01 #2855 [verbose] > │ System.Console.WriteLine v21 │
00:01:01 #2856 [verbose] > │ () │
00:01:01 #2857 [verbose] > │ #endif │
00:01:01 #2858 [verbose] > │ #if FABLE_COMPILER_TYPESCRIPT │
00:01:01 #2859 [verbose] > │ System.Console.WriteLine v21 │
00:01:01 #2860 [verbose] > │ () │
00:01:01 #2861 [verbose] > │ #endif │
00:01:01 #2862 [verbose] > │ #if FABLE_COMPILER_PYTHON || FABLE_COMPILER_PHP || │
00:01:01 #2863 [verbose] > │ FABLE_COMPILER_DART │
00:01:01 #2864 [verbose] > │ Unchecked.defaultof<unit> │
00:01:01 #2865 [verbose] > │ () │
00:01:01 #2866 [verbose] > │ #endif │
00:01:01 #2867 [verbose] > │ |> fun x -> _v22 <- Some x │
00:01:01 #2868 [verbose] > │ _v22.Value │
00:01:01 #2869 [verbose] > │ () │
00:01:01 #2870 [verbose] > │ and closure14 () (v0 : (struct (bool * string * int32) -> Async<unit>)) : │
00:01:01 #2871 [verbose] > │ US6 = │
00:01:01 #2872 [verbose] > │ US6_0(v0) │
00:01:01 #2873 [verbose] > │ and method15 () : ((struct (bool * string * int32) -> Async<unit>) -> US6) = │
00:01:01 #2874 [verbose] > │ closure14() │
00:01:01 #2875 [verbose] > │ and closure15 (v0 : string) () : string = │
00:01:01 #2876 [verbose] > │ let v1 : string = $"> {v0}" │
00:01:01 #2877 [verbose] > │ v1 │
00:01:01 #2878 [verbose] > │ and closure13 (v0 : System.Threading.CancellationToken option, v1 : string, │
00:01:01 #2879 [verbose] > │ v2 : (struct (bool * string * int32) -> Async<unit>) option, v3 : US0 │
00:01:01 #2880 [verbose] > │ option, v4 : string option, v5 : System.Diagnostics.Process, v6 : │
00:01:01 #2881 [verbose] > │ System.Collections.Concurrent.ConcurrentStack<string>) (v7 : │
00:01:01 #2882 [verbose] > │ System.Diagnostics.DataReceivedEventArgs) : unit = │
00:01:01 #2883 [verbose] > │ let v8 : Async<unit> option = None │
00:01:01 #2884 [verbose] > │ let mutable _v8 = v8 │
00:01:01 #2885 [verbose] > │ #if FABLE_COMPILER_RUST && !WASM && !CONTRACT │
00:01:01 #2886 [verbose] > │ let v9 : Async<unit> = null |> unbox<Async<unit>> │
00:01:01 #2887 [verbose] > │ v9 │
00:01:01 #2888 [verbose] > │ #endif │
00:01:01 #2889 [verbose] > │ #if FABLE_COMPILER_RUST && WASM │
00:01:01 #2890 [verbose] > │ let v10 : Async<unit> = null |> unbox<Async<unit>> │
00:01:01 #2891 [verbose] > │ v10 │
00:01:01 #2892 [verbose] > │ #endif │
00:01:01 #2893 [verbose] > │ #if FABLE_COMPILER_RUST && CONTRACT │
00:01:01 #2894 [verbose] > │ let v11 : Async<unit> = null |> unbox<Async<unit>> │
00:01:01 #2895 [verbose] > │ v11 │
00:01:01 #2896 [verbose] > │ #endif │
00:01:01 #2897 [verbose] > │ #if !FABLE_COMPILER && !FABLE_COMPILER_RUST && │
00:01:01 #2898 [verbose] > │ !FABLE_COMPILER_TYPESCRIPT && !WASM && !CONTRACT │
00:01:01 #2899 [verbose] > │ let v12 : Async<unit> option = None │
00:01:01 #2900 [verbose] > │ let mutable _v12 = v12 │
00:01:01 #2901 [verbose] > │ async { │
00:01:01 #2902 [verbose] > │ let v13 : string = v7.Data │
00:01:01 #2903 [verbose] > │ let v14 : string = null |> unbox<string> │
00:01:01 #2904 [verbose] > │ let v15 : bool = v13 = v14 │
00:01:01 #2905 [verbose] > │ let v16 : bool = v15 <> true │
00:01:01 #2906 [verbose] > │ if v16 then │
00:01:01 #2907 [verbose] > │ let v17 : ((struct (bool * string * int32) -> Async<unit>) -> US6) = │
00:01:01 #2908 [verbose] > │ method15() │
00:01:01 #2909 [verbose] > │ let v18 : US6 = US6_1 │
00:01:01 #2910 [verbose] > │ let v19 : US6 = v2 |> Option.map v17 |> Option.defaultValue v18 │
00:01:01 #2911 [verbose] > │ match v19 with │
00:01:01 #2912 [verbose] > │ | US6_1 -> (* None *) │
00:01:01 #2913 [verbose] > │ () │
00:01:01 #2914 [verbose] > │ | US6_0(v20) -> (* Some *) │
00:01:01 #2915 [verbose] > │ let v21 : int32 = v5.Id │
00:01:01 #2916 [verbose] > │ let v22 : Async<unit> = v20 struct (false, v13, v21) │
00:01:01 #2917 [verbose] > │ do! v22 │
00:01:01 #2918 [verbose] > │ () │
00:01:01 #2919 [verbose] > │ let v23 : US0 = US0_0 │
00:01:01 #2920 [verbose] > │ let v24 : (unit -> string) = closure15(v13) │
00:01:01 #2921 [verbose] > │ let v25 : (unit -> string) = closure2() │
00:01:01 #2922 [verbose] > │ method10(v23, v24, v25) │
00:01:01 #2923 [verbose] > │ let v26 : string = "" │
00:01:01 #2924 [verbose] > │ let v27 : string = $"{v26}{v13}{v26}" │
00:01:01 #2925 [verbose] > │ let v28 : (string -> unit) = v6.Push │
00:01:01 #2926 [verbose] > │ v28 v27 │
00:01:01 #2927 [verbose] > │ } │
00:01:01 #2928 [verbose] > │ |> fun x -> _v12 <- Some x │
00:01:01 #2929 [verbose] > │ let v29 : Async<unit> = _v12 |> Option.get │
00:01:01 #2930 [verbose] > │ v29 │
00:01:01 #2931 [verbose] > │ #endif │
00:01:01 #2932 [verbose] > │ #if FABLE_COMPILER_TYPESCRIPT │
00:01:01 #2933 [verbose] > │ let v30 : Async<unit> = null |> unbox<Async<unit>> │
00:01:01 #2934 [verbose] > │ v30 │
00:01:01 #2935 [verbose] > │ #endif │
00:01:01 #2936 [verbose] > │ #if FABLE_COMPILER_PYTHON || FABLE_COMPILER_PHP || FABLE_COMPILER_DART │
00:01:01 #2937 [verbose] > │ let v31 : Async<unit> = Unchecked.defaultof<Async<unit>> │
00:01:01 #2938 [verbose] > │ v31 │
00:01:01 #2939 [verbose] > │ #endif │
00:01:01 #2940 [verbose] > │ |> fun x -> _v8 <- Some x │
00:01:01 #2941 [verbose] > │ let v32 : Async<unit> = _v8.Value │
00:01:01 #2942 [verbose] > │ let v33 : unit option = None │
00:01:01 #2943 [verbose] > │ let mutable _v33 = v33 │
00:01:01 #2944 [verbose] > │ #if FABLE_COMPILER_RUST && !WASM && !CONTRACT │
00:01:01 #2945 [verbose] > │ null |> unbox<unit> │
00:01:01 #2946 [verbose] > │ () │
00:01:01 #2947 [verbose] > │ #endif │
00:01:01 #2948 [verbose] > │ #if FABLE_COMPILER_RUST && WASM │
00:01:01 #2949 [verbose] > │ null |> unbox<unit> │
00:01:01 #2950 [verbose] > │ () │
00:01:01 #2951 [verbose] > │ #endif │
00:01:01 #2952 [verbose] > │ #if FABLE_COMPILER_RUST && CONTRACT │
00:01:01 #2953 [verbose] > │ null |> unbox<unit> │
00:01:01 #2954 [verbose] > │ () │
00:01:01 #2955 [verbose] > │ #endif │
00:01:01 #2956 [verbose] > │ #if !FABLE_COMPILER && !FABLE_COMPILER_RUST && │
00:01:01 #2957 [verbose] > │ !FABLE_COMPILER_TYPESCRIPT && !WASM && !CONTRACT │
00:01:01 #2958 [verbose] > │ let v34 : (Async<unit> -> unit) = Async.StartImmediate │
00:01:01 #2959 [verbose] > │ v34 v32 │
00:01:01 #2960 [verbose] > │ () │
00:01:01 #2961 [verbose] > │ #endif │
00:01:01 #2962 [verbose] > │ #if FABLE_COMPILER_TYPESCRIPT │
00:01:01 #2963 [verbose] > │ null |> unbox<unit> │
00:01:01 #2964 [verbose] > │ () │
00:01:01 #2965 [verbose] > │ #endif │
00:01:01 #2966 [verbose] > │ #if FABLE_COMPILER_PYTHON || FABLE_COMPILER_PHP || FABLE_COMPILER_DART │
00:01:01 #2967 [verbose] > │ Unchecked.defaultof<unit> │
00:01:01 #2968 [verbose] > │ () │
00:01:01 #2969 [verbose] > │ #endif │
00:01:01 #2970 [verbose] > │ |> fun x -> _v33 <- Some x │
00:01:01 #2971 [verbose] > │ _v33.Value │
00:01:01 #2972 [verbose] > │ () │
00:01:01 #2973 [verbose] > │ and closure16 (v0 : System.Threading.CancellationToken option, v1 : string, │
00:01:01 #2974 [verbose] > │ v2 : (struct (bool * string * int32) -> Async<unit>) option, v3 : US0 │
00:01:01 #2975 [verbose] > │ option, v4 : string option, v5 : System.Diagnostics.Process, v6 : │
00:01:01 #2976 [verbose] > │ System.Collections.Concurrent.ConcurrentStack<string>) (v7 : │
00:01:01 #2977 [verbose] > │ System.Diagnostics.DataReceivedEventArgs) : unit = │
00:01:01 #2978 [verbose] > │ let v8 : Async<unit> option = None │
00:01:01 #2979 [verbose] > │ let mutable _v8 = v8 │
00:01:01 #2980 [verbose] > │ #if FABLE_COMPILER_RUST && !WASM && !CONTRACT │
00:01:01 #2981 [verbose] > │ let v9 : Async<unit> = null |> unbox<Async<unit>> │
00:01:01 #2982 [verbose] > │ v9 │
00:01:01 #2983 [verbose] > │ #endif │
00:01:01 #2984 [verbose] > │ #if FABLE_COMPILER_RUST && WASM │
00:01:01 #2985 [verbose] > │ let v10 : Async<unit> = null |> unbox<Async<unit>> │
00:01:01 #2986 [verbose] > │ v10 │
00:01:01 #2987 [verbose] > │ #endif │
00:01:01 #2988 [verbose] > │ #if FABLE_COMPILER_RUST && CONTRACT │
00:01:01 #2989 [verbose] > │ let v11 : Async<unit> = null |> unbox<Async<unit>> │
00:01:01 #2990 [verbose] > │ v11 │
00:01:01 #2991 [verbose] > │ #endif │
00:01:01 #2992 [verbose] > │ #if !FABLE_COMPILER && !FABLE_COMPILER_RUST && │
00:01:01 #2993 [verbose] > │ !FABLE_COMPILER_TYPESCRIPT && !WASM && !CONTRACT │
00:01:01 #2994 [verbose] > │ let v12 : Async<unit> option = None │
00:01:01 #2995 [verbose] > │ let mutable _v12 = v12 │
00:01:01 #2996 [verbose] > │ async { │
00:01:01 #2997 [verbose] > │ let v13 : string = v7.Data │
00:01:01 #2998 [verbose] > │ let v14 : string = null |> unbox<string> │
00:01:01 #2999 [verbose] > │ let v15 : bool = v13 = v14 │
00:01:01 #3000 [verbose] > │ let v16 : bool = v15 <> true │
00:01:01 #3001 [verbose] > │ if v16 then │
00:01:01 #3002 [verbose] > │ let v17 : ((struct (bool * string * int32) -> Async<unit>) -> US6) = │
00:01:01 #3003 [verbose] > │ method15() │
00:01:01 #3004 [verbose] > │ let v18 : US6 = US6_1 │
00:01:01 #3005 [verbose] > │ let v19 : US6 = v2 |> Option.map v17 |> Option.defaultValue v18 │
00:01:01 #3006 [verbose] > │ match v19 with │
00:01:01 #3007 [verbose] > │ | US6_1 -> (* None *) │
00:01:01 #3008 [verbose] > │ () │
00:01:01 #3009 [verbose] > │ | US6_0(v20) -> (* Some *) │
00:01:01 #3010 [verbose] > │ let v21 : int32 = v5.Id │
00:01:01 #3011 [verbose] > │ let v22 : Async<unit> = v20 struct (true, v13, v21) │
00:01:01 #3012 [verbose] > │ do! v22 │
00:01:01 #3013 [verbose] > │ () │
00:01:01 #3014 [verbose] > │ let v23 : US0 = US0_0 │
00:01:01 #3015 [verbose] > │ let v24 : (unit -> string) = closure15(v13) │
00:01:01 #3016 [verbose] > │ let v25 : (unit -> string) = closure2() │
00:01:01 #3017 [verbose] > │ method10(v23, v24, v25) │
00:01:01 #3018 [verbose] > │ let v26 : string = "[" │
00:01:01 #3019 [verbose] > │ let v27 : string = "]" │
00:01:01 #3020 [verbose] > │ let v28 : string = $"{v26}{v13}{v27}" │
00:01:01 #3021 [verbose] > │ let v29 : (string -> unit) = v6.Push │
00:01:01 #3022 [verbose] > │ v29 v28 │
00:01:01 #3023 [verbose] > │ } │
00:01:01 #3024 [verbose] > │ |> fun x -> _v12 <- Some x │
00:01:01 #3025 [verbose] > │ let v30 : Async<unit> = _v12 |> Option.get │
00:01:01 #3026 [verbose] > │ v30 │
00:01:01 #3027 [verbose] > │ #endif │
00:01:01 #3028 [verbose] > │ #if FABLE_COMPILER_TYPESCRIPT │
00:01:01 #3029 [verbose] > │ let v31 : Async<unit> = null |> unbox<Async<unit>> │
00:01:01 #3030 [verbose] > │ v31 │
00:01:01 #3031 [verbose] > │ #endif │
00:01:01 #3032 [verbose] > │ #if FABLE_COMPILER_PYTHON || FABLE_COMPILER_PHP || FABLE_COMPILER_DART │
00:01:01 #3033 [verbose] > │ let v32 : Async<unit> = Unchecked.defaultof<Async<unit>> │
00:01:01 #3034 [verbose] > │ v32 │
00:01:01 #3035 [verbose] > │ #endif │
00:01:01 #3036 [verbose] > │ |> fun x -> _v8 <- Some x │
00:01:01 #3037 [verbose] > │ let v33 : Async<unit> = _v8.Value │
00:01:01 #3038 [verbose] > │ let v34 : unit option = None │
00:01:01 #3039 [verbose] > │ let mutable _v34 = v34 │
00:01:01 #3040 [verbose] > │ #if FABLE_COMPILER_RUST && !WASM && !CONTRACT │
00:01:01 #3041 [verbose] > │ null |> unbox<unit> │
00:01:01 #3042 [verbose] > │ () │
00:01:01 #3043 [verbose] > │ #endif │
00:01:01 #3044 [verbose] > │ #if FABLE_COMPILER_RUST && WASM │
00:01:01 #3045 [verbose] > │ null |> unbox<unit> │
00:01:01 #3046 [verbose] > │ () │
00:01:01 #3047 [verbose] > │ #endif │
00:01:01 #3048 [verbose] > │ #if FABLE_COMPILER_RUST && CONTRACT │
00:01:01 #3049 [verbose] > │ null |> unbox<unit> │
00:01:01 #3050 [verbose] > │ () │
00:01:01 #3051 [verbose] > │ #endif │
00:01:01 #3052 [verbose] > │ #if !FABLE_COMPILER && !FABLE_COMPILER_RUST && │
00:01:01 #3053 [verbose] > │ !FABLE_COMPILER_TYPESCRIPT && !WASM && !CONTRACT │
00:01:01 #3054 [verbose] > │ let v35 : (Async<unit> -> unit) = Async.StartImmediate │
00:01:01 #3055 [verbose] > │ v35 v33 │
00:01:01 #3056 [verbose] > │ () │
00:01:01 #3057 [verbose] > │ #endif │
00:01:01 #3058 [verbose] > │ #if FABLE_COMPILER_TYPESCRIPT │
00:01:01 #3059 [verbose] > │ null |> unbox<unit> │
00:01:01 #3060 [verbose] > │ () │
00:01:01 #3061 [verbose] > │ #endif │
00:01:01 #3062 [verbose] > │ #if FABLE_COMPILER_PYTHON || FABLE_COMPILER_PHP || FABLE_COMPILER_DART │
00:01:01 #3063 [verbose] > │ Unchecked.defaultof<unit> │
00:01:01 #3064 [verbose] > │ () │
00:01:01 #3065 [verbose] > │ #endif │
00:01:01 #3066 [verbose] > │ |> fun x -> _v34 <- Some x │
00:01:01 #3067 [verbose] > │ _v34.Value │
00:01:01 #3068 [verbose] > │ () │
00:01:01 #3069 [verbose] > │ and closure17 () (v0 : System.Threading.CancellationToken) : US7 = │
00:01:01 #3070 [verbose] > │ US7_0(v0) │
00:01:01 #3071 [verbose] > │ and method16 () : (System.Threading.CancellationToken -> US7) = │
00:01:01 #3072 [verbose] > │ closure17() │
00:01:01 #3073 [verbose] > │ and closure18 (v0 : System.Diagnostics.Process) () : unit = │
00:01:01 #3074 [verbose] > │ let v1 : bool option = None │
00:01:01 #3075 [verbose] > │ let mutable _v1 = v1 │
00:01:01 #3076 [verbose] > │ #if FABLE_COMPILER_RUST && !WASM && !CONTRACT │
00:01:01 #3077 [verbose] > │ let v2 : bool = null |> unbox<bool> │
00:01:01 #3078 [verbose] > │ v2 │
00:01:01 #3079 [verbose] > │ #endif │
00:01:01 #3080 [verbose] > │ #if FABLE_COMPILER_RUST && WASM │
00:01:01 #3081 [verbose] > │ let v3 : bool = null |> unbox<bool> │
00:01:01 #3082 [verbose] > │ v3 │
00:01:01 #3083 [verbose] > │ #endif │
00:01:01 #3084 [verbose] > │ #if FABLE_COMPILER_RUST && CONTRACT │
00:01:01 #3085 [verbose] > │ let v4 : bool = null |> unbox<bool> │
00:01:01 #3086 [verbose] > │ v4 │
00:01:01 #3087 [verbose] > │ #endif │
00:01:01 #3088 [verbose] > │ #if !FABLE_COMPILER && !FABLE_COMPILER_RUST && │
00:01:01 #3089 [verbose] > │ !FABLE_COMPILER_TYPESCRIPT && !WASM && !CONTRACT │
00:01:01 #3090 [verbose] > │ let v5 : bool = v0.HasExited │
00:01:01 #3091 [verbose] > │ v5 │
00:01:01 #3092 [verbose] > │ #endif │
00:01:01 #3093 [verbose] > │ #if FABLE_COMPILER_TYPESCRIPT │
00:01:01 #3094 [verbose] > │ let v6 : bool = null |> unbox<bool> │
00:01:01 #3095 [verbose] > │ v6 │
00:01:01 #3096 [verbose] > │ #endif │
00:01:01 #3097 [verbose] > │ #if FABLE_COMPILER_PYTHON || FABLE_COMPILER_PHP || FABLE_COMPILER_DART │
00:01:01 #3098 [verbose] > │ let v7 : bool = Unchecked.defaultof<bool> │
00:01:01 #3099 [verbose] > │ v7 │
00:01:01 #3100 [verbose] > │ #endif │
00:01:01 #3101 [verbose] > │ |> fun x -> _v1 <- Some x │
00:01:01 #3102 [verbose] > │ let v8 : bool = _v1.Value │
00:01:01 #3103 [verbose] > │ let v9 : bool = v8 = false │
00:01:01 #3104 [verbose] > │ if v9 then │
00:01:01 #3105 [verbose] > │ let v10 : unit option = None │
00:01:01 #3106 [verbose] > │ let mutable _v10 = v10 │
00:01:01 #3107 [verbose] > │ #if FABLE_COMPILER_RUST && !WASM && !CONTRACT │
00:01:01 #3108 [verbose] > │ null |> unbox<unit> │
00:01:01 #3109 [verbose] > │ () │
00:01:01 #3110 [verbose] > │ #endif │
00:01:01 #3111 [verbose] > │ #if FABLE_COMPILER_RUST && WASM │
00:01:01 #3112 [verbose] > │ null |> unbox<unit> │
00:01:01 #3113 [verbose] > │ () │
00:01:01 #3114 [verbose] > │ #endif │
00:01:01 #3115 [verbose] > │ #if FABLE_COMPILER_RUST && CONTRACT │
00:01:01 #3116 [verbose] > │ null |> unbox<unit> │
00:01:01 #3117 [verbose] > │ () │
00:01:01 #3118 [verbose] > │ #endif │
00:01:01 #3119 [verbose] > │ #if !FABLE_COMPILER && !FABLE_COMPILER_RUST && │
00:01:01 #3120 [verbose] > │ !FABLE_COMPILER_TYPESCRIPT && !WASM && !CONTRACT │
00:01:01 #3121 [verbose] > │ let v11 : (unit -> unit) = v0.Kill │
00:01:01 #3122 [verbose] > │ v11 () │
00:01:01 #3123 [verbose] > │ () │
00:01:01 #3124 [verbose] > │ #endif │
00:01:01 #3125 [verbose] > │ #if FABLE_COMPILER_TYPESCRIPT │
00:01:01 #3126 [verbose] > │ null |> unbox<unit> │
00:01:01 #3127 [verbose] > │ () │
00:01:01 #3128 [verbose] > │ #endif │
00:01:01 #3129 [verbose] > │ #if FABLE_COMPILER_PYTHON || FABLE_COMPILER_PHP || │
00:01:01 #3130 [verbose] > │ FABLE_COMPILER_DART │
00:01:01 #3131 [verbose] > │ Unchecked.defaultof<unit> │
00:01:01 #3132 [verbose] > │ () │
00:01:01 #3133 [verbose] > │ #endif │
00:01:01 #3134 [verbose] > │ |> fun x -> _v10 <- Some x │
00:01:01 #3135 [verbose] > │ _v10.Value │
00:01:01 #3136 [verbose] > │ () │
00:01:01 #3137 [verbose] > │ and closure19 (v0 : System.Threading.Tasks.TaskCanceledException) () : │
00:01:01 #3138 [verbose] > │ string = │
00:01:01 #3139 [verbose] > │ let v1 : string = $"execute_with_options_async / WaitForExitAsync / ex: │
00:01:01 #3140 [verbose] > │ %A{v0}" │
00:01:01 #3141 [verbose] > │ v1 │
00:01:01 #3142 [verbose] > │ and method17 () : string = │
00:01:01 #3143 [verbose] > │ let v0 : string = "\n" │
00:01:01 #3144 [verbose] > │ v0 │
00:01:01 #3145 [verbose] > │ and closure20 (v0 : int32, v1 : string) () : string = │
00:01:01 #3146 [verbose] > │ let v2 : string = $"execute_with_options_async / exit_code: {v0} / │
00:01:01 #3147 [verbose] > │ output.Length: {v1.Length}" │
00:01:01 #3148 [verbose] > │ v2 │
00:01:01 #3149 [verbose] > │ and closure21 () (v0 : US0) : US8 = │
00:01:01 #3150 [verbose] > │ US8_0(v0) │
00:01:01 #3151 [verbose] > │ and method18 () : (US0 -> US8) = │
00:01:01 #3152 [verbose] > │ closure21() │
00:01:01 #3153 [verbose] > │ and method19 (v0 : bool) : bool = │
00:01:01 #3154 [verbose] > │ v0 │
00:01:01 #3155 [verbose] > │ and closure22 () struct (v0 : int32, v1 : string) : US10 = │
00:01:01 #3156 [verbose] > │ US10_0(v0, v1) │
00:01:01 #3157 [verbose] > │ and closure23 () (v0 : exn) : US10 = │
00:01:01 #3158 [verbose] > │ US10_1(v0) │
00:01:01 #3159 [verbose] > │ and closure24 () () : string = │
00:01:01 #3160 [verbose] > │ let v0 : string = "run_with_timeout_async" │
00:01:01 #3161 [verbose] > │ v0 │
00:01:01 #3162 [verbose] > │ and closure25 () () : string = │
00:01:01 #3163 [verbose] > │ let v0 : (unit -> string) = closure2() │
00:01:01 #3164 [verbose] > │ let v1 : string = $"timeout: {10000} / {v0 ()}" │
00:01:01 #3165 [verbose] > │ v1 │
00:01:01 #3166 [verbose] > │ and closure26 (v0 : string) () : string = │
00:01:01 #3167 [verbose] > │ let v1 : string = $"run_with_timeout_async** / ex: {v0}" │
00:01:01 #3168 [verbose] > │ v1 │
00:01:01 #3169 [verbose] > │ and method20 () : string = │
00:01:01 #3170 [verbose] > │ let v0 : string = "0" │
00:01:01 #3171 [verbose] > │ v0 │
00:01:01 #3172 [verbose] > │ and method0 () : unit = │
00:01:01 #3173 [verbose] > │ let v0 : struct (string * System.IDisposable) option = None │
00:01:01 #3174 [verbose] > │ let mutable _v0 = v0 │
00:01:01 #3175 [verbose] > │ #if FABLE_COMPILER_RUST && !WASM && !CONTRACT │
00:01:01 #3176 [verbose] > │ let struct (v1 : string, v2 : System.IDisposable) = null |> unbox<struct │
00:01:01 #3177 [verbose] > │ (string * System.IDisposable)> │
00:01:01 #3178 [verbose] > │ struct (v1, v2) │
00:01:01 #3179 [verbose] > │ #endif │
00:01:01 #3180 [verbose] > │ #if FABLE_COMPILER_RUST && WASM │
00:01:01 #3181 [verbose] > │ let struct (v3 : string, v4 : System.IDisposable) = null |> unbox<struct │
00:01:01 #3182 [verbose] > │ (string * System.IDisposable)> │
00:01:01 #3183 [verbose] > │ struct (v3, v4) │
00:01:01 #3184 [verbose] > │ #endif │
00:01:01 #3185 [verbose] > │ #if FABLE_COMPILER_RUST && CONTRACT │
00:01:01 #3186 [verbose] > │ let struct (v5 : string, v6 : System.IDisposable) = null |> unbox<struct │
00:01:01 #3187 [verbose] > │ (string * System.IDisposable)> │
00:01:01 #3188 [verbose] > │ struct (v5, v6) │
00:01:01 #3189 [verbose] > │ #endif │
00:01:01 #3190 [verbose] > │ #if !FABLE_COMPILER && !FABLE_COMPILER_RUST && │
00:01:01 #3191 [verbose] > │ !FABLE_COMPILER_TYPESCRIPT && !WASM && !CONTRACT │
00:01:01 #3192 [verbose] > │ let v7 : string option = None │
00:01:01 #3193 [verbose] > │ let mutable _v7 = v7 │
00:01:01 #3194 [verbose] > │ #if FABLE_COMPILER_RUST && !WASM && !CONTRACT │
00:01:01 #3195 [verbose] > │ let v8 : string = null |> unbox<string> │
00:01:01 #3196 [verbose] > │ v8 │
00:01:01 #3197 [verbose] > │ #endif │
00:01:01 #3198 [verbose] > │ #if FABLE_COMPILER_RUST && WASM │
00:01:01 #3199 [verbose] > │ let v9 : string = null |> unbox<string> │
00:01:01 #3200 [verbose] > │ v9 │
00:01:01 #3201 [verbose] > │ #endif │
00:01:01 #3202 [verbose] > │ #if FABLE_COMPILER_RUST && CONTRACT │
00:01:01 #3203 [verbose] > │ let v10 : string = null |> unbox<string> │
00:01:01 #3204 [verbose] > │ v10 │
00:01:01 #3205 [verbose] > │ #endif │
00:01:01 #3206 [verbose] > │ #if !FABLE_COMPILER && !FABLE_COMPILER_RUST && │
00:01:01 #3207 [verbose] > │ !FABLE_COMPILER_TYPESCRIPT && !WASM && !CONTRACT │
00:01:01 #3208 [verbose] > │ let v11 : (unit -> string) = System.IO.Path.GetTempPath │
00:01:01 #3209 [verbose] > │ let v12 : string = v11 () │
00:01:01 #3210 [verbose] > │ let v13 : (unit -> string) = closure0() │
00:01:01 #3211 [verbose] > │ let v14 : string = $"!{v13 ()}" │
00:01:01 #3212 [verbose] > │ let v15 : string option = None │
00:01:01 #3213 [verbose] > │ let mutable _v15 = v15 │
00:01:01 #3214 [verbose] > │ #if FABLE_COMPILER_RUST && !WASM && !CONTRACT │
00:01:01 #3215 [verbose] > │ let v16 : string = method1(v12) │
00:01:01 #3216 [verbose] > │ let v17 : string = "fable_library_rust::String_::LrcStr::as_str(&$0)" │
00:01:01 #3217 [verbose] > │ let v18 : Ref<Str> = Fable.Core.RustInterop.emitRustExpr v16 v17 │
00:01:01 #3218 [verbose] > │ let v19 : string = "String::from($0)" │
00:01:01 #3219 [verbose] > │ let v20 : std_string_String = Fable.Core.RustInterop.emitRustExpr v18 │
00:01:01 #3220 [verbose] > │ v19 │
00:01:01 #3221 [verbose] > │ let v21 : string = "std::path::PathBuf::from($0)" │
00:01:01 #3222 [verbose] > │ let v22 : std_path_PathBuf = Fable.Core.RustInterop.emitRustExpr v20 v21 │
00:01:01 #3223 [verbose] > │ let v23 : string = method1(v14) │
00:01:01 #3224 [verbose] > │ let v24 : string = "fable_library_rust::String_::LrcStr::as_str(&$0)" │
00:01:01 #3225 [verbose] > │ let v25 : Ref<Str> = Fable.Core.RustInterop.emitRustExpr v23 v24 │
00:01:01 #3226 [verbose] > │ let v26 : string = "String::from($0)" │
00:01:01 #3227 [verbose] > │ let v27 : std_string_String = Fable.Core.RustInterop.emitRustExpr v25 │
00:01:01 #3228 [verbose] > │ v26 │
00:01:01 #3229 [verbose] > │ let v28 : string = "$0.join($1)" │
00:01:01 #3230 [verbose] > │ let v29 : std_path_PathBuf = Fable.Core.RustInterop.emitRustExpr struct │
00:01:01 #3231 [verbose] > │ (v22, v27) v28 │
00:01:01 #3232 [verbose] > │ let v30 : string = "$0.display().to_string()" │
00:01:01 #3233 [verbose] > │ let v31 : std_string_String = Fable.Core.RustInterop.emitRustExpr v29 │
00:01:01 #3234 [verbose] > │ v30 │
00:01:01 #3235 [verbose] > │ let v32 : string = "fable_library_rust::String_::fromString($0)" │
00:01:01 #3236 [verbose] > │ let v33 : string = Fable.Core.RustInterop.emitRustExpr v31 v32 │
00:01:01 #3237 [verbose] > │ v33 │
00:01:01 #3238 [verbose] > │ #endif │
00:01:01 #3239 [verbose] > │ #if FABLE_COMPILER_RUST && WASM │
00:01:01 #3240 [verbose] > │ let v34 : string = null |> unbox<string> │
00:01:01 #3241 [verbose] > │ v34 │
00:01:01 #3242 [verbose] > │ #endif │
00:01:01 #3243 [verbose] > │ #if FABLE_COMPILER_RUST && CONTRACT │
00:01:01 #3244 [verbose] > │ let v35 : string = null |> unbox<string> │
00:01:01 #3245 [verbose] > │ v35 │
00:01:01 #3246 [verbose] > │ #endif │
00:01:01 #3247 [verbose] > │ #if !FABLE_COMPILER && !FABLE_COMPILER_RUST && │
00:01:01 #3248 [verbose] > │ !FABLE_COMPILER_TYPESCRIPT && !WASM && !CONTRACT │
00:01:01 #3249 [verbose] > │ let v36 : string = System.IO.Path.Combine (v12, v14) │
00:01:01 #3250 [verbose] > │ v36 │
00:01:01 #3251 [verbose] > │ #endif │
00:01:01 #3252 [verbose] > │ #if FABLE_COMPILER_TYPESCRIPT │
00:01:01 #3253 [verbose] > │ let v37 : string = "path" │
00:01:01 #3254 [verbose] > │ let v38 : IPathJoin = Fable.Core.JsInterop.importAll v37 │
00:01:01 #3255 [verbose] > │ let v39 : string = "v38.join($0, $1)" │
00:01:01 #3256 [verbose] > │ let v40 : string = Fable.Core.JsInterop.emitJsExpr struct (v12, v14) v39 │
00:01:01 #3257 [verbose] > │ v40 │
00:01:01 #3258 [verbose] > │ #endif │
00:01:01 #3259 [verbose] > │ #if FABLE_COMPILER_PYTHON || FABLE_COMPILER_PHP || FABLE_COMPILER_DART │
00:01:01 #3260 [verbose] > │ let v41 : string = Unchecked.defaultof<string> │
00:01:01 #3261 [verbose] > │ v41 │
00:01:01 #3262 [verbose] > │ #endif │
00:01:01 #3263 [verbose] > │ |> fun x -> _v15 <- Some x │
00:01:01 #3264 [verbose] > │ let v42 : string = _v15.Value │
00:01:01 #3265 [verbose] > │ let v43 : System.DateTime = System.DateTime.Now │
00:01:01 #3266 [verbose] > │ let v44 : System.Guid = System.Guid.NewGuid () │
00:01:01 #3267 [verbose] > │ let v45 : (System.Guid -> string) = _.ToString() │
00:01:01 #3268 [verbose] > │ let v46 : string = v45 v44 │
00:01:01 #3269 [verbose] > │ let v47 : string = v43.ToString "yyyyMMdd-HHmm-ssff-ffff-f" │
00:01:01 #3270 [verbose] > │ let v48 : System.Guid = System.Guid $"{v47}{v46.[v47.Length..]}" │
00:01:01 #3271 [verbose] > │ let v49 : (System.Guid -> string) = _.ToString() │
00:01:01 #3272 [verbose] > │ let v50 : string = v49 v48 │
00:01:01 #3273 [verbose] > │ let v51 : string option = None │
00:01:01 #3274 [verbose] > │ let mutable _v51 = v51 │
00:01:01 #3275 [verbose] > │ #if FABLE_COMPILER_RUST && !WASM && !CONTRACT │
00:01:01 #3276 [verbose] > │ let v52 : string = method1(v42) │
00:01:01 #3277 [verbose] > │ let v53 : string = "fable_library_rust::String_::LrcStr::as_str(&$0)" │
00:01:01 #3278 [verbose] > │ let v54 : Ref<Str> = Fable.Core.RustInterop.emitRustExpr v52 v53 │
00:01:01 #3279 [verbose] > │ let v55 : string = "String::from($0)" │
00:01:01 #3280 [verbose] > │ let v56 : std_string_String = Fable.Core.RustInterop.emitRustExpr v54 │
00:01:01 #3281 [verbose] > │ v55 │
00:01:01 #3282 [verbose] > │ let v57 : string = "std::path::PathBuf::from($0)" │
00:01:01 #3283 [verbose] > │ let v58 : std_path_PathBuf = Fable.Core.RustInterop.emitRustExpr v56 v57 │
00:01:01 #3284 [verbose] > │ let v59 : string = method1(v50) │
00:01:01 #3285 [verbose] > │ let v60 : string = "fable_library_rust::String_::LrcStr::as_str(&$0)" │
00:01:01 #3286 [verbose] > │ let v61 : Ref<Str> = Fable.Core.RustInterop.emitRustExpr v59 v60 │
00:01:01 #3287 [verbose] > │ let v62 : string = "String::from($0)" │
00:01:01 #3288 [verbose] > │ let v63 : std_string_String = Fable.Core.RustInterop.emitRustExpr v61 │
00:01:01 #3289 [verbose] > │ v62 │
00:01:01 #3290 [verbose] > │ let v64 : string = "$0.join($1)" │
00:01:01 #3291 [verbose] > │ let v65 : std_path_PathBuf = Fable.Core.RustInterop.emitRustExpr struct │
00:01:01 #3292 [verbose] > │ (v58, v63) v64 │
00:01:01 #3293 [verbose] > │ let v66 : string = "$0.display().to_string()" │
00:01:01 #3294 [verbose] > │ let v67 : std_string_String = Fable.Core.RustInterop.emitRustExpr v65 │
00:01:01 #3295 [verbose] > │ v66 │
00:01:01 #3296 [verbose] > │ let v68 : string = "fable_library_rust::String_::fromString($0)" │
00:01:01 #3297 [verbose] > │ let v69 : string = Fable.Core.RustInterop.emitRustExpr v67 v68 │
00:01:01 #3298 [verbose] > │ v69 │
00:01:01 #3299 [verbose] > │ #endif │
00:01:01 #3300 [verbose] > │ #if FABLE_COMPILER_RUST && WASM │
00:01:01 #3301 [verbose] > │ let v70 : string = null |> unbox<string> │
00:01:01 #3302 [verbose] > │ v70 │
00:01:01 #3303 [verbose] > │ #endif │
00:01:01 #3304 [verbose] > │ #if FABLE_COMPILER_RUST && CONTRACT │
00:01:01 #3305 [verbose] > │ let v71 : string = null |> unbox<string> │
00:01:01 #3306 [verbose] > │ v71 │
00:01:01 #3307 [verbose] > │ #endif │
00:01:01 #3308 [verbose] > │ #if !FABLE_COMPILER && !FABLE_COMPILER_RUST && │
00:01:01 #3309 [verbose] > │ !FABLE_COMPILER_TYPESCRIPT && !WASM && !CONTRACT │
00:01:01 #3310 [verbose] > │ let v72 : string = System.IO.Path.Combine (v42, v50) │
00:01:01 #3311 [verbose] > │ v72 │
00:01:01 #3312 [verbose] > │ #endif │
00:01:01 #3313 [verbose] > │ #if FABLE_COMPILER_TYPESCRIPT │
00:01:01 #3314 [verbose] > │ let v73 : IPathJoin = Fable.Core.JsInterop.importAll v37 │
00:01:01 #3315 [verbose] > │ let v74 : string = "v73.join($0, $1)" │
00:01:01 #3316 [verbose] > │ let v75 : string = Fable.Core.JsInterop.emitJsExpr struct (v42, v50) v74 │
00:01:01 #3317 [verbose] > │ v75 │
00:01:01 #3318 [verbose] > │ #endif │
00:01:01 #3319 [verbose] > │ #if FABLE_COMPILER_PYTHON || FABLE_COMPILER_PHP || FABLE_COMPILER_DART │
00:01:01 #3320 [verbose] > │ let v76 : string = Unchecked.defaultof<string> │
00:01:01 #3321 [verbose] > │ v76 │
00:01:01 #3322 [verbose] > │ #endif │
00:01:01 #3323 [verbose] > │ |> fun x -> _v51 <- Some x │
00:01:01 #3324 [verbose] > │ let v77 : string = _v51.Value │
00:01:01 #3325 [verbose] > │ v77 │
00:01:01 #3326 [verbose] > │ #endif │
00:01:01 #3327 [verbose] > │ #if FABLE_COMPILER_TYPESCRIPT │
00:01:01 #3328 [verbose] > │ let v78 : string = null |> unbox<string> │
00:01:01 #3329 [verbose] > │ v78 │
00:01:01 #3330 [verbose] > │ #endif │
00:01:01 #3331 [verbose] > │ #if FABLE_COMPILER_PYTHON || FABLE_COMPILER_PHP || FABLE_COMPILER_DART │
00:01:01 #3332 [verbose] > │ let v79 : string = Unchecked.defaultof<string> │
00:01:01 #3333 [verbose] > │ v79 │
00:01:01 #3334 [verbose] > │ #endif │
00:01:01 #3335 [verbose] > │ |> fun x -> _v7 <- Some x │
00:01:01 #3336 [verbose] > │ let v80 : string = _v7.Value │
00:01:01 #3337 [verbose] > │ let v81 : System.IO.DirectoryInfo option = None │
00:01:01 #3338 [verbose] > │ let mutable _v81 = v81 │
00:01:01 #3339 [verbose] > │ #if FABLE_COMPILER_RUST && !WASM && !CONTRACT │
00:01:01 #3340 [verbose] > │ let v82 : System.IO.DirectoryInfo = null |> │
00:01:01 #3341 [verbose] > │ unbox<System.IO.DirectoryInfo> │
00:01:01 #3342 [verbose] > │ v82 │
00:01:01 #3343 [verbose] > │ #endif │
00:01:01 #3344 [verbose] > │ #if FABLE_COMPILER_RUST && WASM │
00:01:01 #3345 [verbose] > │ let v83 : System.IO.DirectoryInfo = null |> │
00:01:01 #3346 [verbose] > │ unbox<System.IO.DirectoryInfo> │
00:01:01 #3347 [verbose] > │ v83 │
00:01:01 #3348 [verbose] > │ #endif │
00:01:01 #3349 [verbose] > │ #if FABLE_COMPILER_RUST && CONTRACT │
00:01:01 #3350 [verbose] > │ let v84 : System.IO.DirectoryInfo = null |> │
00:01:01 #3351 [verbose] > │ unbox<System.IO.DirectoryInfo> │
00:01:01 #3352 [verbose] > │ v84 │
00:01:01 #3353 [verbose] > │ #endif │
00:01:01 #3354 [verbose] > │ #if !FABLE_COMPILER && !FABLE_COMPILER_RUST && │
00:01:01 #3355 [verbose] > │ !FABLE_COMPILER_TYPESCRIPT && !WASM && !CONTRACT │
00:01:01 #3356 [verbose] > │ let v85 : (string -> System.IO.DirectoryInfo) = │
00:01:01 #3357 [verbose] > │ System.IO.Directory.CreateDirectory │
00:01:01 #3358 [verbose] > │ let v86 : System.IO.DirectoryInfo = v85 v80 │
00:01:01 #3359 [verbose] > │ v86 │
00:01:01 #3360 [verbose] > │ #endif │
00:01:01 #3361 [verbose] > │ #if FABLE_COMPILER_TYPESCRIPT │
00:01:01 #3362 [verbose] > │ let v87 : System.IO.DirectoryInfo = null |> │
00:01:01 #3363 [verbose] > │ unbox<System.IO.DirectoryInfo> │
00:01:01 #3364 [verbose] > │ v87 │
00:01:01 #3365 [verbose] > │ #endif │
00:01:01 #3366 [verbose] > │ #if FABLE_COMPILER_PYTHON || FABLE_COMPILER_PHP || FABLE_COMPILER_DART │
00:01:01 #3367 [verbose] > │ let v88 : System.IO.DirectoryInfo = │
00:01:01 #3368 [verbose] > │ Unchecked.defaultof<System.IO.DirectoryInfo> │
00:01:01 #3369 [verbose] > │ v88 │
00:01:01 #3370 [verbose] > │ #endif │
00:01:01 #3371 [verbose] > │ |> fun x -> _v81 <- Some x │
00:01:01 #3372 [verbose] > │ let v89 : System.IO.DirectoryInfo = _v81.Value │
00:01:01 #3373 [verbose] > │ let v90 : bool option = None │
00:01:01 #3374 [verbose] > │ let mutable _v90 = v90 │
00:01:01 #3375 [verbose] > │ #if FABLE_COMPILER_RUST && !WASM && !CONTRACT │
00:01:01 #3376 [verbose] > │ let v91 : bool = null |> unbox<bool> │
00:01:01 #3377 [verbose] > │ v91 │
00:01:01 #3378 [verbose] > │ #endif │
00:01:01 #3379 [verbose] > │ #if FABLE_COMPILER_RUST && WASM │
00:01:01 #3380 [verbose] > │ let v92 : bool = null |> unbox<bool> │
00:01:01 #3381 [verbose] > │ v92 │
00:01:01 #3382 [verbose] > │ #endif │
00:01:01 #3383 [verbose] > │ #if FABLE_COMPILER_RUST && CONTRACT │
00:01:01 #3384 [verbose] > │ let v93 : bool = null |> unbox<bool> │
00:01:01 #3385 [verbose] > │ v93 │
00:01:01 #3386 [verbose] > │ #endif │
00:01:01 #3387 [verbose] > │ #if !FABLE_COMPILER && !FABLE_COMPILER_RUST && │
00:01:01 #3388 [verbose] > │ !FABLE_COMPILER_TYPESCRIPT && !WASM && !CONTRACT │
00:01:01 #3389 [verbose] > │ let v94 : bool = v89.Exists │
00:01:01 #3390 [verbose] > │ v94 │
00:01:01 #3391 [verbose] > │ #endif │
00:01:01 #3392 [verbose] > │ #if FABLE_COMPILER_TYPESCRIPT │
00:01:01 #3393 [verbose] > │ let v95 : bool = null |> unbox<bool> │
00:01:01 #3394 [verbose] > │ v95 │
00:01:01 #3395 [verbose] > │ #endif │
00:01:01 #3396 [verbose] > │ #if FABLE_COMPILER_PYTHON || FABLE_COMPILER_PHP || FABLE_COMPILER_DART │
00:01:01 #3397 [verbose] > │ let v96 : bool = Unchecked.defaultof<bool> │
00:01:01 #3398 [verbose] > │ v96 │
00:01:01 #3399 [verbose] > │ #endif │
00:01:01 #3400 [verbose] > │ |> fun x -> _v90 <- Some x │
00:01:01 #3401 [verbose] > │ let v97 : bool = _v90.Value │
00:01:01 #3402 [verbose] > │ let v98 : bool = v97 = false │
00:01:01 #3403 [verbose] > │ if v98 then │
00:01:01 #3404 [verbose] > │ let v99 : System.DateTime option = None │
00:01:01 #3405 [verbose] > │ let mutable _v99 = v99 │
00:01:01 #3406 [verbose] > │ #if FABLE_COMPILER_RUST && !WASM && !CONTRACT │
00:01:01 #3407 [verbose] > │ let v100 : System.DateTime = null |> unbox<System.DateTime> │
00:01:01 #3408 [verbose] > │ v100 │
00:01:01 #3409 [verbose] > │ #endif │
00:01:01 #3410 [verbose] > │ #if FABLE_COMPILER_RUST && WASM │
00:01:01 #3411 [verbose] > │ let v101 : System.DateTime = null |> unbox<System.DateTime> │
00:01:01 #3412 [verbose] > │ v101 │
00:01:01 #3413 [verbose] > │ #endif │
00:01:01 #3414 [verbose] > │ #if FABLE_COMPILER_RUST && CONTRACT │
00:01:01 #3415 [verbose] > │ let v102 : System.DateTime = null |> unbox<System.DateTime> │
00:01:01 #3416 [verbose] > │ v102 │
00:01:01 #3417 [verbose] > │ #endif │
00:01:01 #3418 [verbose] > │ #if !FABLE_COMPILER && !FABLE_COMPILER_RUST && │
00:01:01 #3419 [verbose] > │ !FABLE_COMPILER_TYPESCRIPT && !WASM && !CONTRACT │
00:01:01 #3420 [verbose] > │ let v103 : System.DateTime = v89.CreationTime │
00:01:01 #3421 [verbose] > │ v103 │
00:01:01 #3422 [verbose] > │ #endif │
00:01:01 #3423 [verbose] > │ #if FABLE_COMPILER_TYPESCRIPT │
00:01:01 #3424 [verbose] > │ let v104 : System.DateTime = null |> unbox<System.DateTime> │
00:01:01 #3425 [verbose] > │ v104 │
00:01:01 #3426 [verbose] > │ #endif │
00:01:01 #3427 [verbose] > │ #if FABLE_COMPILER_PYTHON || FABLE_COMPILER_PHP || │
00:01:01 #3428 [verbose] > │ FABLE_COMPILER_DART │
00:01:01 #3429 [verbose] > │ let v105 : System.DateTime = Unchecked.defaultof<System.DateTime> │
00:01:01 #3430 [verbose] > │ v105 │
00:01:01 #3431 [verbose] > │ #endif │
00:01:01 #3432 [verbose] > │ |> fun x -> _v99 <- Some x │
00:01:01 #3433 [verbose] > │ let v106 : System.DateTime = _v99.Value │
00:01:01 #3434 [verbose] > │ let v107 : obj = {| Exists = v97; CreationTime = v106 |} │
00:01:01 #3435 [verbose] > │ let v108 : string = $"%A{v107}" │
00:01:01 #3436 [verbose] > │ let v109 : (unit -> string) = closure1(v80, v108) │
00:01:01 #3437 [verbose] > │ let v110 : string = $"create_temp_directory / {v109 ()}" │
00:01:01 #3438 [verbose] > │ System.Console.WriteLine v110 │
00:01:01 #3439 [verbose] > │ () │
00:01:01 #3440 [verbose] > │ let v111 : System.IDisposable option = None │
00:01:01 #3441 [verbose] > │ let mutable _v111 = v111 │
00:01:01 #3442 [verbose] > │ #if FABLE_COMPILER_RUST && !WASM && !CONTRACT │
00:01:01 #3443 [verbose] > │ let v112 : System.IDisposable = null |> unbox<System.IDisposable> │
00:01:01 #3444 [verbose] > │ v112 │
00:01:01 #3445 [verbose] > │ #endif │
00:01:01 #3446 [verbose] > │ #if FABLE_COMPILER_RUST && WASM │
00:01:01 #3447 [verbose] > │ let v113 : System.IDisposable = null |> unbox<System.IDisposable> │
00:01:01 #3448 [verbose] > │ v113 │
00:01:01 #3449 [verbose] > │ #endif │
00:01:01 #3450 [verbose] > │ #if FABLE_COMPILER_RUST && CONTRACT │
00:01:01 #3451 [verbose] > │ let v114 : System.IDisposable = null |> unbox<System.IDisposable> │
00:01:01 #3452 [verbose] > │ v114 │
00:01:01 #3453 [verbose] > │ #endif │
00:01:01 #3454 [verbose] > │ #if !FABLE_COMPILER && !FABLE_COMPILER_RUST && │
00:01:01 #3455 [verbose] > │ !FABLE_COMPILER_TYPESCRIPT && !WASM && !CONTRACT │
00:01:01 #3456 [verbose] > │ let v115 : (unit -> unit) = closure3(v80) │
00:01:01 #3457 [verbose] > │ let v116 : System.IDisposable = { new System.IDisposable with member │
00:01:01 #3458 [verbose] > │ _.Dispose () = v115 () } │
00:01:01 #3459 [verbose] > │ v116 │
00:01:01 #3460 [verbose] > │ #endif │
00:01:01 #3461 [verbose] > │ #if FABLE_COMPILER_TYPESCRIPT │
00:01:01 #3462 [verbose] > │ let v117 : System.IDisposable = null |> unbox<System.IDisposable> │
00:01:01 #3463 [verbose] > │ v117 │
00:01:01 #3464 [verbose] > │ #endif │
00:01:01 #3465 [verbose] > │ #if FABLE_COMPILER_PYTHON || FABLE_COMPILER_PHP || FABLE_COMPILER_DART │
00:01:01 #3466 [verbose] > │ let v118 : System.IDisposable = Unchecked.defaultof<System.IDisposable> │
00:01:01 #3467 [verbose] > │ v118 │
00:01:01 #3468 [verbose] > │ #endif │
00:01:01 #3469 [verbose] > │ |> fun x -> _v111 <- Some x │
00:01:01 #3470 [verbose] > │ let v119 : System.IDisposable = _v111.Value │
00:01:01 #3471 [verbose] > │ struct (v80, v119) │
00:01:01 #3472 [verbose] > │ #endif │
00:01:01 #3473 [verbose] > │ #if FABLE_COMPILER_TYPESCRIPT │
00:01:01 #3474 [verbose] > │ let struct (v120 : string, v121 : System.IDisposable) = null |> │
00:01:01 #3475 [verbose] > │ unbox<struct (string * System.IDisposable)> │
00:01:01 #3476 [verbose] > │ struct (v120, v121) │
00:01:01 #3477 [verbose] > │ #endif │
00:01:01 #3478 [verbose] > │ #if FABLE_COMPILER_PYTHON || FABLE_COMPILER_PHP || FABLE_COMPILER_DART │
00:01:01 #3479 [verbose] > │ let struct (v122 : string, v123 : System.IDisposable) = │
00:01:01 #3480 [verbose] > │ Unchecked.defaultof<struct (string * System.IDisposable)> │
00:01:01 #3481 [verbose] > │ struct (v122, v123) │
00:01:01 #3482 [verbose] > │ #endif │
00:01:01 #3483 [verbose] > │ |> fun x -> _v0 <- Some x │
00:01:01 #3484 [verbose] > │ let struct (v124 : string, v125 : System.IDisposable) = _v0.Value │
00:01:01 #3485 [verbose] > │ use v125 = v125 │
00:01:01 #3486 [verbose] > │ let v126 : System.IDisposable = v125 │
00:01:01 #3487 [verbose] > │ let v127 : string option = None │
00:01:01 #3488 [verbose] > │ let mutable _v127 = v127 │
00:01:01 #3489 [verbose] > │ #if FABLE_COMPILER_RUST && !WASM && !CONTRACT │
00:01:01 #3490 [verbose] > │ let v128 : string = method1(v124) │
00:01:01 #3491 [verbose] > │ let v129 : string = "fable_library_rust::String_::LrcStr::as_str(&$0)" │
00:01:01 #3492 [verbose] > │ let v130 : Ref<Str> = Fable.Core.RustInterop.emitRustExpr v128 v129 │
00:01:01 #3493 [verbose] > │ let v131 : string = "String::from($0)" │
00:01:01 #3494 [verbose] > │ let v132 : std_string_String = Fable.Core.RustInterop.emitRustExpr v130 │
00:01:01 #3495 [verbose] > │ v131 │
00:01:01 #3496 [verbose] > │ let v133 : string = "std::path::PathBuf::from($0)" │
00:01:01 #3497 [verbose] > │ let v134 : std_path_PathBuf = Fable.Core.RustInterop.emitRustExpr v132 │
00:01:01 #3498 [verbose] > │ v133 │
00:01:01 #3499 [verbose] > │ let v135 : string = method4() │
00:01:01 #3500 [verbose] > │ let v136 : string = "fable_library_rust::String_::LrcStr::as_str(&$0)" │
00:01:01 #3501 [verbose] > │ let v137 : Ref<Str> = Fable.Core.RustInterop.emitRustExpr v135 v136 │
00:01:01 #3502 [verbose] > │ let v138 : string = "String::from($0)" │
00:01:01 #3503 [verbose] > │ let v139 : std_string_String = Fable.Core.RustInterop.emitRustExpr v137 │
00:01:01 #3504 [verbose] > │ v138 │
00:01:01 #3505 [verbose] > │ let v140 : string = "$0.join($1)" │
00:01:01 #3506 [verbose] > │ let v141 : std_path_PathBuf = Fable.Core.RustInterop.emitRustExpr struct │
00:01:01 #3507 [verbose] > │ (v134, v139) v140 │
00:01:01 #3508 [verbose] > │ let v142 : string = "$0.display().to_string()" │
00:01:01 #3509 [verbose] > │ let v143 : std_string_String = Fable.Core.RustInterop.emitRustExpr v141 │
00:01:01 #3510 [verbose] > │ v142 │
00:01:01 #3511 [verbose] > │ let v144 : string = "fable_library_rust::String_::fromString($0)" │
00:01:01 #3512 [verbose] > │ let v145 : string = Fable.Core.RustInterop.emitRustExpr v143 v144 │
00:01:01 #3513 [verbose] > │ v145 │
00:01:01 #3514 [verbose] > │ #endif │
00:01:01 #3515 [verbose] > │ #if FABLE_COMPILER_RUST && WASM │
00:01:01 #3516 [verbose] > │ let v146 : string = null |> unbox<string> │
00:01:01 #3517 [verbose] > │ v146 │
00:01:01 #3518 [verbose] > │ #endif │
00:01:01 #3519 [verbose] > │ #if FABLE_COMPILER_RUST && CONTRACT │
00:01:01 #3520 [verbose] > │ let v147 : string = null |> unbox<string> │
00:01:01 #3521 [verbose] > │ v147 │
00:01:01 #3522 [verbose] > │ #endif │
00:01:01 #3523 [verbose] > │ #if !FABLE_COMPILER && !FABLE_COMPILER_RUST && │
00:01:01 #3524 [verbose] > │ !FABLE_COMPILER_TYPESCRIPT && !WASM && !CONTRACT │
00:01:01 #3525 [verbose] > │ let v148 : string = "test.txt" │
00:01:01 #3526 [verbose] > │ let v149 : string = System.IO.Path.Combine (v124, v148) │
00:01:01 #3527 [verbose] > │ v149 │
00:01:01 #3528 [verbose] > │ #endif │
00:01:01 #3529 [verbose] > │ #if FABLE_COMPILER_TYPESCRIPT │
00:01:01 #3530 [verbose] > │ let v150 : IPathJoin = Fable.Core.JsInterop.importAll v37 │
00:01:01 #3531 [verbose] > │ let v151 : string = "v150.join($0, $1)" │
00:01:01 #3532 [verbose] > │ let v152 : string = Fable.Core.JsInterop.emitJsExpr struct (v124, v148) │
00:01:01 #3533 [verbose] > │ v151 │
00:01:01 #3534 [verbose] > │ v152 │
00:01:01 #3535 [verbose] > │ #endif │
00:01:01 #3536 [verbose] > │ #if FABLE_COMPILER_PYTHON || FABLE_COMPILER_PHP || FABLE_COMPILER_DART │
00:01:01 #3537 [verbose] > │ let v153 : string = Unchecked.defaultof<string> │
00:01:01 #3538 [verbose] > │ v153 │
00:01:01 #3539 [verbose] > │ #endif │
00:01:01 #3540 [verbose] > │ |> fun x -> _v127 <- Some x │
00:01:01 #3541 [verbose] > │ let v154 : string = _v127.Value │
00:01:01 #3542 [verbose] > │ let v155 : Async<struct (int32 * string)> option = None │
00:01:01 #3543 [verbose] > │ let mutable _v155 = v155 │
00:01:01 #3544 [verbose] > │ #if FABLE_COMPILER_RUST && !WASM && !CONTRACT │
00:01:01 #3545 [verbose] > │ let v156 : Async<struct (int32 * string)> = null |> unbox<Async<struct │
00:01:01 #3546 [verbose] > │ (int32 * string)>> │
00:01:01 #3547 [verbose] > │ v156 │
00:01:01 #3548 [verbose] > │ #endif │
00:01:01 #3549 [verbose] > │ #if FABLE_COMPILER_RUST && WASM │
00:01:01 #3550 [verbose] > │ let v157 : Async<struct (int32 * string)> = null |> unbox<Async<struct │
00:01:01 #3551 [verbose] > │ (int32 * string)>> │
00:01:01 #3552 [verbose] > │ v157 │
00:01:01 #3553 [verbose] > │ #endif │
00:01:01 #3554 [verbose] > │ #if FABLE_COMPILER_RUST && CONTRACT │
00:01:01 #3555 [verbose] > │ let v158 : Async<struct (int32 * string)> = null |> unbox<Async<struct │
00:01:01 #3556 [verbose] > │ (int32 * string)>> │
00:01:01 #3557 [verbose] > │ v158 │
00:01:01 #3558 [verbose] > │ #endif │
00:01:01 #3559 [verbose] > │ #if !FABLE_COMPILER && !FABLE_COMPILER_RUST && │
00:01:01 #3560 [verbose] > │ !FABLE_COMPILER_TYPESCRIPT && !WASM && !CONTRACT │
00:01:01 #3561 [verbose] > │ let v159 : Async<struct (int32 * string)> option = None │
00:01:01 #3562 [verbose] > │ let mutable _v159 = v159 │
00:01:01 #3563 [verbose] > │ async { │
00:01:01 #3564 [verbose] > │ let v160 : string = @$"pwsh -c ""Get-Content {v154}""" │
00:01:01 #3565 [verbose] > │ let v161 : System.Threading.CancellationToken option = None │
00:01:01 #3566 [verbose] > │ let v162 : (struct (bool * string * int32) -> Async<unit>) option = None │
00:01:01 #3567 [verbose] > │ let v163 : string option = None │
00:01:01 #3568 [verbose] > │ let v164 : US0 option = None │
00:01:01 #3569 [verbose] > │ let v165 : Async<struct (int32 * string)> option = None │
00:01:01 #3570 [verbose] > │ let mutable _v165 = v165 │
00:01:01 #3571 [verbose] > │ #if FABLE_COMPILER_RUST && !WASM && !CONTRACT │
00:01:01 #3572 [verbose] > │ let v166 : Async<struct (int32 * string)> = null |> unbox<Async<struct │
00:01:01 #3573 [verbose] > │ (int32 * string)>> │
00:01:01 #3574 [verbose] > │ v166 │
00:01:01 #3575 [verbose] > │ #endif │
00:01:01 #3576 [verbose] > │ #if FABLE_COMPILER_RUST && WASM │
00:01:01 #3577 [verbose] > │ let v167 : Async<struct (int32 * string)> = null |> unbox<Async<struct │
00:01:01 #3578 [verbose] > │ (int32 * string)>> │
00:01:01 #3579 [verbose] > │ v167 │
00:01:01 #3580 [verbose] > │ #endif │
00:01:01 #3581 [verbose] > │ #if FABLE_COMPILER_RUST && CONTRACT │
00:01:01 #3582 [verbose] > │ let v168 : Async<struct (int32 * string)> = null |> unbox<Async<struct │
00:01:01 #3583 [verbose] > │ (int32 * string)>> │
00:01:01 #3584 [verbose] > │ v168 │
00:01:01 #3585 [verbose] > │ #endif │
00:01:01 #3586 [verbose] > │ #if !FABLE_COMPILER && !FABLE_COMPILER_RUST && │
00:01:01 #3587 [verbose] > │ !FABLE_COMPILER_TYPESCRIPT && !WASM && !CONTRACT │
00:01:01 #3588 [verbose] > │ let v169 : Async<struct (int32 * string)> option = None │
00:01:01 #3589 [verbose] > │ let mutable _v169 = v169 │
00:01:01 #3590 [verbose] > │ #if FABLE_COMPILER_RUST && !WASM && !CONTRACT │
00:01:01 #3591 [verbose] > │ let v170 : Async<struct (int32 * string)> = null |> unbox<Async<struct │
00:01:01 #3592 [verbose] > │ (int32 * string)>> │
00:01:01 #3593 [verbose] > │ v170 │
00:01:01 #3594 [verbose] > │ #endif │
00:01:01 #3595 [verbose] > │ #if FABLE_COMPILER_RUST && WASM │
00:01:01 #3596 [verbose] > │ let v171 : Async<struct (int32 * string)> = null |> unbox<Async<struct │
00:01:01 #3597 [verbose] > │ (int32 * string)>> │
00:01:01 #3598 [verbose] > │ v171 │
00:01:01 #3599 [verbose] > │ #endif │
00:01:01 #3600 [verbose] > │ #if FABLE_COMPILER_RUST && CONTRACT │
00:01:01 #3601 [verbose] > │ let v172 : Async<struct (int32 * string)> = null |> unbox<Async<struct │
00:01:01 #3602 [verbose] > │ (int32 * string)>> │
00:01:01 #3603 [verbose] > │ v172 │
00:01:01 #3604 [verbose] > │ #endif │
00:01:01 #3605 [verbose] > │ #if !FABLE_COMPILER && !FABLE_COMPILER_RUST && │
00:01:01 #3606 [verbose] > │ !FABLE_COMPILER_TYPESCRIPT && !WASM && !CONTRACT │
00:01:01 #3607 [verbose] > │ let v173 : Async<struct (int32 * string)> option = None │
00:01:01 #3608 [verbose] > │ let mutable _v173 = v173 │
00:01:01 #3609 [verbose] > │ async { │
00:01:01 #3610 [verbose] > │ let struct (v174 : string, v175 : string) = method5() │
00:01:01 #3611 [verbose] > │ let v176 : char seq = v160 |> unbox<char seq> │
00:01:01 #3612 [verbose] > │ let v177 : (char seq -> char list) = Seq.toList │
00:01:01 #3613 [verbose] > │ let v178 : char list = v177 v176 │
00:01:01 #3614 [verbose] > │ let v179 : ((char -> (UH0 -> UH0)) -> (char list -> (UH0 -> UH0))) = │
00:01:01 #3615 [verbose] > │ List.foldBack │
00:01:01 #3616 [verbose] > │ let v180 : (char -> (UH0 -> UH0)) = method6() │
00:01:01 #3617 [verbose] > │ let v181 : (char list -> (UH0 -> UH0)) = v179 v180 │
00:01:01 #3618 [verbose] > │ let v182 : (UH0 -> UH0) = v181 v178 │
00:01:01 #3619 [verbose] > │ let v183 : UH0 = UH0_0 │
00:01:01 #3620 [verbose] > │ let v184 : UH0 = v182 v183 │
00:01:01 #3621 [verbose] > │ let v185 : US1 = US1_0 │
00:01:01 #3622 [verbose] > │ let struct (v186 : string, v187 : string) = method7(v175, v174, v184, │
00:01:01 #3623 [verbose] > │ v185) │
00:01:01 #3624 [verbose] > │ let v188 : (string -> US3) = method8() │
00:01:01 #3625 [verbose] > │ let v189 : US3 = US3_1 │
00:01:01 #3626 [verbose] > │ let v190 : US3 = v163 |> Option.map v188 |> Option.defaultValue v189 │
00:01:01 #3627 [verbose] > │ let v194 : string = │
00:01:01 #3628 [verbose] > │ match v190 with │
00:01:01 #3629 [verbose] > │ | US3_1 -> (* None *) │
00:01:01 #3630 [verbose] > │ let v192 : string = "" │
00:01:01 #3631 [verbose] > │ v192 │
00:01:01 #3632 [verbose] > │ | US3_0(v191) -> (* Some *) │
00:01:01 #3633 [verbose] > │ v191 │
00:01:01 #3634 [verbose] > │ let v195 : US0 = US0_1 │
00:01:01 #3635 [verbose] > │ let v196 : (unit -> string) = closure9(v161, v160, v162, v164, v163) │
00:01:01 #3636 [verbose] > │ let v197 : (unit -> string) = method9() │
00:01:01 #3637 [verbose] > │ method10(v195, v196, v197) │
00:01:01 #3638 [verbose] > │ let v198 : System.Text.Encoding = System.Text.Encoding.UTF8 │
00:01:01 #3639 [verbose] > │ let v199 : System.Diagnostics.ProcessStartInfo = │
00:01:01 #3640 [verbose] > │ System.Diagnostics.ProcessStartInfo (Arguments = v187, │
00:01:01 #3641 [verbose] > │ StandardOutputEncoding = v198, WorkingDirectory = v194, FileName = v186, │
00:01:01 #3642 [verbose] > │ CreateNoWindow = true, RedirectStandardError = true, RedirectStandardOutput │
00:01:01 #3643 [verbose] > │ = true, UseShellExecute = false) │
00:01:01 #3644 [verbose] > │ let v200 : System.Diagnostics.Process = new System.Diagnostics.Process │
00:01:01 #3645 [verbose] > │ (StartInfo = v199) │
00:01:01 #3646 [verbose] > │ use v200 = v200 │
00:01:01 #3647 [verbose] > │ let v201 : System.Diagnostics.Process = v200 │
00:01:01 #3648 [verbose] > │ let v202 : (unit -> │
00:01:01 #3649 [verbose] > │ System.Collections.Concurrent.ConcurrentStack<string>) = │
00:01:01 #3650 [verbose] > │ System.Collections.Concurrent.ConcurrentStack<string> │
00:01:01 #3651 [verbose] > │ let v203 : System.Collections.Concurrent.ConcurrentStack<string> = v202 │
00:01:01 #3652 [verbose] > │ () │
00:01:01 #3653 [verbose] > │ let v204 : (System.Diagnostics.DataReceivedEventArgs -> unit) = │
00:01:01 #3654 [verbose] > │ closure13(v161, v160, v162, v164, v163, v201, v203) │
00:01:01 #3655 [verbose] > │ v201.OutputDataReceived.Add v204 │
00:01:01 #3656 [verbose] > │ let v205 : (System.Diagnostics.DataReceivedEventArgs -> unit) = │
00:01:01 #3657 [verbose] > │ closure16(v161, v160, v162, v164, v163, v201, v203) │
00:01:01 #3658 [verbose] > │ v201.ErrorDataReceived.Add v205 │
00:01:01 #3659 [verbose] > │ let v206 : (unit -> bool) = v201.Start │
00:01:01 #3660 [verbose] > │ let v207 : bool = v206 () │
00:01:01 #3661 [verbose] > │ let v208 : bool = v207 = false │
00:01:01 #3662 [verbose] > │ if v208 then │
00:01:01 #3663 [verbose] > │ let v209 : string = $"execute_with_options_async / process_start │
00:01:01 #3664 [verbose] > │ error" │
00:01:01 #3665 [verbose] > │ failwith<unit> v209 │
00:01:01 #3666 [verbose] > │ let v210 : (unit -> unit) = v201.BeginErrorReadLine │
00:01:01 #3667 [verbose] > │ v210 () │
00:01:01 #3668 [verbose] > │ let v211 : (unit -> unit) = v201.BeginOutputReadLine │
00:01:01 #3669 [verbose] > │ v211 () │
00:01:01 #3670 [verbose] > │ let v212 : (System.Threading.CancellationToken -> US7) = method16() │
00:01:01 #3671 [verbose] > │ let v213 : US7 = US7_1 │
00:01:01 #3672 [verbose] > │ let v214 : US7 = v161 |> Option.map v212 |> Option.defaultValue v213 │
00:01:01 #3673 [verbose] > │ let v218 : System.Threading.CancellationToken = │
00:01:01 #3674 [verbose] > │ match v214 with │
00:01:01 #3675 [verbose] > │ | US7_1 -> (* None *) │
00:01:01 #3676 [verbose] > │ let v216 : System.Threading.CancellationToken = │
00:01:01 #3677 [verbose] > │ System.Threading.CancellationToken.None │
00:01:01 #3678 [verbose] > │ v216 │
00:01:01 #3679 [verbose] > │ | US7_0(v215) -> (* Some *) │
00:01:01 #3680 [verbose] > │ v215 │
00:01:01 #3681 [verbose] > │ let v219 : Async<System.Threading.CancellationToken> option = None │
00:01:01 #3682 [verbose] > │ let mutable _v219 = v219 │
00:01:01 #3683 [verbose] > │ #if FABLE_COMPILER_RUST && !WASM && !CONTRACT │
00:01:01 #3684 [verbose] > │ let v220 : Async<System.Threading.CancellationToken> = null |> │
00:01:01 #3685 [verbose] > │ unbox<Async<System.Threading.CancellationToken>> │
00:01:01 #3686 [verbose] > │ v220 │
00:01:01 #3687 [verbose] > │ #endif │
00:01:01 #3688 [verbose] > │ #if FABLE_COMPILER_RUST && WASM │
00:01:01 #3689 [verbose] > │ let v221 : Async<System.Threading.CancellationToken> = null |> │
00:01:01 #3690 [verbose] > │ unbox<Async<System.Threading.CancellationToken>> │
00:01:01 #3691 [verbose] > │ v221 │
00:01:01 #3692 [verbose] > │ #endif │
00:01:01 #3693 [verbose] > │ #if FABLE_COMPILER_RUST && CONTRACT │
00:01:01 #3694 [verbose] > │ let v222 : Async<System.Threading.CancellationToken> = null |> │
00:01:01 #3695 [verbose] > │ unbox<Async<System.Threading.CancellationToken>> │
00:01:01 #3696 [verbose] > │ v222 │
00:01:01 #3697 [verbose] > │ #endif │
00:01:01 #3698 [verbose] > │ #if !FABLE_COMPILER && !FABLE_COMPILER_RUST && │
00:01:01 #3699 [verbose] > │ !FABLE_COMPILER_TYPESCRIPT && !WASM && !CONTRACT │
00:01:01 #3700 [verbose] > │ let v223 : Async<System.Threading.CancellationToken> option = None │
00:01:01 #3701 [verbose] > │ let mutable _v223 = v223 │
00:01:01 #3702 [verbose] > │ #if FABLE_COMPILER_RUST && !WASM && !CONTRACT │
00:01:01 #3703 [verbose] > │ let v224 : Async<System.Threading.CancellationToken> = null |> │
00:01:01 #3704 [verbose] > │ unbox<Async<System.Threading.CancellationToken>> │
00:01:01 #3705 [verbose] > │ v224 │
00:01:01 #3706 [verbose] > │ #endif │
00:01:01 #3707 [verbose] > │ #if FABLE_COMPILER_RUST && WASM │
00:01:01 #3708 [verbose] > │ let v225 : Async<System.Threading.CancellationToken> = null |> │
00:01:01 #3709 [verbose] > │ unbox<Async<System.Threading.CancellationToken>> │
00:01:01 #3710 [verbose] > │ v225 │
00:01:01 #3711 [verbose] > │ #endif │
00:01:01 #3712 [verbose] > │ #if FABLE_COMPILER_RUST && CONTRACT │
00:01:01 #3713 [verbose] > │ let v226 : Async<System.Threading.CancellationToken> = null |> │
00:01:01 #3714 [verbose] > │ unbox<Async<System.Threading.CancellationToken>> │
00:01:01 #3715 [verbose] > │ v226 │
00:01:01 #3716 [verbose] > │ #endif │
00:01:01 #3717 [verbose] > │ #if !FABLE_COMPILER && !FABLE_COMPILER_RUST && │
00:01:01 #3718 [verbose] > │ !FABLE_COMPILER_TYPESCRIPT && !WASM && !CONTRACT │
00:01:01 #3719 [verbose] > │ let v227 : Async<System.Threading.CancellationToken> option = None │
00:01:01 #3720 [verbose] > │ let mutable _v227 = v227 │
00:01:01 #3721 [verbose] > │ async { │
00:01:01 #3722 [verbose] > │ let v228 : Async<System.Threading.CancellationToken> = │
00:01:01 #3723 [verbose] > │ Async.CancellationToken │
00:01:01 #3724 [verbose] > │ let! v228 = v228 │
00:01:01 #3725 [verbose] > │ let v229 : System.Threading.CancellationToken = v228 │
00:01:01 #3726 [verbose] > │ let v230 : System.Threading.CancellationToken = │
00:01:01 #3727 [verbose] > │ Async.DefaultCancellationToken │
00:01:01 #3728 [verbose] > │ let v231 : (System.Threading.CancellationToken []) = [|v229; v230; │
00:01:01 #3729 [verbose] > │ v218|] │
00:01:01 #3730 [verbose] > │ let v232 : ((System.Threading.CancellationToken []) -> │
00:01:01 #3731 [verbose] > │ System.Threading.CancellationTokenSource) = │
00:01:01 #3732 [verbose] > │ System.Threading.CancellationTokenSource.CreateLinkedTokenSource │
00:01:01 #3733 [verbose] > │ let v233 : System.Threading.CancellationTokenSource = v232 v231 │
00:01:01 #3734 [verbose] > │ let v234 : System.Threading.CancellationToken = v233.Token │
00:01:01 #3735 [verbose] > │ return v234 │
00:01:01 #3736 [verbose] > │ } │
00:01:01 #3737 [verbose] > │ |> fun x -> _v227 <- Some x │
00:01:01 #3738 [verbose] > │ let v235 : Async<System.Threading.CancellationToken> = _v227 |> │
00:01:01 #3739 [verbose] > │ Option.get │
00:01:01 #3740 [verbose] > │ v235 │
00:01:01 #3741 [verbose] > │ #endif │
00:01:01 #3742 [verbose] > │ #if FABLE_COMPILER_TYPESCRIPT │
00:01:01 #3743 [verbose] > │ let v236 : Async<System.Threading.CancellationToken> = null |> │
00:01:01 #3744 [verbose] > │ unbox<Async<System.Threading.CancellationToken>> │
00:01:01 #3745 [verbose] > │ v236 │
00:01:01 #3746 [verbose] > │ #endif │
00:01:01 #3747 [verbose] > │ #if FABLE_COMPILER_PYTHON || FABLE_COMPILER_PHP || FABLE_COMPILER_DART │
00:01:01 #3748 [verbose] > │ let v237 : Async<System.Threading.CancellationToken> = │
00:01:01 #3749 [verbose] > │ Unchecked.defaultof<Async<System.Threading.CancellationToken>> │
00:01:01 #3750 [verbose] > │ v237 │
00:01:01 #3751 [verbose] > │ #endif │
00:01:01 #3752 [verbose] > │ |> fun x -> _v223 <- Some x │
00:01:01 #3753 [verbose] > │ let v238 : Async<System.Threading.CancellationToken> = _v223.Value │
00:01:01 #3754 [verbose] > │ v238 │
00:01:01 #3755 [verbose] > │ #endif │
00:01:01 #3756 [verbose] > │ #if FABLE_COMPILER_TYPESCRIPT │
00:01:01 #3757 [verbose] > │ let v239 : Async<System.Threading.CancellationToken> = null |> │
00:01:01 #3758 [verbose] > │ unbox<Async<System.Threading.CancellationToken>> │
00:01:01 #3759 [verbose] > │ v239 │
00:01:01 #3760 [verbose] > │ #endif │
00:01:01 #3761 [verbose] > │ #if FABLE_COMPILER_PYTHON || FABLE_COMPILER_PHP || FABLE_COMPILER_DART │
00:01:01 #3762 [verbose] > │ let v240 : Async<System.Threading.CancellationToken> = │
00:01:01 #3763 [verbose] > │ Unchecked.defaultof<Async<System.Threading.CancellationToken>> │
00:01:01 #3764 [verbose] > │ v240 │
00:01:01 #3765 [verbose] > │ #endif │
00:01:01 #3766 [verbose] > │ |> fun x -> _v219 <- Some x │
00:01:01 #3767 [verbose] > │ let v241 : Async<System.Threading.CancellationToken> = _v219.Value │
00:01:01 #3768 [verbose] > │ let! v241 = v241 │
00:01:01 #3769 [verbose] > │ let v242 : System.Threading.CancellationToken = v241 │
00:01:01 #3770 [verbose] > │ let v243 : ((unit -> unit) -> │
00:01:01 #3771 [verbose] > │ System.Threading.CancellationTokenRegistration) = v242.Register │
00:01:01 #3772 [verbose] > │ let v244 : (unit -> unit) = closure18(v201) │
00:01:01 #3773 [verbose] > │ let v245 : System.Threading.CancellationTokenRegistration = v243 v244 │
00:01:01 #3774 [verbose] > │ use v245 = v245 │
00:01:01 #3775 [verbose] > │ let v246 : System.Threading.CancellationTokenRegistration = v245 │
00:01:01 #3776 [verbose] > │ let v247 : Async<int32> option = None │
00:01:01 #3777 [verbose] > │ let mutable _v247 = v247 │
00:01:01 #3778 [verbose] > │ #if FABLE_COMPILER_RUST && !WASM && !CONTRACT │
00:01:01 #3779 [verbose] > │ let v248 : Async<int32> = null |> unbox<Async<int32>> │
00:01:01 #3780 [verbose] > │ v248 │
00:01:01 #3781 [verbose] > │ #endif │
00:01:01 #3782 [verbose] > │ #if FABLE_COMPILER_RUST && WASM │
00:01:01 #3783 [verbose] > │ let v249 : Async<int32> = null |> unbox<Async<int32>> │
00:01:01 #3784 [verbose] > │ v249 │
00:01:01 #3785 [verbose] > │ #endif │
00:01:01 #3786 [verbose] > │ #if FABLE_COMPILER_RUST && CONTRACT │
00:01:01 #3787 [verbose] > │ let v250 : Async<int32> = null |> unbox<Async<int32>> │
00:01:01 #3788 [verbose] > │ v250 │
00:01:01 #3789 [verbose] > │ #endif │
00:01:01 #3790 [verbose] > │ #if !FABLE_COMPILER && !FABLE_COMPILER_RUST && │
00:01:01 #3791 [verbose] > │ !FABLE_COMPILER_TYPESCRIPT && !WASM && !CONTRACT │
00:01:01 #3792 [verbose] > │ let v251 : Async<int32> option = None │
00:01:01 #3793 [verbose] > │ let mutable _v251 = v251 │
00:01:01 #3794 [verbose] > │ async { │
00:01:01 #3795 [verbose] > │ try │
00:01:01 #3796 [verbose] > │ let v252 : System.Threading.Tasks.Task = v201.WaitForExitAsync v242 │
00:01:01 #3797 [verbose] > │ let v253 : Async<unit> option = None │
00:01:01 #3798 [verbose] > │ let mutable _v253 = v253 │
00:01:01 #3799 [verbose] > │ #if FABLE_COMPILER_RUST && !WASM && !CONTRACT │
00:01:01 #3800 [verbose] > │ let v254 : Async<unit> = null |> unbox<Async<unit>> │
00:01:01 #3801 [verbose] > │ v254 │
00:01:01 #3802 [verbose] > │ #endif │
00:01:01 #3803 [verbose] > │ #if FABLE_COMPILER_RUST && WASM │
00:01:01 #3804 [verbose] > │ let v255 : Async<unit> = null |> unbox<Async<unit>> │
00:01:01 #3805 [verbose] > │ v255 │
00:01:01 #3806 [verbose] > │ #endif │
00:01:01 #3807 [verbose] > │ #if FABLE_COMPILER_RUST && CONTRACT │
00:01:01 #3808 [verbose] > │ let v256 : Async<unit> = null |> unbox<Async<unit>> │
00:01:01 #3809 [verbose] > │ v256 │
00:01:01 #3810 [verbose] > │ #endif │
00:01:01 #3811 [verbose] > │ #if !FABLE_COMPILER && !FABLE_COMPILER_RUST && │
00:01:01 #3812 [verbose] > │ !FABLE_COMPILER_TYPESCRIPT && !WASM && !CONTRACT │
00:01:01 #3813 [verbose] > │ let v257 : (System.Threading.Tasks.Task -> Async<unit>) = │
00:01:01 #3814 [verbose] > │ Async.AwaitTask │
00:01:01 #3815 [verbose] > │ let v258 : Async<unit> = v257 v252 │
00:01:01 #3816 [verbose] > │ v258 │
00:01:01 #3817 [verbose] > │ #endif │
00:01:01 #3818 [verbose] > │ #if FABLE_COMPILER_TYPESCRIPT │
00:01:01 #3819 [verbose] > │ let v259 : Async<unit> = null |> unbox<Async<unit>> │
00:01:01 #3820 [verbose] > │ v259 │
00:01:01 #3821 [verbose] > │ #endif │
00:01:01 #3822 [verbose] > │ #if FABLE_COMPILER_PYTHON || FABLE_COMPILER_PHP || FABLE_COMPILER_DART │
00:01:01 #3823 [verbose] > │ let v260 : Async<unit> = Unchecked.defaultof<Async<unit>> │
00:01:01 #3824 [verbose] > │ v260 │
00:01:01 #3825 [verbose] > │ #endif │
00:01:01 #3826 [verbose] > │ |> fun x -> _v253 <- Some x │
00:01:01 #3827 [verbose] > │ let v261 : Async<unit> = _v253.Value │
00:01:01 #3828 [verbose] > │ do! v261 │
00:01:01 #3829 [verbose] > │ let v262 : int32 = v201.ExitCode │
00:01:01 #3830 [verbose] > │ return v262 │
00:01:01 #3831 [verbose] > │ with ex -> │
00:01:01 #3832 [verbose] > │ let v263 : exn = ex │
00:01:01 #3833 [verbose] > │ let v264 : string option = None │
00:01:01 #3834 [verbose] > │ let mutable _v264 = v264 │
00:01:01 #3835 [verbose] > │ #if FABLE_COMPILER_RUST && !WASM && !CONTRACT │
00:01:01 #3836 [verbose] > │ let v265 : string = $"%A{v263}" │
00:01:01 #3837 [verbose] > │ v265 │
00:01:01 #3838 [verbose] > │ #endif │
00:01:01 #3839 [verbose] > │ #if FABLE_COMPILER_RUST && WASM │
00:01:01 #3840 [verbose] > │ let v266 : string = $"%A{v263}" │
00:01:01 #3841 [verbose] > │ v266 │
00:01:01 #3842 [verbose] > │ #endif │
00:01:01 #3843 [verbose] > │ #if FABLE_COMPILER_RUST && CONTRACT │
00:01:01 #3844 [verbose] > │ let v267 : string = $"%A{v263}" │
00:01:01 #3845 [verbose] > │ v267 │
00:01:01 #3846 [verbose] > │ #endif │
00:01:01 #3847 [verbose] > │ #if !FABLE_COMPILER && !FABLE_COMPILER_RUST && │
00:01:01 #3848 [verbose] > │ !FABLE_COMPILER_TYPESCRIPT && !WASM && !CONTRACT │
00:01:01 #3849 [verbose] > │ let v268 : string = $"{v263.GetType ()}: {v263.Message}" │
00:01:01 #3850 [verbose] > │ v268 │
00:01:01 #3851 [verbose] > │ #endif │
00:01:01 #3852 [verbose] > │ #if FABLE_COMPILER_TYPESCRIPT │
00:01:01 #3853 [verbose] > │ let v269 : string = $"%A{v263}" │
00:01:01 #3854 [verbose] > │ v269 │
00:01:01 #3855 [verbose] > │ #endif │
00:01:01 #3856 [verbose] > │ #if FABLE_COMPILER_PYTHON || FABLE_COMPILER_PHP || FABLE_COMPILER_DART │
00:01:01 #3857 [verbose] > │ let v270 : string = Unchecked.defaultof<string> │
00:01:01 #3858 [verbose] > │ v270 │
00:01:01 #3859 [verbose] > │ #endif │
00:01:01 #3860 [verbose] > │ |> fun x -> _v264 <- Some x │
00:01:01 #3861 [verbose] > │ let v271 : string = _v264.Value │
00:01:01 #3862 [verbose] > │ let v272 : (string -> unit) = v203.Push │
00:01:01 #3863 [verbose] > │ v272 v271 │
00:01:01 #3864 [verbose] > │ let v273 : System.Threading.Tasks.TaskCanceledException = v263 |> │
00:01:01 #3865 [verbose] > │ unbox<System.Threading.Tasks.TaskCanceledException> │
00:01:01 #3866 [verbose] > │ let v274 : US0 = US0_3 │
00:01:01 #3867 [verbose] > │ let v275 : (unit -> string) = closure19(v273) │
00:01:01 #3868 [verbose] > │ let v276 : (unit -> string) = method9() │
00:01:01 #3869 [verbose] > │ method10(v274, v275, v276) │
00:01:01 #3870 [verbose] > │ return -2147483648 │
00:01:01 #3871 [verbose] > │ (* │
00:01:01 #3872 [verbose] > │ *) │
00:01:01 #3873 [verbose] > │ } │
00:01:01 #3874 [verbose] > │ |> fun x -> _v251 <- Some x │
00:01:01 #3875 [verbose] > │ let v277 : Async<int32> = _v251 |> Option.get │
00:01:01 #3876 [verbose] > │ v277 │
00:01:01 #3877 [verbose] > │ #endif │
00:01:01 #3878 [verbose] > │ #if FABLE_COMPILER_TYPESCRIPT │
00:01:01 #3879 [verbose] > │ let v278 : Async<int32> = null |> unbox<Async<int32>> │
00:01:01 #3880 [verbose] > │ v278 │
00:01:01 #3881 [verbose] > │ #endif │
00:01:01 #3882 [verbose] > │ #if FABLE_COMPILER_PYTHON || FABLE_COMPILER_PHP || FABLE_COMPILER_DART │
00:01:01 #3883 [verbose] > │ let v279 : Async<int32> = Unchecked.defaultof<Async<int32>> │
00:01:01 #3884 [verbose] > │ v279 │
00:01:01 #3885 [verbose] > │ #endif │
00:01:01 #3886 [verbose] > │ |> fun x -> _v247 <- Some x │
00:01:01 #3887 [verbose] > │ let v280 : Async<int32> = _v247.Value │
00:01:01 #3888 [verbose] > │ let! v280 = v280 │
00:01:01 #3889 [verbose] > │ let v281 : int32 = v280 │
00:01:01 #3890 [verbose] > │ let v282 : (System.Collections.Concurrent.ConcurrentStack<string> -> │
00:01:01 #3891 [verbose] > │ string seq) = Seq.rev │
00:01:01 #3892 [verbose] > │ let v283 : string seq = v282 v203 │
00:01:01 #3893 [verbose] > │ let v284 : string = method17() │
00:01:01 #3894 [verbose] > │ let v285 : (string -> (string seq -> string)) = String.concat │
00:01:01 #3895 [verbose] > │ let v286 : (string seq -> string) = v285 v284 │
00:01:01 #3896 [verbose] > │ let v287 : string = v286 v283 │
00:01:01 #3897 [verbose] > │ let v288 : US0 = US0_1 │
00:01:01 #3898 [verbose] > │ let v289 : (unit -> string) = closure20(v281, v287) │
00:01:01 #3899 [verbose] > │ let v290 : (unit -> string) = method9() │
00:01:01 #3900 [verbose] > │ method10(v288, v289, v290) │
00:01:01 #3901 [verbose] > │ return struct (v281, v287) │
00:01:01 #3902 [verbose] > │ } │
00:01:01 #3903 [verbose] > │ |> fun x -> _v173 <- Some x │
00:01:01 #3904 [verbose] > │ let v291 : Async<struct (int32 * string)> = _v173 |> Option.get │
00:01:01 #3905 [verbose] > │ v291 │
00:01:01 #3906 [verbose] > │ #endif │
00:01:01 #3907 [verbose] > │ #if FABLE_COMPILER_TYPESCRIPT │
00:01:01 #3908 [verbose] > │ let v292 : Async<struct (int32 * string)> = null |> unbox<Async<struct │
00:01:01 #3909 [verbose] > │ (int32 * string)>> │
00:01:01 #3910 [verbose] > │ v292 │
00:01:01 #3911 [verbose] > │ #endif │
00:01:01 #3912 [verbose] > │ #if FABLE_COMPILER_PYTHON || FABLE_COMPILER_PHP || FABLE_COMPILER_DART │
00:01:01 #3913 [verbose] > │ let v293 : Async<struct (int32 * string)> = │
00:01:01 #3914 [verbose] > │ Unchecked.defaultof<Async<struct (int32 * string)>> │
00:01:01 #3915 [verbose] > │ v293 │
00:01:01 #3916 [verbose] > │ #endif │
00:01:01 #3917 [verbose] > │ |> fun x -> _v169 <- Some x │
00:01:01 #3918 [verbose] > │ let v294 : Async<struct (int32 * string)> = _v169.Value │
00:01:01 #3919 [verbose] > │ let v295 : (US0 -> US8) = method18() │
00:01:01 #3920 [verbose] > │ let v296 : US8 = US8_1 │
00:01:01 #3921 [verbose] > │ let v297 : US8 = v164 |> Option.map v295 |> Option.defaultValue v296 │
00:01:01 #3922 [verbose] > │ let v318 : Async<struct (int32 * string)> = │
00:01:01 #3923 [verbose] > │ match v297 with │
00:01:01 #3924 [verbose] > │ | US8_1 -> (* None *) │
00:01:01 #3925 [verbose] > │ v294 │
00:01:01 #3926 [verbose] > │ | US8_0(v298) -> (* Some *) │
00:01:01 #3927 [verbose] > │ let v299 : Async<struct (int32 * string)> option = None │
00:01:01 #3928 [verbose] > │ let mutable _v299 = v299 │
00:01:01 #3929 [verbose] > │ #if FABLE_COMPILER_RUST && !WASM && !CONTRACT │
00:01:01 #3930 [verbose] > │ let v300 : Async<struct (int32 * string)> = null |> │
00:01:01 #3931 [verbose] > │ unbox<Async<struct (int32 * string)>> │
00:01:01 #3932 [verbose] > │ v300 │
00:01:01 #3933 [verbose] > │ #endif │
00:01:01 #3934 [verbose] > │ #if FABLE_COMPILER_RUST && WASM │
00:01:01 #3935 [verbose] > │ let v301 : Async<struct (int32 * string)> = null |> │
00:01:01 #3936 [verbose] > │ unbox<Async<struct (int32 * string)>> │
00:01:01 #3937 [verbose] > │ v301 │
00:01:01 #3938 [verbose] > │ #endif │
00:01:01 #3939 [verbose] > │ #if FABLE_COMPILER_RUST && CONTRACT │
00:01:01 #3940 [verbose] > │ let v302 : Async<struct (int32 * string)> = null |> │
00:01:01 #3941 [verbose] > │ unbox<Async<struct (int32 * string)>> │
00:01:01 #3942 [verbose] > │ v302 │
00:01:01 #3943 [verbose] > │ #endif │
00:01:01 #3944 [verbose] > │ #if !FABLE_COMPILER && !FABLE_COMPILER_RUST && │
00:01:01 #3945 [verbose] > │ !FABLE_COMPILER_TYPESCRIPT && !WASM && !CONTRACT │
00:01:01 #3946 [verbose] > │ let v303 : Async<struct (int32 * string)> option = None │
00:01:01 #3947 [verbose] > │ let mutable _v303 = v303 │
00:01:01 #3948 [verbose] > │ async { │
00:01:01 #3949 [verbose] > │ let v304 : (unit -> struct (Mut0 * Mut1 * Mut1 * Mut2 * int64 │
00:01:01 #3950 [verbose] > │ option)) = closure10() │
00:01:01 #3951 [verbose] > │ if State.trace_state = None then State.trace_state <- v304 () |> │
00:01:01 #3952 [verbose] > │ Some │
00:01:01 #3953 [verbose] > │ let struct (v305 : Mut0, v306 : Mut1, v307 : Mut1, v308 : Mut2, │
00:01:01 #3954 [verbose] > │ v309 : int64 option) = State.trace_state.Value │
00:01:01 #3955 [verbose] > │ let v310 : US0 = v308.l0 │
00:01:01 #3956 [verbose] > │ try │
00:01:01 #3957 [verbose] > │ v308.l0 <- v298 │
00:01:01 #3958 [verbose] > │ return! v294 │
00:01:01 #3959 [verbose] > │ finally │
00:01:01 #3960 [verbose] > │ v308.l0 <- v310 │
00:01:01 #3961 [verbose] > │ (* │
00:01:01 #3962 [verbose] > │ let struct (v311 : int32, v312 : string) = *) │
00:01:01 #3963 [verbose] > │ } │
00:01:01 #3964 [verbose] > │ |> fun x -> _v303 <- Some x │
00:01:01 #3965 [verbose] > │ let v313 : Async<struct (int32 * string)> = _v303 |> Option.get │
00:01:01 #3966 [verbose] > │ v313 │
00:01:01 #3967 [verbose] > │ #endif │
00:01:01 #3968 [verbose] > │ #if FABLE_COMPILER_TYPESCRIPT │
00:01:01 #3969 [verbose] > │ let v314 : Async<struct (int32 * string)> = null |> │
00:01:01 #3970 [verbose] > │ unbox<Async<struct (int32 * string)>> │
00:01:01 #3971 [verbose] > │ v314 │
00:01:01 #3972 [verbose] > │ #endif │
00:01:01 #3973 [verbose] > │ #if FABLE_COMPILER_PYTHON || FABLE_COMPILER_PHP || │
00:01:01 #3974 [verbose] > │ FABLE_COMPILER_DART │
00:01:01 #3975 [verbose] > │ let v315 : Async<struct (int32 * string)> = │
00:01:01 #3976 [verbose] > │ Unchecked.defaultof<Async<struct (int32 * string)>> │
00:01:01 #3977 [verbose] > │ v315 │
00:01:01 #3978 [verbose] > │ #endif │
00:01:01 #3979 [verbose] > │ |> fun x -> _v299 <- Some x │
00:01:01 #3980 [verbose] > │ let v316 : Async<struct (int32 * string)> = _v299.Value │
00:01:01 #3981 [verbose] > │ v316 │
00:01:01 #3982 [verbose] > │ v318 │
00:01:01 #3983 [verbose] > │ #endif │
00:01:01 #3984 [verbose] > │ #if FABLE_COMPILER_TYPESCRIPT │
00:01:01 #3985 [verbose] > │ let v319 : Async<struct (int32 * string)> = null |> unbox<Async<struct │
00:01:01 #3986 [verbose] > │ (int32 * string)>> │
00:01:01 #3987 [verbose] > │ v319 │
00:01:01 #3988 [verbose] > │ #endif │
00:01:01 #3989 [verbose] > │ #if FABLE_COMPILER_PYTHON || FABLE_COMPILER_PHP || FABLE_COMPILER_DART │
00:01:01 #3990 [verbose] > │ let v320 : Async<struct (int32 * string)> = │
00:01:01 #3991 [verbose] > │ Unchecked.defaultof<Async<struct (int32 * string)>> │
00:01:01 #3992 [verbose] > │ v320 │
00:01:01 #3993 [verbose] > │ #endif │
00:01:01 #3994 [verbose] > │ |> fun x -> _v165 <- Some x │
00:01:01 #3995 [verbose] > │ let v321 : Async<struct (int32 * string)> = _v165.Value │
00:01:01 #3996 [verbose] > │ let! v321 = v321 │
00:01:01 #3997 [verbose] > │ let struct (v322 : int32, v323 : string) = v321 │
00:01:01 #3998 [verbose] > │ let v324 : string = $"%A{v322}" │
00:01:01 #3999 [verbose] > │ System.Console.WriteLine v324 │
00:01:01 #4000 [verbose] > │ let v325 : bool = v322 = 1 │
00:01:01 #4001 [verbose] > │ let v327 : bool = │
00:01:01 #4002 [verbose] > │ if v325 then │
00:01:01 #4003 [verbose] > │ true │
00:01:01 #4004 [verbose] > │ else │
00:01:01 #4005 [verbose] > │ method19(v325) │
00:01:01 #4006 [verbose] > │ let v328 : string = $"__expect / actual: %A{v322} / expected: %A{1}" │
00:01:01 #4007 [verbose] > │ let v329 : bool = v327 = false │
00:01:01 #4008 [verbose] > │ if v329 then │
00:01:01 #4009 [verbose] > │ failwith<unit> v328 │
00:01:01 #4010 [verbose] > │ let v330 : string = "not exist" │
00:01:01 #4011 [verbose] > │ let v331 : string = $"%A{v330}" │
00:01:01 #4012 [verbose] > │ System.Console.WriteLine v331 │
00:01:01 #4013 [verbose] > │ let v332 : bool = v323.Contains v330 │
00:01:01 #4014 [verbose] > │ let v334 : bool = │
00:01:01 #4015 [verbose] > │ if v332 then │
00:01:01 #4016 [verbose] > │ true │
00:01:01 #4017 [verbose] > │ else │
00:01:01 #4018 [verbose] > │ method19(v332) │
00:01:01 #4019 [verbose] > │ let v335 : string = $"__expect / actual: %A{v330} / expected: %A{v323}" │
00:01:01 #4020 [verbose] > │ let v336 : bool = v334 = false │
00:01:01 #4021 [verbose] > │ if v336 then │
00:01:01 #4022 [verbose] > │ failwith<unit> v335 │
00:01:01 #4023 [verbose] > │ let v337 : Async<unit> option = None │
00:01:01 #4024 [verbose] > │ let mutable _v337 = v337 │
00:01:01 #4025 [verbose] > │ #if FABLE_COMPILER_RUST && !WASM && !CONTRACT │
00:01:01 #4026 [verbose] > │ let v338 : Async<unit> = null |> unbox<Async<unit>> │
00:01:01 #4027 [verbose] > │ v338 │
00:01:01 #4028 [verbose] > │ #endif │
00:01:01 #4029 [verbose] > │ #if FABLE_COMPILER_RUST && WASM │
00:01:01 #4030 [verbose] > │ let v339 : Async<unit> = null |> unbox<Async<unit>> │
00:01:01 #4031 [verbose] > │ v339 │
00:01:01 #4032 [verbose] > │ #endif │
00:01:01 #4033 [verbose] > │ #if FABLE_COMPILER_RUST && CONTRACT │
00:01:01 #4034 [verbose] > │ let v340 : Async<unit> = null |> unbox<Async<unit>> │
00:01:01 #4035 [verbose] > │ v340 │
00:01:01 #4036 [verbose] > │ #endif │
00:01:01 #4037 [verbose] > │ #if !FABLE_COMPILER && !FABLE_COMPILER_RUST && │
00:01:01 #4038 [verbose] > │ !FABLE_COMPILER_TYPESCRIPT && !WASM && !CONTRACT │
00:01:01 #4039 [verbose] > │ let v341 : string = "0" │
00:01:01 #4040 [verbose] > │ let v342 : System.Threading.Tasks.Task = │
00:01:01 #4041 [verbose] > │ System.IO.File.WriteAllTextAsync (v154, v341) │
00:01:01 #4042 [verbose] > │ let v343 : Async<unit> option = None │
00:01:01 #4043 [verbose] > │ let mutable _v343 = v343 │
00:01:01 #4044 [verbose] > │ #if FABLE_COMPILER_RUST && !WASM && !CONTRACT │
00:01:01 #4045 [verbose] > │ let v344 : Async<unit> = null |> unbox<Async<unit>> │
00:01:01 #4046 [verbose] > │ v344 │
00:01:01 #4047 [verbose] > │ #endif │
00:01:01 #4048 [verbose] > │ #if FABLE_COMPILER_RUST && WASM │
00:01:01 #4049 [verbose] > │ let v345 : Async<unit> = null |> unbox<Async<unit>> │
00:01:01 #4050 [verbose] > │ v345 │
00:01:01 #4051 [verbose] > │ #endif │
00:01:01 #4052 [verbose] > │ #if FABLE_COMPILER_RUST && CONTRACT │
00:01:01 #4053 [verbose] > │ let v346 : Async<unit> = null |> unbox<Async<unit>> │
00:01:01 #4054 [verbose] > │ v346 │
00:01:01 #4055 [verbose] > │ #endif │
00:01:01 #4056 [verbose] > │ #if !FABLE_COMPILER && !FABLE_COMPILER_RUST && │
00:01:01 #4057 [verbose] > │ !FABLE_COMPILER_TYPESCRIPT && !WASM && !CONTRACT │
00:01:01 #4058 [verbose] > │ let v347 : (System.Threading.Tasks.Task -> Async<unit>) = │
00:01:01 #4059 [verbose] > │ Async.AwaitTask │
00:01:01 #4060 [verbose] > │ let v348 : Async<unit> = v347 v342 │
00:01:01 #4061 [verbose] > │ v348 │
00:01:01 #4062 [verbose] > │ #endif │
00:01:01 #4063 [verbose] > │ #if FABLE_COMPILER_TYPESCRIPT │
00:01:01 #4064 [verbose] > │ let v349 : Async<unit> = null |> unbox<Async<unit>> │
00:01:01 #4065 [verbose] > │ v349 │
00:01:01 #4066 [verbose] > │ #endif │
00:01:01 #4067 [verbose] > │ #if FABLE_COMPILER_PYTHON || FABLE_COMPILER_PHP || FABLE_COMPILER_DART │
00:01:01 #4068 [verbose] > │ let v350 : Async<unit> = Unchecked.defaultof<Async<unit>> │
00:01:01 #4069 [verbose] > │ v350 │
00:01:01 #4070 [verbose] > │ #endif │
00:01:01 #4071 [verbose] > │ |> fun x -> _v343 <- Some x │
00:01:01 #4072 [verbose] > │ let v351 : Async<unit> = _v343.Value │
00:01:01 #4073 [verbose] > │ v351 │
00:01:01 #4074 [verbose] > │ #endif │
00:01:01 #4075 [verbose] > │ #if FABLE_COMPILER_TYPESCRIPT │
00:01:01 #4076 [verbose] > │ let v352 : Async<unit> = null |> unbox<Async<unit>> │
00:01:01 #4077 [verbose] > │ v352 │
00:01:01 #4078 [verbose] > │ #endif │
00:01:01 #4079 [verbose] > │ #if FABLE_COMPILER_PYTHON || FABLE_COMPILER_PHP || FABLE_COMPILER_DART │
00:01:01 #4080 [verbose] > │ let v353 : Async<unit> = Unchecked.defaultof<Async<unit>> │
00:01:01 #4081 [verbose] > │ v353 │
00:01:01 #4082 [verbose] > │ #endif │
00:01:01 #4083 [verbose] > │ |> fun x -> _v337 <- Some x │
00:01:01 #4084 [verbose] > │ let v354 : Async<unit> = _v337.Value │
00:01:01 #4085 [verbose] > │ do! v354 │
00:01:01 #4086 [verbose] > │ let v355 : System.Threading.CancellationToken option = None │
00:01:01 #4087 [verbose] > │ let v356 : (struct (bool * string * int32) -> Async<unit>) option = None │
00:01:01 #4088 [verbose] > │ let v357 : string option = None │
00:01:01 #4089 [verbose] > │ let v358 : US0 option = None │
00:01:01 #4090 [verbose] > │ let v359 : string = @$"pwsh -c ""Get-Content {v148}""" │
00:01:01 #4091 [verbose] > │ let v360 : string option = Some v124 │
00:01:01 #4092 [verbose] > │ let v361 : Async<struct (int32 * string)> option = None │
00:01:01 #4093 [verbose] > │ let mutable _v361 = v361 │
00:01:01 #4094 [verbose] > │ #if FABLE_COMPILER_RUST && !WASM && !CONTRACT │
00:01:01 #4095 [verbose] > │ let v362 : Async<struct (int32 * string)> = null |> unbox<Async<struct │
00:01:01 #4096 [verbose] > │ (int32 * string)>> │
00:01:01 #4097 [verbose] > │ v362 │
00:01:01 #4098 [verbose] > │ #endif │
00:01:01 #4099 [verbose] > │ #if FABLE_COMPILER_RUST && WASM │
00:01:01 #4100 [verbose] > │ let v363 : Async<struct (int32 * string)> = null |> unbox<Async<struct │
00:01:01 #4101 [verbose] > │ (int32 * string)>> │
00:01:01 #4102 [verbose] > │ v363 │
00:01:01 #4103 [verbose] > │ #endif │
00:01:01 #4104 [verbose] > │ #if FABLE_COMPILER_RUST && CONTRACT │
00:01:01 #4105 [verbose] > │ let v364 : Async<struct (int32 * string)> = null |> unbox<Async<struct │
00:01:01 #4106 [verbose] > │ (int32 * string)>> │
00:01:01 #4107 [verbose] > │ v364 │
00:01:01 #4108 [verbose] > │ #endif │
00:01:01 #4109 [verbose] > │ #if !FABLE_COMPILER && !FABLE_COMPILER_RUST && │
00:01:01 #4110 [verbose] > │ !FABLE_COMPILER_TYPESCRIPT && !WASM && !CONTRACT │
00:01:01 #4111 [verbose] > │ let v365 : Async<struct (int32 * string)> option = None │
00:01:01 #4112 [verbose] > │ let mutable _v365 = v365 │
00:01:01 #4113 [verbose] > │ #if FABLE_COMPILER_RUST && !WASM && !CONTRACT │
00:01:01 #4114 [verbose] > │ let v366 : Async<struct (int32 * string)> = null |> unbox<Async<struct │
00:01:01 #4115 [verbose] > │ (int32 * string)>> │
00:01:01 #4116 [verbose] > │ v366 │
00:01:01 #4117 [verbose] > │ #endif │
00:01:01 #4118 [verbose] > │ #if FABLE_COMPILER_RUST && WASM │
00:01:01 #4119 [verbose] > │ let v367 : Async<struct (int32 * string)> = null |> unbox<Async<struct │
00:01:01 #4120 [verbose] > │ (int32 * string)>> │
00:01:01 #4121 [verbose] > │ v367 │
00:01:01 #4122 [verbose] > │ #endif │
00:01:01 #4123 [verbose] > │ #if FABLE_COMPILER_RUST && CONTRACT │
00:01:01 #4124 [verbose] > │ let v368 : Async<struct (int32 * string)> = null |> unbox<Async<struct │
00:01:01 #4125 [verbose] > │ (int32 * string)>> │
00:01:01 #4126 [verbose] > │ v368 │
00:01:01 #4127 [verbose] > │ #endif │
00:01:01 #4128 [verbose] > │ #if !FABLE_COMPILER && !FABLE_COMPILER_RUST && │
00:01:01 #4129 [verbose] > │ !FABLE_COMPILER_TYPESCRIPT && !WASM && !CONTRACT │
00:01:01 #4130 [verbose] > │ let v369 : Async<struct (int32 * string)> option = None │
00:01:01 #4131 [verbose] > │ let mutable _v369 = v369 │
00:01:01 #4132 [verbose] > │ async { │
00:01:01 #4133 [verbose] > │ let struct (v370 : string, v371 : string) = method5() │
00:01:01 #4134 [verbose] > │ let v372 : char seq = v359 |> unbox<char seq> │
00:01:01 #4135 [verbose] > │ let v373 : (char seq -> char list) = Seq.toList │
00:01:01 #4136 [verbose] > │ let v374 : char list = v373 v372 │
00:01:01 #4137 [verbose] > │ let v375 : ((char -> (UH0 -> UH0)) -> (char list -> (UH0 -> UH0))) = │
00:01:01 #4138 [verbose] > │ List.foldBack │
00:01:01 #4139 [verbose] > │ let v376 : (char -> (UH0 -> UH0)) = method6() │
00:01:01 #4140 [verbose] > │ let v377 : (char list -> (UH0 -> UH0)) = v375 v376 │
00:01:01 #4141 [verbose] > │ let v378 : (UH0 -> UH0) = v377 v374 │
00:01:01 #4142 [verbose] > │ let v379 : UH0 = UH0_0 │
00:01:01 #4143 [verbose] > │ let v380 : UH0 = v378 v379 │
00:01:01 #4144 [verbose] > │ let v381 : US1 = US1_0 │
00:01:01 #4145 [verbose] > │ let struct (v382 : string, v383 : string) = method7(v371, v370, v380, │
00:01:01 #4146 [verbose] > │ v381) │
00:01:01 #4147 [verbose] > │ let v384 : (string -> US3) = method8() │
00:01:01 #4148 [verbose] > │ let v385 : US3 = US3_1 │
00:01:01 #4149 [verbose] > │ let v386 : US3 = v360 |> Option.map v384 |> Option.defaultValue v385 │
00:01:01 #4150 [verbose] > │ let v390 : string = │
00:01:01 #4151 [verbose] > │ match v386 with │
00:01:01 #4152 [verbose] > │ | US3_1 -> (* None *) │
00:01:01 #4153 [verbose] > │ let v388 : string = "" │
00:01:01 #4154 [verbose] > │ v388 │
00:01:01 #4155 [verbose] > │ | US3_0(v387) -> (* Some *) │
00:01:01 #4156 [verbose] > │ v387 │
00:01:01 #4157 [verbose] > │ let v391 : US0 = US0_1 │
00:01:01 #4158 [verbose] > │ let v392 : (unit -> string) = closure9(v355, v359, v356, v358, v360) │
00:01:01 #4159 [verbose] > │ let v393 : (unit -> string) = method9() │
00:01:01 #4160 [verbose] > │ method10(v391, v392, v393) │
00:01:01 #4161 [verbose] > │ let v394 : System.Text.Encoding = System.Text.Encoding.UTF8 │
00:01:01 #4162 [verbose] > │ let v395 : System.Diagnostics.ProcessStartInfo = │
00:01:01 #4163 [verbose] > │ System.Diagnostics.ProcessStartInfo (Arguments = v383, │
00:01:01 #4164 [verbose] > │ StandardOutputEncoding = v394, WorkingDirectory = v390, FileName = v382, │
00:01:01 #4165 [verbose] > │ CreateNoWindow = true, RedirectStandardError = true, RedirectStandardOutput │
00:01:01 #4166 [verbose] > │ = true, UseShellExecute = false) │
00:01:01 #4167 [verbose] > │ let v396 : System.Diagnostics.Process = new System.Diagnostics.Process │
00:01:01 #4168 [verbose] > │ (StartInfo = v395) │
00:01:01 #4169 [verbose] > │ use v396 = v396 │
00:01:01 #4170 [verbose] > │ let v397 : System.Diagnostics.Process = v396 │
00:01:01 #4171 [verbose] > │ let v398 : (unit -> │
00:01:01 #4172 [verbose] > │ System.Collections.Concurrent.ConcurrentStack<string>) = │
00:01:01 #4173 [verbose] > │ System.Collections.Concurrent.ConcurrentStack<string> │
00:01:01 #4174 [verbose] > │ let v399 : System.Collections.Concurrent.ConcurrentStack<string> = v398 │
00:01:01 #4175 [verbose] > │ () │
00:01:01 #4176 [verbose] > │ let v400 : (System.Diagnostics.DataReceivedEventArgs -> unit) = │
00:01:01 #4177 [verbose] > │ closure13(v355, v359, v356, v358, v360, v397, v399) │
00:01:01 #4178 [verbose] > │ v397.OutputDataReceived.Add v400 │
00:01:01 #4179 [verbose] > │ let v401 : (System.Diagnostics.DataReceivedEventArgs -> unit) = │
00:01:01 #4180 [verbose] > │ closure16(v355, v359, v356, v358, v360, v397, v399) │
00:01:01 #4181 [verbose] > │ v397.ErrorDataReceived.Add v401 │
00:01:01 #4182 [verbose] > │ let v402 : (unit -> bool) = v397.Start │
00:01:01 #4183 [verbose] > │ let v403 : bool = v402 () │
00:01:01 #4184 [verbose] > │ let v404 : bool = v403 = false │
00:01:01 #4185 [verbose] > │ if v404 then │
00:01:01 #4186 [verbose] > │ let v405 : string = $"execute_with_options_async / process_start │
00:01:01 #4187 [verbose] > │ error" │
00:01:01 #4188 [verbose] > │ failwith<unit> v405 │
00:01:01 #4189 [verbose] > │ let v406 : (unit -> unit) = v397.BeginErrorReadLine │
00:01:01 #4190 [verbose] > │ v406 () │
00:01:01 #4191 [verbose] > │ let v407 : (unit -> unit) = v397.BeginOutputReadLine │
00:01:01 #4192 [verbose] > │ v407 () │
00:01:01 #4193 [verbose] > │ let v408 : (System.Threading.CancellationToken -> US7) = method16() │
00:01:01 #4194 [verbose] > │ let v409 : US7 = US7_1 │
00:01:01 #4195 [verbose] > │ let v410 : US7 = v355 |> Option.map v408 |> Option.defaultValue v409 │
00:01:01 #4196 [verbose] > │ let v414 : System.Threading.CancellationToken = │
00:01:01 #4197 [verbose] > │ match v410 with │
00:01:01 #4198 [verbose] > │ | US7_1 -> (* None *) │
00:01:01 #4199 [verbose] > │ let v412 : System.Threading.CancellationToken = │
00:01:01 #4200 [verbose] > │ System.Threading.CancellationToken.None │
00:01:01 #4201 [verbose] > │ v412 │
00:01:01 #4202 [verbose] > │ | US7_0(v411) -> (* Some *) │
00:01:01 #4203 [verbose] > │ v411 │
00:01:01 #4204 [verbose] > │ let v415 : Async<System.Threading.CancellationToken> option = None │
00:01:01 #4205 [verbose] > │ let mutable _v415 = v415 │
00:01:01 #4206 [verbose] > │ #if FABLE_COMPILER_RUST && !WASM && !CONTRACT │
00:01:01 #4207 [verbose] > │ let v416 : Async<System.Threading.CancellationToken> = null |> │
00:01:01 #4208 [verbose] > │ unbox<Async<System.Threading.CancellationToken>> │
00:01:01 #4209 [verbose] > │ v416 │
00:01:01 #4210 [verbose] > │ #endif │
00:01:01 #4211 [verbose] > │ #if FABLE_COMPILER_RUST && WASM │
00:01:01 #4212 [verbose] > │ let v417 : Async<System.Threading.CancellationToken> = null |> │
00:01:01 #4213 [verbose] > │ unbox<Async<System.Threading.CancellationToken>> │
00:01:01 #4214 [verbose] > │ v417 │
00:01:01 #4215 [verbose] > │ #endif │
00:01:01 #4216 [verbose] > │ #if FABLE_COMPILER_RUST && CONTRACT │
00:01:01 #4217 [verbose] > │ let v418 : Async<System.Threading.CancellationToken> = null |> │
00:01:01 #4218 [verbose] > │ unbox<Async<System.Threading.CancellationToken>> │
00:01:01 #4219 [verbose] > │ v418 │
00:01:01 #4220 [verbose] > │ #endif │
00:01:01 #4221 [verbose] > │ #if !FABLE_COMPILER && !FABLE_COMPILER_RUST && │
00:01:01 #4222 [verbose] > │ !FABLE_COMPILER_TYPESCRIPT && !WASM && !CONTRACT │
00:01:01 #4223 [verbose] > │ let v419 : Async<System.Threading.CancellationToken> option = None │
00:01:01 #4224 [verbose] > │ let mutable _v419 = v419 │
00:01:01 #4225 [verbose] > │ #if FABLE_COMPILER_RUST && !WASM && !CONTRACT │
00:01:01 #4226 [verbose] > │ let v420 : Async<System.Threading.CancellationToken> = null |> │
00:01:01 #4227 [verbose] > │ unbox<Async<System.Threading.CancellationToken>> │
00:01:01 #4228 [verbose] > │ v420 │
00:01:01 #4229 [verbose] > │ #endif │
00:01:01 #4230 [verbose] > │ #if FABLE_COMPILER_RUST && WASM │
00:01:01 #4231 [verbose] > │ let v421 : Async<System.Threading.CancellationToken> = null |> │
00:01:01 #4232 [verbose] > │ unbox<Async<System.Threading.CancellationToken>> │
00:01:01 #4233 [verbose] > │ v421 │
00:01:01 #4234 [verbose] > │ #endif │
00:01:01 #4235 [verbose] > │ #if FABLE_COMPILER_RUST && CONTRACT │
00:01:01 #4236 [verbose] > │ let v422 : Async<System.Threading.CancellationToken> = null |> │
00:01:01 #4237 [verbose] > │ unbox<Async<System.Threading.CancellationToken>> │
00:01:01 #4238 [verbose] > │ v422 │
00:01:01 #4239 [verbose] > │ #endif │
00:01:01 #4240 [verbose] > │ #if !FABLE_COMPILER && !FABLE_COMPILER_RUST && │
00:01:01 #4241 [verbose] > │ !FABLE_COMPILER_TYPESCRIPT && !WASM && !CONTRACT │
00:01:01 #4242 [verbose] > │ let v423 : Async<System.Threading.CancellationToken> option = None │
00:01:01 #4243 [verbose] > │ let mutable _v423 = v423 │
00:01:01 #4244 [verbose] > │ async { │
00:01:01 #4245 [verbose] > │ let v424 : Async<System.Threading.CancellationToken> = │
00:01:01 #4246 [verbose] > │ Async.CancellationToken │
00:01:01 #4247 [verbose] > │ let! v424 = v424 │
00:01:01 #4248 [verbose] > │ let v425 : System.Threading.CancellationToken = v424 │
00:01:01 #4249 [verbose] > │ let v426 : System.Threading.CancellationToken = │
00:01:01 #4250 [verbose] > │ Async.DefaultCancellationToken │
00:01:01 #4251 [verbose] > │ let v427 : (System.Threading.CancellationToken []) = [|v425; v426; │
00:01:01 #4252 [verbose] > │ v414|] │
00:01:01 #4253 [verbose] > │ let v428 : ((System.Threading.CancellationToken []) -> │
00:01:01 #4254 [verbose] > │ System.Threading.CancellationTokenSource) = │
00:01:01 #4255 [verbose] > │ System.Threading.CancellationTokenSource.CreateLinkedTokenSource │
00:01:01 #4256 [verbose] > │ let v429 : System.Threading.CancellationTokenSource = v428 v427 │
00:01:01 #4257 [verbose] > │ let v430 : System.Threading.CancellationToken = v429.Token │
00:01:01 #4258 [verbose] > │ return v430 │
00:01:01 #4259 [verbose] > │ } │
00:01:01 #4260 [verbose] > │ |> fun x -> _v423 <- Some x │
00:01:01 #4261 [verbose] > │ let v431 : Async<System.Threading.CancellationToken> = _v423 |> │
00:01:01 #4262 [verbose] > │ Option.get │
00:01:01 #4263 [verbose] > │ v431 │
00:01:01 #4264 [verbose] > │ #endif │
00:01:01 #4265 [verbose] > │ #if FABLE_COMPILER_TYPESCRIPT │
00:01:01 #4266 [verbose] > │ let v432 : Async<System.Threading.CancellationToken> = null |> │
00:01:01 #4267 [verbose] > │ unbox<Async<System.Threading.CancellationToken>> │
00:01:01 #4268 [verbose] > │ v432 │
00:01:01 #4269 [verbose] > │ #endif │
00:01:01 #4270 [verbose] > │ #if FABLE_COMPILER_PYTHON || FABLE_COMPILER_PHP || FABLE_COMPILER_DART │
00:01:01 #4271 [verbose] > │ let v433 : Async<System.Threading.CancellationToken> = │
00:01:01 #4272 [verbose] > │ Unchecked.defaultof<Async<System.Threading.CancellationToken>> │
00:01:01 #4273 [verbose] > │ v433 │
00:01:01 #4274 [verbose] > │ #endif │
00:01:01 #4275 [verbose] > │ |> fun x -> _v419 <- Some x │
00:01:01 #4276 [verbose] > │ let v434 : Async<System.Threading.CancellationToken> = _v419.Value │
00:01:01 #4277 [verbose] > │ v434 │
00:01:01 #4278 [verbose] > │ #endif │
00:01:01 #4279 [verbose] > │ #if FABLE_COMPILER_TYPESCRIPT │
00:01:01 #4280 [verbose] > │ let v435 : Async<System.Threading.CancellationToken> = null |> │
00:01:01 #4281 [verbose] > │ unbox<Async<System.Threading.CancellationToken>> │
00:01:01 #4282 [verbose] > │ v435 │
00:01:01 #4283 [verbose] > │ #endif │
00:01:01 #4284 [verbose] > │ #if FABLE_COMPILER_PYTHON || FABLE_COMPILER_PHP || FABLE_COMPILER_DART │
00:01:01 #4285 [verbose] > │ let v436 : Async<System.Threading.CancellationToken> = │
00:01:01 #4286 [verbose] > │ Unchecked.defaultof<Async<System.Threading.CancellationToken>> │
00:01:01 #4287 [verbose] > │ v436 │
00:01:01 #4288 [verbose] > │ #endif │
00:01:01 #4289 [verbose] > │ |> fun x -> _v415 <- Some x │
00:01:01 #4290 [verbose] > │ let v437 : Async<System.Threading.CancellationToken> = _v415.Value │
00:01:01 #4291 [verbose] > │ let! v437 = v437 │
00:01:01 #4292 [verbose] > │ let v438 : System.Threading.CancellationToken = v437 │
00:01:01 #4293 [verbose] > │ let v439 : ((unit -> unit) -> │
00:01:01 #4294 [verbose] > │ System.Threading.CancellationTokenRegistration) = v438.Register │
00:01:01 #4295 [verbose] > │ let v440 : (unit -> unit) = closure18(v397) │
00:01:01 #4296 [verbose] > │ let v441 : System.Threading.CancellationTokenRegistration = v439 v440 │
00:01:01 #4297 [verbose] > │ use v441 = v441 │
00:01:01 #4298 [verbose] > │ let v442 : System.Threading.CancellationTokenRegistration = v441 │
00:01:01 #4299 [verbose] > │ let v443 : Async<int32> option = None │
00:01:01 #4300 [verbose] > │ let mutable _v443 = v443 │
00:01:01 #4301 [verbose] > │ #if FABLE_COMPILER_RUST && !WASM && !CONTRACT │
00:01:01 #4302 [verbose] > │ let v444 : Async<int32> = null |> unbox<Async<int32>> │
00:01:01 #4303 [verbose] > │ v444 │
00:01:01 #4304 [verbose] > │ #endif │
00:01:01 #4305 [verbose] > │ #if FABLE_COMPILER_RUST && WASM │
00:01:01 #4306 [verbose] > │ let v445 : Async<int32> = null |> unbox<Async<int32>> │
00:01:01 #4307 [verbose] > │ v445 │
00:01:01 #4308 [verbose] > │ #endif │
00:01:01 #4309 [verbose] > │ #if FABLE_COMPILER_RUST && CONTRACT │
00:01:01 #4310 [verbose] > │ let v446 : Async<int32> = null |> unbox<Async<int32>> │
00:01:01 #4311 [verbose] > │ v446 │
00:01:01 #4312 [verbose] > │ #endif │
00:01:01 #4313 [verbose] > │ #if !FABLE_COMPILER && !FABLE_COMPILER_RUST && │
00:01:01 #4314 [verbose] > │ !FABLE_COMPILER_TYPESCRIPT && !WASM && !CONTRACT │
00:01:01 #4315 [verbose] > │ let v447 : Async<int32> option = None │
00:01:01 #4316 [verbose] > │ let mutable _v447 = v447 │
00:01:01 #4317 [verbose] > │ async { │
00:01:01 #4318 [verbose] > │ try │
00:01:01 #4319 [verbose] > │ let v448 : System.Threading.Tasks.Task = v397.WaitForExitAsync v438 │
00:01:01 #4320 [verbose] > │ let v449 : Async<unit> option = None │
00:01:01 #4321 [verbose] > │ let mutable _v449 = v449 │
00:01:01 #4322 [verbose] > │ #if FABLE_COMPILER_RUST && !WASM && !CONTRACT │
00:01:01 #4323 [verbose] > │ let v450 : Async<unit> = null |> unbox<Async<unit>> │
00:01:01 #4324 [verbose] > │ v450 │
00:01:01 #4325 [verbose] > │ #endif │
00:01:01 #4326 [verbose] > │ #if FABLE_COMPILER_RUST && WASM │
00:01:01 #4327 [verbose] > │ let v451 : Async<unit> = null |> unbox<Async<unit>> │
00:01:01 #4328 [verbose] > │ v451 │
00:01:01 #4329 [verbose] > │ #endif │
00:01:01 #4330 [verbose] > │ #if FABLE_COMPILER_RUST && CONTRACT │
00:01:01 #4331 [verbose] > │ let v452 : Async<unit> = null |> unbox<Async<unit>> │
00:01:01 #4332 [verbose] > │ v452 │
00:01:01 #4333 [verbose] > │ #endif │
00:01:01 #4334 [verbose] > │ #if !FABLE_COMPILER && !FABLE_COMPILER_RUST && │
00:01:01 #4335 [verbose] > │ !FABLE_COMPILER_TYPESCRIPT && !WASM && !CONTRACT │
00:01:01 #4336 [verbose] > │ let v453 : (System.Threading.Tasks.Task -> Async<unit>) = │
00:01:01 #4337 [verbose] > │ Async.AwaitTask │
00:01:01 #4338 [verbose] > │ let v454 : Async<unit> = v453 v448 │
00:01:01 #4339 [verbose] > │ v454 │
00:01:01 #4340 [verbose] > │ #endif │
00:01:01 #4341 [verbose] > │ #if FABLE_COMPILER_TYPESCRIPT │
00:01:01 #4342 [verbose] > │ let v455 : Async<unit> = null |> unbox<Async<unit>> │
00:01:01 #4343 [verbose] > │ v455 │
00:01:01 #4344 [verbose] > │ #endif │
00:01:01 #4345 [verbose] > │ #if FABLE_COMPILER_PYTHON || FABLE_COMPILER_PHP || FABLE_COMPILER_DART │
00:01:01 #4346 [verbose] > │ let v456 : Async<unit> = Unchecked.defaultof<Async<unit>> │
00:01:01 #4347 [verbose] > │ v456 │
00:01:01 #4348 [verbose] > │ #endif │
00:01:01 #4349 [verbose] > │ |> fun x -> _v449 <- Some x │
00:01:01 #4350 [verbose] > │ let v457 : Async<unit> = _v449.Value │
00:01:01 #4351 [verbose] > │ do! v457 │
00:01:01 #4352 [verbose] > │ let v458 : int32 = v397.ExitCode │
00:01:01 #4353 [verbose] > │ return v458 │
00:01:01 #4354 [verbose] > │ with ex -> │
00:01:01 #4355 [verbose] > │ let v459 : exn = ex │
00:01:01 #4356 [verbose] > │ let v460 : string option = None │
00:01:01 #4357 [verbose] > │ let mutable _v460 = v460 │
00:01:01 #4358 [verbose] > │ #if FABLE_COMPILER_RUST && !WASM && !CONTRACT │
00:01:01 #4359 [verbose] > │ let v461 : string = $"%A{v459}" │
00:01:01 #4360 [verbose] > │ v461 │
00:01:01 #4361 [verbose] > │ #endif │
00:01:01 #4362 [verbose] > │ #if FABLE_COMPILER_RUST && WASM │
00:01:01 #4363 [verbose] > │ let v462 : string = $"%A{v459}" │
00:01:01 #4364 [verbose] > │ v462 │
00:01:01 #4365 [verbose] > │ #endif │
00:01:01 #4366 [verbose] > │ #if FABLE_COMPILER_RUST && CONTRACT │
00:01:01 #4367 [verbose] > │ let v463 : string = $"%A{v459}" │
00:01:01 #4368 [verbose] > │ v463 │
00:01:01 #4369 [verbose] > │ #endif │
00:01:01 #4370 [verbose] > │ #if !FABLE_COMPILER && !FABLE_COMPILER_RUST && │
00:01:01 #4371 [verbose] > │ !FABLE_COMPILER_TYPESCRIPT && !WASM && !CONTRACT │
00:01:01 #4372 [verbose] > │ let v464 : string = $"{v459.GetType ()}: {v459.Message}" │
00:01:01 #4373 [verbose] > │ v464 │
00:01:01 #4374 [verbose] > │ #endif │
00:01:01 #4375 [verbose] > │ #if FABLE_COMPILER_TYPESCRIPT │
00:01:01 #4376 [verbose] > │ let v465 : string = $"%A{v459}" │
00:01:01 #4377 [verbose] > │ v465 │
00:01:01 #4378 [verbose] > │ #endif │
00:01:01 #4379 [verbose] > │ #if FABLE_COMPILER_PYTHON || FABLE_COMPILER_PHP || FABLE_COMPILER_DART │
00:01:01 #4380 [verbose] > │ let v466 : string = Unchecked.defaultof<string> │
00:01:01 #4381 [verbose] > │ v466 │
00:01:01 #4382 [verbose] > │ #endif │
00:01:01 #4383 [verbose] > │ |> fun x -> _v460 <- Some x │
00:01:01 #4384 [verbose] > │ let v467 : string = _v460.Value │
00:01:01 #4385 [verbose] > │ let v468 : (string -> unit) = v399.Push │
00:01:01 #4386 [verbose] > │ v468 v467 │
00:01:01 #4387 [verbose] > │ let v469 : System.Threading.Tasks.TaskCanceledException = v459 |> │
00:01:01 #4388 [verbose] > │ unbox<System.Threading.Tasks.TaskCanceledException> │
00:01:01 #4389 [verbose] > │ let v470 : US0 = US0_3 │
00:01:01 #4390 [verbose] > │ let v471 : (unit -> string) = closure19(v469) │
00:01:01 #4391 [verbose] > │ let v472 : (unit -> string) = method9() │
00:01:01 #4392 [verbose] > │ method10(v470, v471, v472) │
00:01:01 #4393 [verbose] > │ return -2147483648 │
00:01:01 #4394 [verbose] > │ (* │
00:01:01 #4395 [verbose] > │ *) │
00:01:01 #4396 [verbose] > │ } │
00:01:01 #4397 [verbose] > │ |> fun x -> _v447 <- Some x │
00:01:01 #4398 [verbose] > │ let v473 : Async<int32> = _v447 |> Option.get │
00:01:01 #4399 [verbose] > │ v473 │
00:01:01 #4400 [verbose] > │ #endif │
00:01:01 #4401 [verbose] > │ #if FABLE_COMPILER_TYPESCRIPT │
00:01:01 #4402 [verbose] > │ let v474 : Async<int32> = null |> unbox<Async<int32>> │
00:01:01 #4403 [verbose] > │ v474 │
00:01:01 #4404 [verbose] > │ #endif │
00:01:01 #4405 [verbose] > │ #if FABLE_COMPILER_PYTHON || FABLE_COMPILER_PHP || FABLE_COMPILER_DART │
00:01:01 #4406 [verbose] > │ let v475 : Async<int32> = Unchecked.defaultof<Async<int32>> │
00:01:01 #4407 [verbose] > │ v475 │
00:01:01 #4408 [verbose] > │ #endif │
00:01:01 #4409 [verbose] > │ |> fun x -> _v443 <- Some x │
00:01:01 #4410 [verbose] > │ let v476 : Async<int32> = _v443.Value │
00:01:01 #4411 [verbose] > │ let! v476 = v476 │
00:01:01 #4412 [verbose] > │ let v477 : int32 = v476 │
00:01:01 #4413 [verbose] > │ let v478 : (System.Collections.Concurrent.ConcurrentStack<string> -> │
00:01:01 #4414 [verbose] > │ string seq) = Seq.rev │
00:01:01 #4415 [verbose] > │ let v479 : string seq = v478 v399 │
00:01:01 #4416 [verbose] > │ let v480 : string = method17() │
00:01:01 #4417 [verbose] > │ let v481 : (string -> (string seq -> string)) = String.concat │
00:01:01 #4418 [verbose] > │ let v482 : (string seq -> string) = v481 v480 │
00:01:01 #4419 [verbose] > │ let v483 : string = v482 v479 │
00:01:01 #4420 [verbose] > │ let v484 : US0 = US0_1 │
00:01:01 #4421 [verbose] > │ let v485 : (unit -> string) = closure20(v477, v483) │
00:01:01 #4422 [verbose] > │ let v486 : (unit -> string) = method9() │
00:01:01 #4423 [verbose] > │ method10(v484, v485, v486) │
00:01:01 #4424 [verbose] > │ return struct (v477, v483) │
00:01:01 #4425 [verbose] > │ } │
00:01:01 #4426 [verbose] > │ |> fun x -> _v369 <- Some x │
00:01:01 #4427 [verbose] > │ let v487 : Async<struct (int32 * string)> = _v369 |> Option.get │
00:01:01 #4428 [verbose] > │ v487 │
00:01:01 #4429 [verbose] > │ #endif │
00:01:01 #4430 [verbose] > │ #if FABLE_COMPILER_TYPESCRIPT │
00:01:01 #4431 [verbose] > │ let v488 : Async<struct (int32 * string)> = null |> unbox<Async<struct │
00:01:01 #4432 [verbose] > │ (int32 * string)>> │
00:01:01 #4433 [verbose] > │ v488 │
00:01:01 #4434 [verbose] > │ #endif │
00:01:01 #4435 [verbose] > │ #if FABLE_COMPILER_PYTHON || FABLE_COMPILER_PHP || FABLE_COMPILER_DART │
00:01:01 #4436 [verbose] > │ let v489 : Async<struct (int32 * string)> = │
00:01:01 #4437 [verbose] > │ Unchecked.defaultof<Async<struct (int32 * string)>> │
00:01:01 #4438 [verbose] > │ v489 │
00:01:01 #4439 [verbose] > │ #endif │
00:01:01 #4440 [verbose] > │ |> fun x -> _v365 <- Some x │
00:01:01 #4441 [verbose] > │ let v490 : Async<struct (int32 * string)> = _v365.Value │
00:01:01 #4442 [verbose] > │ let v491 : (US0 -> US8) = method18() │
00:01:01 #4443 [verbose] > │ let v492 : US8 = US8_1 │
00:01:01 #4444 [verbose] > │ let v493 : US8 = v358 |> Option.map v491 |> Option.defaultValue v492 │
00:01:01 #4445 [verbose] > │ let v514 : Async<struct (int32 * string)> = │
00:01:01 #4446 [verbose] > │ match v493 with │
00:01:01 #4447 [verbose] > │ | US8_1 -> (* None *) │
00:01:01 #4448 [verbose] > │ v490 │
00:01:01 #4449 [verbose] > │ | US8_0(v494) -> (* Some *) │
00:01:01 #4450 [verbose] > │ let v495 : Async<struct (int32 * string)> option = None │
00:01:01 #4451 [verbose] > │ let mutable _v495 = v495 │
00:01:01 #4452 [verbose] > │ #if FABLE_COMPILER_RUST && !WASM && !CONTRACT │
00:01:01 #4453 [verbose] > │ let v496 : Async<struct (int32 * string)> = null |> │
00:01:01 #4454 [verbose] > │ unbox<Async<struct (int32 * string)>> │
00:01:01 #4455 [verbose] > │ v496 │
00:01:01 #4456 [verbose] > │ #endif │
00:01:01 #4457 [verbose] > │ #if FABLE_COMPILER_RUST && WASM │
00:01:01 #4458 [verbose] > │ let v497 : Async<struct (int32 * string)> = null |> │
00:01:01 #4459 [verbose] > │ unbox<Async<struct (int32 * string)>> │
00:01:01 #4460 [verbose] > │ v497 │
00:01:01 #4461 [verbose] > │ #endif │
00:01:01 #4462 [verbose] > │ #if FABLE_COMPILER_RUST && CONTRACT │
00:01:01 #4463 [verbose] > │ let v498 : Async<struct (int32 * string)> = null |> │
00:01:01 #4464 [verbose] > │ unbox<Async<struct (int32 * string)>> │
00:01:01 #4465 [verbose] > │ v498 │
00:01:01 #4466 [verbose] > │ #endif │
00:01:01 #4467 [verbose] > │ #if !FABLE_COMPILER && !FABLE_COMPILER_RUST && │
00:01:01 #4468 [verbose] > │ !FABLE_COMPILER_TYPESCRIPT && !WASM && !CONTRACT │
00:01:01 #4469 [verbose] > │ let v499 : Async<struct (int32 * string)> option = None │
00:01:01 #4470 [verbose] > │ let mutable _v499 = v499 │
00:01:01 #4471 [verbose] > │ async { │
00:01:01 #4472 [verbose] > │ let v500 : (unit -> struct (Mut0 * Mut1 * Mut1 * Mut2 * int64 │
00:01:01 #4473 [verbose] > │ option)) = closure10() │
00:01:01 #4474 [verbose] > │ if State.trace_state = None then State.trace_state <- v500 () |> │
00:01:01 #4475 [verbose] > │ Some │
00:01:01 #4476 [verbose] > │ let struct (v501 : Mut0, v502 : Mut1, v503 : Mut1, v504 : Mut2, │
00:01:01 #4477 [verbose] > │ v505 : int64 option) = State.trace_state.Value │
00:01:01 #4478 [verbose] > │ let v506 : US0 = v504.l0 │
00:01:01 #4479 [verbose] > │ try │
00:01:01 #4480 [verbose] > │ v504.l0 <- v494 │
00:01:01 #4481 [verbose] > │ return! v490 │
00:01:01 #4482 [verbose] > │ finally │
00:01:01 #4483 [verbose] > │ v504.l0 <- v506 │
00:01:01 #4484 [verbose] > │ (* │
00:01:01 #4485 [verbose] > │ let struct (v507 : int32, v508 : string) = *) │
00:01:01 #4486 [verbose] > │ } │
00:01:01 #4487 [verbose] > │ |> fun x -> _v499 <- Some x │
00:01:01 #4488 [verbose] > │ let v509 : Async<struct (int32 * string)> = _v499 |> Option.get │
00:01:01 #4489 [verbose] > │ v509 │
00:01:01 #4490 [verbose] > │ #endif │
00:01:01 #4491 [verbose] > │ #if FABLE_COMPILER_TYPESCRIPT │
00:01:01 #4492 [verbose] > │ let v510 : Async<struct (int32 * string)> = null |> │
00:01:01 #4493 [verbose] > │ unbox<Async<struct (int32 * string)>> │
00:01:01 #4494 [verbose] > │ v510 │
00:01:01 #4495 [verbose] > │ #endif │
00:01:01 #4496 [verbose] > │ #if FABLE_COMPILER_PYTHON || FABLE_COMPILER_PHP || │
00:01:01 #4497 [verbose] > │ FABLE_COMPILER_DART │
00:01:01 #4498 [verbose] > │ let v511 : Async<struct (int32 * string)> = │
00:01:01 #4499 [verbose] > │ Unchecked.defaultof<Async<struct (int32 * string)>> │
00:01:01 #4500 [verbose] > │ v511 │
00:01:01 #4501 [verbose] > │ #endif │
00:01:01 #4502 [verbose] > │ |> fun x -> _v495 <- Some x │
00:01:01 #4503 [verbose] > │ let v512 : Async<struct (int32 * string)> = _v495.Value │
00:01:01 #4504 [verbose] > │ v512 │
00:01:01 #4505 [verbose] > │ v514 │
00:01:01 #4506 [verbose] > │ #endif │
00:01:01 #4507 [verbose] > │ #if FABLE_COMPILER_TYPESCRIPT │
00:01:01 #4508 [verbose] > │ let v515 : Async<struct (int32 * string)> = null |> unbox<Async<struct │
00:01:01 #4509 [verbose] > │ (int32 * string)>> │
00:01:01 #4510 [verbose] > │ v515 │
00:01:01 #4511 [verbose] > │ #endif │
00:01:01 #4512 [verbose] > │ #if FABLE_COMPILER_PYTHON || FABLE_COMPILER_PHP || FABLE_COMPILER_DART │
00:01:01 #4513 [verbose] > │ let v516 : Async<struct (int32 * string)> = │
00:01:01 #4514 [verbose] > │ Unchecked.defaultof<Async<struct (int32 * string)>> │
00:01:01 #4515 [verbose] > │ v516 │
00:01:01 #4516 [verbose] > │ #endif │
00:01:01 #4517 [verbose] > │ |> fun x -> _v361 <- Some x │
00:01:01 #4518 [verbose] > │ let v517 : Async<struct (int32 * string)> = _v361.Value │
00:01:01 #4519 [verbose] > │ return! v517 │
00:01:01 #4520 [verbose] > │ } │
00:01:01 #4521 [verbose] > │ |> fun x -> _v159 <- Some x │
00:01:01 #4522 [verbose] > │ let v518 : Async<struct (int32 * string)> = _v159 |> Option.get │
00:01:01 #4523 [verbose] > │ v518 │
00:01:01 #4524 [verbose] > │ #endif │
00:01:01 #4525 [verbose] > │ #if FABLE_COMPILER_TYPESCRIPT │
00:01:01 #4526 [verbose] > │ let v519 : Async<struct (int32 * string)> = null |> unbox<Async<struct │
00:01:01 #4527 [verbose] > │ (int32 * string)>> │
00:01:01 #4528 [verbose] > │ v519 │
00:01:01 #4529 [verbose] > │ #endif │
00:01:01 #4530 [verbose] > │ #if FABLE_COMPILER_PYTHON || FABLE_COMPILER_PHP || FABLE_COMPILER_DART │
00:01:01 #4531 [verbose] > │ let v520 : Async<struct (int32 * string)> = │
00:01:01 #4532 [verbose] > │ Unchecked.defaultof<Async<struct (int32 * string)>> │
00:01:01 #4533 [verbose] > │ v520 │
00:01:01 #4534 [verbose] > │ #endif │
00:01:01 #4535 [verbose] > │ |> fun x -> _v155 <- Some x │
00:01:01 #4536 [verbose] > │ let v521 : Async<struct (int32 * string)> = _v155.Value │
00:01:01 #4537 [verbose] > │ let v522 : Async<US9> option = None │
00:01:01 #4538 [verbose] > │ let mutable _v522 = v522 │
00:01:01 #4539 [verbose] > │ #if FABLE_COMPILER_RUST && !WASM && !CONTRACT │
00:01:01 #4540 [verbose] > │ let v523 : Async<US9> = null |> unbox<Async<US9>> │
00:01:01 #4541 [verbose] > │ v523 │
00:01:01 #4542 [verbose] > │ #endif │
00:01:01 #4543 [verbose] > │ #if FABLE_COMPILER_RUST && WASM │
00:01:01 #4544 [verbose] > │ let v524 : Async<US9> = null |> unbox<Async<US9>> │
00:01:01 #4545 [verbose] > │ v524 │
00:01:01 #4546 [verbose] > │ #endif │
00:01:01 #4547 [verbose] > │ #if FABLE_COMPILER_RUST && CONTRACT │
00:01:01 #4548 [verbose] > │ let v525 : Async<US9> = null |> unbox<Async<US9>> │
00:01:01 #4549 [verbose] > │ v525 │
00:01:01 #4550 [verbose] > │ #endif │
00:01:01 #4551 [verbose] > │ #if !FABLE_COMPILER && !FABLE_COMPILER_RUST && │
00:01:01 #4552 [verbose] > │ !FABLE_COMPILER_TYPESCRIPT && !WASM && !CONTRACT │
00:01:01 #4553 [verbose] > │ let v526 : Async<US9> option = None │
00:01:01 #4554 [verbose] > │ let mutable _v526 = v526 │
00:01:01 #4555 [verbose] > │ #if FABLE_COMPILER_RUST && !WASM && !CONTRACT │
00:01:01 #4556 [verbose] > │ let v527 : Async<US9> = null |> unbox<Async<US9>> │
00:01:01 #4557 [verbose] > │ v527 │
00:01:01 #4558 [verbose] > │ #endif │
00:01:01 #4559 [verbose] > │ #if FABLE_COMPILER_RUST && WASM │
00:01:01 #4560 [verbose] > │ let v528 : Async<US9> = null |> unbox<Async<US9>> │
00:01:01 #4561 [verbose] > │ v528 │
00:01:01 #4562 [verbose] > │ #endif │
00:01:01 #4563 [verbose] > │ #if FABLE_COMPILER_RUST && CONTRACT │
00:01:01 #4564 [verbose] > │ let v529 : Async<US9> = null |> unbox<Async<US9>> │
00:01:01 #4565 [verbose] > │ v529 │
00:01:01 #4566 [verbose] > │ #endif │
00:01:01 #4567 [verbose] > │ #if !FABLE_COMPILER && !FABLE_COMPILER_RUST && │
00:01:01 #4568 [verbose] > │ !FABLE_COMPILER_TYPESCRIPT && !WASM && !CONTRACT │
00:01:01 #4569 [verbose] > │ let v530 : Async<US9> option = None │
00:01:01 #4570 [verbose] > │ let mutable _v530 = v530 │
00:01:01 #4571 [verbose] > │ async { │
00:01:01 #4572 [verbose] > │ let v531 : Async<Async<struct (int32 * string)>> option = None │
00:01:01 #4573 [verbose] > │ let mutable _v531 = v531 │
00:01:01 #4574 [verbose] > │ #if FABLE_COMPILER_RUST && !WASM && !CONTRACT │
00:01:01 #4575 [verbose] > │ let v532 : Async<Async<struct (int32 * string)>> = null |> │
00:01:01 #4576 [verbose] > │ unbox<Async<Async<struct (int32 * string)>>> │
00:01:01 #4577 [verbose] > │ v532 │
00:01:01 #4578 [verbose] > │ #endif │
00:01:01 #4579 [verbose] > │ #if FABLE_COMPILER_RUST && WASM │
00:01:01 #4580 [verbose] > │ let v533 : Async<Async<struct (int32 * string)>> = null |> │
00:01:01 #4581 [verbose] > │ unbox<Async<Async<struct (int32 * string)>>> │
00:01:01 #4582 [verbose] > │ v533 │
00:01:01 #4583 [verbose] > │ #endif │
00:01:01 #4584 [verbose] > │ #if FABLE_COMPILER_RUST && CONTRACT │
00:01:01 #4585 [verbose] > │ let v534 : Async<Async<struct (int32 * string)>> = null |> │
00:01:01 #4586 [verbose] > │ unbox<Async<Async<struct (int32 * string)>>> │
00:01:01 #4587 [verbose] > │ v534 │
00:01:01 #4588 [verbose] > │ #endif │
00:01:01 #4589 [verbose] > │ #if !FABLE_COMPILER && !FABLE_COMPILER_RUST && │
00:01:01 #4590 [verbose] > │ !FABLE_COMPILER_TYPESCRIPT && !WASM && !CONTRACT │
00:01:01 #4591 [verbose] > │ let v535 : Async<Async<struct (int32 * string)>> = Async.StartChild │
00:01:01 #4592 [verbose] > │ (v521, 10000) │
00:01:01 #4593 [verbose] > │ v535 │
00:01:01 #4594 [verbose] > │ #endif │
00:01:01 #4595 [verbose] > │ #if FABLE_COMPILER_TYPESCRIPT │
00:01:01 #4596 [verbose] > │ let v536 : Async<Async<struct (int32 * string)>> = null |> │
00:01:01 #4597 [verbose] > │ unbox<Async<Async<struct (int32 * string)>>> │
00:01:01 #4598 [verbose] > │ v536 │
00:01:01 #4599 [verbose] > │ #endif │
00:01:01 #4600 [verbose] > │ #if FABLE_COMPILER_PYTHON || FABLE_COMPILER_PHP || FABLE_COMPILER_DART │
00:01:01 #4601 [verbose] > │ let v537 : Async<Async<struct (int32 * string)>> = │
00:01:01 #4602 [verbose] > │ Unchecked.defaultof<Async<Async<struct (int32 * string)>>> │
00:01:01 #4603 [verbose] > │ v537 │
00:01:01 #4604 [verbose] > │ #endif │
00:01:01 #4605 [verbose] > │ |> fun x -> _v531 <- Some x │
00:01:01 #4606 [verbose] > │ let v538 : Async<Async<struct (int32 * string)>> = _v531.Value │
00:01:01 #4607 [verbose] > │ let! v538 = v538 │
00:01:01 #4608 [verbose] > │ let v539 : Async<struct (int32 * string)> = v538 │
00:01:01 #4609 [verbose] > │ let v540 : Async<Choice<struct (int32 * string), exn>> option = None │
00:01:01 #4610 [verbose] > │ let mutable _v540 = v540 │
00:01:01 #4611 [verbose] > │ #if FABLE_COMPILER_RUST && !WASM && !CONTRACT │
00:01:01 #4612 [verbose] > │ let v541 : Async<Choice<struct (int32 * string), exn>> = null |> │
00:01:01 #4613 [verbose] > │ unbox<Async<Choice<struct (int32 * string), exn>>> │
00:01:01 #4614 [verbose] > │ v541 │
00:01:01 #4615 [verbose] > │ #endif │
00:01:01 #4616 [verbose] > │ #if FABLE_COMPILER_RUST && WASM │
00:01:01 #4617 [verbose] > │ let v542 : Async<Choice<struct (int32 * string), exn>> = null |> │
00:01:01 #4618 [verbose] > │ unbox<Async<Choice<struct (int32 * string), exn>>> │
00:01:01 #4619 [verbose] > │ v542 │
00:01:01 #4620 [verbose] > │ #endif │
00:01:01 #4621 [verbose] > │ #if FABLE_COMPILER_RUST && CONTRACT │
00:01:01 #4622 [verbose] > │ let v543 : Async<Choice<struct (int32 * string), exn>> = null |> │
00:01:01 #4623 [verbose] > │ unbox<Async<Choice<struct (int32 * string), exn>>> │
00:01:01 #4624 [verbose] > │ v543 │
00:01:01 #4625 [verbose] > │ #endif │
00:01:01 #4626 [verbose] > │ #if !FABLE_COMPILER && !FABLE_COMPILER_RUST && │
00:01:01 #4627 [verbose] > │ !FABLE_COMPILER_TYPESCRIPT && !WASM && !CONTRACT │
00:01:01 #4628 [verbose] > │ let v544 : (Async<struct (int32 * string)> -> Async<Choice<struct (int32 │
00:01:01 #4629 [verbose] > │ * string), exn>>) = Async.Catch │
00:01:01 #4630 [verbose] > │ let v545 : Async<Choice<struct (int32 * string), exn>> = v544 v539 │
00:01:01 #4631 [verbose] > │ v545 │
00:01:01 #4632 [verbose] > │ #endif │
00:01:01 #4633 [verbose] > │ #if FABLE_COMPILER_TYPESCRIPT │
00:01:01 #4634 [verbose] > │ let v546 : Async<Choice<struct (int32 * string), exn>> = null |> │
00:01:01 #4635 [verbose] > │ unbox<Async<Choice<struct (int32 * string), exn>>> │
00:01:01 #4636 [verbose] > │ v546 │
00:01:01 #4637 [verbose] > │ #endif │
00:01:01 #4638 [verbose] > │ #if FABLE_COMPILER_PYTHON || FABLE_COMPILER_PHP || FABLE_COMPILER_DART │
00:01:01 #4639 [verbose] > │ let v547 : Async<Choice<struct (int32 * string), exn>> = │
00:01:01 #4640 [verbose] > │ Unchecked.defaultof<Async<Choice<struct (int32 * string), exn>>> │
00:01:01 #4641 [verbose] > │ v547 │
00:01:01 #4642 [verbose] > │ #endif │
00:01:01 #4643 [verbose] > │ |> fun x -> _v540 <- Some x │
00:01:01 #4644 [verbose] > │ let v548 : Async<Choice<struct (int32 * string), exn>> = _v540.Value │
00:01:01 #4645 [verbose] > │ let v549 : Async<US10> option = None │
00:01:01 #4646 [verbose] > │ let mutable _v549 = v549 │
00:01:01 #4647 [verbose] > │ #if FABLE_COMPILER_RUST && !WASM && !CONTRACT │
00:01:01 #4648 [verbose] > │ let v550 : Async<US10> = null |> unbox<Async<US10>> │
00:01:01 #4649 [verbose] > │ v550 │
00:01:01 #4650 [verbose] > │ #endif │
00:01:01 #4651 [verbose] > │ #if FABLE_COMPILER_RUST && WASM │
00:01:01 #4652 [verbose] > │ let v551 : Async<US10> = null |> unbox<Async<US10>> │
00:01:01 #4653 [verbose] > │ v551 │
00:01:01 #4654 [verbose] > │ #endif │
00:01:01 #4655 [verbose] > │ #if FABLE_COMPILER_RUST && CONTRACT │
00:01:01 #4656 [verbose] > │ let v552 : Async<US10> = null |> unbox<Async<US10>> │
00:01:01 #4657 [verbose] > │ v552 │
00:01:01 #4658 [verbose] > │ #endif │
00:01:01 #4659 [verbose] > │ #if !FABLE_COMPILER && !FABLE_COMPILER_RUST && │
00:01:01 #4660 [verbose] > │ !FABLE_COMPILER_TYPESCRIPT && !WASM && !CONTRACT │
00:01:01 #4661 [verbose] > │ let v553 : Async<US10> option = None │
00:01:01 #4662 [verbose] > │ let mutable _v553 = v553 │
00:01:01 #4663 [verbose] > │ async { │
00:01:01 #4664 [verbose] > │ let! v548 = v548 │
00:01:01 #4665 [verbose] > │ let v554 : Choice<struct (int32 * string), exn> = v548 │
00:01:01 #4666 [verbose] > │ let v555 : US10 option = None │
00:01:01 #4667 [verbose] > │ let mutable _v555 = v555 │
00:01:01 #4668 [verbose] > │ #if FABLE_COMPILER_RUST && !WASM && !CONTRACT │
00:01:01 #4669 [verbose] > │ let v556 : US10 = null |> unbox<US10> │
00:01:01 #4670 [verbose] > │ v556 │
00:01:01 #4671 [verbose] > │ #endif │
00:01:01 #4672 [verbose] > │ #if FABLE_COMPILER_RUST && WASM │
00:01:01 #4673 [verbose] > │ let v557 : US10 = null |> unbox<US10> │
00:01:01 #4674 [verbose] > │ v557 │
00:01:01 #4675 [verbose] > │ #endif │
00:01:01 #4676 [verbose] > │ #if FABLE_COMPILER_RUST && CONTRACT │
00:01:01 #4677 [verbose] > │ let v558 : US10 = null |> unbox<US10> │
00:01:01 #4678 [verbose] > │ v558 │
00:01:01 #4679 [verbose] > │ #endif │
00:01:01 #4680 [verbose] > │ #if !FABLE_COMPILER && !FABLE_COMPILER_RUST && │
00:01:01 #4681 [verbose] > │ !FABLE_COMPILER_TYPESCRIPT && !WASM && !CONTRACT │
00:01:01 #4682 [verbose] > │ let v559 : (struct (int32 * string) -> US10) = closure22() │
00:01:01 #4683 [verbose] > │ let v560 : (exn -> US10) = closure23() │
00:01:01 #4684 [verbose] > │ let v561 : US10 = match v554 with Choice1Of2 x -> v559 x | Choice2Of2 x │
00:01:01 #4685 [verbose] > │ -> v560 x │
00:01:01 #4686 [verbose] > │ v561 │
00:01:01 #4687 [verbose] > │ #endif │
00:01:01 #4688 [verbose] > │ #if FABLE_COMPILER_TYPESCRIPT │
00:01:01 #4689 [verbose] > │ let v562 : US10 = null |> unbox<US10> │
00:01:01 #4690 [verbose] > │ v562 │
00:01:01 #4691 [verbose] > │ #endif │
00:01:01 #4692 [verbose] > │ #if FABLE_COMPILER_PYTHON || FABLE_COMPILER_PHP || FABLE_COMPILER_DART │
00:01:01 #4693 [verbose] > │ let v563 : US10 = Unchecked.defaultof<US10> │
00:01:01 #4694 [verbose] > │ v563 │
00:01:01 #4695 [verbose] > │ #endif │
00:01:01 #4696 [verbose] > │ |> fun x -> _v555 <- Some x │
00:01:01 #4697 [verbose] > │ let v564 : US10 = _v555.Value │
00:01:01 #4698 [verbose] > │ return v564 │
00:01:01 #4699 [verbose] > │ } │
00:01:01 #4700 [verbose] > │ |> fun x -> _v553 <- Some x │
00:01:01 #4701 [verbose] > │ let v565 : Async<US10> = _v553 |> Option.get │
00:01:01 #4702 [verbose] > │ v565 │
00:01:01 #4703 [verbose] > │ #endif │
00:01:01 #4704 [verbose] > │ #if FABLE_COMPILER_TYPESCRIPT │
00:01:01 #4705 [verbose] > │ let v566 : Async<US10> = null |> unbox<Async<US10>> │
00:01:01 #4706 [verbose] > │ v566 │
00:01:01 #4707 [verbose] > │ #endif │
00:01:01 #4708 [verbose] > │ #if FABLE_COMPILER_PYTHON || FABLE_COMPILER_PHP || FABLE_COMPILER_DART │
00:01:01 #4709 [verbose] > │ let v567 : Async<US10> = Unchecked.defaultof<Async<US10>> │
00:01:01 #4710 [verbose] > │ v567 │
00:01:01 #4711 [verbose] > │ #endif │
00:01:01 #4712 [verbose] > │ |> fun x -> _v549 <- Some x │
00:01:01 #4713 [verbose] > │ let v568 : Async<US10> = _v549.Value │
00:01:01 #4714 [verbose] > │ let v569 : Async<US11> option = None │
00:01:01 #4715 [verbose] > │ let mutable _v569 = v569 │
00:01:01 #4716 [verbose] > │ #if FABLE_COMPILER_RUST && !WASM && !CONTRACT │
00:01:01 #4717 [verbose] > │ let v570 : Async<US11> = null |> unbox<Async<US11>> │
00:01:01 #4718 [verbose] > │ v570 │
00:01:01 #4719 [verbose] > │ #endif │
00:01:01 #4720 [verbose] > │ #if FABLE_COMPILER_RUST && WASM │
00:01:01 #4721 [verbose] > │ let v571 : Async<US11> = null |> unbox<Async<US11>> │
00:01:01 #4722 [verbose] > │ v571 │
00:01:01 #4723 [verbose] > │ #endif │
00:01:01 #4724 [verbose] > │ #if FABLE_COMPILER_RUST && CONTRACT │
00:01:01 #4725 [verbose] > │ let v572 : Async<US11> = null |> unbox<Async<US11>> │
00:01:01 #4726 [verbose] > │ v572 │
00:01:01 #4727 [verbose] > │ #endif │
00:01:01 #4728 [verbose] > │ #if !FABLE_COMPILER && !FABLE_COMPILER_RUST && │
00:01:01 #4729 [verbose] > │ !FABLE_COMPILER_TYPESCRIPT && !WASM && !CONTRACT │
00:01:01 #4730 [verbose] > │ let v573 : Async<US11> option = None │
00:01:01 #4731 [verbose] > │ let mutable _v573 = v573 │
00:01:01 #4732 [verbose] > │ async { │
00:01:01 #4733 [verbose] > │ let! v568 = v568 │
00:01:01 #4734 [verbose] > │ let v574 : US10 = v568 │
00:01:01 #4735 [verbose] > │ let v581 : US11 = │
00:01:01 #4736 [verbose] > │ match v574 with │
00:01:01 #4737 [verbose] > │ | US10_0(v575, v576) -> (* Choice1Of2 *) │
00:01:01 #4738 [verbose] > │ US11_0(v575, v576) │
00:01:01 #4739 [verbose] > │ | US10_1(v578) -> (* Choice2Of2 *) │
00:01:01 #4740 [verbose] > │ US11_1(v578) │
00:01:01 #4741 [verbose] > │ return v581 │
00:01:01 #4742 [verbose] > │ } │
00:01:01 #4743 [verbose] > │ |> fun x -> _v573 <- Some x │
00:01:01 #4744 [verbose] > │ let v582 : Async<US11> = _v573 |> Option.get │
00:01:01 #4745 [verbose] > │ v582 │
00:01:01 #4746 [verbose] > │ #endif │
00:01:01 #4747 [verbose] > │ #if FABLE_COMPILER_TYPESCRIPT │
00:01:01 #4748 [verbose] > │ let v583 : Async<US11> = null |> unbox<Async<US11>> │
00:01:01 #4749 [verbose] > │ v583 │
00:01:01 #4750 [verbose] > │ #endif │
00:01:01 #4751 [verbose] > │ #if FABLE_COMPILER_PYTHON || FABLE_COMPILER_PHP || FABLE_COMPILER_DART │
00:01:01 #4752 [verbose] > │ let v584 : Async<US11> = Unchecked.defaultof<Async<US11>> │
00:01:01 #4753 [verbose] > │ v584 │
00:01:01 #4754 [verbose] > │ #endif │
00:01:01 #4755 [verbose] > │ |> fun x -> _v569 <- Some x │
00:01:01 #4756 [verbose] > │ let v585 : Async<US11> = _v569.Value │
00:01:01 #4757 [verbose] > │ let v586 : Async<US9> option = None │
00:01:01 #4758 [verbose] > │ let mutable _v586 = v586 │
00:01:01 #4759 [verbose] > │ #if FABLE_COMPILER_RUST && !WASM && !CONTRACT │
00:01:01 #4760 [verbose] > │ let v587 : Async<US9> = null |> unbox<Async<US9>> │
00:01:01 #4761 [verbose] > │ v587 │
00:01:01 #4762 [verbose] > │ #endif │
00:01:01 #4763 [verbose] > │ #if FABLE_COMPILER_RUST && WASM │
00:01:01 #4764 [verbose] > │ let v588 : Async<US9> = null |> unbox<Async<US9>> │
00:01:01 #4765 [verbose] > │ v588 │
00:01:01 #4766 [verbose] > │ #endif │
00:01:01 #4767 [verbose] > │ #if FABLE_COMPILER_RUST && CONTRACT │
00:01:01 #4768 [verbose] > │ let v589 : Async<US9> = null |> unbox<Async<US9>> │
00:01:01 #4769 [verbose] > │ v589 │
00:01:01 #4770 [verbose] > │ #endif │
00:01:01 #4771 [verbose] > │ #if !FABLE_COMPILER && !FABLE_COMPILER_RUST && │
00:01:01 #4772 [verbose] > │ !FABLE_COMPILER_TYPESCRIPT && !WASM && !CONTRACT │
00:01:01 #4773 [verbose] > │ let v590 : Async<US9> option = None │
00:01:01 #4774 [verbose] > │ let mutable _v590 = v590 │
00:01:01 #4775 [verbose] > │ async { │
00:01:01 #4776 [verbose] > │ let! v585 = v585 │
00:01:01 #4777 [verbose] > │ let v591 : US11 = v585 │
00:01:01 #4778 [verbose] > │ let v617 : US9 = │
00:01:01 #4779 [verbose] > │ match v591 with │
00:01:01 #4780 [verbose] > │ | US11_1(v595) -> (* Error *) │
00:01:01 #4781 [verbose] > │ let v596 : string = $"%A{v595}" │
00:01:01 #4782 [verbose] > │ let v597 : string = "System.TimeoutException" │
00:01:01 #4783 [verbose] > │ let v598 : bool = v596.Contains v597 │
00:01:01 #4784 [verbose] > │ if v598 then │
00:01:01 #4785 [verbose] > │ let v599 : US0 = US0_1 │
00:01:01 #4786 [verbose] > │ let v600 : (unit -> string) = closure24() │
00:01:01 #4787 [verbose] > │ let v601 : (unit -> string) = closure25() │
00:01:01 #4788 [verbose] > │ method10(v599, v600, v601) │
00:01:01 #4789 [verbose] > │ US9_1 │
00:01:01 #4790 [verbose] > │ else │
00:01:01 #4791 [verbose] > │ let v603 : string option = None │
00:01:01 #4792 [verbose] > │ let mutable _v603 = v603 │
00:01:01 #4793 [verbose] > │ #if FABLE_COMPILER_RUST && !WASM && !CONTRACT │
00:01:01 #4794 [verbose] > │ let v604 : string = $"%A{v595}" │
00:01:01 #4795 [verbose] > │ v604 │
00:01:01 #4796 [verbose] > │ #endif │
00:01:01 #4797 [verbose] > │ #if FABLE_COMPILER_RUST && WASM │
00:01:01 #4798 [verbose] > │ let v605 : string = $"%A{v595}" │
00:01:01 #4799 [verbose] > │ v605 │
00:01:01 #4800 [verbose] > │ #endif │
00:01:01 #4801 [verbose] > │ #if FABLE_COMPILER_RUST && CONTRACT │
00:01:01 #4802 [verbose] > │ let v606 : string = $"%A{v595}" │
00:01:01 #4803 [verbose] > │ v606 │
00:01:01 #4804 [verbose] > │ #endif │
00:01:01 #4805 [verbose] > │ #if !FABLE_COMPILER && !FABLE_COMPILER_RUST && │
00:01:01 #4806 [verbose] > │ !FABLE_COMPILER_TYPESCRIPT && !WASM && !CONTRACT │
00:01:01 #4807 [verbose] > │ let v607 : string = $"{v595.GetType ()}: {v595.Message}" │
00:01:01 #4808 [verbose] > │ v607 │
00:01:01 #4809 [verbose] > │ #endif │
00:01:01 #4810 [verbose] > │ #if FABLE_COMPILER_TYPESCRIPT │
00:01:01 #4811 [verbose] > │ let v608 : string = $"%A{v595}" │
00:01:01 #4812 [verbose] > │ v608 │
00:01:01 #4813 [verbose] > │ #endif │
00:01:01 #4814 [verbose] > │ #if FABLE_COMPILER_PYTHON || FABLE_COMPILER_PHP || │
00:01:01 #4815 [verbose] > │ FABLE_COMPILER_DART │
00:01:01 #4816 [verbose] > │ let v609 : string = Unchecked.defaultof<string> │
00:01:01 #4817 [verbose] > │ v609 │
00:01:01 #4818 [verbose] > │ #endif │
00:01:01 #4819 [verbose] > │ |> fun x -> _v603 <- Some x │
00:01:01 #4820 [verbose] > │ let v610 : string = _v603.Value │
00:01:01 #4821 [verbose] > │ let v611 : US0 = US0_4 │
00:01:01 #4822 [verbose] > │ let v612 : (unit -> string) = closure26(v610) │
00:01:01 #4823 [verbose] > │ let v613 : (unit -> string) = closure25() │
00:01:01 #4824 [verbose] > │ method10(v611, v612, v613) │
00:01:01 #4825 [verbose] > │ US9_1 │
00:01:01 #4826 [verbose] > │ | US11_0(v592, v593) -> (* Ok *) │
00:01:01 #4827 [verbose] > │ US9_0(v592, v593) │
00:01:01 #4828 [verbose] > │ return v617 │
00:01:01 #4829 [verbose] > │ } │
00:01:01 #4830 [verbose] > │ |> fun x -> _v590 <- Some x │
00:01:01 #4831 [verbose] > │ let v618 : Async<US9> = _v590 |> Option.get │
00:01:01 #4832 [verbose] > │ v618 │
00:01:01 #4833 [verbose] > │ #endif │
00:01:01 #4834 [verbose] > │ #if FABLE_COMPILER_TYPESCRIPT │
00:01:01 #4835 [verbose] > │ let v619 : Async<US9> = null |> unbox<Async<US9>> │
00:01:01 #4836 [verbose] > │ v619 │
00:01:01 #4837 [verbose] > │ #endif │
00:01:01 #4838 [verbose] > │ #if FABLE_COMPILER_PYTHON || FABLE_COMPILER_PHP || FABLE_COMPILER_DART │
00:01:01 #4839 [verbose] > │ let v620 : Async<US9> = Unchecked.defaultof<Async<US9>> │
00:01:01 #4840 [verbose] > │ v620 │
00:01:01 #4841 [verbose] > │ #endif │
00:01:01 #4842 [verbose] > │ |> fun x -> _v586 <- Some x │
00:01:01 #4843 [verbose] > │ let v621 : Async<US9> = _v586.Value │
00:01:01 #4844 [verbose] > │ return! v621 │
00:01:01 #4845 [verbose] > │ } │
00:01:01 #4846 [verbose] > │ |> fun x -> _v530 <- Some x │
00:01:01 #4847 [verbose] > │ let v622 : Async<US9> = _v530 |> Option.get │
00:01:01 #4848 [verbose] > │ v622 │
00:01:01 #4849 [verbose] > │ #endif │
00:01:01 #4850 [verbose] > │ #if FABLE_COMPILER_TYPESCRIPT │
00:01:01 #4851 [verbose] > │ let v623 : Async<US9> = null |> unbox<Async<US9>> │
00:01:01 #4852 [verbose] > │ v623 │
00:01:01 #4853 [verbose] > │ #endif │
00:01:01 #4854 [verbose] > │ #if FABLE_COMPILER_PYTHON || FABLE_COMPILER_PHP || FABLE_COMPILER_DART │
00:01:01 #4855 [verbose] > │ let v624 : Async<US9> = Unchecked.defaultof<Async<US9>> │
00:01:02 #4856 [verbose] > │ v624 │
00:01:02 #4857 [verbose] > │ #endif │
00:01:02 #4858 [verbose] > │ |> fun x -> _v526 <- Some x │
00:01:02 #4859 [verbose] > │ let v625 : Async<US9> = _v526.Value │
00:01:02 #4860 [verbose] > │ v625 │
00:01:02 #4861 [verbose] > │ #endif │
00:01:02 #4862 [verbose] > │ #if FABLE_COMPILER_TYPESCRIPT │
00:01:02 #4863 [verbose] > │ let v626 : Async<US9> = null |> unbox<Async<US9>> │
00:01:02 #4864 [verbose] > │ v626 │
00:01:02 #4865 [verbose] > │ #endif │
00:01:02 #4866 [verbose] > │ #if FABLE_COMPILER_PYTHON || FABLE_COMPILER_PHP || FABLE_COMPILER_DART │
00:01:02 #4867 [verbose] > │ let v627 : Async<US9> = Unchecked.defaultof<Async<US9>> │
00:01:02 #4868 [verbose] > │ v627 │
00:01:02 #4869 [verbose] > │ #endif │
00:01:02 #4870 [verbose] > │ |> fun x -> _v522 <- Some x │
00:01:02 #4871 [verbose] > │ let v628 : Async<US9> = _v522.Value │
00:01:02 #4872 [verbose] > │ let v629 : US9 option = None │
00:01:02 #4873 [verbose] > │ let mutable _v629 = v629 │
00:01:02 #4874 [verbose] > │ #if FABLE_COMPILER_RUST && !WASM && !CONTRACT │
00:01:02 #4875 [verbose] > │ let v630 : US9 = null |> unbox<US9> │
00:01:02 #4876 [verbose] > │ v630 │
00:01:02 #4877 [verbose] > │ #endif │
00:01:02 #4878 [verbose] > │ #if FABLE_COMPILER_RUST && WASM │
00:01:02 #4879 [verbose] > │ let v631 : US9 = null |> unbox<US9> │
00:01:02 #4880 [verbose] > │ v631 │
00:01:02 #4881 [verbose] > │ #endif │
00:01:02 #4882 [verbose] > │ #if FABLE_COMPILER_RUST && CONTRACT │
00:01:02 #4883 [verbose] > │ let v632 : US9 = null |> unbox<US9> │
00:01:02 #4884 [verbose] > │ v632 │
00:01:02 #4885 [verbose] > │ #endif │
00:01:02 #4886 [verbose] > │ #if !FABLE_COMPILER && !FABLE_COMPILER_RUST && │
00:01:02 #4887 [verbose] > │ !FABLE_COMPILER_TYPESCRIPT && !WASM && !CONTRACT │
00:01:02 #4888 [verbose] > │ let v633 : (Async<US9> -> US9) = Async.RunSynchronously │
00:01:02 #4889 [verbose] > │ let v634 : US9 = v633 v628 │
00:01:02 #4890 [verbose] > │ v634 │
00:01:02 #4891 [verbose] > │ #endif │
00:01:02 #4892 [verbose] > │ #if FABLE_COMPILER_TYPESCRIPT │
00:01:02 #4893 [verbose] > │ let v635 : US9 = null |> unbox<US9> │
00:01:02 #4894 [verbose] > │ v635 │
00:01:02 #4895 [verbose] > │ #endif │
00:01:02 #4896 [verbose] > │ #if FABLE_COMPILER_PYTHON || FABLE_COMPILER_PHP || FABLE_COMPILER_DART │
00:01:02 #4897 [verbose] > │ let v636 : US9 = Unchecked.defaultof<US9> │
00:01:02 #4898 [verbose] > │ v636 │
00:01:02 #4899 [verbose] > │ #endif │
00:01:02 #4900 [verbose] > │ |> fun x -> _v629 <- Some x │
00:01:02 #4901 [verbose] > │ let v637 : US9 = _v629.Value │
00:01:02 #4902 [verbose] > │ let v653 : bool = │
00:01:02 #4903 [verbose] > │ match v637 with │
00:01:02 #4904 [verbose] > │ | US9_0(v638, v639) -> (* Some *) │
00:01:02 #4905 [verbose] > │ let v640 : string = $"%A{v638}" │
00:01:02 #4906 [verbose] > │ System.Console.WriteLine v640 │
00:01:02 #4907 [verbose] > │ let v641 : bool = v638 = 0 │
00:01:02 #4908 [verbose] > │ let v643 : bool = │
00:01:02 #4909 [verbose] > │ if v641 then │
00:01:02 #4910 [verbose] > │ true │
00:01:02 #4911 [verbose] > │ else │
00:01:02 #4912 [verbose] > │ method19(v641) │
00:01:02 #4913 [verbose] > │ let v644 : string = $"__expect / actual: %A{v638} / expected: │
00:01:02 #4914 [verbose] > │ %A{0}" │
00:01:02 #4915 [verbose] > │ let v645 : bool = v643 = false │
00:01:02 #4916 [verbose] > │ if v645 then │
00:01:02 #4917 [verbose] > │ failwith<unit> v644 │
00:01:02 #4918 [verbose] > │ let v646 : string = method20() │
00:01:02 #4919 [verbose] > │ let v647 : string = $"%A{v639}" │
00:01:02 #4920 [verbose] > │ System.Console.WriteLine v647 │
00:01:02 #4921 [verbose] > │ let v648 : bool = v639 = v646 │
00:01:02 #4922 [verbose] > │ let v650 : bool = │
00:01:02 #4923 [verbose] > │ if v648 then │
00:01:02 #4924 [verbose] > │ true │
00:01:02 #4925 [verbose] > │ else │
00:01:02 #4926 [verbose] > │ method19(v648) │
00:01:02 #4927 [verbose] > │ let v651 : string = $"__expect / actual: %A{v639} / expected: │
00:01:02 #4928 [verbose] > │ %A{v646}" │
00:01:02 #4929 [verbose] > │ let v652 : bool = v650 = false │
00:01:02 #4930 [verbose] > │ if v652 then │
00:01:02 #4931 [verbose] > │ failwith<unit> v651 │
00:01:02 #4932 [verbose] > │ true │
00:01:02 #4933 [verbose] > │ | _ -> │
00:01:02 #4934 [verbose] > │ false │
00:01:02 #4935 [verbose] > │ let v654 : string = $"%A{v653}" │
00:01:02 #4936 [verbose] > │ System.Console.WriteLine v654 │
00:01:02 #4937 [verbose] > │ let v656 : bool = │
00:01:02 #4938 [verbose] > │ if v653 then │
00:01:02 #4939 [verbose] > │ true │
00:01:02 #4940 [verbose] > │ else │
00:01:02 #4941 [verbose] > │ method19(v653) │
00:01:02 #4942 [verbose] > │ let v657 : string = $"__expect / actual: %A{v653} / expected: %A{true}" │
00:01:02 #4943 [verbose] > │ let v658 : bool = v656 = false │
00:01:02 #4944 [verbose] > │ if v658 then │
00:01:02 #4945 [verbose] > │ failwith<unit> v657 │
00:01:02 #4946 [verbose] > │ method0() │
00:01:02 #4947 [verbose] > │ │
00:01:02 #4948 [verbose] > │ 00:00:00 #1 [debug] execute_with_options_async / options: struct (None, │
00:01:02 #4949 [verbose] > │ "pwsh -c "Get-Content │
00:01:02 #4950 [verbose] > │ C:\Users\i574n\AppData\Local\Temp\!dotnet-repl\20240413-0453-0883-8352-8e819 │
00:01:02 #4951 [verbose] > │ 6253c2a\test.txt"", │
00:01:02 #4952 [verbose] > │ None, None, None) │
00:01:02 #4953 [verbose] > │ 00:00:00 #2 [verbose] > Get-Content: Cannot find path │
00:01:02 #4954 [verbose] > │ 'C:\Users\i574n\AppData\Local\Temp\!dotnet-repl\20240413-0453-0883-8352-8e81 │
00:01:02 #4955 [verbose] > │ 96253c2a\test.txt' because it does not exist. │
00:01:02 #4956 [verbose] > │ 00:00:00 #3 [debug] execute_with_options_async / exit_code: 1 / │
00:01:02 #4957 [verbose] > │ output.Length: 171 │
00:01:02 #4958 [verbose] > │ 1 │
00:01:02 #4959 [verbose] > │ "not exist" │
00:01:02 #4960 [verbose] > │ 00:00:00 #4 [debug] execute_with_options_async / options: struct (None, │
00:01:02 #4961 [verbose] > │ "pwsh -c "Get-Content test.txt"", None, None, │
00:01:02 #4962 [verbose] > │ Some │
00:01:02 #4963 [verbose] > │ │
00:01:02 #4964 [verbose] > │ "C:\Users\i574n\AppData\Local\Temp\!dotnet-repl\20240413-0453-0883-8352-8e81 │
00:01:02 #4965 [verbose] > │ 96253c2a") │
00:01:02 #4966 [verbose] > │ 00:00:01 #5 [verbose] > 0 │
00:01:02 #4967 [verbose] > │ 00:00:01 #6 [debug] execute_with_options_async / exit_code: 0 / │
00:01:02 #4968 [verbose] > │ output.Length: 1 │
00:01:02 #4969 [verbose] > │ 0 │
00:01:02 #4970 [verbose] > │ "0" │
00:01:02 #4971 [verbose] > │ true │
00:01:02 #4972 [verbose] > │ │
00:01:02 #4973 [verbose] > ╰──────────────────────────────────────────────────────────────────────────────╯
00:01:02 #4974 [verbose] >
00:01:02 #4975 [verbose] > ── spiral ──────────────────────────────────────────────────────────────────────
00:01:02 #4976 [verbose] > // // test
00:01:02 #4977 [verbose] > // // print_code=true
00:01:02 #4978 [verbose] >
00:01:02 #4979 [verbose] > inl temp_folder, disposable = file_system.create_temp_directory ()
00:01:02 #4980 [verbose] > disposable |> use |> ignore
00:01:02 #4981 [verbose] > inl file_name = "test.txt"
00:01:02 #4982 [verbose] > inl path = temp_folder </> file_name
00:01:02 #4983 [verbose] >
00:01:02 #4984 [verbose] > inl command = $'\@$"pwsh -c ""Get-Content {!path}"""'
00:01:02 #4985 [verbose] >
00:01:02 #4986 [verbose] > fun () =>
00:01:02 #4987 [verbose] > "0" |> file_system.write_all_text_async path |> async.do
00:01:02 #4988 [verbose] >
00:01:02 #4989 [verbose] > inl cts = threading.new_cancellation_token_source ()
00:01:02 #4990 [verbose] > trace Debug (fun () => "1") get_locals
00:01:02 #4991 [verbose] > inl result =
00:01:02 #4992 [verbose] > execution_options fun x => { x with
00:01:02 #4993 [verbose] > command
00:01:02 #4994 [verbose] > cancellation_token = cts |> threading.cancellation_source_token |>
00:01:02 #4995 [verbose] > Some |> optionm'.box
00:01:02 #4996 [verbose] > }
00:01:02 #4997 [verbose] > |> execute_with_options_async
00:01:02 #4998 [verbose] > |> async.start_child
00:01:02 #4999 [verbose] > |> async.let'
00:01:02 #5000 [verbose] > trace Debug (fun () => "2") get_locals
00:01:02 #5001 [verbose] > async.sleep 100 |> async.do
00:01:02 #5002 [verbose] > trace Debug (fun () => "3") get_locals
00:01:02 #5003 [verbose] > cts |> threading.cancellation_source_cancel
00:01:02 #5004 [verbose] > trace Debug (fun () => "4") get_locals
00:01:02 #5005 [verbose] > inl exit_code, output = result |> async.let'
00:01:02 #5006 [verbose] > trace Debug (fun () => "5") get_locals
00:01:02 #5007 [verbose] > (exit_code, output) |> return
00:01:02 #5008 [verbose] > |> async.new_async_unit
00:01:02 #5009 [verbose] > |> async.run_with_timeout 10000
00:01:02 #5010 [verbose] > |> function
00:01:02 #5011 [verbose] > | Some (exit_code, output) =>
00:01:02 #5012 [verbose] > exit_code |> _assert_eq -2147483648i32
00:01:02 #5013 [verbose] > output |> _assert_eq (join
00:01:02 #5014 [verbose] > "System.Threading.Tasks.TaskCanceledException: A task was canceled.")
00:01:02 #5015 [verbose] > true
00:01:02 #5016 [verbose] > | _ => false
00:01:02 #5017 [verbose] > |> _assert_eq true
00:01:02 #5018 [verbose] > Building c:\home\git\polyglot\target\polyglot\spiral_eval\packages\6fda7a91d526558d42d2dd3a126422ff5a3eb79df5fc33a38027f322dedf87ac\main.spi
00:01:03 #5019 [verbose] >
00:01:03 #5020 [verbose] > ╭─[ 1.84s - stdout ]───────────────────────────────────────────────────────────╮
00:01:03 #5021 [verbose] > │ type IPathJoin = abstract join: [<System.ParamArray>] paths: string[] -> │
00:01:03 #5022 [verbose] > │ string │
00:01:03 #5023 [verbose] > │ module State = let mutable trace_state = None │
00:01:03 #5024 [verbose] > │ #if FABLE_COMPILER │
00:01:03 #5025 [verbose] > │ [<CompilationRepresentation (CompilationRepresentationFlags.ModuleSuffix)>] │
00:01:03 #5026 [verbose] > │ module System = │
00:01:03 #5027 [verbose] > │ module Diagnostics = │
00:01:03 #5028 [verbose] > │ type Process = unit │
00:01:03 #5029 [verbose] > │ type DataReceivedEventArgs = unit │
00:01:03 #5030 [verbose] > │ #endif │
00:01:03 #5031 [verbose] > │ type [<Struct>] US0 = │
00:01:03 #5032 [verbose] > │ | US0_0 │
00:01:03 #5033 [verbose] > │ | US0_1 │
00:01:03 #5034 [verbose] > │ | US0_2 │
00:01:03 #5035 [verbose] > │ | US0_3 │
00:01:03 #5036 [verbose] > │ | US0_4 │
00:01:03 #5037 [verbose] > │ and Mut0 = {mutable l0 : int64} │
00:01:03 #5038 [verbose] > │ and Mut1 = {mutable l0 : bool} │
00:01:03 #5039 [verbose] > │ and Mut2 = {mutable l0 : US0} │
00:01:03 #5040 [verbose] > │ and [<Struct>] US1 = │
00:01:03 #5041 [verbose] > │ | US1_0 of f0_0 : int64 │
00:01:03 #5042 [verbose] > │ | US1_1 │
00:01:03 #5043 [verbose] > │ and [<Struct>] US2 = │
00:01:03 #5044 [verbose] > │ | US2_0 of f0_0 : int64 │
00:01:03 #5045 [verbose] > │ | US2_1 │
00:01:03 #5046 [verbose] > │ and UH0 = │
00:01:03 #5047 [verbose] > │ | UH0_0 │
00:01:03 #5048 [verbose] > │ | UH0_1 of char * UH0 │
00:01:03 #5049 [verbose] > │ and [<Struct>] US4 = │
00:01:03 #5050 [verbose] > │ | US4_0 │
00:01:03 #5051 [verbose] > │ | US4_1 │
00:01:03 #5052 [verbose] > │ and [<Struct>] US3 = │
00:01:03 #5053 [verbose] > │ | US3_0 │
00:01:03 #5054 [verbose] > │ | US3_1 of f1_0 : US4 │
00:01:03 #5055 [verbose] > │ | US3_2 │
00:01:03 #5056 [verbose] > │ and [<Struct>] US5 = │
00:01:03 #5057 [verbose] > │ | US5_0 of f0_0 : string │
00:01:03 #5058 [verbose] > │ | US5_1 │
00:01:03 #5059 [verbose] > │ and [<Struct>] US6 = │
00:01:03 #5060 [verbose] > │ | US6_0 of f0_0 : (struct (bool * string * int32) -> Async<unit>) │
00:01:03 #5061 [verbose] > │ | US6_1 │
00:01:03 #5062 [verbose] > │ and [<Struct>] US7 = │
00:01:03 #5063 [verbose] > │ | US7_0 of f0_0 : System.Threading.CancellationToken │
00:01:03 #5064 [verbose] > │ | US7_1 │
00:01:03 #5065 [verbose] > │ and [<Struct>] US8 = │
00:01:03 #5066 [verbose] > │ | US8_0 of f0_0 : US0 │
00:01:03 #5067 [verbose] > │ | US8_1 │
00:01:03 #5068 [verbose] > │ and [<Struct>] US9 = │
00:01:03 #5069 [verbose] > │ | US9_0 of f0_0 : int32 * f0_1 : string │
00:01:03 #5070 [verbose] > │ | US9_1 │
00:01:03 #5071 [verbose] > │ and [<Struct>] US10 = │
00:01:03 #5072 [verbose] > │ | US10_0 of f0_0 : int32 * f0_1 : string │
00:01:03 #5073 [verbose] > │ | US10_1 of f1_0 : exn │
00:01:03 #5074 [verbose] > │ and [<Struct>] US11 = │
00:01:03 #5075 [verbose] > │ | US11_0 of f0_0 : int32 * f0_1 : string │
00:01:03 #5076 [verbose] > │ | US11_1 of f1_0 : exn │
00:01:03 #5077 [verbose] > │ let rec closure0 () () : string = │
00:01:03 #5078 [verbose] > │ let v0 : string option = None │
00:01:03 #5079 [verbose] > │ let mutable _v0 = v0 │
00:01:03 #5080 [verbose] > │ #if FABLE_COMPILER_RUST && !WASM && !CONTRACT │
00:01:03 #5081 [verbose] > │ let v1 : string = null |> unbox<string> │
00:01:03 #5082 [verbose] > │ v1 │
00:01:03 #5083 [verbose] > │ #endif │
00:01:03 #5084 [verbose] > │ #if FABLE_COMPILER_RUST && WASM │
00:01:03 #5085 [verbose] > │ let v2 : string = null |> unbox<string> │
00:01:03 #5086 [verbose] > │ v2 │
00:01:03 #5087 [verbose] > │ #endif │
00:01:03 #5088 [verbose] > │ #if FABLE_COMPILER_RUST && CONTRACT │
00:01:03 #5089 [verbose] > │ let v3 : string = null |> unbox<string> │
00:01:03 #5090 [verbose] > │ v3 │
00:01:03 #5091 [verbose] > │ #endif │
00:01:03 #5092 [verbose] > │ #if !FABLE_COMPILER && !FABLE_COMPILER_RUST && │
00:01:03 #5093 [verbose] > │ !FABLE_COMPILER_TYPESCRIPT && !WASM && !CONTRACT │
00:01:03 #5094 [verbose] > │ let v4 : string = │
00:01:03 #5095 [verbose] > │ System.Reflection.Assembly.GetEntryAssembly().GetName().Name │
00:01:03 #5096 [verbose] > │ v4 │
00:01:03 #5097 [verbose] > │ #endif │
00:01:03 #5098 [verbose] > │ #if FABLE_COMPILER_TYPESCRIPT │
00:01:03 #5099 [verbose] > │ let v5 : string = null |> unbox<string> │
00:01:03 #5100 [verbose] > │ v5 │
00:01:03 #5101 [verbose] > │ #endif │
00:01:03 #5102 [verbose] > │ #if FABLE_COMPILER_PYTHON || FABLE_COMPILER_PHP || FABLE_COMPILER_DART │
00:01:03 #5103 [verbose] > │ let v6 : string = Unchecked.defaultof<string> │
00:01:03 #5104 [verbose] > │ v6 │
00:01:03 #5105 [verbose] > │ #endif │
00:01:03 #5106 [verbose] > │ |> fun x -> _v0 <- Some x │
00:01:03 #5107 [verbose] > │ let v7 : string = _v0.Value │
00:01:03 #5108 [verbose] > │ v7 │
00:01:03 #5109 [verbose] > │ and method1 (v0 : string) : string = │
00:01:03 #5110 [verbose] > │ v0 │
00:01:03 #5111 [verbose] > │ and closure2 () () : string = │
00:01:03 #5112 [verbose] > │ let v0 : string = "" │
00:01:03 #5113 [verbose] > │ v0 │
00:01:03 #5114 [verbose] > │ and closure1 (v0 : string, v1 : string) () : string = │
00:01:03 #5115 [verbose] > │ let v2 : (unit -> string) = closure2() │
00:01:03 #5116 [verbose] > │ let v3 : string = $"temp_folder: {v0} / result: {v1} {v2 ()}" │
00:01:03 #5117 [verbose] > │ v3 │
00:01:03 #5118 [verbose] > │ and closure5 () (v0 : string) : string = │
00:01:03 #5119 [verbose] > │ let v1 : string option = None │
00:01:03 #5120 [verbose] > │ let mutable _v1 = v1 │
00:01:03 #5121 [verbose] > │ #if FABLE_COMPILER_RUST && !WASM && !CONTRACT │
00:01:03 #5122 [verbose] > │ let v2 : string = null |> unbox<string> │
00:01:03 #5123 [verbose] > │ v2 │
00:01:03 #5124 [verbose] > │ #endif │
00:01:03 #5125 [verbose] > │ #if FABLE_COMPILER_RUST && WASM │
00:01:03 #5126 [verbose] > │ let v3 : string = null |> unbox<string> │
00:01:03 #5127 [verbose] > │ v3 │
00:01:03 #5128 [verbose] > │ #endif │
00:01:03 #5129 [verbose] > │ #if FABLE_COMPILER_RUST && CONTRACT │
00:01:03 #5130 [verbose] > │ let v4 : string = null |> unbox<string> │
00:01:03 #5131 [verbose] > │ v4 │
00:01:03 #5132 [verbose] > │ #endif │
00:01:03 #5133 [verbose] > │ #if !FABLE_COMPILER && !FABLE_COMPILER_RUST && │
00:01:03 #5134 [verbose] > │ !FABLE_COMPILER_TYPESCRIPT && !WASM && !CONTRACT │
00:01:03 #5135 [verbose] > │ let v5 : (string -> string) = System.IO.Path.GetFileName │
00:01:03 #5136 [verbose] > │ let v6 : string = v5 v0 │
00:01:03 #5137 [verbose] > │ v6 │
00:01:03 #5138 [verbose] > │ #endif │
00:01:03 #5139 [verbose] > │ #if FABLE_COMPILER_TYPESCRIPT │
00:01:03 #5140 [verbose] > │ let v7 : string = null |> unbox<string> │
00:01:03 #5141 [verbose] > │ v7 │
00:01:03 #5142 [verbose] > │ #endif │
00:01:03 #5143 [verbose] > │ #if FABLE_COMPILER_PYTHON || FABLE_COMPILER_PHP || FABLE_COMPILER_DART │
00:01:03 #5144 [verbose] > │ let v8 : string = Unchecked.defaultof<string> │
00:01:03 #5145 [verbose] > │ v8 │
00:01:03 #5146 [verbose] > │ #endif │
00:01:03 #5147 [verbose] > │ |> fun x -> _v1 <- Some x │
00:01:03 #5148 [verbose] > │ let v9 : string = _v1.Value │
00:01:03 #5149 [verbose] > │ v9 │
00:01:03 #5150 [verbose] > │ and method3 (v0 : string, v1 : string) : string = │
00:01:03 #5151 [verbose] > │ let v2 : (string -> string) = closure5() │
00:01:03 #5152 [verbose] > │ let v3 : (unit -> string) = closure2() │
00:01:03 #5153 [verbose] > │ let v4 : string = $"path: {v0 |> v2} / ex: {v1} / {v3 ()}" │
00:01:03 #5154 [verbose] > │ v4 │
00:01:03 #5155 [verbose] > │ and closure4 (v0 : string, v1 : string) () : string = │
00:01:03 #5156 [verbose] > │ method3(v0, v1) │
00:01:03 #5157 [verbose] > │ and method2 (v0 : string, v1 : int64) : Async<int64> = │
00:01:03 #5158 [verbose] > │ let v2 : Async<int64> option = None │
00:01:03 #5159 [verbose] > │ let mutable _v2 = v2 │
00:01:04 #5160 [verbose] > │ #if FABLE_COMPILER_RUST && !WASM && !CONTRACT │
00:01:04 #5161 [verbose] > │ let v3 : Async<int64> = null |> unbox<Async<int64>> │
00:01:04 #5162 [verbose] > │ v3 │
00:01:04 #5163 [verbose] > │ #endif │
00:01:04 #5164 [verbose] > │ #if FABLE_COMPILER_RUST && WASM │
00:01:04 #5165 [verbose] > │ let v4 : Async<int64> = null |> unbox<Async<int64>> │
00:01:04 #5166 [verbose] > │ v4 │
00:01:04 #5167 [verbose] > │ #endif │
00:01:04 #5168 [verbose] > │ #if FABLE_COMPILER_RUST && CONTRACT │
00:01:04 #5169 [verbose] > │ let v5 : Async<int64> = null |> unbox<Async<int64>> │
00:01:04 #5170 [verbose] > │ v5 │
00:01:04 #5171 [verbose] > │ #endif │
00:01:04 #5172 [verbose] > │ #if !FABLE_COMPILER && !FABLE_COMPILER_RUST && │
00:01:04 #5173 [verbose] > │ !FABLE_COMPILER_TYPESCRIPT && !WASM && !CONTRACT │
00:01:04 #5174 [verbose] > │ let v6 : Async<int64> option = None │
00:01:04 #5175 [verbose] > │ let mutable _v6 = v6 │
00:01:04 #5176 [verbose] > │ async { │
00:01:04 #5177 [verbose] > │ try │
00:01:04 #5178 [verbose] > │ let v7 : unit option = None │
00:01:04 #5179 [verbose] > │ let mutable _v7 = v7 │
00:01:04 #5180 [verbose] > │ #if FABLE_COMPILER_RUST && !WASM && !CONTRACT │
00:01:04 #5181 [verbose] > │ null |> unbox<unit> │
00:01:04 #5182 [verbose] > │ () │
00:01:04 #5183 [verbose] > │ #endif │
00:01:04 #5184 [verbose] > │ #if FABLE_COMPILER_RUST && WASM │
00:01:04 #5185 [verbose] > │ null |> unbox<unit> │
00:01:04 #5186 [verbose] > │ () │
00:01:04 #5187 [verbose] > │ #endif │
00:01:04 #5188 [verbose] > │ #if FABLE_COMPILER_RUST && CONTRACT │
00:01:04 #5189 [verbose] > │ null |> unbox<unit> │
00:01:04 #5190 [verbose] > │ () │
00:01:04 #5191 [verbose] > │ #endif │
00:01:04 #5192 [verbose] > │ #if !FABLE_COMPILER && !FABLE_COMPILER_RUST && │
00:01:04 #5193 [verbose] > │ !FABLE_COMPILER_TYPESCRIPT && !WASM && !CONTRACT │
00:01:04 #5194 [verbose] > │ System.IO.Directory.Delete (v0, true) │
00:01:04 #5195 [verbose] > │ () │
00:01:04 #5196 [verbose] > │ #endif │
00:01:04 #5197 [verbose] > │ #if FABLE_COMPILER_TYPESCRIPT │
00:01:04 #5198 [verbose] > │ null |> unbox<unit> │
00:01:04 #5199 [verbose] > │ () │
00:01:04 #5200 [verbose] > │ #endif │
00:01:04 #5201 [verbose] > │ #if FABLE_COMPILER_PYTHON || FABLE_COMPILER_PHP || FABLE_COMPILER_DART │
00:01:04 #5202 [verbose] > │ Unchecked.defaultof<unit> │
00:01:04 #5203 [verbose] > │ () │
00:01:04 #5204 [verbose] > │ #endif │
00:01:04 #5205 [verbose] > │ |> fun x -> _v7 <- Some x │
00:01:04 #5206 [verbose] > │ _v7.Value │
00:01:04 #5207 [verbose] > │ return v1 │
00:01:04 #5208 [verbose] > │ with ex -> │
00:01:04 #5209 [verbose] > │ let v8 : exn = ex │
00:01:04 #5210 [verbose] > │ let v9 : int64 = v1 % 100L │
00:01:04 #5211 [verbose] > │ let v10 : bool = v9 = 0L │
00:01:04 #5212 [verbose] > │ if v10 then │
00:01:04 #5213 [verbose] > │ let v11 : string option = None │
00:01:04 #5214 [verbose] > │ let mutable _v11 = v11 │
00:01:04 #5215 [verbose] > │ #if FABLE_COMPILER_RUST && !WASM && !CONTRACT │
00:01:04 #5216 [verbose] > │ let v12 : string = $"%A{v8}" │
00:01:04 #5217 [verbose] > │ v12 │
00:01:04 #5218 [verbose] > │ #endif │
00:01:04 #5219 [verbose] > │ #if FABLE_COMPILER_RUST && WASM │
00:01:04 #5220 [verbose] > │ let v13 : string = $"%A{v8}" │
00:01:04 #5221 [verbose] > │ v13 │
00:01:04 #5222 [verbose] > │ #endif │
00:01:04 #5223 [verbose] > │ #if FABLE_COMPILER_RUST && CONTRACT │
00:01:04 #5224 [verbose] > │ let v14 : string = $"%A{v8}" │
00:01:04 #5225 [verbose] > │ v14 │
00:01:04 #5226 [verbose] > │ #endif │
00:01:04 #5227 [verbose] > │ #if !FABLE_COMPILER && !FABLE_COMPILER_RUST && │
00:01:04 #5228 [verbose] > │ !FABLE_COMPILER_TYPESCRIPT && !WASM && !CONTRACT │
00:01:04 #5229 [verbose] > │ let v15 : string = $"{v8.GetType ()}: {v8.Message}" │
00:01:04 #5230 [verbose] > │ v15 │
00:01:04 #5231 [verbose] > │ #endif │
00:01:04 #5232 [verbose] > │ #if FABLE_COMPILER_TYPESCRIPT │
00:01:04 #5233 [verbose] > │ let v16 : string = $"%A{v8}" │
00:01:04 #5234 [verbose] > │ v16 │
00:01:04 #5235 [verbose] > │ #endif │
00:01:04 #5236 [verbose] > │ #if FABLE_COMPILER_PYTHON || FABLE_COMPILER_PHP || │
00:01:04 #5237 [verbose] > │ FABLE_COMPILER_DART │
00:01:04 #5238 [verbose] > │ let v17 : string = Unchecked.defaultof<string> │
00:01:04 #5239 [verbose] > │ v17 │
00:01:04 #5240 [verbose] > │ #endif │
00:01:04 #5241 [verbose] > │ |> fun x -> _v11 <- Some x │
00:01:04 #5242 [verbose] > │ let v18 : string = _v11.Value │
00:01:04 #5243 [verbose] > │ let v19 : (unit -> string) = closure4(v0, v18) │
00:01:04 #5244 [verbose] > │ let v20 : string = $"delete_directory_async / {v19 ()}" │
00:01:04 #5245 [verbose] > │ System.Console.WriteLine v20 │
00:01:04 #5246 [verbose] > │ () │
00:01:04 #5247 [verbose] > │ let v21 : Async<unit> option = None │
00:01:04 #5248 [verbose] > │ let mutable _v21 = v21 │
00:01:04 #5249 [verbose] > │ #if FABLE_COMPILER_RUST && !WASM && !CONTRACT │
00:01:04 #5250 [verbose] > │ let v22 : Async<unit> = null |> unbox<Async<unit>> │
00:01:04 #5251 [verbose] > │ v22 │
00:01:04 #5252 [verbose] > │ #endif │
00:01:04 #5253 [verbose] > │ #if FABLE_COMPILER_RUST && WASM │
00:01:04 #5254 [verbose] > │ let v23 : Async<unit> = null |> unbox<Async<unit>> │
00:01:04 #5255 [verbose] > │ v23 │
00:01:04 #5256 [verbose] > │ #endif │
00:01:04 #5257 [verbose] > │ #if FABLE_COMPILER_RUST && CONTRACT │
00:01:04 #5258 [verbose] > │ let v24 : Async<unit> = null |> unbox<Async<unit>> │
00:01:04 #5259 [verbose] > │ v24 │
00:01:04 #5260 [verbose] > │ #endif │
00:01:04 #5261 [verbose] > │ #if !FABLE_COMPILER && !FABLE_COMPILER_RUST && │
00:01:04 #5262 [verbose] > │ !FABLE_COMPILER_TYPESCRIPT && !WASM && !CONTRACT │
00:01:04 #5263 [verbose] > │ let v25 : (int32 -> Async<unit>) = Async.Sleep │
00:01:04 #5264 [verbose] > │ let v26 : Async<unit> = v25 10 │
00:01:04 #5265 [verbose] > │ v26 │
00:01:04 #5266 [verbose] > │ #endif │
00:01:04 #5267 [verbose] > │ #if FABLE_COMPILER_TYPESCRIPT │
00:01:04 #5268 [verbose] > │ let v27 : Async<unit> = null |> unbox<Async<unit>> │
00:01:04 #5269 [verbose] > │ v27 │
00:01:04 #5270 [verbose] > │ #endif │
00:01:04 #5271 [verbose] > │ #if FABLE_COMPILER_PYTHON || FABLE_COMPILER_PHP || FABLE_COMPILER_DART │
00:01:04 #5272 [verbose] > │ let v28 : Async<unit> = Unchecked.defaultof<Async<unit>> │
00:01:04 #5273 [verbose] > │ v28 │
00:01:04 #5274 [verbose] > │ #endif │
00:01:04 #5275 [verbose] > │ |> fun x -> _v21 <- Some x │
00:01:04 #5276 [verbose] > │ let v29 : Async<unit> = _v21.Value │
00:01:04 #5277 [verbose] > │ do! v29 │
00:01:04 #5278 [verbose] > │ let v30 : int64 = v1 + 1L │
00:01:04 #5279 [verbose] > │ let v31 : Async<int64> = method2(v0, v30) │
00:01:04 #5280 [verbose] > │ return! v31 │
00:01:04 #5281 [verbose] > │ (* │
00:01:04 #5282 [verbose] > │ let v32 : int64 = *) │
00:01:04 #5283 [verbose] > │ } │
00:01:04 #5284 [verbose] > │ |> fun x -> _v6 <- Some x │
00:01:04 #5285 [verbose] > │ let v33 : Async<int64> = _v6 |> Option.get │
00:01:04 #5286 [verbose] > │ v33 │
00:01:04 #5287 [verbose] > │ #endif │
00:01:04 #5288 [verbose] > │ #if FABLE_COMPILER_TYPESCRIPT │
00:01:04 #5289 [verbose] > │ let v34 : Async<int64> = null |> unbox<Async<int64>> │
00:01:04 #5290 [verbose] > │ v34 │
00:01:04 #5291 [verbose] > │ #endif │
00:01:04 #5292 [verbose] > │ #if FABLE_COMPILER_PYTHON || FABLE_COMPILER_PHP || FABLE_COMPILER_DART │
00:01:04 #5293 [verbose] > │ let v35 : Async<int64> = Unchecked.defaultof<Async<int64>> │
00:01:04 #5294 [verbose] > │ v35 │
00:01:04 #5295 [verbose] > │ #endif │
00:01:04 #5296 [verbose] > │ |> fun x -> _v2 <- Some x │
00:01:04 #5297 [verbose] > │ let v36 : Async<int64> = _v2.Value │
00:01:04 #5298 [verbose] > │ v36 │
00:01:04 #5299 [verbose] > │ and closure3 (v0 : string) () : unit = │
00:01:04 #5300 [verbose] > │ let v1 : Async<int64> option = None │
00:01:04 #5301 [verbose] > │ let mutable _v1 = v1 │
00:01:04 #5302 [verbose] > │ #if FABLE_COMPILER_RUST && !WASM && !CONTRACT │
00:01:04 #5303 [verbose] > │ let v2 : Async<int64> = null |> unbox<Async<int64>> │
00:01:04 #5304 [verbose] > │ v2 │
00:01:04 #5305 [verbose] > │ #endif │
00:01:04 #5306 [verbose] > │ #if FABLE_COMPILER_RUST && WASM │
00:01:04 #5307 [verbose] > │ let v3 : Async<int64> = null |> unbox<Async<int64>> │
00:01:04 #5308 [verbose] > │ v3 │
00:01:04 #5309 [verbose] > │ #endif │
00:01:04 #5310 [verbose] > │ #if FABLE_COMPILER_RUST && CONTRACT │
00:01:04 #5311 [verbose] > │ let v4 : Async<int64> = null |> unbox<Async<int64>> │
00:01:04 #5312 [verbose] > │ v4 │
00:01:04 #5313 [verbose] > │ #endif │
00:01:04 #5314 [verbose] > │ #if !FABLE_COMPILER && !FABLE_COMPILER_RUST && │
00:01:04 #5315 [verbose] > │ !FABLE_COMPILER_TYPESCRIPT && !WASM && !CONTRACT │
00:01:04 #5316 [verbose] > │ let v5 : int64 = 0L │
00:01:04 #5317 [verbose] > │ let v6 : Async<int64> = method2(v0, v5) │
00:01:04 #5318 [verbose] > │ v6 │
00:01:04 #5319 [verbose] > │ #endif │
00:01:04 #5320 [verbose] > │ #if FABLE_COMPILER_TYPESCRIPT │
00:01:04 #5321 [verbose] > │ let v7 : Async<int64> = null |> unbox<Async<int64>> │
00:01:04 #5322 [verbose] > │ v7 │
00:01:04 #5323 [verbose] > │ #endif │
00:01:04 #5324 [verbose] > │ #if FABLE_COMPILER_PYTHON || FABLE_COMPILER_PHP || FABLE_COMPILER_DART │
00:01:04 #5325 [verbose] > │ let v8 : Async<int64> = Unchecked.defaultof<Async<int64>> │
00:01:04 #5326 [verbose] > │ v8 │
00:01:04 #5327 [verbose] > │ #endif │
00:01:04 #5328 [verbose] > │ |> fun x -> _v1 <- Some x │
00:01:04 #5329 [verbose] > │ let v9 : Async<int64> = _v1.Value │
00:01:04 #5330 [verbose] > │ let v10 : Async<unit> option = None │
00:01:04 #5331 [verbose] > │ let mutable _v10 = v10 │
00:01:04 #5332 [verbose] > │ #if FABLE_COMPILER_RUST && !WASM && !CONTRACT │
00:01:04 #5333 [verbose] > │ let v11 : Async<unit> = null |> unbox<Async<unit>> │
00:01:04 #5334 [verbose] > │ v11 │
00:01:04 #5335 [verbose] > │ #endif │
00:01:04 #5336 [verbose] > │ #if FABLE_COMPILER_RUST && WASM │
00:01:04 #5337 [verbose] > │ let v12 : Async<unit> = null |> unbox<Async<unit>> │
00:01:04 #5338 [verbose] > │ v12 │
00:01:04 #5339 [verbose] > │ #endif │
00:01:04 #5340 [verbose] > │ #if FABLE_COMPILER_RUST && CONTRACT │
00:01:04 #5341 [verbose] > │ let v13 : Async<unit> = null |> unbox<Async<unit>> │
00:01:04 #5342 [verbose] > │ v13 │
00:01:04 #5343 [verbose] > │ #endif │
00:01:04 #5344 [verbose] > │ #if !FABLE_COMPILER && !FABLE_COMPILER_RUST && │
00:01:04 #5345 [verbose] > │ !FABLE_COMPILER_TYPESCRIPT && !WASM && !CONTRACT │
00:01:04 #5346 [verbose] > │ let v14 : (Async<int64> -> Async<unit>) = Async.Ignore │
00:01:04 #5347 [verbose] > │ let v15 : Async<unit> = v14 v9 │
00:01:04 #5348 [verbose] > │ v15 │
00:01:04 #5349 [verbose] > │ #endif │
00:01:04 #5350 [verbose] > │ #if FABLE_COMPILER_TYPESCRIPT │
00:01:04 #5351 [verbose] > │ let v16 : Async<unit> = null |> unbox<Async<unit>> │
00:01:04 #5352 [verbose] > │ v16 │
00:01:04 #5353 [verbose] > │ #endif │
00:01:04 #5354 [verbose] > │ #if FABLE_COMPILER_PYTHON || FABLE_COMPILER_PHP || FABLE_COMPILER_DART │
00:01:04 #5355 [verbose] > │ let v17 : Async<unit> = Unchecked.defaultof<Async<unit>> │
00:01:04 #5356 [verbose] > │ v17 │
00:01:04 #5357 [verbose] > │ #endif │
00:01:04 #5358 [verbose] > │ |> fun x -> _v10 <- Some x │
00:01:04 #5359 [verbose] > │ let v18 : Async<unit> = _v10.Value │
00:01:04 #5360 [verbose] > │ let v19 : unit option = None │
00:01:04 #5361 [verbose] > │ let mutable _v19 = v19 │
00:01:04 #5362 [verbose] > │ #if FABLE_COMPILER_RUST && !WASM && !CONTRACT │
00:01:04 #5363 [verbose] > │ null |> unbox<unit> │
00:01:04 #5364 [verbose] > │ () │
00:01:04 #5365 [verbose] > │ #endif │
00:01:04 #5366 [verbose] > │ #if FABLE_COMPILER_RUST && WASM │
00:01:04 #5367 [verbose] > │ null |> unbox<unit> │
00:01:04 #5368 [verbose] > │ () │
00:01:04 #5369 [verbose] > │ #endif │
00:01:04 #5370 [verbose] > │ #if FABLE_COMPILER_RUST && CONTRACT │
00:01:04 #5371 [verbose] > │ null |> unbox<unit> │
00:01:04 #5372 [verbose] > │ () │
00:01:04 #5373 [verbose] > │ #endif │
00:01:04 #5374 [verbose] > │ #if !FABLE_COMPILER && !FABLE_COMPILER_RUST && │
00:01:04 #5375 [verbose] > │ !FABLE_COMPILER_TYPESCRIPT && !WASM && !CONTRACT │
00:01:04 #5376 [verbose] > │ let v20 : (Async<unit> -> unit) = Async.RunSynchronously │
00:01:04 #5377 [verbose] > │ v20 v18 │
00:01:04 #5378 [verbose] > │ () │
00:01:04 #5379 [verbose] > │ #endif │
00:01:04 #5380 [verbose] > │ #if FABLE_COMPILER_TYPESCRIPT │
00:01:04 #5381 [verbose] > │ null |> unbox<unit> │
00:01:04 #5382 [verbose] > │ () │
00:01:04 #5383 [verbose] > │ #endif │
00:01:04 #5384 [verbose] > │ #if FABLE_COMPILER_PYTHON || FABLE_COMPILER_PHP || FABLE_COMPILER_DART │
00:01:04 #5385 [verbose] > │ Unchecked.defaultof<unit> │
00:01:04 #5386 [verbose] > │ () │
00:01:04 #5387 [verbose] > │ #endif │
00:01:04 #5388 [verbose] > │ |> fun x -> _v19 <- Some x │
00:01:04 #5389 [verbose] > │ _v19.Value │
00:01:04 #5390 [verbose] > │ () │
00:01:04 #5391 [verbose] > │ and method4 () : string = │
00:01:04 #5392 [verbose] > │ let v0 : string = "test.txt" │
00:01:04 #5393 [verbose] > │ v0 │
00:01:04 #5394 [verbose] > │ and closure6 () () : string = │
00:01:04 #5395 [verbose] > │ let v0 : string = "1" │
00:01:04 #5396 [verbose] > │ v0 │
00:01:04 #5397 [verbose] > │ and method6 (v0 : int64 option) : int64 option = │
00:01:04 #5398 [verbose] > │ v0 │
00:01:04 #5399 [verbose] > │ and method7 (v0 : int64 option) : int64 option = │
00:01:04 #5400 [verbose] > │ v0 │
00:01:04 #5401 [verbose] > │ and closure7 () () : struct (Mut0 * Mut1 * Mut1 * Mut2 * int64 option) = │
00:01:04 #5402 [verbose] > │ let v0 : Mut1 = {l0 = true} : Mut1 │
00:01:04 #5403 [verbose] > │ let v1 : Mut0 = {l0 = 0L} : Mut0 │
00:01:04 #5404 [verbose] > │ let v2 : US0 = US0_0 │
00:01:04 #5405 [verbose] > │ let v3 : Mut2 = {l0 = v2} : Mut2 │
00:01:04 #5406 [verbose] > │ let v4 : Mut1 = {l0 = false} : Mut1 │
00:01:04 #5407 [verbose] > │ let v5 : int64 option option = None │
00:01:04 #5408 [verbose] > │ let mutable _v5 = v5 │
00:01:04 #5409 [verbose] > │ #if INTERACTIVE || !FABLE_COMPILER │
00:01:04 #5410 [verbose] > │ let v6 : string option = None │
00:01:04 #5411 [verbose] > │ let mutable _v6 = v6 │
00:01:04 #5412 [verbose] > │ #if FABLE_COMPILER_RUST && !WASM && !CONTRACT │
00:01:04 #5413 [verbose] > │ let v7 : string = null |> unbox<string> │
00:01:04 #5414 [verbose] > │ v7 │
00:01:04 #5415 [verbose] > │ #endif │
00:01:04 #5416 [verbose] > │ #if FABLE_COMPILER_RUST && WASM │
00:01:04 #5417 [verbose] > │ let v8 : string = null |> unbox<string> │
00:01:04 #5418 [verbose] > │ v8 │
00:01:04 #5419 [verbose] > │ #endif │
00:01:04 #5420 [verbose] > │ #if FABLE_COMPILER_RUST && CONTRACT │
00:01:04 #5421 [verbose] > │ let v9 : string = null |> unbox<string> │
00:01:04 #5422 [verbose] > │ v9 │
00:01:04 #5423 [verbose] > │ #endif │
00:01:04 #5424 [verbose] > │ #if !FABLE_COMPILER && !FABLE_COMPILER_RUST && │
00:01:04 #5425 [verbose] > │ !FABLE_COMPILER_TYPESCRIPT && !WASM && !CONTRACT │
00:01:04 #5426 [verbose] > │ let v10 : string = │
00:01:04 #5427 [verbose] > │ System.Reflection.Assembly.GetEntryAssembly().GetName().Name │
00:01:04 #5428 [verbose] > │ v10 │
00:01:04 #5429 [verbose] > │ #endif │
00:01:04 #5430 [verbose] > │ #if FABLE_COMPILER_TYPESCRIPT │
00:01:04 #5431 [verbose] > │ let v11 : string = null |> unbox<string> │
00:01:04 #5432 [verbose] > │ v11 │
00:01:04 #5433 [verbose] > │ #endif │
00:01:04 #5434 [verbose] > │ #if FABLE_COMPILER_PYTHON || FABLE_COMPILER_PHP || FABLE_COMPILER_DART │
00:01:04 #5435 [verbose] > │ let v12 : string = Unchecked.defaultof<string> │
00:01:04 #5436 [verbose] > │ v12 │
00:01:04 #5437 [verbose] > │ #endif │
00:01:04 #5438 [verbose] > │ |> fun x -> _v6 <- Some x │
00:01:04 #5439 [verbose] > │ let v13 : string = _v6.Value │
00:01:04 #5440 [verbose] > │ let v15 : bool = v13 = "Microsoft.DotNet.Interactive.App" │
00:01:04 #5441 [verbose] > │ let v16 : bool = v15 <> true │
00:01:04 #5442 [verbose] > │ let v22 : US1 = │
00:01:04 #5443 [verbose] > │ if v16 then │
00:01:04 #5444 [verbose] > │ let v17 : System.DateTime = System.DateTime.Now │
00:01:04 #5445 [verbose] > │ let v18 : (System.DateTime -> int64) = _.Ticks │
00:01:04 #5446 [verbose] > │ let v19 : int64 = v18 v17 │
00:01:04 #5447 [verbose] > │ US1_0(v19) │
00:01:04 #5448 [verbose] > │ else │
00:01:04 #5449 [verbose] > │ US1_1 │
00:01:04 #5450 [verbose] > │ let v27 : int64 option = │
00:01:04 #5451 [verbose] > │ match v22 with │
00:01:04 #5452 [verbose] > │ | US1_1 -> (* None *) │
00:01:04 #5453 [verbose] > │ let v25 : int64 option = None │
00:01:04 #5454 [verbose] > │ v25 │
00:01:04 #5455 [verbose] > │ | US1_0(v23) -> (* Some *) │
00:01:04 #5456 [verbose] > │ let v24 : int64 option = Some v23 │
00:01:04 #5457 [verbose] > │ v24 │
00:01:04 #5458 [verbose] > │ let v28 : int64 option = method6(v27) │
00:01:04 #5459 [verbose] > │ v28 │
00:01:04 #5460 [verbose] > │ #else │
00:01:04 #5461 [verbose] > │ let v29 : int64 option = None │
00:01:04 #5462 [verbose] > │ let v30 : int64 option = method7(v29) │
00:01:04 #5463 [verbose] > │ v30 │
00:01:04 #5464 [verbose] > │ #endif │
00:01:04 #5465 [verbose] > │ |> fun x -> _v5 <- Some x │
00:01:04 #5466 [verbose] > │ let v31 : int64 option = _v5.Value │
00:01:04 #5467 [verbose] > │ struct (v1, v4, v0, v3, v31) │
00:01:04 #5468 [verbose] > │ and closure9 () (v0 : int64) : US2 = │
00:01:04 #5469 [verbose] > │ US2_0(v0) │
00:01:04 #5470 [verbose] > │ and method8 () : (int64 -> US2) = │
00:01:04 #5471 [verbose] > │ closure9() │
00:01:04 #5472 [verbose] > │ and method9 () : string = │
00:01:04 #5473 [verbose] > │ let v0 : string = "" │
00:01:04 #5474 [verbose] > │ v0 │
00:01:04 #5475 [verbose] > │ and closure8 (v0 : US0, v1 : (unit -> string), v2 : (unit -> string)) () : │
00:01:04 #5476 [verbose] > │ string = │
00:01:04 #5477 [verbose] > │ let v3 : (unit -> struct (Mut0 * Mut1 * Mut1 * Mut2 * int64 option)) = │
00:01:04 #5478 [verbose] > │ closure7() │
00:01:04 #5479 [verbose] > │ if State.trace_state = None then State.trace_state <- v3 () |> Some │
00:01:04 #5480 [verbose] > │ let struct (v4 : Mut0, v5 : Mut1, v6 : Mut1, v7 : Mut2, v8 : int64 │
00:01:04 #5481 [verbose] > │ option) = State.trace_state.Value │
00:01:04 #5482 [verbose] > │ let v9 : string option = None │
00:01:04 #5483 [verbose] > │ let mutable _v9 = v9 │
00:01:04 #5484 [verbose] > │ #if FABLE_COMPILER_RUST && !WASM && !CONTRACT │
00:01:04 #5485 [verbose] > │ let v10 : (int64 -> US2) = method8() │
00:01:04 #5486 [verbose] > │ let v11 : US2 = US2_1 │
00:01:04 #5487 [verbose] > │ let v12 : US2 = v8 |> Option.map v10 |> Option.defaultValue v11 │
00:01:04 #5488 [verbose] > │ let v30 : System.DateTime = │
00:01:04 #5489 [verbose] > │ match v12 with │
00:01:04 #5490 [verbose] > │ | US2_1 -> (* None *) │
00:01:04 #5491 [verbose] > │ let v28 : System.DateTime = System.DateTime.Now │
00:01:04 #5492 [verbose] > │ v28 │
00:01:04 #5493 [verbose] > │ | US2_0(v13) -> (* Some *) │
00:01:04 #5494 [verbose] > │ let v14 : System.DateTime = System.DateTime.Now │
00:01:04 #5495 [verbose] > │ let v15 : (System.DateTime -> int64) = _.Ticks │
00:01:04 #5496 [verbose] > │ let v16 : int64 = v15 v14 │
00:01:04 #5497 [verbose] > │ let v17 : int64 = v16 - v13 │
00:01:04 #5498 [verbose] > │ let v18 : System.TimeSpan = System.TimeSpan v17 │
00:01:04 #5499 [verbose] > │ let v19 : (System.TimeSpan -> int32) = _.Hours │
00:01:04 #5500 [verbose] > │ let v20 : int32 = v19 v18 │
00:01:04 #5501 [verbose] > │ let v21 : (System.TimeSpan -> int32) = _.Minutes │
00:01:04 #5502 [verbose] > │ let v22 : int32 = v21 v18 │
00:01:04 #5503 [verbose] > │ let v23 : (System.TimeSpan -> int32) = _.Seconds │
00:01:04 #5504 [verbose] > │ let v24 : int32 = v23 v18 │
00:01:04 #5505 [verbose] > │ let v25 : (System.TimeSpan -> int32) = _.Milliseconds │
00:01:04 #5506 [verbose] > │ let v26 : int32 = v25 v18 │
00:01:04 #5507 [verbose] > │ let v27 : System.DateTime = System.DateTime (1, 1, 1, v20, v22, │
00:01:04 #5508 [verbose] > │ v24, v26) │
00:01:04 #5509 [verbose] > │ v27 │
00:01:04 #5510 [verbose] > │ let v31 : string = "hh:mm:ss" │
00:01:04 #5511 [verbose] > │ let v32 : string = v30.ToString v31 │
00:01:04 #5512 [verbose] > │ v32 │
00:01:04 #5513 [verbose] > │ #endif │
00:01:04 #5514 [verbose] > │ #if FABLE_COMPILER_RUST && WASM │
00:01:04 #5515 [verbose] > │ let v33 : string = method9() │
00:01:04 #5516 [verbose] > │ v33 │
00:01:04 #5517 [verbose] > │ #endif │
00:01:04 #5518 [verbose] > │ #if FABLE_COMPILER_RUST && CONTRACT │
00:01:04 #5519 [verbose] > │ let v34 : string = method9() │
00:01:04 #5520 [verbose] > │ v34 │
00:01:04 #5521 [verbose] > │ #endif │
00:01:04 #5522 [verbose] > │ #if !FABLE_COMPILER && !FABLE_COMPILER_RUST && │
00:01:04 #5523 [verbose] > │ !FABLE_COMPILER_TYPESCRIPT && !WASM && !CONTRACT │
00:01:04 #5524 [verbose] > │ let v35 : (int64 -> US2) = method8() │
00:01:04 #5525 [verbose] > │ let v36 : US2 = US2_1 │
00:01:04 #5526 [verbose] > │ let v37 : US2 = v8 |> Option.map v35 |> Option.defaultValue v36 │
00:01:04 #5527 [verbose] > │ let v55 : System.DateTime = │
00:01:04 #5528 [verbose] > │ match v37 with │
00:01:04 #5529 [verbose] > │ | US2_1 -> (* None *) │
00:01:04 #5530 [verbose] > │ let v53 : System.DateTime = System.DateTime.Now │
00:01:04 #5531 [verbose] > │ v53 │
00:01:04 #5532 [verbose] > │ | US2_0(v38) -> (* Some *) │
00:01:04 #5533 [verbose] > │ let v39 : System.DateTime = System.DateTime.Now │
00:01:04 #5534 [verbose] > │ let v40 : (System.DateTime -> int64) = _.Ticks │
00:01:04 #5535 [verbose] > │ let v41 : int64 = v40 v39 │
00:01:04 #5536 [verbose] > │ let v42 : int64 = v41 - v38 │
00:01:04 #5537 [verbose] > │ let v43 : System.TimeSpan = System.TimeSpan v42 │
00:01:04 #5538 [verbose] > │ let v44 : (System.TimeSpan -> int32) = _.Hours │
00:01:04 #5539 [verbose] > │ let v45 : int32 = v44 v43 │
00:01:04 #5540 [verbose] > │ let v46 : (System.TimeSpan -> int32) = _.Minutes │
00:01:04 #5541 [verbose] > │ let v47 : int32 = v46 v43 │
00:01:04 #5542 [verbose] > │ let v48 : (System.TimeSpan -> int32) = _.Seconds │
00:01:04 #5543 [verbose] > │ let v49 : int32 = v48 v43 │
00:01:04 #5544 [verbose] > │ let v50 : (System.TimeSpan -> int32) = _.Milliseconds │
00:01:04 #5545 [verbose] > │ let v51 : int32 = v50 v43 │
00:01:04 #5546 [verbose] > │ let v52 : System.DateTime = System.DateTime (1, 1, 1, v45, v47, │
00:01:04 #5547 [verbose] > │ v49, v51) │
00:01:04 #5548 [verbose] > │ v52 │
00:01:04 #5549 [verbose] > │ let v56 : string = "HH:mm:ss" │
00:01:04 #5550 [verbose] > │ let v57 : string = v55.ToString v56 │
00:01:04 #5551 [verbose] > │ v57 │
00:01:04 #5552 [verbose] > │ #endif │
00:01:04 #5553 [verbose] > │ #if FABLE_COMPILER_TYPESCRIPT │
00:01:04 #5554 [verbose] > │ let v58 : string = method9() │
00:01:04 #5555 [verbose] > │ v58 │
00:01:04 #5556 [verbose] > │ #endif │
00:01:04 #5557 [verbose] > │ #if FABLE_COMPILER_PYTHON || FABLE_COMPILER_PHP || FABLE_COMPILER_DART │
00:01:04 #5558 [verbose] > │ let v59 : string = Unchecked.defaultof<string> │
00:01:04 #5559 [verbose] > │ v59 │
00:01:04 #5560 [verbose] > │ #endif │
00:01:04 #5561 [verbose] > │ |> fun x -> _v9 <- Some x │
00:01:04 #5562 [verbose] > │ let v60 : string = _v9.Value │
00:01:04 #5563 [verbose] > │ let v61 : int64 = v4.l0 │
00:01:04 #5564 [verbose] > │ let v71 : string = │
00:01:04 #5565 [verbose] > │ match v0 with │
00:01:04 #5566 [verbose] > │ | US0_4 -> (* Critical *) │
00:01:04 #5567 [verbose] > │ let v66 : string = "Critical" │
00:01:04 #5568 [verbose] > │ v66 │
00:01:04 #5569 [verbose] > │ | US0_1 -> (* Debug *) │
00:01:04 #5570 [verbose] > │ let v63 : string = "Debug" │
00:01:04 #5571 [verbose] > │ v63 │
00:01:04 #5572 [verbose] > │ | US0_2 -> (* Info *) │
00:01:04 #5573 [verbose] > │ let v64 : string = "Info" │
00:01:04 #5574 [verbose] > │ v64 │
00:01:04 #5575 [verbose] > │ | US0_0 -> (* Verbose *) │
00:01:04 #5576 [verbose] > │ let v62 : string = "Verbose" │
00:01:04 #5577 [verbose] > │ v62 │
00:01:04 #5578 [verbose] > │ | US0_3 -> (* Warning *) │
00:01:04 #5579 [verbose] > │ let v65 : string = "Warning" │
00:01:04 #5580 [verbose] > │ v65 │
00:01:04 #5581 [verbose] > │ let v72 : string = v71.ToLower () │
00:01:04 #5582 [verbose] > │ let v73 : string = $"{v60} #{v61} [{v72}] %s{v1 ()} / %s{v2 ()}" │
00:01:04 #5583 [verbose] > │ let v74 : (char []) = [||] │
00:01:04 #5584 [verbose] > │ let v75 : string = v73.TrimStart v74 │
00:01:04 #5585 [verbose] > │ let v76 : (char []) = [|' '; '/'|] │
00:01:04 #5586 [verbose] > │ let v77 : string = v75.TrimEnd v76 │
00:01:04 #5587 [verbose] > │ v77 │
00:01:04 #5588 [verbose] > │ and method5 (v0 : US0, v1 : (unit -> string), v2 : (unit -> string)) : unit │
00:01:04 #5589 [verbose] > │ = │
00:01:04 #5590 [verbose] > │ let v3 : (unit -> struct (Mut0 * Mut1 * Mut1 * Mut2 * int64 option)) = │
00:01:04 #5591 [verbose] > │ closure7() │
00:01:04 #5592 [verbose] > │ if State.trace_state = None then State.trace_state <- v3 () |> Some │
00:01:04 #5593 [verbose] > │ let struct (v4 : Mut0, v5 : Mut1, v6 : Mut1, v7 : Mut2, v8 : int64 │
00:01:04 #5594 [verbose] > │ option) = State.trace_state.Value │
00:01:04 #5595 [verbose] > │ if State.trace_state = None then State.trace_state <- v3 () |> Some │
00:01:04 #5596 [verbose] > │ let struct (v9 : Mut0, v10 : Mut1, v11 : Mut1, v12 : Mut2, v13 : int64 │
00:01:04 #5597 [verbose] > │ option) = State.trace_state.Value │
00:01:04 #5598 [verbose] > │ let v14 : US0 = v12.l0 │
00:01:04 #5599 [verbose] > │ let v15 : bool = v11.l0 │
00:01:04 #5600 [verbose] > │ let v17 : bool = │
00:01:04 #5601 [verbose] > │ if v15 then │
00:01:04 #5602 [verbose] > │ let v16 : bool = v0 >= v14 │
00:01:04 #5603 [verbose] > │ v16 │
00:01:04 #5604 [verbose] > │ else │
00:01:04 #5605 [verbose] > │ false │
00:01:04 #5606 [verbose] > │ if v17 then │
00:01:04 #5607 [verbose] > │ let v18 : int64 = v4.l0 │
00:01:04 #5608 [verbose] > │ let v19 : int64 = v18 + 1L │
00:01:04 #5609 [verbose] > │ v4.l0 <- v19 │
00:01:04 #5610 [verbose] > │ let v20 : (unit -> string) = closure8(v0, v1, v2) │
00:01:04 #5611 [verbose] > │ let v21 : string = $"%s{v20 ()}" │
00:01:04 #5612 [verbose] > │ let v22 : unit option = None │
00:01:04 #5613 [verbose] > │ let mutable _v22 = v22 │
00:01:04 #5614 [verbose] > │ #if FABLE_COMPILER_RUST && !WASM && !CONTRACT │
00:01:04 #5615 [verbose] > │ let v23 : string = @"println!(""{}"", $0)" │
00:01:04 #5616 [verbose] > │ Fable.Core.RustInterop.emitRustExpr v21 v23 │
00:01:04 #5617 [verbose] > │ () │
00:01:04 #5618 [verbose] > │ #endif │
00:01:04 #5619 [verbose] > │ #if FABLE_COMPILER_RUST && WASM │
00:01:04 #5620 [verbose] > │ let v24 : string = @"println!(""{}"", $0)" │
00:01:04 #5621 [verbose] > │ Fable.Core.RustInterop.emitRustExpr v21 v24 │
00:01:04 #5622 [verbose] > │ () │
00:01:04 #5623 [verbose] > │ #endif │
00:01:04 #5624 [verbose] > │ #if FABLE_COMPILER_RUST && CONTRACT │
00:01:04 #5625 [verbose] > │ let v25 : string = @"println!(""{}"", $0)" │
00:01:04 #5626 [verbose] > │ Fable.Core.RustInterop.emitRustExpr v21 v25 │
00:01:04 #5627 [verbose] > │ () │
00:01:04 #5628 [verbose] > │ #endif │
00:01:04 #5629 [verbose] > │ #if !FABLE_COMPILER && !FABLE_COMPILER_RUST && │
00:01:04 #5630 [verbose] > │ !FABLE_COMPILER_TYPESCRIPT && !WASM && !CONTRACT │
00:01:04 #5631 [verbose] > │ System.Console.WriteLine v21 │
00:01:04 #5632 [verbose] > │ () │
00:01:04 #5633 [verbose] > │ #endif │
00:01:04 #5634 [verbose] > │ #if FABLE_COMPILER_TYPESCRIPT │
00:01:04 #5635 [verbose] > │ System.Console.WriteLine v21 │
00:01:04 #5636 [verbose] > │ () │
00:01:04 #5637 [verbose] > │ #endif │
00:01:04 #5638 [verbose] > │ #if FABLE_COMPILER_PYTHON || FABLE_COMPILER_PHP || │
00:01:04 #5639 [verbose] > │ FABLE_COMPILER_DART │
00:01:04 #5640 [verbose] > │ Unchecked.defaultof<unit> │
00:01:04 #5641 [verbose] > │ () │
00:01:04 #5642 [verbose] > │ #endif │
00:01:04 #5643 [verbose] > │ |> fun x -> _v22 <- Some x │
00:01:04 #5644 [verbose] > │ _v22.Value │
00:01:04 #5645 [verbose] > │ () │
00:01:04 #5646 [verbose] > │ and method10 () : struct (string * string) = │
00:01:04 #5647 [verbose] > │ let v0 : string = "" │
00:01:04 #5648 [verbose] > │ struct (v0, v0) │
00:01:04 #5649 [verbose] > │ and closure11 (v0 : char) (v1 : UH0) : UH0 = │
00:01:04 #5650 [verbose] > │ UH0_1(v0, v1) │
00:01:04 #5651 [verbose] > │ and closure10 () (v0 : char) : (UH0 -> UH0) = │
00:01:04 #5652 [verbose] > │ closure11(v0) │
00:01:04 #5653 [verbose] > │ and method11 () : (char -> (UH0 -> UH0)) = │
00:01:04 #5654 [verbose] > │ closure10() │
00:01:04 #5655 [verbose] > │ and method12 (v0 : string, v1 : string, v2 : UH0, v3 : US3) : struct (string │
00:01:04 #5656 [verbose] > │ * string) = │
00:01:04 #5657 [verbose] > │ match v2 with │
00:01:04 #5658 [verbose] > │ | UH0_1(v4, v5) -> (* Cons *) │
00:01:04 #5659 [verbose] > │ let v6 : bool = '"' = v4 │
00:01:04 #5660 [verbose] > │ if v6 then │
00:01:04 #5661 [verbose] > │ let v8 : bool = v1 = "" │
00:01:04 #5662 [verbose] > │ if v8 then │
00:01:04 #5663 [verbose] > │ let v9 : US4 = US4_0 │
00:01:04 #5664 [verbose] > │ let v10 : US3 = US3_1(v9) │
00:01:04 #5665 [verbose] > │ method12(v0, v1, v5, v10) │
00:01:04 #5666 [verbose] > │ else │
00:01:04 #5667 [verbose] > │ match v3 with │
00:01:04 #5668 [verbose] > │ | US3_2 -> (* Arguments *) │
00:01:04 #5669 [verbose] > │ let v38 : string = $"{v0}{v4}" │
00:01:04 #5670 [verbose] > │ let v39 : US3 = US3_2 │
00:01:04 #5671 [verbose] > │ method12(v38, v1, v5, v39) │
00:01:04 #5672 [verbose] > │ | US3_1(v13) -> (* Path *) │
00:01:04 #5673 [verbose] > │ match v13 with │
00:01:04 #5674 [verbose] > │ | US4_0 -> (* Quoted *) │
00:01:04 #5675 [verbose] > │ let v14 : US4 = US4_1 │
00:01:04 #5676 [verbose] > │ let v15 : US3 = US3_1(v14) │
00:01:04 #5677 [verbose] > │ method12(v0, v1, v5, v15) │
00:01:04 #5678 [verbose] > │ | _ -> │
00:01:04 #5679 [verbose] > │ let v18 : bool = ' ' = v4 │
00:01:04 #5680 [verbose] > │ if v18 then │
00:01:04 #5681 [verbose] > │ let v19 : US3 = US3_2 │
00:01:04 #5682 [verbose] > │ method12(v0, v1, v5, v19) │
00:01:04 #5683 [verbose] > │ else │
00:01:04 #5684 [verbose] > │ let v22 : string = $"{v1}{v4}" │
00:01:04 #5685 [verbose] > │ method12(v0, v22, v5, v3) │
00:01:04 #5686 [verbose] > │ | US3_0 -> (* Start *) │
00:01:04 #5687 [verbose] > │ let v29 : bool = ' ' = v4 │
00:01:04 #5688 [verbose] > │ if v29 then │
00:01:04 #5689 [verbose] > │ let v30 : US3 = US3_2 │
00:01:04 #5690 [verbose] > │ method12(v0, v1, v5, v30) │
00:01:04 #5691 [verbose] > │ else │
00:01:04 #5692 [verbose] > │ let v33 : string = $"{v1}{v4}" │
00:01:04 #5693 [verbose] > │ method12(v0, v33, v5, v3) │
00:01:04 #5694 [verbose] > │ else │
00:01:04 #5695 [verbose] > │ let v50 : bool = ''' = v4 │
00:01:04 #5696 [verbose] > │ if v50 then │
00:01:04 #5697 [verbose] > │ let v52 : bool = v1 = "" │
00:01:04 #5698 [verbose] > │ if v52 then │
00:01:04 #5699 [verbose] > │ let v53 : US4 = US4_0 │
00:01:04 #5700 [verbose] > │ let v54 : US3 = US3_1(v53) │
00:01:04 #5701 [verbose] > │ method12(v0, v1, v5, v54) │
00:01:04 #5702 [verbose] > │ else │
00:01:04 #5703 [verbose] > │ match v3 with │
00:01:04 #5704 [verbose] > │ | US3_2 -> (* Arguments *) │
00:01:04 #5705 [verbose] > │ let v82 : string = $"{v0}{v4}" │
00:01:04 #5706 [verbose] > │ let v83 : US3 = US3_2 │
00:01:04 #5707 [verbose] > │ method12(v82, v1, v5, v83) │
00:01:04 #5708 [verbose] > │ | US3_1(v57) -> (* Path *) │
00:01:04 #5709 [verbose] > │ match v57 with │
00:01:04 #5710 [verbose] > │ | US4_0 -> (* Quoted *) │
00:01:04 #5711 [verbose] > │ let v58 : US4 = US4_1 │
00:01:04 #5712 [verbose] > │ let v59 : US3 = US3_1(v58) │
00:01:04 #5713 [verbose] > │ method12(v0, v1, v5, v59) │
00:01:04 #5714 [verbose] > │ | _ -> │
00:01:04 #5715 [verbose] > │ let v62 : bool = ' ' = v4 │
00:01:04 #5716 [verbose] > │ if v62 then │
00:01:04 #5717 [verbose] > │ let v63 : US3 = US3_2 │
00:01:04 #5718 [verbose] > │ method12(v0, v1, v5, v63) │
00:01:04 #5719 [verbose] > │ else │
00:01:04 #5720 [verbose] > │ let v66 : string = $"{v1}{v4}" │
00:01:04 #5721 [verbose] > │ method12(v0, v66, v5, v3) │
00:01:04 #5722 [verbose] > │ | US3_0 -> (* Start *) │
00:01:04 #5723 [verbose] > │ let v73 : bool = ' ' = v4 │
00:01:04 #5724 [verbose] > │ if v73 then │
00:01:04 #5725 [verbose] > │ let v74 : US3 = US3_2 │
00:01:04 #5726 [verbose] > │ method12(v0, v1, v5, v74) │
00:01:04 #5727 [verbose] > │ else │
00:01:04 #5728 [verbose] > │ let v77 : string = $"{v1}{v4}" │
00:01:04 #5729 [verbose] > │ method12(v0, v77, v5, v3) │
00:01:04 #5730 [verbose] > │ else │
00:01:04 #5731 [verbose] > │ match v3 with │
00:01:04 #5732 [verbose] > │ | US3_2 -> (* Arguments *) │
00:01:04 #5733 [verbose] > │ let v126 : string = $"{v0}{v4}" │
00:01:04 #5734 [verbose] > │ let v127 : US3 = US3_2 │
00:01:04 #5735 [verbose] > │ method12(v126, v1, v5, v127) │
00:01:04 #5736 [verbose] > │ | US3_1(v94) -> (* Path *) │
00:01:04 #5737 [verbose] > │ match v94 with │
00:01:04 #5738 [verbose] > │ | US4_0 -> (* Quoted *) │
00:01:04 #5739 [verbose] > │ let v95 : bool = ' ' = v4 │
00:01:04 #5740 [verbose] > │ if v95 then │
00:01:04 #5741 [verbose] > │ let v96 : string = $"{v1} " │
00:01:04 #5742 [verbose] > │ let v97 : US4 = US4_0 │
00:01:04 #5743 [verbose] > │ let v98 : US3 = US3_1(v97) │
00:01:04 #5744 [verbose] > │ method12(v0, v96, v5, v98) │
00:01:04 #5745 [verbose] > │ else │
00:01:04 #5746 [verbose] > │ let v101 : string = $"{v1}{v4}" │
00:01:04 #5747 [verbose] > │ method12(v0, v101, v5, v3) │
00:01:04 #5748 [verbose] > │ | _ -> │
00:01:04 #5749 [verbose] > │ let v106 : bool = ' ' = v4 │
00:01:04 #5750 [verbose] > │ if v106 then │
00:01:04 #5751 [verbose] > │ let v107 : US3 = US3_2 │
00:01:04 #5752 [verbose] > │ method12(v0, v1, v5, v107) │
00:01:04 #5753 [verbose] > │ else │
00:01:04 #5754 [verbose] > │ let v110 : string = $"{v1}{v4}" │
00:01:04 #5755 [verbose] > │ method12(v0, v110, v5, v3) │
00:01:04 #5756 [verbose] > │ | US3_0 -> (* Start *) │
00:01:04 #5757 [verbose] > │ let v117 : bool = ' ' = v4 │
00:01:04 #5758 [verbose] > │ if v117 then │
00:01:04 #5759 [verbose] > │ let v118 : US3 = US3_2 │
00:01:04 #5760 [verbose] > │ method12(v0, v1, v5, v118) │
00:01:04 #5761 [verbose] > │ else │
00:01:04 #5762 [verbose] > │ let v121 : string = $"{v1}{v4}" │
00:01:04 #5763 [verbose] > │ method12(v0, v121, v5, v3) │
00:01:04 #5764 [verbose] > │ | _ -> │
00:01:04 #5765 [verbose] > │ match v3 with │
00:01:04 #5766 [verbose] > │ | US3_2 -> (* Arguments *) │
00:01:04 #5767 [verbose] > │ let v152 : string = "\\" │
00:01:04 #5768 [verbose] > │ let v153 : string = "/" │
00:01:04 #5769 [verbose] > │ let v154 : string = v1.Replace (v152, v153) │
00:01:04 #5770 [verbose] > │ struct (v154, v0) │
00:01:04 #5771 [verbose] > │ | US3_1(v140) -> (* Path *) │
00:01:04 #5772 [verbose] > │ match v140 with │
00:01:04 #5773 [verbose] > │ | US4_0 -> (* Quoted *) │
00:01:04 #5774 [verbose] > │ let v141 : string = "\\" │
00:01:04 #5775 [verbose] > │ let v142 : string = "/" │
00:01:04 #5776 [verbose] > │ let v143 : string = v1.Replace (v141, v142) │
00:01:04 #5777 [verbose] > │ struct (v143, v0) │
00:01:04 #5778 [verbose] > │ | _ -> │
00:01:04 #5779 [verbose] > │ let v144 : string = "\\" │
00:01:04 #5780 [verbose] > │ let v145 : string = "/" │
00:01:04 #5781 [verbose] > │ let v146 : string = v1.Replace (v144, v145) │
00:01:04 #5782 [verbose] > │ struct (v146, v0) │
00:01:04 #5783 [verbose] > │ | US3_0 -> (* Start *) │
00:01:04 #5784 [verbose] > │ let v149 : string = "\\" │
00:01:04 #5785 [verbose] > │ let v150 : string = "/" │
00:01:04 #5786 [verbose] > │ let v151 : string = v1.Replace (v149, v150) │
00:01:04 #5787 [verbose] > │ struct (v151, v0) │
00:01:04 #5788 [verbose] > │ and closure12 () (v0 : string) : US5 = │
00:01:04 #5789 [verbose] > │ US5_0(v0) │
00:01:04 #5790 [verbose] > │ and method13 () : (string -> US5) = │
00:01:04 #5791 [verbose] > │ closure12() │
00:01:04 #5792 [verbose] > │ and closure13 (v0 : System.Threading.CancellationToken option, v1 : string, │
00:01:04 #5793 [verbose] > │ v2 : (struct (bool * string * int32) -> Async<unit>) option, v3 : US0 │
00:01:04 #5794 [verbose] > │ option, v4 : string option) () : string = │
00:01:04 #5795 [verbose] > │ let v5 : string = $"execute_with_options_async / options: %A{struct (v0, │
00:01:04 #5796 [verbose] > │ v1, v2, v3, v4)}" │
00:01:04 #5797 [verbose] > │ v5 │
00:01:04 #5798 [verbose] > │ and method14 () : (unit -> string) = │
00:01:04 #5799 [verbose] > │ closure2() │
00:01:04 #5800 [verbose] > │ and closure15 () (v0 : (struct (bool * string * int32) -> Async<unit>)) : │
00:01:04 #5801 [verbose] > │ US6 = │
00:01:04 #5802 [verbose] > │ US6_0(v0) │
00:01:04 #5803 [verbose] > │ and method15 () : ((struct (bool * string * int32) -> Async<unit>) -> US6) = │
00:01:04 #5804 [verbose] > │ closure15() │
00:01:04 #5805 [verbose] > │ and closure16 (v0 : string) () : string = │
00:01:04 #5806 [verbose] > │ let v1 : string = $"> {v0}" │
00:01:04 #5807 [verbose] > │ v1 │
00:01:04 #5808 [verbose] > │ and closure14 (v0 : System.Threading.CancellationToken option, v1 : string, │
00:01:04 #5809 [verbose] > │ v2 : (struct (bool * string * int32) -> Async<unit>) option, v3 : US0 │
00:01:04 #5810 [verbose] > │ option, v4 : string option, v5 : System.Diagnostics.Process, v6 : │
00:01:04 #5811 [verbose] > │ System.Collections.Concurrent.ConcurrentStack<string>) (v7 : │
00:01:04 #5812 [verbose] > │ System.Diagnostics.DataReceivedEventArgs) : unit = │
00:01:04 #5813 [verbose] > │ let v8 : Async<unit> option = None │
00:01:04 #5814 [verbose] > │ let mutable _v8 = v8 │
00:01:04 #5815 [verbose] > │ #if FABLE_COMPILER_RUST && !WASM && !CONTRACT │
00:01:04 #5816 [verbose] > │ let v9 : Async<unit> = null |> unbox<Async<unit>> │
00:01:04 #5817 [verbose] > │ v9 │
00:01:04 #5818 [verbose] > │ #endif │
00:01:04 #5819 [verbose] > │ #if FABLE_COMPILER_RUST && WASM │
00:01:04 #5820 [verbose] > │ let v10 : Async<unit> = null |> unbox<Async<unit>> │
00:01:04 #5821 [verbose] > │ v10 │
00:01:04 #5822 [verbose] > │ #endif │
00:01:04 #5823 [verbose] > │ #if FABLE_COMPILER_RUST && CONTRACT │
00:01:04 #5824 [verbose] > │ let v11 : Async<unit> = null |> unbox<Async<unit>> │
00:01:04 #5825 [verbose] > │ v11 │
00:01:04 #5826 [verbose] > │ #endif │
00:01:04 #5827 [verbose] > │ #if !FABLE_COMPILER && !FABLE_COMPILER_RUST && │
00:01:04 #5828 [verbose] > │ !FABLE_COMPILER_TYPESCRIPT && !WASM && !CONTRACT │
00:01:04 #5829 [verbose] > │ let v12 : Async<unit> option = None │
00:01:04 #5830 [verbose] > │ let mutable _v12 = v12 │
00:01:04 #5831 [verbose] > │ async { │
00:01:04 #5832 [verbose] > │ let v13 : string = v7.Data │
00:01:04 #5833 [verbose] > │ let v14 : string = null |> unbox<string> │
00:01:04 #5834 [verbose] > │ let v15 : bool = v13 = v14 │
00:01:04 #5835 [verbose] > │ let v16 : bool = v15 <> true │
00:01:04 #5836 [verbose] > │ if v16 then │
00:01:04 #5837 [verbose] > │ let v17 : ((struct (bool * string * int32) -> Async<unit>) -> US6) = │
00:01:04 #5838 [verbose] > │ method15() │
00:01:04 #5839 [verbose] > │ let v18 : US6 = US6_1 │
00:01:04 #5840 [verbose] > │ let v19 : US6 = v2 |> Option.map v17 |> Option.defaultValue v18 │
00:01:04 #5841 [verbose] > │ match v19 with │
00:01:04 #5842 [verbose] > │ | US6_1 -> (* None *) │
00:01:04 #5843 [verbose] > │ () │
00:01:04 #5844 [verbose] > │ | US6_0(v20) -> (* Some *) │
00:01:04 #5845 [verbose] > │ let v21 : int32 = v5.Id │
00:01:04 #5846 [verbose] > │ let v22 : Async<unit> = v20 struct (false, v13, v21) │
00:01:04 #5847 [verbose] > │ do! v22 │
00:01:04 #5848 [verbose] > │ () │
00:01:04 #5849 [verbose] > │ let v23 : US0 = US0_0 │
00:01:04 #5850 [verbose] > │ let v24 : (unit -> string) = closure16(v13) │
00:01:04 #5851 [verbose] > │ let v25 : (unit -> string) = closure2() │
00:01:04 #5852 [verbose] > │ method5(v23, v24, v25) │
00:01:04 #5853 [verbose] > │ let v26 : string = "" │
00:01:04 #5854 [verbose] > │ let v27 : string = $"{v26}{v13}{v26}" │
00:01:04 #5855 [verbose] > │ let v28 : (string -> unit) = v6.Push │
00:01:04 #5856 [verbose] > │ v28 v27 │
00:01:04 #5857 [verbose] > │ } │
00:01:04 #5858 [verbose] > │ |> fun x -> _v12 <- Some x │
00:01:04 #5859 [verbose] > │ let v29 : Async<unit> = _v12 |> Option.get │
00:01:04 #5860 [verbose] > │ v29 │
00:01:04 #5861 [verbose] > │ #endif │
00:01:04 #5862 [verbose] > │ #if FABLE_COMPILER_TYPESCRIPT │
00:01:04 #5863 [verbose] > │ let v30 : Async<unit> = null |> unbox<Async<unit>> │
00:01:04 #5864 [verbose] > │ v30 │
00:01:04 #5865 [verbose] > │ #endif │
00:01:04 #5866 [verbose] > │ #if FABLE_COMPILER_PYTHON || FABLE_COMPILER_PHP || FABLE_COMPILER_DART │
00:01:04 #5867 [verbose] > │ let v31 : Async<unit> = Unchecked.defaultof<Async<unit>> │
00:01:04 #5868 [verbose] > │ v31 │
00:01:04 #5869 [verbose] > │ #endif │
00:01:04 #5870 [verbose] > │ |> fun x -> _v8 <- Some x │
00:01:04 #5871 [verbose] > │ let v32 : Async<unit> = _v8.Value │
00:01:04 #5872 [verbose] > │ let v33 : unit option = None │
00:01:04 #5873 [verbose] > │ let mutable _v33 = v33 │
00:01:04 #5874 [verbose] > │ #if FABLE_COMPILER_RUST && !WASM && !CONTRACT │
00:01:04 #5875 [verbose] > │ null |> unbox<unit> │
00:01:04 #5876 [verbose] > │ () │
00:01:04 #5877 [verbose] > │ #endif │
00:01:04 #5878 [verbose] > │ #if FABLE_COMPILER_RUST && WASM │
00:01:04 #5879 [verbose] > │ null |> unbox<unit> │
00:01:04 #5880 [verbose] > │ () │
00:01:04 #5881 [verbose] > │ #endif │
00:01:04 #5882 [verbose] > │ #if FABLE_COMPILER_RUST && CONTRACT │
00:01:04 #5883 [verbose] > │ null |> unbox<unit> │
00:01:04 #5884 [verbose] > │ () │
00:01:04 #5885 [verbose] > │ #endif │
00:01:04 #5886 [verbose] > │ #if !FABLE_COMPILER && !FABLE_COMPILER_RUST && │
00:01:04 #5887 [verbose] > │ !FABLE_COMPILER_TYPESCRIPT && !WASM && !CONTRACT │
00:01:04 #5888 [verbose] > │ let v34 : (Async<unit> -> unit) = Async.StartImmediate │
00:01:04 #5889 [verbose] > │ v34 v32 │
00:01:04 #5890 [verbose] > │ () │
00:01:04 #5891 [verbose] > │ #endif │
00:01:04 #5892 [verbose] > │ #if FABLE_COMPILER_TYPESCRIPT │
00:01:04 #5893 [verbose] > │ null |> unbox<unit> │
00:01:04 #5894 [verbose] > │ () │
00:01:04 #5895 [verbose] > │ #endif │
00:01:04 #5896 [verbose] > │ #if FABLE_COMPILER_PYTHON || FABLE_COMPILER_PHP || FABLE_COMPILER_DART │
00:01:04 #5897 [verbose] > │ Unchecked.defaultof<unit> │
00:01:04 #5898 [verbose] > │ () │
00:01:04 #5899 [verbose] > │ #endif │
00:01:04 #5900 [verbose] > │ |> fun x -> _v33 <- Some x │
00:01:04 #5901 [verbose] > │ _v33.Value │
00:01:04 #5902 [verbose] > │ () │
00:01:04 #5903 [verbose] > │ and closure17 (v0 : System.Threading.CancellationToken option, v1 : string, │
00:01:04 #5904 [verbose] > │ v2 : (struct (bool * string * int32) -> Async<unit>) option, v3 : US0 │
00:01:04 #5905 [verbose] > │ option, v4 : string option, v5 : System.Diagnostics.Process, v6 : │
00:01:04 #5906 [verbose] > │ System.Collections.Concurrent.ConcurrentStack<string>) (v7 : │
00:01:04 #5907 [verbose] > │ System.Diagnostics.DataReceivedEventArgs) : unit = │
00:01:04 #5908 [verbose] > │ let v8 : Async<unit> option = None │
00:01:04 #5909 [verbose] > │ let mutable _v8 = v8 │
00:01:04 #5910 [verbose] > │ #if FABLE_COMPILER_RUST && !WASM && !CONTRACT │
00:01:04 #5911 [verbose] > │ let v9 : Async<unit> = null |> unbox<Async<unit>> │
00:01:04 #5912 [verbose] > │ v9 │
00:01:04 #5913 [verbose] > │ #endif │
00:01:04 #5914 [verbose] > │ #if FABLE_COMPILER_RUST && WASM │
00:01:04 #5915 [verbose] > │ let v10 : Async<unit> = null |> unbox<Async<unit>> │
00:01:04 #5916 [verbose] > │ v10 │
00:01:04 #5917 [verbose] > │ #endif │
00:01:04 #5918 [verbose] > │ #if FABLE_COMPILER_RUST && CONTRACT │
00:01:04 #5919 [verbose] > │ let v11 : Async<unit> = null |> unbox<Async<unit>> │
00:01:04 #5920 [verbose] > │ v11 │
00:01:04 #5921 [verbose] > │ #endif │
00:01:04 #5922 [verbose] > │ #if !FABLE_COMPILER && !FABLE_COMPILER_RUST && │
00:01:04 #5923 [verbose] > │ !FABLE_COMPILER_TYPESCRIPT && !WASM && !CONTRACT │
00:01:04 #5924 [verbose] > │ let v12 : Async<unit> option = None │
00:01:04 #5925 [verbose] > │ let mutable _v12 = v12 │
00:01:04 #5926 [verbose] > │ async { │
00:01:04 #5927 [verbose] > │ let v13 : string = v7.Data │
00:01:04 #5928 [verbose] > │ let v14 : string = null |> unbox<string> │
00:01:04 #5929 [verbose] > │ let v15 : bool = v13 = v14 │
00:01:04 #5930 [verbose] > │ let v16 : bool = v15 <> true │
00:01:04 #5931 [verbose] > │ if v16 then │
00:01:04 #5932 [verbose] > │ let v17 : ((struct (bool * string * int32) -> Async<unit>) -> US6) = │
00:01:04 #5933 [verbose] > │ method15() │
00:01:04 #5934 [verbose] > │ let v18 : US6 = US6_1 │
00:01:04 #5935 [verbose] > │ let v19 : US6 = v2 |> Option.map v17 |> Option.defaultValue v18 │
00:01:04 #5936 [verbose] > │ match v19 with │
00:01:04 #5937 [verbose] > │ | US6_1 -> (* None *) │
00:01:04 #5938 [verbose] > │ () │
00:01:04 #5939 [verbose] > │ | US6_0(v20) -> (* Some *) │
00:01:04 #5940 [verbose] > │ let v21 : int32 = v5.Id │
00:01:04 #5941 [verbose] > │ let v22 : Async<unit> = v20 struct (true, v13, v21) │
00:01:04 #5942 [verbose] > │ do! v22 │
00:01:04 #5943 [verbose] > │ () │
00:01:04 #5944 [verbose] > │ let v23 : US0 = US0_0 │
00:01:04 #5945 [verbose] > │ let v24 : (unit -> string) = closure16(v13) │
00:01:04 #5946 [verbose] > │ let v25 : (unit -> string) = closure2() │
00:01:04 #5947 [verbose] > │ method5(v23, v24, v25) │
00:01:04 #5948 [verbose] > │ let v26 : string = "[" │
00:01:04 #5949 [verbose] > │ let v27 : string = "]" │
00:01:04 #5950 [verbose] > │ let v28 : string = $"{v26}{v13}{v27}" │
00:01:04 #5951 [verbose] > │ let v29 : (string -> unit) = v6.Push │
00:01:04 #5952 [verbose] > │ v29 v28 │
00:01:04 #5953 [verbose] > │ } │
00:01:04 #5954 [verbose] > │ |> fun x -> _v12 <- Some x │
00:01:04 #5955 [verbose] > │ let v30 : Async<unit> = _v12 |> Option.get │
00:01:04 #5956 [verbose] > │ v30 │
00:01:04 #5957 [verbose] > │ #endif │
00:01:04 #5958 [verbose] > │ #if FABLE_COMPILER_TYPESCRIPT │
00:01:04 #5959 [verbose] > │ let v31 : Async<unit> = null |> unbox<Async<unit>> │
00:01:04 #5960 [verbose] > │ v31 │
00:01:04 #5961 [verbose] > │ #endif │
00:01:04 #5962 [verbose] > │ #if FABLE_COMPILER_PYTHON || FABLE_COMPILER_PHP || FABLE_COMPILER_DART │
00:01:04 #5963 [verbose] > │ let v32 : Async<unit> = Unchecked.defaultof<Async<unit>> │
00:01:04 #5964 [verbose] > │ v32 │
00:01:04 #5965 [verbose] > │ #endif │
00:01:04 #5966 [verbose] > │ |> fun x -> _v8 <- Some x │
00:01:04 #5967 [verbose] > │ let v33 : Async<unit> = _v8.Value │
00:01:04 #5968 [verbose] > │ let v34 : unit option = None │
00:01:04 #5969 [verbose] > │ let mutable _v34 = v34 │
00:01:04 #5970 [verbose] > │ #if FABLE_COMPILER_RUST && !WASM && !CONTRACT │
00:01:04 #5971 [verbose] > │ null |> unbox<unit> │
00:01:04 #5972 [verbose] > │ () │
00:01:04 #5973 [verbose] > │ #endif │
00:01:04 #5974 [verbose] > │ #if FABLE_COMPILER_RUST && WASM │
00:01:04 #5975 [verbose] > │ null |> unbox<unit> │
00:01:04 #5976 [verbose] > │ () │
00:01:04 #5977 [verbose] > │ #endif │
00:01:04 #5978 [verbose] > │ #if FABLE_COMPILER_RUST && CONTRACT │
00:01:04 #5979 [verbose] > │ null |> unbox<unit> │
00:01:04 #5980 [verbose] > │ () │
00:01:04 #5981 [verbose] > │ #endif │
00:01:04 #5982 [verbose] > │ #if !FABLE_COMPILER && !FABLE_COMPILER_RUST && │
00:01:04 #5983 [verbose] > │ !FABLE_COMPILER_TYPESCRIPT && !WASM && !CONTRACT │
00:01:04 #5984 [verbose] > │ let v35 : (Async<unit> -> unit) = Async.StartImmediate │
00:01:04 #5985 [verbose] > │ v35 v33 │
00:01:04 #5986 [verbose] > │ () │
00:01:04 #5987 [verbose] > │ #endif │
00:01:04 #5988 [verbose] > │ #if FABLE_COMPILER_TYPESCRIPT │
00:01:04 #5989 [verbose] > │ null |> unbox<unit> │
00:01:04 #5990 [verbose] > │ () │
00:01:04 #5991 [verbose] > │ #endif │
00:01:04 #5992 [verbose] > │ #if FABLE_COMPILER_PYTHON || FABLE_COMPILER_PHP || FABLE_COMPILER_DART │
00:01:04 #5993 [verbose] > │ Unchecked.defaultof<unit> │
00:01:04 #5994 [verbose] > │ () │
00:01:04 #5995 [verbose] > │ #endif │
00:01:04 #5996 [verbose] > │ |> fun x -> _v34 <- Some x │
00:01:04 #5997 [verbose] > │ _v34.Value │
00:01:04 #5998 [verbose] > │ () │
00:01:04 #5999 [verbose] > │ and closure18 () (v0 : System.Threading.CancellationToken) : US7 = │
00:01:04 #6000 [verbose] > │ US7_0(v0) │
00:01:04 #6001 [verbose] > │ and method16 () : (System.Threading.CancellationToken -> US7) = │
00:01:04 #6002 [verbose] > │ closure18() │
00:01:04 #6003 [verbose] > │ and closure19 (v0 : System.Diagnostics.Process) () : unit = │
00:01:04 #6004 [verbose] > │ let v1 : bool option = None │
00:01:04 #6005 [verbose] > │ let mutable _v1 = v1 │
00:01:04 #6006 [verbose] > │ #if FABLE_COMPILER_RUST && !WASM && !CONTRACT │
00:01:04 #6007 [verbose] > │ let v2 : bool = null |> unbox<bool> │
00:01:04 #6008 [verbose] > │ v2 │
00:01:04 #6009 [verbose] > │ #endif │
00:01:04 #6010 [verbose] > │ #if FABLE_COMPILER_RUST && WASM │
00:01:04 #6011 [verbose] > │ let v3 : bool = null |> unbox<bool> │
00:01:04 #6012 [verbose] > │ v3 │
00:01:04 #6013 [verbose] > │ #endif │
00:01:04 #6014 [verbose] > │ #if FABLE_COMPILER_RUST && CONTRACT │
00:01:04 #6015 [verbose] > │ let v4 : bool = null |> unbox<bool> │
00:01:04 #6016 [verbose] > │ v4 │
00:01:04 #6017 [verbose] > │ #endif │
00:01:04 #6018 [verbose] > │ #if !FABLE_COMPILER && !FABLE_COMPILER_RUST && │
00:01:04 #6019 [verbose] > │ !FABLE_COMPILER_TYPESCRIPT && !WASM && !CONTRACT │
00:01:04 #6020 [verbose] > │ let v5 : bool = v0.HasExited │
00:01:04 #6021 [verbose] > │ v5 │
00:01:04 #6022 [verbose] > │ #endif │
00:01:04 #6023 [verbose] > │ #if FABLE_COMPILER_TYPESCRIPT │
00:01:04 #6024 [verbose] > │ let v6 : bool = null |> unbox<bool> │
00:01:04 #6025 [verbose] > │ v6 │
00:01:04 #6026 [verbose] > │ #endif │
00:01:04 #6027 [verbose] > │ #if FABLE_COMPILER_PYTHON || FABLE_COMPILER_PHP || FABLE_COMPILER_DART │
00:01:04 #6028 [verbose] > │ let v7 : bool = Unchecked.defaultof<bool> │
00:01:04 #6029 [verbose] > │ v7 │
00:01:04 #6030 [verbose] > │ #endif │
00:01:04 #6031 [verbose] > │ |> fun x -> _v1 <- Some x │
00:01:04 #6032 [verbose] > │ let v8 : bool = _v1.Value │
00:01:04 #6033 [verbose] > │ let v9 : bool = v8 = false │
00:01:04 #6034 [verbose] > │ if v9 then │
00:01:04 #6035 [verbose] > │ let v10 : unit option = None │
00:01:04 #6036 [verbose] > │ let mutable _v10 = v10 │
00:01:04 #6037 [verbose] > │ #if FABLE_COMPILER_RUST && !WASM && !CONTRACT │
00:01:04 #6038 [verbose] > │ null |> unbox<unit> │
00:01:04 #6039 [verbose] > │ () │
00:01:04 #6040 [verbose] > │ #endif │
00:01:04 #6041 [verbose] > │ #if FABLE_COMPILER_RUST && WASM │
00:01:04 #6042 [verbose] > │ null |> unbox<unit> │
00:01:04 #6043 [verbose] > │ () │
00:01:04 #6044 [verbose] > │ #endif │
00:01:04 #6045 [verbose] > │ #if FABLE_COMPILER_RUST && CONTRACT │
00:01:04 #6046 [verbose] > │ null |> unbox<unit> │
00:01:04 #6047 [verbose] > │ () │
00:01:04 #6048 [verbose] > │ #endif │
00:01:04 #6049 [verbose] > │ #if !FABLE_COMPILER && !FABLE_COMPILER_RUST && │
00:01:04 #6050 [verbose] > │ !FABLE_COMPILER_TYPESCRIPT && !WASM && !CONTRACT │
00:01:04 #6051 [verbose] > │ let v11 : (unit -> unit) = v0.Kill │
00:01:04 #6052 [verbose] > │ v11 () │
00:01:04 #6053 [verbose] > │ () │
00:01:04 #6054 [verbose] > │ #endif │
00:01:04 #6055 [verbose] > │ #if FABLE_COMPILER_TYPESCRIPT │
00:01:04 #6056 [verbose] > │ null |> unbox<unit> │
00:01:04 #6057 [verbose] > │ () │
00:01:04 #6058 [verbose] > │ #endif │
00:01:04 #6059 [verbose] > │ #if FABLE_COMPILER_PYTHON || FABLE_COMPILER_PHP || │
00:01:04 #6060 [verbose] > │ FABLE_COMPILER_DART │
00:01:04 #6061 [verbose] > │ Unchecked.defaultof<unit> │
00:01:04 #6062 [verbose] > │ () │
00:01:04 #6063 [verbose] > │ #endif │
00:01:04 #6064 [verbose] > │ |> fun x -> _v10 <- Some x │
00:01:04 #6065 [verbose] > │ _v10.Value │
00:01:04 #6066 [verbose] > │ () │
00:01:04 #6067 [verbose] > │ and closure20 (v0 : System.Threading.Tasks.TaskCanceledException) () : │
00:01:04 #6068 [verbose] > │ string = │
00:01:04 #6069 [verbose] > │ let v1 : string = $"execute_with_options_async / WaitForExitAsync / ex: │
00:01:04 #6070 [verbose] > │ %A{v0}" │
00:01:04 #6071 [verbose] > │ v1 │
00:01:04 #6072 [verbose] > │ and method17 () : string = │
00:01:04 #6073 [verbose] > │ let v0 : string = "\n" │
00:01:04 #6074 [verbose] > │ v0 │
00:01:04 #6075 [verbose] > │ and closure21 (v0 : int32, v1 : string) () : string = │
00:01:04 #6076 [verbose] > │ let v2 : string = $"execute_with_options_async / exit_code: {v0} / │
00:01:04 #6077 [verbose] > │ output.Length: {v1.Length}" │
00:01:04 #6078 [verbose] > │ v2 │
00:01:04 #6079 [verbose] > │ and closure22 () (v0 : US0) : US8 = │
00:01:04 #6080 [verbose] > │ US8_0(v0) │
00:01:04 #6081 [verbose] > │ and method18 () : (US0 -> US8) = │
00:01:04 #6082 [verbose] > │ closure22() │
00:01:04 #6083 [verbose] > │ and closure23 () () : string = │
00:01:04 #6084 [verbose] > │ let v0 : string = "2" │
00:01:04 #6085 [verbose] > │ v0 │
00:01:04 #6086 [verbose] > │ and closure24 () () : string = │
00:01:04 #6087 [verbose] > │ let v0 : string = "3" │
00:01:04 #6088 [verbose] > │ v0 │
00:01:04 #6089 [verbose] > │ and closure25 () () : string = │
00:01:04 #6090 [verbose] > │ let v0 : string = "4" │
00:01:04 #6091 [verbose] > │ v0 │
00:01:04 #6092 [verbose] > │ and closure26 () () : string = │
00:01:04 #6093 [verbose] > │ let v0 : string = "5" │
00:01:04 #6094 [verbose] > │ v0 │
00:01:04 #6095 [verbose] > │ and closure27 () struct (v0 : int32, v1 : string) : US10 = │
00:01:04 #6096 [verbose] > │ US10_0(v0, v1) │
00:01:04 #6097 [verbose] > │ and closure28 () (v0 : exn) : US10 = │
00:01:04 #6098 [verbose] > │ US10_1(v0) │
00:01:04 #6099 [verbose] > │ and closure29 () () : string = │
00:01:04 #6100 [verbose] > │ let v0 : string = "run_with_timeout_async" │
00:01:04 #6101 [verbose] > │ v0 │
00:01:04 #6102 [verbose] > │ and closure30 () () : string = │
00:01:04 #6103 [verbose] > │ let v0 : (unit -> string) = closure2() │
00:01:04 #6104 [verbose] > │ let v1 : string = $"timeout: {10000} / {v0 ()}" │
00:01:04 #6105 [verbose] > │ v1 │
00:01:04 #6106 [verbose] > │ and closure31 (v0 : string) () : string = │
00:01:04 #6107 [verbose] > │ let v1 : string = $"run_with_timeout_async** / ex: {v0}" │
00:01:04 #6108 [verbose] > │ v1 │
00:01:04 #6109 [verbose] > │ and method19 (v0 : bool) : bool = │
00:01:04 #6110 [verbose] > │ v0 │
00:01:04 #6111 [verbose] > │ and method20 () : string = │
00:01:04 #6112 [verbose] > │ let v0 : string = "System.Threading.Tasks.TaskCanceledException: A task │
00:01:04 #6113 [verbose] > │ was canceled." │
00:01:04 #6114 [verbose] > │ v0 │
00:01:04 #6115 [verbose] > │ and method0 () : unit = │
00:01:04 #6116 [verbose] > │ let v0 : struct (string * System.IDisposable) option = None │
00:01:04 #6117 [verbose] > │ let mutable _v0 = v0 │
00:01:04 #6118 [verbose] > │ #if FABLE_COMPILER_RUST && !WASM && !CONTRACT │
00:01:04 #6119 [verbose] > │ let struct (v1 : string, v2 : System.IDisposable) = null |> unbox<struct │
00:01:04 #6120 [verbose] > │ (string * System.IDisposable)> │
00:01:04 #6121 [verbose] > │ struct (v1, v2) │
00:01:04 #6122 [verbose] > │ #endif │
00:01:04 #6123 [verbose] > │ #if FABLE_COMPILER_RUST && WASM │
00:01:04 #6124 [verbose] > │ let struct (v3 : string, v4 : System.IDisposable) = null |> unbox<struct │
00:01:04 #6125 [verbose] > │ (string * System.IDisposable)> │
00:01:04 #6126 [verbose] > │ struct (v3, v4) │
00:01:04 #6127 [verbose] > │ #endif │
00:01:04 #6128 [verbose] > │ #if FABLE_COMPILER_RUST && CONTRACT │
00:01:04 #6129 [verbose] > │ let struct (v5 : string, v6 : System.IDisposable) = null |> unbox<struct │
00:01:04 #6130 [verbose] > │ (string * System.IDisposable)> │
00:01:04 #6131 [verbose] > │ struct (v5, v6) │
00:01:04 #6132 [verbose] > │ #endif │
00:01:04 #6133 [verbose] > │ #if !FABLE_COMPILER && !FABLE_COMPILER_RUST && │
00:01:04 #6134 [verbose] > │ !FABLE_COMPILER_TYPESCRIPT && !WASM && !CONTRACT │
00:01:04 #6135 [verbose] > │ let v7 : string option = None │
00:01:04 #6136 [verbose] > │ let mutable _v7 = v7 │
00:01:04 #6137 [verbose] > │ #if FABLE_COMPILER_RUST && !WASM && !CONTRACT │
00:01:04 #6138 [verbose] > │ let v8 : string = null |> unbox<string> │
00:01:04 #6139 [verbose] > │ v8 │
00:01:04 #6140 [verbose] > │ #endif │
00:01:04 #6141 [verbose] > │ #if FABLE_COMPILER_RUST && WASM │
00:01:04 #6142 [verbose] > │ let v9 : string = null |> unbox<string> │
00:01:04 #6143 [verbose] > │ v9 │
00:01:04 #6144 [verbose] > │ #endif │
00:01:04 #6145 [verbose] > │ #if FABLE_COMPILER_RUST && CONTRACT │
00:01:04 #6146 [verbose] > │ let v10 : string = null |> unbox<string> │
00:01:04 #6147 [verbose] > │ v10 │
00:01:04 #6148 [verbose] > │ #endif │
00:01:04 #6149 [verbose] > │ #if !FABLE_COMPILER && !FABLE_COMPILER_RUST && │
00:01:04 #6150 [verbose] > │ !FABLE_COMPILER_TYPESCRIPT && !WASM && !CONTRACT │
00:01:04 #6151 [verbose] > │ let v11 : (unit -> string) = System.IO.Path.GetTempPath │
00:01:04 #6152 [verbose] > │ let v12 : string = v11 () │
00:01:04 #6153 [verbose] > │ let v13 : (unit -> string) = closure0() │
00:01:04 #6154 [verbose] > │ let v14 : string = $"!{v13 ()}" │
00:01:04 #6155 [verbose] > │ let v15 : string option = None │
00:01:04 #6156 [verbose] > │ let mutable _v15 = v15 │
00:01:04 #6157 [verbose] > │ #if FABLE_COMPILER_RUST && !WASM && !CONTRACT │
00:01:04 #6158 [verbose] > │ let v16 : string = method1(v12) │
00:01:04 #6159 [verbose] > │ let v17 : string = "fable_library_rust::String_::LrcStr::as_str(&$0)" │
00:01:04 #6160 [verbose] > │ let v18 : Ref<Str> = Fable.Core.RustInterop.emitRustExpr v16 v17 │
00:01:04 #6161 [verbose] > │ let v19 : string = "String::from($0)" │
00:01:04 #6162 [verbose] > │ let v20 : std_string_String = Fable.Core.RustInterop.emitRustExpr v18 │
00:01:04 #6163 [verbose] > │ v19 │
00:01:04 #6164 [verbose] > │ let v21 : string = "std::path::PathBuf::from($0)" │
00:01:04 #6165 [verbose] > │ let v22 : std_path_PathBuf = Fable.Core.RustInterop.emitRustExpr v20 v21 │
00:01:04 #6166 [verbose] > │ let v23 : string = method1(v14) │
00:01:04 #6167 [verbose] > │ let v24 : string = "fable_library_rust::String_::LrcStr::as_str(&$0)" │
00:01:04 #6168 [verbose] > │ let v25 : Ref<Str> = Fable.Core.RustInterop.emitRustExpr v23 v24 │
00:01:04 #6169 [verbose] > │ let v26 : string = "String::from($0)" │
00:01:04 #6170 [verbose] > │ let v27 : std_string_String = Fable.Core.RustInterop.emitRustExpr v25 │
00:01:04 #6171 [verbose] > │ v26 │
00:01:04 #6172 [verbose] > │ let v28 : string = "$0.join($1)" │
00:01:04 #6173 [verbose] > │ let v29 : std_path_PathBuf = Fable.Core.RustInterop.emitRustExpr struct │
00:01:04 #6174 [verbose] > │ (v22, v27) v28 │
00:01:04 #6175 [verbose] > │ let v30 : string = "$0.display().to_string()" │
00:01:04 #6176 [verbose] > │ let v31 : std_string_String = Fable.Core.RustInterop.emitRustExpr v29 │
00:01:04 #6177 [verbose] > │ v30 │
00:01:04 #6178 [verbose] > │ let v32 : string = "fable_library_rust::String_::fromString($0)" │
00:01:04 #6179 [verbose] > │ let v33 : string = Fable.Core.RustInterop.emitRustExpr v31 v32 │
00:01:04 #6180 [verbose] > │ v33 │
00:01:04 #6181 [verbose] > │ #endif │
00:01:04 #6182 [verbose] > │ #if FABLE_COMPILER_RUST && WASM │
00:01:04 #6183 [verbose] > │ let v34 : string = null |> unbox<string> │
00:01:04 #6184 [verbose] > │ v34 │
00:01:04 #6185 [verbose] > │ #endif │
00:01:04 #6186 [verbose] > │ #if FABLE_COMPILER_RUST && CONTRACT │
00:01:04 #6187 [verbose] > │ let v35 : string = null |> unbox<string> │
00:01:04 #6188 [verbose] > │ v35 │
00:01:04 #6189 [verbose] > │ #endif │
00:01:04 #6190 [verbose] > │ #if !FABLE_COMPILER && !FABLE_COMPILER_RUST && │
00:01:04 #6191 [verbose] > │ !FABLE_COMPILER_TYPESCRIPT && !WASM && !CONTRACT │
00:01:04 #6192 [verbose] > │ let v36 : string = System.IO.Path.Combine (v12, v14) │
00:01:04 #6193 [verbose] > │ v36 │
00:01:04 #6194 [verbose] > │ #endif │
00:01:04 #6195 [verbose] > │ #if FABLE_COMPILER_TYPESCRIPT │
00:01:04 #6196 [verbose] > │ let v37 : string = "path" │
00:01:04 #6197 [verbose] > │ let v38 : IPathJoin = Fable.Core.JsInterop.importAll v37 │
00:01:04 #6198 [verbose] > │ let v39 : string = "v38.join($0, $1)" │
00:01:04 #6199 [verbose] > │ let v40 : string = Fable.Core.JsInterop.emitJsExpr struct (v12, v14) v39 │
00:01:04 #6200 [verbose] > │ v40 │
00:01:04 #6201 [verbose] > │ #endif │
00:01:04 #6202 [verbose] > │ #if FABLE_COMPILER_PYTHON || FABLE_COMPILER_PHP || FABLE_COMPILER_DART │
00:01:04 #6203 [verbose] > │ let v41 : string = Unchecked.defaultof<string> │
00:01:04 #6204 [verbose] > │ v41 │
00:01:04 #6205 [verbose] > │ #endif │
00:01:04 #6206 [verbose] > │ |> fun x -> _v15 <- Some x │
00:01:04 #6207 [verbose] > │ let v42 : string = _v15.Value │
00:01:04 #6208 [verbose] > │ let v43 : System.DateTime = System.DateTime.Now │
00:01:04 #6209 [verbose] > │ let v44 : System.Guid = System.Guid.NewGuid () │
00:01:04 #6210 [verbose] > │ let v45 : (System.Guid -> string) = _.ToString() │
00:01:04 #6211 [verbose] > │ let v46 : string = v45 v44 │
00:01:04 #6212 [verbose] > │ let v47 : string = v43.ToString "yyyyMMdd-HHmm-ssff-ffff-f" │
00:01:04 #6213 [verbose] > │ let v48 : System.Guid = System.Guid $"{v47}{v46.[v47.Length..]}" │
00:01:04 #6214 [verbose] > │ let v49 : (System.Guid -> string) = _.ToString() │
00:01:04 #6215 [verbose] > │ let v50 : string = v49 v48 │
00:01:04 #6216 [verbose] > │ let v51 : string option = None │
00:01:04 #6217 [verbose] > │ let mutable _v51 = v51 │
00:01:04 #6218 [verbose] > │ #if FABLE_COMPILER_RUST && !WASM && !CONTRACT │
00:01:04 #6219 [verbose] > │ let v52 : string = method1(v42) │
00:01:04 #6220 [verbose] > │ let v53 : string = "fable_library_rust::String_::LrcStr::as_str(&$0)" │
00:01:04 #6221 [verbose] > │ let v54 : Ref<Str> = Fable.Core.RustInterop.emitRustExpr v52 v53 │
00:01:04 #6222 [verbose] > │ let v55 : string = "String::from($0)" │
00:01:04 #6223 [verbose] > │ let v56 : std_string_String = Fable.Core.RustInterop.emitRustExpr v54 │
00:01:04 #6224 [verbose] > │ v55 │
00:01:04 #6225 [verbose] > │ let v57 : string = "std::path::PathBuf::from($0)" │
00:01:04 #6226 [verbose] > │ let v58 : std_path_PathBuf = Fable.Core.RustInterop.emitRustExpr v56 v57 │
00:01:04 #6227 [verbose] > │ let v59 : string = method1(v50) │
00:01:04 #6228 [verbose] > │ let v60 : string = "fable_library_rust::String_::LrcStr::as_str(&$0)" │
00:01:04 #6229 [verbose] > │ let v61 : Ref<Str> = Fable.Core.RustInterop.emitRustExpr v59 v60 │
00:01:04 #6230 [verbose] > │ let v62 : string = "String::from($0)" │
00:01:04 #6231 [verbose] > │ let v63 : std_string_String = Fable.Core.RustInterop.emitRustExpr v61 │
00:01:04 #6232 [verbose] > │ v62 │
00:01:04 #6233 [verbose] > │ let v64 : string = "$0.join($1)" │
00:01:04 #6234 [verbose] > │ let v65 : std_path_PathBuf = Fable.Core.RustInterop.emitRustExpr struct │
00:01:04 #6235 [verbose] > │ (v58, v63) v64 │
00:01:04 #6236 [verbose] > │ let v66 : string = "$0.display().to_string()" │
00:01:04 #6237 [verbose] > │ let v67 : std_string_String = Fable.Core.RustInterop.emitRustExpr v65 │
00:01:04 #6238 [verbose] > │ v66 │
00:01:04 #6239 [verbose] > │ let v68 : string = "fable_library_rust::String_::fromString($0)" │
00:01:04 #6240 [verbose] > │ let v69 : string = Fable.Core.RustInterop.emitRustExpr v67 v68 │
00:01:04 #6241 [verbose] > │ v69 │
00:01:04 #6242 [verbose] > │ #endif │
00:01:04 #6243 [verbose] > │ #if FABLE_COMPILER_RUST && WASM │
00:01:04 #6244 [verbose] > │ let v70 : string = null |> unbox<string> │
00:01:04 #6245 [verbose] > │ v70 │
00:01:04 #6246 [verbose] > │ #endif │
00:01:04 #6247 [verbose] > │ #if FABLE_COMPILER_RUST && CONTRACT │
00:01:04 #6248 [verbose] > │ let v71 : string = null |> unbox<string> │
00:01:04 #6249 [verbose] > │ v71 │
00:01:04 #6250 [verbose] > │ #endif │
00:01:04 #6251 [verbose] > │ #if !FABLE_COMPILER && !FABLE_COMPILER_RUST && │
00:01:04 #6252 [verbose] > │ !FABLE_COMPILER_TYPESCRIPT && !WASM && !CONTRACT │
00:01:04 #6253 [verbose] > │ let v72 : string = System.IO.Path.Combine (v42, v50) │
00:01:04 #6254 [verbose] > │ v72 │
00:01:04 #6255 [verbose] > │ #endif │
00:01:04 #6256 [verbose] > │ #if FABLE_COMPILER_TYPESCRIPT │
00:01:04 #6257 [verbose] > │ let v73 : IPathJoin = Fable.Core.JsInterop.importAll v37 │
00:01:04 #6258 [verbose] > │ let v74 : string = "v73.join($0, $1)" │
00:01:04 #6259 [verbose] > │ let v75 : string = Fable.Core.JsInterop.emitJsExpr struct (v42, v50) v74 │
00:01:04 #6260 [verbose] > │ v75 │
00:01:04 #6261 [verbose] > │ #endif │
00:01:04 #6262 [verbose] > │ #if FABLE_COMPILER_PYTHON || FABLE_COMPILER_PHP || FABLE_COMPILER_DART │
00:01:04 #6263 [verbose] > │ let v76 : string = Unchecked.defaultof<string> │
00:01:04 #6264 [verbose] > │ v76 │
00:01:04 #6265 [verbose] > │ #endif │
00:01:04 #6266 [verbose] > │ |> fun x -> _v51 <- Some x │
00:01:04 #6267 [verbose] > │ let v77 : string = _v51.Value │
00:01:04 #6268 [verbose] > │ v77 │
00:01:04 #6269 [verbose] > │ #endif │
00:01:04 #6270 [verbose] > │ #if FABLE_COMPILER_TYPESCRIPT │
00:01:04 #6271 [verbose] > │ let v78 : string = null |> unbox<string> │
00:01:04 #6272 [verbose] > │ v78 │
00:01:04 #6273 [verbose] > │ #endif │
00:01:04 #6274 [verbose] > │ #if FABLE_COMPILER_PYTHON || FABLE_COMPILER_PHP || FABLE_COMPILER_DART │
00:01:04 #6275 [verbose] > │ let v79 : string = Unchecked.defaultof<string> │
00:01:04 #6276 [verbose] > │ v79 │
00:01:04 #6277 [verbose] > │ #endif │
00:01:04 #6278 [verbose] > │ |> fun x -> _v7 <- Some x │
00:01:04 #6279 [verbose] > │ let v80 : string = _v7.Value │
00:01:04 #6280 [verbose] > │ let v81 : System.IO.DirectoryInfo option = None │
00:01:04 #6281 [verbose] > │ let mutable _v81 = v81 │
00:01:04 #6282 [verbose] > │ #if FABLE_COMPILER_RUST && !WASM && !CONTRACT │
00:01:04 #6283 [verbose] > │ let v82 : System.IO.DirectoryInfo = null |> │
00:01:04 #6284 [verbose] > │ unbox<System.IO.DirectoryInfo> │
00:01:04 #6285 [verbose] > │ v82 │
00:01:04 #6286 [verbose] > │ #endif │
00:01:04 #6287 [verbose] > │ #if FABLE_COMPILER_RUST && WASM │
00:01:04 #6288 [verbose] > │ let v83 : System.IO.DirectoryInfo = null |> │
00:01:04 #6289 [verbose] > │ unbox<System.IO.DirectoryInfo> │
00:01:04 #6290 [verbose] > │ v83 │
00:01:04 #6291 [verbose] > │ #endif │
00:01:04 #6292 [verbose] > │ #if FABLE_COMPILER_RUST && CONTRACT │
00:01:04 #6293 [verbose] > │ let v84 : System.IO.DirectoryInfo = null |> │
00:01:04 #6294 [verbose] > │ unbox<System.IO.DirectoryInfo> │
00:01:04 #6295 [verbose] > │ v84 │
00:01:04 #6296 [verbose] > │ #endif │
00:01:04 #6297 [verbose] > │ #if !FABLE_COMPILER && !FABLE_COMPILER_RUST && │
00:01:04 #6298 [verbose] > │ !FABLE_COMPILER_TYPESCRIPT && !WASM && !CONTRACT │
00:01:04 #6299 [verbose] > │ let v85 : (string -> System.IO.DirectoryInfo) = │
00:01:04 #6300 [verbose] > │ System.IO.Directory.CreateDirectory │
00:01:04 #6301 [verbose] > │ let v86 : System.IO.DirectoryInfo = v85 v80 │
00:01:04 #6302 [verbose] > │ v86 │
00:01:04 #6303 [verbose] > │ #endif │
00:01:04 #6304 [verbose] > │ #if FABLE_COMPILER_TYPESCRIPT │
00:01:04 #6305 [verbose] > │ let v87 : System.IO.DirectoryInfo = null |> │
00:01:04 #6306 [verbose] > │ unbox<System.IO.DirectoryInfo> │
00:01:04 #6307 [verbose] > │ v87 │
00:01:04 #6308 [verbose] > │ #endif │
00:01:04 #6309 [verbose] > │ #if FABLE_COMPILER_PYTHON || FABLE_COMPILER_PHP || FABLE_COMPILER_DART │
00:01:04 #6310 [verbose] > │ let v88 : System.IO.DirectoryInfo = │
00:01:04 #6311 [verbose] > │ Unchecked.defaultof<System.IO.DirectoryInfo> │
00:01:04 #6312 [verbose] > │ v88 │
00:01:04 #6313 [verbose] > │ #endif │
00:01:04 #6314 [verbose] > │ |> fun x -> _v81 <- Some x │
00:01:04 #6315 [verbose] > │ let v89 : System.IO.DirectoryInfo = _v81.Value │
00:01:04 #6316 [verbose] > │ let v90 : bool option = None │
00:01:04 #6317 [verbose] > │ let mutable _v90 = v90 │
00:01:04 #6318 [verbose] > │ #if FABLE_COMPILER_RUST && !WASM && !CONTRACT │
00:01:04 #6319 [verbose] > │ let v91 : bool = null |> unbox<bool> │
00:01:04 #6320 [verbose] > │ v91 │
00:01:04 #6321 [verbose] > │ #endif │
00:01:04 #6322 [verbose] > │ #if FABLE_COMPILER_RUST && WASM │
00:01:04 #6323 [verbose] > │ let v92 : bool = null |> unbox<bool> │
00:01:04 #6324 [verbose] > │ v92 │
00:01:04 #6325 [verbose] > │ #endif │
00:01:04 #6326 [verbose] > │ #if FABLE_COMPILER_RUST && CONTRACT │
00:01:04 #6327 [verbose] > │ let v93 : bool = null |> unbox<bool> │
00:01:04 #6328 [verbose] > │ v93 │
00:01:04 #6329 [verbose] > │ #endif │
00:01:04 #6330 [verbose] > │ #if !FABLE_COMPILER && !FABLE_COMPILER_RUST && │
00:01:04 #6331 [verbose] > │ !FABLE_COMPILER_TYPESCRIPT && !WASM && !CONTRACT │
00:01:04 #6332 [verbose] > │ let v94 : bool = v89.Exists │
00:01:04 #6333 [verbose] > │ v94 │
00:01:04 #6334 [verbose] > │ #endif │
00:01:04 #6335 [verbose] > │ #if FABLE_COMPILER_TYPESCRIPT │
00:01:04 #6336 [verbose] > │ let v95 : bool = null |> unbox<bool> │
00:01:04 #6337 [verbose] > │ v95 │
00:01:04 #6338 [verbose] > │ #endif │
00:01:04 #6339 [verbose] > │ #if FABLE_COMPILER_PYTHON || FABLE_COMPILER_PHP || FABLE_COMPILER_DART │
00:01:04 #6340 [verbose] > │ let v96 : bool = Unchecked.defaultof<bool> │
00:01:04 #6341 [verbose] > │ v96 │
00:01:04 #6342 [verbose] > │ #endif │
00:01:04 #6343 [verbose] > │ |> fun x -> _v90 <- Some x │
00:01:04 #6344 [verbose] > │ let v97 : bool = _v90.Value │
00:01:04 #6345 [verbose] > │ let v98 : bool = v97 = false │
00:01:04 #6346 [verbose] > │ if v98 then │
00:01:04 #6347 [verbose] > │ let v99 : System.DateTime option = None │
00:01:04 #6348 [verbose] > │ let mutable _v99 = v99 │
00:01:04 #6349 [verbose] > │ #if FABLE_COMPILER_RUST && !WASM && !CONTRACT │
00:01:04 #6350 [verbose] > │ let v100 : System.DateTime = null |> unbox<System.DateTime> │
00:01:04 #6351 [verbose] > │ v100 │
00:01:04 #6352 [verbose] > │ #endif │
00:01:04 #6353 [verbose] > │ #if FABLE_COMPILER_RUST && WASM │
00:01:04 #6354 [verbose] > │ let v101 : System.DateTime = null |> unbox<System.DateTime> │
00:01:04 #6355 [verbose] > │ v101 │
00:01:04 #6356 [verbose] > │ #endif │
00:01:04 #6357 [verbose] > │ #if FABLE_COMPILER_RUST && CONTRACT │
00:01:04 #6358 [verbose] > │ let v102 : System.DateTime = null |> unbox<System.DateTime> │
00:01:04 #6359 [verbose] > │ v102 │
00:01:04 #6360 [verbose] > │ #endif │
00:01:04 #6361 [verbose] > │ #if !FABLE_COMPILER && !FABLE_COMPILER_RUST && │
00:01:04 #6362 [verbose] > │ !FABLE_COMPILER_TYPESCRIPT && !WASM && !CONTRACT │
00:01:04 #6363 [verbose] > │ let v103 : System.DateTime = v89.CreationTime │
00:01:04 #6364 [verbose] > │ v103 │
00:01:04 #6365 [verbose] > │ #endif │
00:01:04 #6366 [verbose] > │ #if FABLE_COMPILER_TYPESCRIPT │
00:01:04 #6367 [verbose] > │ let v104 : System.DateTime = null |> unbox<System.DateTime> │
00:01:04 #6368 [verbose] > │ v104 │
00:01:04 #6369 [verbose] > │ #endif │
00:01:04 #6370 [verbose] > │ #if FABLE_COMPILER_PYTHON || FABLE_COMPILER_PHP || │
00:01:04 #6371 [verbose] > │ FABLE_COMPILER_DART │
00:01:04 #6372 [verbose] > │ let v105 : System.DateTime = Unchecked.defaultof<System.DateTime> │
00:01:04 #6373 [verbose] > │ v105 │
00:01:04 #6374 [verbose] > │ #endif │
00:01:04 #6375 [verbose] > │ |> fun x -> _v99 <- Some x │
00:01:04 #6376 [verbose] > │ let v106 : System.DateTime = _v99.Value │
00:01:04 #6377 [verbose] > │ let v107 : obj = {| Exists = v97; CreationTime = v106 |} │
00:01:04 #6378 [verbose] > │ let v108 : string = $"%A{v107}" │
00:01:04 #6379 [verbose] > │ let v109 : (unit -> string) = closure1(v80, v108) │
00:01:04 #6380 [verbose] > │ let v110 : string = $"create_temp_directory / {v109 ()}" │
00:01:04 #6381 [verbose] > │ System.Console.WriteLine v110 │
00:01:04 #6382 [verbose] > │ () │
00:01:04 #6383 [verbose] > │ let v111 : System.IDisposable option = None │
00:01:04 #6384 [verbose] > │ let mutable _v111 = v111 │
00:01:04 #6385 [verbose] > │ #if FABLE_COMPILER_RUST && !WASM && !CONTRACT │
00:01:04 #6386 [verbose] > │ let v112 : System.IDisposable = null |> unbox<System.IDisposable> │
00:01:04 #6387 [verbose] > │ v112 │
00:01:04 #6388 [verbose] > │ #endif │
00:01:04 #6389 [verbose] > │ #if FABLE_COMPILER_RUST && WASM │
00:01:04 #6390 [verbose] > │ let v113 : System.IDisposable = null |> unbox<System.IDisposable> │
00:01:04 #6391 [verbose] > │ v113 │
00:01:04 #6392 [verbose] > │ #endif │
00:01:04 #6393 [verbose] > │ #if FABLE_COMPILER_RUST && CONTRACT │
00:01:04 #6394 [verbose] > │ let v114 : System.IDisposable = null |> unbox<System.IDisposable> │
00:01:04 #6395 [verbose] > │ v114 │
00:01:04 #6396 [verbose] > │ #endif │
00:01:04 #6397 [verbose] > │ #if !FABLE_COMPILER && !FABLE_COMPILER_RUST && │
00:01:04 #6398 [verbose] > │ !FABLE_COMPILER_TYPESCRIPT && !WASM && !CONTRACT │
00:01:04 #6399 [verbose] > │ let v115 : (unit -> unit) = closure3(v80) │
00:01:04 #6400 [verbose] > │ let v116 : System.IDisposable = { new System.IDisposable with member │
00:01:04 #6401 [verbose] > │ _.Dispose () = v115 () } │
00:01:04 #6402 [verbose] > │ v116 │
00:01:04 #6403 [verbose] > │ #endif │
00:01:04 #6404 [verbose] > │ #if FABLE_COMPILER_TYPESCRIPT │
00:01:04 #6405 [verbose] > │ let v117 : System.IDisposable = null |> unbox<System.IDisposable> │
00:01:04 #6406 [verbose] > │ v117 │
00:01:04 #6407 [verbose] > │ #endif │
00:01:04 #6408 [verbose] > │ #if FABLE_COMPILER_PYTHON || FABLE_COMPILER_PHP || FABLE_COMPILER_DART │
00:01:04 #6409 [verbose] > │ let v118 : System.IDisposable = Unchecked.defaultof<System.IDisposable> │
00:01:04 #6410 [verbose] > │ v118 │
00:01:04 #6411 [verbose] > │ #endif │
00:01:04 #6412 [verbose] > │ |> fun x -> _v111 <- Some x │
00:01:04 #6413 [verbose] > │ let v119 : System.IDisposable = _v111.Value │
00:01:04 #6414 [verbose] > │ struct (v80, v119) │
00:01:04 #6415 [verbose] > │ #endif │
00:01:04 #6416 [verbose] > │ #if FABLE_COMPILER_TYPESCRIPT │
00:01:04 #6417 [verbose] > │ let struct (v120 : string, v121 : System.IDisposable) = null |> │
00:01:04 #6418 [verbose] > │ unbox<struct (string * System.IDisposable)> │
00:01:04 #6419 [verbose] > │ struct (v120, v121) │
00:01:04 #6420 [verbose] > │ #endif │
00:01:04 #6421 [verbose] > │ #if FABLE_COMPILER_PYTHON || FABLE_COMPILER_PHP || FABLE_COMPILER_DART │
00:01:04 #6422 [verbose] > │ let struct (v122 : string, v123 : System.IDisposable) = │
00:01:04 #6423 [verbose] > │ Unchecked.defaultof<struct (string * System.IDisposable)> │
00:01:04 #6424 [verbose] > │ struct (v122, v123) │
00:01:04 #6425 [verbose] > │ #endif │
00:01:04 #6426 [verbose] > │ |> fun x -> _v0 <- Some x │
00:01:04 #6427 [verbose] > │ let struct (v124 : string, v125 : System.IDisposable) = _v0.Value │
00:01:04 #6428 [verbose] > │ use v125 = v125 │
00:01:04 #6429 [verbose] > │ let v126 : System.IDisposable = v125 │
00:01:04 #6430 [verbose] > │ let v127 : string option = None │
00:01:04 #6431 [verbose] > │ let mutable _v127 = v127 │
00:01:04 #6432 [verbose] > │ #if FABLE_COMPILER_RUST && !WASM && !CONTRACT │
00:01:04 #6433 [verbose] > │ let v128 : string = method1(v124) │
00:01:04 #6434 [verbose] > │ let v129 : string = "fable_library_rust::String_::LrcStr::as_str(&$0)" │
00:01:04 #6435 [verbose] > │ let v130 : Ref<Str> = Fable.Core.RustInterop.emitRustExpr v128 v129 │
00:01:04 #6436 [verbose] > │ let v131 : string = "String::from($0)" │
00:01:04 #6437 [verbose] > │ let v132 : std_string_String = Fable.Core.RustInterop.emitRustExpr v130 │
00:01:04 #6438 [verbose] > │ v131 │
00:01:04 #6439 [verbose] > │ let v133 : string = "std::path::PathBuf::from($0)" │
00:01:04 #6440 [verbose] > │ let v134 : std_path_PathBuf = Fable.Core.RustInterop.emitRustExpr v132 │
00:01:04 #6441 [verbose] > │ v133 │
00:01:04 #6442 [verbose] > │ let v135 : string = method4() │
00:01:04 #6443 [verbose] > │ let v136 : string = "fable_library_rust::String_::LrcStr::as_str(&$0)" │
00:01:04 #6444 [verbose] > │ let v137 : Ref<Str> = Fable.Core.RustInterop.emitRustExpr v135 v136 │
00:01:04 #6445 [verbose] > │ let v138 : string = "String::from($0)" │
00:01:04 #6446 [verbose] > │ let v139 : std_string_String = Fable.Core.RustInterop.emitRustExpr v137 │
00:01:04 #6447 [verbose] > │ v138 │
00:01:04 #6448 [verbose] > │ let v140 : string = "$0.join($1)" │
00:01:04 #6449 [verbose] > │ let v141 : std_path_PathBuf = Fable.Core.RustInterop.emitRustExpr struct │
00:01:04 #6450 [verbose] > │ (v134, v139) v140 │
00:01:04 #6451 [verbose] > │ let v142 : string = "$0.display().to_string()" │
00:01:04 #6452 [verbose] > │ let v143 : std_string_String = Fable.Core.RustInterop.emitRustExpr v141 │
00:01:04 #6453 [verbose] > │ v142 │
00:01:04 #6454 [verbose] > │ let v144 : string = "fable_library_rust::String_::fromString($0)" │
00:01:04 #6455 [verbose] > │ let v145 : string = Fable.Core.RustInterop.emitRustExpr v143 v144 │
00:01:04 #6456 [verbose] > │ v145 │
00:01:04 #6457 [verbose] > │ #endif │
00:01:04 #6458 [verbose] > │ #if FABLE_COMPILER_RUST && WASM │
00:01:04 #6459 [verbose] > │ let v146 : string = null |> unbox<string> │
00:01:04 #6460 [verbose] > │ v146 │
00:01:04 #6461 [verbose] > │ #endif │
00:01:04 #6462 [verbose] > │ #if FABLE_COMPILER_RUST && CONTRACT │
00:01:04 #6463 [verbose] > │ let v147 : string = null |> unbox<string> │
00:01:04 #6464 [verbose] > │ v147 │
00:01:04 #6465 [verbose] > │ #endif │
00:01:04 #6466 [verbose] > │ #if !FABLE_COMPILER && !FABLE_COMPILER_RUST && │
00:01:04 #6467 [verbose] > │ !FABLE_COMPILER_TYPESCRIPT && !WASM && !CONTRACT │
00:01:04 #6468 [verbose] > │ let v148 : string = "test.txt" │
00:01:04 #6469 [verbose] > │ let v149 : string = System.IO.Path.Combine (v124, v148) │
00:01:04 #6470 [verbose] > │ v149 │
00:01:04 #6471 [verbose] > │ #endif │
00:01:04 #6472 [verbose] > │ #if FABLE_COMPILER_TYPESCRIPT │
00:01:04 #6473 [verbose] > │ let v150 : IPathJoin = Fable.Core.JsInterop.importAll v37 │
00:01:04 #6474 [verbose] > │ let v151 : string = "v150.join($0, $1)" │
00:01:04 #6475 [verbose] > │ let v152 : string = Fable.Core.JsInterop.emitJsExpr struct (v124, v148) │
00:01:04 #6476 [verbose] > │ v151 │
00:01:04 #6477 [verbose] > │ v152 │
00:01:04 #6478 [verbose] > │ #endif │
00:01:04 #6479 [verbose] > │ #if FABLE_COMPILER_PYTHON || FABLE_COMPILER_PHP || FABLE_COMPILER_DART │
00:01:04 #6480 [verbose] > │ let v153 : string = Unchecked.defaultof<string> │
00:01:04 #6481 [verbose] > │ v153 │
00:01:04 #6482 [verbose] > │ #endif │
00:01:04 #6483 [verbose] > │ |> fun x -> _v127 <- Some x │
00:01:04 #6484 [verbose] > │ let v154 : string = _v127.Value │
00:01:04 #6485 [verbose] > │ let v155 : string = @$"pwsh -c ""Get-Content {v154}""" │
00:01:04 #6486 [verbose] > │ let v156 : Async<struct (int32 * string)> option = None │
00:01:04 #6487 [verbose] > │ let mutable _v156 = v156 │
00:01:04 #6488 [verbose] > │ #if FABLE_COMPILER_RUST && !WASM && !CONTRACT │
00:01:04 #6489 [verbose] > │ let v157 : Async<struct (int32 * string)> = null |> unbox<Async<struct │
00:01:04 #6490 [verbose] > │ (int32 * string)>> │
00:01:04 #6491 [verbose] > │ v157 │
00:01:04 #6492 [verbose] > │ #endif │
00:01:04 #6493 [verbose] > │ #if FABLE_COMPILER_RUST && WASM │
00:01:04 #6494 [verbose] > │ let v158 : Async<struct (int32 * string)> = null |> unbox<Async<struct │
00:01:04 #6495 [verbose] > │ (int32 * string)>> │
00:01:04 #6496 [verbose] > │ v158 │
00:01:04 #6497 [verbose] > │ #endif │
00:01:04 #6498 [verbose] > │ #if FABLE_COMPILER_RUST && CONTRACT │
00:01:04 #6499 [verbose] > │ let v159 : Async<struct (int32 * string)> = null |> unbox<Async<struct │
00:01:04 #6500 [verbose] > │ (int32 * string)>> │
00:01:04 #6501 [verbose] > │ v159 │
00:01:04 #6502 [verbose] > │ #endif │
00:01:04 #6503 [verbose] > │ #if !FABLE_COMPILER && !FABLE_COMPILER_RUST && │
00:01:04 #6504 [verbose] > │ !FABLE_COMPILER_TYPESCRIPT && !WASM && !CONTRACT │
00:01:04 #6505 [verbose] > │ let v160 : Async<struct (int32 * string)> option = None │
00:01:04 #6506 [verbose] > │ let mutable _v160 = v160 │
00:01:04 #6507 [verbose] > │ async { │
00:01:04 #6508 [verbose] > │ let v161 : Async<unit> option = None │
00:01:04 #6509 [verbose] > │ let mutable _v161 = v161 │
00:01:04 #6510 [verbose] > │ #if FABLE_COMPILER_RUST && !WASM && !CONTRACT │
00:01:04 #6511 [verbose] > │ let v162 : Async<unit> = null |> unbox<Async<unit>> │
00:01:04 #6512 [verbose] > │ v162 │
00:01:04 #6513 [verbose] > │ #endif │
00:01:04 #6514 [verbose] > │ #if FABLE_COMPILER_RUST && WASM │
00:01:04 #6515 [verbose] > │ let v163 : Async<unit> = null |> unbox<Async<unit>> │
00:01:04 #6516 [verbose] > │ v163 │
00:01:04 #6517 [verbose] > │ #endif │
00:01:04 #6518 [verbose] > │ #if FABLE_COMPILER_RUST && CONTRACT │
00:01:04 #6519 [verbose] > │ let v164 : Async<unit> = null |> unbox<Async<unit>> │
00:01:04 #6520 [verbose] > │ v164 │
00:01:04 #6521 [verbose] > │ #endif │
00:01:04 #6522 [verbose] > │ #if !FABLE_COMPILER && !FABLE_COMPILER_RUST && │
00:01:04 #6523 [verbose] > │ !FABLE_COMPILER_TYPESCRIPT && !WASM && !CONTRACT │
00:01:04 #6524 [verbose] > │ let v165 : string = "0" │
00:01:04 #6525 [verbose] > │ let v166 : System.Threading.Tasks.Task = │
00:01:04 #6526 [verbose] > │ System.IO.File.WriteAllTextAsync (v154, v165) │
00:01:04 #6527 [verbose] > │ let v167 : Async<unit> option = None │
00:01:04 #6528 [verbose] > │ let mutable _v167 = v167 │
00:01:04 #6529 [verbose] > │ #if FABLE_COMPILER_RUST && !WASM && !CONTRACT │
00:01:04 #6530 [verbose] > │ let v168 : Async<unit> = null |> unbox<Async<unit>> │
00:01:04 #6531 [verbose] > │ v168 │
00:01:04 #6532 [verbose] > │ #endif │
00:01:04 #6533 [verbose] > │ #if FABLE_COMPILER_RUST && WASM │
00:01:04 #6534 [verbose] > │ let v169 : Async<unit> = null |> unbox<Async<unit>> │
00:01:04 #6535 [verbose] > │ v169 │
00:01:04 #6536 [verbose] > │ #endif │
00:01:04 #6537 [verbose] > │ #if FABLE_COMPILER_RUST && CONTRACT │
00:01:04 #6538 [verbose] > │ let v170 : Async<unit> = null |> unbox<Async<unit>> │
00:01:04 #6539 [verbose] > │ v170 │
00:01:04 #6540 [verbose] > │ #endif │
00:01:04 #6541 [verbose] > │ #if !FABLE_COMPILER && !FABLE_COMPILER_RUST && │
00:01:04 #6542 [verbose] > │ !FABLE_COMPILER_TYPESCRIPT && !WASM && !CONTRACT │
00:01:04 #6543 [verbose] > │ let v171 : (System.Threading.Tasks.Task -> Async<unit>) = │
00:01:04 #6544 [verbose] > │ Async.AwaitTask │
00:01:04 #6545 [verbose] > │ let v172 : Async<unit> = v171 v166 │
00:01:04 #6546 [verbose] > │ v172 │
00:01:04 #6547 [verbose] > │ #endif │
00:01:04 #6548 [verbose] > │ #if FABLE_COMPILER_TYPESCRIPT │
00:01:04 #6549 [verbose] > │ let v173 : Async<unit> = null |> unbox<Async<unit>> │
00:01:04 #6550 [verbose] > │ v173 │
00:01:04 #6551 [verbose] > │ #endif │
00:01:04 #6552 [verbose] > │ #if FABLE_COMPILER_PYTHON || FABLE_COMPILER_PHP || FABLE_COMPILER_DART │
00:01:04 #6553 [verbose] > │ let v174 : Async<unit> = Unchecked.defaultof<Async<unit>> │
00:01:04 #6554 [verbose] > │ v174 │
00:01:04 #6555 [verbose] > │ #endif │
00:01:04 #6556 [verbose] > │ |> fun x -> _v167 <- Some x │
00:01:04 #6557 [verbose] > │ let v175 : Async<unit> = _v167.Value │
00:01:04 #6558 [verbose] > │ v175 │
00:01:04 #6559 [verbose] > │ #endif │
00:01:04 #6560 [verbose] > │ #if FABLE_COMPILER_TYPESCRIPT │
00:01:04 #6561 [verbose] > │ let v176 : Async<unit> = null |> unbox<Async<unit>> │
00:01:04 #6562 [verbose] > │ v176 │
00:01:04 #6563 [verbose] > │ #endif │
00:01:04 #6564 [verbose] > │ #if FABLE_COMPILER_PYTHON || FABLE_COMPILER_PHP || FABLE_COMPILER_DART │
00:01:04 #6565 [verbose] > │ let v177 : Async<unit> = Unchecked.defaultof<Async<unit>> │
00:01:04 #6566 [verbose] > │ v177 │
00:01:04 #6567 [verbose] > │ #endif │
00:01:04 #6568 [verbose] > │ |> fun x -> _v161 <- Some x │
00:01:04 #6569 [verbose] > │ let v178 : Async<unit> = _v161.Value │
00:01:04 #6570 [verbose] > │ do! v178 │
00:01:04 #6571 [verbose] > │ let v179 : System.Threading.CancellationTokenSource = new │
00:01:04 #6572 [verbose] > │ System.Threading.CancellationTokenSource () │
00:01:04 #6573 [verbose] > │ let v180 : US0 = US0_1 │
00:01:04 #6574 [verbose] > │ let v181 : (unit -> string) = closure6() │
00:01:04 #6575 [verbose] > │ let v182 : (unit -> string) = closure2() │
00:01:04 #6576 [verbose] > │ method5(v180, v181, v182) │
00:01:04 #6577 [verbose] > │ let v183 : System.Threading.CancellationToken option = None │
00:01:04 #6578 [verbose] > │ let v184 : (struct (bool * string * int32) -> Async<unit>) option = None │
00:01:04 #6579 [verbose] > │ let v185 : string option = None │
00:01:04 #6580 [verbose] > │ let v186 : US0 option = None │
00:01:04 #6581 [verbose] > │ let v187 : System.Threading.CancellationToken = v179.Token │
00:01:04 #6582 [verbose] > │ let v188 : System.Threading.CancellationToken option = Some v187 │
00:01:04 #6583 [verbose] > │ let v189 : Async<struct (int32 * string)> option = None │
00:01:04 #6584 [verbose] > │ let mutable _v189 = v189 │
00:01:04 #6585 [verbose] > │ #if FABLE_COMPILER_RUST && !WASM && !CONTRACT │
00:01:04 #6586 [verbose] > │ let v190 : Async<struct (int32 * string)> = null |> unbox<Async<struct │
00:01:04 #6587 [verbose] > │ (int32 * string)>> │
00:01:04 #6588 [verbose] > │ v190 │
00:01:04 #6589 [verbose] > │ #endif │
00:01:04 #6590 [verbose] > │ #if FABLE_COMPILER_RUST && WASM │
00:01:04 #6591 [verbose] > │ let v191 : Async<struct (int32 * string)> = null |> unbox<Async<struct │
00:01:04 #6592 [verbose] > │ (int32 * string)>> │
00:01:04 #6593 [verbose] > │ v191 │
00:01:04 #6594 [verbose] > │ #endif │
00:01:04 #6595 [verbose] > │ #if FABLE_COMPILER_RUST && CONTRACT │
00:01:04 #6596 [verbose] > │ let v192 : Async<struct (int32 * string)> = null |> unbox<Async<struct │
00:01:04 #6597 [verbose] > │ (int32 * string)>> │
00:01:04 #6598 [verbose] > │ v192 │
00:01:04 #6599 [verbose] > │ #endif │
00:01:04 #6600 [verbose] > │ #if !FABLE_COMPILER && !FABLE_COMPILER_RUST && │
00:01:04 #6601 [verbose] > │ !FABLE_COMPILER_TYPESCRIPT && !WASM && !CONTRACT │
00:01:04 #6602 [verbose] > │ let v193 : Async<struct (int32 * string)> option = None │
00:01:04 #6603 [verbose] > │ let mutable _v193 = v193 │
00:01:04 #6604 [verbose] > │ #if FABLE_COMPILER_RUST && !WASM && !CONTRACT │
00:01:04 #6605 [verbose] > │ let v194 : Async<struct (int32 * string)> = null |> unbox<Async<struct │
00:01:04 #6606 [verbose] > │ (int32 * string)>> │
00:01:04 #6607 [verbose] > │ v194 │
00:01:04 #6608 [verbose] > │ #endif │
00:01:04 #6609 [verbose] > │ #if FABLE_COMPILER_RUST && WASM │
00:01:04 #6610 [verbose] > │ let v195 : Async<struct (int32 * string)> = null |> unbox<Async<struct │
00:01:04 #6611 [verbose] > │ (int32 * string)>> │
00:01:04 #6612 [verbose] > │ v195 │
00:01:04 #6613 [verbose] > │ #endif │
00:01:04 #6614 [verbose] > │ #if FABLE_COMPILER_RUST && CONTRACT │
00:01:04 #6615 [verbose] > │ let v196 : Async<struct (int32 * string)> = null |> unbox<Async<struct │
00:01:04 #6616 [verbose] > │ (int32 * string)>> │
00:01:04 #6617 [verbose] > │ v196 │
00:01:04 #6618 [verbose] > │ #endif │
00:01:04 #6619 [verbose] > │ #if !FABLE_COMPILER && !FABLE_COMPILER_RUST && │
00:01:04 #6620 [verbose] > │ !FABLE_COMPILER_TYPESCRIPT && !WASM && !CONTRACT │
00:01:04 #6621 [verbose] > │ let v197 : Async<struct (int32 * string)> option = None │
00:01:04 #6622 [verbose] > │ let mutable _v197 = v197 │
00:01:04 #6623 [verbose] > │ async { │
00:01:04 #6624 [verbose] > │ let struct (v198 : string, v199 : string) = method10() │
00:01:04 #6625 [verbose] > │ let v200 : char seq = v155 |> unbox<char seq> │
00:01:04 #6626 [verbose] > │ let v201 : (char seq -> char list) = Seq.toList │
00:01:04 #6627 [verbose] > │ let v202 : char list = v201 v200 │
00:01:04 #6628 [verbose] > │ let v203 : ((char -> (UH0 -> UH0)) -> (char list -> (UH0 -> UH0))) = │
00:01:04 #6629 [verbose] > │ List.foldBack │
00:01:04 #6630 [verbose] > │ let v204 : (char -> (UH0 -> UH0)) = method11() │
00:01:04 #6631 [verbose] > │ let v205 : (char list -> (UH0 -> UH0)) = v203 v204 │
00:01:04 #6632 [verbose] > │ let v206 : (UH0 -> UH0) = v205 v202 │
00:01:04 #6633 [verbose] > │ let v207 : UH0 = UH0_0 │
00:01:04 #6634 [verbose] > │ let v208 : UH0 = v206 v207 │
00:01:04 #6635 [verbose] > │ let v209 : US3 = US3_0 │
00:01:04 #6636 [verbose] > │ let struct (v210 : string, v211 : string) = method12(v199, v198, v208, │
00:01:04 #6637 [verbose] > │ v209) │
00:01:04 #6638 [verbose] > │ let v212 : (string -> US5) = method13() │
00:01:04 #6639 [verbose] > │ let v213 : US5 = US5_1 │
00:01:04 #6640 [verbose] > │ let v214 : US5 = v185 |> Option.map v212 |> Option.defaultValue v213 │
00:01:04 #6641 [verbose] > │ let v218 : string = │
00:01:04 #6642 [verbose] > │ match v214 with │
00:01:04 #6643 [verbose] > │ | US5_1 -> (* None *) │
00:01:04 #6644 [verbose] > │ let v216 : string = "" │
00:01:04 #6645 [verbose] > │ v216 │
00:01:04 #6646 [verbose] > │ | US5_0(v215) -> (* Some *) │
00:01:04 #6647 [verbose] > │ v215 │
00:01:04 #6648 [verbose] > │ let v219 : US0 = US0_1 │
00:01:04 #6649 [verbose] > │ let v220 : (unit -> string) = closure13(v188, v155, v184, v186, v185) │
00:01:04 #6650 [verbose] > │ let v221 : (unit -> string) = method14() │
00:01:04 #6651 [verbose] > │ method5(v219, v220, v221) │
00:01:04 #6652 [verbose] > │ let v222 : System.Text.Encoding = System.Text.Encoding.UTF8 │
00:01:04 #6653 [verbose] > │ let v223 : System.Diagnostics.ProcessStartInfo = │
00:01:04 #6654 [verbose] > │ System.Diagnostics.ProcessStartInfo (Arguments = v211, │
00:01:04 #6655 [verbose] > │ StandardOutputEncoding = v222, WorkingDirectory = v218, FileName = v210, │
00:01:04 #6656 [verbose] > │ CreateNoWindow = true, RedirectStandardError = true, RedirectStandardOutput │
00:01:04 #6657 [verbose] > │ = true, UseShellExecute = false) │
00:01:04 #6658 [verbose] > │ let v224 : System.Diagnostics.Process = new System.Diagnostics.Process │
00:01:04 #6659 [verbose] > │ (StartInfo = v223) │
00:01:04 #6660 [verbose] > │ use v224 = v224 │
00:01:04 #6661 [verbose] > │ let v225 : System.Diagnostics.Process = v224 │
00:01:04 #6662 [verbose] > │ let v226 : (unit -> │
00:01:04 #6663 [verbose] > │ System.Collections.Concurrent.ConcurrentStack<string>) = │
00:01:04 #6664 [verbose] > │ System.Collections.Concurrent.ConcurrentStack<string> │
00:01:04 #6665 [verbose] > │ let v227 : System.Collections.Concurrent.ConcurrentStack<string> = v226 │
00:01:04 #6666 [verbose] > │ () │
00:01:04 #6667 [verbose] > │ let v228 : (System.Diagnostics.DataReceivedEventArgs -> unit) = │
00:01:04 #6668 [verbose] > │ closure14(v188, v155, v184, v186, v185, v225, v227) │
00:01:04 #6669 [verbose] > │ v225.OutputDataReceived.Add v228 │
00:01:04 #6670 [verbose] > │ let v229 : (System.Diagnostics.DataReceivedEventArgs -> unit) = │
00:01:04 #6671 [verbose] > │ closure17(v188, v155, v184, v186, v185, v225, v227) │
00:01:04 #6672 [verbose] > │ v225.ErrorDataReceived.Add v229 │
00:01:04 #6673 [verbose] > │ let v230 : (unit -> bool) = v225.Start │
00:01:04 #6674 [verbose] > │ let v231 : bool = v230 () │
00:01:04 #6675 [verbose] > │ let v232 : bool = v231 = false │
00:01:04 #6676 [verbose] > │ if v232 then │
00:01:04 #6677 [verbose] > │ let v233 : string = $"execute_with_options_async / process_start │
00:01:04 #6678 [verbose] > │ error" │
00:01:04 #6679 [verbose] > │ failwith<unit> v233 │
00:01:04 #6680 [verbose] > │ let v234 : (unit -> unit) = v225.BeginErrorReadLine │
00:01:04 #6681 [verbose] > │ v234 () │
00:01:04 #6682 [verbose] > │ let v235 : (unit -> unit) = v225.BeginOutputReadLine │
00:01:04 #6683 [verbose] > │ v235 () │
00:01:04 #6684 [verbose] > │ let v236 : (System.Threading.CancellationToken -> US7) = method16() │
00:01:04 #6685 [verbose] > │ let v237 : US7 = US7_1 │
00:01:04 #6686 [verbose] > │ let v238 : US7 = v188 |> Option.map v236 |> Option.defaultValue v237 │
00:01:04 #6687 [verbose] > │ let v242 : System.Threading.CancellationToken = │
00:01:04 #6688 [verbose] > │ match v238 with │
00:01:04 #6689 [verbose] > │ | US7_1 -> (* None *) │
00:01:04 #6690 [verbose] > │ let v240 : System.Threading.CancellationToken = │
00:01:04 #6691 [verbose] > │ System.Threading.CancellationToken.None │
00:01:04 #6692 [verbose] > │ v240 │
00:01:04 #6693 [verbose] > │ | US7_0(v239) -> (* Some *) │
00:01:04 #6694 [verbose] > │ v239 │
00:01:04 #6695 [verbose] > │ let v243 : Async<System.Threading.CancellationToken> option = None │
00:01:04 #6696 [verbose] > │ let mutable _v243 = v243 │
00:01:04 #6697 [verbose] > │ #if FABLE_COMPILER_RUST && !WASM && !CONTRACT │
00:01:04 #6698 [verbose] > │ let v244 : Async<System.Threading.CancellationToken> = null |> │
00:01:04 #6699 [verbose] > │ unbox<Async<System.Threading.CancellationToken>> │
00:01:04 #6700 [verbose] > │ v244 │
00:01:04 #6701 [verbose] > │ #endif │
00:01:04 #6702 [verbose] > │ #if FABLE_COMPILER_RUST && WASM │
00:01:04 #6703 [verbose] > │ let v245 : Async<System.Threading.CancellationToken> = null |> │
00:01:04 #6704 [verbose] > │ unbox<Async<System.Threading.CancellationToken>> │
00:01:04 #6705 [verbose] > │ v245 │
00:01:04 #6706 [verbose] > │ #endif │
00:01:04 #6707 [verbose] > │ #if FABLE_COMPILER_RUST && CONTRACT │
00:01:04 #6708 [verbose] > │ let v246 : Async<System.Threading.CancellationToken> = null |> │
00:01:04 #6709 [verbose] > │ unbox<Async<System.Threading.CancellationToken>> │
00:01:04 #6710 [verbose] > │ v246 │
00:01:04 #6711 [verbose] > │ #endif │
00:01:04 #6712 [verbose] > │ #if !FABLE_COMPILER && !FABLE_COMPILER_RUST && │
00:01:04 #6713 [verbose] > │ !FABLE_COMPILER_TYPESCRIPT && !WASM && !CONTRACT │
00:01:04 #6714 [verbose] > │ let v247 : Async<System.Threading.CancellationToken> option = None │
00:01:04 #6715 [verbose] > │ let mutable _v247 = v247 │
00:01:04 #6716 [verbose] > │ #if FABLE_COMPILER_RUST && !WASM && !CONTRACT │
00:01:04 #6717 [verbose] > │ let v248 : Async<System.Threading.CancellationToken> = null |> │
00:01:04 #6718 [verbose] > │ unbox<Async<System.Threading.CancellationToken>> │
00:01:04 #6719 [verbose] > │ v248 │
00:01:04 #6720 [verbose] > │ #endif │
00:01:04 #6721 [verbose] > │ #if FABLE_COMPILER_RUST && WASM │
00:01:04 #6722 [verbose] > │ let v249 : Async<System.Threading.CancellationToken> = null |> │
00:01:04 #6723 [verbose] > │ unbox<Async<System.Threading.CancellationToken>> │
00:01:04 #6724 [verbose] > │ v249 │
00:01:04 #6725 [verbose] > │ #endif │
00:01:04 #6726 [verbose] > │ #if FABLE_COMPILER_RUST && CONTRACT │
00:01:04 #6727 [verbose] > │ let v250 : Async<System.Threading.CancellationToken> = null |> │
00:01:04 #6728 [verbose] > │ unbox<Async<System.Threading.CancellationToken>> │
00:01:04 #6729 [verbose] > │ v250 │
00:01:04 #6730 [verbose] > │ #endif │
00:01:04 #6731 [verbose] > │ #if !FABLE_COMPILER && !FABLE_COMPILER_RUST && │
00:01:04 #6732 [verbose] > │ !FABLE_COMPILER_TYPESCRIPT && !WASM && !CONTRACT │
00:01:04 #6733 [verbose] > │ let v251 : Async<System.Threading.CancellationToken> option = None │
00:01:04 #6734 [verbose] > │ let mutable _v251 = v251 │
00:01:04 #6735 [verbose] > │ async { │
00:01:04 #6736 [verbose] > │ let v252 : Async<System.Threading.CancellationToken> = │
00:01:04 #6737 [verbose] > │ Async.CancellationToken │
00:01:04 #6738 [verbose] > │ let! v252 = v252 │
00:01:04 #6739 [verbose] > │ let v253 : System.Threading.CancellationToken = v252 │
00:01:04 #6740 [verbose] > │ let v254 : System.Threading.CancellationToken = │
00:01:04 #6741 [verbose] > │ Async.DefaultCancellationToken │
00:01:04 #6742 [verbose] > │ let v255 : (System.Threading.CancellationToken []) = [|v253; v254; │
00:01:04 #6743 [verbose] > │ v242|] │
00:01:04 #6744 [verbose] > │ let v256 : ((System.Threading.CancellationToken []) -> │
00:01:04 #6745 [verbose] > │ System.Threading.CancellationTokenSource) = │
00:01:04 #6746 [verbose] > │ System.Threading.CancellationTokenSource.CreateLinkedTokenSource │
00:01:04 #6747 [verbose] > │ let v257 : System.Threading.CancellationTokenSource = v256 v255 │
00:01:04 #6748 [verbose] > │ let v258 : System.Threading.CancellationToken = v257.Token │
00:01:04 #6749 [verbose] > │ return v258 │
00:01:04 #6750 [verbose] > │ } │
00:01:04 #6751 [verbose] > │ |> fun x -> _v251 <- Some x │
00:01:04 #6752 [verbose] > │ let v259 : Async<System.Threading.CancellationToken> = _v251 |> │
00:01:04 #6753 [verbose] > │ Option.get │
00:01:04 #6754 [verbose] > │ v259 │
00:01:04 #6755 [verbose] > │ #endif │
00:01:04 #6756 [verbose] > │ #if FABLE_COMPILER_TYPESCRIPT │
00:01:04 #6757 [verbose] > │ let v260 : Async<System.Threading.CancellationToken> = null |> │
00:01:04 #6758 [verbose] > │ unbox<Async<System.Threading.CancellationToken>> │
00:01:04 #6759 [verbose] > │ v260 │
00:01:04 #6760 [verbose] > │ #endif │
00:01:04 #6761 [verbose] > │ #if FABLE_COMPILER_PYTHON || FABLE_COMPILER_PHP || FABLE_COMPILER_DART │
00:01:04 #6762 [verbose] > │ let v261 : Async<System.Threading.CancellationToken> = │
00:01:04 #6763 [verbose] > │ Unchecked.defaultof<Async<System.Threading.CancellationToken>> │
00:01:04 #6764 [verbose] > │ v261 │
00:01:04 #6765 [verbose] > │ #endif │
00:01:04 #6766 [verbose] > │ |> fun x -> _v247 <- Some x │
00:01:04 #6767 [verbose] > │ let v262 : Async<System.Threading.CancellationToken> = _v247.Value │
00:01:04 #6768 [verbose] > │ v262 │
00:01:04 #6769 [verbose] > │ #endif │
00:01:04 #6770 [verbose] > │ #if FABLE_COMPILER_TYPESCRIPT │
00:01:04 #6771 [verbose] > │ let v263 : Async<System.Threading.CancellationToken> = null |> │
00:01:04 #6772 [verbose] > │ unbox<Async<System.Threading.CancellationToken>> │
00:01:04 #6773 [verbose] > │ v263 │
00:01:04 #6774 [verbose] > │ #endif │
00:01:04 #6775 [verbose] > │ #if FABLE_COMPILER_PYTHON || FABLE_COMPILER_PHP || FABLE_COMPILER_DART │
00:01:04 #6776 [verbose] > │ let v264 : Async<System.Threading.CancellationToken> = │
00:01:04 #6777 [verbose] > │ Unchecked.defaultof<Async<System.Threading.CancellationToken>> │
00:01:04 #6778 [verbose] > │ v264 │
00:01:04 #6779 [verbose] > │ #endif │
00:01:04 #6780 [verbose] > │ |> fun x -> _v243 <- Some x │
00:01:04 #6781 [verbose] > │ let v265 : Async<System.Threading.CancellationToken> = _v243.Value │
00:01:04 #6782 [verbose] > │ let! v265 = v265 │
00:01:04 #6783 [verbose] > │ let v266 : System.Threading.CancellationToken = v265 │
00:01:04 #6784 [verbose] > │ let v267 : ((unit -> unit) -> │
00:01:04 #6785 [verbose] > │ System.Threading.CancellationTokenRegistration) = v266.Register │
00:01:04 #6786 [verbose] > │ let v268 : (unit -> unit) = closure19(v225) │
00:01:04 #6787 [verbose] > │ let v269 : System.Threading.CancellationTokenRegistration = v267 v268 │
00:01:04 #6788 [verbose] > │ use v269 = v269 │
00:01:04 #6789 [verbose] > │ let v270 : System.Threading.CancellationTokenRegistration = v269 │
00:01:04 #6790 [verbose] > │ let v271 : Async<int32> option = None │
00:01:04 #6791 [verbose] > │ let mutable _v271 = v271 │
00:01:04 #6792 [verbose] > │ #if FABLE_COMPILER_RUST && !WASM && !CONTRACT │
00:01:04 #6793 [verbose] > │ let v272 : Async<int32> = null |> unbox<Async<int32>> │
00:01:04 #6794 [verbose] > │ v272 │
00:01:04 #6795 [verbose] > │ #endif │
00:01:04 #6796 [verbose] > │ #if FABLE_COMPILER_RUST && WASM │
00:01:04 #6797 [verbose] > │ let v273 : Async<int32> = null |> unbox<Async<int32>> │
00:01:04 #6798 [verbose] > │ v273 │
00:01:04 #6799 [verbose] > │ #endif │
00:01:04 #6800 [verbose] > │ #if FABLE_COMPILER_RUST && CONTRACT │
00:01:04 #6801 [verbose] > │ let v274 : Async<int32> = null |> unbox<Async<int32>> │
00:01:04 #6802 [verbose] > │ v274 │
00:01:04 #6803 [verbose] > │ #endif │
00:01:04 #6804 [verbose] > │ #if !FABLE_COMPILER && !FABLE_COMPILER_RUST && │
00:01:04 #6805 [verbose] > │ !FABLE_COMPILER_TYPESCRIPT && !WASM && !CONTRACT │
00:01:04 #6806 [verbose] > │ let v275 : Async<int32> option = None │
00:01:04 #6807 [verbose] > │ let mutable _v275 = v275 │
00:01:04 #6808 [verbose] > │ async { │
00:01:04 #6809 [verbose] > │ try │
00:01:04 #6810 [verbose] > │ let v276 : System.Threading.Tasks.Task = v225.WaitForExitAsync v266 │
00:01:04 #6811 [verbose] > │ let v277 : Async<unit> option = None │
00:01:04 #6812 [verbose] > │ let mutable _v277 = v277 │
00:01:04 #6813 [verbose] > │ #if FABLE_COMPILER_RUST && !WASM && !CONTRACT │
00:01:04 #6814 [verbose] > │ let v278 : Async<unit> = null |> unbox<Async<unit>> │
00:01:04 #6815 [verbose] > │ v278 │
00:01:04 #6816 [verbose] > │ #endif │
00:01:04 #6817 [verbose] > │ #if FABLE_COMPILER_RUST && WASM │
00:01:04 #6818 [verbose] > │ let v279 : Async<unit> = null |> unbox<Async<unit>> │
00:01:04 #6819 [verbose] > │ v279 │
00:01:04 #6820 [verbose] > │ #endif │
00:01:04 #6821 [verbose] > │ #if FABLE_COMPILER_RUST && CONTRACT │
00:01:04 #6822 [verbose] > │ let v280 : Async<unit> = null |> unbox<Async<unit>> │
00:01:04 #6823 [verbose] > │ v280 │
00:01:04 #6824 [verbose] > │ #endif │
00:01:04 #6825 [verbose] > │ #if !FABLE_COMPILER && !FABLE_COMPILER_RUST && │
00:01:04 #6826 [verbose] > │ !FABLE_COMPILER_TYPESCRIPT && !WASM && !CONTRACT │
00:01:04 #6827 [verbose] > │ let v281 : (System.Threading.Tasks.Task -> Async<unit>) = │
00:01:04 #6828 [verbose] > │ Async.AwaitTask │
00:01:04 #6829 [verbose] > │ let v282 : Async<unit> = v281 v276 │
00:01:04 #6830 [verbose] > │ v282 │
00:01:04 #6831 [verbose] > │ #endif │
00:01:04 #6832 [verbose] > │ #if FABLE_COMPILER_TYPESCRIPT │
00:01:04 #6833 [verbose] > │ let v283 : Async<unit> = null |> unbox<Async<unit>> │
00:01:04 #6834 [verbose] > │ v283 │
00:01:04 #6835 [verbose] > │ #endif │
00:01:04 #6836 [verbose] > │ #if FABLE_COMPILER_PYTHON || FABLE_COMPILER_PHP || FABLE_COMPILER_DART │
00:01:04 #6837 [verbose] > │ let v284 : Async<unit> = Unchecked.defaultof<Async<unit>> │
00:01:04 #6838 [verbose] > │ v284 │
00:01:04 #6839 [verbose] > │ #endif │
00:01:04 #6840 [verbose] > │ |> fun x -> _v277 <- Some x │
00:01:04 #6841 [verbose] > │ let v285 : Async<unit> = _v277.Value │
00:01:04 #6842 [verbose] > │ do! v285 │
00:01:04 #6843 [verbose] > │ let v286 : int32 = v225.ExitCode │
00:01:04 #6844 [verbose] > │ return v286 │
00:01:04 #6845 [verbose] > │ with ex -> │
00:01:04 #6846 [verbose] > │ let v287 : exn = ex │
00:01:04 #6847 [verbose] > │ let v288 : string option = None │
00:01:04 #6848 [verbose] > │ let mutable _v288 = v288 │
00:01:04 #6849 [verbose] > │ #if FABLE_COMPILER_RUST && !WASM && !CONTRACT │
00:01:04 #6850 [verbose] > │ let v289 : string = $"%A{v287}" │
00:01:04 #6851 [verbose] > │ v289 │
00:01:04 #6852 [verbose] > │ #endif │
00:01:04 #6853 [verbose] > │ #if FABLE_COMPILER_RUST && WASM │
00:01:04 #6854 [verbose] > │ let v290 : string = $"%A{v287}" │
00:01:04 #6855 [verbose] > │ v290 │
00:01:04 #6856 [verbose] > │ #endif │
00:01:04 #6857 [verbose] > │ #if FABLE_COMPILER_RUST && CONTRACT │
00:01:04 #6858 [verbose] > │ let v291 : string = $"%A{v287}" │
00:01:04 #6859 [verbose] > │ v291 │
00:01:04 #6860 [verbose] > │ #endif │
00:01:04 #6861 [verbose] > │ #if !FABLE_COMPILER && !FABLE_COMPILER_RUST && │
00:01:04 #6862 [verbose] > │ !FABLE_COMPILER_TYPESCRIPT && !WASM && !CONTRACT │
00:01:04 #6863 [verbose] > │ let v292 : string = $"{v287.GetType ()}: {v287.Message}" │
00:01:04 #6864 [verbose] > │ v292 │
00:01:04 #6865 [verbose] > │ #endif │
00:01:04 #6866 [verbose] > │ #if FABLE_COMPILER_TYPESCRIPT │
00:01:04 #6867 [verbose] > │ let v293 : string = $"%A{v287}" │
00:01:04 #6868 [verbose] > │ v293 │
00:01:04 #6869 [verbose] > │ #endif │
00:01:04 #6870 [verbose] > │ #if FABLE_COMPILER_PYTHON || FABLE_COMPILER_PHP || FABLE_COMPILER_DART │
00:01:04 #6871 [verbose] > │ let v294 : string = Unchecked.defaultof<string> │
00:01:04 #6872 [verbose] > │ v294 │
00:01:04 #6873 [verbose] > │ #endif │
00:01:04 #6874 [verbose] > │ |> fun x -> _v288 <- Some x │
00:01:04 #6875 [verbose] > │ let v295 : string = _v288.Value │
00:01:04 #6876 [verbose] > │ let v296 : (string -> unit) = v227.Push │
00:01:04 #6877 [verbose] > │ v296 v295 │
00:01:04 #6878 [verbose] > │ let v297 : System.Threading.Tasks.TaskCanceledException = v287 |> │
00:01:04 #6879 [verbose] > │ unbox<System.Threading.Tasks.TaskCanceledException> │
00:01:04 #6880 [verbose] > │ let v298 : US0 = US0_3 │
00:01:04 #6881 [verbose] > │ let v299 : (unit -> string) = closure20(v297) │
00:01:04 #6882 [verbose] > │ let v300 : (unit -> string) = method14() │
00:01:04 #6883 [verbose] > │ method5(v298, v299, v300) │
00:01:04 #6884 [verbose] > │ return -2147483648 │
00:01:04 #6885 [verbose] > │ (* │
00:01:04 #6886 [verbose] > │ *) │
00:01:04 #6887 [verbose] > │ } │
00:01:04 #6888 [verbose] > │ |> fun x -> _v275 <- Some x │
00:01:04 #6889 [verbose] > │ let v301 : Async<int32> = _v275 |> Option.get │
00:01:04 #6890 [verbose] > │ v301 │
00:01:04 #6891 [verbose] > │ #endif │
00:01:04 #6892 [verbose] > │ #if FABLE_COMPILER_TYPESCRIPT │
00:01:04 #6893 [verbose] > │ let v302 : Async<int32> = null |> unbox<Async<int32>> │
00:01:04 #6894 [verbose] > │ v302 │
00:01:04 #6895 [verbose] > │ #endif │
00:01:04 #6896 [verbose] > │ #if FABLE_COMPILER_PYTHON || FABLE_COMPILER_PHP || FABLE_COMPILER_DART │
00:01:04 #6897 [verbose] > │ let v303 : Async<int32> = Unchecked.defaultof<Async<int32>> │
00:01:04 #6898 [verbose] > │ v303 │
00:01:04 #6899 [verbose] > │ #endif │
00:01:04 #6900 [verbose] > │ |> fun x -> _v271 <- Some x │
00:01:04 #6901 [verbose] > │ let v304 : Async<int32> = _v271.Value │
00:01:04 #6902 [verbose] > │ let! v304 = v304 │
00:01:04 #6903 [verbose] > │ let v305 : int32 = v304 │
00:01:04 #6904 [verbose] > │ let v306 : (System.Collections.Concurrent.ConcurrentStack<string> -> │
00:01:04 #6905 [verbose] > │ string seq) = Seq.rev │
00:01:04 #6906 [verbose] > │ let v307 : string seq = v306 v227 │
00:01:04 #6907 [verbose] > │ let v308 : string = method17() │
00:01:04 #6908 [verbose] > │ let v309 : (string -> (string seq -> string)) = String.concat │
00:01:04 #6909 [verbose] > │ let v310 : (string seq -> string) = v309 v308 │
00:01:04 #6910 [verbose] > │ let v311 : string = v310 v307 │
00:01:04 #6911 [verbose] > │ let v312 : US0 = US0_1 │
00:01:04 #6912 [verbose] > │ let v313 : (unit -> string) = closure21(v305, v311) │
00:01:04 #6913 [verbose] > │ let v314 : (unit -> string) = method14() │
00:01:04 #6914 [verbose] > │ method5(v312, v313, v314) │
00:01:04 #6915 [verbose] > │ return struct (v305, v311) │
00:01:04 #6916 [verbose] > │ } │
00:01:04 #6917 [verbose] > │ |> fun x -> _v197 <- Some x │
00:01:04 #6918 [verbose] > │ let v315 : Async<struct (int32 * string)> = _v197 |> Option.get │
00:01:04 #6919 [verbose] > │ v315 │
00:01:04 #6920 [verbose] > │ #endif │
00:01:04 #6921 [verbose] > │ #if FABLE_COMPILER_TYPESCRIPT │
00:01:04 #6922 [verbose] > │ let v316 : Async<struct (int32 * string)> = null |> unbox<Async<struct │
00:01:04 #6923 [verbose] > │ (int32 * string)>> │
00:01:04 #6924 [verbose] > │ v316 │
00:01:04 #6925 [verbose] > │ #endif │
00:01:04 #6926 [verbose] > │ #if FABLE_COMPILER_PYTHON || FABLE_COMPILER_PHP || FABLE_COMPILER_DART │
00:01:04 #6927 [verbose] > │ let v317 : Async<struct (int32 * string)> = │
00:01:04 #6928 [verbose] > │ Unchecked.defaultof<Async<struct (int32 * string)>> │
00:01:04 #6929 [verbose] > │ v317 │
00:01:04 #6930 [verbose] > │ #endif │
00:01:04 #6931 [verbose] > │ |> fun x -> _v193 <- Some x │
00:01:04 #6932 [verbose] > │ let v318 : Async<struct (int32 * string)> = _v193.Value │
00:01:04 #6933 [verbose] > │ let v319 : (US0 -> US8) = method18() │
00:01:04 #6934 [verbose] > │ let v320 : US8 = US8_1 │
00:01:04 #6935 [verbose] > │ let v321 : US8 = v186 |> Option.map v319 |> Option.defaultValue v320 │
00:01:04 #6936 [verbose] > │ let v342 : Async<struct (int32 * string)> = │
00:01:04 #6937 [verbose] > │ match v321 with │
00:01:04 #6938 [verbose] > │ | US8_1 -> (* None *) │
00:01:04 #6939 [verbose] > │ v318 │
00:01:04 #6940 [verbose] > │ | US8_0(v322) -> (* Some *) │
00:01:04 #6941 [verbose] > │ let v323 : Async<struct (int32 * string)> option = None │
00:01:04 #6942 [verbose] > │ let mutable _v323 = v323 │
00:01:04 #6943 [verbose] > │ #if FABLE_COMPILER_RUST && !WASM && !CONTRACT │
00:01:04 #6944 [verbose] > │ let v324 : Async<struct (int32 * string)> = null |> │
00:01:04 #6945 [verbose] > │ unbox<Async<struct (int32 * string)>> │
00:01:04 #6946 [verbose] > │ v324 │
00:01:04 #6947 [verbose] > │ #endif │
00:01:04 #6948 [verbose] > │ #if FABLE_COMPILER_RUST && WASM │
00:01:04 #6949 [verbose] > │ let v325 : Async<struct (int32 * string)> = null |> │
00:01:04 #6950 [verbose] > │ unbox<Async<struct (int32 * string)>> │
00:01:04 #6951 [verbose] > │ v325 │
00:01:04 #6952 [verbose] > │ #endif │
00:01:04 #6953 [verbose] > │ #if FABLE_COMPILER_RUST && CONTRACT │
00:01:04 #6954 [verbose] > │ let v326 : Async<struct (int32 * string)> = null |> │
00:01:04 #6955 [verbose] > │ unbox<Async<struct (int32 * string)>> │
00:01:04 #6956 [verbose] > │ v326 │
00:01:04 #6957 [verbose] > │ #endif │
00:01:04 #6958 [verbose] > │ #if !FABLE_COMPILER && !FABLE_COMPILER_RUST && │
00:01:04 #6959 [verbose] > │ !FABLE_COMPILER_TYPESCRIPT && !WASM && !CONTRACT │
00:01:04 #6960 [verbose] > │ let v327 : Async<struct (int32 * string)> option = None │
00:01:04 #6961 [verbose] > │ let mutable _v327 = v327 │
00:01:04 #6962 [verbose] > │ async { │
00:01:04 #6963 [verbose] > │ let v328 : (unit -> struct (Mut0 * Mut1 * Mut1 * Mut2 * int64 │
00:01:04 #6964 [verbose] > │ option)) = closure7() │
00:01:04 #6965 [verbose] > │ if State.trace_state = None then State.trace_state <- v328 () |> │
00:01:04 #6966 [verbose] > │ Some │
00:01:04 #6967 [verbose] > │ let struct (v329 : Mut0, v330 : Mut1, v331 : Mut1, v332 : Mut2, │
00:01:04 #6968 [verbose] > │ v333 : int64 option) = State.trace_state.Value │
00:01:04 #6969 [verbose] > │ let v334 : US0 = v332.l0 │
00:01:04 #6970 [verbose] > │ try │
00:01:04 #6971 [verbose] > │ v332.l0 <- v322 │
00:01:04 #6972 [verbose] > │ return! v318 │
00:01:04 #6973 [verbose] > │ finally │
00:01:04 #6974 [verbose] > │ v332.l0 <- v334 │
00:01:04 #6975 [verbose] > │ (* │
00:01:04 #6976 [verbose] > │ let struct (v335 : int32, v336 : string) = *) │
00:01:04 #6977 [verbose] > │ } │
00:01:04 #6978 [verbose] > │ |> fun x -> _v327 <- Some x │
00:01:04 #6979 [verbose] > │ let v337 : Async<struct (int32 * string)> = _v327 |> Option.get │
00:01:04 #6980 [verbose] > │ v337 │
00:01:04 #6981 [verbose] > │ #endif │
00:01:04 #6982 [verbose] > │ #if FABLE_COMPILER_TYPESCRIPT │
00:01:04 #6983 [verbose] > │ let v338 : Async<struct (int32 * string)> = null |> │
00:01:04 #6984 [verbose] > │ unbox<Async<struct (int32 * string)>> │
00:01:04 #6985 [verbose] > │ v338 │
00:01:04 #6986 [verbose] > │ #endif │
00:01:04 #6987 [verbose] > │ #if FABLE_COMPILER_PYTHON || FABLE_COMPILER_PHP || │
00:01:04 #6988 [verbose] > │ FABLE_COMPILER_DART │
00:01:04 #6989 [verbose] > │ let v339 : Async<struct (int32 * string)> = │
00:01:04 #6990 [verbose] > │ Unchecked.defaultof<Async<struct (int32 * string)>> │
00:01:04 #6991 [verbose] > │ v339 │
00:01:04 #6992 [verbose] > │ #endif │
00:01:04 #6993 [verbose] > │ |> fun x -> _v323 <- Some x │
00:01:04 #6994 [verbose] > │ let v340 : Async<struct (int32 * string)> = _v323.Value │
00:01:04 #6995 [verbose] > │ v340 │
00:01:04 #6996 [verbose] > │ v342 │
00:01:04 #6997 [verbose] > │ #endif │
00:01:04 #6998 [verbose] > │ #if FABLE_COMPILER_TYPESCRIPT │
00:01:04 #6999 [verbose] > │ let v343 : Async<struct (int32 * string)> = null |> unbox<Async<struct │
00:01:04 #7000 [verbose] > │ (int32 * string)>> │
00:01:04 #7001 [verbose] > │ v343 │
00:01:04 #7002 [verbose] > │ #endif │
00:01:04 #7003 [verbose] > │ #if FABLE_COMPILER_PYTHON || FABLE_COMPILER_PHP || FABLE_COMPILER_DART │
00:01:04 #7004 [verbose] > │ let v344 : Async<struct (int32 * string)> = │
00:01:04 #7005 [verbose] > │ Unchecked.defaultof<Async<struct (int32 * string)>> │
00:01:04 #7006 [verbose] > │ v344 │
00:01:04 #7007 [verbose] > │ #endif │
00:01:04 #7008 [verbose] > │ |> fun x -> _v189 <- Some x │
00:01:04 #7009 [verbose] > │ let v345 : Async<struct (int32 * string)> = _v189.Value │
00:01:04 #7010 [verbose] > │ let v346 : Async<Async<struct (int32 * string)>> option = None │
00:01:04 #7011 [verbose] > │ let mutable _v346 = v346 │
00:01:04 #7012 [verbose] > │ #if FABLE_COMPILER_RUST && !WASM && !CONTRACT │
00:01:04 #7013 [verbose] > │ let v347 : Async<Async<struct (int32 * string)>> = null |> │
00:01:04 #7014 [verbose] > │ unbox<Async<Async<struct (int32 * string)>>> │
00:01:04 #7015 [verbose] > │ v347 │
00:01:04 #7016 [verbose] > │ #endif │
00:01:04 #7017 [verbose] > │ #if FABLE_COMPILER_RUST && WASM │
00:01:04 #7018 [verbose] > │ let v348 : Async<Async<struct (int32 * string)>> = null |> │
00:01:04 #7019 [verbose] > │ unbox<Async<Async<struct (int32 * string)>>> │
00:01:04 #7020 [verbose] > │ v348 │
00:01:04 #7021 [verbose] > │ #endif │
00:01:04 #7022 [verbose] > │ #if FABLE_COMPILER_RUST && CONTRACT │
00:01:04 #7023 [verbose] > │ let v349 : Async<Async<struct (int32 * string)>> = null |> │
00:01:04 #7024 [verbose] > │ unbox<Async<Async<struct (int32 * string)>>> │
00:01:04 #7025 [verbose] > │ v349 │
00:01:04 #7026 [verbose] > │ #endif │
00:01:04 #7027 [verbose] > │ #if !FABLE_COMPILER && !FABLE_COMPILER_RUST && │
00:01:04 #7028 [verbose] > │ !FABLE_COMPILER_TYPESCRIPT && !WASM && !CONTRACT │
00:01:04 #7029 [verbose] > │ let v350 : (Async<struct (int32 * string)> -> Async<Async<struct (int32 │
00:01:04 #7030 [verbose] > │ * string)>>) = Async.StartChild │
00:01:04 #7031 [verbose] > │ let v351 : Async<Async<struct (int32 * string)>> = v350 v345 │
00:01:04 #7032 [verbose] > │ v351 │
00:01:04 #7033 [verbose] > │ #endif │
00:01:04 #7034 [verbose] > │ #if FABLE_COMPILER_TYPESCRIPT │
00:01:04 #7035 [verbose] > │ let v352 : Async<Async<struct (int32 * string)>> = null |> │
00:01:04 #7036 [verbose] > │ unbox<Async<Async<struct (int32 * string)>>> │
00:01:04 #7037 [verbose] > │ v352 │
00:01:04 #7038 [verbose] > │ #endif │
00:01:04 #7039 [verbose] > │ #if FABLE_COMPILER_PYTHON || FABLE_COMPILER_PHP || FABLE_COMPILER_DART │
00:01:04 #7040 [verbose] > │ let v353 : Async<Async<struct (int32 * string)>> = │
00:01:04 #7041 [verbose] > │ Unchecked.defaultof<Async<Async<struct (int32 * string)>>> │
00:01:04 #7042 [verbose] > │ v353 │
00:01:04 #7043 [verbose] > │ #endif │
00:01:04 #7044 [verbose] > │ |> fun x -> _v346 <- Some x │
00:01:04 #7045 [verbose] > │ let v354 : Async<Async<struct (int32 * string)>> = _v346.Value │
00:01:04 #7046 [verbose] > │ let! v354 = v354 │
00:01:04 #7047 [verbose] > │ let v355 : Async<struct (int32 * string)> = v354 │
00:01:04 #7048 [verbose] > │ let v356 : US0 = US0_1 │
00:01:04 #7049 [verbose] > │ let v357 : (unit -> string) = closure23() │
00:01:04 #7050 [verbose] > │ method5(v356, v357, v182) │
00:01:04 #7051 [verbose] > │ let v358 : Async<unit> option = None │
00:01:04 #7052 [verbose] > │ let mutable _v358 = v358 │
00:01:04 #7053 [verbose] > │ #if FABLE_COMPILER_RUST && !WASM && !CONTRACT │
00:01:04 #7054 [verbose] > │ let v359 : Async<unit> = null |> unbox<Async<unit>> │
00:01:04 #7055 [verbose] > │ v359 │
00:01:04 #7056 [verbose] > │ #endif │
00:01:04 #7057 [verbose] > │ #if FABLE_COMPILER_RUST && WASM │
00:01:04 #7058 [verbose] > │ let v360 : Async<unit> = null |> unbox<Async<unit>> │
00:01:04 #7059 [verbose] > │ v360 │
00:01:04 #7060 [verbose] > │ #endif │
00:01:04 #7061 [verbose] > │ #if FABLE_COMPILER_RUST && CONTRACT │
00:01:04 #7062 [verbose] > │ let v361 : Async<unit> = null |> unbox<Async<unit>> │
00:01:04 #7063 [verbose] > │ v361 │
00:01:04 #7064 [verbose] > │ #endif │
00:01:04 #7065 [verbose] > │ #if !FABLE_COMPILER && !FABLE_COMPILER_RUST && │
00:01:04 #7066 [verbose] > │ !FABLE_COMPILER_TYPESCRIPT && !WASM && !CONTRACT │
00:01:04 #7067 [verbose] > │ let v362 : (int32 -> Async<unit>) = Async.Sleep │
00:01:04 #7068 [verbose] > │ let v363 : Async<unit> = v362 100 │
00:01:04 #7069 [verbose] > │ v363 │
00:01:04 #7070 [verbose] > │ #endif │
00:01:04 #7071 [verbose] > │ #if FABLE_COMPILER_TYPESCRIPT │
00:01:04 #7072 [verbose] > │ let v364 : Async<unit> = null |> unbox<Async<unit>> │
00:01:04 #7073 [verbose] > │ v364 │
00:01:04 #7074 [verbose] > │ #endif │
00:01:04 #7075 [verbose] > │ #if FABLE_COMPILER_PYTHON || FABLE_COMPILER_PHP || FABLE_COMPILER_DART │
00:01:04 #7076 [verbose] > │ let v365 : Async<unit> = Unchecked.defaultof<Async<unit>> │
00:01:04 #7077 [verbose] > │ v365 │
00:01:04 #7078 [verbose] > │ #endif │
00:01:04 #7079 [verbose] > │ |> fun x -> _v358 <- Some x │
00:01:04 #7080 [verbose] > │ let v366 : Async<unit> = _v358.Value │
00:01:04 #7081 [verbose] > │ do! v366 │
00:01:04 #7082 [verbose] > │ let v367 : US0 = US0_1 │
00:01:04 #7083 [verbose] > │ let v368 : (unit -> string) = closure24() │
00:01:04 #7084 [verbose] > │ method5(v367, v368, v182) │
00:01:04 #7085 [verbose] > │ v179.Cancel () │
00:01:04 #7086 [verbose] > │ let v369 : US0 = US0_1 │
00:01:04 #7087 [verbose] > │ let v370 : (unit -> string) = closure25() │
00:01:04 #7088 [verbose] > │ method5(v369, v370, v182) │
00:01:04 #7089 [verbose] > │ let! v355 = v355 │
00:01:04 #7090 [verbose] > │ let struct (v371 : int32, v372 : string) = v355 │
00:01:04 #7091 [verbose] > │ let v373 : US0 = US0_1 │
00:01:04 #7092 [verbose] > │ let v374 : (unit -> string) = closure26() │
00:01:04 #7093 [verbose] > │ method5(v373, v374, v182) │
00:01:04 #7094 [verbose] > │ return struct (v371, v372) │
00:01:04 #7095 [verbose] > │ } │
00:01:04 #7096 [verbose] > │ |> fun x -> _v160 <- Some x │
00:01:04 #7097 [verbose] > │ let v375 : Async<struct (int32 * string)> = _v160 |> Option.get │
00:01:04 #7098 [verbose] > │ v375 │
00:01:04 #7099 [verbose] > │ #endif │
00:01:04 #7100 [verbose] > │ #if FABLE_COMPILER_TYPESCRIPT │
00:01:04 #7101 [verbose] > │ let v376 : Async<struct (int32 * string)> = null |> unbox<Async<struct │
00:01:04 #7102 [verbose] > │ (int32 * string)>> │
00:01:04 #7103 [verbose] > │ v376 │
00:01:04 #7104 [verbose] > │ #endif │
00:01:04 #7105 [verbose] > │ #if FABLE_COMPILER_PYTHON || FABLE_COMPILER_PHP || FABLE_COMPILER_DART │
00:01:04 #7106 [verbose] > │ let v377 : Async<struct (int32 * string)> = │
00:01:04 #7107 [verbose] > │ Unchecked.defaultof<Async<struct (int32 * string)>> │
00:01:04 #7108 [verbose] > │ v377 │
00:01:04 #7109 [verbose] > │ #endif │
00:01:04 #7110 [verbose] > │ |> fun x -> _v156 <- Some x │
00:01:04 #7111 [verbose] > │ let v378 : Async<struct (int32 * string)> = _v156.Value │
00:01:04 #7112 [verbose] > │ let v379 : Async<US9> option = None │
00:01:04 #7113 [verbose] > │ let mutable _v379 = v379 │
00:01:04 #7114 [verbose] > │ #if FABLE_COMPILER_RUST && !WASM && !CONTRACT │
00:01:04 #7115 [verbose] > │ let v380 : Async<US9> = null |> unbox<Async<US9>> │
00:01:04 #7116 [verbose] > │ v380 │
00:01:04 #7117 [verbose] > │ #endif │
00:01:04 #7118 [verbose] > │ #if FABLE_COMPILER_RUST && WASM │
00:01:04 #7119 [verbose] > │ let v381 : Async<US9> = null |> unbox<Async<US9>> │
00:01:04 #7120 [verbose] > │ v381 │
00:01:04 #7121 [verbose] > │ #endif │
00:01:04 #7122 [verbose] > │ #if FABLE_COMPILER_RUST && CONTRACT │
00:01:04 #7123 [verbose] > │ let v382 : Async<US9> = null |> unbox<Async<US9>> │
00:01:04 #7124 [verbose] > │ v382 │
00:01:04 #7125 [verbose] > │ #endif │
00:01:04 #7126 [verbose] > │ #if !FABLE_COMPILER && !FABLE_COMPILER_RUST && │
00:01:04 #7127 [verbose] > │ !FABLE_COMPILER_TYPESCRIPT && !WASM && !CONTRACT │
00:01:04 #7128 [verbose] > │ let v383 : Async<US9> option = None │
00:01:04 #7129 [verbose] > │ let mutable _v383 = v383 │
00:01:04 #7130 [verbose] > │ #if FABLE_COMPILER_RUST && !WASM && !CONTRACT │
00:01:04 #7131 [verbose] > │ let v384 : Async<US9> = null |> unbox<Async<US9>> │
00:01:04 #7132 [verbose] > │ v384 │
00:01:04 #7133 [verbose] > │ #endif │
00:01:04 #7134 [verbose] > │ #if FABLE_COMPILER_RUST && WASM │
00:01:04 #7135 [verbose] > │ let v385 : Async<US9> = null |> unbox<Async<US9>> │
00:01:04 #7136 [verbose] > │ v385 │
00:01:04 #7137 [verbose] > │ #endif │
00:01:04 #7138 [verbose] > │ #if FABLE_COMPILER_RUST && CONTRACT │
00:01:04 #7139 [verbose] > │ let v386 : Async<US9> = null |> unbox<Async<US9>> │
00:01:04 #7140 [verbose] > │ v386 │
00:01:04 #7141 [verbose] > │ #endif │
00:01:04 #7142 [verbose] > │ #if !FABLE_COMPILER && !FABLE_COMPILER_RUST && │
00:01:04 #7143 [verbose] > │ !FABLE_COMPILER_TYPESCRIPT && !WASM && !CONTRACT │
00:01:04 #7144 [verbose] > │ let v387 : Async<US9> option = None │
00:01:04 #7145 [verbose] > │ let mutable _v387 = v387 │
00:01:04 #7146 [verbose] > │ async { │
00:01:04 #7147 [verbose] > │ let v388 : Async<Async<struct (int32 * string)>> option = None │
00:01:04 #7148 [verbose] > │ let mutable _v388 = v388 │
00:01:04 #7149 [verbose] > │ #if FABLE_COMPILER_RUST && !WASM && !CONTRACT │
00:01:04 #7150 [verbose] > │ let v389 : Async<Async<struct (int32 * string)>> = null |> │
00:01:04 #7151 [verbose] > │ unbox<Async<Async<struct (int32 * string)>>> │
00:01:04 #7152 [verbose] > │ v389 │
00:01:04 #7153 [verbose] > │ #endif │
00:01:04 #7154 [verbose] > │ #if FABLE_COMPILER_RUST && WASM │
00:01:04 #7155 [verbose] > │ let v390 : Async<Async<struct (int32 * string)>> = null |> │
00:01:04 #7156 [verbose] > │ unbox<Async<Async<struct (int32 * string)>>> │
00:01:04 #7157 [verbose] > │ v390 │
00:01:04 #7158 [verbose] > │ #endif │
00:01:04 #7159 [verbose] > │ #if FABLE_COMPILER_RUST && CONTRACT │
00:01:04 #7160 [verbose] > │ let v391 : Async<Async<struct (int32 * string)>> = null |> │
00:01:04 #7161 [verbose] > │ unbox<Async<Async<struct (int32 * string)>>> │
00:01:04 #7162 [verbose] > │ v391 │
00:01:04 #7163 [verbose] > │ #endif │
00:01:04 #7164 [verbose] > │ #if !FABLE_COMPILER && !FABLE_COMPILER_RUST && │
00:01:04 #7165 [verbose] > │ !FABLE_COMPILER_TYPESCRIPT && !WASM && !CONTRACT │
00:01:04 #7166 [verbose] > │ let v392 : Async<Async<struct (int32 * string)>> = Async.StartChild │
00:01:04 #7167 [verbose] > │ (v378, 10000) │
00:01:04 #7168 [verbose] > │ v392 │
00:01:04 #7169 [verbose] > │ #endif │
00:01:04 #7170 [verbose] > │ #if FABLE_COMPILER_TYPESCRIPT │
00:01:04 #7171 [verbose] > │ let v393 : Async<Async<struct (int32 * string)>> = null |> │
00:01:04 #7172 [verbose] > │ unbox<Async<Async<struct (int32 * string)>>> │
00:01:04 #7173 [verbose] > │ v393 │
00:01:04 #7174 [verbose] > │ #endif │
00:01:04 #7175 [verbose] > │ #if FABLE_COMPILER_PYTHON || FABLE_COMPILER_PHP || FABLE_COMPILER_DART │
00:01:04 #7176 [verbose] > │ let v394 : Async<Async<struct (int32 * string)>> = │
00:01:04 #7177 [verbose] > │ Unchecked.defaultof<Async<Async<struct (int32 * string)>>> │
00:01:04 #7178 [verbose] > │ v394 │
00:01:04 #7179 [verbose] > │ #endif │
00:01:04 #7180 [verbose] > │ |> fun x -> _v388 <- Some x │
00:01:04 #7181 [verbose] > │ let v395 : Async<Async<struct (int32 * string)>> = _v388.Value │
00:01:04 #7182 [verbose] > │ let! v395 = v395 │
00:01:04 #7183 [verbose] > │ let v396 : Async<struct (int32 * string)> = v395 │
00:01:04 #7184 [verbose] > │ let v397 : Async<Choice<struct (int32 * string), exn>> option = None │
00:01:04 #7185 [verbose] > │ let mutable _v397 = v397 │
00:01:04 #7186 [verbose] > │ #if FABLE_COMPILER_RUST && !WASM && !CONTRACT │
00:01:04 #7187 [verbose] > │ let v398 : Async<Choice<struct (int32 * string), exn>> = null |> │
00:01:04 #7188 [verbose] > │ unbox<Async<Choice<struct (int32 * string), exn>>> │
00:01:04 #7189 [verbose] > │ v398 │
00:01:04 #7190 [verbose] > │ #endif │
00:01:04 #7191 [verbose] > │ #if FABLE_COMPILER_RUST && WASM │
00:01:04 #7192 [verbose] > │ let v399 : Async<Choice<struct (int32 * string), exn>> = null |> │
00:01:04 #7193 [verbose] > │ unbox<Async<Choice<struct (int32 * string), exn>>> │
00:01:04 #7194 [verbose] > │ v399 │
00:01:04 #7195 [verbose] > │ #endif │
00:01:04 #7196 [verbose] > │ #if FABLE_COMPILER_RUST && CONTRACT │
00:01:04 #7197 [verbose] > │ let v400 : Async<Choice<struct (int32 * string), exn>> = null |> │
00:01:04 #7198 [verbose] > │ unbox<Async<Choice<struct (int32 * string), exn>>> │
00:01:04 #7199 [verbose] > │ v400 │
00:01:04 #7200 [verbose] > │ #endif │
00:01:04 #7201 [verbose] > │ #if !FABLE_COMPILER && !FABLE_COMPILER_RUST && │
00:01:04 #7202 [verbose] > │ !FABLE_COMPILER_TYPESCRIPT && !WASM && !CONTRACT │
00:01:04 #7203 [verbose] > │ let v401 : (Async<struct (int32 * string)> -> Async<Choice<struct (int32 │
00:01:04 #7204 [verbose] > │ * string), exn>>) = Async.Catch │
00:01:04 #7205 [verbose] > │ let v402 : Async<Choice<struct (int32 * string), exn>> = v401 v396 │
00:01:04 #7206 [verbose] > │ v402 │
00:01:04 #7207 [verbose] > │ #endif │
00:01:04 #7208 [verbose] > │ #if FABLE_COMPILER_TYPESCRIPT │
00:01:04 #7209 [verbose] > │ let v403 : Async<Choice<struct (int32 * string), exn>> = null |> │
00:01:04 #7210 [verbose] > │ unbox<Async<Choice<struct (int32 * string), exn>>> │
00:01:04 #7211 [verbose] > │ v403 │
00:01:04 #7212 [verbose] > │ #endif │
00:01:04 #7213 [verbose] > │ #if FABLE_COMPILER_PYTHON || FABLE_COMPILER_PHP || FABLE_COMPILER_DART │
00:01:04 #7214 [verbose] > │ let v404 : Async<Choice<struct (int32 * string), exn>> = │
00:01:04 #7215 [verbose] > │ Unchecked.defaultof<Async<Choice<struct (int32 * string), exn>>> │
00:01:04 #7216 [verbose] > │ v404 │
00:01:04 #7217 [verbose] > │ #endif │
00:01:04 #7218 [verbose] > │ |> fun x -> _v397 <- Some x │
00:01:04 #7219 [verbose] > │ let v405 : Async<Choice<struct (int32 * string), exn>> = _v397.Value │
00:01:04 #7220 [verbose] > │ let v406 : Async<US10> option = None │
00:01:04 #7221 [verbose] > │ let mutable _v406 = v406 │
00:01:04 #7222 [verbose] > │ #if FABLE_COMPILER_RUST && !WASM && !CONTRACT │
00:01:04 #7223 [verbose] > │ let v407 : Async<US10> = null |> unbox<Async<US10>> │
00:01:04 #7224 [verbose] > │ v407 │
00:01:04 #7225 [verbose] > │ #endif │
00:01:04 #7226 [verbose] > │ #if FABLE_COMPILER_RUST && WASM │
00:01:04 #7227 [verbose] > │ let v408 : Async<US10> = null |> unbox<Async<US10>> │
00:01:04 #7228 [verbose] > │ v408 │
00:01:04 #7229 [verbose] > │ #endif │
00:01:04 #7230 [verbose] > │ #if FABLE_COMPILER_RUST && CONTRACT │
00:01:04 #7231 [verbose] > │ let v409 : Async<US10> = null |> unbox<Async<US10>> │
00:01:04 #7232 [verbose] > │ v409 │
00:01:04 #7233 [verbose] > │ #endif │
00:01:04 #7234 [verbose] > │ #if !FABLE_COMPILER && !FABLE_COMPILER_RUST && │
00:01:04 #7235 [verbose] > │ !FABLE_COMPILER_TYPESCRIPT && !WASM && !CONTRACT │
00:01:04 #7236 [verbose] > │ let v410 : Async<US10> option = None │
00:01:04 #7237 [verbose] > │ let mutable _v410 = v410 │
00:01:04 #7238 [verbose] > │ async { │
00:01:04 #7239 [verbose] > │ let! v405 = v405 │
00:01:04 #7240 [verbose] > │ let v411 : Choice<struct (int32 * string), exn> = v405 │
00:01:04 #7241 [verbose] > │ let v412 : US10 option = None │
00:01:04 #7242 [verbose] > │ let mutable _v412 = v412 │
00:01:04 #7243 [verbose] > │ #if FABLE_COMPILER_RUST && !WASM && !CONTRACT │
00:01:04 #7244 [verbose] > │ let v413 : US10 = null |> unbox<US10> │
00:01:04 #7245 [verbose] > │ v413 │
00:01:04 #7246 [verbose] > │ #endif │
00:01:04 #7247 [verbose] > │ #if FABLE_COMPILER_RUST && WASM │
00:01:04 #7248 [verbose] > │ let v414 : US10 = null |> unbox<US10> │
00:01:04 #7249 [verbose] > │ v414 │
00:01:04 #7250 [verbose] > │ #endif │
00:01:04 #7251 [verbose] > │ #if FABLE_COMPILER_RUST && CONTRACT │
00:01:04 #7252 [verbose] > │ let v415 : US10 = null |> unbox<US10> │
00:01:04 #7253 [verbose] > │ v415 │
00:01:04 #7254 [verbose] > │ #endif │
00:01:04 #7255 [verbose] > │ #if !FABLE_COMPILER && !FABLE_COMPILER_RUST && │
00:01:04 #7256 [verbose] > │ !FABLE_COMPILER_TYPESCRIPT && !WASM && !CONTRACT │
00:01:04 #7257 [verbose] > │ let v416 : (struct (int32 * string) -> US10) = closure27() │
00:01:04 #7258 [verbose] > │ let v417 : (exn -> US10) = closure28() │
00:01:04 #7259 [verbose] > │ let v418 : US10 = match v411 with Choice1Of2 x -> v416 x | Choice2Of2 x │
00:01:04 #7260 [verbose] > │ -> v417 x │
00:01:04 #7261 [verbose] > │ v418 │
00:01:04 #7262 [verbose] > │ #endif │
00:01:04 #7263 [verbose] > │ #if FABLE_COMPILER_TYPESCRIPT │
00:01:04 #7264 [verbose] > │ let v419 : US10 = null |> unbox<US10> │
00:01:04 #7265 [verbose] > │ v419 │
00:01:04 #7266 [verbose] > │ #endif │
00:01:04 #7267 [verbose] > │ #if FABLE_COMPILER_PYTHON || FABLE_COMPILER_PHP || FABLE_COMPILER_DART │
00:01:04 #7268 [verbose] > │ let v420 : US10 = Unchecked.defaultof<US10> │
00:01:04 #7269 [verbose] > │ v420 │
00:01:04 #7270 [verbose] > │ #endif │
00:01:04 #7271 [verbose] > │ |> fun x -> _v412 <- Some x │
00:01:04 #7272 [verbose] > │ let v421 : US10 = _v412.Value │
00:01:04 #7273 [verbose] > │ return v421 │
00:01:04 #7274 [verbose] > │ } │
00:01:04 #7275 [verbose] > │ |> fun x -> _v410 <- Some x │
00:01:04 #7276 [verbose] > │ let v422 : Async<US10> = _v410 |> Option.get │
00:01:04 #7277 [verbose] > │ v422 │
00:01:04 #7278 [verbose] > │ #endif │
00:01:04 #7279 [verbose] > │ #if FABLE_COMPILER_TYPESCRIPT │
00:01:04 #7280 [verbose] > │ let v423 : Async<US10> = null |> unbox<Async<US10>> │
00:01:04 #7281 [verbose] > │ v423 │
00:01:04 #7282 [verbose] > │ #endif │
00:01:04 #7283 [verbose] > │ #if FABLE_COMPILER_PYTHON || FABLE_COMPILER_PHP || FABLE_COMPILER_DART │
00:01:04 #7284 [verbose] > │ let v424 : Async<US10> = Unchecked.defaultof<Async<US10>> │
00:01:04 #7285 [verbose] > │ v424 │
00:01:04 #7286 [verbose] > │ #endif │
00:01:04 #7287 [verbose] > │ |> fun x -> _v406 <- Some x │
00:01:04 #7288 [verbose] > │ let v425 : Async<US10> = _v406.Value │
00:01:04 #7289 [verbose] > │ let v426 : Async<US11> option = None │
00:01:04 #7290 [verbose] > │ let mutable _v426 = v426 │
00:01:04 #7291 [verbose] > │ #if FABLE_COMPILER_RUST && !WASM && !CONTRACT │
00:01:04 #7292 [verbose] > │ let v427 : Async<US11> = null |> unbox<Async<US11>> │
00:01:04 #7293 [verbose] > │ v427 │
00:01:04 #7294 [verbose] > │ #endif │
00:01:04 #7295 [verbose] > │ #if FABLE_COMPILER_RUST && WASM │
00:01:04 #7296 [verbose] > │ let v428 : Async<US11> = null |> unbox<Async<US11>> │
00:01:04 #7297 [verbose] > │ v428 │
00:01:04 #7298 [verbose] > │ #endif │
00:01:04 #7299 [verbose] > │ #if FABLE_COMPILER_RUST && CONTRACT │
00:01:04 #7300 [verbose] > │ let v429 : Async<US11> = null |> unbox<Async<US11>> │
00:01:04 #7301 [verbose] > │ v429 │
00:01:04 #7302 [verbose] > │ #endif │
00:01:04 #7303 [verbose] > │ #if !FABLE_COMPILER && !FABLE_COMPILER_RUST && │
00:01:04 #7304 [verbose] > │ !FABLE_COMPILER_TYPESCRIPT && !WASM && !CONTRACT │
00:01:04 #7305 [verbose] > │ let v430 : Async<US11> option = None │
00:01:04 #7306 [verbose] > │ let mutable _v430 = v430 │
00:01:04 #7307 [verbose] > │ async { │
00:01:04 #7308 [verbose] > │ let! v425 = v425 │
00:01:04 #7309 [verbose] > │ let v431 : US10 = v425 │
00:01:04 #7310 [verbose] > │ let v438 : US11 = │
00:01:04 #7311 [verbose] > │ match v431 with │
00:01:04 #7312 [verbose] > │ | US10_0(v432, v433) -> (* Choice1Of2 *) │
00:01:04 #7313 [verbose] > │ US11_0(v432, v433) │
00:01:04 #7314 [verbose] > │ | US10_1(v435) -> (* Choice2Of2 *) │
00:01:04 #7315 [verbose] > │ US11_1(v435) │
00:01:04 #7316 [verbose] > │ return v438 │
00:01:04 #7317 [verbose] > │ } │
00:01:04 #7318 [verbose] > │ |> fun x -> _v430 <- Some x │
00:01:04 #7319 [verbose] > │ let v439 : Async<US11> = _v430 |> Option.get │
00:01:04 #7320 [verbose] > │ v439 │
00:01:04 #7321 [verbose] > │ #endif │
00:01:04 #7322 [verbose] > │ #if FABLE_COMPILER_TYPESCRIPT │
00:01:04 #7323 [verbose] > │ let v440 : Async<US11> = null |> unbox<Async<US11>> │
00:01:04 #7324 [verbose] > │ v440 │
00:01:04 #7325 [verbose] > │ #endif │
00:01:04 #7326 [verbose] > │ #if FABLE_COMPILER_PYTHON || FABLE_COMPILER_PHP || FABLE_COMPILER_DART │
00:01:04 #7327 [verbose] > │ let v441 : Async<US11> = Unchecked.defaultof<Async<US11>> │
00:01:04 #7328 [verbose] > │ v441 │
00:01:04 #7329 [verbose] > │ #endif │
00:01:04 #7330 [verbose] > │ |> fun x -> _v426 <- Some x │
00:01:04 #7331 [verbose] > │ let v442 : Async<US11> = _v426.Value │
00:01:04 #7332 [verbose] > │ let v443 : Async<US9> option = None │
00:01:04 #7333 [verbose] > │ let mutable _v443 = v443 │
00:01:04 #7334 [verbose] > │ #if FABLE_COMPILER_RUST && !WASM && !CONTRACT │
00:01:04 #7335 [verbose] > │ let v444 : Async<US9> = null |> unbox<Async<US9>> │
00:01:04 #7336 [verbose] > │ v444 │
00:01:04 #7337 [verbose] > │ #endif │
00:01:04 #7338 [verbose] > │ #if FABLE_COMPILER_RUST && WASM │
00:01:04 #7339 [verbose] > │ let v445 : Async<US9> = null |> unbox<Async<US9>> │
00:01:04 #7340 [verbose] > │ v445 │
00:01:04 #7341 [verbose] > │ #endif │
00:01:04 #7342 [verbose] > │ #if FABLE_COMPILER_RUST && CONTRACT │
00:01:04 #7343 [verbose] > │ let v446 : Async<US9> = null |> unbox<Async<US9>> │
00:01:04 #7344 [verbose] > │ v446 │
00:01:04 #7345 [verbose] > │ #endif │
00:01:04 #7346 [verbose] > │ #if !FABLE_COMPILER && !FABLE_COMPILER_RUST && │
00:01:04 #7347 [verbose] > │ !FABLE_COMPILER_TYPESCRIPT && !WASM && !CONTRACT │
00:01:04 #7348 [verbose] > │ let v447 : Async<US9> option = None │
00:01:04 #7349 [verbose] > │ let mutable _v447 = v447 │
00:01:04 #7350 [verbose] > │ async { │
00:01:04 #7351 [verbose] > │ let! v442 = v442 │
00:01:04 #7352 [verbose] > │ let v448 : US11 = v442 │
00:01:04 #7353 [verbose] > │ let v474 : US9 = │
00:01:04 #7354 [verbose] > │ match v448 with │
00:01:04 #7355 [verbose] > │ | US11_1(v452) -> (* Error *) │
00:01:04 #7356 [verbose] > │ let v453 : string = $"%A{v452}" │
00:01:04 #7357 [verbose] > │ let v454 : string = "System.TimeoutException" │
00:01:04 #7358 [verbose] > │ let v455 : bool = v453.Contains v454 │
00:01:04 #7359 [verbose] > │ if v455 then │
00:01:04 #7360 [verbose] > │ let v456 : US0 = US0_1 │
00:01:04 #7361 [verbose] > │ let v457 : (unit -> string) = closure29() │
00:01:04 #7362 [verbose] > │ let v458 : (unit -> string) = closure30() │
00:01:04 #7363 [verbose] > │ method5(v456, v457, v458) │
00:01:04 #7364 [verbose] > │ US9_1 │
00:01:04 #7365 [verbose] > │ else │
00:01:04 #7366 [verbose] > │ let v460 : string option = None │
00:01:04 #7367 [verbose] > │ let mutable _v460 = v460 │
00:01:04 #7368 [verbose] > │ #if FABLE_COMPILER_RUST && !WASM && !CONTRACT │
00:01:04 #7369 [verbose] > │ let v461 : string = $"%A{v452}" │
00:01:04 #7370 [verbose] > │ v461 │
00:01:04 #7371 [verbose] > │ #endif │
00:01:04 #7372 [verbose] > │ #if FABLE_COMPILER_RUST && WASM │
00:01:04 #7373 [verbose] > │ let v462 : string = $"%A{v452}" │
00:01:04 #7374 [verbose] > │ v462 │
00:01:04 #7375 [verbose] > │ #endif │
00:01:04 #7376 [verbose] > │ #if FABLE_COMPILER_RUST && CONTRACT │
00:01:04 #7377 [verbose] > │ let v463 : string = $"%A{v452}" │
00:01:04 #7378 [verbose] > │ v463 │
00:01:04 #7379 [verbose] > │ #endif │
00:01:04 #7380 [verbose] > │ #if !FABLE_COMPILER && !FABLE_COMPILER_RUST && │
00:01:04 #7381 [verbose] > │ !FABLE_COMPILER_TYPESCRIPT && !WASM && !CONTRACT │
00:01:04 #7382 [verbose] > │ let v464 : string = $"{v452.GetType ()}: {v452.Message}" │
00:01:04 #7383 [verbose] > │ v464 │
00:01:04 #7384 [verbose] > │ #endif │
00:01:04 #7385 [verbose] > │ #if FABLE_COMPILER_TYPESCRIPT │
00:01:04 #7386 [verbose] > │ let v465 : string = $"%A{v452}" │
00:01:04 #7387 [verbose] > │ v465 │
00:01:04 #7388 [verbose] > │ #endif │
00:01:04 #7389 [verbose] > │ #if FABLE_COMPILER_PYTHON || FABLE_COMPILER_PHP || │
00:01:04 #7390 [verbose] > │ FABLE_COMPILER_DART │
00:01:04 #7391 [verbose] > │ let v466 : string = Unchecked.defaultof<string> │
00:01:04 #7392 [verbose] > │ v466 │
00:01:04 #7393 [verbose] > │ #endif │
00:01:04 #7394 [verbose] > │ |> fun x -> _v460 <- Some x │
00:01:04 #7395 [verbose] > │ let v467 : string = _v460.Value │
00:01:04 #7396 [verbose] > │ let v468 : US0 = US0_4 │
00:01:04 #7397 [verbose] > │ let v469 : (unit -> string) = closure31(v467) │
00:01:04 #7398 [verbose] > │ let v470 : (unit -> string) = closure30() │
00:01:04 #7399 [verbose] > │ method5(v468, v469, v470) │
00:01:04 #7400 [verbose] > │ US9_1 │
00:01:04 #7401 [verbose] > │ | US11_0(v449, v450) -> (* Ok *) │
00:01:04 #7402 [verbose] > │ US9_0(v449, v450) │
00:01:04 #7403 [verbose] > │ return v474 │
00:01:04 #7404 [verbose] > │ } │
00:01:04 #7405 [verbose] > │ |> fun x -> _v447 <- Some x │
00:01:04 #7406 [verbose] > │ let v475 : Async<US9> = _v447 |> Option.get │
00:01:04 #7407 [verbose] > │ v475 │
00:01:04 #7408 [verbose] > │ #endif │
00:01:04 #7409 [verbose] > │ #if FABLE_COMPILER_TYPESCRIPT │
00:01:04 #7410 [verbose] > │ let v476 : Async<US9> = null |> unbox<Async<US9>> │
00:01:04 #7411 [verbose] > │ v476 │
00:01:04 #7412 [verbose] > │ #endif │
00:01:04 #7413 [verbose] > │ #if FABLE_COMPILER_PYTHON || FABLE_COMPILER_PHP || FABLE_COMPILER_DART │
00:01:04 #7414 [verbose] > │ let v477 : Async<US9> = Unchecked.defaultof<Async<US9>> │
00:01:04 #7415 [verbose] > │ v477 │
00:01:04 #7416 [verbose] > │ #endif │
00:01:04 #7417 [verbose] > │ |> fun x -> _v443 <- Some x │
00:01:04 #7418 [verbose] > │ let v478 : Async<US9> = _v443.Value │
00:01:04 #7419 [verbose] > │ return! v478 │
00:01:04 #7420 [verbose] > │ } │
00:01:04 #7421 [verbose] > │ |> fun x -> _v387 <- Some x │
00:01:04 #7422 [verbose] > │ let v479 : Async<US9> = _v387 |> Option.get │
00:01:04 #7423 [verbose] > │ v479 │
00:01:04 #7424 [verbose] > │ #endif │
00:01:04 #7425 [verbose] > │ #if FABLE_COMPILER_TYPESCRIPT │
00:01:04 #7426 [verbose] > │ let v480 : Async<US9> = null |> unbox<Async<US9>> │
00:01:04 #7427 [verbose] > │ v480 │
00:01:04 #7428 [verbose] > │ #endif │
00:01:04 #7429 [verbose] > │ #if FABLE_COMPILER_PYTHON || FABLE_COMPILER_PHP || FABLE_COMPILER_DART │
00:01:05 #7430 [verbose] > │ let v481 : Async<US9> = Unchecked.defaultof<Async<US9>> │
00:01:05 #7431 [verbose] > │ v481 │
00:01:05 #7432 [verbose] > │ #endif │
00:01:05 #7433 [verbose] > │ |> fun x -> _v383 <- Some x │
00:01:05 #7434 [verbose] > │ let v482 : Async<US9> = _v383.Value │
00:01:05 #7435 [verbose] > │ v482 │
00:01:05 #7436 [verbose] > │ #endif │
00:01:05 #7437 [verbose] > │ #if FABLE_COMPILER_TYPESCRIPT │
00:01:05 #7438 [verbose] > │ let v483 : Async<US9> = null |> unbox<Async<US9>> │
00:01:05 #7439 [verbose] > │ v483 │
00:01:05 #7440 [verbose] > │ #endif │
00:01:05 #7441 [verbose] > │ #if FABLE_COMPILER_PYTHON || FABLE_COMPILER_PHP || FABLE_COMPILER_DART │
00:01:05 #7442 [verbose] > │ let v484 : Async<US9> = Unchecked.defaultof<Async<US9>> │
00:01:05 #7443 [verbose] > │ v484 │
00:01:05 #7444 [verbose] > │ #endif │
00:01:05 #7445 [verbose] > │ |> fun x -> _v379 <- Some x │
00:01:05 #7446 [verbose] > │ let v485 : Async<US9> = _v379.Value │
00:01:05 #7447 [verbose] > │ let v486 : US9 option = None │
00:01:05 #7448 [verbose] > │ let mutable _v486 = v486 │
00:01:05 #7449 [verbose] > │ #if FABLE_COMPILER_RUST && !WASM && !CONTRACT │
00:01:05 #7450 [verbose] > │ let v487 : US9 = null |> unbox<US9> │
00:01:05 #7451 [verbose] > │ v487 │
00:01:05 #7452 [verbose] > │ #endif │
00:01:05 #7453 [verbose] > │ #if FABLE_COMPILER_RUST && WASM │
00:01:05 #7454 [verbose] > │ let v488 : US9 = null |> unbox<US9> │
00:01:05 #7455 [verbose] > │ v488 │
00:01:05 #7456 [verbose] > │ #endif │
00:01:05 #7457 [verbose] > │ #if FABLE_COMPILER_RUST && CONTRACT │
00:01:05 #7458 [verbose] > │ let v489 : US9 = null |> unbox<US9> │
00:01:05 #7459 [verbose] > │ v489 │
00:01:05 #7460 [verbose] > │ #endif │
00:01:05 #7461 [verbose] > │ #if !FABLE_COMPILER && !FABLE_COMPILER_RUST && │
00:01:05 #7462 [verbose] > │ !FABLE_COMPILER_TYPESCRIPT && !WASM && !CONTRACT │
00:01:05 #7463 [verbose] > │ let v490 : (Async<US9> -> US9) = Async.RunSynchronously │
00:01:05 #7464 [verbose] > │ let v491 : US9 = v490 v485 │
00:01:05 #7465 [verbose] > │ v491 │
00:01:05 #7466 [verbose] > │ #endif │
00:01:05 #7467 [verbose] > │ #if FABLE_COMPILER_TYPESCRIPT │
00:01:05 #7468 [verbose] > │ let v492 : US9 = null |> unbox<US9> │
00:01:05 #7469 [verbose] > │ v492 │
00:01:05 #7470 [verbose] > │ #endif │
00:01:05 #7471 [verbose] > │ #if FABLE_COMPILER_PYTHON || FABLE_COMPILER_PHP || FABLE_COMPILER_DART │
00:01:05 #7472 [verbose] > │ let v493 : US9 = Unchecked.defaultof<US9> │
00:01:05 #7473 [verbose] > │ v493 │
00:01:05 #7474 [verbose] > │ #endif │
00:01:05 #7475 [verbose] > │ |> fun x -> _v486 <- Some x │
00:01:05 #7476 [verbose] > │ let v494 : US9 = _v486.Value │
00:01:05 #7477 [verbose] > │ let v510 : bool = │
00:01:05 #7478 [verbose] > │ match v494 with │
00:01:05 #7479 [verbose] > │ | US9_0(v495, v496) -> (* Some *) │
00:01:05 #7480 [verbose] > │ let v497 : string = $"%A{v495}" │
00:01:05 #7481 [verbose] > │ System.Console.WriteLine v497 │
00:01:05 #7482 [verbose] > │ let v498 : bool = v495 = -2147483648 │
00:01:05 #7483 [verbose] > │ let v500 : bool = │
00:01:05 #7484 [verbose] > │ if v498 then │
00:01:05 #7485 [verbose] > │ true │
00:01:05 #7486 [verbose] > │ else │
00:01:05 #7487 [verbose] > │ method19(v498) │
00:01:05 #7488 [verbose] > │ let v501 : string = $"__expect / actual: %A{v495} / expected: │
00:01:05 #7489 [verbose] > │ %A{-2147483648}" │
00:01:05 #7490 [verbose] > │ let v502 : bool = v500 = false │
00:01:05 #7491 [verbose] > │ if v502 then │
00:01:05 #7492 [verbose] > │ failwith<unit> v501 │
00:01:05 #7493 [verbose] > │ let v503 : string = method20() │
00:01:05 #7494 [verbose] > │ let v504 : string = $"%A{v496}" │
00:01:05 #7495 [verbose] > │ System.Console.WriteLine v504 │
00:01:05 #7496 [verbose] > │ let v505 : bool = v496 = v503 │
00:01:05 #7497 [verbose] > │ let v507 : bool = │
00:01:05 #7498 [verbose] > │ if v505 then │
00:01:05 #7499 [verbose] > │ true │
00:01:05 #7500 [verbose] > │ else │
00:01:05 #7501 [verbose] > │ method19(v505) │
00:01:05 #7502 [verbose] > │ let v508 : string = $"__expect / actual: %A{v496} / expected: │
00:01:05 #7503 [verbose] > │ %A{v503}" │
00:01:05 #7504 [verbose] > │ let v509 : bool = v507 = false │
00:01:05 #7505 [verbose] > │ if v509 then │
00:01:05 #7506 [verbose] > │ failwith<unit> v508 │
00:01:05 #7507 [verbose] > │ true │
00:01:05 #7508 [verbose] > │ | _ -> │
00:01:05 #7509 [verbose] > │ false │
00:01:05 #7510 [verbose] > │ let v511 : string = $"%A{v510}" │
00:01:05 #7511 [verbose] > │ System.Console.WriteLine v511 │
00:01:05 #7512 [verbose] > │ let v513 : bool = │
00:01:05 #7513 [verbose] > │ if v510 then │
00:01:05 #7514 [verbose] > │ true │
00:01:05 #7515 [verbose] > │ else │
00:01:05 #7516 [verbose] > │ method19(v510) │
00:01:05 #7517 [verbose] > │ let v514 : string = $"__expect / actual: %A{v510} / expected: %A{true}" │
00:01:05 #7518 [verbose] > │ let v515 : bool = v513 = false │
00:01:05 #7519 [verbose] > │ if v515 then │
00:01:05 #7520 [verbose] > │ failwith<unit> v514 │
00:01:05 #7521 [verbose] > │ method0() │
00:01:05 #7522 [verbose] > │ │
00:01:05 #7523 [verbose] > │ 00:00:00 #1 [debug] 1 │
00:01:05 #7524 [verbose] > │ 00:00:00 #2 [debug] 2 │
00:01:05 #7525 [verbose] > │ 00:00:00 #3 [debug] execute_with_options_async / options: struct (Some │
00:01:05 #7526 [verbose] > │ System.Threading.CancellationToken, │
00:01:05 #7527 [verbose] > │ "pwsh -c "Get-Content │
00:01:05 #7528 [verbose] > │ C:\Users\i574n\AppData\Local\Temp\!dotnet-repl\20240413-0453-1355-5581-501dd │
00:01:05 #7529 [verbose] > │ 734d45e\test.txt"", │
00:01:05 #7530 [verbose] > │ None, None, None) │
00:01:05 #7531 [verbose] > │ 00:00:00 #4 [debug] 3 │
00:01:05 #7532 [verbose] > │ 00:00:00 #5 [debug] 4 │
00:01:05 #7533 [verbose] > │ 00:00:00 #6 [warning] execute_with_options_async / WaitForExitAsync / ex: │
00:01:05 #7534 [verbose] > │ System.Threading.Tasks.TaskCanceledException: A task was canceled. │
00:01:05 #7535 [verbose] > │ 00:00:00 #7 [debug] execute_with_options_async / exit_code: -2147483648 / │
00:01:05 #7536 [verbose] > │ output.Length: 66 │
00:01:05 #7537 [verbose] > │ 00:00:00 #8 [debug] 5 │
00:01:05 #7538 [verbose] > │ -2147483648 │
00:01:05 #7539 [verbose] > │ "System.Threading.Tasks.TaskCanceledException: A task was canceled." │
00:01:05 #7540 [verbose] > │ true │
00:01:05 #7541 [verbose] > │ │
00:01:05 #7542 [verbose] > ╰──────────────────────────────────────────────────────────────────────────────╯
00:01:05 #7543 [verbose] >
00:01:05 #7544 [verbose] > ── markdown ────────────────────────────────────────────────────────────────────
00:01:05 #7545 [verbose] > ╭──────────────────────────────────────────────────────────────────────────────╮
00:01:05 #7546 [verbose] > │ ## main │
00:01:05 #7547 [verbose] > ╰──────────────────────────────────────────────────────────────────────────────╯
00:01:05 #7548 [verbose] >
00:01:05 #7549 [verbose] > ── spiral ──────────────────────────────────────────────────────────────────────
00:01:05 #7550 [verbose] > inl main () =
00:01:05 #7551 [verbose] > $"let is_windows () = !is_windows ()" : ()
00:01:05 #7552 [verbose] > $"let get_executable_suffix () = !get_executable_suffix ()" : ()
00:01:05 #7553 [verbose] > $"let execute_async x = !execute_async x" : ()
00:01:05 #7554 [verbose] > $"let execute_with_options_async x = !execute_with_options_async x" : ()
00:01:05 #7555 [verbose] > $"type RuntimeTraceLevel = `trace_level " : ()
00:01:05 #7556 [verbose] > Building c:\home\git\polyglot\target\polyglot\spiral_eval\packages\1bef22c8be4b130b1202e3023d03f066aa1f3c8f61fb3e39ea3def25ece5b2c4\main.spi
00:01:06 #7557 [verbose] >
00:01:06 #7558 [verbose] > ╭─[ 1.21s - stdout ]───────────────────────────────────────────────────────────╮
00:01:06 #7559 [verbose] > │ #if FABLE_COMPILER │
00:01:06 #7560 [verbose] > │ [<CompilationRepresentation (CompilationRepresentationFlags.ModuleSuffix)>] │
00:01:06 #7561 [verbose] > │ module System = │
00:01:06 #7562 [verbose] > │ module Diagnostics = │
00:01:06 #7563 [verbose] > │ type Process = unit │
00:01:06 #7564 [verbose] > │ type DataReceivedEventArgs = unit │
00:01:06 #7565 [verbose] > │ #endif │
00:01:06 #7566 [verbose] > │ module State = let mutable trace_state = None │
00:01:06 #7567 [verbose] > │ type [<Struct>] US0 = │
00:01:06 #7568 [verbose] > │ | US0_0 │
00:01:06 #7569 [verbose] > │ | US0_1 │
00:01:06 #7570 [verbose] > │ | US0_2 │
00:01:06 #7571 [verbose] > │ | US0_3 │
00:01:06 #7572 [verbose] > │ | US0_4 │
00:01:06 #7573 [verbose] > │ and UH0 = │
00:01:06 #7574 [verbose] > │ | UH0_0 │
00:01:06 #7575 [verbose] > │ | UH0_1 of char * UH0 │
00:01:06 #7576 [verbose] > │ and [<Struct>] US2 = │
00:01:06 #7577 [verbose] > │ | US2_0 │
00:01:06 #7578 [verbose] > │ | US2_1 │
00:01:06 #7579 [verbose] > │ and [<Struct>] US1 = │
00:01:06 #7580 [verbose] > │ | US1_0 │
00:01:06 #7581 [verbose] > │ | US1_1 of f1_0 : US2 │
00:01:06 #7582 [verbose] > │ | US1_2 │
00:01:06 #7583 [verbose] > │ and [<Struct>] US3 = │
00:01:06 #7584 [verbose] > │ | US3_0 of f0_0 : string │
00:01:06 #7585 [verbose] > │ | US3_1 │
00:01:06 #7586 [verbose] > │ and Mut0 = {mutable l0 : int64} │
00:01:06 #7587 [verbose] > │ and Mut1 = {mutable l0 : bool} │
00:01:06 #7588 [verbose] > │ and Mut2 = {mutable l0 : US0} │
00:01:06 #7589 [verbose] > │ and [<Struct>] US4 = │
00:01:06 #7590 [verbose] > │ | US4_0 of f0_0 : int64 │
00:01:06 #7591 [verbose] > │ | US4_1 │
00:01:06 #7592 [verbose] > │ and [<Struct>] US5 = │
00:01:06 #7593 [verbose] > │ | US5_0 of f0_0 : int64 │
00:01:06 #7594 [verbose] > │ | US5_1 │
00:01:06 #7595 [verbose] > │ and [<Struct>] US6 = │
00:01:06 #7596 [verbose] > │ | US6_0 of f0_0 : (struct (bool * string * int32) -> Async<unit>) │
00:01:06 #7597 [verbose] > │ | US6_1 │
00:01:06 #7598 [verbose] > │ and [<Struct>] US7 = │
00:01:06 #7599 [verbose] > │ | US7_0 of f0_0 : System.Threading.CancellationToken │
00:01:06 #7600 [verbose] > │ | US7_1 │
00:01:06 #7601 [verbose] > │ and [<Struct>] US8 = │
00:01:06 #7602 [verbose] > │ | US8_0 of f0_0 : US0 │
00:01:06 #7603 [verbose] > │ | US8_1 │
00:01:06 #7604 [verbose] > │ let rec closure0 () () : bool = │
00:01:06 #7605 [verbose] > │ let v0 : bool option = None │
00:01:06 #7606 [verbose] > │ let mutable _v0 = v0 │
00:01:06 #7607 [verbose] > │ #if FABLE_COMPILER_RUST && !WASM && !CONTRACT │
00:01:06 #7608 [verbose] > │ let v1 : bool = null |> unbox<bool> │
00:01:06 #7609 [verbose] > │ v1 │
00:01:06 #7610 [verbose] > │ #endif │
00:01:06 #7611 [verbose] > │ #if FABLE_COMPILER_RUST && WASM │
00:01:06 #7612 [verbose] > │ let v2 : bool = null |> unbox<bool> │
00:01:06 #7613 [verbose] > │ v2 │
00:01:06 #7614 [verbose] > │ #endif │
00:01:06 #7615 [verbose] > │ #if FABLE_COMPILER_RUST && CONTRACT │
00:01:06 #7616 [verbose] > │ let v3 : bool = null |> unbox<bool> │
00:01:06 #7617 [verbose] > │ v3 │
00:01:06 #7618 [verbose] > │ #endif │
00:01:06 #7619 [verbose] > │ #if !FABLE_COMPILER && !FABLE_COMPILER_RUST && │
00:01:06 #7620 [verbose] > │ !FABLE_COMPILER_TYPESCRIPT && !WASM && !CONTRACT │
00:01:06 #7621 [verbose] > │ let v4 : System.Runtime.InteropServices.OSPlatform = │
00:01:06 #7622 [verbose] > │ System.Runtime.InteropServices.OSPlatform.Windows │
00:01:06 #7623 [verbose] > │ let v5 : (System.Runtime.InteropServices.OSPlatform -> bool) = │
00:01:06 #7624 [verbose] > │ System.Runtime.InteropServices.RuntimeInformation.IsOSPlatform │
00:01:06 #7625 [verbose] > │ let v6 : bool = v5 v4 │
00:01:06 #7626 [verbose] > │ v6 │
00:01:06 #7627 [verbose] > │ #endif │
00:01:06 #7628 [verbose] > │ #if FABLE_COMPILER_TYPESCRIPT │
00:01:06 #7629 [verbose] > │ let v7 : bool = null |> unbox<bool> │
00:01:06 #7630 [verbose] > │ v7 │
00:01:06 #7631 [verbose] > │ #endif │
00:01:06 #7632 [verbose] > │ #if FABLE_COMPILER_PYTHON || FABLE_COMPILER_PHP || FABLE_COMPILER_DART │
00:01:06 #7633 [verbose] > │ let v8 : bool = Unchecked.defaultof<bool> │
00:01:06 #7634 [verbose] > │ v8 │
00:01:06 #7635 [verbose] > │ #endif │
00:01:06 #7636 [verbose] > │ |> fun x -> _v0 <- Some x │
00:01:06 #7637 [verbose] > │ let v9 : bool = _v0.Value │
00:01:06 #7638 [verbose] > │ v9 │
00:01:06 #7639 [verbose] > │ and closure1 () () : string = │
00:01:06 #7640 [verbose] > │ let v0 : bool option = None │
00:01:06 #7641 [verbose] > │ let mutable _v0 = v0 │
00:01:06 #7642 [verbose] > │ #if FABLE_COMPILER_RUST && !WASM && !CONTRACT │
00:01:06 #7643 [verbose] > │ let v1 : bool = null |> unbox<bool> │
00:01:06 #7644 [verbose] > │ v1 │
00:01:06 #7645 [verbose] > │ #endif │
00:01:06 #7646 [verbose] > │ #if FABLE_COMPILER_RUST && WASM │
00:01:06 #7647 [verbose] > │ let v2 : bool = null |> unbox<bool> │
00:01:06 #7648 [verbose] > │ v2 │
00:01:06 #7649 [verbose] > │ #endif │
00:01:06 #7650 [verbose] > │ #if FABLE_COMPILER_RUST && CONTRACT │
00:01:06 #7651 [verbose] > │ let v3 : bool = null |> unbox<bool> │
00:01:06 #7652 [verbose] > │ v3 │
00:01:06 #7653 [verbose] > │ #endif │
00:01:06 #7654 [verbose] > │ #if !FABLE_COMPILER && !FABLE_COMPILER_RUST && │
00:01:06 #7655 [verbose] > │ !FABLE_COMPILER_TYPESCRIPT && !WASM && !CONTRACT │
00:01:06 #7656 [verbose] > │ let v4 : System.Runtime.InteropServices.OSPlatform = │
00:01:06 #7657 [verbose] > │ System.Runtime.InteropServices.OSPlatform.Windows │
00:01:06 #7658 [verbose] > │ let v5 : (System.Runtime.InteropServices.OSPlatform -> bool) = │
00:01:06 #7659 [verbose] > │ System.Runtime.InteropServices.RuntimeInformation.IsOSPlatform │
00:01:06 #7660 [verbose] > │ let v6 : bool = v5 v4 │
00:01:06 #7661 [verbose] > │ v6 │
00:01:06 #7662 [verbose] > │ #endif │
00:01:06 #7663 [verbose] > │ #if FABLE_COMPILER_TYPESCRIPT │
00:01:06 #7664 [verbose] > │ let v7 : bool = null |> unbox<bool> │
00:01:06 #7665 [verbose] > │ v7 │
00:01:06 #7666 [verbose] > │ #endif │
00:01:06 #7667 [verbose] > │ #if FABLE_COMPILER_PYTHON || FABLE_COMPILER_PHP || FABLE_COMPILER_DART │
00:01:06 #7668 [verbose] > │ let v8 : bool = Unchecked.defaultof<bool> │
00:01:06 #7669 [verbose] > │ v8 │
00:01:06 #7670 [verbose] > │ #endif │
00:01:06 #7671 [verbose] > │ |> fun x -> _v0 <- Some x │
00:01:06 #7672 [verbose] > │ let v9 : bool = _v0.Value │
00:01:06 #7673 [verbose] > │ if v9 then │
00:01:06 #7674 [verbose] > │ let v10 : string = ".exe" │
00:01:06 #7675 [verbose] > │ v10 │
00:01:06 #7676 [verbose] > │ else │
00:01:06 #7677 [verbose] > │ let v11 : string = "" │
00:01:06 #7678 [verbose] > │ v11 │
00:01:06 #7679 [verbose] > │ and method0 () : struct (string * string) = │
00:01:06 #7680 [verbose] > │ let v0 : string = "" │
00:01:06 #7681 [verbose] > │ struct (v0, v0) │
00:01:06 #7682 [verbose] > │ and closure4 (v0 : char) (v1 : UH0) : UH0 = │
00:01:06 #7683 [verbose] > │ UH0_1(v0, v1) │
00:01:06 #7684 [verbose] > │ and closure3 () (v0 : char) : (UH0 -> UH0) = │
00:01:06 #7685 [verbose] > │ closure4(v0) │
00:01:06 #7686 [verbose] > │ and method1 () : (char -> (UH0 -> UH0)) = │
00:01:06 #7687 [verbose] > │ closure3() │
00:01:06 #7688 [verbose] > │ and method2 (v0 : string, v1 : string, v2 : UH0, v3 : US1) : struct (string │
00:01:06 #7689 [verbose] > │ * string) = │
00:01:06 #7690 [verbose] > │ match v2 with │
00:01:06 #7691 [verbose] > │ | UH0_1(v4, v5) -> (* Cons *) │
00:01:06 #7692 [verbose] > │ let v6 : bool = '"' = v4 │
00:01:06 #7693 [verbose] > │ if v6 then │
00:01:06 #7694 [verbose] > │ let v8 : bool = v1 = "" │
00:01:06 #7695 [verbose] > │ if v8 then │
00:01:06 #7696 [verbose] > │ let v9 : US2 = US2_0 │
00:01:06 #7697 [verbose] > │ let v10 : US1 = US1_1(v9) │
00:01:06 #7698 [verbose] > │ method2(v0, v1, v5, v10) │
00:01:06 #7699 [verbose] > │ else │
00:01:06 #7700 [verbose] > │ match v3 with │
00:01:06 #7701 [verbose] > │ | US1_2 -> (* Arguments *) │
00:01:06 #7702 [verbose] > │ let v38 : string = $"{v0}{v4}" │
00:01:06 #7703 [verbose] > │ let v39 : US1 = US1_2 │
00:01:06 #7704 [verbose] > │ method2(v38, v1, v5, v39) │
00:01:06 #7705 [verbose] > │ | US1_1(v13) -> (* Path *) │
00:01:06 #7706 [verbose] > │ match v13 with │
00:01:06 #7707 [verbose] > │ | US2_0 -> (* Quoted *) │
00:01:06 #7708 [verbose] > │ let v14 : US2 = US2_1 │
00:01:06 #7709 [verbose] > │ let v15 : US1 = US1_1(v14) │
00:01:06 #7710 [verbose] > │ method2(v0, v1, v5, v15) │
00:01:06 #7711 [verbose] > │ | _ -> │
00:01:06 #7712 [verbose] > │ let v18 : bool = ' ' = v4 │
00:01:06 #7713 [verbose] > │ if v18 then │
00:01:06 #7714 [verbose] > │ let v19 : US1 = US1_2 │
00:01:06 #7715 [verbose] > │ method2(v0, v1, v5, v19) │
00:01:06 #7716 [verbose] > │ else │
00:01:06 #7717 [verbose] > │ let v22 : string = $"{v1}{v4}" │
00:01:06 #7718 [verbose] > │ method2(v0, v22, v5, v3) │
00:01:06 #7719 [verbose] > │ | US1_0 -> (* Start *) │
00:01:06 #7720 [verbose] > │ let v29 : bool = ' ' = v4 │
00:01:06 #7721 [verbose] > │ if v29 then │
00:01:06 #7722 [verbose] > │ let v30 : US1 = US1_2 │
00:01:06 #7723 [verbose] > │ method2(v0, v1, v5, v30) │
00:01:06 #7724 [verbose] > │ else │
00:01:06 #7725 [verbose] > │ let v33 : string = $"{v1}{v4}" │
00:01:06 #7726 [verbose] > │ method2(v0, v33, v5, v3) │
00:01:06 #7727 [verbose] > │ else │
00:01:06 #7728 [verbose] > │ let v50 : bool = ''' = v4 │
00:01:06 #7729 [verbose] > │ if v50 then │
00:01:06 #7730 [verbose] > │ let v52 : bool = v1 = "" │
00:01:06 #7731 [verbose] > │ if v52 then │
00:01:06 #7732 [verbose] > │ let v53 : US2 = US2_0 │
00:01:06 #7733 [verbose] > │ let v54 : US1 = US1_1(v53) │
00:01:06 #7734 [verbose] > │ method2(v0, v1, v5, v54) │
00:01:06 #7735 [verbose] > │ else │
00:01:06 #7736 [verbose] > │ match v3 with │
00:01:06 #7737 [verbose] > │ | US1_2 -> (* Arguments *) │
00:01:06 #7738 [verbose] > │ let v82 : string = $"{v0}{v4}" │
00:01:06 #7739 [verbose] > │ let v83 : US1 = US1_2 │
00:01:06 #7740 [verbose] > │ method2(v82, v1, v5, v83) │
00:01:06 #7741 [verbose] > │ | US1_1(v57) -> (* Path *) │
00:01:06 #7742 [verbose] > │ match v57 with │
00:01:06 #7743 [verbose] > │ | US2_0 -> (* Quoted *) │
00:01:06 #7744 [verbose] > │ let v58 : US2 = US2_1 │
00:01:06 #7745 [verbose] > │ let v59 : US1 = US1_1(v58) │
00:01:06 #7746 [verbose] > │ method2(v0, v1, v5, v59) │
00:01:06 #7747 [verbose] > │ | _ -> │
00:01:06 #7748 [verbose] > │ let v62 : bool = ' ' = v4 │
00:01:06 #7749 [verbose] > │ if v62 then │
00:01:06 #7750 [verbose] > │ let v63 : US1 = US1_2 │
00:01:06 #7751 [verbose] > │ method2(v0, v1, v5, v63) │
00:01:06 #7752 [verbose] > │ else │
00:01:06 #7753 [verbose] > │ let v66 : string = $"{v1}{v4}" │
00:01:06 #7754 [verbose] > │ method2(v0, v66, v5, v3) │
00:01:06 #7755 [verbose] > │ | US1_0 -> (* Start *) │
00:01:06 #7756 [verbose] > │ let v73 : bool = ' ' = v4 │
00:01:06 #7757 [verbose] > │ if v73 then │
00:01:06 #7758 [verbose] > │ let v74 : US1 = US1_2 │
00:01:06 #7759 [verbose] > │ method2(v0, v1, v5, v74) │
00:01:06 #7760 [verbose] > │ else │
00:01:06 #7761 [verbose] > │ let v77 : string = $"{v1}{v4}" │
00:01:06 #7762 [verbose] > │ method2(v0, v77, v5, v3) │
00:01:06 #7763 [verbose] > │ else │
00:01:06 #7764 [verbose] > │ match v3 with │
00:01:06 #7765 [verbose] > │ | US1_2 -> (* Arguments *) │
00:01:06 #7766 [verbose] > │ let v126 : string = $"{v0}{v4}" │
00:01:06 #7767 [verbose] > │ let v127 : US1 = US1_2 │
00:01:06 #7768 [verbose] > │ method2(v126, v1, v5, v127) │
00:01:06 #7769 [verbose] > │ | US1_1(v94) -> (* Path *) │
00:01:06 #7770 [verbose] > │ match v94 with │
00:01:06 #7771 [verbose] > │ | US2_0 -> (* Quoted *) │
00:01:06 #7772 [verbose] > │ let v95 : bool = ' ' = v4 │
00:01:06 #7773 [verbose] > │ if v95 then │
00:01:06 #7774 [verbose] > │ let v96 : string = $"{v1} " │
00:01:06 #7775 [verbose] > │ let v97 : US2 = US2_0 │
00:01:06 #7776 [verbose] > │ let v98 : US1 = US1_1(v97) │
00:01:06 #7777 [verbose] > │ method2(v0, v96, v5, v98) │
00:01:06 #7778 [verbose] > │ else │
00:01:06 #7779 [verbose] > │ let v101 : string = $"{v1}{v4}" │
00:01:06 #7780 [verbose] > │ method2(v0, v101, v5, v3) │
00:01:06 #7781 [verbose] > │ | _ -> │
00:01:06 #7782 [verbose] > │ let v106 : bool = ' ' = v4 │
00:01:06 #7783 [verbose] > │ if v106 then │
00:01:06 #7784 [verbose] > │ let v107 : US1 = US1_2 │
00:01:06 #7785 [verbose] > │ method2(v0, v1, v5, v107) │
00:01:06 #7786 [verbose] > │ else │
00:01:06 #7787 [verbose] > │ let v110 : string = $"{v1}{v4}" │
00:01:06 #7788 [verbose] > │ method2(v0, v110, v5, v3) │
00:01:06 #7789 [verbose] > │ | US1_0 -> (* Start *) │
00:01:06 #7790 [verbose] > │ let v117 : bool = ' ' = v4 │
00:01:06 #7791 [verbose] > │ if v117 then │
00:01:06 #7792 [verbose] > │ let v118 : US1 = US1_2 │
00:01:06 #7793 [verbose] > │ method2(v0, v1, v5, v118) │
00:01:06 #7794 [verbose] > │ else │
00:01:06 #7795 [verbose] > │ let v121 : string = $"{v1}{v4}" │
00:01:06 #7796 [verbose] > │ method2(v0, v121, v5, v3) │
00:01:06 #7797 [verbose] > │ | _ -> │
00:01:06 #7798 [verbose] > │ match v3 with │
00:01:06 #7799 [verbose] > │ | US1_2 -> (* Arguments *) │
00:01:06 #7800 [verbose] > │ let v152 : string = "\\" │
00:01:06 #7801 [verbose] > │ let v153 : string = "/" │
00:01:06 #7802 [verbose] > │ let v154 : string = v1.Replace (v152, v153) │
00:01:06 #7803 [verbose] > │ struct (v154, v0) │
00:01:06 #7804 [verbose] > │ | US1_1(v140) -> (* Path *) │
00:01:06 #7805 [verbose] > │ match v140 with │
00:01:06 #7806 [verbose] > │ | US2_0 -> (* Quoted *) │
00:01:06 #7807 [verbose] > │ let v141 : string = "\\" │
00:01:06 #7808 [verbose] > │ let v142 : string = "/" │
00:01:06 #7809 [verbose] > │ let v143 : string = v1.Replace (v141, v142) │
00:01:06 #7810 [verbose] > │ struct (v143, v0) │
00:01:06 #7811 [verbose] > │ | _ -> │
00:01:06 #7812 [verbose] > │ let v144 : string = "\\" │
00:01:06 #7813 [verbose] > │ let v145 : string = "/" │
00:01:06 #7814 [verbose] > │ let v146 : string = v1.Replace (v144, v145) │
00:01:06 #7815 [verbose] > │ struct (v146, v0) │
00:01:06 #7816 [verbose] > │ | US1_0 -> (* Start *) │
00:01:06 #7817 [verbose] > │ let v149 : string = "\\" │
00:01:06 #7818 [verbose] > │ let v150 : string = "/" │
00:01:06 #7819 [verbose] > │ let v151 : string = v1.Replace (v149, v150) │
00:01:06 #7820 [verbose] > │ struct (v151, v0) │
00:01:06 #7821 [verbose] > │ and closure5 () (v0 : string) : US3 = │
00:01:06 #7822 [verbose] > │ US3_0(v0) │
00:01:06 #7823 [verbose] > │ and method3 () : (string -> US3) = │
00:01:06 #7824 [verbose] > │ closure5() │
00:01:06 #7825 [verbose] > │ and closure6 (v0 : System.Threading.CancellationToken option, v1 : string, │
00:01:06 #7826 [verbose] > │ v2 : (struct (bool * string * int32) -> Async<unit>) option, v3 : US0 │
00:01:06 #7827 [verbose] > │ option, v4 : string option) () : string = │
00:01:06 #7828 [verbose] > │ let v5 : string = $"execute_with_options_async / options: %A{struct (v0, │
00:01:06 #7829 [verbose] > │ v1, v2, v3, v4)}" │
00:01:06 #7830 [verbose] > │ v5 │
00:01:06 #7831 [verbose] > │ and closure7 () () : string = │
00:01:06 #7832 [verbose] > │ let v0 : string = "" │
00:01:06 #7833 [verbose] > │ v0 │
00:01:06 #7834 [verbose] > │ and method4 () : (unit -> string) = │
00:01:06 #7835 [verbose] > │ closure7() │
00:01:06 #7836 [verbose] > │ and method6 (v0 : int64 option) : int64 option = │
00:01:06 #7837 [verbose] > │ v0 │
00:01:06 #7838 [verbose] > │ and method7 (v0 : int64 option) : int64 option = │
00:01:06 #7839 [verbose] > │ v0 │
00:01:06 #7840 [verbose] > │ and closure8 () () : struct (Mut0 * Mut1 * Mut1 * Mut2 * int64 option) = │
00:01:06 #7841 [verbose] > │ let v0 : Mut1 = {l0 = true} : Mut1 │
00:01:06 #7842 [verbose] > │ let v1 : Mut0 = {l0 = 0L} : Mut0 │
00:01:06 #7843 [verbose] > │ let v2 : US0 = US0_0 │
00:01:06 #7844 [verbose] > │ let v3 : Mut2 = {l0 = v2} : Mut2 │
00:01:06 #7845 [verbose] > │ let v4 : Mut1 = {l0 = false} : Mut1 │
00:01:06 #7846 [verbose] > │ let v5 : int64 option option = None │
00:01:06 #7847 [verbose] > │ let mutable _v5 = v5 │
00:01:06 #7848 [verbose] > │ #if INTERACTIVE || !FABLE_COMPILER │
00:01:06 #7849 [verbose] > │ let v6 : string option = None │
00:01:06 #7850 [verbose] > │ let mutable _v6 = v6 │
00:01:06 #7851 [verbose] > │ #if FABLE_COMPILER_RUST && !WASM && !CONTRACT │
00:01:06 #7852 [verbose] > │ let v7 : string = null |> unbox<string> │
00:01:06 #7853 [verbose] > │ v7 │
00:01:06 #7854 [verbose] > │ #endif │
00:01:06 #7855 [verbose] > │ #if FABLE_COMPILER_RUST && WASM │
00:01:06 #7856 [verbose] > │ let v8 : string = null |> unbox<string> │
00:01:06 #7857 [verbose] > │ v8 │
00:01:06 #7858 [verbose] > │ #endif │
00:01:06 #7859 [verbose] > │ #if FABLE_COMPILER_RUST && CONTRACT │
00:01:06 #7860 [verbose] > │ let v9 : string = null |> unbox<string> │
00:01:06 #7861 [verbose] > │ v9 │
00:01:06 #7862 [verbose] > │ #endif │
00:01:06 #7863 [verbose] > │ #if !FABLE_COMPILER && !FABLE_COMPILER_RUST && │
00:01:06 #7864 [verbose] > │ !FABLE_COMPILER_TYPESCRIPT && !WASM && !CONTRACT │
00:01:06 #7865 [verbose] > │ let v10 : string = │
00:01:06 #7866 [verbose] > │ System.Reflection.Assembly.GetEntryAssembly().GetName().Name │
00:01:06 #7867 [verbose] > │ v10 │
00:01:06 #7868 [verbose] > │ #endif │
00:01:06 #7869 [verbose] > │ #if FABLE_COMPILER_TYPESCRIPT │
00:01:06 #7870 [verbose] > │ let v11 : string = null |> unbox<string> │
00:01:06 #7871 [verbose] > │ v11 │
00:01:06 #7872 [verbose] > │ #endif │
00:01:06 #7873 [verbose] > │ #if FABLE_COMPILER_PYTHON || FABLE_COMPILER_PHP || FABLE_COMPILER_DART │
00:01:06 #7874 [verbose] > │ let v12 : string = Unchecked.defaultof<string> │
00:01:06 #7875 [verbose] > │ v12 │
00:01:06 #7876 [verbose] > │ #endif │
00:01:06 #7877 [verbose] > │ |> fun x -> _v6 <- Some x │
00:01:06 #7878 [verbose] > │ let v13 : string = _v6.Value │
00:01:06 #7879 [verbose] > │ let v15 : bool = v13 = "Microsoft.DotNet.Interactive.App" │
00:01:06 #7880 [verbose] > │ let v16 : bool = v15 <> true │
00:01:06 #7881 [verbose] > │ let v22 : US4 = │
00:01:06 #7882 [verbose] > │ if v16 then │
00:01:06 #7883 [verbose] > │ let v17 : System.DateTime = System.DateTime.Now │
00:01:06 #7884 [verbose] > │ let v18 : (System.DateTime -> int64) = _.Ticks │
00:01:06 #7885 [verbose] > │ let v19 : int64 = v18 v17 │
00:01:06 #7886 [verbose] > │ US4_0(v19) │
00:01:06 #7887 [verbose] > │ else │
00:01:06 #7888 [verbose] > │ US4_1 │
00:01:06 #7889 [verbose] > │ let v27 : int64 option = │
00:01:06 #7890 [verbose] > │ match v22 with │
00:01:06 #7891 [verbose] > │ | US4_1 -> (* None *) │
00:01:06 #7892 [verbose] > │ let v25 : int64 option = None │
00:01:06 #7893 [verbose] > │ v25 │
00:01:06 #7894 [verbose] > │ | US4_0(v23) -> (* Some *) │
00:01:06 #7895 [verbose] > │ let v24 : int64 option = Some v23 │
00:01:06 #7896 [verbose] > │ v24 │
00:01:06 #7897 [verbose] > │ let v28 : int64 option = method6(v27) │
00:01:06 #7898 [verbose] > │ v28 │
00:01:06 #7899 [verbose] > │ #else │
00:01:06 #7900 [verbose] > │ let v29 : int64 option = None │
00:01:06 #7901 [verbose] > │ let v30 : int64 option = method7(v29) │
00:01:06 #7902 [verbose] > │ v30 │
00:01:06 #7903 [verbose] > │ #endif │
00:01:06 #7904 [verbose] > │ |> fun x -> _v5 <- Some x │
00:01:06 #7905 [verbose] > │ let v31 : int64 option = _v5.Value │
00:01:06 #7906 [verbose] > │ struct (v1, v4, v0, v3, v31) │
00:01:06 #7907 [verbose] > │ and closure10 () (v0 : int64) : US5 = │
00:01:06 #7908 [verbose] > │ US5_0(v0) │
00:01:06 #7909 [verbose] > │ and method8 () : (int64 -> US5) = │
00:01:06 #7910 [verbose] > │ closure10() │
00:01:06 #7911 [verbose] > │ and method9 () : string = │
00:01:06 #7912 [verbose] > │ let v0 : string = "" │
00:01:06 #7913 [verbose] > │ v0 │
00:01:06 #7914 [verbose] > │ and closure9 (v0 : US0, v1 : (unit -> string), v2 : (unit -> string)) () : │
00:01:06 #7915 [verbose] > │ string = │
00:01:06 #7916 [verbose] > │ let v3 : (unit -> struct (Mut0 * Mut1 * Mut1 * Mut2 * int64 option)) = │
00:01:06 #7917 [verbose] > │ closure8() │
00:01:06 #7918 [verbose] > │ if State.trace_state = None then State.trace_state <- v3 () |> Some │
00:01:06 #7919 [verbose] > │ let struct (v4 : Mut0, v5 : Mut1, v6 : Mut1, v7 : Mut2, v8 : int64 │
00:01:06 #7920 [verbose] > │ option) = State.trace_state.Value │
00:01:06 #7921 [verbose] > │ let v9 : string option = None │
00:01:06 #7922 [verbose] > │ let mutable _v9 = v9 │
00:01:06 #7923 [verbose] > │ #if FABLE_COMPILER_RUST && !WASM && !CONTRACT │
00:01:06 #7924 [verbose] > │ let v10 : (int64 -> US5) = method8() │
00:01:06 #7925 [verbose] > │ let v11 : US5 = US5_1 │
00:01:06 #7926 [verbose] > │ let v12 : US5 = v8 |> Option.map v10 |> Option.defaultValue v11 │
00:01:06 #7927 [verbose] > │ let v30 : System.DateTime = │
00:01:06 #7928 [verbose] > │ match v12 with │
00:01:06 #7929 [verbose] > │ | US5_1 -> (* None *) │
00:01:06 #7930 [verbose] > │ let v28 : System.DateTime = System.DateTime.Now │
00:01:06 #7931 [verbose] > │ v28 │
00:01:06 #7932 [verbose] > │ | US5_0(v13) -> (* Some *) │
00:01:06 #7933 [verbose] > │ let v14 : System.DateTime = System.DateTime.Now │
00:01:06 #7934 [verbose] > │ let v15 : (System.DateTime -> int64) = _.Ticks │
00:01:06 #7935 [verbose] > │ let v16 : int64 = v15 v14 │
00:01:06 #7936 [verbose] > │ let v17 : int64 = v16 - v13 │
00:01:06 #7937 [verbose] > │ let v18 : System.TimeSpan = System.TimeSpan v17 │
00:01:06 #7938 [verbose] > │ let v19 : (System.TimeSpan -> int32) = _.Hours │
00:01:06 #7939 [verbose] > │ let v20 : int32 = v19 v18 │
00:01:06 #7940 [verbose] > │ let v21 : (System.TimeSpan -> int32) = _.Minutes │
00:01:06 #7941 [verbose] > │ let v22 : int32 = v21 v18 │
00:01:06 #7942 [verbose] > │ let v23 : (System.TimeSpan -> int32) = _.Seconds │
00:01:06 #7943 [verbose] > │ let v24 : int32 = v23 v18 │
00:01:06 #7944 [verbose] > │ let v25 : (System.TimeSpan -> int32) = _.Milliseconds │
00:01:06 #7945 [verbose] > │ let v26 : int32 = v25 v18 │
00:01:06 #7946 [verbose] > │ let v27 : System.DateTime = System.DateTime (1, 1, 1, v20, v22, │
00:01:06 #7947 [verbose] > │ v24, v26) │
00:01:06 #7948 [verbose] > │ v27 │
00:01:06 #7949 [verbose] > │ let v31 : string = "hh:mm:ss" │
00:01:06 #7950 [verbose] > │ let v32 : string = v30.ToString v31 │
00:01:06 #7951 [verbose] > │ v32 │
00:01:06 #7952 [verbose] > │ #endif │
00:01:06 #7953 [verbose] > │ #if FABLE_COMPILER_RUST && WASM │
00:01:06 #7954 [verbose] > │ let v33 : string = method9() │
00:01:06 #7955 [verbose] > │ v33 │
00:01:06 #7956 [verbose] > │ #endif │
00:01:06 #7957 [verbose] > │ #if FABLE_COMPILER_RUST && CONTRACT │
00:01:06 #7958 [verbose] > │ let v34 : string = method9() │
00:01:06 #7959 [verbose] > │ v34 │
00:01:06 #7960 [verbose] > │ #endif │
00:01:06 #7961 [verbose] > │ #if !FABLE_COMPILER && !FABLE_COMPILER_RUST && │
00:01:06 #7962 [verbose] > │ !FABLE_COMPILER_TYPESCRIPT && !WASM && !CONTRACT │
00:01:06 #7963 [verbose] > │ let v35 : (int64 -> US5) = method8() │
00:01:06 #7964 [verbose] > │ let v36 : US5 = US5_1 │
00:01:06 #7965 [verbose] > │ let v37 : US5 = v8 |> Option.map v35 |> Option.defaultValue v36 │
00:01:06 #7966 [verbose] > │ let v55 : System.DateTime = │
00:01:06 #7967 [verbose] > │ match v37 with │
00:01:06 #7968 [verbose] > │ | US5_1 -> (* None *) │
00:01:06 #7969 [verbose] > │ let v53 : System.DateTime = System.DateTime.Now │
00:01:06 #7970 [verbose] > │ v53 │
00:01:06 #7971 [verbose] > │ | US5_0(v38) -> (* Some *) │
00:01:06 #7972 [verbose] > │ let v39 : System.DateTime = System.DateTime.Now │
00:01:06 #7973 [verbose] > │ let v40 : (System.DateTime -> int64) = _.Ticks │
00:01:06 #7974 [verbose] > │ let v41 : int64 = v40 v39 │
00:01:06 #7975 [verbose] > │ let v42 : int64 = v41 - v38 │
00:01:06 #7976 [verbose] > │ let v43 : System.TimeSpan = System.TimeSpan v42 │
00:01:06 #7977 [verbose] > │ let v44 : (System.TimeSpan -> int32) = _.Hours │
00:01:06 #7978 [verbose] > │ let v45 : int32 = v44 v43 │
00:01:06 #7979 [verbose] > │ let v46 : (System.TimeSpan -> int32) = _.Minutes │
00:01:06 #7980 [verbose] > │ let v47 : int32 = v46 v43 │
00:01:06 #7981 [verbose] > │ let v48 : (System.TimeSpan -> int32) = _.Seconds │
00:01:06 #7982 [verbose] > │ let v49 : int32 = v48 v43 │
00:01:06 #7983 [verbose] > │ let v50 : (System.TimeSpan -> int32) = _.Milliseconds │
00:01:06 #7984 [verbose] > │ let v51 : int32 = v50 v43 │
00:01:06 #7985 [verbose] > │ let v52 : System.DateTime = System.DateTime (1, 1, 1, v45, v47, │
00:01:06 #7986 [verbose] > │ v49, v51) │
00:01:06 #7987 [verbose] > │ v52 │
00:01:06 #7988 [verbose] > │ let v56 : string = "HH:mm:ss" │
00:01:06 #7989 [verbose] > │ let v57 : string = v55.ToString v56 │
00:01:06 #7990 [verbose] > │ v57 │
00:01:06 #7991 [verbose] > │ #endif │
00:01:06 #7992 [verbose] > │ #if FABLE_COMPILER_TYPESCRIPT │
00:01:06 #7993 [verbose] > │ let v58 : string = method9() │
00:01:06 #7994 [verbose] > │ v58 │
00:01:06 #7995 [verbose] > │ #endif │
00:01:06 #7996 [verbose] > │ #if FABLE_COMPILER_PYTHON || FABLE_COMPILER_PHP || FABLE_COMPILER_DART │
00:01:06 #7997 [verbose] > │ let v59 : string = Unchecked.defaultof<string> │
00:01:06 #7998 [verbose] > │ v59 │
00:01:06 #7999 [verbose] > │ #endif │
00:01:06 #8000 [verbose] > │ |> fun x -> _v9 <- Some x │
00:01:06 #8001 [verbose] > │ let v60 : string = _v9.Value │
00:01:06 #8002 [verbose] > │ let v61 : int64 = v4.l0 │
00:01:06 #8003 [verbose] > │ let v71 : string = │
00:01:06 #8004 [verbose] > │ match v0 with │
00:01:06 #8005 [verbose] > │ | US0_4 -> (* Critical *) │
00:01:06 #8006 [verbose] > │ let v66 : string = "Critical" │
00:01:06 #8007 [verbose] > │ v66 │
00:01:06 #8008 [verbose] > │ | US0_1 -> (* Debug *) │
00:01:06 #8009 [verbose] > │ let v63 : string = "Debug" │
00:01:06 #8010 [verbose] > │ v63 │
00:01:06 #8011 [verbose] > │ | US0_2 -> (* Info *) │
00:01:06 #8012 [verbose] > │ let v64 : string = "Info" │
00:01:06 #8013 [verbose] > │ v64 │
00:01:06 #8014 [verbose] > │ | US0_0 -> (* Verbose *) │
00:01:06 #8015 [verbose] > │ let v62 : string = "Verbose" │
00:01:06 #8016 [verbose] > │ v62 │
00:01:06 #8017 [verbose] > │ | US0_3 -> (* Warning *) │
00:01:06 #8018 [verbose] > │ let v65 : string = "Warning" │
00:01:06 #8019 [verbose] > │ v65 │
00:01:06 #8020 [verbose] > │ let v72 : string = v71.ToLower () │
00:01:06 #8021 [verbose] > │ let v73 : string = $"{v60} #{v61} [{v72}] %s{v1 ()} / %s{v2 ()}" │
00:01:06 #8022 [verbose] > │ let v74 : (char []) = [||] │
00:01:06 #8023 [verbose] > │ let v75 : string = v73.TrimStart v74 │
00:01:06 #8024 [verbose] > │ let v76 : (char []) = [|' '; '/'|] │
00:01:06 #8025 [verbose] > │ let v77 : string = v75.TrimEnd v76 │
00:01:06 #8026 [verbose] > │ v77 │
00:01:06 #8027 [verbose] > │ and method5 (v0 : US0, v1 : (unit -> string), v2 : (unit -> string)) : unit │
00:01:06 #8028 [verbose] > │ = │
00:01:06 #8029 [verbose] > │ let v3 : (unit -> struct (Mut0 * Mut1 * Mut1 * Mut2 * int64 option)) = │
00:01:06 #8030 [verbose] > │ closure8() │
00:01:06 #8031 [verbose] > │ if State.trace_state = None then State.trace_state <- v3 () |> Some │
00:01:06 #8032 [verbose] > │ let struct (v4 : Mut0, v5 : Mut1, v6 : Mut1, v7 : Mut2, v8 : int64 │
00:01:06 #8033 [verbose] > │ option) = State.trace_state.Value │
00:01:06 #8034 [verbose] > │ if State.trace_state = None then State.trace_state <- v3 () |> Some │
00:01:06 #8035 [verbose] > │ let struct (v9 : Mut0, v10 : Mut1, v11 : Mut1, v12 : Mut2, v13 : int64 │
00:01:06 #8036 [verbose] > │ option) = State.trace_state.Value │
00:01:06 #8037 [verbose] > │ let v14 : US0 = v12.l0 │
00:01:06 #8038 [verbose] > │ let v15 : bool = v11.l0 │
00:01:06 #8039 [verbose] > │ let v17 : bool = │
00:01:06 #8040 [verbose] > │ if v15 then │
00:01:06 #8041 [verbose] > │ let v16 : bool = v0 >= v14 │
00:01:06 #8042 [verbose] > │ v16 │
00:01:06 #8043 [verbose] > │ else │
00:01:06 #8044 [verbose] > │ false │
00:01:06 #8045 [verbose] > │ if v17 then │
00:01:06 #8046 [verbose] > │ let v18 : int64 = v4.l0 │
00:01:06 #8047 [verbose] > │ let v19 : int64 = v18 + 1L │
00:01:06 #8048 [verbose] > │ v4.l0 <- v19 │
00:01:06 #8049 [verbose] > │ let v20 : (unit -> string) = closure9(v0, v1, v2) │
00:01:06 #8050 [verbose] > │ let v21 : string = $"%s{v20 ()}" │
00:01:06 #8051 [verbose] > │ let v22 : unit option = None │
00:01:06 #8052 [verbose] > │ let mutable _v22 = v22 │
00:01:06 #8053 [verbose] > │ #if FABLE_COMPILER_RUST && !WASM && !CONTRACT │
00:01:06 #8054 [verbose] > │ let v23 : string = @"println!(""{}"", $0)" │
00:01:06 #8055 [verbose] > │ Fable.Core.RustInterop.emitRustExpr v21 v23 │
00:01:06 #8056 [verbose] > │ () │
00:01:06 #8057 [verbose] > │ #endif │
00:01:06 #8058 [verbose] > │ #if FABLE_COMPILER_RUST && WASM │
00:01:06 #8059 [verbose] > │ let v24 : string = @"println!(""{}"", $0)" │
00:01:06 #8060 [verbose] > │ Fable.Core.RustInterop.emitRustExpr v21 v24 │
00:01:06 #8061 [verbose] > │ () │
00:01:06 #8062 [verbose] > │ #endif │
00:01:06 #8063 [verbose] > │ #if FABLE_COMPILER_RUST && CONTRACT │
00:01:06 #8064 [verbose] > │ let v25 : string = @"println!(""{}"", $0)" │
00:01:06 #8065 [verbose] > │ Fable.Core.RustInterop.emitRustExpr v21 v25 │
00:01:06 #8066 [verbose] > │ () │
00:01:06 #8067 [verbose] > │ #endif │
00:01:06 #8068 [verbose] > │ #if !FABLE_COMPILER && !FABLE_COMPILER_RUST && │
00:01:06 #8069 [verbose] > │ !FABLE_COMPILER_TYPESCRIPT && !WASM && !CONTRACT │
00:01:06 #8070 [verbose] > │ System.Console.WriteLine v21 │
00:01:06 #8071 [verbose] > │ () │
00:01:06 #8072 [verbose] > │ #endif │
00:01:06 #8073 [verbose] > │ #if FABLE_COMPILER_TYPESCRIPT │
00:01:06 #8074 [verbose] > │ System.Console.WriteLine v21 │
00:01:06 #8075 [verbose] > │ () │
00:01:06 #8076 [verbose] > │ #endif │
00:01:06 #8077 [verbose] > │ #if FABLE_COMPILER_PYTHON || FABLE_COMPILER_PHP || │
00:01:06 #8078 [verbose] > │ FABLE_COMPILER_DART │
00:01:06 #8079 [verbose] > │ Unchecked.defaultof<unit> │
00:01:06 #8080 [verbose] > │ () │
00:01:06 #8081 [verbose] > │ #endif │
00:01:06 #8082 [verbose] > │ |> fun x -> _v22 <- Some x │
00:01:06 #8083 [verbose] > │ _v22.Value │
00:01:06 #8084 [verbose] > │ () │
00:01:06 #8085 [verbose] > │ and closure12 () (v0 : (struct (bool * string * int32) -> Async<unit>)) : │
00:01:06 #8086 [verbose] > │ US6 = │
00:01:06 #8087 [verbose] > │ US6_0(v0) │
00:01:06 #8088 [verbose] > │ and method10 () : ((struct (bool * string * int32) -> Async<unit>) -> US6) = │
00:01:06 #8089 [verbose] > │ closure12() │
00:01:06 #8090 [verbose] > │ and closure13 (v0 : string) () : string = │
00:01:06 #8091 [verbose] > │ let v1 : string = $"> {v0}" │
00:01:06 #8092 [verbose] > │ v1 │
00:01:06 #8093 [verbose] > │ and closure11 (v0 : System.Threading.CancellationToken option, v1 : string, │
00:01:06 #8094 [verbose] > │ v2 : (struct (bool * string * int32) -> Async<unit>) option, v3 : US0 │
00:01:06 #8095 [verbose] > │ option, v4 : string option, v5 : System.Diagnostics.Process, v6 : │
00:01:06 #8096 [verbose] > │ System.Collections.Concurrent.ConcurrentStack<string>) (v7 : │
00:01:06 #8097 [verbose] > │ System.Diagnostics.DataReceivedEventArgs) : unit = │
00:01:06 #8098 [verbose] > │ let v8 : Async<unit> option = None │
00:01:06 #8099 [verbose] > │ let mutable _v8 = v8 │
00:01:06 #8100 [verbose] > │ #if FABLE_COMPILER_RUST && !WASM && !CONTRACT │
00:01:06 #8101 [verbose] > │ let v9 : Async<unit> = null |> unbox<Async<unit>> │
00:01:06 #8102 [verbose] > │ v9 │
00:01:06 #8103 [verbose] > │ #endif │
00:01:06 #8104 [verbose] > │ #if FABLE_COMPILER_RUST && WASM │
00:01:06 #8105 [verbose] > │ let v10 : Async<unit> = null |> unbox<Async<unit>> │
00:01:06 #8106 [verbose] > │ v10 │
00:01:06 #8107 [verbose] > │ #endif │
00:01:06 #8108 [verbose] > │ #if FABLE_COMPILER_RUST && CONTRACT │
00:01:06 #8109 [verbose] > │ let v11 : Async<unit> = null |> unbox<Async<unit>> │
00:01:06 #8110 [verbose] > │ v11 │
00:01:06 #8111 [verbose] > │ #endif │
00:01:06 #8112 [verbose] > │ #if !FABLE_COMPILER && !FABLE_COMPILER_RUST && │
00:01:06 #8113 [verbose] > │ !FABLE_COMPILER_TYPESCRIPT && !WASM && !CONTRACT │
00:01:06 #8114 [verbose] > │ let v12 : Async<unit> option = None │
00:01:06 #8115 [verbose] > │ let mutable _v12 = v12 │
00:01:06 #8116 [verbose] > │ async { │
00:01:06 #8117 [verbose] > │ let v13 : string = v7.Data │
00:01:06 #8118 [verbose] > │ let v14 : string = null |> unbox<string> │
00:01:06 #8119 [verbose] > │ let v15 : bool = v13 = v14 │
00:01:06 #8120 [verbose] > │ let v16 : bool = v15 <> true │
00:01:06 #8121 [verbose] > │ if v16 then │
00:01:06 #8122 [verbose] > │ let v17 : ((struct (bool * string * int32) -> Async<unit>) -> US6) = │
00:01:06 #8123 [verbose] > │ method10() │
00:01:06 #8124 [verbose] > │ let v18 : US6 = US6_1 │
00:01:06 #8125 [verbose] > │ let v19 : US6 = v2 |> Option.map v17 |> Option.defaultValue v18 │
00:01:06 #8126 [verbose] > │ match v19 with │
00:01:06 #8127 [verbose] > │ | US6_1 -> (* None *) │
00:01:06 #8128 [verbose] > │ () │
00:01:06 #8129 [verbose] > │ | US6_0(v20) -> (* Some *) │
00:01:06 #8130 [verbose] > │ let v21 : int32 = v5.Id │
00:01:06 #8131 [verbose] > │ let v22 : Async<unit> = v20 struct (false, v13, v21) │
00:01:06 #8132 [verbose] > │ do! v22 │
00:01:06 #8133 [verbose] > │ () │
00:01:06 #8134 [verbose] > │ let v23 : US0 = US0_0 │
00:01:06 #8135 [verbose] > │ let v24 : (unit -> string) = closure13(v13) │
00:01:06 #8136 [verbose] > │ let v25 : (unit -> string) = closure7() │
00:01:06 #8137 [verbose] > │ method5(v23, v24, v25) │
00:01:06 #8138 [verbose] > │ let v26 : string = "" │
00:01:06 #8139 [verbose] > │ let v27 : string = $"{v26}{v13}{v26}" │
00:01:06 #8140 [verbose] > │ let v28 : (string -> unit) = v6.Push │
00:01:06 #8141 [verbose] > │ v28 v27 │
00:01:06 #8142 [verbose] > │ } │
00:01:06 #8143 [verbose] > │ |> fun x -> _v12 <- Some x │
00:01:06 #8144 [verbose] > │ let v29 : Async<unit> = _v12 |> Option.get │
00:01:06 #8145 [verbose] > │ v29 │
00:01:06 #8146 [verbose] > │ #endif │
00:01:06 #8147 [verbose] > │ #if FABLE_COMPILER_TYPESCRIPT │
00:01:06 #8148 [verbose] > │ let v30 : Async<unit> = null |> unbox<Async<unit>> │
00:01:06 #8149 [verbose] > │ v30 │
00:01:06 #8150 [verbose] > │ #endif │
00:01:06 #8151 [verbose] > │ #if FABLE_COMPILER_PYTHON || FABLE_COMPILER_PHP || FABLE_COMPILER_DART │
00:01:06 #8152 [verbose] > │ let v31 : Async<unit> = Unchecked.defaultof<Async<unit>> │
00:01:06 #8153 [verbose] > │ v31 │
00:01:06 #8154 [verbose] > │ #endif │
00:01:06 #8155 [verbose] > │ |> fun x -> _v8 <- Some x │
00:01:06 #8156 [verbose] > │ let v32 : Async<unit> = _v8.Value │
00:01:06 #8157 [verbose] > │ let v33 : unit option = None │
00:01:06 #8158 [verbose] > │ let mutable _v33 = v33 │
00:01:06 #8159 [verbose] > │ #if FABLE_COMPILER_RUST && !WASM && !CONTRACT │
00:01:06 #8160 [verbose] > │ null |> unbox<unit> │
00:01:06 #8161 [verbose] > │ () │
00:01:06 #8162 [verbose] > │ #endif │
00:01:06 #8163 [verbose] > │ #if FABLE_COMPILER_RUST && WASM │
00:01:06 #8164 [verbose] > │ null |> unbox<unit> │
00:01:06 #8165 [verbose] > │ () │
00:01:06 #8166 [verbose] > │ #endif │
00:01:06 #8167 [verbose] > │ #if FABLE_COMPILER_RUST && CONTRACT │
00:01:06 #8168 [verbose] > │ null |> unbox<unit> │
00:01:06 #8169 [verbose] > │ () │
00:01:06 #8170 [verbose] > │ #endif │
00:01:06 #8171 [verbose] > │ #if !FABLE_COMPILER && !FABLE_COMPILER_RUST && │
00:01:06 #8172 [verbose] > │ !FABLE_COMPILER_TYPESCRIPT && !WASM && !CONTRACT │
00:01:06 #8173 [verbose] > │ let v34 : (Async<unit> -> unit) = Async.StartImmediate │
00:01:06 #8174 [verbose] > │ v34 v32 │
00:01:06 #8175 [verbose] > │ () │
00:01:06 #8176 [verbose] > │ #endif │
00:01:06 #8177 [verbose] > │ #if FABLE_COMPILER_TYPESCRIPT │
00:01:06 #8178 [verbose] > │ null |> unbox<unit> │
00:01:06 #8179 [verbose] > │ () │
00:01:06 #8180 [verbose] > │ #endif │
00:01:06 #8181 [verbose] > │ #if FABLE_COMPILER_PYTHON || FABLE_COMPILER_PHP || FABLE_COMPILER_DART │
00:01:06 #8182 [verbose] > │ Unchecked.defaultof<unit> │
00:01:06 #8183 [verbose] > │ () │
00:01:06 #8184 [verbose] > │ #endif │
00:01:06 #8185 [verbose] > │ |> fun x -> _v33 <- Some x │
00:01:06 #8186 [verbose] > │ _v33.Value │
00:01:06 #8187 [verbose] > │ () │
00:01:06 #8188 [verbose] > │ and closure14 (v0 : System.Threading.CancellationToken option, v1 : string, │
00:01:06 #8189 [verbose] > │ v2 : (struct (bool * string * int32) -> Async<unit>) option, v3 : US0 │
00:01:06 #8190 [verbose] > │ option, v4 : string option, v5 : System.Diagnostics.Process, v6 : │
00:01:06 #8191 [verbose] > │ System.Collections.Concurrent.ConcurrentStack<string>) (v7 : │
00:01:06 #8192 [verbose] > │ System.Diagnostics.DataReceivedEventArgs) : unit = │
00:01:06 #8193 [verbose] > │ let v8 : Async<unit> option = None │
00:01:06 #8194 [verbose] > │ let mutable _v8 = v8 │
00:01:06 #8195 [verbose] > │ #if FABLE_COMPILER_RUST && !WASM && !CONTRACT │
00:01:06 #8196 [verbose] > │ let v9 : Async<unit> = null |> unbox<Async<unit>> │
00:01:06 #8197 [verbose] > │ v9 │
00:01:06 #8198 [verbose] > │ #endif │
00:01:06 #8199 [verbose] > │ #if FABLE_COMPILER_RUST && WASM │
00:01:06 #8200 [verbose] > │ let v10 : Async<unit> = null |> unbox<Async<unit>> │
00:01:06 #8201 [verbose] > │ v10 │
00:01:06 #8202 [verbose] > │ #endif │
00:01:06 #8203 [verbose] > │ #if FABLE_COMPILER_RUST && CONTRACT │
00:01:06 #8204 [verbose] > │ let v11 : Async<unit> = null |> unbox<Async<unit>> │
00:01:06 #8205 [verbose] > │ v11 │
00:01:06 #8206 [verbose] > │ #endif │
00:01:06 #8207 [verbose] > │ #if !FABLE_COMPILER && !FABLE_COMPILER_RUST && │
00:01:06 #8208 [verbose] > │ !FABLE_COMPILER_TYPESCRIPT && !WASM && !CONTRACT │
00:01:06 #8209 [verbose] > │ let v12 : Async<unit> option = None │
00:01:06 #8210 [verbose] > │ let mutable _v12 = v12 │
00:01:06 #8211 [verbose] > │ async { │
00:01:06 #8212 [verbose] > │ let v13 : string = v7.Data │
00:01:06 #8213 [verbose] > │ let v14 : string = null |> unbox<string> │
00:01:06 #8214 [verbose] > │ let v15 : bool = v13 = v14 │
00:01:06 #8215 [verbose] > │ let v16 : bool = v15 <> true │
00:01:06 #8216 [verbose] > │ if v16 then │
00:01:06 #8217 [verbose] > │ let v17 : ((struct (bool * string * int32) -> Async<unit>) -> US6) = │
00:01:06 #8218 [verbose] > │ method10() │
00:01:06 #8219 [verbose] > │ let v18 : US6 = US6_1 │
00:01:06 #8220 [verbose] > │ let v19 : US6 = v2 |> Option.map v17 |> Option.defaultValue v18 │
00:01:06 #8221 [verbose] > │ match v19 with │
00:01:06 #8222 [verbose] > │ | US6_1 -> (* None *) │
00:01:06 #8223 [verbose] > │ () │
00:01:06 #8224 [verbose] > │ | US6_0(v20) -> (* Some *) │
00:01:06 #8225 [verbose] > │ let v21 : int32 = v5.Id │
00:01:06 #8226 [verbose] > │ let v22 : Async<unit> = v20 struct (true, v13, v21) │
00:01:06 #8227 [verbose] > │ do! v22 │
00:01:06 #8228 [verbose] > │ () │
00:01:06 #8229 [verbose] > │ let v23 : US0 = US0_0 │
00:01:06 #8230 [verbose] > │ let v24 : (unit -> string) = closure13(v13) │
00:01:06 #8231 [verbose] > │ let v25 : (unit -> string) = closure7() │
00:01:06 #8232 [verbose] > │ method5(v23, v24, v25) │
00:01:06 #8233 [verbose] > │ let v26 : string = "[" │
00:01:06 #8234 [verbose] > │ let v27 : string = "]" │
00:01:06 #8235 [verbose] > │ let v28 : string = $"{v26}{v13}{v27}" │
00:01:06 #8236 [verbose] > │ let v29 : (string -> unit) = v6.Push │
00:01:06 #8237 [verbose] > │ v29 v28 │
00:01:06 #8238 [verbose] > │ } │
00:01:06 #8239 [verbose] > │ |> fun x -> _v12 <- Some x │
00:01:06 #8240 [verbose] > │ let v30 : Async<unit> = _v12 |> Option.get │
00:01:06 #8241 [verbose] > │ v30 │
00:01:06 #8242 [verbose] > │ #endif │
00:01:06 #8243 [verbose] > │ #if FABLE_COMPILER_TYPESCRIPT │
00:01:06 #8244 [verbose] > │ let v31 : Async<unit> = null |> unbox<Async<unit>> │
00:01:06 #8245 [verbose] > │ v31 │
00:01:06 #8246 [verbose] > │ #endif │
00:01:06 #8247 [verbose] > │ #if FABLE_COMPILER_PYTHON || FABLE_COMPILER_PHP || FABLE_COMPILER_DART │
00:01:06 #8248 [verbose] > │ let v32 : Async<unit> = Unchecked.defaultof<Async<unit>> │
00:01:06 #8249 [verbose] > │ v32 │
00:01:06 #8250 [verbose] > │ #endif │
00:01:06 #8251 [verbose] > │ |> fun x -> _v8 <- Some x │
00:01:06 #8252 [verbose] > │ let v33 : Async<unit> = _v8.Value │
00:01:06 #8253 [verbose] > │ let v34 : unit option = None │
00:01:06 #8254 [verbose] > │ let mutable _v34 = v34 │
00:01:06 #8255 [verbose] > │ #if FABLE_COMPILER_RUST && !WASM && !CONTRACT │
00:01:06 #8256 [verbose] > │ null |> unbox<unit> │
00:01:06 #8257 [verbose] > │ () │
00:01:06 #8258 [verbose] > │ #endif │
00:01:06 #8259 [verbose] > │ #if FABLE_COMPILER_RUST && WASM │
00:01:06 #8260 [verbose] > │ null |> unbox<unit> │
00:01:06 #8261 [verbose] > │ () │
00:01:06 #8262 [verbose] > │ #endif │
00:01:06 #8263 [verbose] > │ #if FABLE_COMPILER_RUST && CONTRACT │
00:01:06 #8264 [verbose] > │ null |> unbox<unit> │
00:01:06 #8265 [verbose] > │ () │
00:01:06 #8266 [verbose] > │ #endif │
00:01:06 #8267 [verbose] > │ #if !FABLE_COMPILER && !FABLE_COMPILER_RUST && │
00:01:06 #8268 [verbose] > │ !FABLE_COMPILER_TYPESCRIPT && !WASM && !CONTRACT │
00:01:06 #8269 [verbose] > │ let v35 : (Async<unit> -> unit) = Async.StartImmediate │
00:01:06 #8270 [verbose] > │ v35 v33 │
00:01:06 #8271 [verbose] > │ () │
00:01:06 #8272 [verbose] > │ #endif │
00:01:06 #8273 [verbose] > │ #if FABLE_COMPILER_TYPESCRIPT │
00:01:06 #8274 [verbose] > │ null |> unbox<unit> │
00:01:06 #8275 [verbose] > │ () │
00:01:06 #8276 [verbose] > │ #endif │
00:01:06 #8277 [verbose] > │ #if FABLE_COMPILER_PYTHON || FABLE_COMPILER_PHP || FABLE_COMPILER_DART │
00:01:06 #8278 [verbose] > │ Unchecked.defaultof<unit> │
00:01:06 #8279 [verbose] > │ () │
00:01:06 #8280 [verbose] > │ #endif │
00:01:06 #8281 [verbose] > │ |> fun x -> _v34 <- Some x │
00:01:06 #8282 [verbose] > │ _v34.Value │
00:01:06 #8283 [verbose] > │ () │
00:01:06 #8284 [verbose] > │ and closure15 () (v0 : System.Threading.CancellationToken) : US7 = │
00:01:06 #8285 [verbose] > │ US7_0(v0) │
00:01:06 #8286 [verbose] > │ and method11 () : (System.Threading.CancellationToken -> US7) = │
00:01:06 #8287 [verbose] > │ closure15() │
00:01:06 #8288 [verbose] > │ and closure16 (v0 : System.Diagnostics.Process) () : unit = │
00:01:06 #8289 [verbose] > │ let v1 : bool option = None │
00:01:06 #8290 [verbose] > │ let mutable _v1 = v1 │
00:01:06 #8291 [verbose] > │ #if FABLE_COMPILER_RUST && !WASM && !CONTRACT │
00:01:06 #8292 [verbose] > │ let v2 : bool = null |> unbox<bool> │
00:01:06 #8293 [verbose] > │ v2 │
00:01:06 #8294 [verbose] > │ #endif │
00:01:06 #8295 [verbose] > │ #if FABLE_COMPILER_RUST && WASM │
00:01:06 #8296 [verbose] > │ let v3 : bool = null |> unbox<bool> │
00:01:06 #8297 [verbose] > │ v3 │
00:01:06 #8298 [verbose] > │ #endif │
00:01:06 #8299 [verbose] > │ #if FABLE_COMPILER_RUST && CONTRACT │
00:01:06 #8300 [verbose] > │ let v4 : bool = null |> unbox<bool> │
00:01:06 #8301 [verbose] > │ v4 │
00:01:06 #8302 [verbose] > │ #endif │
00:01:06 #8303 [verbose] > │ #if !FABLE_COMPILER && !FABLE_COMPILER_RUST && │
00:01:06 #8304 [verbose] > │ !FABLE_COMPILER_TYPESCRIPT && !WASM && !CONTRACT │
00:01:06 #8305 [verbose] > │ let v5 : bool = v0.HasExited │
00:01:06 #8306 [verbose] > │ v5 │
00:01:06 #8307 [verbose] > │ #endif │
00:01:06 #8308 [verbose] > │ #if FABLE_COMPILER_TYPESCRIPT │
00:01:06 #8309 [verbose] > │ let v6 : bool = null |> unbox<bool> │
00:01:06 #8310 [verbose] > │ v6 │
00:01:06 #8311 [verbose] > │ #endif │
00:01:06 #8312 [verbose] > │ #if FABLE_COMPILER_PYTHON || FABLE_COMPILER_PHP || FABLE_COMPILER_DART │
00:01:06 #8313 [verbose] > │ let v7 : bool = Unchecked.defaultof<bool> │
00:01:06 #8314 [verbose] > │ v7 │
00:01:06 #8315 [verbose] > │ #endif │
00:01:06 #8316 [verbose] > │ |> fun x -> _v1 <- Some x │
00:01:06 #8317 [verbose] > │ let v8 : bool = _v1.Value │
00:01:06 #8318 [verbose] > │ let v9 : bool = v8 = false │
00:01:06 #8319 [verbose] > │ if v9 then │
00:01:06 #8320 [verbose] > │ let v10 : unit option = None │
00:01:06 #8321 [verbose] > │ let mutable _v10 = v10 │
00:01:06 #8322 [verbose] > │ #if FABLE_COMPILER_RUST && !WASM && !CONTRACT │
00:01:06 #8323 [verbose] > │ null |> unbox<unit> │
00:01:06 #8324 [verbose] > │ () │
00:01:06 #8325 [verbose] > │ #endif │
00:01:06 #8326 [verbose] > │ #if FABLE_COMPILER_RUST && WASM │
00:01:06 #8327 [verbose] > │ null |> unbox<unit> │
00:01:06 #8328 [verbose] > │ () │
00:01:06 #8329 [verbose] > │ #endif │
00:01:06 #8330 [verbose] > │ #if FABLE_COMPILER_RUST && CONTRACT │
00:01:06 #8331 [verbose] > │ null |> unbox<unit> │
00:01:06 #8332 [verbose] > │ () │
00:01:06 #8333 [verbose] > │ #endif │
00:01:06 #8334 [verbose] > │ #if !FABLE_COMPILER && !FABLE_COMPILER_RUST && │
00:01:06 #8335 [verbose] > │ !FABLE_COMPILER_TYPESCRIPT && !WASM && !CONTRACT │
00:01:06 #8336 [verbose] > │ let v11 : (unit -> unit) = v0.Kill │
00:01:06 #8337 [verbose] > │ v11 () │
00:01:06 #8338 [verbose] > │ () │
00:01:06 #8339 [verbose] > │ #endif │
00:01:06 #8340 [verbose] > │ #if FABLE_COMPILER_TYPESCRIPT │
00:01:06 #8341 [verbose] > │ null |> unbox<unit> │
00:01:06 #8342 [verbose] > │ () │
00:01:06 #8343 [verbose] > │ #endif │
00:01:06 #8344 [verbose] > │ #if FABLE_COMPILER_PYTHON || FABLE_COMPILER_PHP || │
00:01:06 #8345 [verbose] > │ FABLE_COMPILER_DART │
00:01:06 #8346 [verbose] > │ Unchecked.defaultof<unit> │
00:01:06 #8347 [verbose] > │ () │
00:01:06 #8348 [verbose] > │ #endif │
00:01:06 #8349 [verbose] > │ |> fun x -> _v10 <- Some x │
00:01:06 #8350 [verbose] > │ _v10.Value │
00:01:06 #8351 [verbose] > │ () │
00:01:06 #8352 [verbose] > │ and closure17 (v0 : System.Threading.Tasks.TaskCanceledException) () : │
00:01:06 #8353 [verbose] > │ string = │
00:01:06 #8354 [verbose] > │ let v1 : string = $"execute_with_options_async / WaitForExitAsync / ex: │
00:01:06 #8355 [verbose] > │ %A{v0}" │
00:01:06 #8356 [verbose] > │ v1 │
00:01:06 #8357 [verbose] > │ and method12 () : string = │
00:01:06 #8358 [verbose] > │ let v0 : string = "\n" │
00:01:06 #8359 [verbose] > │ v0 │
00:01:06 #8360 [verbose] > │ and closure18 (v0 : int32, v1 : string) () : string = │
00:01:06 #8361 [verbose] > │ let v2 : string = $"execute_with_options_async / exit_code: {v0} / │
00:01:06 #8362 [verbose] > │ output.Length: {v1.Length}" │
00:01:06 #8363 [verbose] > │ v2 │
00:01:06 #8364 [verbose] > │ and closure19 () (v0 : US0) : US8 = │
00:01:06 #8365 [verbose] > │ US8_0(v0) │
00:01:06 #8366 [verbose] > │ and method13 () : (US0 -> US8) = │
00:01:06 #8367 [verbose] > │ closure19() │
00:01:06 #8368 [verbose] > │ and closure2 () (v0 : string) : Async<struct (int32 * string)> = │
00:01:06 #8369 [verbose] > │ let v1 : System.Threading.CancellationToken option = None │
00:01:06 #8370 [verbose] > │ let v2 : (struct (bool * string * int32) -> Async<unit>) option = None │
00:01:06 #8371 [verbose] > │ let v3 : string option = None │
00:01:06 #8372 [verbose] > │ let v4 : US0 option = None │
00:01:06 #8373 [verbose] > │ let v5 : Async<struct (int32 * string)> option = None │
00:01:06 #8374 [verbose] > │ let mutable _v5 = v5 │
00:01:06 #8375 [verbose] > │ #if FABLE_COMPILER_RUST && !WASM && !CONTRACT │
00:01:06 #8376 [verbose] > │ let v6 : Async<struct (int32 * string)> = null |> unbox<Async<struct │
00:01:06 #8377 [verbose] > │ (int32 * string)>> │
00:01:06 #8378 [verbose] > │ v6 │
00:01:06 #8379 [verbose] > │ #endif │
00:01:06 #8380 [verbose] > │ #if FABLE_COMPILER_RUST && WASM │
00:01:06 #8381 [verbose] > │ let v7 : Async<struct (int32 * string)> = null |> unbox<Async<struct │
00:01:06 #8382 [verbose] > │ (int32 * string)>> │
00:01:06 #8383 [verbose] > │ v7 │
00:01:06 #8384 [verbose] > │ #endif │
00:01:06 #8385 [verbose] > │ #if FABLE_COMPILER_RUST && CONTRACT │
00:01:06 #8386 [verbose] > │ let v8 : Async<struct (int32 * string)> = null |> unbox<Async<struct │
00:01:06 #8387 [verbose] > │ (int32 * string)>> │
00:01:06 #8388 [verbose] > │ v8 │
00:01:06 #8389 [verbose] > │ #endif │
00:01:06 #8390 [verbose] > │ #if !FABLE_COMPILER && !FABLE_COMPILER_RUST && │
00:01:06 #8391 [verbose] > │ !FABLE_COMPILER_TYPESCRIPT && !WASM && !CONTRACT │
00:01:06 #8392 [verbose] > │ let v9 : Async<struct (int32 * string)> option = None │
00:01:06 #8393 [verbose] > │ let mutable _v9 = v9 │
00:01:06 #8394 [verbose] > │ #if FABLE_COMPILER_RUST && !WASM && !CONTRACT │
00:01:06 #8395 [verbose] > │ let v10 : Async<struct (int32 * string)> = null |> unbox<Async<struct │
00:01:06 #8396 [verbose] > │ (int32 * string)>> │
00:01:06 #8397 [verbose] > │ v10 │
00:01:06 #8398 [verbose] > │ #endif │
00:01:06 #8399 [verbose] > │ #if FABLE_COMPILER_RUST && WASM │
00:01:06 #8400 [verbose] > │ let v11 : Async<struct (int32 * string)> = null |> unbox<Async<struct │
00:01:06 #8401 [verbose] > │ (int32 * string)>> │
00:01:06 #8402 [verbose] > │ v11 │
00:01:06 #8403 [verbose] > │ #endif │
00:01:06 #8404 [verbose] > │ #if FABLE_COMPILER_RUST && CONTRACT │
00:01:06 #8405 [verbose] > │ let v12 : Async<struct (int32 * string)> = null |> unbox<Async<struct │
00:01:06 #8406 [verbose] > │ (int32 * string)>> │
00:01:06 #8407 [verbose] > │ v12 │
00:01:06 #8408 [verbose] > │ #endif │
00:01:06 #8409 [verbose] > │ #if !FABLE_COMPILER && !FABLE_COMPILER_RUST && │
00:01:06 #8410 [verbose] > │ !FABLE_COMPILER_TYPESCRIPT && !WASM && !CONTRACT │
00:01:06 #8411 [verbose] > │ let v13 : Async<struct (int32 * string)> option = None │
00:01:06 #8412 [verbose] > │ let mutable _v13 = v13 │
00:01:06 #8413 [verbose] > │ async { │
00:01:06 #8414 [verbose] > │ let struct (v14 : string, v15 : string) = method0() │
00:01:06 #8415 [verbose] > │ let v16 : char seq = v0 |> unbox<char seq> │
00:01:06 #8416 [verbose] > │ let v17 : (char seq -> char list) = Seq.toList │
00:01:06 #8417 [verbose] > │ let v18 : char list = v17 v16 │
00:01:06 #8418 [verbose] > │ let v19 : ((char -> (UH0 -> UH0)) -> (char list -> (UH0 -> UH0))) = │
00:01:06 #8419 [verbose] > │ List.foldBack │
00:01:06 #8420 [verbose] > │ let v20 : (char -> (UH0 -> UH0)) = method1() │
00:01:06 #8421 [verbose] > │ let v21 : (char list -> (UH0 -> UH0)) = v19 v20 │
00:01:06 #8422 [verbose] > │ let v22 : (UH0 -> UH0) = v21 v18 │
00:01:06 #8423 [verbose] > │ let v23 : UH0 = UH0_0 │
00:01:06 #8424 [verbose] > │ let v24 : UH0 = v22 v23 │
00:01:06 #8425 [verbose] > │ let v25 : US1 = US1_0 │
00:01:06 #8426 [verbose] > │ let struct (v26 : string, v27 : string) = method2(v15, v14, v24, v25) │
00:01:06 #8427 [verbose] > │ let v28 : (string -> US3) = method3() │
00:01:06 #8428 [verbose] > │ let v29 : US3 = US3_1 │
00:01:06 #8429 [verbose] > │ let v30 : US3 = v3 |> Option.map v28 |> Option.defaultValue v29 │
00:01:06 #8430 [verbose] > │ let v34 : string = │
00:01:06 #8431 [verbose] > │ match v30 with │
00:01:06 #8432 [verbose] > │ | US3_1 -> (* None *) │
00:01:06 #8433 [verbose] > │ let v32 : string = "" │
00:01:06 #8434 [verbose] > │ v32 │
00:01:06 #8435 [verbose] > │ | US3_0(v31) -> (* Some *) │
00:01:06 #8436 [verbose] > │ v31 │
00:01:06 #8437 [verbose] > │ let v35 : US0 = US0_1 │
00:01:06 #8438 [verbose] > │ let v36 : (unit -> string) = closure6(v1, v0, v2, v4, v3) │
00:01:06 #8439 [verbose] > │ let v37 : (unit -> string) = method4() │
00:01:06 #8440 [verbose] > │ method5(v35, v36, v37) │
00:01:06 #8441 [verbose] > │ let v38 : System.Text.Encoding = System.Text.Encoding.UTF8 │
00:01:06 #8442 [verbose] > │ let v39 : System.Diagnostics.ProcessStartInfo = │
00:01:06 #8443 [verbose] > │ System.Diagnostics.ProcessStartInfo (Arguments = v27, StandardOutputEncoding │
00:01:06 #8444 [verbose] > │ = v38, WorkingDirectory = v34, FileName = v26, CreateNoWindow = true, │
00:01:06 #8445 [verbose] > │ RedirectStandardError = true, RedirectStandardOutput = true, UseShellExecute │
00:01:06 #8446 [verbose] > │ = false) │
00:01:06 #8447 [verbose] > │ let v40 : System.Diagnostics.Process = new System.Diagnostics.Process │
00:01:06 #8448 [verbose] > │ (StartInfo = v39) │
00:01:06 #8449 [verbose] > │ use v40 = v40 │
00:01:06 #8450 [verbose] > │ let v41 : System.Diagnostics.Process = v40 │
00:01:06 #8451 [verbose] > │ let v42 : (unit -> │
00:01:06 #8452 [verbose] > │ System.Collections.Concurrent.ConcurrentStack<string>) = │
00:01:06 #8453 [verbose] > │ System.Collections.Concurrent.ConcurrentStack<string> │
00:01:06 #8454 [verbose] > │ let v43 : System.Collections.Concurrent.ConcurrentStack<string> = v42 () │
00:01:06 #8455 [verbose] > │ let v44 : (System.Diagnostics.DataReceivedEventArgs -> unit) = │
00:01:06 #8456 [verbose] > │ closure11(v1, v0, v2, v4, v3, v41, v43) │
00:01:06 #8457 [verbose] > │ v41.OutputDataReceived.Add v44 │
00:01:06 #8458 [verbose] > │ let v45 : (System.Diagnostics.DataReceivedEventArgs -> unit) = │
00:01:06 #8459 [verbose] > │ closure14(v1, v0, v2, v4, v3, v41, v43) │
00:01:06 #8460 [verbose] > │ v41.ErrorDataReceived.Add v45 │
00:01:06 #8461 [verbose] > │ let v46 : (unit -> bool) = v41.Start │
00:01:06 #8462 [verbose] > │ let v47 : bool = v46 () │
00:01:06 #8463 [verbose] > │ let v48 : bool = v47 = false │
00:01:06 #8464 [verbose] > │ if v48 then │
00:01:06 #8465 [verbose] > │ let v49 : string = $"execute_with_options_async / process_start │
00:01:06 #8466 [verbose] > │ error" │
00:01:06 #8467 [verbose] > │ failwith<unit> v49 │
00:01:06 #8468 [verbose] > │ let v50 : (unit -> unit) = v41.BeginErrorReadLine │
00:01:06 #8469 [verbose] > │ v50 () │
00:01:06 #8470 [verbose] > │ let v51 : (unit -> unit) = v41.BeginOutputReadLine │
00:01:06 #8471 [verbose] > │ v51 () │
00:01:06 #8472 [verbose] > │ let v52 : (System.Threading.CancellationToken -> US7) = method11() │
00:01:06 #8473 [verbose] > │ let v53 : US7 = US7_1 │
00:01:06 #8474 [verbose] > │ let v54 : US7 = v1 |> Option.map v52 |> Option.defaultValue v53 │
00:01:06 #8475 [verbose] > │ let v58 : System.Threading.CancellationToken = │
00:01:06 #8476 [verbose] > │ match v54 with │
00:01:06 #8477 [verbose] > │ | US7_1 -> (* None *) │
00:01:06 #8478 [verbose] > │ let v56 : System.Threading.CancellationToken = │
00:01:06 #8479 [verbose] > │ System.Threading.CancellationToken.None │
00:01:06 #8480 [verbose] > │ v56 │
00:01:06 #8481 [verbose] > │ | US7_0(v55) -> (* Some *) │
00:01:06 #8482 [verbose] > │ v55 │
00:01:06 #8483 [verbose] > │ let v59 : Async<System.Threading.CancellationToken> option = None │
00:01:06 #8484 [verbose] > │ let mutable _v59 = v59 │
00:01:06 #8485 [verbose] > │ #if FABLE_COMPILER_RUST && !WASM && !CONTRACT │
00:01:06 #8486 [verbose] > │ let v60 : Async<System.Threading.CancellationToken> = null |> │
00:01:06 #8487 [verbose] > │ unbox<Async<System.Threading.CancellationToken>> │
00:01:06 #8488 [verbose] > │ v60 │
00:01:06 #8489 [verbose] > │ #endif │
00:01:06 #8490 [verbose] > │ #if FABLE_COMPILER_RUST && WASM │
00:01:06 #8491 [verbose] > │ let v61 : Async<System.Threading.CancellationToken> = null |> │
00:01:06 #8492 [verbose] > │ unbox<Async<System.Threading.CancellationToken>> │
00:01:06 #8493 [verbose] > │ v61 │
00:01:06 #8494 [verbose] > │ #endif │
00:01:06 #8495 [verbose] > │ #if FABLE_COMPILER_RUST && CONTRACT │
00:01:06 #8496 [verbose] > │ let v62 : Async<System.Threading.CancellationToken> = null |> │
00:01:06 #8497 [verbose] > │ unbox<Async<System.Threading.CancellationToken>> │
00:01:06 #8498 [verbose] > │ v62 │
00:01:06 #8499 [verbose] > │ #endif │
00:01:06 #8500 [verbose] > │ #if !FABLE_COMPILER && !FABLE_COMPILER_RUST && │
00:01:06 #8501 [verbose] > │ !FABLE_COMPILER_TYPESCRIPT && !WASM && !CONTRACT │
00:01:06 #8502 [verbose] > │ let v63 : Async<System.Threading.CancellationToken> option = None │
00:01:06 #8503 [verbose] > │ let mutable _v63 = v63 │
00:01:06 #8504 [verbose] > │ #if FABLE_COMPILER_RUST && !WASM && !CONTRACT │
00:01:06 #8505 [verbose] > │ let v64 : Async<System.Threading.CancellationToken> = null |> │
00:01:06 #8506 [verbose] > │ unbox<Async<System.Threading.CancellationToken>> │
00:01:06 #8507 [verbose] > │ v64 │
00:01:06 #8508 [verbose] > │ #endif │
00:01:06 #8509 [verbose] > │ #if FABLE_COMPILER_RUST && WASM │
00:01:06 #8510 [verbose] > │ let v65 : Async<System.Threading.CancellationToken> = null |> │
00:01:06 #8511 [verbose] > │ unbox<Async<System.Threading.CancellationToken>> │
00:01:06 #8512 [verbose] > │ v65 │
00:01:06 #8513 [verbose] > │ #endif │
00:01:06 #8514 [verbose] > │ #if FABLE_COMPILER_RUST && CONTRACT │
00:01:06 #8515 [verbose] > │ let v66 : Async<System.Threading.CancellationToken> = null |> │
00:01:06 #8516 [verbose] > │ unbox<Async<System.Threading.CancellationToken>> │
00:01:06 #8517 [verbose] > │ v66 │
00:01:06 #8518 [verbose] > │ #endif │
00:01:06 #8519 [verbose] > │ #if !FABLE_COMPILER && !FABLE_COMPILER_RUST && │
00:01:06 #8520 [verbose] > │ !FABLE_COMPILER_TYPESCRIPT && !WASM && !CONTRACT │
00:01:06 #8521 [verbose] > │ let v67 : Async<System.Threading.CancellationToken> option = None │
00:01:06 #8522 [verbose] > │ let mutable _v67 = v67 │
00:01:06 #8523 [verbose] > │ async { │
00:01:06 #8524 [verbose] > │ let v68 : Async<System.Threading.CancellationToken> = │
00:01:06 #8525 [verbose] > │ Async.CancellationToken │
00:01:06 #8526 [verbose] > │ let! v68 = v68 │
00:01:06 #8527 [verbose] > │ let v69 : System.Threading.CancellationToken = v68 │
00:01:06 #8528 [verbose] > │ let v70 : System.Threading.CancellationToken = │
00:01:06 #8529 [verbose] > │ Async.DefaultCancellationToken │
00:01:06 #8530 [verbose] > │ let v71 : (System.Threading.CancellationToken []) = [|v69; v70; v58|] │
00:01:06 #8531 [verbose] > │ let v72 : ((System.Threading.CancellationToken []) -> │
00:01:06 #8532 [verbose] > │ System.Threading.CancellationTokenSource) = │
00:01:06 #8533 [verbose] > │ System.Threading.CancellationTokenSource.CreateLinkedTokenSource │
00:01:06 #8534 [verbose] > │ let v73 : System.Threading.CancellationTokenSource = v72 v71 │
00:01:06 #8535 [verbose] > │ let v74 : System.Threading.CancellationToken = v73.Token │
00:01:06 #8536 [verbose] > │ return v74 │
00:01:06 #8537 [verbose] > │ } │
00:01:06 #8538 [verbose] > │ |> fun x -> _v67 <- Some x │
00:01:06 #8539 [verbose] > │ let v75 : Async<System.Threading.CancellationToken> = _v67 |> Option.get │
00:01:06 #8540 [verbose] > │ v75 │
00:01:06 #8541 [verbose] > │ #endif │
00:01:06 #8542 [verbose] > │ #if FABLE_COMPILER_TYPESCRIPT │
00:01:06 #8543 [verbose] > │ let v76 : Async<System.Threading.CancellationToken> = null |> │
00:01:06 #8544 [verbose] > │ unbox<Async<System.Threading.CancellationToken>> │
00:01:06 #8545 [verbose] > │ v76 │
00:01:06 #8546 [verbose] > │ #endif │
00:01:06 #8547 [verbose] > │ #if FABLE_COMPILER_PYTHON || FABLE_COMPILER_PHP || FABLE_COMPILER_DART │
00:01:06 #8548 [verbose] > │ let v77 : Async<System.Threading.CancellationToken> = │
00:01:06 #8549 [verbose] > │ Unchecked.defaultof<Async<System.Threading.CancellationToken>> │
00:01:06 #8550 [verbose] > │ v77 │
00:01:06 #8551 [verbose] > │ #endif │
00:01:06 #8552 [verbose] > │ |> fun x -> _v63 <- Some x │
00:01:06 #8553 [verbose] > │ let v78 : Async<System.Threading.CancellationToken> = _v63.Value │
00:01:06 #8554 [verbose] > │ v78 │
00:01:06 #8555 [verbose] > │ #endif │
00:01:06 #8556 [verbose] > │ #if FABLE_COMPILER_TYPESCRIPT │
00:01:06 #8557 [verbose] > │ let v79 : Async<System.Threading.CancellationToken> = null |> │
00:01:06 #8558 [verbose] > │ unbox<Async<System.Threading.CancellationToken>> │
00:01:06 #8559 [verbose] > │ v79 │
00:01:06 #8560 [verbose] > │ #endif │
00:01:06 #8561 [verbose] > │ #if FABLE_COMPILER_PYTHON || FABLE_COMPILER_PHP || FABLE_COMPILER_DART │
00:01:06 #8562 [verbose] > │ let v80 : Async<System.Threading.CancellationToken> = │
00:01:06 #8563 [verbose] > │ Unchecked.defaultof<Async<System.Threading.CancellationToken>> │
00:01:06 #8564 [verbose] > │ v80 │
00:01:06 #8565 [verbose] > │ #endif │
00:01:06 #8566 [verbose] > │ |> fun x -> _v59 <- Some x │
00:01:06 #8567 [verbose] > │ let v81 : Async<System.Threading.CancellationToken> = _v59.Value │
00:01:06 #8568 [verbose] > │ let! v81 = v81 │
00:01:06 #8569 [verbose] > │ let v82 : System.Threading.CancellationToken = v81 │
00:01:06 #8570 [verbose] > │ let v83 : ((unit -> unit) -> │
00:01:06 #8571 [verbose] > │ System.Threading.CancellationTokenRegistration) = v82.Register │
00:01:06 #8572 [verbose] > │ let v84 : (unit -> unit) = closure16(v41) │
00:01:06 #8573 [verbose] > │ let v85 : System.Threading.CancellationTokenRegistration = v83 v84 │
00:01:06 #8574 [verbose] > │ use v85 = v85 │
00:01:06 #8575 [verbose] > │ let v86 : System.Threading.CancellationTokenRegistration = v85 │
00:01:06 #8576 [verbose] > │ let v87 : Async<int32> option = None │
00:01:06 #8577 [verbose] > │ let mutable _v87 = v87 │
00:01:06 #8578 [verbose] > │ #if FABLE_COMPILER_RUST && !WASM && !CONTRACT │
00:01:06 #8579 [verbose] > │ let v88 : Async<int32> = null |> unbox<Async<int32>> │
00:01:06 #8580 [verbose] > │ v88 │
00:01:06 #8581 [verbose] > │ #endif │
00:01:06 #8582 [verbose] > │ #if FABLE_COMPILER_RUST && WASM │
00:01:06 #8583 [verbose] > │ let v89 : Async<int32> = null |> unbox<Async<int32>> │
00:01:06 #8584 [verbose] > │ v89 │
00:01:06 #8585 [verbose] > │ #endif │
00:01:06 #8586 [verbose] > │ #if FABLE_COMPILER_RUST && CONTRACT │
00:01:06 #8587 [verbose] > │ let v90 : Async<int32> = null |> unbox<Async<int32>> │
00:01:06 #8588 [verbose] > │ v90 │
00:01:06 #8589 [verbose] > │ #endif │
00:01:06 #8590 [verbose] > │ #if !FABLE_COMPILER && !FABLE_COMPILER_RUST && │
00:01:06 #8591 [verbose] > │ !FABLE_COMPILER_TYPESCRIPT && !WASM && !CONTRACT │
00:01:06 #8592 [verbose] > │ let v91 : Async<int32> option = None │
00:01:06 #8593 [verbose] > │ let mutable _v91 = v91 │
00:01:06 #8594 [verbose] > │ async { │
00:01:06 #8595 [verbose] > │ try │
00:01:06 #8596 [verbose] > │ let v92 : System.Threading.Tasks.Task = v41.WaitForExitAsync v82 │
00:01:06 #8597 [verbose] > │ let v93 : Async<unit> option = None │
00:01:06 #8598 [verbose] > │ let mutable _v93 = v93 │
00:01:06 #8599 [verbose] > │ #if FABLE_COMPILER_RUST && !WASM && !CONTRACT │
00:01:06 #8600 [verbose] > │ let v94 : Async<unit> = null |> unbox<Async<unit>> │
00:01:06 #8601 [verbose] > │ v94 │
00:01:06 #8602 [verbose] > │ #endif │
00:01:06 #8603 [verbose] > │ #if FABLE_COMPILER_RUST && WASM │
00:01:06 #8604 [verbose] > │ let v95 : Async<unit> = null |> unbox<Async<unit>> │
00:01:06 #8605 [verbose] > │ v95 │
00:01:06 #8606 [verbose] > │ #endif │
00:01:06 #8607 [verbose] > │ #if FABLE_COMPILER_RUST && CONTRACT │
00:01:06 #8608 [verbose] > │ let v96 : Async<unit> = null |> unbox<Async<unit>> │
00:01:06 #8609 [verbose] > │ v96 │
00:01:06 #8610 [verbose] > │ #endif │
00:01:06 #8611 [verbose] > │ #if !FABLE_COMPILER && !FABLE_COMPILER_RUST && │
00:01:06 #8612 [verbose] > │ !FABLE_COMPILER_TYPESCRIPT && !WASM && !CONTRACT │
00:01:06 #8613 [verbose] > │ let v97 : (System.Threading.Tasks.Task -> Async<unit>) = Async.AwaitTask │
00:01:06 #8614 [verbose] > │ let v98 : Async<unit> = v97 v92 │
00:01:06 #8615 [verbose] > │ v98 │
00:01:06 #8616 [verbose] > │ #endif │
00:01:06 #8617 [verbose] > │ #if FABLE_COMPILER_TYPESCRIPT │
00:01:06 #8618 [verbose] > │ let v99 : Async<unit> = null |> unbox<Async<unit>> │
00:01:06 #8619 [verbose] > │ v99 │
00:01:06 #8620 [verbose] > │ #endif │
00:01:06 #8621 [verbose] > │ #if FABLE_COMPILER_PYTHON || FABLE_COMPILER_PHP || FABLE_COMPILER_DART │
00:01:06 #8622 [verbose] > │ let v100 : Async<unit> = Unchecked.defaultof<Async<unit>> │
00:01:06 #8623 [verbose] > │ v100 │
00:01:06 #8624 [verbose] > │ #endif │
00:01:06 #8625 [verbose] > │ |> fun x -> _v93 <- Some x │
00:01:06 #8626 [verbose] > │ let v101 : Async<unit> = _v93.Value │
00:01:06 #8627 [verbose] > │ do! v101 │
00:01:06 #8628 [verbose] > │ let v102 : int32 = v41.ExitCode │
00:01:06 #8629 [verbose] > │ return v102 │
00:01:06 #8630 [verbose] > │ with ex -> │
00:01:06 #8631 [verbose] > │ let v103 : exn = ex │
00:01:06 #8632 [verbose] > │ let v104 : string option = None │
00:01:06 #8633 [verbose] > │ let mutable _v104 = v104 │
00:01:06 #8634 [verbose] > │ #if FABLE_COMPILER_RUST && !WASM && !CONTRACT │
00:01:06 #8635 [verbose] > │ let v105 : string = $"%A{v103}" │
00:01:06 #8636 [verbose] > │ v105 │
00:01:06 #8637 [verbose] > │ #endif │
00:01:06 #8638 [verbose] > │ #if FABLE_COMPILER_RUST && WASM │
00:01:06 #8639 [verbose] > │ let v106 : string = $"%A{v103}" │
00:01:06 #8640 [verbose] > │ v106 │
00:01:06 #8641 [verbose] > │ #endif │
00:01:06 #8642 [verbose] > │ #if FABLE_COMPILER_RUST && CONTRACT │
00:01:06 #8643 [verbose] > │ let v107 : string = $"%A{v103}" │
00:01:06 #8644 [verbose] > │ v107 │
00:01:06 #8645 [verbose] > │ #endif │
00:01:06 #8646 [verbose] > │ #if !FABLE_COMPILER && !FABLE_COMPILER_RUST && │
00:01:06 #8647 [verbose] > │ !FABLE_COMPILER_TYPESCRIPT && !WASM && !CONTRACT │
00:01:06 #8648 [verbose] > │ let v108 : string = $"{v103.GetType ()}: {v103.Message}" │
00:01:06 #8649 [verbose] > │ v108 │
00:01:06 #8650 [verbose] > │ #endif │
00:01:06 #8651 [verbose] > │ #if FABLE_COMPILER_TYPESCRIPT │
00:01:06 #8652 [verbose] > │ let v109 : string = $"%A{v103}" │
00:01:06 #8653 [verbose] > │ v109 │
00:01:06 #8654 [verbose] > │ #endif │
00:01:06 #8655 [verbose] > │ #if FABLE_COMPILER_PYTHON || FABLE_COMPILER_PHP || FABLE_COMPILER_DART │
00:01:06 #8656 [verbose] > │ let v110 : string = Unchecked.defaultof<string> │
00:01:06 #8657 [verbose] > │ v110 │
00:01:06 #8658 [verbose] > │ #endif │
00:01:06 #8659 [verbose] > │ |> fun x -> _v104 <- Some x │
00:01:06 #8660 [verbose] > │ let v111 : string = _v104.Value │
00:01:06 #8661 [verbose] > │ let v112 : (string -> unit) = v43.Push │
00:01:06 #8662 [verbose] > │ v112 v111 │
00:01:06 #8663 [verbose] > │ let v113 : System.Threading.Tasks.TaskCanceledException = v103 |> │
00:01:06 #8664 [verbose] > │ unbox<System.Threading.Tasks.TaskCanceledException> │
00:01:06 #8665 [verbose] > │ let v114 : US0 = US0_3 │
00:01:06 #8666 [verbose] > │ let v115 : (unit -> string) = closure17(v113) │
00:01:06 #8667 [verbose] > │ let v116 : (unit -> string) = method4() │
00:01:06 #8668 [verbose] > │ method5(v114, v115, v116) │
00:01:06 #8669 [verbose] > │ return -2147483648 │
00:01:06 #8670 [verbose] > │ (* │
00:01:06 #8671 [verbose] > │ *) │
00:01:06 #8672 [verbose] > │ } │
00:01:06 #8673 [verbose] > │ |> fun x -> _v91 <- Some x │
00:01:06 #8674 [verbose] > │ let v117 : Async<int32> = _v91 |> Option.get │
00:01:06 #8675 [verbose] > │ v117 │
00:01:06 #8676 [verbose] > │ #endif │
00:01:06 #8677 [verbose] > │ #if FABLE_COMPILER_TYPESCRIPT │
00:01:06 #8678 [verbose] > │ let v118 : Async<int32> = null |> unbox<Async<int32>> │
00:01:06 #8679 [verbose] > │ v118 │
00:01:06 #8680 [verbose] > │ #endif │
00:01:06 #8681 [verbose] > │ #if FABLE_COMPILER_PYTHON || FABLE_COMPILER_PHP || FABLE_COMPILER_DART │
00:01:06 #8682 [verbose] > │ let v119 : Async<int32> = Unchecked.defaultof<Async<int32>> │
00:01:06 #8683 [verbose] > │ v119 │
00:01:06 #8684 [verbose] > │ #endif │
00:01:06 #8685 [verbose] > │ |> fun x -> _v87 <- Some x │
00:01:06 #8686 [verbose] > │ let v120 : Async<int32> = _v87.Value │
00:01:06 #8687 [verbose] > │ let! v120 = v120 │
00:01:06 #8688 [verbose] > │ let v121 : int32 = v120 │
00:01:06 #8689 [verbose] > │ let v122 : (System.Collections.Concurrent.ConcurrentStack<string> -> │
00:01:06 #8690 [verbose] > │ string seq) = Seq.rev │
00:01:06 #8691 [verbose] > │ let v123 : string seq = v122 v43 │
00:01:06 #8692 [verbose] > │ let v124 : string = method12() │
00:01:06 #8693 [verbose] > │ let v125 : (string -> (string seq -> string)) = String.concat │
00:01:06 #8694 [verbose] > │ let v126 : (string seq -> string) = v125 v124 │
00:01:06 #8695 [verbose] > │ let v127 : string = v126 v123 │
00:01:06 #8696 [verbose] > │ let v128 : US0 = US0_1 │
00:01:06 #8697 [verbose] > │ let v129 : (unit -> string) = closure18(v121, v127) │
00:01:06 #8698 [verbose] > │ let v130 : (unit -> string) = method4() │
00:01:06 #8699 [verbose] > │ method5(v128, v129, v130) │
00:01:06 #8700 [verbose] > │ return struct (v121, v127) │
00:01:06 #8701 [verbose] > │ } │
00:01:06 #8702 [verbose] > │ |> fun x -> _v13 <- Some x │
00:01:06 #8703 [verbose] > │ let v131 : Async<struct (int32 * string)> = _v13 |> Option.get │
00:01:06 #8704 [verbose] > │ v131 │
00:01:06 #8705 [verbose] > │ #endif │
00:01:06 #8706 [verbose] > │ #if FABLE_COMPILER_TYPESCRIPT │
00:01:06 #8707 [verbose] > │ let v132 : Async<struct (int32 * string)> = null |> unbox<Async<struct │
00:01:06 #8708 [verbose] > │ (int32 * string)>> │
00:01:06 #8709 [verbose] > │ v132 │
00:01:06 #8710 [verbose] > │ #endif │
00:01:06 #8711 [verbose] > │ #if FABLE_COMPILER_PYTHON || FABLE_COMPILER_PHP || FABLE_COMPILER_DART │
00:01:06 #8712 [verbose] > │ let v133 : Async<struct (int32 * string)> = │
00:01:06 #8713 [verbose] > │ Unchecked.defaultof<Async<struct (int32 * string)>> │
00:01:06 #8714 [verbose] > │ v133 │
00:01:06 #8715 [verbose] > │ #endif │
00:01:06 #8716 [verbose] > │ |> fun x -> _v9 <- Some x │
00:01:06 #8717 [verbose] > │ let v134 : Async<struct (int32 * string)> = _v9.Value │
00:01:06 #8718 [verbose] > │ let v135 : (US0 -> US8) = method13() │
00:01:06 #8719 [verbose] > │ let v136 : US8 = US8_1 │
00:01:06 #8720 [verbose] > │ let v137 : US8 = v4 |> Option.map v135 |> Option.defaultValue v136 │
00:01:06 #8721 [verbose] > │ let v158 : Async<struct (int32 * string)> = │
00:01:06 #8722 [verbose] > │ match v137 with │
00:01:06 #8723 [verbose] > │ | US8_1 -> (* None *) │
00:01:06 #8724 [verbose] > │ v134 │
00:01:06 #8725 [verbose] > │ | US8_0(v138) -> (* Some *) │
00:01:06 #8726 [verbose] > │ let v139 : Async<struct (int32 * string)> option = None │
00:01:06 #8727 [verbose] > │ let mutable _v139 = v139 │
00:01:06 #8728 [verbose] > │ #if FABLE_COMPILER_RUST && !WASM && !CONTRACT │
00:01:06 #8729 [verbose] > │ let v140 : Async<struct (int32 * string)> = null |> │
00:01:06 #8730 [verbose] > │ unbox<Async<struct (int32 * string)>> │
00:01:06 #8731 [verbose] > │ v140 │
00:01:06 #8732 [verbose] > │ #endif │
00:01:06 #8733 [verbose] > │ #if FABLE_COMPILER_RUST && WASM │
00:01:06 #8734 [verbose] > │ let v141 : Async<struct (int32 * string)> = null |> │
00:01:06 #8735 [verbose] > │ unbox<Async<struct (int32 * string)>> │
00:01:06 #8736 [verbose] > │ v141 │
00:01:06 #8737 [verbose] > │ #endif │
00:01:06 #8738 [verbose] > │ #if FABLE_COMPILER_RUST && CONTRACT │
00:01:06 #8739 [verbose] > │ let v142 : Async<struct (int32 * string)> = null |> │
00:01:06 #8740 [verbose] > │ unbox<Async<struct (int32 * string)>> │
00:01:06 #8741 [verbose] > │ v142 │
00:01:06 #8742 [verbose] > │ #endif │
00:01:06 #8743 [verbose] > │ #if !FABLE_COMPILER && !FABLE_COMPILER_RUST && │
00:01:06 #8744 [verbose] > │ !FABLE_COMPILER_TYPESCRIPT && !WASM && !CONTRACT │
00:01:06 #8745 [verbose] > │ let v143 : Async<struct (int32 * string)> option = None │
00:01:06 #8746 [verbose] > │ let mutable _v143 = v143 │
00:01:06 #8747 [verbose] > │ async { │
00:01:06 #8748 [verbose] > │ let v144 : (unit -> struct (Mut0 * Mut1 * Mut1 * Mut2 * int64 │
00:01:06 #8749 [verbose] > │ option)) = closure8() │
00:01:06 #8750 [verbose] > │ if State.trace_state = None then State.trace_state <- v144 () |> │
00:01:06 #8751 [verbose] > │ Some │
00:01:06 #8752 [verbose] > │ let struct (v145 : Mut0, v146 : Mut1, v147 : Mut1, v148 : Mut2, │
00:01:06 #8753 [verbose] > │ v149 : int64 option) = State.trace_state.Value │
00:01:06 #8754 [verbose] > │ let v150 : US0 = v148.l0 │
00:01:06 #8755 [verbose] > │ try │
00:01:06 #8756 [verbose] > │ v148.l0 <- v138 │
00:01:06 #8757 [verbose] > │ return! v134 │
00:01:06 #8758 [verbose] > │ finally │
00:01:06 #8759 [verbose] > │ v148.l0 <- v150 │
00:01:06 #8760 [verbose] > │ (* │
00:01:06 #8761 [verbose] > │ let struct (v151 : int32, v152 : string) = *) │
00:01:06 #8762 [verbose] > │ } │
00:01:06 #8763 [verbose] > │ |> fun x -> _v143 <- Some x │
00:01:06 #8764 [verbose] > │ let v153 : Async<struct (int32 * string)> = _v143 |> Option.get │
00:01:06 #8765 [verbose] > │ v153 │
00:01:06 #8766 [verbose] > │ #endif │
00:01:06 #8767 [verbose] > │ #if FABLE_COMPILER_TYPESCRIPT │
00:01:06 #8768 [verbose] > │ let v154 : Async<struct (int32 * string)> = null |> │
00:01:06 #8769 [verbose] > │ unbox<Async<struct (int32 * string)>> │
00:01:06 #8770 [verbose] > │ v154 │
00:01:06 #8771 [verbose] > │ #endif │
00:01:06 #8772 [verbose] > │ #if FABLE_COMPILER_PYTHON || FABLE_COMPILER_PHP || │
00:01:06 #8773 [verbose] > │ FABLE_COMPILER_DART │
00:01:06 #8774 [verbose] > │ let v155 : Async<struct (int32 * string)> = │
00:01:06 #8775 [verbose] > │ Unchecked.defaultof<Async<struct (int32 * string)>> │
00:01:06 #8776 [verbose] > │ v155 │
00:01:06 #8777 [verbose] > │ #endif │
00:01:06 #8778 [verbose] > │ |> fun x -> _v139 <- Some x │
00:01:06 #8779 [verbose] > │ let v156 : Async<struct (int32 * string)> = _v139.Value │
00:01:06 #8780 [verbose] > │ v156 │
00:01:06 #8781 [verbose] > │ v158 │
00:01:06 #8782 [verbose] > │ #endif │
00:01:06 #8783 [verbose] > │ #if FABLE_COMPILER_TYPESCRIPT │
00:01:06 #8784 [verbose] > │ let v159 : Async<struct (int32 * string)> = null |> unbox<Async<struct │
00:01:06 #8785 [verbose] > │ (int32 * string)>> │
00:01:06 #8786 [verbose] > │ v159 │
00:01:06 #8787 [verbose] > │ #endif │
00:01:06 #8788 [verbose] > │ #if FABLE_COMPILER_PYTHON || FABLE_COMPILER_PHP || FABLE_COMPILER_DART │
00:01:06 #8789 [verbose] > │ let v160 : Async<struct (int32 * string)> = │
00:01:06 #8790 [verbose] > │ Unchecked.defaultof<Async<struct (int32 * string)>> │
00:01:06 #8791 [verbose] > │ v160 │
00:01:06 #8792 [verbose] > │ #endif │
00:01:06 #8793 [verbose] > │ |> fun x -> _v5 <- Some x │
00:01:06 #8794 [verbose] > │ let v161 : Async<struct (int32 * string)> = _v5.Value │
00:01:06 #8795 [verbose] > │ v161 │
00:01:06 #8796 [verbose] > │ and closure20 () struct (v0 : System.Threading.CancellationToken option, v1 │
00:01:06 #8797 [verbose] > │ : string, v2 : (struct (bool * string * int32) -> Async<unit>) option, v3 : │
00:01:06 #8798 [verbose] > │ US0 option, v4 : string option) : Async<struct (int32 * string)> = │
00:01:06 #8799 [verbose] > │ let v5 : Async<struct (int32 * string)> option = None │
00:01:06 #8800 [verbose] > │ let mutable _v5 = v5 │
00:01:06 #8801 [verbose] > │ #if FABLE_COMPILER_RUST && !WASM && !CONTRACT │
00:01:06 #8802 [verbose] > │ let v6 : Async<struct (int32 * string)> = null |> unbox<Async<struct │
00:01:06 #8803 [verbose] > │ (int32 * string)>> │
00:01:06 #8804 [verbose] > │ v6 │
00:01:06 #8805 [verbose] > │ #endif │
00:01:06 #8806 [verbose] > │ #if FABLE_COMPILER_RUST && WASM │
00:01:06 #8807 [verbose] > │ let v7 : Async<struct (int32 * string)> = null |> unbox<Async<struct │
00:01:06 #8808 [verbose] > │ (int32 * string)>> │
00:01:06 #8809 [verbose] > │ v7 │
00:01:06 #8810 [verbose] > │ #endif │
00:01:06 #8811 [verbose] > │ #if FABLE_COMPILER_RUST && CONTRACT │
00:01:06 #8812 [verbose] > │ let v8 : Async<struct (int32 * string)> = null |> unbox<Async<struct │
00:01:06 #8813 [verbose] > │ (int32 * string)>> │
00:01:06 #8814 [verbose] > │ v8 │
00:01:06 #8815 [verbose] > │ #endif │
00:01:06 #8816 [verbose] > │ #if !FABLE_COMPILER && !FABLE_COMPILER_RUST && │
00:01:06 #8817 [verbose] > │ !FABLE_COMPILER_TYPESCRIPT && !WASM && !CONTRACT │
00:01:06 #8818 [verbose] > │ let v9 : Async<struct (int32 * string)> option = None │
00:01:06 #8819 [verbose] > │ let mutable _v9 = v9 │
00:01:06 #8820 [verbose] > │ #if FABLE_COMPILER_RUST && !WASM && !CONTRACT │
00:01:06 #8821 [verbose] > │ let v10 : Async<struct (int32 * string)> = null |> unbox<Async<struct │
00:01:06 #8822 [verbose] > │ (int32 * string)>> │
00:01:06 #8823 [verbose] > │ v10 │
00:01:06 #8824 [verbose] > │ #endif │
00:01:06 #8825 [verbose] > │ #if FABLE_COMPILER_RUST && WASM │
00:01:06 #8826 [verbose] > │ let v11 : Async<struct (int32 * string)> = null |> unbox<Async<struct │
00:01:06 #8827 [verbose] > │ (int32 * string)>> │
00:01:06 #8828 [verbose] > │ v11 │
00:01:06 #8829 [verbose] > │ #endif │
00:01:06 #8830 [verbose] > │ #if FABLE_COMPILER_RUST && CONTRACT │
00:01:06 #8831 [verbose] > │ let v12 : Async<struct (int32 * string)> = null |> unbox<Async<struct │
00:01:06 #8832 [verbose] > │ (int32 * string)>> │
00:01:06 #8833 [verbose] > │ v12 │
00:01:06 #8834 [verbose] > │ #endif │
00:01:06 #8835 [verbose] > │ #if !FABLE_COMPILER && !FABLE_COMPILER_RUST && │
00:01:06 #8836 [verbose] > │ !FABLE_COMPILER_TYPESCRIPT && !WASM && !CONTRACT │
00:01:06 #8837 [verbose] > │ let v13 : Async<struct (int32 * string)> option = None │
00:01:06 #8838 [verbose] > │ let mutable _v13 = v13 │
00:01:06 #8839 [verbose] > │ async { │
00:01:06 #8840 [verbose] > │ let struct (v14 : string, v15 : string) = method0() │
00:01:06 #8841 [verbose] > │ let v16 : char seq = v1 |> unbox<char seq> │
00:01:06 #8842 [verbose] > │ let v17 : (char seq -> char list) = Seq.toList │
00:01:06 #8843 [verbose] > │ let v18 : char list = v17 v16 │
00:01:06 #8844 [verbose] > │ let v19 : ((char -> (UH0 -> UH0)) -> (char list -> (UH0 -> UH0))) = │
00:01:06 #8845 [verbose] > │ List.foldBack │
00:01:06 #8846 [verbose] > │ let v20 : (char -> (UH0 -> UH0)) = method1() │
00:01:06 #8847 [verbose] > │ let v21 : (char list -> (UH0 -> UH0)) = v19 v20 │
00:01:06 #8848 [verbose] > │ let v22 : (UH0 -> UH0) = v21 v18 │
00:01:06 #8849 [verbose] > │ let v23 : UH0 = UH0_0 │
00:01:06 #8850 [verbose] > │ let v24 : UH0 = v22 v23 │
00:01:06 #8851 [verbose] > │ let v25 : US1 = US1_0 │
00:01:06 #8852 [verbose] > │ let struct (v26 : string, v27 : string) = method2(v15, v14, v24, v25) │
00:01:06 #8853 [verbose] > │ let v28 : (string -> US3) = method3() │
00:01:06 #8854 [verbose] > │ let v29 : US3 = US3_1 │
00:01:06 #8855 [verbose] > │ let v30 : US3 = v4 |> Option.map v28 |> Option.defaultValue v29 │
00:01:06 #8856 [verbose] > │ let v34 : string = │
00:01:06 #8857 [verbose] > │ match v30 with │
00:01:06 #8858 [verbose] > │ | US3_1 -> (* None *) │
00:01:06 #8859 [verbose] > │ let v32 : string = "" │
00:01:06 #8860 [verbose] > │ v32 │
00:01:06 #8861 [verbose] > │ | US3_0(v31) -> (* Some *) │
00:01:06 #8862 [verbose] > │ v31 │
00:01:06 #8863 [verbose] > │ let v35 : US0 = US0_1 │
00:01:06 #8864 [verbose] > │ let v36 : (unit -> string) = closure6(v0, v1, v2, v3, v4) │
00:01:06 #8865 [verbose] > │ let v37 : (unit -> string) = method4() │
00:01:06 #8866 [verbose] > │ method5(v35, v36, v37) │
00:01:06 #8867 [verbose] > │ let v38 : System.Text.Encoding = System.Text.Encoding.UTF8 │
00:01:06 #8868 [verbose] > │ let v39 : System.Diagnostics.ProcessStartInfo = │
00:01:06 #8869 [verbose] > │ System.Diagnostics.ProcessStartInfo (Arguments = v27, StandardOutputEncoding │
00:01:06 #8870 [verbose] > │ = v38, WorkingDirectory = v34, FileName = v26, CreateNoWindow = true, │
00:01:06 #8871 [verbose] > │ RedirectStandardError = true, RedirectStandardOutput = true, UseShellExecute │
00:01:06 #8872 [verbose] > │ = false) │
00:01:06 #8873 [verbose] > │ let v40 : System.Diagnostics.Process = new System.Diagnostics.Process │
00:01:06 #8874 [verbose] > │ (StartInfo = v39) │
00:01:06 #8875 [verbose] > │ use v40 = v40 │
00:01:06 #8876 [verbose] > │ let v41 : System.Diagnostics.Process = v40 │
00:01:06 #8877 [verbose] > │ let v42 : (unit -> │
00:01:06 #8878 [verbose] > │ System.Collections.Concurrent.ConcurrentStack<string>) = │
00:01:06 #8879 [verbose] > │ System.Collections.Concurrent.ConcurrentStack<string> │
00:01:06 #8880 [verbose] > │ let v43 : System.Collections.Concurrent.ConcurrentStack<string> = v42 () │
00:01:06 #8881 [verbose] > │ let v44 : (System.Diagnostics.DataReceivedEventArgs -> unit) = │
00:01:06 #8882 [verbose] > │ closure11(v0, v1, v2, v3, v4, v41, v43) │
00:01:06 #8883 [verbose] > │ v41.OutputDataReceived.Add v44 │
00:01:06 #8884 [verbose] > │ let v45 : (System.Diagnostics.DataReceivedEventArgs -> unit) = │
00:01:06 #8885 [verbose] > │ closure14(v0, v1, v2, v3, v4, v41, v43) │
00:01:06 #8886 [verbose] > │ v41.ErrorDataReceived.Add v45 │
00:01:06 #8887 [verbose] > │ let v46 : (unit -> bool) = v41.Start │
00:01:06 #8888 [verbose] > │ let v47 : bool = v46 () │
00:01:06 #8889 [verbose] > │ let v48 : bool = v47 = false │
00:01:06 #8890 [verbose] > │ if v48 then │
00:01:06 #8891 [verbose] > │ let v49 : string = $"execute_with_options_async / process_start │
00:01:06 #8892 [verbose] > │ error" │
00:01:06 #8893 [verbose] > │ failwith<unit> v49 │
00:01:06 #8894 [verbose] > │ let v50 : (unit -> unit) = v41.BeginErrorReadLine │
00:01:06 #8895 [verbose] > │ v50 () │
00:01:06 #8896 [verbose] > │ let v51 : (unit -> unit) = v41.BeginOutputReadLine │
00:01:06 #8897 [verbose] > │ v51 () │
00:01:06 #8898 [verbose] > │ let v52 : (System.Threading.CancellationToken -> US7) = method11() │
00:01:06 #8899 [verbose] > │ let v53 : US7 = US7_1 │
00:01:06 #8900 [verbose] > │ let v54 : US7 = v0 |> Option.map v52 |> Option.defaultValue v53 │
00:01:06 #8901 [verbose] > │ let v58 : System.Threading.CancellationToken = │
00:01:06 #8902 [verbose] > │ match v54 with │
00:01:06 #8903 [verbose] > │ | US7_1 -> (* None *) │
00:01:06 #8904 [verbose] > │ let v56 : System.Threading.CancellationToken = │
00:01:06 #8905 [verbose] > │ System.Threading.CancellationToken.None │
00:01:06 #8906 [verbose] > │ v56 │
00:01:06 #8907 [verbose] > │ | US7_0(v55) -> (* Some *) │
00:01:06 #8908 [verbose] > │ v55 │
00:01:06 #8909 [verbose] > │ let v59 : Async<System.Threading.CancellationToken> option = None │
00:01:06 #8910 [verbose] > │ let mutable _v59 = v59 │
00:01:06 #8911 [verbose] > │ #if FABLE_COMPILER_RUST && !WASM && !CONTRACT │
00:01:06 #8912 [verbose] > │ let v60 : Async<System.Threading.CancellationToken> = null |> │
00:01:06 #8913 [verbose] > │ unbox<Async<System.Threading.CancellationToken>> │
00:01:06 #8914 [verbose] > │ v60 │
00:01:06 #8915 [verbose] > │ #endif │
00:01:06 #8916 [verbose] > │ #if FABLE_COMPILER_RUST && WASM │
00:01:06 #8917 [verbose] > │ let v61 : Async<System.Threading.CancellationToken> = null |> │
00:01:06 #8918 [verbose] > │ unbox<Async<System.Threading.CancellationToken>> │
00:01:06 #8919 [verbose] > │ v61 │
00:01:06 #8920 [verbose] > │ #endif │
00:01:06 #8921 [verbose] > │ #if FABLE_COMPILER_RUST && CONTRACT │
00:01:06 #8922 [verbose] > │ let v62 : Async<System.Threading.CancellationToken> = null |> │
00:01:06 #8923 [verbose] > │ unbox<Async<System.Threading.CancellationToken>> │
00:01:06 #8924 [verbose] > │ v62 │
00:01:06 #8925 [verbose] > │ #endif │
00:01:06 #8926 [verbose] > │ #if !FABLE_COMPILER && !FABLE_COMPILER_RUST && │
00:01:06 #8927 [verbose] > │ !FABLE_COMPILER_TYPESCRIPT && !WASM && !CONTRACT │
00:01:06 #8928 [verbose] > │ let v63 : Async<System.Threading.CancellationToken> option = None │
00:01:06 #8929 [verbose] > │ let mutable _v63 = v63 │
00:01:06 #8930 [verbose] > │ #if FABLE_COMPILER_RUST && !WASM && !CONTRACT │
00:01:06 #8931 [verbose] > │ let v64 : Async<System.Threading.CancellationToken> = null |> │
00:01:06 #8932 [verbose] > │ unbox<Async<System.Threading.CancellationToken>> │
00:01:06 #8933 [verbose] > │ v64 │
00:01:06 #8934 [verbose] > │ #endif │
00:01:06 #8935 [verbose] > │ #if FABLE_COMPILER_RUST && WASM │
00:01:06 #8936 [verbose] > │ let v65 : Async<System.Threading.CancellationToken> = null |> │
00:01:06 #8937 [verbose] > │ unbox<Async<System.Threading.CancellationToken>> │
00:01:06 #8938 [verbose] > │ v65 │
00:01:06 #8939 [verbose] > │ #endif │
00:01:06 #8940 [verbose] > │ #if FABLE_COMPILER_RUST && CONTRACT │
00:01:06 #8941 [verbose] > │ let v66 : Async<System.Threading.CancellationToken> = null |> │
00:01:06 #8942 [verbose] > │ unbox<Async<System.Threading.CancellationToken>> │
00:01:06 #8943 [verbose] > │ v66 │
00:01:06 #8944 [verbose] > │ #endif │
00:01:06 #8945 [verbose] > │ #if !FABLE_COMPILER && !FABLE_COMPILER_RUST && │
00:01:06 #8946 [verbose] > │ !FABLE_COMPILER_TYPESCRIPT && !WASM && !CONTRACT │
00:01:06 #8947 [verbose] > │ let v67 : Async<System.Threading.CancellationToken> option = None │
00:01:06 #8948 [verbose] > │ let mutable _v67 = v67 │
00:01:06 #8949 [verbose] > │ async { │
00:01:06 #8950 [verbose] > │ let v68 : Async<System.Threading.CancellationToken> = │
00:01:06 #8951 [verbose] > │ Async.CancellationToken │
00:01:06 #8952 [verbose] > │ let! v68 = v68 │
00:01:06 #8953 [verbose] > │ let v69 : System.Threading.CancellationToken = v68 │
00:01:06 #8954 [verbose] > │ let v70 : System.Threading.CancellationToken = │
00:01:06 #8955 [verbose] > │ Async.DefaultCancellationToken │
00:01:06 #8956 [verbose] > │ let v71 : (System.Threading.CancellationToken []) = [|v69; v70; v58|] │
00:01:06 #8957 [verbose] > │ let v72 : ((System.Threading.CancellationToken []) -> │
00:01:06 #8958 [verbose] > │ System.Threading.CancellationTokenSource) = │
00:01:06 #8959 [verbose] > │ System.Threading.CancellationTokenSource.CreateLinkedTokenSource │
00:01:06 #8960 [verbose] > │ let v73 : System.Threading.CancellationTokenSource = v72 v71 │
00:01:06 #8961 [verbose] > │ let v74 : System.Threading.CancellationToken = v73.Token │
00:01:06 #8962 [verbose] > │ return v74 │
00:01:06 #8963 [verbose] > │ } │
00:01:06 #8964 [verbose] > │ |> fun x -> _v67 <- Some x │
00:01:06 #8965 [verbose] > │ let v75 : Async<System.Threading.CancellationToken> = _v67 |> Option.get │
00:01:06 #8966 [verbose] > │ v75 │
00:01:06 #8967 [verbose] > │ #endif │
00:01:06 #8968 [verbose] > │ #if FABLE_COMPILER_TYPESCRIPT │
00:01:06 #8969 [verbose] > │ let v76 : Async<System.Threading.CancellationToken> = null |> │
00:01:06 #8970 [verbose] > │ unbox<Async<System.Threading.CancellationToken>> │
00:01:06 #8971 [verbose] > │ v76 │
00:01:06 #8972 [verbose] > │ #endif │
00:01:06 #8973 [verbose] > │ #if FABLE_COMPILER_PYTHON || FABLE_COMPILER_PHP || FABLE_COMPILER_DART │
00:01:06 #8974 [verbose] > │ let v77 : Async<System.Threading.CancellationToken> = │
00:01:06 #8975 [verbose] > │ Unchecked.defaultof<Async<System.Threading.CancellationToken>> │
00:01:06 #8976 [verbose] > │ v77 │
00:01:06 #8977 [verbose] > │ #endif │
00:01:06 #8978 [verbose] > │ |> fun x -> _v63 <- Some x │
00:01:06 #8979 [verbose] > │ let v78 : Async<System.Threading.CancellationToken> = _v63.Value │
00:01:06 #8980 [verbose] > │ v78 │
00:01:06 #8981 [verbose] > │ #endif │
00:01:06 #8982 [verbose] > │ #if FABLE_COMPILER_TYPESCRIPT │
00:01:06 #8983 [verbose] > │ let v79 : Async<System.Threading.CancellationToken> = null |> │
00:01:06 #8984 [verbose] > │ unbox<Async<System.Threading.CancellationToken>> │
00:01:06 #8985 [verbose] > │ v79 │
00:01:06 #8986 [verbose] > │ #endif │
00:01:06 #8987 [verbose] > │ #if FABLE_COMPILER_PYTHON || FABLE_COMPILER_PHP || FABLE_COMPILER_DART │
00:01:06 #8988 [verbose] > │ let v80 : Async<System.Threading.CancellationToken> = │
00:01:06 #8989 [verbose] > │ Unchecked.defaultof<Async<System.Threading.CancellationToken>> │
00:01:06 #8990 [verbose] > │ v80 │
00:01:06 #8991 [verbose] > │ #endif │
00:01:06 #8992 [verbose] > │ |> fun x -> _v59 <- Some x │
00:01:06 #8993 [verbose] > │ let v81 : Async<System.Threading.CancellationToken> = _v59.Value │
00:01:06 #8994 [verbose] > │ let! v81 = v81 │
00:01:06 #8995 [verbose] > │ let v82 : System.Threading.CancellationToken = v81 │
00:01:06 #8996 [verbose] > │ let v83 : ((unit -> unit) -> │
00:01:06 #8997 [verbose] > │ System.Threading.CancellationTokenRegistration) = v82.Register │
00:01:06 #8998 [verbose] > │ let v84 : (unit -> unit) = closure16(v41) │
00:01:06 #8999 [verbose] > │ let v85 : System.Threading.CancellationTokenRegistration = v83 v84 │
00:01:06 #9000 [verbose] > │ use v85 = v85 │
00:01:06 #9001 [verbose] > │ let v86 : System.Threading.CancellationTokenRegistration = v85 │
00:01:06 #9002 [verbose] > │ let v87 : Async<int32> option = None │
00:01:06 #9003 [verbose] > │ let mutable _v87 = v87 │
00:01:06 #9004 [verbose] > │ #if FABLE_COMPILER_RUST && !WASM && !CONTRACT │
00:01:06 #9005 [verbose] > │ let v88 : Async<int32> = null |> unbox<Async<int32>> │
00:01:06 #9006 [verbose] > │ v88 │
00:01:06 #9007 [verbose] > │ #endif │
00:01:06 #9008 [verbose] > │ #if FABLE_COMPILER_RUST && WASM │
00:01:06 #9009 [verbose] > │ let v89 : Async<int32> = null |> unbox<Async<int32>> │
00:01:06 #9010 [verbose] > │ v89 │
00:01:06 #9011 [verbose] > │ #endif │
00:01:06 #9012 [verbose] > │ #if FABLE_COMPILER_RUST && CONTRACT │
00:01:06 #9013 [verbose] > │ let v90 : Async<int32> = null |> unbox<Async<int32>> │
00:01:06 #9014 [verbose] > │ v90 │
00:01:06 #9015 [verbose] > │ #endif │
00:01:06 #9016 [verbose] > │ #if !FABLE_COMPILER && !FABLE_COMPILER_RUST && │
00:01:06 #9017 [verbose] > │ !FABLE_COMPILER_TYPESCRIPT && !WASM && !CONTRACT │
00:01:06 #9018 [verbose] > │ let v91 : Async<int32> option = None │
00:01:06 #9019 [verbose] > │ let mutable _v91 = v91 │
00:01:06 #9020 [verbose] > │ async { │
00:01:06 #9021 [verbose] > │ try │
00:01:06 #9022 [verbose] > │ let v92 : System.Threading.Tasks.Task = v41.WaitForExitAsync v82 │
00:01:06 #9023 [verbose] > │ let v93 : Async<unit> option = None │
00:01:06 #9024 [verbose] > │ let mutable _v93 = v93 │
00:01:06 #9025 [verbose] > │ #if FABLE_COMPILER_RUST && !WASM && !CONTRACT │
00:01:06 #9026 [verbose] > │ let v94 : Async<unit> = null |> unbox<Async<unit>> │
00:01:06 #9027 [verbose] > │ v94 │
00:01:06 #9028 [verbose] > │ #endif │
00:01:06 #9029 [verbose] > │ #if FABLE_COMPILER_RUST && WASM │
00:01:06 #9030 [verbose] > │ let v95 : Async<unit> = null |> unbox<Async<unit>> │
00:01:06 #9031 [verbose] > │ v95 │
00:01:06 #9032 [verbose] > │ #endif │
00:01:06 #9033 [verbose] > │ #if FABLE_COMPILER_RUST && CONTRACT │
00:01:06 #9034 [verbose] > │ let v96 : Async<unit> = null |> unbox<Async<unit>> │
00:01:06 #9035 [verbose] > │ v96 │
00:01:06 #9036 [verbose] > │ #endif │
00:01:06 #9037 [verbose] > │ #if !FABLE_COMPILER && !FABLE_COMPILER_RUST && │
00:01:06 #9038 [verbose] > │ !FABLE_COMPILER_TYPESCRIPT && !WASM && !CONTRACT │
00:01:06 #9039 [verbose] > │ let v97 : (System.Threading.Tasks.Task -> Async<unit>) = Async.AwaitTask │
00:01:06 #9040 [verbose] > │ let v98 : Async<unit> = v97 v92 │
00:01:06 #9041 [verbose] > │ v98 │
00:01:06 #9042 [verbose] > │ #endif │
00:01:06 #9043 [verbose] > │ #if FABLE_COMPILER_TYPESCRIPT │
00:01:06 #9044 [verbose] > │ let v99 : Async<unit> = null |> unbox<Async<unit>> │
00:01:06 #9045 [verbose] > │ v99 │
00:01:06 #9046 [verbose] > │ #endif │
00:01:06 #9047 [verbose] > │ #if FABLE_COMPILER_PYTHON || FABLE_COMPILER_PHP || FABLE_COMPILER_DART │
00:01:06 #9048 [verbose] > │ let v100 : Async<unit> = Unchecked.defaultof<Async<unit>> │
00:01:06 #9049 [verbose] > │ v100 │
00:01:06 #9050 [verbose] > │ #endif │
00:01:06 #9051 [verbose] > │ |> fun x -> _v93 <- Some x │
00:01:06 #9052 [verbose] > │ let v101 : Async<unit> = _v93.Value │
00:01:06 #9053 [verbose] > │ do! v101 │
00:01:06 #9054 [verbose] > │ let v102 : int32 = v41.ExitCode │
00:01:06 #9055 [verbose] > │ return v102 │
00:01:06 #9056 [verbose] > │ with ex -> │
00:01:06 #9057 [verbose] > │ let v103 : exn = ex │
00:01:06 #9058 [verbose] > │ let v104 : string option = None │
00:01:06 #9059 [verbose] > │ let mutable _v104 = v104 │
00:01:06 #9060 [verbose] > │ #if FABLE_COMPILER_RUST && !WASM && !CONTRACT │
00:01:06 #9061 [verbose] > │ let v105 : string = $"%A{v103}" │
00:01:06 #9062 [verbose] > │ v105 │
00:01:06 #9063 [verbose] > │ #endif │
00:01:06 #9064 [verbose] > │ #if FABLE_COMPILER_RUST && WASM │
00:01:06 #9065 [verbose] > │ let v106 : string = $"%A{v103}" │
00:01:06 #9066 [verbose] > │ v106 │
00:01:06 #9067 [verbose] > │ #endif │
00:01:06 #9068 [verbose] > │ #if FABLE_COMPILER_RUST && CONTRACT │
00:01:06 #9069 [verbose] > │ let v107 : string = $"%A{v103}" │
00:01:06 #9070 [verbose] > │ v107 │
00:01:06 #9071 [verbose] > │ #endif │
00:01:06 #9072 [verbose] > │ #if !FABLE_COMPILER && !FABLE_COMPILER_RUST && │
00:01:06 #9073 [verbose] > │ !FABLE_COMPILER_TYPESCRIPT && !WASM && !CONTRACT │
00:01:06 #9074 [verbose] > │ let v108 : string = $"{v103.GetType ()}: {v103.Message}" │
00:01:06 #9075 [verbose] > │ v108 │
00:01:06 #9076 [verbose] > │ #endif │
00:01:06 #9077 [verbose] > │ #if FABLE_COMPILER_TYPESCRIPT │
00:01:06 #9078 [verbose] > │ let v109 : string = $"%A{v103}" │
00:01:06 #9079 [verbose] > │ v109 │
00:01:06 #9080 [verbose] > │ #endif │
00:01:06 #9081 [verbose] > │ #if FABLE_COMPILER_PYTHON || FABLE_COMPILER_PHP || FABLE_COMPILER_DART │
00:01:06 #9082 [verbose] > │ let v110 : string = Unchecked.defaultof<string> │
00:01:06 #9083 [verbose] > │ v110 │
00:01:06 #9084 [verbose] > │ #endif │
00:01:06 #9085 [verbose] > │ |> fun x -> _v104 <- Some x │
00:01:06 #9086 [verbose] > │ let v111 : string = _v104.Value │
00:01:06 #9087 [verbose] > │ let v112 : (string -> unit) = v43.Push │
00:01:06 #9088 [verbose] > │ v112 v111 │
00:01:06 #9089 [verbose] > │ let v113 : System.Threading.Tasks.TaskCanceledException = v103 |> │
00:01:06 #9090 [verbose] > │ unbox<System.Threading.Tasks.TaskCanceledException> │
00:01:06 #9091 [verbose] > │ let v114 : US0 = US0_3 │
00:01:06 #9092 [verbose] > │ let v115 : (unit -> string) = closure17(v113) │
00:01:06 #9093 [verbose] > │ let v116 : (unit -> string) = method4() │
00:01:06 #9094 [verbose] > │ method5(v114, v115, v116) │
00:01:06 #9095 [verbose] > │ return -2147483648 │
00:01:06 #9096 [verbose] > │ (* │
00:01:06 #9097 [verbose] > │ *) │
00:01:06 #9098 [verbose] > │ } │
00:01:06 #9099 [verbose] > │ |> fun x -> _v91 <- Some x │
00:01:06 #9100 [verbose] > │ let v117 : Async<int32> = _v91 |> Option.get │
00:01:06 #9101 [verbose] > │ v117 │
00:01:06 #9102 [verbose] > │ #endif │
00:01:06 #9103 [verbose] > │ #if FABLE_COMPILER_TYPESCRIPT │
00:01:06 #9104 [verbose] > │ let v118 : Async<int32> = null |> unbox<Async<int32>> │
00:01:06 #9105 [verbose] > │ v118 │
00:01:06 #9106 [verbose] > │ #endif │
00:01:06 #9107 [verbose] > │ #if FABLE_COMPILER_PYTHON || FABLE_COMPILER_PHP || FABLE_COMPILER_DART │
00:01:06 #9108 [verbose] > │ let v119 : Async<int32> = Unchecked.defaultof<Async<int32>> │
00:01:06 #9109 [verbose] > │ v119 │
00:01:06 #9110 [verbose] > │ #endif │
00:01:06 #9111 [verbose] > │ |> fun x -> _v87 <- Some x │
00:01:06 #9112 [verbose] > │ let v120 : Async<int32> = _v87.Value │
00:01:06 #9113 [verbose] > │ let! v120 = v120 │
00:01:06 #9114 [verbose] > │ let v121 : int32 = v120 │
00:01:06 #9115 [verbose] > │ let v122 : (System.Collections.Concurrent.ConcurrentStack<string> -> │
00:01:06 #9116 [verbose] > │ string seq) = Seq.rev │
00:01:06 #9117 [verbose] > │ let v123 : string seq = v122 v43 │
00:01:06 #9118 [verbose] > │ let v124 : string = method12() │
00:01:06 #9119 [verbose] > │ let v125 : (string -> (string seq -> string)) = String.concat │
00:01:06 #9120 [verbose] > │ let v126 : (string seq -> string) = v125 v124 │
00:01:06 #9121 [verbose] > │ let v127 : string = v126 v123 │
00:01:06 #9122 [verbose] > │ let v128 : US0 = US0_1 │
00:01:06 #9123 [verbose] > │ let v129 : (unit -> string) = closure18(v121, v127) │
00:01:06 #9124 [verbose] > │ let v130 : (unit -> string) = method4() │
00:01:06 #9125 [verbose] > │ method5(v128, v129, v130) │
00:01:06 #9126 [verbose] > │ return struct (v121, v127) │
00:01:06 #9127 [verbose] > │ } │
00:01:06 #9128 [verbose] > │ |> fun x -> _v13 <- Some x │
00:01:06 #9129 [verbose] > │ let v131 : Async<struct (int32 * string)> = _v13 |> Option.get │
00:01:06 #9130 [verbose] > │ v131 │
00:01:06 #9131 [verbose] > │ #endif │
00:01:06 #9132 [verbose] > │ #if FABLE_COMPILER_TYPESCRIPT │
00:01:06 #9133 [verbose] > │ let v132 : Async<struct (int32 * string)> = null |> unbox<Async<struct │
00:01:06 #9134 [verbose] > │ (int32 * string)>> │
00:01:06 #9135 [verbose] > │ v132 │
00:01:06 #9136 [verbose] > │ #endif │
00:01:06 #9137 [verbose] > │ #if FABLE_COMPILER_PYTHON || FABLE_COMPILER_PHP || FABLE_COMPILER_DART │
00:01:06 #9138 [verbose] > │ let v133 : Async<struct (int32 * string)> = │
00:01:06 #9139 [verbose] > │ Unchecked.defaultof<Async<struct (int32 * string)>> │
00:01:06 #9140 [verbose] > │ v133 │
00:01:06 #9141 [verbose] > │ #endif │
00:01:06 #9142 [verbose] > │ |> fun x -> _v9 <- Some x │
00:01:06 #9143 [verbose] > │ let v134 : Async<struct (int32 * string)> = _v9.Value │
00:01:06 #9144 [verbose] > │ let v135 : (US0 -> US8) = method13() │
00:01:06 #9145 [verbose] > │ let v136 : US8 = US8_1 │
00:01:06 #9146 [verbose] > │ let v137 : US8 = v3 |> Option.map v135 |> Option.defaultValue v136 │
00:01:06 #9147 [verbose] > │ let v158 : Async<struct (int32 * string)> = │
00:01:06 #9148 [verbose] > │ match v137 with │
00:01:06 #9149 [verbose] > │ | US8_1 -> (* None *) │
00:01:06 #9150 [verbose] > │ v134 │
00:01:06 #9151 [verbose] > │ | US8_0(v138) -> (* Some *) │
00:01:06 #9152 [verbose] > │ let v139 : Async<struct (int32 * string)> option = None │
00:01:06 #9153 [verbose] > │ let mutable _v139 = v139 │
00:01:06 #9154 [verbose] > │ #if FABLE_COMPILER_RUST && !WASM && !CONTRACT │
00:01:06 #9155 [verbose] > │ let v140 : Async<struct (int32 * string)> = null |> │
00:01:06 #9156 [verbose] > │ unbox<Async<struct (int32 * string)>> │
00:01:06 #9157 [verbose] > │ v140 │
00:01:06 #9158 [verbose] > │ #endif │
00:01:06 #9159 [verbose] > │ #if FABLE_COMPILER_RUST && WASM │
00:01:06 #9160 [verbose] > │ let v141 : Async<struct (int32 * string)> = null |> │
00:01:06 #9161 [verbose] > │ unbox<Async<struct (int32 * string)>> │
00:01:06 #9162 [verbose] > │ v141 │
00:01:06 #9163 [verbose] > │ #endif │
00:01:06 #9164 [verbose] > │ #if FABLE_COMPILER_RUST && CONTRACT │
00:01:06 #9165 [verbose] > │ let v142 : Async<struct (int32 * string)> = null |> │
00:01:06 #9166 [verbose] > │ unbox<Async<struct (int32 * string)>> │
00:01:06 #9167 [verbose] > │ v142 │
00:01:06 #9168 [verbose] > │ #endif │
00:01:06 #9169 [verbose] > │ #if !FABLE_COMPILER && !FABLE_COMPILER_RUST && │
00:01:06 #9170 [verbose] > │ !FABLE_COMPILER_TYPESCRIPT && !WASM && !CONTRACT │
00:01:06 #9171 [verbose] > │ let v143 : Async<struct (int32 * string)> option = None │
00:01:06 #9172 [verbose] > │ let mutable _v143 = v143 │
00:01:06 #9173 [verbose] > │ async { │
00:01:06 #9174 [verbose] > │ let v144 : (unit -> struct (Mut0 * Mut1 * Mut1 * Mut2 * int64 │
00:01:06 #9175 [verbose] > │ option)) = closure8() │
00:01:06 #9176 [verbose] > │ if State.trace_state = None then State.trace_state <- v144 () |> │
00:01:06 #9177 [verbose] > │ Some │
00:01:06 #9178 [verbose] > │ let struct (v145 : Mut0, v146 : Mut1, v147 : Mut1, v148 : Mut2, │
00:01:06 #9179 [verbose] > │ v149 : int64 option) = State.trace_state.Value │
00:01:06 #9180 [verbose] > │ let v150 : US0 = v148.l0 │
00:01:06 #9181 [verbose] > │ try │
00:01:06 #9182 [verbose] > │ v148.l0 <- v138 │
00:01:06 #9183 [verbose] > │ return! v134 │
00:01:06 #9184 [verbose] > │ finally │
00:01:06 #9185 [verbose] > │ v148.l0 <- v150 │
00:01:06 #9186 [verbose] > │ (* │
00:01:06 #9187 [verbose] > │ let struct (v151 : int32, v152 : string) = *) │
00:01:06 #9188 [verbose] > │ } │
00:01:06 #9189 [verbose] > │ |> fun x -> _v143 <- Some x │
00:01:06 #9190 [verbose] > │ let v153 : Async<struct (int32 * string)> = _v143 |> Option.get │
00:01:06 #9191 [verbose] > │ v153 │
00:01:06 #9192 [verbose] > │ #endif │
00:01:06 #9193 [verbose] > │ #if FABLE_COMPILER_TYPESCRIPT │
00:01:06 #9194 [verbose] > │ let v154 : Async<struct (int32 * string)> = null |> │
00:01:06 #9195 [verbose] > │ unbox<Async<struct (int32 * string)>> │
00:01:06 #9196 [verbose] > │ v154 │
00:01:06 #9197 [verbose] > │ #endif │
00:01:06 #9198 [verbose] > │ #if FABLE_COMPILER_PYTHON || FABLE_COMPILER_PHP || │
00:01:06 #9199 [verbose] > │ FABLE_COMPILER_DART │
00:01:06 #9200 [verbose] > │ let v155 : Async<struct (int32 * string)> = │
00:01:06 #9201 [verbose] > │ Unchecked.defaultof<Async<struct (int32 * string)>> │
00:01:06 #9202 [verbose] > │ v155 │
00:01:06 #9203 [verbose] > │ #endif │
00:01:06 #9204 [verbose] > │ |> fun x -> _v139 <- Some x │
00:01:06 #9205 [verbose] > │ let v156 : Async<struct (int32 * string)> = _v139.Value │
00:01:06 #9206 [verbose] > │ v156 │
00:01:06 #9207 [verbose] > │ v158 │
00:01:06 #9208 [verbose] > │ #endif │
00:01:06 #9209 [verbose] > │ #if FABLE_COMPILER_TYPESCRIPT │
00:01:06 #9210 [verbose] > │ let v159 : Async<struct (int32 * string)> = null |> unbox<Async<struct │
00:01:06 #9211 [verbose] > │ (int32 * string)>> │
00:01:06 #9212 [verbose] > │ v159 │
00:01:06 #9213 [verbose] > │ #endif │
00:01:06 #9214 [verbose] > │ #if FABLE_COMPILER_PYTHON || FABLE_COMPILER_PHP || FABLE_COMPILER_DART │
00:01:06 #9215 [verbose] > │ let v160 : Async<struct (int32 * string)> = │
00:01:06 #9216 [verbose] > │ Unchecked.defaultof<Async<struct (int32 * string)>> │
00:01:06 #9217 [verbose] > │ v160 │
00:01:06 #9218 [verbose] > │ #endif │
00:01:06 #9219 [verbose] > │ |> fun x -> _v5 <- Some x │
00:01:06 #9220 [verbose] > │ let v161 : Async<struct (int32 * string)> = _v5.Value │
00:01:06 #9221 [verbose] > │ v161 │
00:01:06 #9222 [verbose] > │ let v0 : (unit -> bool) = closure0() │
00:01:06 #9223 [verbose] > │ let is_windows () = v0 () │
00:01:06 #9224 [verbose] > │ let v1 : (unit -> string) = closure1() │
00:01:06 #9225 [verbose] > │ let get_executable_suffix () = v1 () │
00:01:06 #9226 [verbose] > │ let v2 : (string -> Async<struct (int32 * string)>) = closure2() │
00:01:06 #9227 [verbose] > │ let execute_async x = v2 x │
00:01:06 #9228 [verbose] > │ let v3 : (struct (System.Threading.CancellationToken option * string * │
00:01:06 #9229 [verbose] > │ (struct (bool * string * int32) -> Async<unit>) option * US0 option * string │
00:01:06 #9230 [verbose] > │ option) -> Async<struct (int32 * string)>) = closure20() │
00:01:06 #9231 [verbose] > │ let execute_with_options_async x = v3 x │
00:01:06 #9232 [verbose] > │ type RuntimeTraceLevel = US0 │
00:01:06 #9233 [verbose] > │ () │
00:01:06 #9234 [verbose] > │ │
00:01:06 #9235 [verbose] > │ │
00:01:06 #9236 [verbose] > ╰──────────────────────────────────────────────────────────────────────────────╯
00:01:08 #9237 [verbose] > [NbConvertApp] Converting notebook runtime.dib.ipynb to html
00:01:08 #9238 [verbose] > C:\Users\i574n\scoop\apps\python\current\Lib\site-packages\nbformat\__init__.py:93: MissingIDFieldWarning: Code cell is missing an id field, this will become a hard error in future nbformat versions. You may want to use `normalize()` on your notebooks before validations (available since nbformat 5.1.4). Previous versions of nbformat are fixing this issue transparently, and will stop doing so in the future.
00:01:08 #9239 [verbose] > validate(nb)
00:01:09 #9240 [verbose] > C:\Users\i574n\scoop\apps\python\current\Lib\site-packages\nbconvert\filters\highlight.py:71: UserWarning: IPython3 lexer unavailable, falling back on Python 3
00:01:09 #9241 [verbose] > return _pygments_highlight(
00:01:09 #9242 [verbose] > [NbConvertApp] Writing 623350 bytes to runtime.dib.html
00:01:10 #9243 [debug] execute_with_options_async / exit_code: 0 / output.Length: 634795
00:01:10 #9 [debug] main / executeCommand / exitCode: 0
00:01:10 #9244 [debug] execute_with_options_async / options: struct (Some System.Threading.CancellationToken,
"pwsh -c "../../scripts/invoke-dib.ps1 trace.dib -Retries 3"", None,
None, None)
00:01:12 #9245 [verbose] >
00:01:12 #9246 [verbose] > ── markdown ────────────────────────────────────────────────────────────────────
00:01:12 #9247 [verbose] > ╭──────────────────────────────────────────────────────────────────────────────╮
00:01:12 #9248 [verbose] > │ # trace │
00:01:12 #9249 [verbose] > ╰──────────────────────────────────────────────────────────────────────────────╯
00:01:12 #9250 [verbose] >
00:01:12 #9251 [verbose] > ── spiral ──────────────────────────────────────────────────────────────────────
00:01:12 #9252 [verbose] > // // test
00:01:12 #9253 [verbose] >
00:01:12 #9254 [verbose] > open testing
00:01:15 #9255 [verbose] > Building c:\home\git\polyglot\target\polyglot\spiral_eval\packages\8837341da068f4ef4271045b3ef1c89d209237bf74b4f11596b6ee2d484becb0\main.spi
00:01:16 #9256 [verbose] >
00:01:16 #9257 [verbose] > ╭─[ 3.57s - stdout ]───────────────────────────────────────────────────────────╮
00:01:16 #9258 [verbose] > │ () │
00:01:16 #9259 [verbose] > │ │
00:01:16 #9260 [verbose] > │ │
00:01:16 #9261 [verbose] > ╰──────────────────────────────────────────────────────────────────────────────╯
00:01:16 #9262 [verbose] >
00:01:16 #9263 [verbose] > ── markdown ────────────────────────────────────────────────────────────────────
00:01:16 #9264 [verbose] > ╭──────────────────────────────────────────────────────────────────────────────╮
00:01:16 #9265 [verbose] > │ ## trace_level │
00:01:16 #9266 [verbose] > ╰──────────────────────────────────────────────────────────────────────────────╯
00:01:16 #9267 [verbose] >
00:01:16 #9268 [verbose] > ── spiral ──────────────────────────────────────────────────────────────────────
00:01:16 #9269 [verbose] > union trace_level =
00:01:16 #9270 [verbose] > | Verbose
00:01:16 #9271 [verbose] > | Debug
00:01:16 #9272 [verbose] > | Info
00:01:16 #9273 [verbose] > | Warning
00:01:16 #9274 [verbose] > | Critical
00:01:16 #9275 [verbose] >
00:01:16 #9276 [verbose] > instance to_string trace_level = function
00:01:16 #9277 [verbose] > | Verbose => "Verbose"
00:01:16 #9278 [verbose] > | Debug => "Debug"
00:01:16 #9279 [verbose] > | Info => "Info"
00:01:16 #9280 [verbose] > | Warning => "Warning"
00:01:16 #9281 [verbose] > | Critical => "Critical"
00:01:16 #9282 [verbose] >
00:01:16 #9283 [verbose] > instance of_string trace_level = function
00:01:16 #9284 [verbose] > | "Verbose" => Verbose
00:01:16 #9285 [verbose] > | "Debug" => Debug
00:01:16 #9286 [verbose] > | "Info" => Info
00:01:16 #9287 [verbose] > | "Warning" => Warning
00:01:16 #9288 [verbose] > | "Critical" => Critical
00:01:16 #9289 [verbose] > Building c:\home\git\polyglot\target\polyglot\spiral_eval\packages\c0956660fd32c297e75b99edc489114a110c74b5b45c4bad3616f1fd1ce28dbf\main.spi
00:01:16 #9290 [verbose] >
00:01:16 #9291 [verbose] > ╭─[ 270.28ms - stdout ]────────────────────────────────────────────────────────╮
00:01:16 #9292 [verbose] > │ () │
00:01:16 #9293 [verbose] > │ │
00:01:16 #9294 [verbose] > │ │
00:01:16 #9295 [verbose] > ╰──────────────────────────────────────────────────────────────────────────────╯
00:01:16 #9296 [verbose] >
00:01:16 #9297 [verbose] > ── markdown ────────────────────────────────────────────────────────────────────
00:01:16 #9298 [verbose] > ╭──────────────────────────────────────────────────────────────────────────────╮
00:01:16 #9299 [verbose] > │ ## repl_start │
00:01:16 #9300 [verbose] > ╰──────────────────────────────────────────────────────────────────────────────╯
00:01:16 #9301 [verbose] >
00:01:16 #9302 [verbose] > ── spiral ──────────────────────────────────────────────────────────────────────
00:01:16 #9303 [verbose] > inl repl_start () : optionm'.option' i64 =
00:01:16 #9304 [verbose] > inl result : optionm'.option' (optionm'.option' i64) = optionm'.none' ()
00:01:16 #9305 [verbose] > $"let mutable _!result = !result"
00:01:16 #9306 [verbose] > $'#if INTERACTIVE || \!FABLE_COMPILER' : ()
00:01:16 #9307 [verbose] > if get_entry_assembly_name () <> "Microsoft.DotNet.Interactive.App"
00:01:16 #9308 [verbose] > then date_time.now () |> date_time.ticks |> Some
00:01:16 #9309 [verbose] > else None
00:01:16 #9310 [verbose] > |> optionm'.box
00:01:16 #9311 [verbose] > |> fun x =>
00:01:16 #9312 [verbose] > inl x = join x
00:01:16 #9313 [verbose] > $'!x '
00:01:16 #9314 [verbose] > $'#else' : ()
00:01:16 #9315 [verbose] > (None : option i64) |> optionm'.box
00:01:16 #9316 [verbose] > |> fun x =>
00:01:16 #9317 [verbose] > inl x = join x
00:01:16 #9318 [verbose] > $'!x '
00:01:16 #9319 [verbose] > $'#endif' : ()
00:01:16 #9320 [verbose] > $"|> fun x -> _!result <- Some x"
00:01:16 #9321 [verbose] > $'_!result.Value'
00:01:16 #9322 [verbose] > Building c:\home\git\polyglot\target\polyglot\spiral_eval\packages\e18efccf01709dcc29772a1e685e8660b0ba82c3b518e567d9200018b377bc78\main.spi
00:01:16 #9323 [verbose] >
00:01:16 #9324 [verbose] > ╭─[ 246.51ms - stdout ]────────────────────────────────────────────────────────╮
00:01:16 #9325 [verbose] > │ () │
00:01:16 #9326 [verbose] > │ │
00:01:16 #9327 [verbose] > │ │
00:01:16 #9328 [verbose] > ╰──────────────────────────────────────────────────────────────────────────────╯
00:01:16 #9329 [verbose] >
00:01:16 #9330 [verbose] > ── markdown ────────────────────────────────────────────────────────────────────
00:01:16 #9331 [verbose] > ╭──────────────────────────────────────────────────────────────────────────────╮
00:01:16 #9332 [verbose] > │ ## trace_state │
00:01:16 #9333 [verbose] > ╰──────────────────────────────────────────────────────────────────────────────╯
00:01:16 #9334 [verbose] >
00:01:16 #9335 [verbose] > ── spiral ──────────────────────────────────────────────────────────────────────
00:01:16 #9336 [verbose] > type trace_state =
00:01:16 #9337 [verbose] > {
00:01:16 #9338 [verbose] > count : mut i64
00:01:16 #9339 [verbose] > dump : mut bool
00:01:16 #9340 [verbose] > enabled : mut bool
00:01:16 #9341 [verbose] > level : mut trace_level
00:01:16 #9342 [verbose] > repl_start : optionm'.option' i64
00:01:16 #9343 [verbose] > }
00:01:16 #9344 [verbose] >
00:01:16 #9345 [verbose] > inl new_trace_state () =
00:01:16 #9346 [verbose] > {
00:01:16 #9347 [verbose] > enabled = mut true
00:01:16 #9348 [verbose] > count = mut 0i64
00:01:16 #9349 [verbose] > level = mut Verbose
00:01:16 #9350 [verbose] > dump = mut false
00:01:16 #9351 [verbose] > repl_start = repl_start ()
00:01:16 #9352 [verbose] > } : trace_state
00:01:17 #9353 [verbose] > Building c:\home\git\polyglot\target\polyglot\spiral_eval\packages\cf2b2549cbe250baa47fdc38fef171ce414517777e0b3ca6044da865a24e84f3\main.spi
00:01:17 #9354 [verbose] >
00:01:17 #9355 [verbose] > ╭─[ 252.17ms - stdout ]────────────────────────────────────────────────────────╮
00:01:17 #9356 [verbose] > │ () │
00:01:17 #9357 [verbose] > │ │
00:01:17 #9358 [verbose] > │ │
00:01:17 #9359 [verbose] > ╰──────────────────────────────────────────────────────────────────────────────╯
00:01:17 #9360 [verbose] >
00:01:17 #9361 [verbose] > ── markdown ────────────────────────────────────────────────────────────────────
00:01:17 #9362 [verbose] > ╭──────────────────────────────────────────────────────────────────────────────╮
00:01:17 #9363 [verbose] > │ ## init_trace_state │
00:01:17 #9364 [verbose] > ╰──────────────────────────────────────────────────────────────────────────────╯
00:01:17 #9365 [verbose] >
00:01:17 #9366 [verbose] > ── spiral ──────────────────────────────────────────────────────────────────────
00:01:17 #9367 [verbose] > inl init_trace_state () : () =
00:01:17 #9368 [verbose] > global "module State = let mutable trace_state = None"
00:01:17 #9369 [verbose] > $"if State.trace_state = None then State.trace_state <- !new_trace_state ()
00:01:17 #9370 [verbose] > |> Some" : ()
00:01:17 #9371 [verbose] > Building c:\home\git\polyglot\target\polyglot\spiral_eval\packages\05745b84632daa3eee9e0695ef1bd03c377f2779ca262cf433ec589dd671f212\main.spi
00:01:17 #9372 [verbose] >
00:01:17 #9373 [verbose] > ╭─[ 250.81ms - stdout ]────────────────────────────────────────────────────────╮
00:01:17 #9374 [verbose] > │ () │
00:01:17 #9375 [verbose] > │ │
00:01:17 #9376 [verbose] > │ │
00:01:17 #9377 [verbose] > ╰──────────────────────────────────────────────────────────────────────────────╯
00:01:17 #9378 [verbose] >
00:01:17 #9379 [verbose] > ── markdown ────────────────────────────────────────────────────────────────────
00:01:17 #9380 [verbose] > ╭──────────────────────────────────────────────────────────────────────────────╮
00:01:17 #9381 [verbose] > │ ## get_trace_state │
00:01:17 #9382 [verbose] > ╰──────────────────────────────────────────────────────────────────────────────╯
00:01:17 #9383 [verbose] >
00:01:17 #9384 [verbose] > ── spiral ──────────────────────────────────────────────────────────────────────
00:01:17 #9385 [verbose] > inl get_trace_state () : trace_state =
00:01:17 #9386 [verbose] > init_trace_state ()
00:01:17 #9387 [verbose] > $'State.trace_state.Value'
00:01:17 #9388 [verbose] > Building c:\home\git\polyglot\target\polyglot\spiral_eval\packages\05ec304a70c0d5237c2a62ea96f26dd4d62807ac0501b2220c18763b62cb12bc\main.spi
00:01:17 #9389 [verbose] >
00:01:17 #9390 [verbose] > ╭─[ 247.08ms - stdout ]────────────────────────────────────────────────────────╮
00:01:17 #9391 [verbose] > │ () │
00:01:17 #9392 [verbose] > │ │
00:01:17 #9393 [verbose] > │ │
00:01:17 #9394 [verbose] > ╰──────────────────────────────────────────────────────────────────────────────╯
00:01:17 #9395 [verbose] >
00:01:17 #9396 [verbose] > ── markdown ────────────────────────────────────────────────────────────────────
00:01:17 #9397 [verbose] > ╭──────────────────────────────────────────────────────────────────────────────╮
00:01:17 #9398 [verbose] > │ ## get_locals │
00:01:17 #9399 [verbose] > ╰──────────────────────────────────────────────────────────────────────────────╯
00:01:17 #9400 [verbose] >
00:01:17 #9401 [verbose] > ── spiral ──────────────────────────────────────────────────────────────────────
00:01:17 #9402 [verbose] > inl get_locals () = ""
00:01:17 #9403 [verbose] > Building c:\home\git\polyglot\target\polyglot\spiral_eval\packages\54aab8f314b3bde65bd956789f84c768dcae01bed8194d556cd14570142b7c29\main.spi
00:01:17 #9404 [verbose] >
00:01:17 #9405 [verbose] > ╭─[ 224.19ms - stdout ]────────────────────────────────────────────────────────╮
00:01:17 #9406 [verbose] > │ () │
00:01:17 #9407 [verbose] > │ │
00:01:17 #9408 [verbose] > │ │
00:01:17 #9409 [verbose] > ╰──────────────────────────────────────────────────────────────────────────────╯
00:01:17 #9410 [verbose] >
00:01:17 #9411 [verbose] > ── markdown ────────────────────────────────────────────────────────────────────
00:01:17 #9412 [verbose] > ╭──────────────────────────────────────────────────────────────────────────────╮
00:01:17 #9413 [verbose] > │ ## test_trace_level │
00:01:17 #9414 [verbose] > ╰──────────────────────────────────────────────────────────────────────────────╯
00:01:17 #9415 [verbose] >
00:01:17 #9416 [verbose] > ── spiral ──────────────────────────────────────────────────────────────────────
00:01:17 #9417 [verbose] > inl test_trace_level level : bool =
00:01:17 #9418 [verbose] > inl state = get_trace_state ()
00:01:17 #9419 [verbose] > inl level' = *state.level
00:01:17 #9420 [verbose] > *state.enabled && $'!level >= !level' '
00:01:18 #9421 [verbose] > Building c:\home\git\polyglot\target\polyglot\spiral_eval\packages\ca235f4146c2be18c4201be2da5a4a17fd460c161f1c3615d45b69c12b87676b\main.spi
00:01:18 #9422 [verbose] >
00:01:18 #9423 [verbose] > ╭─[ 237.52ms - stdout ]────────────────────────────────────────────────────────╮
00:01:18 #9424 [verbose] > │ () │
00:01:18 #9425 [verbose] > │ │
00:01:18 #9426 [verbose] > │ │
00:01:18 #9427 [verbose] > ╰──────────────────────────────────────────────────────────────────────────────╯
00:01:18 #9428 [verbose] >
00:01:18 #9429 [verbose] > ── spiral ──────────────────────────────────────────────────────────────────────
00:01:18 #9430 [verbose] > // // test
00:01:18 #9431 [verbose] >
00:01:18 #9432 [verbose] > test_trace_level Critical |> _assert_eq true
00:01:18 #9433 [verbose] > test_trace_level Verbose |> _assert_eq true
00:01:18 #9434 [verbose] > Building c:\home\git\polyglot\target\polyglot\spiral_eval\packages\fbf01a6d231e9f9028658e2d32739229f0694bd5db6dc6efe585f5a96d58fb0d\main.spi
00:01:19 #9435 [verbose] >
00:01:19 #9436 [verbose] > ╭─[ 1.48s - stdout ]───────────────────────────────────────────────────────────╮
00:01:19 #9437 [verbose] > │ module State = let mutable trace_state = None │
00:01:19 #9438 [verbose] > │ type Mut0 = {mutable l0 : int64} │
00:01:19 #9439 [verbose] > │ and Mut1 = {mutable l0 : bool} │
00:01:19 #9440 [verbose] > │ and [<Struct>] US0 = │
00:01:19 #9441 [verbose] > │ | US0_0 │
00:01:19 #9442 [verbose] > │ | US0_1 │
00:01:19 #9443 [verbose] > │ | US0_2 │
00:01:19 #9444 [verbose] > │ | US0_3 │
00:01:19 #9445 [verbose] > │ | US0_4 │
00:01:19 #9446 [verbose] > │ and Mut2 = {mutable l0 : US0} │
00:01:19 #9447 [verbose] > │ and [<Struct>] US1 = │
00:01:19 #9448 [verbose] > │ | US1_0 of f0_0 : int64 │
00:01:19 #9449 [verbose] > │ | US1_1 │
00:01:19 #9450 [verbose] > │ let rec method1 (v0 : int64 option) : int64 option = │
00:01:19 #9451 [verbose] > │ v0 │
00:01:19 #9452 [verbose] > │ and method2 (v0 : int64 option) : int64 option = │
00:01:19 #9453 [verbose] > │ v0 │
00:01:19 #9454 [verbose] > │ and closure0 () () : struct (Mut0 * Mut1 * Mut1 * Mut2 * int64 option) = │
00:01:19 #9455 [verbose] > │ let v0 : Mut1 = {l0 = true} : Mut1 │
00:01:19 #9456 [verbose] > │ let v1 : Mut0 = {l0 = 0L} : Mut0 │
00:01:19 #9457 [verbose] > │ let v2 : US0 = US0_0 │
00:01:19 #9458 [verbose] > │ let v3 : Mut2 = {l0 = v2} : Mut2 │
00:01:19 #9459 [verbose] > │ let v4 : Mut1 = {l0 = false} : Mut1 │
00:01:19 #9460 [verbose] > │ let v5 : int64 option option = None │
00:01:19 #9461 [verbose] > │ let mutable _v5 = v5 │
00:01:19 #9462 [verbose] > │ #if INTERACTIVE || !FABLE_COMPILER │
00:01:19 #9463 [verbose] > │ let v6 : string option = None │
00:01:19 #9464 [verbose] > │ let mutable _v6 = v6 │
00:01:19 #9465 [verbose] > │ #if FABLE_COMPILER_RUST && !WASM && !CONTRACT │
00:01:19 #9466 [verbose] > │ let v7 : string = null |> unbox<string> │
00:01:19 #9467 [verbose] > │ v7 │
00:01:19 #9468 [verbose] > │ #endif │
00:01:19 #9469 [verbose] > │ #if FABLE_COMPILER_RUST && WASM │
00:01:19 #9470 [verbose] > │ let v8 : string = null |> unbox<string> │
00:01:19 #9471 [verbose] > │ v8 │
00:01:19 #9472 [verbose] > │ #endif │
00:01:19 #9473 [verbose] > │ #if FABLE_COMPILER_RUST && CONTRACT │
00:01:19 #9474 [verbose] > │ let v9 : string = null |> unbox<string> │
00:01:19 #9475 [verbose] > │ v9 │
00:01:19 #9476 [verbose] > │ #endif │
00:01:19 #9477 [verbose] > │ #if !FABLE_COMPILER && !FABLE_COMPILER_RUST && │
00:01:19 #9478 [verbose] > │ !FABLE_COMPILER_TYPESCRIPT && !WASM && !CONTRACT │
00:01:19 #9479 [verbose] > │ let v10 : string = │
00:01:19 #9480 [verbose] > │ System.Reflection.Assembly.GetEntryAssembly().GetName().Name │
00:01:19 #9481 [verbose] > │ v10 │
00:01:19 #9482 [verbose] > │ #endif │
00:01:19 #9483 [verbose] > │ #if FABLE_COMPILER_TYPESCRIPT │
00:01:19 #9484 [verbose] > │ let v11 : string = null |> unbox<string> │
00:01:19 #9485 [verbose] > │ v11 │
00:01:19 #9486 [verbose] > │ #endif │
00:01:19 #9487 [verbose] > │ #if FABLE_COMPILER_PYTHON || FABLE_COMPILER_PHP || FABLE_COMPILER_DART │
00:01:19 #9488 [verbose] > │ let v12 : string = Unchecked.defaultof<string> │
00:01:19 #9489 [verbose] > │ v12 │
00:01:19 #9490 [verbose] > │ #endif │
00:01:19 #9491 [verbose] > │ |> fun x -> _v6 <- Some x │
00:01:19 #9492 [verbose] > │ let v13 : string = _v6.Value │
00:01:19 #9493 [verbose] > │ let v15 : bool = v13 = "Microsoft.DotNet.Interactive.App" │
00:01:19 #9494 [verbose] > │ let v16 : bool = v15 <> true │
00:01:19 #9495 [verbose] > │ let v22 : US1 = │
00:01:19 #9496 [verbose] > │ if v16 then │
00:01:19 #9497 [verbose] > │ let v17 : System.DateTime = System.DateTime.Now │
00:01:19 #9498 [verbose] > │ let v18 : (System.DateTime -> int64) = _.Ticks │
00:01:19 #9499 [verbose] > │ let v19 : int64 = v18 v17 │
00:01:19 #9500 [verbose] > │ US1_0(v19) │
00:01:19 #9501 [verbose] > │ else │
00:01:19 #9502 [verbose] > │ US1_1 │
00:01:19 #9503 [verbose] > │ let v27 : int64 option = │
00:01:19 #9504 [verbose] > │ match v22 with │
00:01:19 #9505 [verbose] > │ | US1_1 -> (* None *) │
00:01:19 #9506 [verbose] > │ let v25 : int64 option = None │
00:01:19 #9507 [verbose] > │ v25 │
00:01:19 #9508 [verbose] > │ | US1_0(v23) -> (* Some *) │
00:01:19 #9509 [verbose] > │ let v24 : int64 option = Some v23 │
00:01:19 #9510 [verbose] > │ v24 │
00:01:19 #9511 [verbose] > │ let v28 : int64 option = method1(v27) │
00:01:19 #9512 [verbose] > │ v28 │
00:01:19 #9513 [verbose] > │ #else │
00:01:19 #9514 [verbose] > │ let v29 : int64 option = None │
00:01:19 #9515 [verbose] > │ let v30 : int64 option = method2(v29) │
00:01:19 #9516 [verbose] > │ v30 │
00:01:19 #9517 [verbose] > │ #endif │
00:01:19 #9518 [verbose] > │ |> fun x -> _v5 <- Some x │
00:01:19 #9519 [verbose] > │ let v31 : int64 option = _v5.Value │
00:01:19 #9520 [verbose] > │ struct (v1, v4, v0, v3, v31) │
00:01:19 #9521 [verbose] > │ and method3 (v0 : bool) : bool = │
00:01:19 #9522 [verbose] > │ v0 │
00:01:19 #9523 [verbose] > │ and method0 () : unit = │
00:01:19 #9524 [verbose] > │ let v0 : (unit -> struct (Mut0 * Mut1 * Mut1 * Mut2 * int64 option)) = │
00:01:19 #9525 [verbose] > │ closure0() │
00:01:19 #9526 [verbose] > │ if State.trace_state = None then State.trace_state <- v0 () |> Some │
00:01:19 #9527 [verbose] > │ let struct (v1 : Mut0, v2 : Mut1, v3 : Mut1, v4 : Mut2, v5 : int64 │
00:01:19 #9528 [verbose] > │ option) = State.trace_state.Value │
00:01:19 #9529 [verbose] > │ let v6 : US0 = v4.l0 │
00:01:19 #9530 [verbose] > │ let v7 : bool = v3.l0 │
00:01:19 #9531 [verbose] > │ let v10 : bool = │
00:01:19 #9532 [verbose] > │ if v7 then │
00:01:19 #9533 [verbose] > │ let v8 : US0 = US0_4 │
00:01:19 #9534 [verbose] > │ let v9 : bool = v8 >= v6 │
00:01:19 #9535 [verbose] > │ v9 │
00:01:19 #9536 [verbose] > │ else │
00:01:19 #9537 [verbose] > │ false │
00:01:19 #9538 [verbose] > │ let v11 : string = $"%A{v10}" │
00:01:19 #9539 [verbose] > │ System.Console.WriteLine v11 │
00:01:19 #9540 [verbose] > │ let v13 : bool = │
00:01:19 #9541 [verbose] > │ if v10 then │
00:01:19 #9542 [verbose] > │ true │
00:01:19 #9543 [verbose] > │ else │
00:01:19 #9544 [verbose] > │ method3(v10) │
00:01:19 #9545 [verbose] > │ let v14 : string = $"__expect / actual: %A{v10} / expected: %A{true}" │
00:01:19 #9546 [verbose] > │ let v15 : bool = v13 = false │
00:01:19 #9547 [verbose] > │ if v15 then │
00:01:19 #9548 [verbose] > │ failwith<unit> v14 │
00:01:19 #9549 [verbose] > │ if State.trace_state = None then State.trace_state <- v0 () |> Some │
00:01:19 #9550 [verbose] > │ let struct (v16 : Mut0, v17 : Mut1, v18 : Mut1, v19 : Mut2, v20 : int64 │
00:01:19 #9551 [verbose] > │ option) = State.trace_state.Value │
00:01:19 #9552 [verbose] > │ let v21 : US0 = v19.l0 │
00:01:19 #9553 [verbose] > │ let v22 : bool = v18.l0 │
00:01:19 #9554 [verbose] > │ let v25 : bool = │
00:01:19 #9555 [verbose] > │ if v22 then │
00:01:19 #9556 [verbose] > │ let v23 : US0 = US0_0 │
00:01:19 #9557 [verbose] > │ let v24 : bool = v23 >= v21 │
00:01:19 #9558 [verbose] > │ v24 │
00:01:19 #9559 [verbose] > │ else │
00:01:19 #9560 [verbose] > │ false │
00:01:19 #9561 [verbose] > │ let v26 : string = $"%A{v25}" │
00:01:19 #9562 [verbose] > │ System.Console.WriteLine v26 │
00:01:19 #9563 [verbose] > │ let v28 : bool = │
00:01:19 #9564 [verbose] > │ if v25 then │
00:01:19 #9565 [verbose] > │ true │
00:01:19 #9566 [verbose] > │ else │
00:01:19 #9567 [verbose] > │ method3(v25) │
00:01:19 #9568 [verbose] > │ let v29 : string = $"__expect / actual: %A{v25} / expected: %A{true}" │
00:01:19 #9569 [verbose] > │ let v30 : bool = v28 = false │
00:01:19 #9570 [verbose] > │ if v30 then │
00:01:19 #9571 [verbose] > │ failwith<unit> v29 │
00:01:19 #9572 [verbose] > │ method0() │
00:01:19 #9573 [verbose] > │ │
00:01:19 #9574 [verbose] > │ true │
00:01:19 #9575 [verbose] > │ true │
00:01:19 #9576 [verbose] > │ │
00:01:19 #9577 [verbose] > ╰──────────────────────────────────────────────────────────────────────────────╯
00:01:19 #9578 [verbose] >
00:01:19 #9579 [verbose] > ── markdown ────────────────────────────────────────────────────────────────────
00:01:19 #9580 [verbose] > ╭──────────────────────────────────────────────────────────────────────────────╮
00:01:19 #9581 [verbose] > │ ## trace_raw │
00:01:19 #9582 [verbose] > ╰──────────────────────────────────────────────────────────────────────────────╯
00:01:19 #9583 [verbose] >
00:01:19 #9584 [verbose] > ── spiral ──────────────────────────────────────────────────────────────────────
00:01:19 #9585 [verbose] > inl trace_raw level fn =
00:01:19 #9586 [verbose] > inl trace_state = get_trace_state ()
00:01:19 #9587 [verbose] > if level |> test_trace_level then
00:01:19 #9588 [verbose] > inl count = trace_state.count
00:01:19 #9589 [verbose] > count <- *trace_state.count + 1
00:01:19 #9590 [verbose] >
00:01:19 #9591 [verbose] > inl text = $'$"%s{!fn ()}"' : string
00:01:19 #9592 [verbose] > run_target function
00:01:19 #9593 [verbose] > | Rust _ => fun () =>
00:01:19 #9594 [verbose] > open rust_operators
00:01:19 #9595 [verbose] > !\\(text, $'\@"println\!(""{}"", $0)"')
00:01:19 #9596 [verbose] > | _ => fun () =>
00:01:19 #9597 [verbose] > $'System.Console.WriteLine !text '
00:01:19 #9598 [verbose] >
00:01:19 #9599 [verbose] > // run_target function
00:01:19 #9600 [verbose] > // | Fsharp (Native) => fun () =>
00:01:19 #9601 [verbose] > // if *trace_state.dump then
00:01:19 #9602 [verbose] > // try_unit
00:01:19 #9603 [verbose] > // fun () =>
00:01:19 #9604 [verbose] > // // open file_system_operators
00:01:19 #9605 [verbose] > // // inl tmp_path = file_system.get_temp_path ()
00:01:19 #9606 [verbose] > // // inl log_dir = tmp_path </> "!polyglot"
00:01:19 #9607 [verbose] > // // file_system.create_directory log_dir |> ignore
00:01:19 #9608 [verbose] > // // inl guid = date_time.new_guid_from_date_time
00:01:19 #9609 [verbose] > (date_time.now ())
00:01:19 #9610 [verbose] > // // inl log_file = log_dir </> $'$"{!guid}.txt"'
00:01:19 #9611 [verbose] > // // file_system.write_all_text_async log_file text |>
00:01:19 #9612 [verbose] > async.run_synchronously
00:01:19 #9613 [verbose] > // ()
00:01:19 #9614 [verbose] > // fun ex =>
00:01:19 #9615 [verbose] > // inl ex = ex |> sm'.format_exception
00:01:19 #9616 [verbose] > // trace_raw Critical (fun () => $'$"trace / ex:
00:01:19 #9617 [verbose] > {!ex}"')
00:01:19 #9618 [verbose] > // | _ => fun () => ()
00:01:19 #9619 [verbose] > Building c:\home\git\polyglot\target\polyglot\spiral_eval\packages\eeb25b79be35e880db38f303edf991baf6666a6bc47cc9e149c7ea6191230f5a\main.spi
00:01:19 #9620 [verbose] >
00:01:19 #9621 [verbose] > ╭─[ 232.30ms - stdout ]────────────────────────────────────────────────────────╮
00:01:19 #9622 [verbose] > │ () │
00:01:19 #9623 [verbose] > │ │
00:01:19 #9624 [verbose] > │ │
00:01:19 #9625 [verbose] > ╰──────────────────────────────────────────────────────────────────────────────╯
00:01:19 #9626 [verbose] >
00:01:19 #9627 [verbose] > ── spiral ──────────────────────────────────────────────────────────────────────
00:01:19 #9628 [verbose] > // // test
00:01:19 #9629 [verbose] > // // print_code=true
00:01:19 #9630 [verbose] >
00:01:19 #9631 [verbose] > trace_raw Debug fun () => "test"
00:01:20 #9632 [verbose] > Building c:\home\git\polyglot\target\polyglot\spiral_eval\packages\63fbb5d81e371c00787fe5ee3259357f78da41b8401c6d6ed46a8200d6cd809d\main.spi
00:01:20 #9633 [verbose] >
00:01:20 #9634 [verbose] > ╭─[ 408.97ms - stdout ]────────────────────────────────────────────────────────╮
00:01:20 #9635 [verbose] > │ module State = let mutable trace_state = None │
00:01:20 #9636 [verbose] > │ type Mut0 = {mutable l0 : int64} │
00:01:20 #9637 [verbose] > │ and Mut1 = {mutable l0 : bool} │
00:01:20 #9638 [verbose] > │ and [<Struct>] US0 = │
00:01:20 #9639 [verbose] > │ | US0_0 │
00:01:20 #9640 [verbose] > │ | US0_1 │
00:01:20 #9641 [verbose] > │ | US0_2 │
00:01:20 #9642 [verbose] > │ | US0_3 │
00:01:20 #9643 [verbose] > │ | US0_4 │
00:01:20 #9644 [verbose] > │ and Mut2 = {mutable l0 : US0} │
00:01:20 #9645 [verbose] > │ and [<Struct>] US1 = │
00:01:20 #9646 [verbose] > │ | US1_0 of f0_0 : int64 │
00:01:20 #9647 [verbose] > │ | US1_1 │
00:01:20 #9648 [verbose] > │ let rec method1 (v0 : int64 option) : int64 option = │
00:01:20 #9649 [verbose] > │ v0 │
00:01:20 #9650 [verbose] > │ and method2 (v0 : int64 option) : int64 option = │
00:01:20 #9651 [verbose] > │ v0 │
00:01:20 #9652 [verbose] > │ and closure0 () () : struct (Mut0 * Mut1 * Mut1 * Mut2 * int64 option) = │
00:01:20 #9653 [verbose] > │ let v0 : Mut1 = {l0 = true} : Mut1 │
00:01:20 #9654 [verbose] > │ let v1 : Mut0 = {l0 = 0L} : Mut0 │
00:01:20 #9655 [verbose] > │ let v2 : US0 = US0_0 │
00:01:20 #9656 [verbose] > │ let v3 : Mut2 = {l0 = v2} : Mut2 │
00:01:20 #9657 [verbose] > │ let v4 : Mut1 = {l0 = false} : Mut1 │
00:01:20 #9658 [verbose] > │ let v5 : int64 option option = None │
00:01:20 #9659 [verbose] > │ let mutable _v5 = v5 │
00:01:20 #9660 [verbose] > │ #if INTERACTIVE || !FABLE_COMPILER │
00:01:20 #9661 [verbose] > │ let v6 : string option = None │
00:01:20 #9662 [verbose] > │ let mutable _v6 = v6 │
00:01:20 #9663 [verbose] > │ #if FABLE_COMPILER_RUST && !WASM && !CONTRACT │
00:01:20 #9664 [verbose] > │ let v7 : string = null |> unbox<string> │
00:01:20 #9665 [verbose] > │ v7 │
00:01:20 #9666 [verbose] > │ #endif │
00:01:20 #9667 [verbose] > │ #if FABLE_COMPILER_RUST && WASM │
00:01:20 #9668 [verbose] > │ let v8 : string = null |> unbox<string> │
00:01:20 #9669 [verbose] > │ v8 │
00:01:20 #9670 [verbose] > │ #endif │
00:01:20 #9671 [verbose] > │ #if FABLE_COMPILER_RUST && CONTRACT │
00:01:20 #9672 [verbose] > │ let v9 : string = null |> unbox<string> │
00:01:20 #9673 [verbose] > │ v9 │
00:01:20 #9674 [verbose] > │ #endif │
00:01:20 #9675 [verbose] > │ #if !FABLE_COMPILER && !FABLE_COMPILER_RUST && │
00:01:20 #9676 [verbose] > │ !FABLE_COMPILER_TYPESCRIPT && !WASM && !CONTRACT │
00:01:20 #9677 [verbose] > │ let v10 : string = │
00:01:20 #9678 [verbose] > │ System.Reflection.Assembly.GetEntryAssembly().GetName().Name │
00:01:20 #9679 [verbose] > │ v10 │
00:01:20 #9680 [verbose] > │ #endif │
00:01:20 #9681 [verbose] > │ #if FABLE_COMPILER_TYPESCRIPT │
00:01:20 #9682 [verbose] > │ let v11 : string = null |> unbox<string> │
00:01:20 #9683 [verbose] > │ v11 │
00:01:20 #9684 [verbose] > │ #endif │
00:01:20 #9685 [verbose] > │ #if FABLE_COMPILER_PYTHON || FABLE_COMPILER_PHP || FABLE_COMPILER_DART │
00:01:20 #9686 [verbose] > │ let v12 : string = Unchecked.defaultof<string> │
00:01:20 #9687 [verbose] > │ v12 │
00:01:20 #9688 [verbose] > │ #endif │
00:01:20 #9689 [verbose] > │ |> fun x -> _v6 <- Some x │
00:01:20 #9690 [verbose] > │ let v13 : string = _v6.Value │
00:01:20 #9691 [verbose] > │ let v15 : bool = v13 = "Microsoft.DotNet.Interactive.App" │
00:01:20 #9692 [verbose] > │ let v16 : bool = v15 <> true │
00:01:20 #9693 [verbose] > │ let v22 : US1 = │
00:01:20 #9694 [verbose] > │ if v16 then │
00:01:20 #9695 [verbose] > │ let v17 : System.DateTime = System.DateTime.Now │
00:01:20 #9696 [verbose] > │ let v18 : (System.DateTime -> int64) = _.Ticks │
00:01:20 #9697 [verbose] > │ let v19 : int64 = v18 v17 │
00:01:20 #9698 [verbose] > │ US1_0(v19) │
00:01:20 #9699 [verbose] > │ else │
00:01:20 #9700 [verbose] > │ US1_1 │
00:01:20 #9701 [verbose] > │ let v27 : int64 option = │
00:01:20 #9702 [verbose] > │ match v22 with │
00:01:20 #9703 [verbose] > │ | US1_1 -> (* None *) │
00:01:20 #9704 [verbose] > │ let v25 : int64 option = None │
00:01:20 #9705 [verbose] > │ v25 │
00:01:20 #9706 [verbose] > │ | US1_0(v23) -> (* Some *) │
00:01:20 #9707 [verbose] > │ let v24 : int64 option = Some v23 │
00:01:20 #9708 [verbose] > │ v24 │
00:01:20 #9709 [verbose] > │ let v28 : int64 option = method1(v27) │
00:01:20 #9710 [verbose] > │ v28 │
00:01:20 #9711 [verbose] > │ #else │
00:01:20 #9712 [verbose] > │ let v29 : int64 option = None │
00:01:20 #9713 [verbose] > │ let v30 : int64 option = method2(v29) │
00:01:20 #9714 [verbose] > │ v30 │
00:01:20 #9715 [verbose] > │ #endif │
00:01:20 #9716 [verbose] > │ |> fun x -> _v5 <- Some x │
00:01:20 #9717 [verbose] > │ let v31 : int64 option = _v5.Value │
00:01:20 #9718 [verbose] > │ struct (v1, v4, v0, v3, v31) │
00:01:20 #9719 [verbose] > │ and closure1 () () : string = │
00:01:20 #9720 [verbose] > │ let v0 : string = "test" │
00:01:20 #9721 [verbose] > │ v0 │
00:01:20 #9722 [verbose] > │ and method0 () : unit = │
00:01:20 #9723 [verbose] > │ let v0 : (unit -> struct (Mut0 * Mut1 * Mut1 * Mut2 * int64 option)) = │
00:01:20 #9724 [verbose] > │ closure0() │
00:01:20 #9725 [verbose] > │ if State.trace_state = None then State.trace_state <- v0 () |> Some │
00:01:20 #9726 [verbose] > │ let struct (v1 : Mut0, v2 : Mut1, v3 : Mut1, v4 : Mut2, v5 : int64 │
00:01:20 #9727 [verbose] > │ option) = State.trace_state.Value │
00:01:20 #9728 [verbose] > │ if State.trace_state = None then State.trace_state <- v0 () |> Some │
00:01:20 #9729 [verbose] > │ let struct (v6 : Mut0, v7 : Mut1, v8 : Mut1, v9 : Mut2, v10 : int64 │
00:01:20 #9730 [verbose] > │ option) = State.trace_state.Value │
00:01:20 #9731 [verbose] > │ let v11 : US0 = v9.l0 │
00:01:20 #9732 [verbose] > │ let v12 : bool = v8.l0 │
00:01:20 #9733 [verbose] > │ let v15 : bool = │
00:01:20 #9734 [verbose] > │ if v12 then │
00:01:20 #9735 [verbose] > │ let v13 : US0 = US0_1 │
00:01:20 #9736 [verbose] > │ let v14 : bool = v13 >= v11 │
00:01:20 #9737 [verbose] > │ v14 │
00:01:20 #9738 [verbose] > │ else │
00:01:20 #9739 [verbose] > │ false │
00:01:20 #9740 [verbose] > │ if v15 then │
00:01:20 #9741 [verbose] > │ let v16 : int64 = v1.l0 │
00:01:20 #9742 [verbose] > │ let v17 : int64 = v16 + 1L │
00:01:20 #9743 [verbose] > │ v1.l0 <- v17 │
00:01:20 #9744 [verbose] > │ let v18 : (unit -> string) = closure1() │
00:01:20 #9745 [verbose] > │ let v19 : string = $"%s{v18 ()}" │
00:01:20 #9746 [verbose] > │ let v20 : unit option = None │
00:01:20 #9747 [verbose] > │ let mutable _v20 = v20 │
00:01:20 #9748 [verbose] > │ #if FABLE_COMPILER_RUST && !WASM && !CONTRACT │
00:01:20 #9749 [verbose] > │ let v21 : string = @"println!(""{}"", $0)" │
00:01:20 #9750 [verbose] > │ Fable.Core.RustInterop.emitRustExpr v19 v21 │
00:01:20 #9751 [verbose] > │ () │
00:01:20 #9752 [verbose] > │ #endif │
00:01:20 #9753 [verbose] > │ #if FABLE_COMPILER_RUST && WASM │
00:01:20 #9754 [verbose] > │ let v22 : string = @"println!(""{}"", $0)" │
00:01:20 #9755 [verbose] > │ Fable.Core.RustInterop.emitRustExpr v19 v22 │
00:01:20 #9756 [verbose] > │ () │
00:01:20 #9757 [verbose] > │ #endif │
00:01:20 #9758 [verbose] > │ #if FABLE_COMPILER_RUST && CONTRACT │
00:01:20 #9759 [verbose] > │ let v23 : string = @"println!(""{}"", $0)" │
00:01:20 #9760 [verbose] > │ Fable.Core.RustInterop.emitRustExpr v19 v23 │
00:01:20 #9761 [verbose] > │ () │
00:01:20 #9762 [verbose] > │ #endif │
00:01:20 #9763 [verbose] > │ #if !FABLE_COMPILER && !FABLE_COMPILER_RUST && │
00:01:20 #9764 [verbose] > │ !FABLE_COMPILER_TYPESCRIPT && !WASM && !CONTRACT │
00:01:20 #9765 [verbose] > │ System.Console.WriteLine v19 │
00:01:20 #9766 [verbose] > │ () │
00:01:20 #9767 [verbose] > │ #endif │
00:01:20 #9768 [verbose] > │ #if FABLE_COMPILER_TYPESCRIPT │
00:01:20 #9769 [verbose] > │ System.Console.WriteLine v19 │
00:01:20 #9770 [verbose] > │ () │
00:01:20 #9771 [verbose] > │ #endif │
00:01:20 #9772 [verbose] > │ #if FABLE_COMPILER_PYTHON || FABLE_COMPILER_PHP || │
00:01:20 #9773 [verbose] > │ FABLE_COMPILER_DART │
00:01:20 #9774 [verbose] > │ Unchecked.defaultof<unit> │
00:01:20 #9775 [verbose] > │ () │
00:01:20 #9776 [verbose] > │ #endif │
00:01:20 #9777 [verbose] > │ |> fun x -> _v20 <- Some x │
00:01:20 #9778 [verbose] > │ _v20.Value │
00:01:20 #9779 [verbose] > │ () │
00:01:20 #9780 [verbose] > │ method0() │
00:01:20 #9781 [verbose] > │ │
00:01:20 #9782 [verbose] > │ test │
00:01:20 #9783 [verbose] > │ │
00:01:20 #9784 [verbose] > ╰──────────────────────────────────────────────────────────────────────────────╯
00:01:20 #9785 [verbose] >
00:01:20 #9786 [verbose] > ── markdown ────────────────────────────────────────────────────────────────────
00:01:20 #9787 [verbose] > ╭──────────────────────────────────────────────────────────────────────────────╮
00:01:20 #9788 [verbose] > │ ## trace │
00:01:20 #9789 [verbose] > ╰──────────────────────────────────────────────────────────────────────────────╯
00:01:20 #9790 [verbose] >
00:01:20 #9791 [verbose] > ── spiral ──────────────────────────────────────────────────────────────────────
00:01:20 #9792 [verbose] > let trace (level : trace_level) (fn : () -> string) (get_locals : () -> string)
00:01:20 #9793 [verbose] > =
00:01:20 #9794 [verbose] > fun () =>
00:01:20 #9795 [verbose] > inl trace_state = get_trace_state ()
00:01:20 #9796 [verbose] > inl time =
00:01:20 #9797 [verbose] > run_target fun target =>
00:01:20 #9798 [verbose] > match target with
00:01:20 #9799 [verbose] > | Fsharp (Native)
00:01:20 #9800 [verbose] > | Rust (Native) => fun () =>
00:01:20 #9801 [verbose] > match trace_state.repl_start |> optionm'.unbox with
00:01:20 #9802 [verbose] > | Some repl_start =>
00:01:20 #9803 [verbose] > inl t =
00:01:20 #9804 [verbose] > (date_time.now () |> date_time.ticks |> fun
00:01:20 #9805 [verbose] > (date_time.timestamp x) => x)
00:01:20 #9806 [verbose] > - repl_start |> date_time.time_span
00:01:20 #9807 [verbose] > date_time.date_time_milliseconds
00:01:20 #9808 [verbose] > 1i32 1i32 1i32
00:01:20 #9809 [verbose] > (t |> date_time.hours)
00:01:20 #9810 [verbose] > (t |> date_time.minutes)
00:01:20 #9811 [verbose] > (t |> date_time.seconds)
00:01:20 #9812 [verbose] > (t |> date_time.milliseconds)
00:01:20 #9813 [verbose] > | None => date_time.now ()
00:01:20 #9814 [verbose] > |> fun date_time =>
00:01:20 #9815 [verbose] > inl format =
00:01:20 #9816 [verbose] > match target with
00:01:20 #9817 [verbose] > | Rust _ => "hh:mm:ss"
00:01:20 #9818 [verbose] > | _ => "HH:mm:ss"
00:01:20 #9819 [verbose] > $'!date_time.ToString !format '
00:01:20 #9820 [verbose] > | _ => fun () => join ""
00:01:20 #9821 [verbose] > inl count = *trace_state.count
00:01:20 #9822 [verbose] > inl level = level |> to_string |> sm'.to_lower
00:01:20 #9823 [verbose] > $'$"{!time} #{!count} [[{!level}]] %s{!fn ()} / %s{!get_locals ()}"'
00:01:20 #9824 [verbose] > |> sm'.trim_start ;[[]]
00:01:20 #9825 [verbose] > |> sm'.trim_end ;[[ ' '; '/' ]]
00:01:20 #9826 [verbose] > |> trace_raw level
00:01:20 #9827 [verbose] > Building c:\home\git\polyglot\target\polyglot\spiral_eval\packages\988a104782c25b30584ed4bd6db0f04286c3bf13113c3af8d5db02d05b35cefa\main.spi
00:01:20 #9828 [verbose] >
00:01:20 #9829 [verbose] > ╭─[ 244.55ms - stdout ]────────────────────────────────────────────────────────╮
00:01:20 #9830 [verbose] > │ () │
00:01:20 #9831 [verbose] > │ │
00:01:20 #9832 [verbose] > │ │
00:01:20 #9833 [verbose] > ╰──────────────────────────────────────────────────────────────────────────────╯
00:01:20 #9834 [verbose] >
00:01:20 #9835 [verbose] > ── spiral ──────────────────────────────────────────────────────────────────────
00:01:20 #9836 [verbose] > // // test
00:01:20 #9837 [verbose] > // // print_code=false
00:01:20 #9838 [verbose] >
00:01:20 #9839 [verbose] > trace Debug (fun () => "test") get_locals
00:01:20 #9840 [verbose] > trace Debug (fun () => "test") get_locals
00:01:20 #9841 [verbose] > Building c:\home\git\polyglot\target\polyglot\spiral_eval\packages\30665f37067becbd853b80ab863264734188a097264fd77c6eff7ea06b5995ff\main.spi
00:01:21 #9842 [verbose] >
00:01:21 #9843 [verbose] > ╭─[ 529.85ms - stdout ]────────────────────────────────────────────────────────╮
00:01:21 #9844 [verbose] > │ 00:00:00 #1 [debug] test │
00:01:21 #9845 [verbose] > │ 00:00:00 #2 [debug] test │
00:01:21 #9846 [verbose] > │ │
00:01:21 #9847 [verbose] > ╰──────────────────────────────────────────────────────────────────────────────╯
00:01:21 #9848 [verbose] >
00:01:21 #9849 [verbose] > ── markdown ────────────────────────────────────────────────────────────────────
00:01:21 #9850 [verbose] > ╭──────────────────────────────────────────────────────────────────────────────╮
00:01:21 #9851 [verbose] > │ ## main │
00:01:21 #9852 [verbose] > ╰──────────────────────────────────────────────────────────────────────────────╯
00:01:21 #9853 [verbose] >
00:01:21 #9854 [verbose] > ── spiral ──────────────────────────────────────────────────────────────────────
00:01:21 #9855 [verbose] > inl main () =
00:01:21 #9856 [verbose] > $"let trace x = !trace x" : ()
00:01:21 #9857 [verbose] > $"let get_trace_state () = !get_trace_state ()" : ()
00:01:21 #9858 [verbose] > Building c:\home\git\polyglot\target\polyglot\spiral_eval\packages\12bf6ee747eb3243f9deb9e68551feacfcaa6ad664e8d8c317ba14c722f47be9\main.spi
00:01:21 #9859 [verbose] >
00:01:21 #9860 [verbose] > ╭─[ 481.19ms - stdout ]────────────────────────────────────────────────────────╮
00:01:21 #9861 [verbose] > │ module State = let mutable trace_state = None │
00:01:21 #9862 [verbose] > │ type [<Struct>] US0 = │
00:01:21 #9863 [verbose] > │ | US0_0 │
00:01:21 #9864 [verbose] > │ | US0_1 │
00:01:21 #9865 [verbose] > │ | US0_2 │
00:01:21 #9866 [verbose] > │ | US0_3 │
00:01:21 #9867 [verbose] > │ | US0_4 │
00:01:21 #9868 [verbose] > │ and Mut0 = {mutable l0 : int64} │
00:01:21 #9869 [verbose] > │ and Mut1 = {mutable l0 : bool} │
00:01:21 #9870 [verbose] > │ and Mut2 = {mutable l0 : US0} │
00:01:21 #9871 [verbose] > │ and [<Struct>] US1 = │
00:01:21 #9872 [verbose] > │ | US1_0 of f0_0 : int64 │
00:01:21 #9873 [verbose] > │ | US1_1 │
00:01:21 #9874 [verbose] > │ and [<Struct>] US2 = │
00:01:21 #9875 [verbose] > │ | US2_0 of f0_0 : int64 │
00:01:21 #9876 [verbose] > │ | US2_1 │
00:01:21 #9877 [verbose] > │ let rec method1 (v0 : int64 option) : int64 option = │
00:01:21 #9878 [verbose] > │ v0 │
00:01:21 #9879 [verbose] > │ and method2 (v0 : int64 option) : int64 option = │
00:01:21 #9880 [verbose] > │ v0 │
00:01:21 #9881 [verbose] > │ and closure3 () () : struct (Mut0 * Mut1 * Mut1 * Mut2 * int64 option) = │
00:01:21 #9882 [verbose] > │ let v0 : Mut1 = {l0 = true} : Mut1 │
00:01:21 #9883 [verbose] > │ let v1 : Mut0 = {l0 = 0L} : Mut0 │
00:01:21 #9884 [verbose] > │ let v2 : US0 = US0_0 │
00:01:21 #9885 [verbose] > │ let v3 : Mut2 = {l0 = v2} : Mut2 │
00:01:21 #9886 [verbose] > │ let v4 : Mut1 = {l0 = false} : Mut1 │
00:01:21 #9887 [verbose] > │ let v5 : int64 option option = None │
00:01:21 #9888 [verbose] > │ let mutable _v5 = v5 │
00:01:21 #9889 [verbose] > │ #if INTERACTIVE || !FABLE_COMPILER │
00:01:21 #9890 [verbose] > │ let v6 : string option = None │
00:01:21 #9891 [verbose] > │ let mutable _v6 = v6 │
00:01:21 #9892 [verbose] > │ #if FABLE_COMPILER_RUST && !WASM && !CONTRACT │
00:01:21 #9893 [verbose] > │ let v7 : string = null |> unbox<string> │
00:01:21 #9894 [verbose] > │ v7 │
00:01:21 #9895 [verbose] > │ #endif │
00:01:21 #9896 [verbose] > │ #if FABLE_COMPILER_RUST && WASM │
00:01:21 #9897 [verbose] > │ let v8 : string = null |> unbox<string> │
00:01:21 #9898 [verbose] > │ v8 │
00:01:21 #9899 [verbose] > │ #endif │
00:01:21 #9900 [verbose] > │ #if FABLE_COMPILER_RUST && CONTRACT │
00:01:21 #9901 [verbose] > │ let v9 : string = null |> unbox<string> │
00:01:21 #9902 [verbose] > │ v9 │
00:01:21 #9903 [verbose] > │ #endif │
00:01:21 #9904 [verbose] > │ #if !FABLE_COMPILER && !FABLE_COMPILER_RUST && │
00:01:21 #9905 [verbose] > │ !FABLE_COMPILER_TYPESCRIPT && !WASM && !CONTRACT │
00:01:21 #9906 [verbose] > │ let v10 : string = │
00:01:21 #9907 [verbose] > │ System.Reflection.Assembly.GetEntryAssembly().GetName().Name │
00:01:21 #9908 [verbose] > │ v10 │
00:01:21 #9909 [verbose] > │ #endif │
00:01:21 #9910 [verbose] > │ #if FABLE_COMPILER_TYPESCRIPT │
00:01:21 #9911 [verbose] > │ let v11 : string = null |> unbox<string> │
00:01:21 #9912 [verbose] > │ v11 │
00:01:21 #9913 [verbose] > │ #endif │
00:01:21 #9914 [verbose] > │ #if FABLE_COMPILER_PYTHON || FABLE_COMPILER_PHP || FABLE_COMPILER_DART │
00:01:21 #9915 [verbose] > │ let v12 : string = Unchecked.defaultof<string> │
00:01:21 #9916 [verbose] > │ v12 │
00:01:21 #9917 [verbose] > │ #endif │
00:01:21 #9918 [verbose] > │ |> fun x -> _v6 <- Some x │
00:01:21 #9919 [verbose] > │ let v13 : string = _v6.Value │
00:01:21 #9920 [verbose] > │ let v15 : bool = v13 = "Microsoft.DotNet.Interactive.App" │
00:01:21 #9921 [verbose] > │ let v16 : bool = v15 <> true │
00:01:21 #9922 [verbose] > │ let v22 : US1 = │
00:01:21 #9923 [verbose] > │ if v16 then │
00:01:21 #9924 [verbose] > │ let v17 : System.DateTime = System.DateTime.Now │
00:01:21 #9925 [verbose] > │ let v18 : (System.DateTime -> int64) = _.Ticks │
00:01:21 #9926 [verbose] > │ let v19 : int64 = v18 v17 │
00:01:21 #9927 [verbose] > │ US1_0(v19) │
00:01:21 #9928 [verbose] > │ else │
00:01:21 #9929 [verbose] > │ US1_1 │
00:01:21 #9930 [verbose] > │ let v27 : int64 option = │
00:01:21 #9931 [verbose] > │ match v22 with │
00:01:21 #9932 [verbose] > │ | US1_1 -> (* None *) │
00:01:21 #9933 [verbose] > │ let v25 : int64 option = None │
00:01:21 #9934 [verbose] > │ v25 │
00:01:21 #9935 [verbose] > │ | US1_0(v23) -> (* Some *) │
00:01:21 #9936 [verbose] > │ let v24 : int64 option = Some v23 │
00:01:21 #9937 [verbose] > │ v24 │
00:01:21 #9938 [verbose] > │ let v28 : int64 option = method1(v27) │
00:01:21 #9939 [verbose] > │ v28 │
00:01:21 #9940 [verbose] > │ #else │
00:01:21 #9941 [verbose] > │ let v29 : int64 option = None │
00:01:21 #9942 [verbose] > │ let v30 : int64 option = method2(v29) │
00:01:21 #9943 [verbose] > │ v30 │
00:01:21 #9944 [verbose] > │ #endif │
00:01:21 #9945 [verbose] > │ |> fun x -> _v5 <- Some x │
00:01:21 #9946 [verbose] > │ let v31 : int64 option = _v5.Value │
00:01:21 #9947 [verbose] > │ struct (v1, v4, v0, v3, v31) │
00:01:21 #9948 [verbose] > │ and closure5 () (v0 : int64) : US2 = │
00:01:21 #9949 [verbose] > │ US2_0(v0) │
00:01:21 #9950 [verbose] > │ and method3 () : (int64 -> US2) = │
00:01:21 #9951 [verbose] > │ closure5() │
00:01:21 #9952 [verbose] > │ and method4 () : string = │
00:01:21 #9953 [verbose] > │ let v0 : string = "" │
00:01:21 #9954 [verbose] > │ v0 │
00:01:21 #9955 [verbose] > │ and closure4 (v0 : US0, v1 : (unit -> string), v2 : (unit -> string)) () : │
00:01:21 #9956 [verbose] > │ string = │
00:01:21 #9957 [verbose] > │ let v3 : (unit -> struct (Mut0 * Mut1 * Mut1 * Mut2 * int64 option)) = │
00:01:21 #9958 [verbose] > │ closure3() │
00:01:21 #9959 [verbose] > │ if State.trace_state = None then State.trace_state <- v3 () |> Some │
00:01:21 #9960 [verbose] > │ let struct (v4 : Mut0, v5 : Mut1, v6 : Mut1, v7 : Mut2, v8 : int64 │
00:01:21 #9961 [verbose] > │ option) = State.trace_state.Value │
00:01:21 #9962 [verbose] > │ let v9 : string option = None │
00:01:21 #9963 [verbose] > │ let mutable _v9 = v9 │
00:01:21 #9964 [verbose] > │ #if FABLE_COMPILER_RUST && !WASM && !CONTRACT │
00:01:21 #9965 [verbose] > │ let v10 : (int64 -> US2) = method3() │
00:01:21 #9966 [verbose] > │ let v11 : US2 = US2_1 │
00:01:21 #9967 [verbose] > │ let v12 : US2 = v8 |> Option.map v10 |> Option.defaultValue v11 │
00:01:21 #9968 [verbose] > │ let v30 : System.DateTime = │
00:01:21 #9969 [verbose] > │ match v12 with │
00:01:21 #9970 [verbose] > │ | US2_1 -> (* None *) │
00:01:21 #9971 [verbose] > │ let v28 : System.DateTime = System.DateTime.Now │
00:01:21 #9972 [verbose] > │ v28 │
00:01:21 #9973 [verbose] > │ | US2_0(v13) -> (* Some *) │
00:01:21 #9974 [verbose] > │ let v14 : System.DateTime = System.DateTime.Now │
00:01:21 #9975 [verbose] > │ let v15 : (System.DateTime -> int64) = _.Ticks │
00:01:21 #9976 [verbose] > │ let v16 : int64 = v15 v14 │
00:01:21 #9977 [verbose] > │ let v17 : int64 = v16 - v13 │
00:01:21 #9978 [verbose] > │ let v18 : System.TimeSpan = System.TimeSpan v17 │
00:01:21 #9979 [verbose] > │ let v19 : (System.TimeSpan -> int32) = _.Hours │
00:01:21 #9980 [verbose] > │ let v20 : int32 = v19 v18 │
00:01:21 #9981 [verbose] > │ let v21 : (System.TimeSpan -> int32) = _.Minutes │
00:01:21 #9982 [verbose] > │ let v22 : int32 = v21 v18 │
00:01:21 #9983 [verbose] > │ let v23 : (System.TimeSpan -> int32) = _.Seconds │
00:01:21 #9984 [verbose] > │ let v24 : int32 = v23 v18 │
00:01:21 #9985 [verbose] > │ let v25 : (System.TimeSpan -> int32) = _.Milliseconds │
00:01:21 #9986 [verbose] > │ let v26 : int32 = v25 v18 │
00:01:21 #9987 [verbose] > │ let v27 : System.DateTime = System.DateTime (1, 1, 1, v20, v22, │
00:01:21 #9988 [verbose] > │ v24, v26) │
00:01:21 #9989 [verbose] > │ v27 │
00:01:21 #9990 [verbose] > │ let v31 : string = "hh:mm:ss" │
00:01:21 #9991 [verbose] > │ let v32 : string = v30.ToString v31 │
00:01:21 #9992 [verbose] > │ v32 │
00:01:21 #9993 [verbose] > │ #endif │
00:01:21 #9994 [verbose] > │ #if FABLE_COMPILER_RUST && WASM │
00:01:21 #9995 [verbose] > │ let v33 : string = method4() │
00:01:21 #9996 [verbose] > │ v33 │
00:01:21 #9997 [verbose] > │ #endif │
00:01:21 #9998 [verbose] > │ #if FABLE_COMPILER_RUST && CONTRACT │
00:01:21 #9999 [verbose] > │ let v34 : string = method4() │
00:01:21 #10000 [verbose] > │ v34 │
00:01:21 #10001 [verbose] > │ #endif │
00:01:21 #10002 [verbose] > │ #if !FABLE_COMPILER && !FABLE_COMPILER_RUST && │
00:01:21 #10003 [verbose] > │ !FABLE_COMPILER_TYPESCRIPT && !WASM && !CONTRACT │
00:01:21 #10004 [verbose] > │ let v35 : (int64 -> US2) = method3() │
00:01:21 #10005 [verbose] > │ let v36 : US2 = US2_1 │
00:01:21 #10006 [verbose] > │ let v37 : US2 = v8 |> Option.map v35 |> Option.defaultValue v36 │
00:01:21 #10007 [verbose] > │ let v55 : System.DateTime = │
00:01:21 #10008 [verbose] > │ match v37 with │
00:01:21 #10009 [verbose] > │ | US2_1 -> (* None *) │
00:01:21 #10010 [verbose] > │ let v53 : System.DateTime = System.DateTime.Now │
00:01:21 #10011 [verbose] > │ v53 │
00:01:21 #10012 [verbose] > │ | US2_0(v38) -> (* Some *) │
00:01:21 #10013 [verbose] > │ let v39 : System.DateTime = System.DateTime.Now │
00:01:21 #10014 [verbose] > │ let v40 : (System.DateTime -> int64) = _.Ticks │
00:01:21 #10015 [verbose] > │ let v41 : int64 = v40 v39 │
00:01:21 #10016 [verbose] > │ let v42 : int64 = v41 - v38 │
00:01:21 #10017 [verbose] > │ let v43 : System.TimeSpan = System.TimeSpan v42 │
00:01:21 #10018 [verbose] > │ let v44 : (System.TimeSpan -> int32) = _.Hours │
00:01:21 #10019 [verbose] > │ let v45 : int32 = v44 v43 │
00:01:21 #10020 [verbose] > │ let v46 : (System.TimeSpan -> int32) = _.Minutes │
00:01:21 #10021 [verbose] > │ let v47 : int32 = v46 v43 │
00:01:21 #10022 [verbose] > │ let v48 : (System.TimeSpan -> int32) = _.Seconds │
00:01:21 #10023 [verbose] > │ let v49 : int32 = v48 v43 │
00:01:21 #10024 [verbose] > │ let v50 : (System.TimeSpan -> int32) = _.Milliseconds │
00:01:21 #10025 [verbose] > │ let v51 : int32 = v50 v43 │
00:01:21 #10026 [verbose] > │ let v52 : System.DateTime = System.DateTime (1, 1, 1, v45, v47, │
00:01:21 #10027 [verbose] > │ v49, v51) │
00:01:21 #10028 [verbose] > │ v52 │
00:01:21 #10029 [verbose] > │ let v56 : string = "HH:mm:ss" │
00:01:21 #10030 [verbose] > │ let v57 : string = v55.ToString v56 │
00:01:21 #10031 [verbose] > │ v57 │
00:01:21 #10032 [verbose] > │ #endif │
00:01:21 #10033 [verbose] > │ #if FABLE_COMPILER_TYPESCRIPT │
00:01:21 #10034 [verbose] > │ let v58 : string = method4() │
00:01:21 #10035 [verbose] > │ v58 │
00:01:21 #10036 [verbose] > │ #endif │
00:01:21 #10037 [verbose] > │ #if FABLE_COMPILER_PYTHON || FABLE_COMPILER_PHP || FABLE_COMPILER_DART │
00:01:21 #10038 [verbose] > │ let v59 : string = Unchecked.defaultof<string> │
00:01:21 #10039 [verbose] > │ v59 │
00:01:21 #10040 [verbose] > │ #endif │
00:01:21 #10041 [verbose] > │ |> fun x -> _v9 <- Some x │
00:01:21 #10042 [verbose] > │ let v60 : string = _v9.Value │
00:01:21 #10043 [verbose] > │ let v61 : int64 = v4.l0 │
00:01:21 #10044 [verbose] > │ let v71 : string = │
00:01:21 #10045 [verbose] > │ match v0 with │
00:01:21 #10046 [verbose] > │ | US0_4 -> (* Critical *) │
00:01:21 #10047 [verbose] > │ let v66 : string = "Critical" │
00:01:21 #10048 [verbose] > │ v66 │
00:01:21 #10049 [verbose] > │ | US0_1 -> (* Debug *) │
00:01:21 #10050 [verbose] > │ let v63 : string = "Debug" │
00:01:21 #10051 [verbose] > │ v63 │
00:01:21 #10052 [verbose] > │ | US0_2 -> (* Info *) │
00:01:21 #10053 [verbose] > │ let v64 : string = "Info" │
00:01:21 #10054 [verbose] > │ v64 │
00:01:21 #10055 [verbose] > │ | US0_0 -> (* Verbose *) │
00:01:21 #10056 [verbose] > │ let v62 : string = "Verbose" │
00:01:21 #10057 [verbose] > │ v62 │
00:01:21 #10058 [verbose] > │ | US0_3 -> (* Warning *) │
00:01:21 #10059 [verbose] > │ let v65 : string = "Warning" │
00:01:21 #10060 [verbose] > │ v65 │
00:01:21 #10061 [verbose] > │ let v72 : string = v71.ToLower () │
00:01:21 #10062 [verbose] > │ let v73 : string = $"{v60} #{v61} [{v72}] %s{v1 ()} / %s{v2 ()}" │
00:01:21 #10063 [verbose] > │ let v74 : (char []) = [||] │
00:01:21 #10064 [verbose] > │ let v75 : string = v73.TrimStart v74 │
00:01:21 #10065 [verbose] > │ let v76 : (char []) = [|' '; '/'|] │
00:01:21 #10066 [verbose] > │ let v77 : string = v75.TrimEnd v76 │
00:01:21 #10067 [verbose] > │ v77 │
00:01:21 #10068 [verbose] > │ and method0 (v0 : US0, v1 : (unit -> string), v2 : (unit -> string)) : unit │
00:01:21 #10069 [verbose] > │ = │
00:01:21 #10070 [verbose] > │ let v3 : (unit -> struct (Mut0 * Mut1 * Mut1 * Mut2 * int64 option)) = │
00:01:21 #10071 [verbose] > │ closure3() │
00:01:21 #10072 [verbose] > │ if State.trace_state = None then State.trace_state <- v3 () |> Some │
00:01:21 #10073 [verbose] > │ let struct (v4 : Mut0, v5 : Mut1, v6 : Mut1, v7 : Mut2, v8 : int64 │
00:01:21 #10074 [verbose] > │ option) = State.trace_state.Value │
00:01:21 #10075 [verbose] > │ if State.trace_state = None then State.trace_state <- v3 () |> Some │
00:01:21 #10076 [verbose] > │ let struct (v9 : Mut0, v10 : Mut1, v11 : Mut1, v12 : Mut2, v13 : int64 │
00:01:21 #10077 [verbose] > │ option) = State.trace_state.Value │
00:01:21 #10078 [verbose] > │ let v14 : US0 = v12.l0 │
00:01:21 #10079 [verbose] > │ let v15 : bool = v11.l0 │
00:01:21 #10080 [verbose] > │ let v17 : bool = │
00:01:21 #10081 [verbose] > │ if v15 then │
00:01:21 #10082 [verbose] > │ let v16 : bool = v0 >= v14 │
00:01:21 #10083 [verbose] > │ v16 │
00:01:21 #10084 [verbose] > │ else │
00:01:21 #10085 [verbose] > │ false │
00:01:21 #10086 [verbose] > │ if v17 then │
00:01:21 #10087 [verbose] > │ let v18 : int64 = v4.l0 │
00:01:21 #10088 [verbose] > │ let v19 : int64 = v18 + 1L │
00:01:21 #10089 [verbose] > │ v4.l0 <- v19 │
00:01:21 #10090 [verbose] > │ let v20 : (unit -> string) = closure4(v0, v1, v2) │
00:01:21 #10091 [verbose] > │ let v21 : string = $"%s{v20 ()}" │
00:01:21 #10092 [verbose] > │ let v22 : unit option = None │
00:01:21 #10093 [verbose] > │ let mutable _v22 = v22 │
00:01:21 #10094 [verbose] > │ #if FABLE_COMPILER_RUST && !WASM && !CONTRACT │
00:01:21 #10095 [verbose] > │ let v23 : string = @"println!(""{}"", $0)" │
00:01:21 #10096 [verbose] > │ Fable.Core.RustInterop.emitRustExpr v21 v23 │
00:01:21 #10097 [verbose] > │ () │
00:01:21 #10098 [verbose] > │ #endif │
00:01:21 #10099 [verbose] > │ #if FABLE_COMPILER_RUST && WASM │
00:01:21 #10100 [verbose] > │ let v24 : string = @"println!(""{}"", $0)" │
00:01:21 #10101 [verbose] > │ Fable.Core.RustInterop.emitRustExpr v21 v24 │
00:01:21 #10102 [verbose] > │ () │
00:01:21 #10103 [verbose] > │ #endif │
00:01:21 #10104 [verbose] > │ #if FABLE_COMPILER_RUST && CONTRACT │
00:01:21 #10105 [verbose] > │ let v25 : string = @"println!(""{}"", $0)" │
00:01:21 #10106 [verbose] > │ Fable.Core.RustInterop.emitRustExpr v21 v25 │
00:01:21 #10107 [verbose] > │ () │
00:01:21 #10108 [verbose] > │ #endif │
00:01:21 #10109 [verbose] > │ #if !FABLE_COMPILER && !FABLE_COMPILER_RUST && │
00:01:21 #10110 [verbose] > │ !FABLE_COMPILER_TYPESCRIPT && !WASM && !CONTRACT │
00:01:21 #10111 [verbose] > │ System.Console.WriteLine v21 │
00:01:21 #10112 [verbose] > │ () │
00:01:21 #10113 [verbose] > │ #endif │
00:01:21 #10114 [verbose] > │ #if FABLE_COMPILER_TYPESCRIPT │
00:01:21 #10115 [verbose] > │ System.Console.WriteLine v21 │
00:01:21 #10116 [verbose] > │ () │
00:01:21 #10117 [verbose] > │ #endif │
00:01:21 #10118 [verbose] > │ #if FABLE_COMPILER_PYTHON || FABLE_COMPILER_PHP || │
00:01:21 #10119 [verbose] > │ FABLE_COMPILER_DART │
00:01:21 #10120 [verbose] > │ Unchecked.defaultof<unit> │
00:01:21 #10121 [verbose] > │ () │
00:01:21 #10122 [verbose] > │ #endif │
00:01:21 #10123 [verbose] > │ |> fun x -> _v22 <- Some x │
00:01:21 #10124 [verbose] > │ _v22.Value │
00:01:21 #10125 [verbose] > │ () │
00:01:21 #10126 [verbose] > │ and closure2 (v0 : US0, v1 : (unit -> string)) (v2 : (unit -> string)) : │
00:01:21 #10127 [verbose] > │ unit = │
00:01:21 #10128 [verbose] > │ method0(v0, v1, v2) │
00:01:21 #10129 [verbose] > │ and closure1 (v0 : US0) (v1 : (unit -> string)) : ((unit -> string) -> unit) │
00:01:21 #10130 [verbose] > │ = │
00:01:21 #10131 [verbose] > │ closure2(v0, v1) │
00:01:21 #10132 [verbose] > │ and closure0 () (v0 : US0) : ((unit -> string) -> ((unit -> string) -> │
00:01:21 #10133 [verbose] > │ unit)) = │
00:01:21 #10134 [verbose] > │ closure1(v0) │
00:01:21 #10135 [verbose] > │ and closure6 () () : struct (Mut0 * Mut1 * Mut1 * Mut2 * int64 option) = │
00:01:21 #10136 [verbose] > │ let v0 : (unit -> struct (Mut0 * Mut1 * Mut1 * Mut2 * int64 option)) = │
00:01:21 #10137 [verbose] > │ closure3() │
00:01:21 #10138 [verbose] > │ if State.trace_state = None then State.trace_state <- v0 () |> Some │
00:01:21 #10139 [verbose] > │ let struct (v1 : Mut0, v2 : Mut1, v3 : Mut1, v4 : Mut2, v5 : int64 │
00:01:21 #10140 [verbose] > │ option) = State.trace_state.Value │
00:01:21 #10141 [verbose] > │ struct (v1, v2, v3, v4, v5) │
00:01:21 #10142 [verbose] > │ let v0 : (US0 -> ((unit -> string) -> ((unit -> string) -> unit))) = │
00:01:21 #10143 [verbose] > │ closure0() │
00:01:21 #10144 [verbose] > │ let trace x = v0 x │
00:01:21 #10145 [verbose] > │ let v1 : (unit -> struct (Mut0 * Mut1 * Mut1 * Mut2 * int64 option)) = │
00:01:21 #10146 [verbose] > │ closure6() │
00:01:21 #10147 [verbose] > │ let get_trace_state () = v1 () │
00:01:21 #10148 [verbose] > │ () │
00:01:21 #10149 [verbose] > │ │
00:01:21 #10150 [verbose] > │ │
00:01:21 #10151 [verbose] > ╰──────────────────────────────────────────────────────────────────────────────╯
00:01:23 #10152 [verbose] > [NbConvertApp] Converting notebook trace.dib.ipynb to html
00:01:23 #10153 [verbose] > C:\Users\i574n\scoop\apps\python\current\Lib\site-packages\nbformat\__init__.py:93: MissingIDFieldWarning: Code cell is missing an id field, this will become a hard error in future nbformat versions. You may want to use `normalize()` on your notebooks before validations (available since nbformat 5.1.4). Previous versions of nbformat are fixing this issue transparently, and will stop doing so in the future.
00:01:23 #10154 [verbose] > validate(nb)
00:01:24 #10155 [verbose] > C:\Users\i574n\scoop\apps\python\current\Lib\site-packages\nbconvert\filters\highlight.py:71: UserWarning: IPython3 lexer unavailable, falling back on Python 3
00:01:24 #10156 [verbose] > return _pygments_highlight(
00:01:24 #10157 [verbose] > [NbConvertApp] Writing 329726 bytes to trace.dib.html
00:01:25 #10158 [debug] execute_with_options_async / exit_code: 0 / output.Length: 62567
00:01:25 #10 [debug] main / executeCommand / exitCode: 0
00:01:25 #10159 [debug] execute_with_options_async / options: struct (Some System.Threading.CancellationToken,
"pwsh -c "../../scripts/invoke-dib.ps1 crypto.dib -Retries 3"", None,
None, None)
00:01:27 #10160 [verbose] >
00:01:27 #10161 [verbose] > ── markdown ────────────────────────────────────────────────────────────────────
00:01:27 #10162 [verbose] > ╭──────────────────────────────────────────────────────────────────────────────╮
00:01:27 #10163 [verbose] > │ # crypto │
00:01:27 #10164 [verbose] > ╰──────────────────────────────────────────────────────────────────────────────╯
00:01:27 #10165 [verbose] >
00:01:27 #10166 [verbose] > ── spiral ──────────────────────────────────────────────────────────────────────
00:01:27 #10167 [verbose] > // // test
00:01:27 #10168 [verbose] >
00:01:27 #10169 [verbose] > open testing
00:01:30 #10170 [verbose] > Building c:\home\git\polyglot\target\polyglot\spiral_eval\packages\8837341da068f4ef4271045b3ef1c89d209237bf74b4f11596b6ee2d484becb0\main.spi
00:01:31 #10171 [verbose] >
00:01:31 #10172 [verbose] > ╭─[ 3.63s - stdout ]───────────────────────────────────────────────────────────╮
00:01:31 #10173 [verbose] > │ () │
00:01:31 #10174 [verbose] > │ │
00:01:31 #10175 [verbose] > │ │
00:01:31 #10176 [verbose] > ╰──────────────────────────────────────────────────────────────────────────────╯
00:01:31 #10177 [verbose] >
00:01:31 #10178 [verbose] > ── markdown ────────────────────────────────────────────────────────────────────
00:01:31 #10179 [verbose] > ╭──────────────────────────────────────────────────────────────────────────────╮
00:01:31 #10180 [verbose] > │ ## sha256 │
00:01:31 #10181 [verbose] > ╰──────────────────────────────────────────────────────────────────────────────╯
00:01:31 #10182 [verbose] >
00:01:31 #10183 [verbose] > ── spiral ──────────────────────────────────────────────────────────────────────
00:01:31 #10184 [verbose] > nominal sha256 = $'System.Security.Cryptography.SHA256'
00:01:31 #10185 [verbose] >
00:01:31 #10186 [verbose] > inl sha256 () : sha256 =
00:01:31 #10187 [verbose] > $'`sha256.Create' ()
00:01:31 #10188 [verbose] > Building c:\home\git\polyglot\target\polyglot\spiral_eval\packages\391125733aa8f01f98990ed96a96f6458feb5d256c9c5d9b37dace0ed8d7854f\main.spi
00:01:31 #10189 [verbose] >
00:01:31 #10190 [verbose] > ╭─[ 268.44ms - stdout ]────────────────────────────────────────────────────────╮
00:01:31 #10191 [verbose] > │ () │
00:01:31 #10192 [verbose] > │ │
00:01:31 #10193 [verbose] > │ │
00:01:31 #10194 [verbose] > ╰──────────────────────────────────────────────────────────────────────────────╯
00:01:31 #10195 [verbose] >
00:01:31 #10196 [verbose] > ── markdown ────────────────────────────────────────────────────────────────────
00:01:31 #10197 [verbose] > ╭──────────────────────────────────────────────────────────────────────────────╮
00:01:31 #10198 [verbose] > │ ## sha256_compute_hash │
00:01:31 #10199 [verbose] > ╰──────────────────────────────────────────────────────────────────────────────╯
00:01:31 #10200 [verbose] >
00:01:31 #10201 [verbose] > ── spiral ──────────────────────────────────────────────────────────────────────
00:01:31 #10202 [verbose] > inl sha256_compute_hash (x : sha256) (data : a i32 u8) : a i32 u8 =
00:01:31 #10203 [verbose] > data |> $'!x.ComputeHash'
00:01:31 #10204 [verbose] > Building c:\home\git\polyglot\target\polyglot\spiral_eval\packages\32fe47403608d84fb54876a14ed9a5219f0876037328d0ce6ea6fa5557881356\main.spi
00:01:31 #10205 [verbose] >
00:01:31 #10206 [verbose] > ╭─[ 281.45ms - stdout ]────────────────────────────────────────────────────────╮
00:01:31 #10207 [verbose] > │ () │
00:01:31 #10208 [verbose] > │ │
00:01:31 #10209 [verbose] > │ │
00:01:31 #10210 [verbose] > ╰──────────────────────────────────────────────────────────────────────────────╯
00:01:31 #10211 [verbose] >
00:01:31 #10212 [verbose] > ── markdown ────────────────────────────────────────────────────────────────────
00:01:31 #10213 [verbose] > ╭──────────────────────────────────────────────────────────────────────────────╮
00:01:31 #10214 [verbose] > │ ## create_hash │
00:01:31 #10215 [verbose] > ╰──────────────────────────────────────────────────────────────────────────────╯
00:01:31 #10216 [verbose] >
00:01:31 #10217 [verbose] > ── spiral ──────────────────────────────────────────────────────────────────────
00:01:31 #10218 [verbose] > inl create_hash (x : string) : any =
00:01:31 #10219 [verbose] > open ts_operators
00:01:31 #10220 [verbose] > global "type ICryptoCreateHash = abstract createHash: x: string -> obj"
00:01:31 #10221 [verbose] > inl crypto : $'ICryptoCreateHash' = ts.import_all "crypto"
00:01:31 #10222 [verbose] > !\\(x, $'"!crypto.createHash($0)"')
00:01:31 #10223 [verbose] > Building c:\home\git\polyglot\target\polyglot\spiral_eval\packages\45c29146c406001ac11dffde7d1aa9509ef39ab2d5ce182fb847cd255e842f66\main.spi
00:01:31 #10224 [verbose] >
00:01:31 #10225 [verbose] > ╭─[ 247.45ms - stdout ]────────────────────────────────────────────────────────╮
00:01:31 #10226 [verbose] > │ () │
00:01:31 #10227 [verbose] > │ │
00:01:31 #10228 [verbose] > │ │
00:01:31 #10229 [verbose] > ╰──────────────────────────────────────────────────────────────────────────────╯
00:01:31 #10230 [verbose] >
00:01:31 #10231 [verbose] > ── markdown ────────────────────────────────────────────────────────────────────
00:01:31 #10232 [verbose] > ╭──────────────────────────────────────────────────────────────────────────────╮
00:01:31 #10233 [verbose] > │ ## hash_update │
00:01:31 #10234 [verbose] > ╰──────────────────────────────────────────────────────────────────────────────╯
00:01:31 #10235 [verbose] >
00:01:31 #10236 [verbose] > ── spiral ──────────────────────────────────────────────────────────────────────
00:01:31 #10237 [verbose] > inl hash_update (s : string) (x : any) : any =
00:01:31 #10238 [verbose] > open ts_operators
00:01:31 #10239 [verbose] > !\\((x, s), $'"$0.update($1, \'utf8\')"')
00:01:32 #10240 [verbose] > Building c:\home\git\polyglot\target\polyglot\spiral_eval\packages\447f7ecf9544c8fdb6655339b3c23425aa25932883806ab1f393bc1bef8841da\main.spi
00:01:32 #10241 [verbose] >
00:01:32 #10242 [verbose] > ╭─[ 269.75ms - stdout ]────────────────────────────────────────────────────────╮
00:01:32 #10243 [verbose] > │ () │
00:01:32 #10244 [verbose] > │ │
00:01:32 #10245 [verbose] > │ │
00:01:32 #10246 [verbose] > ╰──────────────────────────────────────────────────────────────────────────────╯
00:01:32 #10247 [verbose] >
00:01:32 #10248 [verbose] > ── markdown ────────────────────────────────────────────────────────────────────
00:01:32 #10249 [verbose] > ╭──────────────────────────────────────────────────────────────────────────────╮
00:01:32 #10250 [verbose] > │ ## hash_digest │
00:01:32 #10251 [verbose] > ╰──────────────────────────────────────────────────────────────────────────────╯
00:01:32 #10252 [verbose] >
00:01:32 #10253 [verbose] > ── spiral ──────────────────────────────────────────────────────────────────────
00:01:32 #10254 [verbose] > inl hash_digest (s : string) (x : any) : string =
00:01:32 #10255 [verbose] > open ts_operators
00:01:32 #10256 [verbose] > !\\((x, s), $'"$0.digest($1)"')
00:01:32 #10257 [verbose] > Building c:\home\git\polyglot\target\polyglot\spiral_eval\packages\44447460b0f50c2cc132f70d4879b4e541808249da1865bf1b3633dc341b7097\main.spi
00:01:32 #10258 [verbose] >
00:01:32 #10259 [verbose] > ╭─[ 311.15ms - stdout ]────────────────────────────────────────────────────────╮
00:01:32 #10260 [verbose] > │ () │
00:01:32 #10261 [verbose] > │ │
00:01:32 #10262 [verbose] > │ │
00:01:32 #10263 [verbose] > ╰──────────────────────────────────────────────────────────────────────────────╯
00:01:32 #10264 [verbose] >
00:01:32 #10265 [verbose] > ── markdown ────────────────────────────────────────────────────────────────────
00:01:32 #10266 [verbose] > ╭──────────────────────────────────────────────────────────────────────────────╮
00:01:32 #10267 [verbose] > │ ## hash_text │
00:01:32 #10268 [verbose] > ╰──────────────────────────────────────────────────────────────────────────────╯
00:01:32 #10269 [verbose] >
00:01:32 #10270 [verbose] > ── spiral ──────────────────────────────────────────────────────────────────────
00:01:32 #10271 [verbose] > inl hash_text (input : string) =
00:01:32 #10272 [verbose] > run_target function
00:01:32 #10273 [verbose] > | Fsharp (Native) => fun () =>
00:01:32 #10274 [verbose] > inl sha256 = sha256 () |> use
00:01:32 #10275 [verbose] > input
00:01:32 #10276 [verbose] > |> sm'.utf8_get_bytes
00:01:32 #10277 [verbose] > |> sha256_compute_hash sha256
00:01:32 #10278 [verbose] > |> am.map (sm'.byte_to_string "x2")
00:01:32 #10279 [verbose] > |> seq.of_array'
00:01:32 #10280 [verbose] > |> sm'.concat ""
00:01:32 #10281 [verbose] > | TypeScript _ => fun () =>
00:01:32 #10282 [verbose] > create_hash "sha256"
00:01:32 #10283 [verbose] > |> hash_update input
00:01:32 #10284 [verbose] > |> hash_digest "hex"
00:01:32 #10285 [verbose] > | _ => fun () => null ()
00:01:32 #10286 [verbose] > Building c:\home\git\polyglot\target\polyglot\spiral_eval\packages\1a02ce4a2c0c5ba46e7ceabae5f9c684ebaccd6e030bb4496ed54df7aacc6791\main.spi
00:01:33 #10287 [verbose] >
00:01:33 #10288 [verbose] > ╭─[ 546.13ms - stdout ]────────────────────────────────────────────────────────╮
00:01:33 #10289 [verbose] > │ () │
00:01:33 #10290 [verbose] > │ │
00:01:33 #10291 [verbose] > │ │
00:01:33 #10292 [verbose] > ╰──────────────────────────────────────────────────────────────────────────────╯
00:01:33 #10293 [verbose] >
00:01:33 #10294 [verbose] > ── spiral ──────────────────────────────────────────────────────────────────────
00:01:33 #10295 [verbose] > // // test
00:01:33 #10296 [verbose] >
00:01:33 #10297 [verbose] > ""
00:01:33 #10298 [verbose] > |> hash_text
00:01:33 #10299 [verbose] > |> _assert_eq "e3b0c44298fc1c149afbf4c8996fb92427ae41e4649b934ca495991b7852b855"
00:01:33 #10300 [verbose] > Building c:\home\git\polyglot\target\polyglot\spiral_eval\packages\5eeb29d029fc15593f3b65bbe295c41d5810fa0c74c4a906f249b181d087f439\main.spi
00:01:34 #10301 [verbose] >
00:01:34 #10302 [verbose] > ╭─[ 1.45s - stdout ]───────────────────────────────────────────────────────────╮
00:01:34 #10303 [verbose] > │ type ICryptoCreateHash = abstract createHash: x: string -> obj │
00:01:34 #10304 [verbose] > │ type Mut0 = {mutable l0 : int32} │
00:01:34 #10305 [verbose] > │ let rec method1 (v0 : int32, v1 : Mut0) : bool = │
00:01:34 #10306 [verbose] > │ let v2 : int32 = v1.l0 │
00:01:34 #10307 [verbose] > │ let v3 : bool = v2 < v0 │
00:01:34 #10308 [verbose] > │ v3 │
00:01:34 #10309 [verbose] > │ and method2 () : string = │
00:01:34 #10310 [verbose] > │ let v0 : string = "" │
00:01:34 #10311 [verbose] > │ v0 │
00:01:34 #10312 [verbose] > │ and method3 (v0 : bool) : bool = │
00:01:34 #10313 [verbose] > │ v0 │
00:01:34 #10314 [verbose] > │ and method0 () : unit = │
00:01:34 #10315 [verbose] > │ let v0 : string option = None │
00:01:34 #10316 [verbose] > │ let mutable _v0 = v0 │
00:01:34 #10317 [verbose] > │ #if FABLE_COMPILER_RUST && !WASM && !CONTRACT │
00:01:34 #10318 [verbose] > │ let v1 : string = null |> unbox<string> │
00:01:34 #10319 [verbose] > │ v1 │
00:01:34 #10320 [verbose] > │ #endif │
00:01:34 #10321 [verbose] > │ #if FABLE_COMPILER_RUST && WASM │
00:01:34 #10322 [verbose] > │ let v2 : string = null |> unbox<string> │
00:01:34 #10323 [verbose] > │ v2 │
00:01:34 #10324 [verbose] > │ #endif │
00:01:34 #10325 [verbose] > │ #if FABLE_COMPILER_RUST && CONTRACT │
00:01:34 #10326 [verbose] > │ let v3 : string = null |> unbox<string> │
00:01:34 #10327 [verbose] > │ v3 │
00:01:34 #10328 [verbose] > │ #endif │
00:01:34 #10329 [verbose] > │ #if !FABLE_COMPILER && !FABLE_COMPILER_RUST && │
00:01:34 #10330 [verbose] > │ !FABLE_COMPILER_TYPESCRIPT && !WASM && !CONTRACT │
00:01:34 #10331 [verbose] > │ let v4 : (unit -> System.Security.Cryptography.SHA256) = │
00:01:34 #10332 [verbose] > │ System.Security.Cryptography.SHA256.Create │
00:01:34 #10333 [verbose] > │ let v5 : System.Security.Cryptography.SHA256 = v4 () │
00:01:34 #10334 [verbose] > │ use v5 = v5 │
00:01:34 #10335 [verbose] > │ let v6 : System.Security.Cryptography.SHA256 = v5 │
00:01:34 #10336 [verbose] > │ let v7 : (string -> (uint8 [])) = System.Text.Encoding.UTF8.GetBytes │
00:01:34 #10337 [verbose] > │ let v8 : string = "" │
00:01:34 #10338 [verbose] > │ let v9 : (uint8 []) = v7 v8 │
00:01:34 #10339 [verbose] > │ let v10 : ((uint8 []) -> (uint8 [])) = v6.ComputeHash │
00:01:34 #10340 [verbose] > │ let v11 : (uint8 []) = v10 v9 │
00:01:34 #10341 [verbose] > │ let v12 : int32 = v11.Length │
00:01:34 #10342 [verbose] > │ let v13 : (string []) = Array.zeroCreate<string> (v12) │
00:01:34 #10343 [verbose] > │ let v14 : Mut0 = {l0 = 0} : Mut0 │
00:01:34 #10344 [verbose] > │ while method1(v12, v14) do │
00:01:34 #10345 [verbose] > │ let v16 : int32 = v14.l0 │
00:01:34 #10346 [verbose] > │ let v17 : uint8 = v11.[int v16] │
00:01:34 #10347 [verbose] > │ let v18 : (string -> string) = v17.ToString │
00:01:34 #10348 [verbose] > │ let v19 : string = "x2" │
00:01:34 #10349 [verbose] > │ let v20 : string = v18 v19 │
00:01:34 #10350 [verbose] > │ v13.[int v16] <- v20 │
00:01:34 #10351 [verbose] > │ let v21 : int32 = v16 + 1 │
00:01:34 #10352 [verbose] > │ v14.l0 <- v21 │
00:01:34 #10353 [verbose] > │ () │
00:01:34 #10354 [verbose] > │ let v22 : string seq = seq { for i = 0 to v13.Length - 1 do yield v13.[ │
00:01:34 #10355 [verbose] > │ i] } │
00:01:34 #10356 [verbose] > │ let v23 : string = method2() │
00:01:34 #10357 [verbose] > │ let v24 : (string -> (string seq -> string)) = String.concat │
00:01:34 #10358 [verbose] > │ let v25 : (string seq -> string) = v24 v23 │
00:01:34 #10359 [verbose] > │ let v26 : string = v25 v22 │
00:01:34 #10360 [verbose] > │ v26 │
00:01:34 #10361 [verbose] > │ #endif │
00:01:34 #10362 [verbose] > │ #if FABLE_COMPILER_TYPESCRIPT │
00:01:34 #10363 [verbose] > │ let v27 : string = "crypto" │
00:01:34 #10364 [verbose] > │ let v28 : ICryptoCreateHash = Fable.Core.JsInterop.importAll v27 │
00:01:34 #10365 [verbose] > │ let v29 : string = "v28.createHash($0)" │
00:01:34 #10366 [verbose] > │ let v30 : string = "sha256" │
00:01:34 #10367 [verbose] > │ let v31 : obj = Fable.Core.JsInterop.emitJsExpr v30 v29 │
00:01:34 #10368 [verbose] > │ let v32 : string = "$0.update($1, 'utf8')" │
00:01:34 #10369 [verbose] > │ let v33 : obj = Fable.Core.JsInterop.emitJsExpr struct (v31, v8) v32 │
00:01:34 #10370 [verbose] > │ let v34 : string = "$0.digest($1)" │
00:01:34 #10371 [verbose] > │ let v35 : string = "hex" │
00:01:34 #10372 [verbose] > │ let v36 : string = Fable.Core.JsInterop.emitJsExpr struct (v33, v35) v34 │
00:01:34 #10373 [verbose] > │ v36 │
00:01:34 #10374 [verbose] > │ #endif │
00:01:34 #10375 [verbose] > │ #if FABLE_COMPILER_PYTHON || FABLE_COMPILER_PHP || FABLE_COMPILER_DART │
00:01:34 #10376 [verbose] > │ let v37 : string = Unchecked.defaultof<string> │
00:01:34 #10377 [verbose] > │ v37 │
00:01:34 #10378 [verbose] > │ #endif │
00:01:34 #10379 [verbose] > │ |> fun x -> _v0 <- Some x │
00:01:34 #10380 [verbose] > │ let v38 : string = _v0.Value │
00:01:34 #10381 [verbose] > │ let v39 : string = $"%A{v38}" │
00:01:34 #10382 [verbose] > │ System.Console.WriteLine v39 │
00:01:34 #10383 [verbose] > │ let v41 : bool = v38 = │
00:01:34 #10384 [verbose] > │ "e3b0c44298fc1c149afbf4c8996fb92427ae41e4649b934ca495991b7852b855" │
00:01:34 #10385 [verbose] > │ let v43 : bool = │
00:01:34 #10386 [verbose] > │ if v41 then │
00:01:34 #10387 [verbose] > │ true │
00:01:34 #10388 [verbose] > │ else │
00:01:34 #10389 [verbose] > │ method3(v41) │
00:01:34 #10390 [verbose] > │ let v44 : string = │
00:01:34 #10391 [verbose] > │ "e3b0c44298fc1c149afbf4c8996fb92427ae41e4649b934ca495991b7852b855" │
00:01:34 #10392 [verbose] > │ let v45 : string = $"__expect / actual: %A{v38} / expected: %A{v44}" │
00:01:34 #10393 [verbose] > │ let v46 : bool = v43 = false │
00:01:34 #10394 [verbose] > │ if v46 then │
00:01:34 #10395 [verbose] > │ failwith<unit> v45 │
00:01:34 #10396 [verbose] > │ method0() │
00:01:34 #10397 [verbose] > │ │
00:01:34 #10398 [verbose] > │ "e3b0c44298fc1c149afbf4c8996fb92427ae41e4649b934ca495991b7852b855" │
00:01:34 #10399 [verbose] > │ │
00:01:34 #10400 [verbose] > ╰──────────────────────────────────────────────────────────────────────────────╯
00:01:34 #10401 [verbose] >
00:01:34 #10402 [verbose] > ── spiral ──────────────────────────────────────────────────────────────────────
00:01:34 #10403 [verbose] > // // test
00:01:34 #10404 [verbose] >
00:01:34 #10405 [verbose] > " "
00:01:34 #10406 [verbose] > |> hash_text
00:01:34 #10407 [verbose] > |> _assert_eq "36a9e7f1c95b82ffb99743e0c5c4ce95d83c9a430aac59f84ef3cbfab6145068"
00:01:34 #10408 [verbose] > Building c:\home\git\polyglot\target\polyglot\spiral_eval\packages\11b6b2452eb6b1ece24906e6a5bec57f0279e3c3d4bb31a6971208cf7fca1ff2\main.spi
00:01:34 #10409 [verbose] >
00:01:34 #10410 [verbose] > ╭─[ 329.61ms - stdout ]────────────────────────────────────────────────────────╮
00:01:34 #10411 [verbose] > │ type ICryptoCreateHash = abstract createHash: x: string -> obj │
00:01:34 #10412 [verbose] > │ type Mut0 = {mutable l0 : int32} │
00:01:34 #10413 [verbose] > │ let rec method1 (v0 : int32, v1 : Mut0) : bool = │
00:01:34 #10414 [verbose] > │ let v2 : int32 = v1.l0 │
00:01:34 #10415 [verbose] > │ let v3 : bool = v2 < v0 │
00:01:34 #10416 [verbose] > │ v3 │
00:01:34 #10417 [verbose] > │ and method2 () : string = │
00:01:34 #10418 [verbose] > │ let v0 : string = "" │
00:01:34 #10419 [verbose] > │ v0 │
00:01:34 #10420 [verbose] > │ and method3 (v0 : bool) : bool = │
00:01:34 #10421 [verbose] > │ v0 │
00:01:34 #10422 [verbose] > │ and method0 () : unit = │
00:01:34 #10423 [verbose] > │ let v0 : string option = None │
00:01:34 #10424 [verbose] > │ let mutable _v0 = v0 │
00:01:34 #10425 [verbose] > │ #if FABLE_COMPILER_RUST && !WASM && !CONTRACT │
00:01:34 #10426 [verbose] > │ let v1 : string = null |> unbox<string> │
00:01:34 #10427 [verbose] > │ v1 │
00:01:34 #10428 [verbose] > │ #endif │
00:01:34 #10429 [verbose] > │ #if FABLE_COMPILER_RUST && WASM │
00:01:34 #10430 [verbose] > │ let v2 : string = null |> unbox<string> │
00:01:34 #10431 [verbose] > │ v2 │
00:01:34 #10432 [verbose] > │ #endif │
00:01:34 #10433 [verbose] > │ #if FABLE_COMPILER_RUST && CONTRACT │
00:01:34 #10434 [verbose] > │ let v3 : string = null |> unbox<string> │
00:01:34 #10435 [verbose] > │ v3 │
00:01:34 #10436 [verbose] > │ #endif │
00:01:34 #10437 [verbose] > │ #if !FABLE_COMPILER && !FABLE_COMPILER_RUST && │
00:01:34 #10438 [verbose] > │ !FABLE_COMPILER_TYPESCRIPT && !WASM && !CONTRACT │
00:01:34 #10439 [verbose] > │ let v4 : (unit -> System.Security.Cryptography.SHA256) = │
00:01:34 #10440 [verbose] > │ System.Security.Cryptography.SHA256.Create │
00:01:34 #10441 [verbose] > │ let v5 : System.Security.Cryptography.SHA256 = v4 () │
00:01:34 #10442 [verbose] > │ use v5 = v5 │
00:01:34 #10443 [verbose] > │ let v6 : System.Security.Cryptography.SHA256 = v5 │
00:01:34 #10444 [verbose] > │ let v7 : (string -> (uint8 [])) = System.Text.Encoding.UTF8.GetBytes │
00:01:34 #10445 [verbose] > │ let v8 : string = " " │
00:01:34 #10446 [verbose] > │ let v9 : (uint8 []) = v7 v8 │
00:01:34 #10447 [verbose] > │ let v10 : ((uint8 []) -> (uint8 [])) = v6.ComputeHash │
00:01:34 #10448 [verbose] > │ let v11 : (uint8 []) = v10 v9 │
00:01:34 #10449 [verbose] > │ let v12 : int32 = v11.Length │
00:01:34 #10450 [verbose] > │ let v13 : (string []) = Array.zeroCreate<string> (v12) │
00:01:34 #10451 [verbose] > │ let v14 : Mut0 = {l0 = 0} : Mut0 │
00:01:34 #10452 [verbose] > │ while method1(v12, v14) do │
00:01:34 #10453 [verbose] > │ let v16 : int32 = v14.l0 │
00:01:34 #10454 [verbose] > │ let v17 : uint8 = v11.[int v16] │
00:01:34 #10455 [verbose] > │ let v18 : (string -> string) = v17.ToString │
00:01:34 #10456 [verbose] > │ let v19 : string = "x2" │
00:01:34 #10457 [verbose] > │ let v20 : string = v18 v19 │
00:01:34 #10458 [verbose] > │ v13.[int v16] <- v20 │
00:01:34 #10459 [verbose] > │ let v21 : int32 = v16 + 1 │
00:01:34 #10460 [verbose] > │ v14.l0 <- v21 │
00:01:34 #10461 [verbose] > │ () │
00:01:34 #10462 [verbose] > │ let v22 : string seq = seq { for i = 0 to v13.Length - 1 do yield v13.[ │
00:01:34 #10463 [verbose] > │ i] } │
00:01:34 #10464 [verbose] > │ let v23 : string = method2() │
00:01:34 #10465 [verbose] > │ let v24 : (string -> (string seq -> string)) = String.concat │
00:01:34 #10466 [verbose] > │ let v25 : (string seq -> string) = v24 v23 │
00:01:34 #10467 [verbose] > │ let v26 : string = v25 v22 │
00:01:34 #10468 [verbose] > │ v26 │
00:01:34 #10469 [verbose] > │ #endif │
00:01:34 #10470 [verbose] > │ #if FABLE_COMPILER_TYPESCRIPT │
00:01:34 #10471 [verbose] > │ let v27 : string = "crypto" │
00:01:34 #10472 [verbose] > │ let v28 : ICryptoCreateHash = Fable.Core.JsInterop.importAll v27 │
00:01:34 #10473 [verbose] > │ let v29 : string = "v28.createHash($0)" │
00:01:34 #10474 [verbose] > │ let v30 : string = "sha256" │
00:01:34 #10475 [verbose] > │ let v31 : obj = Fable.Core.JsInterop.emitJsExpr v30 v29 │
00:01:34 #10476 [verbose] > │ let v32 : string = "$0.update($1, 'utf8')" │
00:01:34 #10477 [verbose] > │ let v33 : obj = Fable.Core.JsInterop.emitJsExpr struct (v31, v8) v32 │
00:01:34 #10478 [verbose] > │ let v34 : string = "$0.digest($1)" │
00:01:34 #10479 [verbose] > │ let v35 : string = "hex" │
00:01:34 #10480 [verbose] > │ let v36 : string = Fable.Core.JsInterop.emitJsExpr struct (v33, v35) v34 │
00:01:34 #10481 [verbose] > │ v36 │
00:01:34 #10482 [verbose] > │ #endif │
00:01:34 #10483 [verbose] > │ #if FABLE_COMPILER_PYTHON || FABLE_COMPILER_PHP || FABLE_COMPILER_DART │
00:01:34 #10484 [verbose] > │ let v37 : string = Unchecked.defaultof<string> │
00:01:34 #10485 [verbose] > │ v37 │
00:01:34 #10486 [verbose] > │ #endif │
00:01:34 #10487 [verbose] > │ |> fun x -> _v0 <- Some x │
00:01:34 #10488 [verbose] > │ let v38 : string = _v0.Value │
00:01:34 #10489 [verbose] > │ let v39 : string = $"%A{v38}" │
00:01:34 #10490 [verbose] > │ System.Console.WriteLine v39 │
00:01:34 #10491 [verbose] > │ let v41 : bool = v38 = │
00:01:34 #10492 [verbose] > │ "36a9e7f1c95b82ffb99743e0c5c4ce95d83c9a430aac59f84ef3cbfab6145068" │
00:01:34 #10493 [verbose] > │ let v43 : bool = │
00:01:34 #10494 [verbose] > │ if v41 then │
00:01:34 #10495 [verbose] > │ true │
00:01:34 #10496 [verbose] > │ else │
00:01:34 #10497 [verbose] > │ method3(v41) │
00:01:34 #10498 [verbose] > │ let v44 : string = │
00:01:34 #10499 [verbose] > │ "36a9e7f1c95b82ffb99743e0c5c4ce95d83c9a430aac59f84ef3cbfab6145068" │
00:01:34 #10500 [verbose] > │ let v45 : string = $"__expect / actual: %A{v38} / expected: %A{v44}" │
00:01:34 #10501 [verbose] > │ let v46 : bool = v43 = false │
00:01:34 #10502 [verbose] > │ if v46 then │
00:01:34 #10503 [verbose] > │ failwith<unit> v45 │
00:01:34 #10504 [verbose] > │ method0() │
00:01:34 #10505 [verbose] > │ │
00:01:34 #10506 [verbose] > │ "36a9e7f1c95b82ffb99743e0c5c4ce95d83c9a430aac59f84ef3cbfab6145068" │
00:01:34 #10507 [verbose] > │ │
00:01:34 #10508 [verbose] > ╰──────────────────────────────────────────────────────────────────────────────╯
00:01:34 #10509 [verbose] >
00:01:34 #10510 [verbose] > ── markdown ────────────────────────────────────────────────────────────────────
00:01:34 #10511 [verbose] > ╭──────────────────────────────────────────────────────────────────────────────╮
00:01:34 #10512 [verbose] > │ ## main │
00:01:34 #10513 [verbose] > ╰──────────────────────────────────────────────────────────────────────────────╯
00:01:34 #10514 [verbose] >
00:01:34 #10515 [verbose] > ── spiral ──────────────────────────────────────────────────────────────────────
00:01:34 #10516 [verbose] > inl main () =
00:01:34 #10517 [verbose] > $"let hash_text x = !hash_text x" : ()
00:01:35 #10518 [verbose] > Building c:\home\git\polyglot\target\polyglot\spiral_eval\packages\8c504e1ba817402c5f6afec88963331159a9277143945416e38e7c6500e605fb\main.spi
00:01:35 #10519 [verbose] >
00:01:35 #10520 [verbose] > ╭─[ 287.68ms - stdout ]────────────────────────────────────────────────────────╮
00:01:35 #10521 [verbose] > │ type ICryptoCreateHash = abstract createHash: x: string -> obj │
00:01:35 #10522 [verbose] > │ type Mut0 = {mutable l0 : int32} │
00:01:35 #10523 [verbose] > │ let rec method0 (v0 : int32, v1 : Mut0) : bool = │
00:01:35 #10524 [verbose] > │ let v2 : int32 = v1.l0 │
00:01:35 #10525 [verbose] > │ let v3 : bool = v2 < v0 │
00:01:35 #10526 [verbose] > │ v3 │
00:01:35 #10527 [verbose] > │ and method1 () : string = │
00:01:35 #10528 [verbose] > │ let v0 : string = "" │
00:01:35 #10529 [verbose] > │ v0 │
00:01:35 #10530 [verbose] > │ and closure0 () (v0 : string) : string = │
00:01:35 #10531 [verbose] > │ let v1 : string option = None │
00:01:35 #10532 [verbose] > │ let mutable _v1 = v1 │
00:01:35 #10533 [verbose] > │ #if FABLE_COMPILER_RUST && !WASM && !CONTRACT │
00:01:35 #10534 [verbose] > │ let v2 : string = null |> unbox<string> │
00:01:35 #10535 [verbose] > │ v2 │
00:01:35 #10536 [verbose] > │ #endif │
00:01:35 #10537 [verbose] > │ #if FABLE_COMPILER_RUST && WASM │
00:01:35 #10538 [verbose] > │ let v3 : string = null |> unbox<string> │
00:01:35 #10539 [verbose] > │ v3 │
00:01:35 #10540 [verbose] > │ #endif │
00:01:35 #10541 [verbose] > │ #if FABLE_COMPILER_RUST && CONTRACT │
00:01:35 #10542 [verbose] > │ let v4 : string = null |> unbox<string> │
00:01:35 #10543 [verbose] > │ v4 │
00:01:35 #10544 [verbose] > │ #endif │
00:01:35 #10545 [verbose] > │ #if !FABLE_COMPILER && !FABLE_COMPILER_RUST && │
00:01:35 #10546 [verbose] > │ !FABLE_COMPILER_TYPESCRIPT && !WASM && !CONTRACT │
00:01:35 #10547 [verbose] > │ let v5 : (unit -> System.Security.Cryptography.SHA256) = │
00:01:35 #10548 [verbose] > │ System.Security.Cryptography.SHA256.Create │
00:01:35 #10549 [verbose] > │ let v6 : System.Security.Cryptography.SHA256 = v5 () │
00:01:35 #10550 [verbose] > │ use v6 = v6 │
00:01:35 #10551 [verbose] > │ let v7 : System.Security.Cryptography.SHA256 = v6 │
00:01:35 #10552 [verbose] > │ let v8 : (string -> (uint8 [])) = System.Text.Encoding.UTF8.GetBytes │
00:01:35 #10553 [verbose] > │ let v9 : (uint8 []) = v8 v0 │
00:01:35 #10554 [verbose] > │ let v10 : ((uint8 []) -> (uint8 [])) = v7.ComputeHash │
00:01:35 #10555 [verbose] > │ let v11 : (uint8 []) = v10 v9 │
00:01:35 #10556 [verbose] > │ let v12 : int32 = v11.Length │
00:01:35 #10557 [verbose] > │ let v13 : (string []) = Array.zeroCreate<string> (v12) │
00:01:35 #10558 [verbose] > │ let v14 : Mut0 = {l0 = 0} : Mut0 │
00:01:35 #10559 [verbose] > │ while method0(v12, v14) do │
00:01:35 #10560 [verbose] > │ let v16 : int32 = v14.l0 │
00:01:35 #10561 [verbose] > │ let v17 : uint8 = v11.[int v16] │
00:01:35 #10562 [verbose] > │ let v18 : (string -> string) = v17.ToString │
00:01:35 #10563 [verbose] > │ let v19 : string = "x2" │
00:01:35 #10564 [verbose] > │ let v20 : string = v18 v19 │
00:01:35 #10565 [verbose] > │ v13.[int v16] <- v20 │
00:01:35 #10566 [verbose] > │ let v21 : int32 = v16 + 1 │
00:01:35 #10567 [verbose] > │ v14.l0 <- v21 │
00:01:35 #10568 [verbose] > │ () │
00:01:35 #10569 [verbose] > │ let v22 : string seq = seq { for i = 0 to v13.Length - 1 do yield v13.[ │
00:01:35 #10570 [verbose] > │ i] } │
00:01:35 #10571 [verbose] > │ let v23 : string = method1() │
00:01:35 #10572 [verbose] > │ let v24 : (string -> (string seq -> string)) = String.concat │
00:01:35 #10573 [verbose] > │ let v25 : (string seq -> string) = v24 v23 │
00:01:35 #10574 [verbose] > │ let v26 : string = v25 v22 │
00:01:35 #10575 [verbose] > │ v26 │
00:01:35 #10576 [verbose] > │ #endif │
00:01:35 #10577 [verbose] > │ #if FABLE_COMPILER_TYPESCRIPT │
00:01:35 #10578 [verbose] > │ let v27 : string = "crypto" │
00:01:35 #10579 [verbose] > │ let v28 : ICryptoCreateHash = Fable.Core.JsInterop.importAll v27 │
00:01:35 #10580 [verbose] > │ let v29 : string = "v28.createHash($0)" │
00:01:35 #10581 [verbose] > │ let v30 : string = "sha256" │
00:01:35 #10582 [verbose] > │ let v31 : obj = Fable.Core.JsInterop.emitJsExpr v30 v29 │
00:01:35 #10583 [verbose] > │ let v32 : string = "$0.update($1, 'utf8')" │
00:01:35 #10584 [verbose] > │ let v33 : obj = Fable.Core.JsInterop.emitJsExpr struct (v31, v0) v32 │
00:01:35 #10585 [verbose] > │ let v34 : string = "$0.digest($1)" │
00:01:35 #10586 [verbose] > │ let v35 : string = "hex" │
00:01:35 #10587 [verbose] > │ let v36 : string = Fable.Core.JsInterop.emitJsExpr struct (v33, v35) v34 │
00:01:35 #10588 [verbose] > │ v36 │
00:01:35 #10589 [verbose] > │ #endif │
00:01:35 #10590 [verbose] > │ #if FABLE_COMPILER_PYTHON || FABLE_COMPILER_PHP || FABLE_COMPILER_DART │
00:01:35 #10591 [verbose] > │ let v37 : string = Unchecked.defaultof<string> │
00:01:35 #10592 [verbose] > │ v37 │
00:01:35 #10593 [verbose] > │ #endif │
00:01:35 #10594 [verbose] > │ |> fun x -> _v1 <- Some x │
00:01:35 #10595 [verbose] > │ let v38 : string = _v1.Value │
00:01:35 #10596 [verbose] > │ v38 │
00:01:35 #10597 [verbose] > │ let v0 : (string -> string) = closure0() │
00:01:35 #10598 [verbose] > │ let hash_text x = v0 x │
00:01:35 #10599 [verbose] > │ () │
00:01:35 #10600 [verbose] > │ │
00:01:35 #10601 [verbose] > │ │
00:01:35 #10602 [verbose] > ╰──────────────────────────────────────────────────────────────────────────────╯
00:01:36 #10603 [verbose] > [NbConvertApp] Converting notebook crypto.dib.ipynb to html
00:01:36 #10604 [verbose] > C:\Users\i574n\scoop\apps\python\current\Lib\site-packages\nbformat\__init__.py:93: MissingIDFieldWarning: Code cell is missing an id field, this will become a hard error in future nbformat versions. You may want to use `normalize()` on your notebooks before validations (available since nbformat 5.1.4). Previous versions of nbformat are fixing this issue transparently, and will stop doing so in the future.
00:01:36 #10605 [verbose] > validate(nb)
00:01:37 #10606 [verbose] > C:\Users\i574n\scoop\apps\python\current\Lib\site-packages\nbconvert\filters\highlight.py:71: UserWarning: IPython3 lexer unavailable, falling back on Python 3
00:01:37 #10607 [verbose] > return _pygments_highlight(
00:01:37 #10608 [verbose] > [NbConvertApp] Writing 299796 bytes to crypto.dib.html
00:01:38 #10609 [debug] execute_with_options_async / exit_code: 0 / output.Length: 31240
00:01:38 #11 [debug] main / executeCommand / exitCode: 0
00:01:38 #10610 [debug] execute_with_options_async / options: struct (Some System.Threading.CancellationToken,
"pwsh -c "../../scripts/invoke-dib.ps1 common.dib -Retries 3"", None,
None, None)
00:01:41 #10611 [verbose] >
00:01:41 #10612 [verbose] > ── markdown ────────────────────────────────────────────────────────────────────
00:01:41 #10613 [verbose] > ╭──────────────────────────────────────────────────────────────────────────────╮
00:01:41 #10614 [verbose] > │ # common │
00:01:41 #10615 [verbose] > ╰──────────────────────────────────────────────────────────────────────────────╯
00:01:41 #10616 [verbose] >
00:01:41 #10617 [verbose] > ── spiral ──────────────────────────────────────────────────────────────────────
00:01:41 #10618 [verbose] > // // test
00:01:41 #10619 [verbose] >
00:01:41 #10620 [verbose] > open testing
00:01:43 #10621 [verbose] > Building c:\home\git\polyglot\target\polyglot\spiral_eval\packages\8837341da068f4ef4271045b3ef1c89d209237bf74b4f11596b6ee2d484becb0\main.spi
00:01:44 #10622 [verbose] >
00:01:44 #10623 [verbose] > ╭─[ 3.58s - stdout ]───────────────────────────────────────────────────────────╮
00:01:44 #10624 [verbose] > │ () │
00:01:44 #10625 [verbose] > │ │
00:01:44 #10626 [verbose] > │ │
00:01:44 #10627 [verbose] > ╰──────────────────────────────────────────────────────────────────────────────╯
00:01:44 #10628 [verbose] >
00:01:44 #10629 [verbose] > ── markdown ────────────────────────────────────────────────────────────────────
00:01:44 #10630 [verbose] > ╭──────────────────────────────────────────────────────────────────────────────╮
00:01:44 #10631 [verbose] > │ ## prototype │
00:01:44 #10632 [verbose] > ╰──────────────────────────────────────────────────────────────────────────────╯
00:01:44 #10633 [verbose] >
00:01:44 #10634 [verbose] > ── spiral ──────────────────────────────────────────────────────────────────────
00:01:44 #10635 [verbose] > prototype (~:>) r : forall t. t -> r
00:01:44 #10636 [verbose] > Building c:\home\git\polyglot\target\polyglot\spiral_eval\packages\d4ce264de5d991ae9ccc997ddcda021381f27d8b2b79c2e1943d4bca97dfe7d3\main.spi
00:01:44 #10637 [verbose] >
00:01:44 #10638 [verbose] > ╭─[ 238.65ms - stdout ]────────────────────────────────────────────────────────╮
00:01:44 #10639 [verbose] > │ () │
00:01:44 #10640 [verbose] > │ │
00:01:44 #10641 [verbose] > │ │
00:01:44 #10642 [verbose] > ╰──────────────────────────────────────────────────────────────────────────────╯
00:01:44 #10643 [verbose] >
00:01:44 #10644 [verbose] > ── markdown ────────────────────────────────────────────────────────────────────
00:01:44 #10645 [verbose] > ╭──────────────────────────────────────────────────────────────────────────────╮
00:01:44 #10646 [verbose] > │ ## run_target │
00:01:44 #10647 [verbose] > ╰──────────────────────────────────────────────────────────────────────────────╯
00:01:44 #10648 [verbose] >
00:01:44 #10649 [verbose] > ── spiral ──────────────────────────────────────────────────────────────────────
00:01:44 #10650 [verbose] > // // test
00:01:44 #10651 [verbose] >
00:01:44 #10652 [verbose] > run_target function
00:01:44 #10653 [verbose] > | Fsharp (Native) => fun () => $"1uy"
00:01:44 #10654 [verbose] > | _ => fun () => $"2uy"
00:01:44 #10655 [verbose] > |> _assert_eq 1u8
00:01:45 #10656 [verbose] > Building c:\home\git\polyglot\target\polyglot\spiral_eval\packages\e0f7acc8ac8483618bb8a0515b9bbdedfbedd7ff8fefe713883a0de12e372610\main.spi
00:01:45 #10657 [verbose] >
00:01:45 #10658 [verbose] > ╭─[ 998.53ms - stdout ]────────────────────────────────────────────────────────╮
00:01:45 #10659 [verbose] > │ let rec method1 (v0 : bool) : bool = │
00:01:45 #10660 [verbose] > │ v0 │
00:01:45 #10661 [verbose] > │ and method0 () : unit = │
00:01:45 #10662 [verbose] > │ let v0 : uint8 option = None │
00:01:45 #10663 [verbose] > │ let mutable _v0 = v0 │
00:01:45 #10664 [verbose] > │ #if FABLE_COMPILER_RUST && !WASM && !CONTRACT │
00:01:45 #10665 [verbose] > │ let v1 : uint8 = 2uy │
00:01:45 #10666 [verbose] > │ v1 │
00:01:45 #10667 [verbose] > │ #endif │
00:01:45 #10668 [verbose] > │ #if FABLE_COMPILER_RUST && WASM │
00:01:45 #10669 [verbose] > │ let v2 : uint8 = 2uy │
00:01:45 #10670 [verbose] > │ v2 │
00:01:45 #10671 [verbose] > │ #endif │
00:01:45 #10672 [verbose] > │ #if FABLE_COMPILER_RUST && CONTRACT │
00:01:45 #10673 [verbose] > │ let v3 : uint8 = 2uy │
00:01:45 #10674 [verbose] > │ v3 │
00:01:45 #10675 [verbose] > │ #endif │
00:01:45 #10676 [verbose] > │ #if !FABLE_COMPILER && !FABLE_COMPILER_RUST && │
00:01:45 #10677 [verbose] > │ !FABLE_COMPILER_TYPESCRIPT && !WASM && !CONTRACT │
00:01:45 #10678 [verbose] > │ let v4 : uint8 = 1uy │
00:01:45 #10679 [verbose] > │ v4 │
00:01:45 #10680 [verbose] > │ #endif │
00:01:45 #10681 [verbose] > │ #if FABLE_COMPILER_TYPESCRIPT │
00:01:45 #10682 [verbose] > │ let v5 : uint8 = 2uy │
00:01:45 #10683 [verbose] > │ v5 │
00:01:45 #10684 [verbose] > │ #endif │
00:01:45 #10685 [verbose] > │ #if FABLE_COMPILER_PYTHON || FABLE_COMPILER_PHP || FABLE_COMPILER_DART │
00:01:45 #10686 [verbose] > │ let v6 : uint8 = Unchecked.defaultof<uint8> │
00:01:45 #10687 [verbose] > │ v6 │
00:01:45 #10688 [verbose] > │ #endif │
00:01:45 #10689 [verbose] > │ |> fun x -> _v0 <- Some x │
00:01:45 #10690 [verbose] > │ let v7 : uint8 = _v0.Value │
00:01:45 #10691 [verbose] > │ let v8 : string = $"%A{v7}" │
00:01:45 #10692 [verbose] > │ System.Console.WriteLine v8 │
00:01:45 #10693 [verbose] > │ let v9 : bool = v7 = 1uy │
00:01:45 #10694 [verbose] > │ let v11 : bool = │
00:01:45 #10695 [verbose] > │ if v9 then │
00:01:45 #10696 [verbose] > │ true │
00:01:45 #10697 [verbose] > │ else │
00:01:45 #10698 [verbose] > │ method1(v9) │
00:01:45 #10699 [verbose] > │ let v12 : string = $"__expect / actual: %A{v7} / expected: %A{1uy}" │
00:01:45 #10700 [verbose] > │ let v13 : bool = v11 = false │
00:01:45 #10701 [verbose] > │ if v13 then │
00:01:45 #10702 [verbose] > │ failwith<unit> v12 │
00:01:45 #10703 [verbose] > │ method0() │
00:01:45 #10704 [verbose] > │ │
00:01:45 #10705 [verbose] > │ 1uy │
00:01:45 #10706 [verbose] > │ │
00:01:45 #10707 [verbose] > ╰──────────────────────────────────────────────────────────────────────────────╯
00:01:45 #10708 [verbose] >
00:01:45 #10709 [verbose] > ── spiral ──────────────────────────────────────────────────────────────────────
00:01:45 #10710 [verbose] > // // test
00:01:45 #10711 [verbose] > // // rust=
00:01:45 #10712 [verbose] >
00:01:45 #10713 [verbose] > run_target function
00:01:45 #10714 [verbose] > | Rust (Native) => fun () => $"1uy"
00:01:45 #10715 [verbose] > | _ => fun () => $"2uy"
00:01:45 #10716 [verbose] > |> _assert_eq 1u8
00:01:46 #10717 [verbose] > Building c:\home\git\polyglot\target\polyglot\spiral_eval\packages\f99331ee41f8cdd942fc7eb6b40040ad0ad281c28cd9039e6b8737b71fba9efa\main.spi
00:01:50 #10718 [verbose] >
00:01:50 #10719 [verbose] > ╭─[ 4.84s - return value ]─────────────────────────────────────────────────────╮
00:01:50 #10720 [verbose] > │ .rs output: │
00:01:50 #10721 [verbose] > │ 1 │
00:01:50 #10722 [verbose] > │ │
00:01:50 #10723 [verbose] > │ │
00:01:50 #10724 [verbose] > │ │
00:01:50 #10725 [verbose] > ╰──────────────────────────────────────────────────────────────────────────────╯
00:01:50 #10726 [verbose] >
00:01:50 #10727 [verbose] > ╭─[ 4.85s - stdout ]───────────────────────────────────────────────────────────╮
00:01:50 #10728 [verbose] > │ .fsx: │
00:01:50 #10729 [verbose] > │ let rec method1 (v0 : bool) : bool = │
00:01:50 #10730 [verbose] > │ v0 │
00:01:50 #10731 [verbose] > │ and method0 () : unit = │
00:01:50 #10732 [verbose] > │ let v0 : uint8 option = None │
00:01:50 #10733 [verbose] > │ let mutable _v0 = v0 │
00:01:50 #10734 [verbose] > │ #if FABLE_COMPILER_RUST && !WASM && !CONTRACT │
00:01:50 #10735 [verbose] > │ let v1 : uint8 = 1uy │
00:01:50 #10736 [verbose] > │ v1 │
00:01:50 #10737 [verbose] > │ #endif │
00:01:50 #10738 [verbose] > │ #if FABLE_COMPILER_RUST && WASM │
00:01:50 #10739 [verbose] > │ let v2 : uint8 = 2uy │
00:01:50 #10740 [verbose] > │ v2 │
00:01:50 #10741 [verbose] > │ #endif │
00:01:50 #10742 [verbose] > │ #if FABLE_COMPILER_RUST && CONTRACT │
00:01:50 #10743 [verbose] > │ let v3 : uint8 = 2uy │
00:01:50 #10744 [verbose] > │ v3 │
00:01:50 #10745 [verbose] > │ #endif │
00:01:50 #10746 [verbose] > │ #if !FABLE_COMPILER && !FABLE_COMPILER_RUST && │
00:01:50 #10747 [verbose] > │ !FABLE_COMPILER_TYPESCRIPT && !WASM && !CONTRACT │
00:01:50 #10748 [verbose] > │ let v4 : uint8 = 2uy │
00:01:50 #10749 [verbose] > │ v4 │
00:01:50 #10750 [verbose] > │ #endif │
00:01:50 #10751 [verbose] > │ #if FABLE_COMPILER_TYPESCRIPT │
00:01:50 #10752 [verbose] > │ let v5 : uint8 = 2uy │
00:01:50 #10753 [verbose] > │ v5 │
00:01:50 #10754 [verbose] > │ #endif │
00:01:50 #10755 [verbose] > │ #if FABLE_COMPILER_PYTHON || FABLE_COMPILER_PHP || FABLE_COMPILER_DART │
00:01:50 #10756 [verbose] > │ let v6 : uint8 = Unchecked.defaultof<uint8> │
00:01:50 #10757 [verbose] > │ v6 │
00:01:50 #10758 [verbose] > │ #endif │
00:01:50 #10759 [verbose] > │ |> fun x -> _v0 <- Some x │
00:01:50 #10760 [verbose] > │ let v7 : uint8 = _v0.Value │
00:01:50 #10761 [verbose] > │ let v8 : string = $"%A{v7}" │
00:01:50 #10762 [verbose] > │ System.Console.WriteLine v8 │
00:01:50 #10763 [verbose] > │ let v9 : bool = v7 = 1uy │
00:01:50 #10764 [verbose] > │ let v11 : bool = │
00:01:50 #10765 [verbose] > │ if v9 then │
00:01:50 #10766 [verbose] > │ true │
00:01:50 #10767 [verbose] > │ else │
00:01:50 #10768 [verbose] > │ method1(v9) │
00:01:50 #10769 [verbose] > │ let v12 : string = $"__expect / actual: %A{v7} / expected: %A{1uy}" │
00:01:50 #10770 [verbose] > │ let v13 : bool = v11 = false │
00:01:50 #10771 [verbose] > │ if v13 then │
00:01:50 #10772 [verbose] > │ failwith<unit> v12 │
00:01:50 #10773 [verbose] > │ method0() │
00:01:50 #10774 [verbose] > │ │
00:01:50 #10775 [verbose] > │ │
00:01:50 #10776 [verbose] > │ .rs: │
00:01:50 #10777 [verbose] > │ #![allow(dead_code,)] │
00:01:50 #10778 [verbose] > │ #![allow(non_camel_case_types,)] │
00:01:50 #10779 [verbose] > │ #![allow(non_snake_case,)] │
00:01:50 #10780 [verbose] > │ #![allow(non_upper_case_globals,)] │
00:01:50 #10781 [verbose] > │ #![allow(unreachable_code,)] │
00:01:50 #10782 [verbose] > │ #![allow(unused_attributes,)] │
00:01:50 #10783 [verbose] > │ #![allow(unused_imports,)] │
00:01:50 #10784 [verbose] > │ #![allow(unused_macros,)] │
00:01:50 #10785 [verbose] > │ #![allow(unused_parens,)] │
00:01:50 #10786 [verbose] > │ #![allow(unused_variables,)] │
00:01:50 #10787 [verbose] > │ mod module_ccfa04bf { │
00:01:50 #10788 [verbose] > │ pub mod Spiral_eval { │
00:01:50 #10789 [verbose] > │ use super::*; │
00:01:50 #10790 [verbose] > │ use fable_library_rust::Native_::MutCell; │
00:01:50 #10791 [verbose] > │ use fable_library_rust::Native_::on_startup; │
00:01:50 #10792 [verbose] > │ use fable_library_rust::Option_::getValue; │
00:01:50 #10793 [verbose] > │ use fable_library_rust::String_::printfn; │
00:01:50 #10794 [verbose] > │ use fable_library_rust::String_::sprintf; │
00:01:50 #10795 [verbose] > │ use fable_library_rust::String_::string; │
00:01:50 #10796 [verbose] > │ pub fn method1(v0: bool) -> bool { v0 } │
00:01:50 #10797 [verbose] > │ pub fn method0() { │
00:01:50 #10798 [verbose] > │ let _v0: MutCell<Option<u8>> = MutCell::new(None::<u8>); │
00:01:50 #10799 [verbose] > │ _v0.set(Some(1_u8)); │
00:01:50 #10800 [verbose] > │ { │
00:01:50 #10801 [verbose] > │ let v7: u8 = getValue(_v0.get().clone()); │
00:01:50 #10802 [verbose] > │ let v8: string = sprintf!("{:?}", v7); │
00:01:50 #10803 [verbose] > │ printfn!("{0}", v8); │
00:01:50 #10804 [verbose] > │ { │
00:01:50 #10805 [verbose] > │ let v9: bool = v7 == 1_u8; │
00:01:50 #10806 [verbose] > │ if (if v9 { true } else { Spiral_eval::method1(v9) }) == │
00:01:50 #10807 [verbose] > │ false { │
00:01:50 #10808 [verbose] > │ panic!("{}", │
00:01:50 #10809 [verbose] > │ sprintf!("__expect / actual: {:?} / expected: │
00:01:50 #10810 [verbose] > │ {:?}", v7, 1_u8)); │
00:01:50 #10811 [verbose] > │ } │
00:01:50 #10812 [verbose] > │ } │
00:01:50 #10813 [verbose] > │ } │
00:01:50 #10814 [verbose] > │ } │
00:01:50 #10815 [verbose] > │ on_startup!(Spiral_eval::method0()); │
00:01:50 #10816 [verbose] > │ } │
00:01:50 #10817 [verbose] > │ } │
00:01:50 #10818 [verbose] > │ pub use module_ccfa04bf::*; │
00:01:50 #10819 [verbose] > │ │
00:01:50 #10820 [verbose] > │ │
00:01:50 #10821 [verbose] > ╰──────────────────────────────────────────────────────────────────────────────╯
00:01:50 #10822 [verbose] >
00:01:50 #10823 [verbose] > ── markdown ────────────────────────────────────────────────────────────────────
00:01:50 #10824 [verbose] > ╭──────────────────────────────────────────────────────────────────────────────╮
00:01:50 #10825 [verbose] > │ ## upcast │
00:01:50 #10826 [verbose] > ╰──────────────────────────────────────────────────────────────────────────────╯
00:01:50 #10827 [verbose] >
00:01:50 #10828 [verbose] > ── spiral ──────────────────────────────────────────────────────────────────────
00:01:50 #10829 [verbose] > inl upcast forall t u. (x : t) : u =
00:01:50 #10830 [verbose] > $'!x :> `u '
00:01:51 #10831 [verbose] > Building c:\home\git\polyglot\target\polyglot\spiral_eval\packages\70254a7aed94a8ce6c75d1800391749bb1b08381d0240607e646394d6ed92791\main.spi
00:01:51 #10832 [verbose] >
00:01:51 #10833 [verbose] > ╭─[ 296.18ms - stdout ]────────────────────────────────────────────────────────╮
00:01:51 #10834 [verbose] > │ () │
00:01:51 #10835 [verbose] > │ │
00:01:51 #10836 [verbose] > │ │
00:01:51 #10837 [verbose] > ╰──────────────────────────────────────────────────────────────────────────────╯
00:01:51 #10838 [verbose] >
00:01:51 #10839 [verbose] > ── markdown ────────────────────────────────────────────────────────────────────
00:01:51 #10840 [verbose] > ╭──────────────────────────────────────────────────────────────────────────────╮
00:01:51 #10841 [verbose] > │ ## downcast │
00:01:51 #10842 [verbose] > ╰──────────────────────────────────────────────────────────────────────────────╯
00:01:51 #10843 [verbose] >
00:01:51 #10844 [verbose] > ── spiral ──────────────────────────────────────────────────────────────────────
00:01:51 #10845 [verbose] > inl downcast forall t u. (x : t) : u =
00:01:51 #10846 [verbose] > $'!x :?> `u '
00:01:51 #10847 [verbose] > Building c:\home\git\polyglot\target\polyglot\spiral_eval\packages\81eb0ed3c7244185d55975061bdd6f62ee0aab1228cd57c7c2768b12dc35c750\main.spi
00:01:51 #10848 [verbose] >
00:01:51 #10849 [verbose] > ╭─[ 215.23ms - stdout ]────────────────────────────────────────────────────────╮
00:01:51 #10850 [verbose] > │ () │
00:01:51 #10851 [verbose] > │ │
00:01:51 #10852 [verbose] > │ │
00:01:51 #10853 [verbose] > ╰──────────────────────────────────────────────────────────────────────────────╯
00:01:51 #10854 [verbose] >
00:01:51 #10855 [verbose] > ── markdown ────────────────────────────────────────────────────────────────────
00:01:51 #10856 [verbose] > ╭──────────────────────────────────────────────────────────────────────────────╮
00:01:51 #10857 [verbose] > │ ## unativeint │
00:01:51 #10858 [verbose] > ╰──────────────────────────────────────────────────────────────────────────────╯
00:01:51 #10859 [verbose] >
00:01:51 #10860 [verbose] > ── spiral ──────────────────────────────────────────────────────────────────────
00:01:51 #10861 [verbose] > nominal unativeint = $"unativeint"
00:01:51 #10862 [verbose] >
00:01:51 #10863 [verbose] > inl unativeint forall t {int}. (n : t) : unativeint =
00:01:51 #10864 [verbose] > $"unativeint !n"
00:01:51 #10865 [verbose] > Building c:\home\git\polyglot\target\polyglot\spiral_eval\packages\a46e559fa8d7260cb2294b9e72bb34e033301b17cf14398ad49f2ddd41e447ef\main.spi
00:01:51 #10866 [verbose] >
00:01:51 #10867 [verbose] > ╭─[ 271.36ms - stdout ]────────────────────────────────────────────────────────╮
00:01:51 #10868 [verbose] > │ () │
00:01:51 #10869 [verbose] > │ │
00:01:51 #10870 [verbose] > │ │
00:01:51 #10871 [verbose] > ╰──────────────────────────────────────────────────────────────────────────────╯
00:01:51 #10872 [verbose] >
00:01:51 #10873 [verbose] > ── markdown ────────────────────────────────────────────────────────────────────
00:01:51 #10874 [verbose] > ╭──────────────────────────────────────────────────────────────────────────────╮
00:01:51 #10875 [verbose] > │ ## pair │
00:01:51 #10876 [verbose] > ╰──────────────────────────────────────────────────────────────────────────────╯
00:01:51 #10877 [verbose] >
00:01:51 #10878 [verbose] > ── spiral ──────────────────────────────────────────────────────────────────────
00:01:51 #10879 [verbose] > // // test
00:01:51 #10880 [verbose] >
00:01:51 #10881 [verbose] > pair 1i32 2i32
00:01:51 #10882 [verbose] > |> _assert_eq (1, 2)
00:01:51 #10883 [verbose] > Building c:\home\git\polyglot\target\polyglot\spiral_eval\packages\9fc072fbcd06d367414968f09551dc4abf67fd2ab5762c23cba4549b1b5716ee\main.spi
00:01:51 #10884 [verbose] >
00:01:51 #10885 [verbose] > ╭─[ 242.69ms - stdout ]────────────────────────────────────────────────────────╮
00:01:51 #10886 [verbose] > │ let rec method0 () : unit = │
00:01:51 #10887 [verbose] > │ let v0 : string = $"%A{struct (1, 2)}" │
00:01:51 #10888 [verbose] > │ System.Console.WriteLine v0 │
00:01:51 #10889 [verbose] > │ let v1 : string = $"__expect / actual: %A{struct (1, 2)} / expected: │
00:01:51 #10890 [verbose] > │ %A{struct (1, 2)}" │
00:01:51 #10891 [verbose] > │ () │
00:01:51 #10892 [verbose] > │ method0() │
00:01:51 #10893 [verbose] > │ │
00:01:51 #10894 [verbose] > │ struct (1, 2) │
00:01:51 #10895 [verbose] > │ │
00:01:51 #10896 [verbose] > ╰──────────────────────────────────────────────────────────────────────────────╯
00:01:51 #10897 [verbose] >
00:01:51 #10898 [verbose] > ── markdown ────────────────────────────────────────────────────────────────────
00:01:51 #10899 [verbose] > ╭──────────────────────────────────────────────────────────────────────────────╮
00:01:51 #10900 [verbose] > │ ## new_pair │
00:01:51 #10901 [verbose] > ╰──────────────────────────────────────────────────────────────────────────────╯
00:01:51 #10902 [verbose] >
00:01:51 #10903 [verbose] > ── spiral ──────────────────────────────────────────────────────────────────────
00:01:51 #10904 [verbose] > inl new_pair forall a b. (a : a) (b : b) : pair a b =
00:01:51 #10905 [verbose] > $"!a, !b"
00:01:52 #10906 [verbose] > Building c:\home\git\polyglot\target\polyglot\spiral_eval\packages\c835b6eeda26eb88a5d76c4bc84ea577aa221c35ae46f51e07479d5f5d0300c9\main.spi
00:01:52 #10907 [verbose] >
00:01:52 #10908 [verbose] > ╭─[ 266.28ms - stdout ]────────────────────────────────────────────────────────╮
00:01:52 #10909 [verbose] > │ () │
00:01:52 #10910 [verbose] > │ │
00:01:52 #10911 [verbose] > │ │
00:01:52 #10912 [verbose] > ╰──────────────────────────────────────────────────────────────────────────────╯
00:01:52 #10913 [verbose] >
00:01:52 #10914 [verbose] > ── markdown ────────────────────────────────────────────────────────────────────
00:01:52 #10915 [verbose] > ╭──────────────────────────────────────────────────────────────────────────────╮
00:01:52 #10916 [verbose] > │ ## from_pair │
00:01:52 #10917 [verbose] > ╰──────────────────────────────────────────────────────────────────────────────╯
00:01:52 #10918 [verbose] >
00:01:52 #10919 [verbose] > ── spiral ──────────────────────────────────────────────────────────────────────
00:01:52 #10920 [verbose] > inl from_pair forall a b. (pair : pair a b) : a * b =
00:01:52 #10921 [verbose] > $"let (a, b) = !pair"
00:01:52 #10922 [verbose] > $"a", $"b"
00:01:52 #10923 [verbose] > Building c:\home\git\polyglot\target\polyglot\spiral_eval\packages\daeccb4acba26f2e995c06f633ad202dd5bd8da2a4e0717cb26da825665beaa8\main.spi
00:01:52 #10924 [verbose] >
00:01:52 #10925 [verbose] > ╭─[ 242.65ms - stdout ]────────────────────────────────────────────────────────╮
00:01:52 #10926 [verbose] > │ () │
00:01:52 #10927 [verbose] > │ │
00:01:52 #10928 [verbose] > │ │
00:01:52 #10929 [verbose] > ╰──────────────────────────────────────────────────────────────────────────────╯
00:01:52 #10930 [verbose] >
00:01:52 #10931 [verbose] > ── spiral ──────────────────────────────────────────────────────────────────────
00:01:52 #10932 [verbose] > // // test
00:01:52 #10933 [verbose] >
00:01:52 #10934 [verbose] > new_pair "a" 1i32
00:01:52 #10935 [verbose] > |> from_pair
00:01:52 #10936 [verbose] > |> _assert_eq ("a", 1i32)
00:01:52 #10937 [verbose] > Building c:\home\git\polyglot\target\polyglot\spiral_eval\packages\83f5ceb98317d0f32d54198268542c5b862d71ee398ecf9c5563911a3a5f9e8e\main.spi
00:01:52 #10938 [verbose] >
00:01:52 #10939 [verbose] > ╭─[ 247.67ms - stdout ]────────────────────────────────────────────────────────╮
00:01:52 #10940 [verbose] > │ let rec method1 (v0 : bool) : bool = │
00:01:52 #10941 [verbose] > │ v0 │
00:01:52 #10942 [verbose] > │ and method0 () : unit = │
00:01:52 #10943 [verbose] > │ let v0 : string = "a" │
00:01:52 #10944 [verbose] > │ let v1 : (string * int32) = v0, 1 │
00:01:52 #10945 [verbose] > │ let (a, b) = v1 │
00:01:52 #10946 [verbose] > │ let v2 : string = a │
00:01:52 #10947 [verbose] > │ let v3 : int32 = b │
00:01:52 #10948 [verbose] > │ let v4 : string = $"%A{struct (v2, v3)}" │
00:01:52 #10949 [verbose] > │ System.Console.WriteLine v4 │
00:01:52 #10950 [verbose] > │ let v5 : bool = v2 = "a" │
00:01:52 #10951 [verbose] > │ let v7 : bool = │
00:01:52 #10952 [verbose] > │ if v5 then │
00:01:52 #10953 [verbose] > │ let v6 : bool = v3 = 1 │
00:01:52 #10954 [verbose] > │ v6 │
00:01:52 #10955 [verbose] > │ else │
00:01:52 #10956 [verbose] > │ false │
00:01:52 #10957 [verbose] > │ let v9 : bool = │
00:01:52 #10958 [verbose] > │ if v7 then │
00:01:52 #10959 [verbose] > │ true │
00:01:52 #10960 [verbose] > │ else │
00:01:52 #10961 [verbose] > │ method1(v7) │
00:01:52 #10962 [verbose] > │ let v10 : string = $"__expect / actual: %A{struct (v2, v3)} / expected: │
00:01:52 #10963 [verbose] > │ %A{struct (v0, 1)}" │
00:01:52 #10964 [verbose] > │ let v11 : bool = v9 = false │
00:01:52 #10965 [verbose] > │ if v11 then │
00:01:52 #10966 [verbose] > │ failwith<unit> v10 │
00:01:52 #10967 [verbose] > │ method0() │
00:01:52 #10968 [verbose] > │ │
00:01:52 #10969 [verbose] > │ struct ("a", 1) │
00:01:52 #10970 [verbose] > │ │
00:01:52 #10971 [verbose] > ╰──────────────────────────────────────────────────────────────────────────────╯
00:01:52 #10972 [verbose] >
00:01:52 #10973 [verbose] > ── spiral ──────────────────────────────────────────────────────────────────────
00:01:52 #10974 [verbose] > // // test
00:01:52 #10975 [verbose] >
00:01:52 #10976 [verbose] > new_pair "a" (new_pair 1i32 "b")
00:01:52 #10977 [verbose] > |> from_pair
00:01:52 #10978 [verbose] > Building c:\home\git\polyglot\target\polyglot\spiral_eval\packages\15c7007caff0a0504e796dbffcf532b01277566a5a2015a7d9ed8bf6affc4b4f\main.spi
00:01:53 #10979 [verbose] >
00:01:53 #10980 [verbose] > ╭─[ 365.03ms - return value ]──────────────────────────────────────────────────╮
00:01:53 #10981 [verbose] > │ <details open="open" class="dni-treeview"><summary><span │
00:01:53 #10982 [verbose] > │ class="dni-code-hint"><code>(a, (1, │
00:01:53 #10983 [verbose] > │ b))</code></span></summary><div><table><thead><tr></tr></thead><tbody><tr><t │
00:01:53 #10984 [verbose] > │ d>Item1</td><td><div │
00:01:53 #10985 [verbose] > │ class="dni-plaintext"><pre>a</pre></div></td></tr><tr><td>Item2</td><td><det │
00:01:53 #10986 [verbose] > │ ails class="dni-treeview"><summary><span class="dni-code-hint"><code>(1, │
00:01:53 #10987 [verbose] > │ b)</code></span></summary><div><table><thead><tr></tr></thead><tbody><tr><td │
00:01:53 #10988 [verbose] > │ >Item1</td><td><div │
00:01:53 #10989 [verbose] > │ class="dni-plaintext"><pre>1</pre></div></td></tr><tr><td>Item2</td><td><div │
00:01:53 #10990 [verbose] > │ class="dni-plaintext"><pre>b</pre></div></td></tr></tbody></table></div></de │
00:01:53 #10991 [verbose] > │ tails></td></tr></tbody></table></div></details><style> │
00:01:53 #10992 [verbose] > │ .dni-code-hint { │
00:01:53 #10993 [verbose] > │ font-style: italic; │
00:01:53 #10994 [verbose] > │ overflow: hidden; │
00:01:53 #10995 [verbose] > │ white-space: nowrap; │
00:01:53 #10996 [verbose] > │ } │
00:01:53 #10997 [verbose] > │ .dni-treev... │
00:01:53 #10998 [verbose] > ╰──────────────────────────────────────────────────────────────────────────────╯
00:01:53 #10999 [verbose] >
00:01:53 #11000 [verbose] > ╭─[ 375.51ms - stdout ]────────────────────────────────────────────────────────╮
00:01:53 #11001 [verbose] > │ let rec method0 () : struct (string * (int32 * string)) = │
00:01:53 #11002 [verbose] > │ let v0 : string = "b" │
00:01:53 #11003 [verbose] > │ let v1 : (int32 * string) = 1, v0 │
00:01:53 #11004 [verbose] > │ let v2 : string = "a" │
00:01:53 #11005 [verbose] > │ let v3 : (string * (int32 * string)) = v2, v1 │
00:01:53 #11006 [verbose] > │ let (a, b) = v3 │
00:01:53 #11007 [verbose] > │ let v4 : string = a │
00:01:53 #11008 [verbose] > │ let v5 : (int32 * string) = b │
00:01:53 #11009 [verbose] > │ struct (v4, v5) │
00:01:53 #11010 [verbose] > │ method0() │
00:01:53 #11011 [verbose] > │ │
00:01:53 #11012 [verbose] > │ │
00:01:53 #11013 [verbose] > ╰──────────────────────────────────────────────────────────────────────────────╯
00:01:53 #11014 [verbose] >
00:01:53 #11015 [verbose] > ── markdown ────────────────────────────────────────────────────────────────────
00:01:53 #11016 [verbose] > ╭──────────────────────────────────────────────────────────────────────────────╮
00:01:53 #11017 [verbose] > │ ## memoize │
00:01:53 #11018 [verbose] > ╰──────────────────────────────────────────────────────────────────────────────╯
00:01:53 #11019 [verbose] >
00:01:53 #11020 [verbose] > ── spiral ──────────────────────────────────────────────────────────────────────
00:01:53 #11021 [verbose] > nominal lazy t = $'Lazy<`t>'
00:01:53 #11022 [verbose] >
00:01:53 #11023 [verbose] > inl memoize forall t. (fn : () -> t) : () -> t =
00:01:53 #11024 [verbose] > inl fn = join fn
00:01:53 #11025 [verbose] > inl result : lazy t = $'lazy !fn ()'
00:01:53 #11026 [verbose] > fun () => $'!result.Value'
00:01:53 #11027 [verbose] > Building c:\home\git\polyglot\target\polyglot\spiral_eval\packages\54d9748902243cf49f1d44cf0ad8907f71b54f7b35a7faea22650063b13c7d2d\main.spi
00:01:53 #11028 [verbose] >
00:01:53 #11029 [verbose] > ╭─[ 232.88ms - stdout ]────────────────────────────────────────────────────────╮
00:01:53 #11030 [verbose] > │ () │
00:01:53 #11031 [verbose] > │ │
00:01:53 #11032 [verbose] > │ │
00:01:53 #11033 [verbose] > ╰──────────────────────────────────────────────────────────────────────────────╯
00:01:53 #11034 [verbose] >
00:01:53 #11035 [verbose] > ── spiral ──────────────────────────────────────────────────────────────────────
00:01:53 #11036 [verbose] > // // test
00:01:53 #11037 [verbose] >
00:01:53 #11038 [verbose] > inl count = mut 0i32
00:01:53 #11039 [verbose] > inl add =
00:01:53 #11040 [verbose] > fun () => count <- *count + 1
00:01:53 #11041 [verbose] > |> memoize
00:01:53 #11042 [verbose] >
00:01:53 #11043 [verbose] > add ()
00:01:53 #11044 [verbose] > add ()
00:01:53 #11045 [verbose] > add ()
00:01:53 #11046 [verbose] >
00:01:53 #11047 [verbose] > *count
00:01:53 #11048 [verbose] > |> _assert_eq 1
00:01:53 #11049 [verbose] > Building c:\home\git\polyglot\target\polyglot\spiral_eval\packages\78693fab0ee705300fd56e6c99536b7917a6418a0af7e59cbcb3b95db1f04a66\main.spi
00:01:53 #11050 [verbose] >
00:01:53 #11051 [verbose] > ╭─[ 587.62ms - stdout ]────────────────────────────────────────────────────────╮
00:01:53 #11052 [verbose] > │ type Mut0 = {mutable l0 : int32} │
00:01:53 #11053 [verbose] > │ let rec closure0 (v0 : Mut0) () : unit = │
00:01:53 #11054 [verbose] > │ let v1 : int32 = v0.l0 │
00:01:53 #11055 [verbose] > │ let v2 : int32 = v1 + 1 │
00:01:53 #11056 [verbose] > │ v0.l0 <- v2 │
00:01:53 #11057 [verbose] > │ () │
00:01:53 #11058 [verbose] > │ and method1 (v0 : Mut0) : (unit -> unit) = │
00:01:53 #11059 [verbose] > │ closure0(v0) │
00:01:53 #11060 [verbose] > │ and method2 (v0 : bool) : bool = │
00:01:53 #11061 [verbose] > │ v0 │
00:01:53 #11062 [verbose] > │ and method0 () : unit = │
00:01:53 #11063 [verbose] > │ let v0 : Mut0 = {l0 = 0} : Mut0 │
00:01:53 #11064 [verbose] > │ let v1 : (unit -> unit) = method1(v0) │
00:01:53 #11065 [verbose] > │ let v2 : Lazy<unit> = lazy v1 () │
00:01:53 #11066 [verbose] > │ v2.Value │
00:01:53 #11067 [verbose] > │ v2.Value │
00:01:53 #11068 [verbose] > │ v2.Value │
00:01:53 #11069 [verbose] > │ let v3 : int32 = v0.l0 │
00:01:53 #11070 [verbose] > │ let v4 : string = $"%A{v3}" │
00:01:53 #11071 [verbose] > │ System.Console.WriteLine v4 │
00:01:53 #11072 [verbose] > │ let v5 : bool = v3 = 1 │
00:01:53 #11073 [verbose] > │ let v7 : bool = │
00:01:53 #11074 [verbose] > │ if v5 then │
00:01:53 #11075 [verbose] > │ true │
00:01:53 #11076 [verbose] > │ else │
00:01:53 #11077 [verbose] > │ method2(v5) │
00:01:53 #11078 [verbose] > │ let v8 : string = $"__expect / actual: %A{v3} / expected: %A{1}" │
00:01:53 #11079 [verbose] > │ let v9 : bool = v7 = false │
00:01:53 #11080 [verbose] > │ if v9 then │
00:01:53 #11081 [verbose] > │ failwith<unit> v8 │
00:01:53 #11082 [verbose] > │ method0() │
00:01:53 #11083 [verbose] > │ │
00:01:53 #11084 [verbose] > │ 1 │
00:01:53 #11085 [verbose] > │ │
00:01:53 #11086 [verbose] > ╰──────────────────────────────────────────────────────────────────────────────╯
00:01:53 #11087 [verbose] >
00:01:53 #11088 [verbose] > ── markdown ────────────────────────────────────────────────────────────────────
00:01:53 #11089 [verbose] > ╭──────────────────────────────────────────────────────────────────────────────╮
00:01:53 #11090 [verbose] > │ ## to_any │
00:01:53 #11091 [verbose] > ╰──────────────────────────────────────────────────────────────────────────────╯
00:01:53 #11092 [verbose] >
00:01:53 #11093 [verbose] > ── spiral ──────────────────────────────────────────────────────────────────────
00:01:53 #11094 [verbose] > inl to_any forall t. (obj : t) : any =
00:01:53 #11095 [verbose] > $"!obj"
00:01:53 #11096 [verbose] >
00:01:53 #11097 [verbose] > instance (~:>) any = to_any
00:01:54 #11098 [verbose] > Building c:\home\git\polyglot\target\polyglot\spiral_eval\packages\f70b35c06965b4a392197b89a00609264ad27e73e1e58cc6b3019a77fcebba6d\main.spi
00:01:54 #11099 [verbose] >
00:01:54 #11100 [verbose] > ╭─[ 252.40ms - stdout ]────────────────────────────────────────────────────────╮
00:01:54 #11101 [verbose] > │ () │
00:01:54 #11102 [verbose] > │ │
00:01:54 #11103 [verbose] > │ │
00:01:54 #11104 [verbose] > ╰──────────────────────────────────────────────────────────────────────────────╯
00:01:54 #11105 [verbose] >
00:01:54 #11106 [verbose] > ── markdown ────────────────────────────────────────────────────────────────────
00:01:54 #11107 [verbose] > ╭──────────────────────────────────────────────────────────────────────────────╮
00:01:54 #11108 [verbose] > │ ## (+.) │
00:01:54 #11109 [verbose] > ╰──────────────────────────────────────────────────────────────────────────────╯
00:01:54 #11110 [verbose] >
00:01:54 #11111 [verbose] > ── spiral ──────────────────────────────────────────────────────────────────────
00:01:54 #11112 [verbose] > inl (+.) forall t. (a : t) (b : t) : t =
00:01:54 #11113 [verbose] > $"!a + !b"
00:01:54 #11114 [verbose] > Building c:\home\git\polyglot\target\polyglot\spiral_eval\packages\a555825d6507fd3d67b4509e2522cc93c8f95591e3369112cb1849af52acbafe\main.spi
00:01:54 #11115 [verbose] >
00:01:54 #11116 [verbose] > ╭─[ 238.39ms - stdout ]────────────────────────────────────────────────────────╮
00:01:54 #11117 [verbose] > │ () │
00:01:54 #11118 [verbose] > │ │
00:01:54 #11119 [verbose] > │ │
00:01:54 #11120 [verbose] > ╰──────────────────────────────────────────────────────────────────────────────╯
00:01:54 #11121 [verbose] >
00:01:54 #11122 [verbose] > ── markdown ────────────────────────────────────────────────────────────────────
00:01:54 #11123 [verbose] > ╭──────────────────────────────────────────────────────────────────────────────╮
00:01:54 #11124 [verbose] > │ ## (-.) │
00:01:54 #11125 [verbose] > ╰──────────────────────────────────────────────────────────────────────────────╯
00:01:54 #11126 [verbose] >
00:01:54 #11127 [verbose] > ── spiral ──────────────────────────────────────────────────────────────────────
00:01:54 #11128 [verbose] > inl (-.) forall t. (a : t) (b : t) : t =
00:01:54 #11129 [verbose] > $"!a - !b"
00:01:54 #11130 [verbose] > Building c:\home\git\polyglot\target\polyglot\spiral_eval\packages\04db652dcd2b086db4789d5e84e0a667f79c94c33f76992bc5e5607f9eeabfc7\main.spi
00:01:54 #11131 [verbose] >
00:01:54 #11132 [verbose] > ╭─[ 210.63ms - stdout ]────────────────────────────────────────────────────────╮
00:01:54 #11133 [verbose] > │ () │
00:01:54 #11134 [verbose] > │ │
00:01:54 #11135 [verbose] > │ │
00:01:54 #11136 [verbose] > ╰──────────────────────────────────────────────────────────────────────────────╯
00:01:54 #11137 [verbose] >
00:01:54 #11138 [verbose] > ── markdown ────────────────────────────────────────────────────────────────────
00:01:54 #11139 [verbose] > ╭──────────────────────────────────────────────────────────────────────────────╮
00:01:54 #11140 [verbose] > │ ## (*.) │
00:01:54 #11141 [verbose] > ╰──────────────────────────────────────────────────────────────────────────────╯
00:01:54 #11142 [verbose] >
00:01:54 #11143 [verbose] > ── spiral ──────────────────────────────────────────────────────────────────────
00:01:54 #11144 [verbose] > inl (*.) forall t. (a : t) (b : t) : t =
00:01:54 #11145 [verbose] > $"!a * !b"
00:01:54 #11146 [verbose] > Building c:\home\git\polyglot\target\polyglot\spiral_eval\packages\9a43e9f9c85db7951112c46c7db4343aec945a2616314abdaea5e531922024be\main.spi
00:01:54 #11147 [verbose] >
00:01:54 #11148 [verbose] > ╭─[ 214.46ms - stdout ]────────────────────────────────────────────────────────╮
00:01:54 #11149 [verbose] > │ () │
00:01:54 #11150 [verbose] > │ │
00:01:54 #11151 [verbose] > │ │
00:01:54 #11152 [verbose] > ╰──────────────────────────────────────────────────────────────────────────────╯
00:01:54 #11153 [verbose] >
00:01:54 #11154 [verbose] > ── markdown ────────────────────────────────────────────────────────────────────
00:01:54 #11155 [verbose] > ╭──────────────────────────────────────────────────────────────────────────────╮
00:01:54 #11156 [verbose] > │ ## (/.) │
00:01:54 #11157 [verbose] > ╰──────────────────────────────────────────────────────────────────────────────╯
00:01:54 #11158 [verbose] >
00:01:54 #11159 [verbose] > ── spiral ──────────────────────────────────────────────────────────────────────
00:01:54 #11160 [verbose] > inl (/.) forall t. (a : t) (b : t) : t =
00:01:54 #11161 [verbose] > $"!a / !b"
00:01:55 #11162 [verbose] > Building c:\home\git\polyglot\target\polyglot\spiral_eval\packages\5e7bd4ca141b3dc05ec37e9e766ca1ad1d87d2d861c0ce12049241a7055685ee\main.spi
00:01:55 #11163 [verbose] >
00:01:55 #11164 [verbose] > ╭─[ 229.53ms - stdout ]────────────────────────────────────────────────────────╮
00:01:55 #11165 [verbose] > │ () │
00:01:55 #11166 [verbose] > │ │
00:01:55 #11167 [verbose] > │ │
00:01:55 #11168 [verbose] > ╰──────────────────────────────────────────────────────────────────────────────╯
00:01:55 #11169 [verbose] >
00:01:55 #11170 [verbose] > ── markdown ────────────────────────────────────────────────────────────────────
00:01:55 #11171 [verbose] > ╭──────────────────────────────────────────────────────────────────────────────╮
00:01:55 #11172 [verbose] > │ ## (=.) │
00:01:55 #11173 [verbose] > ╰──────────────────────────────────────────────────────────────────────────────╯
00:01:55 #11174 [verbose] >
00:01:55 #11175 [verbose] > ── spiral ──────────────────────────────────────────────────────────────────────
00:01:55 #11176 [verbose] > inl (=.) forall t. (a : t) (b : t) : bool =
00:01:55 #11177 [verbose] > $"!a = !b"
00:01:55 #11178 [verbose] > Building c:\home\git\polyglot\target\polyglot\spiral_eval\packages\7a0dedf4d16c3245ebbf34e81cf17020908de5a8c5ed78f7553cf5a12058094e\main.spi
00:01:55 #11179 [verbose] >
00:01:55 #11180 [verbose] > ╭─[ 238.30ms - stdout ]────────────────────────────────────────────────────────╮
00:01:55 #11181 [verbose] > │ () │
00:01:55 #11182 [verbose] > │ │
00:01:55 #11183 [verbose] > │ │
00:01:55 #11184 [verbose] > ╰──────────────────────────────────────────────────────────────────────────────╯
00:01:55 #11185 [verbose] >
00:01:55 #11186 [verbose] > ── markdown ────────────────────────────────────────────────────────────────────
00:01:55 #11187 [verbose] > ╭──────────────────────────────────────────────────────────────────────────────╮
00:01:55 #11188 [verbose] > │ ## (||>) │
00:01:55 #11189 [verbose] > ╰──────────────────────────────────────────────────────────────────────────────╯
00:01:55 #11190 [verbose] >
00:01:55 #11191 [verbose] > ── spiral ──────────────────────────────────────────────────────────────────────
00:01:55 #11192 [verbose] > inl (||>) (arg1, arg2) fn =
00:01:55 #11193 [verbose] > arg2 |> fn arg1
00:01:55 #11194 [verbose] > Building c:\home\git\polyglot\target\polyglot\spiral_eval\packages\4e65382865135b036f036fc77d93cd956522672d6bb98769f12597c9ef27ed1c\main.spi
00:01:55 #11195 [verbose] >
00:01:55 #11196 [verbose] > ╭─[ 270.18ms - stdout ]────────────────────────────────────────────────────────╮
00:01:55 #11197 [verbose] > │ () │
00:01:55 #11198 [verbose] > │ │
00:01:55 #11199 [verbose] > │ │
00:01:55 #11200 [verbose] > ╰──────────────────────────────────────────────────────────────────────────────╯
00:01:55 #11201 [verbose] >
00:01:55 #11202 [verbose] > ── spiral ──────────────────────────────────────────────────────────────────────
00:01:55 #11203 [verbose] > // // test
00:01:55 #11204 [verbose] >
00:01:55 #11205 [verbose] > (3i32, 2i32)
00:01:55 #11206 [verbose] > ||> fun a b => a - b
00:01:55 #11207 [verbose] > |> _assert_eq 1
00:01:55 #11208 [verbose] > Building c:\home\git\polyglot\target\polyglot\spiral_eval\packages\24d4684f2b031b35062c6108e87c9b52e8a0981aacd562362abd4540de4e5fa5\main.spi
00:01:55 #11209 [verbose] >
00:01:55 #11210 [verbose] > ╭─[ 261.75ms - stdout ]────────────────────────────────────────────────────────╮
00:01:55 #11211 [verbose] > │ let rec method0 () : unit = │
00:01:55 #11212 [verbose] > │ let v0 : string = $"%A{1}" │
00:01:55 #11213 [verbose] > │ System.Console.WriteLine v0 │
00:01:55 #11214 [verbose] > │ let v1 : string = $"__expect / actual: %A{1} / expected: %A{1}" │
00:01:55 #11215 [verbose] > │ () │
00:01:55 #11216 [verbose] > │ method0() │
00:01:55 #11217 [verbose] > │ │
00:01:55 #11218 [verbose] > │ 1 │
00:01:55 #11219 [verbose] > │ │
00:01:55 #11220 [verbose] > ╰──────────────────────────────────────────────────────────────────────────────╯
00:01:55 #11221 [verbose] >
00:01:55 #11222 [verbose] > ── markdown ────────────────────────────────────────────────────────────────────
00:01:55 #11223 [verbose] > ╭──────────────────────────────────────────────────────────────────────────────╮
00:01:55 #11224 [verbose] > │ ## flip │
00:01:55 #11225 [verbose] > ╰──────────────────────────────────────────────────────────────────────────────╯
00:01:55 #11226 [verbose] >
00:01:55 #11227 [verbose] > ── spiral ──────────────────────────────────────────────────────────────────────
00:01:55 #11228 [verbose] > inl flip fn a b =
00:01:55 #11229 [verbose] > fn b a
00:01:56 #11230 [verbose] > Building c:\home\git\polyglot\target\polyglot\spiral_eval\packages\5b098629de71211c5bf4bba0fc1e25ad0a31fcbc9c48c1e1be7eb16c9e0badf9\main.spi
00:01:56 #11231 [verbose] >
00:01:56 #11232 [verbose] > ╭─[ 250.73ms - stdout ]────────────────────────────────────────────────────────╮
00:01:56 #11233 [verbose] > │ () │
00:01:56 #11234 [verbose] > │ │
00:01:56 #11235 [verbose] > │ │
00:01:56 #11236 [verbose] > ╰──────────────────────────────────────────────────────────────────────────────╯
00:01:56 #11237 [verbose] >
00:01:56 #11238 [verbose] > ── spiral ──────────────────────────────────────────────────────────────────────
00:01:56 #11239 [verbose] > // // test
00:01:56 #11240 [verbose] >
00:01:56 #11241 [verbose] > (1i32, 2i32)
00:01:56 #11242 [verbose] > ||> flip pair
00:01:56 #11243 [verbose] > |> _assert_eq (2, 1)
00:01:56 #11244 [verbose] > Building c:\home\git\polyglot\target\polyglot\spiral_eval\packages\2b87d2b88a589a2efbe3de8d8fad9080dc02fa46f6313e1622ca64ae8a2a0b52\main.spi
00:01:57 #11245 [verbose] >
00:01:57 #11246 [verbose] > ╭─[ 1.05s - stdout ]───────────────────────────────────────────────────────────╮
00:01:57 #11247 [verbose] > │ let rec method0 () : unit = │
00:01:57 #11248 [verbose] > │ let v0 : string = $"%A{struct (2, 1)}" │
00:01:57 #11249 [verbose] > │ System.Console.WriteLine v0 │
00:01:57 #11250 [verbose] > │ let v1 : string = $"__expect / actual: %A{struct (2, 1)} / expected: │
00:01:57 #11251 [verbose] > │ %A{struct (2, 1)}" │
00:01:57 #11252 [verbose] > │ () │
00:01:57 #11253 [verbose] > │ method0() │
00:01:57 #11254 [verbose] > │ │
00:01:57 #11255 [verbose] > │ struct (2, 1) │
00:01:57 #11256 [verbose] > │ │
00:01:57 #11257 [verbose] > ╰──────────────────────────────────────────────────────────────────────────────╯
00:01:57 #11258 [verbose] >
00:01:57 #11259 [verbose] > ── markdown ────────────────────────────────────────────────────────────────────
00:01:57 #11260 [verbose] > ╭──────────────────────────────────────────────────────────────────────────────╮
00:01:57 #11261 [verbose] > │ ## join_body │
00:01:57 #11262 [verbose] > ╰──────────────────────────────────────────────────────────────────────────────╯
00:01:57 #11263 [verbose] >
00:01:57 #11264 [verbose] > ── spiral ──────────────────────────────────────────────────────────────────────
00:01:57 #11265 [verbose] > inl join_body body acc x =
00:01:57 #11266 [verbose] > if var_is x |> not
00:01:57 #11267 [verbose] > then body acc x
00:01:57 #11268 [verbose] > else
00:01:57 #11269 [verbose] > inl acc = dyn acc
00:01:57 #11270 [verbose] > join body acc x
00:01:57 #11271 [verbose] > Building c:\home\git\polyglot\target\polyglot\spiral_eval\packages\db00828ac6a87ef9a2d61ed851e566aeeab1426b5916d49420885b6312ba4e7e\main.spi
00:01:57 #11272 [verbose] >
00:01:57 #11273 [verbose] > ╭─[ 297.32ms - stdout ]────────────────────────────────────────────────────────╮
00:01:57 #11274 [verbose] > │ () │
00:01:57 #11275 [verbose] > │ │
00:01:57 #11276 [verbose] > │ │
00:01:57 #11277 [verbose] > ╰──────────────────────────────────────────────────────────────────────────────╯
00:01:57 #11278 [verbose] >
00:01:57 #11279 [verbose] > ── spiral ──────────────────────────────────────────────────────────────────────
00:01:57 #11280 [verbose] > // // test
00:01:57 #11281 [verbose] >
00:01:57 #11282 [verbose] > inl rec fold_list f s = function
00:01:57 #11283 [verbose] > | Cons (x, x') => fold_list f (f s x) x'
00:01:57 #11284 [verbose] > | Nil => s
00:01:57 #11285 [verbose] > Building c:\home\git\polyglot\target\polyglot\spiral_eval\packages\4100cdda2e1348b6591f7fc6f5e3b3f89a542a67fbf8dec69424812f546c8ff6\main.spi
00:01:57 #11286 [verbose] >
00:01:57 #11287 [verbose] > ╭─[ 272.09ms - stdout ]────────────────────────────────────────────────────────╮
00:01:57 #11288 [verbose] > │ () │
00:01:57 #11289 [verbose] > │ │
00:01:57 #11290 [verbose] > │ │
00:01:57 #11291 [verbose] > ╰──────────────────────────────────────────────────────────────────────────────╯
00:01:57 #11292 [verbose] >
00:01:57 #11293 [verbose] > ── spiral ──────────────────────────────────────────────────────────────────────
00:01:57 #11294 [verbose] > // // test
00:01:57 #11295 [verbose] >
00:01:57 #11296 [verbose] > [[ 5i32; 4; join 3; 2; 1 ]]
00:01:57 #11297 [verbose] > |> fold_list (+) 0
00:01:57 #11298 [verbose] > |> _assert_eq 15
00:01:57 #11299 [verbose] > Building c:\home\git\polyglot\target\polyglot\spiral_eval\packages\7624dda33b230b01597a5ed768c4e73d0d57bcb12a656add1d359417cd699798\main.spi
00:01:58 #11300 [verbose] >
00:01:58 #11301 [verbose] > ╭─[ 298.45ms - stdout ]────────────────────────────────────────────────────────╮
00:01:58 #11302 [verbose] > │ let rec method1 () : int32 = │
00:01:58 #11303 [verbose] > │ 3 │
00:01:58 #11304 [verbose] > │ and method2 (v0 : bool) : bool = │
00:01:58 #11305 [verbose] > │ v0 │
00:01:58 #11306 [verbose] > │ and method0 () : unit = │
00:01:58 #11307 [verbose] > │ let v0 : int32 = method1() │
00:01:58 #11308 [verbose] > │ let v1 : int32 = 9 + v0 │
00:01:58 #11309 [verbose] > │ let v2 : int32 = v1 + 2 │
00:01:58 #11310 [verbose] > │ let v3 : int32 = v2 + 1 │
00:01:58 #11311 [verbose] > │ let v4 : string = $"%A{v3}" │
00:01:58 #11312 [verbose] > │ System.Console.WriteLine v4 │
00:01:58 #11313 [verbose] > │ let v5 : bool = v3 = 15 │
00:01:58 #11314 [verbose] > │ let v7 : bool = │
00:01:58 #11315 [verbose] > │ if v5 then │
00:01:58 #11316 [verbose] > │ true │
00:01:58 #11317 [verbose] > │ else │
00:01:58 #11318 [verbose] > │ method2(v5) │
00:01:58 #11319 [verbose] > │ let v8 : string = $"__expect / actual: %A{v3} / expected: %A{15}" │
00:01:58 #11320 [verbose] > │ let v9 : bool = v7 = false │
00:01:58 #11321 [verbose] > │ if v9 then │
00:01:58 #11322 [verbose] > │ failwith<unit> v8 │
00:01:58 #11323 [verbose] > │ method0() │
00:01:58 #11324 [verbose] > │ │
00:01:58 #11325 [verbose] > │ 15 │
00:01:58 #11326 [verbose] > │ │
00:01:58 #11327 [verbose] > ╰──────────────────────────────────────────────────────────────────────────────╯
00:01:58 #11328 [verbose] >
00:01:58 #11329 [verbose] > ── spiral ──────────────────────────────────────────────────────────────────────
00:01:58 #11330 [verbose] > // // test
00:01:58 #11331 [verbose] >
00:01:58 #11332 [verbose] > [[ 5i32; 4; join 3; 2; 1 ]]
00:01:58 #11333 [verbose] > |> fold_list (join_body (+)) 0
00:01:58 #11334 [verbose] > |> _assert_eq 15
00:01:58 #11335 [verbose] > Building c:\home\git\polyglot\target\polyglot\spiral_eval\packages\60a9c79a27c8ef12aded558717101dece6022814e76a8dc1da060bea8b4252ff\main.spi
00:01:58 #11336 [verbose] >
00:01:58 #11337 [verbose] > ╭─[ 262.47ms - stdout ]────────────────────────────────────────────────────────╮
00:01:58 #11338 [verbose] > │ let rec method1 () : int32 = │
00:01:58 #11339 [verbose] > │ 3 │
00:01:58 #11340 [verbose] > │ and method2 (v0 : int32, v1 : int32) : int32 = │
00:01:58 #11341 [verbose] > │ let v2 : int32 = v1 + v0 │
00:01:58 #11342 [verbose] > │ v2 │
00:01:58 #11343 [verbose] > │ and method3 (v0 : bool) : bool = │
00:01:58 #11344 [verbose] > │ v0 │
00:01:58 #11345 [verbose] > │ and method0 () : unit = │
00:01:58 #11346 [verbose] > │ let v0 : int32 = method1() │
00:01:58 #11347 [verbose] > │ let v1 : int32 = 9 │
00:01:58 #11348 [verbose] > │ let v2 : int32 = method2(v0, v1) │
00:01:58 #11349 [verbose] > │ let v3 : int32 = v2 + 2 │
00:01:58 #11350 [verbose] > │ let v4 : int32 = v3 + 1 │
00:01:58 #11351 [verbose] > │ let v5 : string = $"%A{v4}" │
00:01:58 #11352 [verbose] > │ System.Console.WriteLine v5 │
00:01:58 #11353 [verbose] > │ let v6 : bool = v4 = 15 │
00:01:58 #11354 [verbose] > │ let v8 : bool = │
00:01:58 #11355 [verbose] > │ if v6 then │
00:01:58 #11356 [verbose] > │ true │
00:01:58 #11357 [verbose] > │ else │
00:01:58 #11358 [verbose] > │ method3(v6) │
00:01:58 #11359 [verbose] > │ let v9 : string = $"__expect / actual: %A{v4} / expected: %A{15}" │
00:01:58 #11360 [verbose] > │ let v10 : bool = v8 = false │
00:01:58 #11361 [verbose] > │ if v10 then │
00:01:58 #11362 [verbose] > │ failwith<unit> v9 │
00:01:58 #11363 [verbose] > │ method0() │
00:01:58 #11364 [verbose] > │ │
00:01:58 #11365 [verbose] > │ 15 │
00:01:58 #11366 [verbose] > │ │
00:01:58 #11367 [verbose] > ╰──────────────────────────────────────────────────────────────────────────────╯
00:01:58 #11368 [verbose] >
00:01:58 #11369 [verbose] > ── markdown ────────────────────────────────────────────────────────────────────
00:01:58 #11370 [verbose] > ╭──────────────────────────────────────────────────────────────────────────────╮
00:01:58 #11371 [verbose] > │ ## join_body_unit │
00:01:58 #11372 [verbose] > ╰──────────────────────────────────────────────────────────────────────────────╯
00:01:58 #11373 [verbose] >
00:01:58 #11374 [verbose] > ── spiral ──────────────────────────────────────────────────────────────────────
00:01:58 #11375 [verbose] > inl join_body_unit body d x =
00:01:58 #11376 [verbose] > if var_is d |> not
00:01:58 #11377 [verbose] > then body x
00:01:58 #11378 [verbose] > else
00:01:58 #11379 [verbose] > inl x = dyn x
00:01:58 #11380 [verbose] > join body x
00:01:58 #11381 [verbose] > Building c:\home\git\polyglot\target\polyglot\spiral_eval\packages\af3dfb098097eb43feaafc07d96ed50611bc0b3710316073eff090799a55a946\main.spi
00:01:58 #11382 [verbose] >
00:01:58 #11383 [verbose] > ╭─[ 220.77ms - stdout ]────────────────────────────────────────────────────────╮
00:01:58 #11384 [verbose] > │ () │
00:01:58 #11385 [verbose] > │ │
00:01:58 #11386 [verbose] > │ │
00:01:58 #11387 [verbose] > ╰──────────────────────────────────────────────────────────────────────────────╯
00:01:58 #11388 [verbose] >
00:01:58 #11389 [verbose] > ── spiral ──────────────────────────────────────────────────────────────────────
00:01:58 #11390 [verbose] > // // test
00:01:58 #11391 [verbose] >
00:01:58 #11392 [verbose] > [[ 5i32; 4; join 3; 2; 1 ]]
00:01:58 #11393 [verbose] > |> fold_list (fun acc n => join_body_unit ((+) acc) n n) 0
00:01:58 #11394 [verbose] > |> _assert_eq 15
00:01:58 #11395 [verbose] > Building c:\home\git\polyglot\target\polyglot\spiral_eval\packages\59110fedd14a15e08f27fe1de63bbe5777c200c6148608d76877de7d5790cf25\main.spi
00:01:58 #11396 [verbose] >
00:01:58 #11397 [verbose] > ╭─[ 266.39ms - stdout ]────────────────────────────────────────────────────────╮
00:01:58 #11398 [verbose] > │ let rec method1 () : int32 = │
00:01:58 #11399 [verbose] > │ 3 │
00:01:58 #11400 [verbose] > │ and method2 (v0 : int32) : int32 = │
00:01:58 #11401 [verbose] > │ let v1 : int32 = 9 + v0 │
00:01:58 #11402 [verbose] > │ v1 │
00:01:58 #11403 [verbose] > │ and method3 (v0 : bool) : bool = │
00:01:58 #11404 [verbose] > │ v0 │
00:01:58 #11405 [verbose] > │ and method0 () : unit = │
00:01:58 #11406 [verbose] > │ let v0 : int32 = method1() │
00:01:58 #11407 [verbose] > │ let v1 : int32 = method2(v0) │
00:01:58 #11408 [verbose] > │ let v2 : int32 = v1 + 2 │
00:01:58 #11409 [verbose] > │ let v3 : int32 = v2 + 1 │
00:01:58 #11410 [verbose] > │ let v4 : string = $"%A{v3}" │
00:01:58 #11411 [verbose] > │ System.Console.WriteLine v4 │
00:01:58 #11412 [verbose] > │ let v5 : bool = v3 = 15 │
00:01:58 #11413 [verbose] > │ let v7 : bool = │
00:01:58 #11414 [verbose] > │ if v5 then │
00:01:58 #11415 [verbose] > │ true │
00:01:58 #11416 [verbose] > │ else │
00:01:58 #11417 [verbose] > │ method3(v5) │
00:01:58 #11418 [verbose] > │ let v8 : string = $"__expect / actual: %A{v3} / expected: %A{15}" │
00:01:58 #11419 [verbose] > │ let v9 : bool = v7 = false │
00:01:58 #11420 [verbose] > │ if v9 then │
00:01:58 #11421 [verbose] > │ failwith<unit> v8 │
00:01:58 #11422 [verbose] > │ method0() │
00:01:58 #11423 [verbose] > │ │
00:01:58 #11424 [verbose] > │ 15 │
00:01:58 #11425 [verbose] > │ │
00:01:58 #11426 [verbose] > ╰──────────────────────────────────────────────────────────────────────────────╯
00:01:58 #11427 [verbose] >
00:01:58 #11428 [verbose] > ── markdown ────────────────────────────────────────────────────────────────────
00:01:58 #11429 [verbose] > ╭──────────────────────────────────────────────────────────────────────────────╮
00:01:58 #11430 [verbose] > │ ## nameof │
00:01:58 #11431 [verbose] > ╰──────────────────────────────────────────────────────────────────────────────╯
00:01:58 #11432 [verbose] >
00:01:58 #11433 [verbose] > ── spiral ──────────────────────────────────────────────────────────────────────
00:01:58 #11434 [verbose] > inl nameof x : string =
00:01:58 #11435 [verbose] > $"nameof !x"
00:01:59 #11436 [verbose] > Building c:\home\git\polyglot\target\polyglot\spiral_eval\packages\561bf431a85e9b57c307cd56d37d4daded03306c96737c449caf60d08751a6c1\main.spi
00:01:59 #11437 [verbose] >
00:01:59 #11438 [verbose] > ╭─[ 227.18ms - stdout ]────────────────────────────────────────────────────────╮
00:01:59 #11439 [verbose] > │ () │
00:01:59 #11440 [verbose] > │ │
00:01:59 #11441 [verbose] > │ │
00:01:59 #11442 [verbose] > ╰──────────────────────────────────────────────────────────────────────────────╯
00:01:59 #11443 [verbose] >
00:01:59 #11444 [verbose] > ── markdown ────────────────────────────────────────────────────────────────────
00:01:59 #11445 [verbose] > ╭──────────────────────────────────────────────────────────────────────────────╮
00:01:59 #11446 [verbose] > │ ## get_environment_variable │
00:01:59 #11447 [verbose] > ╰──────────────────────────────────────────────────────────────────────────────╯
00:01:59 #11448 [verbose] >
00:01:59 #11449 [verbose] > ── spiral ──────────────────────────────────────────────────────────────────────
00:01:59 #11450 [verbose] > inl get_environment_variable (var : string) : string =
00:01:59 #11451 [verbose] > $"System.Environment.GetEnvironmentVariable !var"
00:01:59 #11452 [verbose] > Building c:\home\git\polyglot\target\polyglot\spiral_eval\packages\ccfeca9851e15073487a1d82ed4590967f2be087e2903b98ee311100c59c9dd2\main.spi
00:01:59 #11453 [verbose] >
00:01:59 #11454 [verbose] > ╭─[ 259.05ms - stdout ]────────────────────────────────────────────────────────╮
00:01:59 #11455 [verbose] > │ () │
00:01:59 #11456 [verbose] > │ │
00:01:59 #11457 [verbose] > │ │
00:01:59 #11458 [verbose] > ╰──────────────────────────────────────────────────────────────────────────────╯
00:01:59 #11459 [verbose] >
00:01:59 #11460 [verbose] > ── spiral ──────────────────────────────────────────────────────────────────────
00:01:59 #11461 [verbose] > // // test
00:01:59 #11462 [verbose] >
00:01:59 #11463 [verbose] > fun () => failwith "test"
00:01:59 #11464 [verbose] > |> _throws
00:01:59 #11465 [verbose] > |> optionm.map sm'.format_exception
00:01:59 #11466 [verbose] > |> _assert_eq (Some "System.Exception: test")
00:01:59 #11467 [verbose] > Building c:\home\git\polyglot\target\polyglot\spiral_eval\packages\80aa9c51ef9800dd35ba6728266ccdd13fc7f9e645bd3333082f563be92724d6\main.spi
00:01:59 #11468 [verbose] >
00:01:59 #11469 [verbose] > ╭─[ 483.57ms - stdout ]────────────────────────────────────────────────────────╮
00:01:59 #11470 [verbose] > │ type [<Struct>] US0 = │
00:01:59 #11471 [verbose] > │ | US0_0 of f0_0 : exn │
00:01:59 #11472 [verbose] > │ | US0_1 │
00:01:59 #11473 [verbose] > │ and [<Struct>] US1 = │
00:01:59 #11474 [verbose] > │ | US1_0 of f0_0 : string │
00:01:59 #11475 [verbose] > │ | US1_1 │
00:01:59 #11476 [verbose] > │ let rec closure0 () () : unit = │
00:01:59 #11477 [verbose] > │ failwith<unit> "test" │
00:01:59 #11478 [verbose] > │ and closure1 () (v0 : exn) : US0 = │
00:01:59 #11479 [verbose] > │ US0_0(v0) │
00:01:59 #11480 [verbose] > │ and method1 (v0 : bool) : bool = │
00:01:59 #11481 [verbose] > │ v0 │
00:01:59 #11482 [verbose] > │ and method0 () : unit = │
00:01:59 #11483 [verbose] > │ let v0 : (unit -> unit) = closure0() │
00:01:59 #11484 [verbose] > │ let v1 : US0 = US0_1 │
00:01:59 #11485 [verbose] > │ let v2 : (exn -> US0) = closure1() │
00:01:59 #11486 [verbose] > │ let v3 : US0 = try v0 (); v1 with ex -> ex |> v2 │
00:01:59 #11487 [verbose] > │ let v16 : US1 = │
00:01:59 #11488 [verbose] > │ match v3 with │
00:01:59 #11489 [verbose] > │ | US0_1 -> (* None *) │
00:01:59 #11490 [verbose] > │ US1_1 │
00:01:59 #11491 [verbose] > │ | US0_0(v4) -> (* Some *) │
00:01:59 #11492 [verbose] > │ let v5 : string option = None │
00:01:59 #11493 [verbose] > │ let mutable _v5 = v5 │
00:01:59 #11494 [verbose] > │ #if FABLE_COMPILER_RUST && !WASM && !CONTRACT │
00:01:59 #11495 [verbose] > │ let v6 : string = $"%A{v4}" │
00:01:59 #11496 [verbose] > │ v6 │
00:01:59 #11497 [verbose] > │ #endif │
00:01:59 #11498 [verbose] > │ #if FABLE_COMPILER_RUST && WASM │
00:01:59 #11499 [verbose] > │ let v7 : string = $"%A{v4}" │
00:01:59 #11500 [verbose] > │ v7 │
00:01:59 #11501 [verbose] > │ #endif │
00:01:59 #11502 [verbose] > │ #if FABLE_COMPILER_RUST && CONTRACT │
00:01:59 #11503 [verbose] > │ let v8 : string = $"%A{v4}" │
00:01:59 #11504 [verbose] > │ v8 │
00:01:59 #11505 [verbose] > │ #endif │
00:01:59 #11506 [verbose] > │ #if !FABLE_COMPILER && !FABLE_COMPILER_RUST && │
00:01:59 #11507 [verbose] > │ !FABLE_COMPILER_TYPESCRIPT && !WASM && !CONTRACT │
00:01:59 #11508 [verbose] > │ let v9 : string = $"{v4.GetType ()}: {v4.Message}" │
00:01:59 #11509 [verbose] > │ v9 │
00:01:59 #11510 [verbose] > │ #endif │
00:01:59 #11511 [verbose] > │ #if FABLE_COMPILER_TYPESCRIPT │
00:01:59 #11512 [verbose] > │ let v10 : string = $"%A{v4}" │
00:01:59 #11513 [verbose] > │ v10 │
00:01:59 #11514 [verbose] > │ #endif │
00:01:59 #11515 [verbose] > │ #if FABLE_COMPILER_PYTHON || FABLE_COMPILER_PHP || │
00:01:59 #11516 [verbose] > │ FABLE_COMPILER_DART │
00:01:59 #11517 [verbose] > │ let v11 : string = Unchecked.defaultof<string> │
00:01:59 #11518 [verbose] > │ v11 │
00:01:59 #11519 [verbose] > │ #endif │
00:01:59 #11520 [verbose] > │ |> fun x -> _v5 <- Some x │
00:01:59 #11521 [verbose] > │ let v12 : string = _v5.Value │
00:01:59 #11522 [verbose] > │ US1_0(v12) │
00:01:59 #11523 [verbose] > │ let v17 : string = $"%A{v16}" │
00:01:59 #11524 [verbose] > │ System.Console.WriteLine v17 │
00:01:59 #11525 [verbose] > │ let v22 : bool = │
00:01:59 #11526 [verbose] > │ match v16 with │
00:01:59 #11527 [verbose] > │ | US1_0(v20) -> (* Some *) │
00:01:59 #11528 [verbose] > │ let v21 : bool = v20 = "System.Exception: test" │
00:01:59 #11529 [verbose] > │ v21 │
00:01:59 #11530 [verbose] > │ | _ -> │
00:01:59 #11531 [verbose] > │ false │
00:01:59 #11532 [verbose] > │ let v24 : bool = │
00:01:59 #11533 [verbose] > │ if v22 then │
00:01:59 #11534 [verbose] > │ true │
00:01:59 #11535 [verbose] > │ else │
00:01:59 #11536 [verbose] > │ method1(v22) │
00:01:59 #11537 [verbose] > │ let v25 : string = "System.Exception: test" │
00:01:59 #11538 [verbose] > │ let v26 : US1 = US1_0(v25) │
00:01:59 #11539 [verbose] > │ let v27 : string = $"__expect / actual: %A{v16} / expected: %A{v26}" │
00:01:59 #11540 [verbose] > │ let v28 : bool = v24 = false │
00:01:59 #11541 [verbose] > │ if v28 then │
00:01:59 #11542 [verbose] > │ failwith<unit> v27 │
00:01:59 #11543 [verbose] > │ method0() │
00:01:59 #11544 [verbose] > │ │
00:01:59 #11545 [verbose] > │ US1_0 "System.Exception: test" │
00:01:59 #11546 [verbose] > │ │
00:01:59 #11547 [verbose] > ╰──────────────────────────────────────────────────────────────────────────────╯
00:01:59 #11548 [verbose] >
00:01:59 #11549 [verbose] > ── markdown ────────────────────────────────────────────────────────────────────
00:01:59 #11550 [verbose] > ╭──────────────────────────────────────────────────────────────────────────────╮
00:01:59 #11551 [verbose] > │ ## disposable │
00:01:59 #11552 [verbose] > ╰──────────────────────────────────────────────────────────────────────────────╯
00:01:59 #11553 [verbose] >
00:01:59 #11554 [verbose] > ── spiral ──────────────────────────────────────────────────────────────────────
00:01:59 #11555 [verbose] > nominal disposable t = $"System.IDisposable"
00:02:00 #11556 [verbose] > Building c:\home\git\polyglot\target\polyglot\spiral_eval\packages\e1ff5b22d6c495726434dff0f84de843f085333e259d625aff2fd8793f8d38fd\main.spi
00:02:00 #11557 [verbose] >
00:02:00 #11558 [verbose] > ╭─[ 256.35ms - stdout ]────────────────────────────────────────────────────────╮
00:02:00 #11559 [verbose] > │ () │
00:02:00 #11560 [verbose] > │ │
00:02:00 #11561 [verbose] > │ │
00:02:00 #11562 [verbose] > ╰──────────────────────────────────────────────────────────────────────────────╯
00:02:00 #11563 [verbose] >
00:02:00 #11564 [verbose] > ── markdown ────────────────────────────────────────────────────────────────────
00:02:00 #11565 [verbose] > ╭──────────────────────────────────────────────────────────────────────────────╮
00:02:00 #11566 [verbose] > │ ## dispose │
00:02:00 #11567 [verbose] > ╰──────────────────────────────────────────────────────────────────────────────╯
00:02:00 #11568 [verbose] >
00:02:00 #11569 [verbose] > ── spiral ──────────────────────────────────────────────────────────────────────
00:02:00 #11570 [verbose] > inl dispose (disposable : disposable _) : () =
00:02:00 #11571 [verbose] > disposable |> $'_.Dispose()'
00:02:00 #11572 [verbose] > Building c:\home\git\polyglot\target\polyglot\spiral_eval\packages\8720863b12e69d90c71231c7254ac671584c4261bcdea7e6731a6ce6c6adfe27\main.spi
00:02:00 #11573 [verbose] >
00:02:00 #11574 [verbose] > ╭─[ 224.43ms - stdout ]────────────────────────────────────────────────────────╮
00:02:00 #11575 [verbose] > │ () │
00:02:00 #11576 [verbose] > │ │
00:02:00 #11577 [verbose] > │ │
00:02:00 #11578 [verbose] > ╰──────────────────────────────────────────────────────────────────────────────╯
00:02:00 #11579 [verbose] >
00:02:00 #11580 [verbose] > ── markdown ────────────────────────────────────────────────────────────────────
00:02:00 #11581 [verbose] > ╭──────────────────────────────────────────────────────────────────────────────╮
00:02:00 #11582 [verbose] > │ ## new_disposable │
00:02:00 #11583 [verbose] > ╰──────────────────────────────────────────────────────────────────────────────╯
00:02:00 #11584 [verbose] >
00:02:00 #11585 [verbose] > ── spiral ──────────────────────────────────────────────────────────────────────
00:02:00 #11586 [verbose] > inl new_disposable (fn : () -> ()) : disposable _ =
00:02:00 #11587 [verbose] > run_target function
00:02:00 #11588 [verbose] > | Fsharp _ => fun () => $'{ new System.IDisposable with member _.Dispose
00:02:00 #11589 [verbose] > () = !fn () }'
00:02:00 #11590 [verbose] > // | Rust _ =>
00:02:00 #11591 [verbose] > // fun () =>
00:02:00 #11592 [verbose] > // $'{ new System.IDisposable with member _.Dispose () =
00:02:00 #11593 [verbose] > Fable.Core.RustInterop.emitRustExpr () "!fn()" }'
00:02:00 #11594 [verbose] > | _ => fun () => null ()
00:02:00 #11595 [verbose] > Building c:\home\git\polyglot\target\polyglot\spiral_eval\packages\245f09b0359be5eb83defc20ffcf8644e7185acf18c8b79958b9b94e60ac6748\main.spi
00:02:00 #11596 [verbose] >
00:02:00 #11597 [verbose] > ╭─[ 216.93ms - stdout ]────────────────────────────────────────────────────────╮
00:02:00 #11598 [verbose] > │ () │
00:02:00 #11599 [verbose] > │ │
00:02:00 #11600 [verbose] > │ │
00:02:00 #11601 [verbose] > ╰──────────────────────────────────────────────────────────────────────────────╯
00:02:00 #11602 [verbose] >
00:02:00 #11603 [verbose] > ── spiral ──────────────────────────────────────────────────────────────────────
00:02:00 #11604 [verbose] > // // test
00:02:00 #11605 [verbose] >
00:02:00 #11606 [verbose] > inl new_disposable_test = mut 0i32
00:02:00 #11607 [verbose] > new_disposable (fun () => new_disposable_test <- *new_disposable_test + 1)
00:02:00 #11608 [verbose] > |> fun x => x : disposable ()
00:02:00 #11609 [verbose] > |> dispose
00:02:00 #11610 [verbose] > *new_disposable_test |> _assert_eq 1
00:02:00 #11611 [verbose] > Building c:\home\git\polyglot\target\polyglot\spiral_eval\packages\eab202c225913f50c8fb7a7a8d51fa0ab9c2009ac91d5ce2e2ea07ae3f268134\main.spi
00:02:00 #11612 [verbose] >
00:02:00 #11613 [verbose] > ╭─[ 305.27ms - stdout ]────────────────────────────────────────────────────────╮
00:02:00 #11614 [verbose] > │ type Mut0 = {mutable l0 : int32} │
00:02:00 #11615 [verbose] > │ let rec closure0 (v0 : Mut0) () : unit = │
00:02:00 #11616 [verbose] > │ let v1 : int32 = v0.l0 │
00:02:00 #11617 [verbose] > │ let v2 : int32 = v1 + 1 │
00:02:00 #11618 [verbose] > │ v0.l0 <- v2 │
00:02:00 #11619 [verbose] > │ () │
00:02:00 #11620 [verbose] > │ and method1 (v0 : bool) : bool = │
00:02:00 #11621 [verbose] > │ v0 │
00:02:00 #11622 [verbose] > │ and method0 () : unit = │
00:02:00 #11623 [verbose] > │ let v0 : Mut0 = {l0 = 0} : Mut0 │
00:02:00 #11624 [verbose] > │ let v1 : System.IDisposable option = None │
00:02:00 #11625 [verbose] > │ let mutable _v1 = v1 │
00:02:00 #11626 [verbose] > │ #if FABLE_COMPILER_RUST && !WASM && !CONTRACT │
00:02:00 #11627 [verbose] > │ let v2 : System.IDisposable = null |> unbox<System.IDisposable> │
00:02:00 #11628 [verbose] > │ v2 │
00:02:00 #11629 [verbose] > │ #endif │
00:02:00 #11630 [verbose] > │ #if FABLE_COMPILER_RUST && WASM │
00:02:00 #11631 [verbose] > │ let v3 : System.IDisposable = null |> unbox<System.IDisposable> │
00:02:00 #11632 [verbose] > │ v3 │
00:02:00 #11633 [verbose] > │ #endif │
00:02:00 #11634 [verbose] > │ #if FABLE_COMPILER_RUST && CONTRACT │
00:02:00 #11635 [verbose] > │ let v4 : System.IDisposable = null |> unbox<System.IDisposable> │
00:02:00 #11636 [verbose] > │ v4 │
00:02:00 #11637 [verbose] > │ #endif │
00:02:00 #11638 [verbose] > │ #if !FABLE_COMPILER && !FABLE_COMPILER_RUST && │
00:02:00 #11639 [verbose] > │ !FABLE_COMPILER_TYPESCRIPT && !WASM && !CONTRACT │
00:02:00 #11640 [verbose] > │ let v5 : (unit -> unit) = closure0(v0) │
00:02:00 #11641 [verbose] > │ let v6 : System.IDisposable = { new System.IDisposable with member │
00:02:00 #11642 [verbose] > │ _.Dispose () = v5 () } │
00:02:00 #11643 [verbose] > │ v6 │
00:02:00 #11644 [verbose] > │ #endif │
00:02:00 #11645 [verbose] > │ #if FABLE_COMPILER_TYPESCRIPT │
00:02:00 #11646 [verbose] > │ let v7 : System.IDisposable = null |> unbox<System.IDisposable> │
00:02:00 #11647 [verbose] > │ v7 │
00:02:00 #11648 [verbose] > │ #endif │
00:02:00 #11649 [verbose] > │ #if FABLE_COMPILER_PYTHON || FABLE_COMPILER_PHP || FABLE_COMPILER_DART │
00:02:00 #11650 [verbose] > │ let v8 : System.IDisposable = Unchecked.defaultof<System.IDisposable> │
00:02:00 #11651 [verbose] > │ v8 │
00:02:00 #11652 [verbose] > │ #endif │
00:02:00 #11653 [verbose] > │ |> fun x -> _v1 <- Some x │
00:02:00 #11654 [verbose] > │ let v9 : System.IDisposable = _v1.Value │
00:02:00 #11655 [verbose] > │ let v10 : (System.IDisposable -> unit) = _.Dispose() │
00:02:00 #11656 [verbose] > │ v10 v9 │
00:02:00 #11657 [verbose] > │ let v11 : int32 = v0.l0 │
00:02:00 #11658 [verbose] > │ let v12 : string = $"%A{v11}" │
00:02:00 #11659 [verbose] > │ System.Console.WriteLine v12 │
00:02:00 #11660 [verbose] > │ let v13 : bool = v11 = 1 │
00:02:00 #11661 [verbose] > │ let v15 : bool = │
00:02:00 #11662 [verbose] > │ if v13 then │
00:02:00 #11663 [verbose] > │ true │
00:02:00 #11664 [verbose] > │ else │
00:02:00 #11665 [verbose] > │ method1(v13) │
00:02:00 #11666 [verbose] > │ let v16 : string = $"__expect / actual: %A{v11} / expected: %A{1}" │
00:02:00 #11667 [verbose] > │ let v17 : bool = v15 = false │
00:02:00 #11668 [verbose] > │ if v17 then │
00:02:00 #11669 [verbose] > │ failwith<unit> v16 │
00:02:00 #11670 [verbose] > │ method0() │
00:02:00 #11671 [verbose] > │ │
00:02:00 #11672 [verbose] > │ 1 │
00:02:00 #11673 [verbose] > │ │
00:02:00 #11674 [verbose] > ╰──────────────────────────────────────────────────────────────────────────────╯
00:02:00 #11675 [verbose] >
00:02:00 #11676 [verbose] > ── spiral ──────────────────────────────────────────────────────────────────────
00:02:00 #11677 [verbose] > // // test
00:02:00 #11678 [verbose] >
00:02:00 #11679 [verbose] > inl new_disposable_test = mut 0i32
00:02:00 #11680 [verbose] > fun () =>
00:02:00 #11681 [verbose] > new_disposable fun () => new_disposable_test <- *new_disposable_test + 1
00:02:00 #11682 [verbose] > |> fun x => x : disposable ()
00:02:00 #11683 [verbose] > |> use
00:02:00 #11684 [verbose] > |> ignore
00:02:00 #11685 [verbose] > |> return
00:02:00 #11686 [verbose] > |> async.new_task
00:02:00 #11687 [verbose] > |> async.await_task
00:02:00 #11688 [verbose] > |> async.run_synchronously
00:02:00 #11689 [verbose] > *new_disposable_test |> _assert_eq 1
00:02:01 #11690 [verbose] > Building c:\home\git\polyglot\target\polyglot\spiral_eval\packages\d1f6e08dab684ff223084d55344de3983bf7f5393166dcb452af57b78e8992be\main.spi
00:02:01 #11691 [verbose] >
00:02:01 #11692 [verbose] > ╭─[ 373.49ms - stdout ]────────────────────────────────────────────────────────╮
00:02:01 #11693 [verbose] > │ type Mut0 = {mutable l0 : int32} │
00:02:01 #11694 [verbose] > │ let rec closure0 (v0 : Mut0) () : unit = │
00:02:01 #11695 [verbose] > │ let v1 : int32 = v0.l0 │
00:02:01 #11696 [verbose] > │ let v2 : int32 = v1 + 1 │
00:02:01 #11697 [verbose] > │ v0.l0 <- v2 │
00:02:01 #11698 [verbose] > │ () │
00:02:01 #11699 [verbose] > │ and method1 (v0 : bool) : bool = │
00:02:01 #11700 [verbose] > │ v0 │
00:02:01 #11701 [verbose] > │ and method0 () : unit = │
00:02:01 #11702 [verbose] > │ let v0 : Mut0 = {l0 = 0} : Mut0 │
00:02:01 #11703 [verbose] > │ let v1 : System.Threading.Tasks.Task option = None │
00:02:01 #11704 [verbose] > │ let mutable _v1 = v1 │
00:02:01 #11705 [verbose] > │ #if FABLE_COMPILER_RUST && !WASM && !CONTRACT │
00:02:01 #11706 [verbose] > │ let v2 : System.Threading.Tasks.Task = null |> │
00:02:01 #11707 [verbose] > │ unbox<System.Threading.Tasks.Task> │
00:02:01 #11708 [verbose] > │ v2 │
00:02:01 #11709 [verbose] > │ #endif │
00:02:01 #11710 [verbose] > │ #if FABLE_COMPILER_RUST && WASM │
00:02:01 #11711 [verbose] > │ let v3 : System.Threading.Tasks.Task = null |> │
00:02:01 #11712 [verbose] > │ unbox<System.Threading.Tasks.Task> │
00:02:01 #11713 [verbose] > │ v3 │
00:02:01 #11714 [verbose] > │ #endif │
00:02:01 #11715 [verbose] > │ #if FABLE_COMPILER_RUST && CONTRACT │
00:02:01 #11716 [verbose] > │ let v4 : System.Threading.Tasks.Task = null |> │
00:02:01 #11717 [verbose] > │ unbox<System.Threading.Tasks.Task> │
00:02:01 #11718 [verbose] > │ v4 │
00:02:01 #11719 [verbose] > │ #endif │
00:02:01 #11720 [verbose] > │ #if !FABLE_COMPILER && !FABLE_COMPILER_RUST && │
00:02:01 #11721 [verbose] > │ !FABLE_COMPILER_TYPESCRIPT && !WASM && !CONTRACT │
00:02:01 #11722 [verbose] > │ let v5 : System.Threading.Tasks.Task option = None │
00:02:01 #11723 [verbose] > │ let mutable _v5 = v5 │
00:02:01 #11724 [verbose] > │ task { │
00:02:01 #11725 [verbose] > │ let v6 : System.IDisposable option = None │
00:02:01 #11726 [verbose] > │ let mutable _v6 = v6 │
00:02:01 #11727 [verbose] > │ #if FABLE_COMPILER_RUST && !WASM && !CONTRACT │
00:02:01 #11728 [verbose] > │ let v7 : System.IDisposable = null |> unbox<System.IDisposable> │
00:02:01 #11729 [verbose] > │ v7 │
00:02:01 #11730 [verbose] > │ #endif │
00:02:01 #11731 [verbose] > │ #if FABLE_COMPILER_RUST && WASM │
00:02:01 #11732 [verbose] > │ let v8 : System.IDisposable = null |> unbox<System.IDisposable> │
00:02:01 #11733 [verbose] > │ v8 │
00:02:01 #11734 [verbose] > │ #endif │
00:02:01 #11735 [verbose] > │ #if FABLE_COMPILER_RUST && CONTRACT │
00:02:01 #11736 [verbose] > │ let v9 : System.IDisposable = null |> unbox<System.IDisposable> │
00:02:01 #11737 [verbose] > │ v9 │
00:02:01 #11738 [verbose] > │ #endif │
00:02:01 #11739 [verbose] > │ #if !FABLE_COMPILER && !FABLE_COMPILER_RUST && │
00:02:01 #11740 [verbose] > │ !FABLE_COMPILER_TYPESCRIPT && !WASM && !CONTRACT │
00:02:01 #11741 [verbose] > │ let v10 : (unit -> unit) = closure0(v0) │
00:02:01 #11742 [verbose] > │ let v11 : System.IDisposable = { new System.IDisposable with member │
00:02:01 #11743 [verbose] > │ _.Dispose () = v10 () } │
00:02:01 #11744 [verbose] > │ v11 │
00:02:01 #11745 [verbose] > │ #endif │
00:02:01 #11746 [verbose] > │ #if FABLE_COMPILER_TYPESCRIPT │
00:02:01 #11747 [verbose] > │ let v12 : System.IDisposable = null |> unbox<System.IDisposable> │
00:02:01 #11748 [verbose] > │ v12 │
00:02:01 #11749 [verbose] > │ #endif │
00:02:01 #11750 [verbose] > │ #if FABLE_COMPILER_PYTHON || FABLE_COMPILER_PHP || FABLE_COMPILER_DART │
00:02:01 #11751 [verbose] > │ let v13 : System.IDisposable = Unchecked.defaultof<System.IDisposable> │
00:02:01 #11752 [verbose] > │ v13 │
00:02:01 #11753 [verbose] > │ #endif │
00:02:01 #11754 [verbose] > │ |> fun x -> _v6 <- Some x │
00:02:01 #11755 [verbose] > │ let v14 : System.IDisposable = _v6.Value │
00:02:01 #11756 [verbose] > │ use v14 = v14 │
00:02:01 #11757 [verbose] > │ let v15 : System.IDisposable = v14 │
00:02:01 #11758 [verbose] > │ return () │
00:02:01 #11759 [verbose] > │ } │
00:02:01 #11760 [verbose] > │ |> fun x -> _v5 <- Some x │
00:02:01 #11761 [verbose] > │ let v16 : System.Threading.Tasks.Task = _v5 |> Option.get │
00:02:01 #11762 [verbose] > │ v16 │
00:02:01 #11763 [verbose] > │ #endif │
00:02:01 #11764 [verbose] > │ #if FABLE_COMPILER_TYPESCRIPT │
00:02:01 #11765 [verbose] > │ let v17 : System.Threading.Tasks.Task = null |> │
00:02:01 #11766 [verbose] > │ unbox<System.Threading.Tasks.Task> │
00:02:01 #11767 [verbose] > │ v17 │
00:02:01 #11768 [verbose] > │ #endif │
00:02:01 #11769 [verbose] > │ #if FABLE_COMPILER_PYTHON || FABLE_COMPILER_PHP || FABLE_COMPILER_DART │
00:02:01 #11770 [verbose] > │ let v18 : System.Threading.Tasks.Task = │
00:02:01 #11771 [verbose] > │ Unchecked.defaultof<System.Threading.Tasks.Task> │
00:02:01 #11772 [verbose] > │ v18 │
00:02:01 #11773 [verbose] > │ #endif │
00:02:01 #11774 [verbose] > │ |> fun x -> _v1 <- Some x │
00:02:01 #11775 [verbose] > │ let v19 : System.Threading.Tasks.Task = _v1.Value │
00:02:01 #11776 [verbose] > │ let v20 : Async<unit> option = None │
00:02:01 #11777 [verbose] > │ let mutable _v20 = v20 │
00:02:01 #11778 [verbose] > │ #if FABLE_COMPILER_RUST && !WASM && !CONTRACT │
00:02:01 #11779 [verbose] > │ let v21 : Async<unit> = null |> unbox<Async<unit>> │
00:02:01 #11780 [verbose] > │ v21 │
00:02:01 #11781 [verbose] > │ #endif │
00:02:01 #11782 [verbose] > │ #if FABLE_COMPILER_RUST && WASM │
00:02:01 #11783 [verbose] > │ let v22 : Async<unit> = null |> unbox<Async<unit>> │
00:02:01 #11784 [verbose] > │ v22 │
00:02:01 #11785 [verbose] > │ #endif │
00:02:01 #11786 [verbose] > │ #if FABLE_COMPILER_RUST && CONTRACT │
00:02:01 #11787 [verbose] > │ let v23 : Async<unit> = null |> unbox<Async<unit>> │
00:02:01 #11788 [verbose] > │ v23 │
00:02:01 #11789 [verbose] > │ #endif │
00:02:01 #11790 [verbose] > │ #if !FABLE_COMPILER && !FABLE_COMPILER_RUST && │
00:02:01 #11791 [verbose] > │ !FABLE_COMPILER_TYPESCRIPT && !WASM && !CONTRACT │
00:02:01 #11792 [verbose] > │ let v24 : (System.Threading.Tasks.Task -> Async<unit>) = Async.AwaitTask │
00:02:01 #11793 [verbose] > │ let v25 : Async<unit> = v24 v19 │
00:02:01 #11794 [verbose] > │ v25 │
00:02:01 #11795 [verbose] > │ #endif │
00:02:01 #11796 [verbose] > │ #if FABLE_COMPILER_TYPESCRIPT │
00:02:01 #11797 [verbose] > │ let v26 : Async<unit> = null |> unbox<Async<unit>> │
00:02:01 #11798 [verbose] > │ v26 │
00:02:01 #11799 [verbose] > │ #endif │
00:02:01 #11800 [verbose] > │ #if FABLE_COMPILER_PYTHON || FABLE_COMPILER_PHP || FABLE_COMPILER_DART │
00:02:01 #11801 [verbose] > │ let v27 : Async<unit> = Unchecked.defaultof<Async<unit>> │
00:02:01 #11802 [verbose] > │ v27 │
00:02:01 #11803 [verbose] > │ #endif │
00:02:01 #11804 [verbose] > │ |> fun x -> _v20 <- Some x │
00:02:01 #11805 [verbose] > │ let v28 : Async<unit> = _v20.Value │
00:02:01 #11806 [verbose] > │ let v29 : unit option = None │
00:02:01 #11807 [verbose] > │ let mutable _v29 = v29 │
00:02:01 #11808 [verbose] > │ #if FABLE_COMPILER_RUST && !WASM && !CONTRACT │
00:02:01 #11809 [verbose] > │ null |> unbox<unit> │
00:02:01 #11810 [verbose] > │ () │
00:02:01 #11811 [verbose] > │ #endif │
00:02:01 #11812 [verbose] > │ #if FABLE_COMPILER_RUST && WASM │
00:02:01 #11813 [verbose] > │ null |> unbox<unit> │
00:02:01 #11814 [verbose] > │ () │
00:02:01 #11815 [verbose] > │ #endif │
00:02:01 #11816 [verbose] > │ #if FABLE_COMPILER_RUST && CONTRACT │
00:02:01 #11817 [verbose] > │ null |> unbox<unit> │
00:02:01 #11818 [verbose] > │ () │
00:02:01 #11819 [verbose] > │ #endif │
00:02:01 #11820 [verbose] > │ #if !FABLE_COMPILER && !FABLE_COMPILER_RUST && │
00:02:01 #11821 [verbose] > │ !FABLE_COMPILER_TYPESCRIPT && !WASM && !CONTRACT │
00:02:01 #11822 [verbose] > │ let v30 : (Async<unit> -> unit) = Async.RunSynchronously │
00:02:01 #11823 [verbose] > │ v30 v28 │
00:02:01 #11824 [verbose] > │ () │
00:02:01 #11825 [verbose] > │ #endif │
00:02:01 #11826 [verbose] > │ #if FABLE_COMPILER_TYPESCRIPT │
00:02:01 #11827 [verbose] > │ null |> unbox<unit> │
00:02:01 #11828 [verbose] > │ () │
00:02:01 #11829 [verbose] > │ #endif │
00:02:01 #11830 [verbose] > │ #if FABLE_COMPILER_PYTHON || FABLE_COMPILER_PHP || FABLE_COMPILER_DART │
00:02:01 #11831 [verbose] > │ Unchecked.defaultof<unit> │
00:02:01 #11832 [verbose] > │ () │
00:02:01 #11833 [verbose] > │ #endif │
00:02:01 #11834 [verbose] > │ |> fun x -> _v29 <- Some x │
00:02:01 #11835 [verbose] > │ _v29.Value │
00:02:01 #11836 [verbose] > │ let v31 : int32 = v0.l0 │
00:02:01 #11837 [verbose] > │ let v32 : string = $"%A{v31}" │
00:02:01 #11838 [verbose] > │ System.Console.WriteLine v32 │
00:02:01 #11839 [verbose] > │ let v33 : bool = v31 = 1 │
00:02:01 #11840 [verbose] > │ let v35 : bool = │
00:02:01 #11841 [verbose] > │ if v33 then │
00:02:01 #11842 [verbose] > │ true │
00:02:01 #11843 [verbose] > │ else │
00:02:01 #11844 [verbose] > │ method1(v33) │
00:02:01 #11845 [verbose] > │ let v36 : string = $"__expect / actual: %A{v31} / expected: %A{1}" │
00:02:01 #11846 [verbose] > │ let v37 : bool = v35 = false │
00:02:01 #11847 [verbose] > │ if v37 then │
00:02:01 #11848 [verbose] > │ failwith<unit> v36 │
00:02:01 #11849 [verbose] > │ method0() │
00:02:01 #11850 [verbose] > │ │
00:02:01 #11851 [verbose] > │ 1 │
00:02:01 #11852 [verbose] > │ │
00:02:01 #11853 [verbose] > ╰──────────────────────────────────────────────────────────────────────────────╯
00:02:01 #11854 [verbose] >
00:02:01 #11855 [verbose] > ── spiral ──────────────────────────────────────────────────────────────────────
00:02:01 #11856 [verbose] > // // test
00:02:01 #11857 [verbose] >
00:02:01 #11858 [verbose] > inl new_disposable_test = mut 0i32
00:02:01 #11859 [verbose] > fun () =>
00:02:01 #11860 [verbose] > new_disposable fun () => new_disposable_test <- *new_disposable_test + 1
00:02:01 #11861 [verbose] > |> fun x => x : disposable ()
00:02:01 #11862 [verbose] > |> use
00:02:01 #11863 [verbose] > |> ignore
00:02:01 #11864 [verbose] > |> return
00:02:01 #11865 [verbose] > |> async.new_async
00:02:01 #11866 [verbose] > |> async.run_synchronously
00:02:01 #11867 [verbose] > *new_disposable_test |> _assert_eq 1
00:02:01 #11868 [verbose] > Building c:\home\git\polyglot\target\polyglot\spiral_eval\packages\90fecc08cc9b26aae5f91752f56eab89635af1558cf51da43fc3fe3b7407f79e\main.spi
00:02:01 #11869 [verbose] >
00:02:01 #11870 [verbose] > ╭─[ 286.14ms - stdout ]────────────────────────────────────────────────────────╮
00:02:01 #11871 [verbose] > │ type Mut0 = {mutable l0 : int32} │
00:02:01 #11872 [verbose] > │ let rec closure0 (v0 : Mut0) () : unit = │
00:02:01 #11873 [verbose] > │ let v1 : int32 = v0.l0 │
00:02:01 #11874 [verbose] > │ let v2 : int32 = v1 + 1 │
00:02:01 #11875 [verbose] > │ v0.l0 <- v2 │
00:02:01 #11876 [verbose] > │ () │
00:02:01 #11877 [verbose] > │ and method1 (v0 : bool) : bool = │
00:02:01 #11878 [verbose] > │ v0 │
00:02:01 #11879 [verbose] > │ and method0 () : unit = │
00:02:01 #11880 [verbose] > │ let v0 : Mut0 = {l0 = 0} : Mut0 │
00:02:01 #11881 [verbose] > │ let v1 : Async<unit> option = None │
00:02:01 #11882 [verbose] > │ let mutable _v1 = v1 │
00:02:01 #11883 [verbose] > │ #if FABLE_COMPILER_RUST && !WASM && !CONTRACT │
00:02:01 #11884 [verbose] > │ let v2 : Async<unit> = null |> unbox<Async<unit>> │
00:02:01 #11885 [verbose] > │ v2 │
00:02:01 #11886 [verbose] > │ #endif │
00:02:01 #11887 [verbose] > │ #if FABLE_COMPILER_RUST && WASM │
00:02:01 #11888 [verbose] > │ let v3 : Async<unit> = null |> unbox<Async<unit>> │
00:02:01 #11889 [verbose] > │ v3 │
00:02:01 #11890 [verbose] > │ #endif │
00:02:01 #11891 [verbose] > │ #if FABLE_COMPILER_RUST && CONTRACT │
00:02:01 #11892 [verbose] > │ let v4 : Async<unit> = null |> unbox<Async<unit>> │
00:02:01 #11893 [verbose] > │ v4 │
00:02:01 #11894 [verbose] > │ #endif │
00:02:01 #11895 [verbose] > │ #if !FABLE_COMPILER && !FABLE_COMPILER_RUST && │
00:02:01 #11896 [verbose] > │ !FABLE_COMPILER_TYPESCRIPT && !WASM && !CONTRACT │
00:02:01 #11897 [verbose] > │ let v5 : Async<unit> option = None │
00:02:01 #11898 [verbose] > │ let mutable _v5 = v5 │
00:02:01 #11899 [verbose] > │ async { │
00:02:01 #11900 [verbose] > │ let v6 : System.IDisposable option = None │
00:02:01 #11901 [verbose] > │ let mutable _v6 = v6 │
00:02:01 #11902 [verbose] > │ #if FABLE_COMPILER_RUST && !WASM && !CONTRACT │
00:02:01 #11903 [verbose] > │ let v7 : System.IDisposable = null |> unbox<System.IDisposable> │
00:02:01 #11904 [verbose] > │ v7 │
00:02:01 #11905 [verbose] > │ #endif │
00:02:01 #11906 [verbose] > │ #if FABLE_COMPILER_RUST && WASM │
00:02:01 #11907 [verbose] > │ let v8 : System.IDisposable = null |> unbox<System.IDisposable> │
00:02:01 #11908 [verbose] > │ v8 │
00:02:01 #11909 [verbose] > │ #endif │
00:02:01 #11910 [verbose] > │ #if FABLE_COMPILER_RUST && CONTRACT │
00:02:01 #11911 [verbose] > │ let v9 : System.IDisposable = null |> unbox<System.IDisposable> │
00:02:01 #11912 [verbose] > │ v9 │
00:02:01 #11913 [verbose] > │ #endif │
00:02:01 #11914 [verbose] > │ #if !FABLE_COMPILER && !FABLE_COMPILER_RUST && │
00:02:01 #11915 [verbose] > │ !FABLE_COMPILER_TYPESCRIPT && !WASM && !CONTRACT │
00:02:01 #11916 [verbose] > │ let v10 : (unit -> unit) = closure0(v0) │
00:02:01 #11917 [verbose] > │ let v11 : System.IDisposable = { new System.IDisposable with member │
00:02:01 #11918 [verbose] > │ _.Dispose () = v10 () } │
00:02:01 #11919 [verbose] > │ v11 │
00:02:01 #11920 [verbose] > │ #endif │
00:02:01 #11921 [verbose] > │ #if FABLE_COMPILER_TYPESCRIPT │
00:02:01 #11922 [verbose] > │ let v12 : System.IDisposable = null |> unbox<System.IDisposable> │
00:02:01 #11923 [verbose] > │ v12 │
00:02:01 #11924 [verbose] > │ #endif │
00:02:01 #11925 [verbose] > │ #if FABLE_COMPILER_PYTHON || FABLE_COMPILER_PHP || FABLE_COMPILER_DART │
00:02:01 #11926 [verbose] > │ let v13 : System.IDisposable = Unchecked.defaultof<System.IDisposable> │
00:02:01 #11927 [verbose] > │ v13 │
00:02:01 #11928 [verbose] > │ #endif │
00:02:01 #11929 [verbose] > │ |> fun x -> _v6 <- Some x │
00:02:01 #11930 [verbose] > │ let v14 : System.IDisposable = _v6.Value │
00:02:01 #11931 [verbose] > │ use v14 = v14 │
00:02:01 #11932 [verbose] > │ let v15 : System.IDisposable = v14 │
00:02:01 #11933 [verbose] > │ return () │
00:02:01 #11934 [verbose] > │ } │
00:02:01 #11935 [verbose] > │ |> fun x -> _v5 <- Some x │
00:02:01 #11936 [verbose] > │ let v16 : Async<unit> = _v5 |> Option.get │
00:02:01 #11937 [verbose] > │ v16 │
00:02:01 #11938 [verbose] > │ #endif │
00:02:01 #11939 [verbose] > │ #if FABLE_COMPILER_TYPESCRIPT │
00:02:01 #11940 [verbose] > │ let v17 : Async<unit> = null |> unbox<Async<unit>> │
00:02:01 #11941 [verbose] > │ v17 │
00:02:01 #11942 [verbose] > │ #endif │
00:02:01 #11943 [verbose] > │ #if FABLE_COMPILER_PYTHON || FABLE_COMPILER_PHP || FABLE_COMPILER_DART │
00:02:01 #11944 [verbose] > │ let v18 : Async<unit> = Unchecked.defaultof<Async<unit>> │
00:02:01 #11945 [verbose] > │ v18 │
00:02:01 #11946 [verbose] > │ #endif │
00:02:01 #11947 [verbose] > │ |> fun x -> _v1 <- Some x │
00:02:01 #11948 [verbose] > │ let v19 : Async<unit> = _v1.Value │
00:02:01 #11949 [verbose] > │ let v20 : unit option = None │
00:02:01 #11950 [verbose] > │ let mutable _v20 = v20 │
00:02:01 #11951 [verbose] > │ #if FABLE_COMPILER_RUST && !WASM && !CONTRACT │
00:02:01 #11952 [verbose] > │ null |> unbox<unit> │
00:02:01 #11953 [verbose] > │ () │
00:02:01 #11954 [verbose] > │ #endif │
00:02:01 #11955 [verbose] > │ #if FABLE_COMPILER_RUST && WASM │
00:02:01 #11956 [verbose] > │ null |> unbox<unit> │
00:02:01 #11957 [verbose] > │ () │
00:02:01 #11958 [verbose] > │ #endif │
00:02:01 #11959 [verbose] > │ #if FABLE_COMPILER_RUST && CONTRACT │
00:02:01 #11960 [verbose] > │ null |> unbox<unit> │
00:02:01 #11961 [verbose] > │ () │
00:02:01 #11962 [verbose] > │ #endif │
00:02:01 #11963 [verbose] > │ #if !FABLE_COMPILER && !FABLE_COMPILER_RUST && │
00:02:01 #11964 [verbose] > │ !FABLE_COMPILER_TYPESCRIPT && !WASM && !CONTRACT │
00:02:01 #11965 [verbose] > │ let v21 : (Async<unit> -> unit) = Async.RunSynchronously │
00:02:01 #11966 [verbose] > │ v21 v19 │
00:02:01 #11967 [verbose] > │ () │
00:02:01 #11968 [verbose] > │ #endif │
00:02:01 #11969 [verbose] > │ #if FABLE_COMPILER_TYPESCRIPT │
00:02:01 #11970 [verbose] > │ null |> unbox<unit> │
00:02:01 #11971 [verbose] > │ () │
00:02:01 #11972 [verbose] > │ #endif │
00:02:01 #11973 [verbose] > │ #if FABLE_COMPILER_PYTHON || FABLE_COMPILER_PHP || FABLE_COMPILER_DART │
00:02:01 #11974 [verbose] > │ Unchecked.defaultof<unit> │
00:02:01 #11975 [verbose] > │ () │
00:02:01 #11976 [verbose] > │ #endif │
00:02:01 #11977 [verbose] > │ |> fun x -> _v20 <- Some x │
00:02:01 #11978 [verbose] > │ _v20.Value │
00:02:01 #11979 [verbose] > │ let v22 : int32 = v0.l0 │
00:02:01 #11980 [verbose] > │ let v23 : string = $"%A{v22}" │
00:02:01 #11981 [verbose] > │ System.Console.WriteLine v23 │
00:02:01 #11982 [verbose] > │ let v24 : bool = v22 = 1 │
00:02:01 #11983 [verbose] > │ let v26 : bool = │
00:02:01 #11984 [verbose] > │ if v24 then │
00:02:01 #11985 [verbose] > │ true │
00:02:01 #11986 [verbose] > │ else │
00:02:01 #11987 [verbose] > │ method1(v24) │
00:02:01 #11988 [verbose] > │ let v27 : string = $"__expect / actual: %A{v22} / expected: %A{1}" │
00:02:01 #11989 [verbose] > │ let v28 : bool = v26 = false │
00:02:01 #11990 [verbose] > │ if v28 then │
00:02:01 #11991 [verbose] > │ failwith<unit> v27 │
00:02:01 #11992 [verbose] > │ method0() │
00:02:01 #11993 [verbose] > │ │
00:02:01 #11994 [verbose] > │ 1 │
00:02:01 #11995 [verbose] > │ │
00:02:01 #11996 [verbose] > ╰──────────────────────────────────────────────────────────────────────────────╯
00:02:01 #11997 [verbose] >
00:02:01 #11998 [verbose] > ── spiral ──────────────────────────────────────────────────────────────────────
00:02:01 #11999 [verbose] > // // test
00:02:01 #12000 [verbose] >
00:02:01 #12001 [verbose] > inl new_disposable_test = mut 0i32
00:02:01 #12002 [verbose] > fun () =>
00:02:01 #12003 [verbose] > new_disposable fun () => new_disposable_test <- *new_disposable_test + 1
00:02:01 #12004 [verbose] > |> fun x => x : disposable ()
00:02:01 #12005 [verbose] > |> ignore
00:02:01 #12006 [verbose] > |> return
00:02:01 #12007 [verbose] > |> async.new_async
00:02:01 #12008 [verbose] > |> async.run_synchronously
00:02:01 #12009 [verbose] > *new_disposable_test |> _assert_eq 0
00:02:01 #12010 [verbose] > Building c:\home\git\polyglot\target\polyglot\spiral_eval\packages\5e80e2017a143128b0f8e3fb689d55e0effba19b111928e000b6fc4b896515eb\main.spi
00:02:01 #12011 [verbose] >
00:02:01 #12012 [verbose] > ╭─[ 269.56ms - stdout ]────────────────────────────────────────────────────────╮
00:02:01 #12013 [verbose] > │ type Mut0 = {mutable l0 : int32} │
00:02:01 #12014 [verbose] > │ let rec closure0 (v0 : Mut0) () : unit = │
00:02:01 #12015 [verbose] > │ let v1 : int32 = v0.l0 │
00:02:01 #12016 [verbose] > │ let v2 : int32 = v1 + 1 │
00:02:01 #12017 [verbose] > │ v0.l0 <- v2 │
00:02:01 #12018 [verbose] > │ () │
00:02:01 #12019 [verbose] > │ and method1 (v0 : bool) : bool = │
00:02:01 #12020 [verbose] > │ v0 │
00:02:01 #12021 [verbose] > │ and method0 () : unit = │
00:02:01 #12022 [verbose] > │ let v0 : Mut0 = {l0 = 0} : Mut0 │
00:02:01 #12023 [verbose] > │ let v1 : Async<unit> option = None │
00:02:01 #12024 [verbose] > │ let mutable _v1 = v1 │
00:02:01 #12025 [verbose] > │ #if FABLE_COMPILER_RUST && !WASM && !CONTRACT │
00:02:01 #12026 [verbose] > │ let v2 : Async<unit> = null |> unbox<Async<unit>> │
00:02:01 #12027 [verbose] > │ v2 │
00:02:01 #12028 [verbose] > │ #endif │
00:02:01 #12029 [verbose] > │ #if FABLE_COMPILER_RUST && WASM │
00:02:01 #12030 [verbose] > │ let v3 : Async<unit> = null |> unbox<Async<unit>> │
00:02:01 #12031 [verbose] > │ v3 │
00:02:01 #12032 [verbose] > │ #endif │
00:02:01 #12033 [verbose] > │ #if FABLE_COMPILER_RUST && CONTRACT │
00:02:01 #12034 [verbose] > │ let v4 : Async<unit> = null |> unbox<Async<unit>> │
00:02:01 #12035 [verbose] > │ v4 │
00:02:01 #12036 [verbose] > │ #endif │
00:02:01 #12037 [verbose] > │ #if !FABLE_COMPILER && !FABLE_COMPILER_RUST && │
00:02:01 #12038 [verbose] > │ !FABLE_COMPILER_TYPESCRIPT && !WASM && !CONTRACT │
00:02:01 #12039 [verbose] > │ let v5 : Async<unit> option = None │
00:02:01 #12040 [verbose] > │ let mutable _v5 = v5 │
00:02:01 #12041 [verbose] > │ async { │
00:02:01 #12042 [verbose] > │ let v6 : System.IDisposable option = None │
00:02:01 #12043 [verbose] > │ let mutable _v6 = v6 │
00:02:01 #12044 [verbose] > │ #if FABLE_COMPILER_RUST && !WASM && !CONTRACT │
00:02:01 #12045 [verbose] > │ let v7 : System.IDisposable = null |> unbox<System.IDisposable> │
00:02:01 #12046 [verbose] > │ v7 │
00:02:01 #12047 [verbose] > │ #endif │
00:02:01 #12048 [verbose] > │ #if FABLE_COMPILER_RUST && WASM │
00:02:01 #12049 [verbose] > │ let v8 : System.IDisposable = null |> unbox<System.IDisposable> │
00:02:01 #12050 [verbose] > │ v8 │
00:02:01 #12051 [verbose] > │ #endif │
00:02:01 #12052 [verbose] > │ #if FABLE_COMPILER_RUST && CONTRACT │
00:02:01 #12053 [verbose] > │ let v9 : System.IDisposable = null |> unbox<System.IDisposable> │
00:02:01 #12054 [verbose] > │ v9 │
00:02:01 #12055 [verbose] > │ #endif │
00:02:01 #12056 [verbose] > │ #if !FABLE_COMPILER && !FABLE_COMPILER_RUST && │
00:02:01 #12057 [verbose] > │ !FABLE_COMPILER_TYPESCRIPT && !WASM && !CONTRACT │
00:02:01 #12058 [verbose] > │ let v10 : (unit -> unit) = closure0(v0) │
00:02:01 #12059 [verbose] > │ let v11 : System.IDisposable = { new System.IDisposable with member │
00:02:01 #12060 [verbose] > │ _.Dispose () = v10 () } │
00:02:01 #12061 [verbose] > │ v11 │
00:02:01 #12062 [verbose] > │ #endif │
00:02:01 #12063 [verbose] > │ #if FABLE_COMPILER_TYPESCRIPT │
00:02:01 #12064 [verbose] > │ let v12 : System.IDisposable = null |> unbox<System.IDisposable> │
00:02:01 #12065 [verbose] > │ v12 │
00:02:01 #12066 [verbose] > │ #endif │
00:02:01 #12067 [verbose] > │ #if FABLE_COMPILER_PYTHON || FABLE_COMPILER_PHP || FABLE_COMPILER_DART │
00:02:01 #12068 [verbose] > │ let v13 : System.IDisposable = Unchecked.defaultof<System.IDisposable> │
00:02:01 #12069 [verbose] > │ v13 │
00:02:01 #12070 [verbose] > │ #endif │
00:02:01 #12071 [verbose] > │ |> fun x -> _v6 <- Some x │
00:02:01 #12072 [verbose] > │ let v14 : System.IDisposable = _v6.Value │
00:02:01 #12073 [verbose] > │ return () │
00:02:01 #12074 [verbose] > │ } │
00:02:01 #12075 [verbose] > │ |> fun x -> _v5 <- Some x │
00:02:01 #12076 [verbose] > │ let v15 : Async<unit> = _v5 |> Option.get │
00:02:01 #12077 [verbose] > │ v15 │
00:02:01 #12078 [verbose] > │ #endif │
00:02:01 #12079 [verbose] > │ #if FABLE_COMPILER_TYPESCRIPT │
00:02:01 #12080 [verbose] > │ let v16 : Async<unit> = null |> unbox<Async<unit>> │
00:02:01 #12081 [verbose] > │ v16 │
00:02:01 #12082 [verbose] > │ #endif │
00:02:01 #12083 [verbose] > │ #if FABLE_COMPILER_PYTHON || FABLE_COMPILER_PHP || FABLE_COMPILER_DART │
00:02:01 #12084 [verbose] > │ let v17 : Async<unit> = Unchecked.defaultof<Async<unit>> │
00:02:01 #12085 [verbose] > │ v17 │
00:02:01 #12086 [verbose] > │ #endif │
00:02:01 #12087 [verbose] > │ |> fun x -> _v1 <- Some x │
00:02:01 #12088 [verbose] > │ let v18 : Async<unit> = _v1.Value │
00:02:01 #12089 [verbose] > │ let v19 : unit option = None │
00:02:01 #12090 [verbose] > │ let mutable _v19 = v19 │
00:02:01 #12091 [verbose] > │ #if FABLE_COMPILER_RUST && !WASM && !CONTRACT │
00:02:01 #12092 [verbose] > │ null |> unbox<unit> │
00:02:01 #12093 [verbose] > │ () │
00:02:01 #12094 [verbose] > │ #endif │
00:02:01 #12095 [verbose] > │ #if FABLE_COMPILER_RUST && WASM │
00:02:01 #12096 [verbose] > │ null |> unbox<unit> │
00:02:01 #12097 [verbose] > │ () │
00:02:01 #12098 [verbose] > │ #endif │
00:02:01 #12099 [verbose] > │ #if FABLE_COMPILER_RUST && CONTRACT │
00:02:01 #12100 [verbose] > │ null |> unbox<unit> │
00:02:01 #12101 [verbose] > │ () │
00:02:01 #12102 [verbose] > │ #endif │
00:02:01 #12103 [verbose] > │ #if !FABLE_COMPILER && !FABLE_COMPILER_RUST && │
00:02:01 #12104 [verbose] > │ !FABLE_COMPILER_TYPESCRIPT && !WASM && !CONTRACT │
00:02:01 #12105 [verbose] > │ let v20 : (Async<unit> -> unit) = Async.RunSynchronously │
00:02:01 #12106 [verbose] > │ v20 v18 │
00:02:01 #12107 [verbose] > │ () │
00:02:01 #12108 [verbose] > │ #endif │
00:02:01 #12109 [verbose] > │ #if FABLE_COMPILER_TYPESCRIPT │
00:02:01 #12110 [verbose] > │ null |> unbox<unit> │
00:02:01 #12111 [verbose] > │ () │
00:02:01 #12112 [verbose] > │ #endif │
00:02:01 #12113 [verbose] > │ #if FABLE_COMPILER_PYTHON || FABLE_COMPILER_PHP || FABLE_COMPILER_DART │
00:02:01 #12114 [verbose] > │ Unchecked.defaultof<unit> │
00:02:01 #12115 [verbose] > │ () │
00:02:01 #12116 [verbose] > │ #endif │
00:02:01 #12117 [verbose] > │ |> fun x -> _v19 <- Some x │
00:02:01 #12118 [verbose] > │ _v19.Value │
00:02:01 #12119 [verbose] > │ let v21 : int32 = v0.l0 │
00:02:01 #12120 [verbose] > │ let v22 : string = $"%A{v21}" │
00:02:01 #12121 [verbose] > │ System.Console.WriteLine v22 │
00:02:01 #12122 [verbose] > │ let v23 : bool = v21 = 0 │
00:02:01 #12123 [verbose] > │ let v25 : bool = │
00:02:01 #12124 [verbose] > │ if v23 then │
00:02:01 #12125 [verbose] > │ true │
00:02:01 #12126 [verbose] > │ else │
00:02:01 #12127 [verbose] > │ method1(v23) │
00:02:01 #12128 [verbose] > │ let v26 : string = $"__expect / actual: %A{v21} / expected: %A{0}" │
00:02:01 #12129 [verbose] > │ let v27 : bool = v25 = false │
00:02:01 #12130 [verbose] > │ if v27 then │
00:02:01 #12131 [verbose] > │ failwith<unit> v26 │
00:02:01 #12132 [verbose] > │ method0() │
00:02:01 #12133 [verbose] > │ │
00:02:01 #12134 [verbose] > │ 0 │
00:02:01 #12135 [verbose] > │ │
00:02:01 #12136 [verbose] > ╰──────────────────────────────────────────────────────────────────────────────╯
00:02:01 #12137 [verbose] >
00:02:01 #12138 [verbose] > ── markdown ────────────────────────────────────────────────────────────────────
00:02:01 #12139 [verbose] > ╭──────────────────────────────────────────────────────────────────────────────╮
00:02:01 #12140 [verbose] > │ ## return │
00:02:01 #12141 [verbose] > ╰──────────────────────────────────────────────────────────────────────────────╯
00:02:01 #12142 [verbose] >
00:02:01 #12143 [verbose] > ── spiral ──────────────────────────────────────────────────────────────────────
00:02:01 #12144 [verbose] > inl return forall t. (x : t) : () =
00:02:01 #12145 [verbose] > $'return !x '
00:02:01 #12146 [verbose] >
00:02:01 #12147 [verbose] > inl return' forall t. (x : t) : t =
00:02:01 #12148 [verbose] > $'return !x '
00:02:02 #12149 [verbose] > Building c:\home\git\polyglot\target\polyglot\spiral_eval\packages\fcfa4f6f04f4a071cde956bce31a8245cfc8ac3eb2c1cc0c48966de4ef2fe704\main.spi
00:02:02 #12150 [verbose] >
00:02:02 #12151 [verbose] > ╭─[ 227.89ms - stdout ]────────────────────────────────────────────────────────╮
00:02:02 #12152 [verbose] > │ () │
00:02:02 #12153 [verbose] > │ │
00:02:02 #12154 [verbose] > │ │
00:02:02 #12155 [verbose] > ╰──────────────────────────────────────────────────────────────────────────────╯
00:02:02 #12156 [verbose] >
00:02:02 #12157 [verbose] > ── markdown ────────────────────────────────────────────────────────────────────
00:02:02 #12158 [verbose] > ╭──────────────────────────────────────────────────────────────────────────────╮
00:02:02 #12159 [verbose] > │ ## sleep │
00:02:02 #12160 [verbose] > ╰──────────────────────────────────────────────────────────────────────────────╯
00:02:02 #12161 [verbose] >
00:02:02 #12162 [verbose] > ── spiral ──────────────────────────────────────────────────────────────────────
00:02:02 #12163 [verbose] > inl sleep (n : i32) : () =
00:02:02 #12164 [verbose] > run_target function
00:02:02 #12165 [verbose] > | Fsharp (Native) => fun () => $'System.Threading.Thread.Sleep' n
00:02:02 #12166 [verbose] > | _ => fun () => ()
00:02:02 #12167 [verbose] > Building c:\home\git\polyglot\target\polyglot\spiral_eval\packages\3a6bb89d6e39351e068c8ba5a3d9bd6f1c893ff4a7ce1d90bcea496004f21c68\main.spi
00:02:02 #12168 [verbose] >
00:02:02 #12169 [verbose] > ╭─[ 309.23ms - stdout ]────────────────────────────────────────────────────────╮
00:02:02 #12170 [verbose] > │ () │
00:02:02 #12171 [verbose] > │ │
00:02:02 #12172 [verbose] > │ │
00:02:02 #12173 [verbose] > ╰──────────────────────────────────────────────────────────────────────────────╯
00:02:02 #12174 [verbose] >
00:02:02 #12175 [verbose] > ── markdown ────────────────────────────────────────────────────────────────────
00:02:02 #12176 [verbose] > ╭──────────────────────────────────────────────────────────────────────────────╮
00:02:02 #12177 [verbose] > │ ## retry_fn │
00:02:02 #12178 [verbose] > ╰──────────────────────────────────────────────────────────────────────────────╯
00:02:02 #12179 [verbose] >
00:02:02 #12180 [verbose] > ── spiral ──────────────────────────────────────────────────────────────────────
00:02:02 #12181 [verbose] > inl retry_fn forall t. retries (fn : () -> t) : option t =
00:02:02 #12182 [verbose] > let rec loop retry =
00:02:02 #12183 [verbose] > try
00:02:02 #12184 [verbose] > fun () =>
00:02:02 #12185 [verbose] > if retry < retries
00:02:02 #12186 [verbose] > then fn () |> Some
00:02:02 #12187 [verbose] > else None
00:02:02 #12188 [verbose] > fun ex =>
00:02:02 #12189 [verbose] > inl get_locals () = $'$"retry: {!retry} / ex: {ex |>
00:02:02 #12190 [verbose] > SpiralSm.format_exception} / {!get_locals ()}"' : string
00:02:02 #12191 [verbose] > // trace Warning (fun () => "retry_fn") getLocals
00:02:02 #12192 [verbose] > sleep 1
00:02:02 #12193 [verbose] > None
00:02:02 #12194 [verbose] > |> function
00:02:02 #12195 [verbose] > | Some x => x
00:02:02 #12196 [verbose] > | None => loop (retry + 1)
00:02:02 #12197 [verbose] > loop 0
00:02:02 #12198 [verbose] > Building c:\home\git\polyglot\target\polyglot\spiral_eval\packages\93d3f20a915a7b55f2fd3cf1f548f421d4fe50262a77f236ac8794cc5a4efa61\main.spi
00:02:02 #12199 [verbose] >
00:02:02 #12200 [verbose] > ╭─[ 223.75ms - stdout ]────────────────────────────────────────────────────────╮
00:02:02 #12201 [verbose] > │ () │
00:02:02 #12202 [verbose] > │ │
00:02:02 #12203 [verbose] > │ │
00:02:02 #12204 [verbose] > ╰──────────────────────────────────────────────────────────────────────────────╯
00:02:02 #12205 [verbose] >
00:02:02 #12206 [verbose] > ── spiral ──────────────────────────────────────────────────────────────────────
00:02:02 #12207 [verbose] > // // test
00:02:02 #12208 [verbose] >
00:02:02 #12209 [verbose] > inl retry_fn_test = mut 0i32
00:02:02 #12210 [verbose] > fun () =>
00:02:02 #12211 [verbose] > retry_fn_test <- *retry_fn_test + 1
00:02:02 #12212 [verbose] > *retry_fn_test
00:02:02 #12213 [verbose] > |> retry_fn 3i32
00:02:02 #12214 [verbose] > |> _assert_eq (Some 1i32)
00:02:02 #12215 [verbose] > Building c:\home\git\polyglot\target\polyglot\spiral_eval\packages\c44378af6d0bc4a2a6f44e8850882e88097aef76ed4a5c1593be9b7f4ccbf1fd\main.spi
00:02:03 #12216 [verbose] >
00:02:03 #12217 [verbose] > ╭─[ 306.05ms - stdout ]────────────────────────────────────────────────────────╮
00:02:03 #12218 [verbose] > │ type Mut0 = {mutable l0 : int32} │
00:02:03 #12219 [verbose] > │ and [<Struct>] US0 = │
00:02:03 #12220 [verbose] > │ | US0_0 of f0_0 : int32 │
00:02:03 #12221 [verbose] > │ | US0_1 │
00:02:03 #12222 [verbose] > │ and [<Struct>] US1 = │
00:02:03 #12223 [verbose] > │ | US1_0 of f0_0 : US0 │
00:02:03 #12224 [verbose] > │ | US1_1 │
00:02:03 #12225 [verbose] > │ let rec closure0 (v0 : Mut0, v1 : int32) () : US0 = │
00:02:03 #12226 [verbose] > │ let v2 : bool = v1 < 3 │
00:02:03 #12227 [verbose] > │ if v2 then │
00:02:03 #12228 [verbose] > │ let v3 : int32 = v0.l0 │
00:02:03 #12229 [verbose] > │ let v4 : int32 = v3 + 1 │
00:02:03 #12230 [verbose] > │ v0.l0 <- v4 │
00:02:03 #12231 [verbose] > │ let v5 : int32 = v0.l0 │
00:02:03 #12232 [verbose] > │ US0_0(v5) │
00:02:03 #12233 [verbose] > │ else │
00:02:03 #12234 [verbose] > │ US0_1 │
00:02:03 #12235 [verbose] > │ and closure1 () (v0 : US0) : US1 = │
00:02:03 #12236 [verbose] > │ US1_0(v0) │
00:02:03 #12237 [verbose] > │ and closure2 (v0 : int32) (v1 : exn) : US1 = │
00:02:03 #12238 [verbose] > │ let v2 : unit option = None │
00:02:03 #12239 [verbose] > │ let mutable _v2 = v2 │
00:02:03 #12240 [verbose] > │ #if FABLE_COMPILER_RUST && !WASM && !CONTRACT │
00:02:03 #12241 [verbose] > │ () │
00:02:03 #12242 [verbose] > │ #endif │
00:02:03 #12243 [verbose] > │ #if FABLE_COMPILER_RUST && WASM │
00:02:03 #12244 [verbose] > │ () │
00:02:03 #12245 [verbose] > │ #endif │
00:02:03 #12246 [verbose] > │ #if FABLE_COMPILER_RUST && CONTRACT │
00:02:03 #12247 [verbose] > │ () │
00:02:03 #12248 [verbose] > │ #endif │
00:02:03 #12249 [verbose] > │ #if !FABLE_COMPILER && !FABLE_COMPILER_RUST && │
00:02:03 #12250 [verbose] > │ !FABLE_COMPILER_TYPESCRIPT && !WASM && !CONTRACT │
00:02:03 #12251 [verbose] > │ let v3 : (int32 -> unit) = System.Threading.Thread.Sleep │
00:02:03 #12252 [verbose] > │ v3 1 │
00:02:03 #12253 [verbose] > │ () │
00:02:03 #12254 [verbose] > │ #endif │
00:02:03 #12255 [verbose] > │ #if FABLE_COMPILER_TYPESCRIPT │
00:02:03 #12256 [verbose] > │ () │
00:02:03 #12257 [verbose] > │ #endif │
00:02:03 #12258 [verbose] > │ #if FABLE_COMPILER_PYTHON || FABLE_COMPILER_PHP || FABLE_COMPILER_DART │
00:02:03 #12259 [verbose] > │ Unchecked.defaultof<unit> │
00:02:03 #12260 [verbose] > │ () │
00:02:03 #12261 [verbose] > │ #endif │
00:02:03 #12262 [verbose] > │ |> fun x -> _v2 <- Some x │
00:02:03 #12263 [verbose] > │ _v2.Value │
00:02:03 #12264 [verbose] > │ US1_1 │
00:02:03 #12265 [verbose] > │ and method1 (v0 : Mut0, v1 : int32) : US0 = │
00:02:03 #12266 [verbose] > │ let v2 : (unit -> US0) = closure0(v0, v1) │
00:02:03 #12267 [verbose] > │ let v3 : (US0 -> US1) = closure1() │
00:02:03 #12268 [verbose] > │ let v4 : (exn -> US1) = closure2(v1) │
00:02:03 #12269 [verbose] > │ let v5 : US1 = try v2 () |> v3 with ex -> v4 ex │
00:02:03 #12270 [verbose] > │ match v5 with │
00:02:03 #12271 [verbose] > │ | US1_1 -> (* None *) │
00:02:03 #12272 [verbose] > │ let v7 : int32 = v1 + 1 │
00:02:03 #12273 [verbose] > │ method1(v0, v7) │
00:02:03 #12274 [verbose] > │ | US1_0(v6) -> (* Some *) │
00:02:03 #12275 [verbose] > │ v6 │
00:02:03 #12276 [verbose] > │ and method2 (v0 : bool) : bool = │
00:02:03 #12277 [verbose] > │ v0 │
00:02:03 #12278 [verbose] > │ and method0 () : unit = │
00:02:03 #12279 [verbose] > │ let v0 : Mut0 = {l0 = 0} : Mut0 │
00:02:03 #12280 [verbose] > │ let v1 : int32 = 0 │
00:02:03 #12281 [verbose] > │ let v2 : US0 = method1(v0, v1) │
00:02:03 #12282 [verbose] > │ let v3 : string = $"%A{v2}" │
00:02:03 #12283 [verbose] > │ System.Console.WriteLine v3 │
00:02:03 #12284 [verbose] > │ let v7 : bool = │
00:02:03 #12285 [verbose] > │ match v2 with │
00:02:03 #12286 [verbose] > │ | US0_0(v5) -> (* Some *) │
00:02:03 #12287 [verbose] > │ let v6 : bool = v5 = 1 │
00:02:03 #12288 [verbose] > │ v6 │
00:02:03 #12289 [verbose] > │ | _ -> │
00:02:03 #12290 [verbose] > │ false │
00:02:03 #12291 [verbose] > │ let v9 : bool = │
00:02:03 #12292 [verbose] > │ if v7 then │
00:02:03 #12293 [verbose] > │ true │
00:02:03 #12294 [verbose] > │ else │
00:02:03 #12295 [verbose] > │ method2(v7) │
00:02:03 #12296 [verbose] > │ let v10 : US0 = US0_0(1) │
00:02:03 #12297 [verbose] > │ let v11 : string = $"__expect / actual: %A{v2} / expected: %A{v10}" │
00:02:03 #12298 [verbose] > │ let v12 : bool = v9 = false │
00:02:03 #12299 [verbose] > │ if v12 then │
00:02:03 #12300 [verbose] > │ failwith<unit> v11 │
00:02:03 #12301 [verbose] > │ method0() │
00:02:03 #12302 [verbose] > │ │
00:02:03 #12303 [verbose] > │ US0_0 1 │
00:02:03 #12304 [verbose] > │ │
00:02:03 #12305 [verbose] > ╰──────────────────────────────────────────────────────────────────────────────╯
00:02:03 #12306 [verbose] >
00:02:03 #12307 [verbose] > ── spiral ──────────────────────────────────────────────────────────────────────
00:02:03 #12308 [verbose] > // // test
00:02:03 #12309 [verbose] >
00:02:03 #12310 [verbose] > inl retry_fn_test = mut 0i32
00:02:03 #12311 [verbose] > fun () =>
00:02:03 #12312 [verbose] > if *retry_fn_test >= 2
00:02:03 #12313 [verbose] > then *retry_fn_test
00:02:03 #12314 [verbose] > else
00:02:03 #12315 [verbose] > retry_fn_test <- *retry_fn_test + 1
00:02:03 #12316 [verbose] > failwith "test"
00:02:03 #12317 [verbose] > |> retry_fn 3i32
00:02:03 #12318 [verbose] > |> _assert_eq (Some 2i32)
00:02:03 #12319 [verbose] > Building c:\home\git\polyglot\target\polyglot\spiral_eval\packages\0d1aa9d55bda630ebf9e1053a3717853eded759247b5d02312dad1ff02a0c535\main.spi
00:02:03 #12320 [verbose] >
00:02:03 #12321 [verbose] > ╭─[ 303.51ms - stdout ]────────────────────────────────────────────────────────╮
00:02:03 #12322 [verbose] > │ type Mut0 = {mutable l0 : int32} │
00:02:03 #12323 [verbose] > │ and [<Struct>] US0 = │
00:02:03 #12324 [verbose] > │ | US0_0 of f0_0 : int32 │
00:02:03 #12325 [verbose] > │ | US0_1 │
00:02:03 #12326 [verbose] > │ and [<Struct>] US1 = │
00:02:03 #12327 [verbose] > │ | US1_0 of f0_0 : US0 │
00:02:03 #12328 [verbose] > │ | US1_1 │
00:02:03 #12329 [verbose] > │ let rec closure0 (v0 : Mut0, v1 : int32) () : US0 = │
00:02:03 #12330 [verbose] > │ let v2 : bool = v1 < 3 │
00:02:03 #12331 [verbose] > │ if v2 then │
00:02:03 #12332 [verbose] > │ let v3 : int32 = v0.l0 │
00:02:03 #12333 [verbose] > │ let v4 : bool = v3 >= 2 │
00:02:03 #12334 [verbose] > │ let v9 : int32 = │
00:02:03 #12335 [verbose] > │ if v4 then │
00:02:03 #12336 [verbose] > │ let v5 : int32 = v0.l0 │
00:02:03 #12337 [verbose] > │ v5 │
00:02:03 #12338 [verbose] > │ else │
00:02:03 #12339 [verbose] > │ let v6 : int32 = v0.l0 │
00:02:03 #12340 [verbose] > │ let v7 : int32 = v6 + 1 │
00:02:03 #12341 [verbose] > │ v0.l0 <- v7 │
00:02:03 #12342 [verbose] > │ failwith<int32> "test" │
00:02:03 #12343 [verbose] > │ US0_0(v9) │
00:02:03 #12344 [verbose] > │ else │
00:02:03 #12345 [verbose] > │ US0_1 │
00:02:03 #12346 [verbose] > │ and closure1 () (v0 : US0) : US1 = │
00:02:03 #12347 [verbose] > │ US1_0(v0) │
00:02:03 #12348 [verbose] > │ and closure2 (v0 : int32) (v1 : exn) : US1 = │
00:02:03 #12349 [verbose] > │ let v2 : unit option = None │
00:02:03 #12350 [verbose] > │ let mutable _v2 = v2 │
00:02:03 #12351 [verbose] > │ #if FABLE_COMPILER_RUST && !WASM && !CONTRACT │
00:02:03 #12352 [verbose] > │ () │
00:02:03 #12353 [verbose] > │ #endif │
00:02:03 #12354 [verbose] > │ #if FABLE_COMPILER_RUST && WASM │
00:02:03 #12355 [verbose] > │ () │
00:02:03 #12356 [verbose] > │ #endif │
00:02:03 #12357 [verbose] > │ #if FABLE_COMPILER_RUST && CONTRACT │
00:02:03 #12358 [verbose] > │ () │
00:02:03 #12359 [verbose] > │ #endif │
00:02:03 #12360 [verbose] > │ #if !FABLE_COMPILER && !FABLE_COMPILER_RUST && │
00:02:03 #12361 [verbose] > │ !FABLE_COMPILER_TYPESCRIPT && !WASM && !CONTRACT │
00:02:03 #12362 [verbose] > │ let v3 : (int32 -> unit) = System.Threading.Thread.Sleep │
00:02:03 #12363 [verbose] > │ v3 1 │
00:02:03 #12364 [verbose] > │ () │
00:02:03 #12365 [verbose] > │ #endif │
00:02:03 #12366 [verbose] > │ #if FABLE_COMPILER_TYPESCRIPT │
00:02:03 #12367 [verbose] > │ () │
00:02:03 #12368 [verbose] > │ #endif │
00:02:03 #12369 [verbose] > │ #if FABLE_COMPILER_PYTHON || FABLE_COMPILER_PHP || FABLE_COMPILER_DART │
00:02:03 #12370 [verbose] > │ Unchecked.defaultof<unit> │
00:02:03 #12371 [verbose] > │ () │
00:02:03 #12372 [verbose] > │ #endif │
00:02:03 #12373 [verbose] > │ |> fun x -> _v2 <- Some x │
00:02:03 #12374 [verbose] > │ _v2.Value │
00:02:03 #12375 [verbose] > │ US1_1 │
00:02:03 #12376 [verbose] > │ and method1 (v0 : Mut0, v1 : int32) : US0 = │
00:02:03 #12377 [verbose] > │ let v2 : (unit -> US0) = closure0(v0, v1) │
00:02:03 #12378 [verbose] > │ let v3 : (US0 -> US1) = closure1() │
00:02:03 #12379 [verbose] > │ let v4 : (exn -> US1) = closure2(v1) │
00:02:03 #12380 [verbose] > │ let v5 : US1 = try v2 () |> v3 with ex -> v4 ex │
00:02:03 #12381 [verbose] > │ match v5 with │
00:02:03 #12382 [verbose] > │ | US1_1 -> (* None *) │
00:02:03 #12383 [verbose] > │ let v7 : int32 = v1 + 1 │
00:02:03 #12384 [verbose] > │ method1(v0, v7) │
00:02:03 #12385 [verbose] > │ | US1_0(v6) -> (* Some *) │
00:02:03 #12386 [verbose] > │ v6 │
00:02:03 #12387 [verbose] > │ and method2 (v0 : bool) : bool = │
00:02:03 #12388 [verbose] > │ v0 │
00:02:03 #12389 [verbose] > │ and method0 () : unit = │
00:02:03 #12390 [verbose] > │ let v0 : Mut0 = {l0 = 0} : Mut0 │
00:02:03 #12391 [verbose] > │ let v1 : int32 = 0 │
00:02:03 #12392 [verbose] > │ let v2 : US0 = method1(v0, v1) │
00:02:03 #12393 [verbose] > │ let v3 : string = $"%A{v2}" │
00:02:03 #12394 [verbose] > │ System.Console.WriteLine v3 │
00:02:03 #12395 [verbose] > │ let v7 : bool = │
00:02:03 #12396 [verbose] > │ match v2 with │
00:02:03 #12397 [verbose] > │ | US0_0(v5) -> (* Some *) │
00:02:03 #12398 [verbose] > │ let v6 : bool = v5 = 2 │
00:02:03 #12399 [verbose] > │ v6 │
00:02:03 #12400 [verbose] > │ | _ -> │
00:02:03 #12401 [verbose] > │ false │
00:02:03 #12402 [verbose] > │ let v9 : bool = │
00:02:03 #12403 [verbose] > │ if v7 then │
00:02:03 #12404 [verbose] > │ true │
00:02:03 #12405 [verbose] > │ else │
00:02:03 #12406 [verbose] > │ method2(v7) │
00:02:03 #12407 [verbose] > │ let v10 : US0 = US0_0(2) │
00:02:03 #12408 [verbose] > │ let v11 : string = $"__expect / actual: %A{v2} / expected: %A{v10}" │
00:02:03 #12409 [verbose] > │ let v12 : bool = v9 = false │
00:02:03 #12410 [verbose] > │ if v12 then │
00:02:03 #12411 [verbose] > │ failwith<unit> v11 │
00:02:03 #12412 [verbose] > │ method0() │
00:02:03 #12413 [verbose] > │ │
00:02:03 #12414 [verbose] > │ US0_0 2 │
00:02:03 #12415 [verbose] > │ │
00:02:03 #12416 [verbose] > ╰──────────────────────────────────────────────────────────────────────────────╯
00:02:03 #12417 [verbose] >
00:02:03 #12418 [verbose] > ── markdown ────────────────────────────────────────────────────────────────────
00:02:03 #12419 [verbose] > ╭──────────────────────────────────────────────────────────────────────────────╮
00:02:03 #12420 [verbose] > │ ## main │
00:02:03 #12421 [verbose] > ╰──────────────────────────────────────────────────────────────────────────────╯
00:02:03 #12422 [verbose] >
00:02:03 #12423 [verbose] > ── spiral ──────────────────────────────────────────────────────────────────────
00:02:03 #12424 [verbose] > inl main () =
00:02:03 #12425 [verbose] > inl new_disposable x : _ () = new_disposable x
00:02:03 #12426 [verbose] > $"let new_disposable x = !new_disposable x" : ()
00:02:03 #12427 [verbose] >
00:02:03 #12428 [verbose] > inl retry_fn (r : i32) (x : () -> _) : optionm'.option' () = retry_fn r x |>
00:02:03 #12429 [verbose] > optionm'.box
00:02:03 #12430 [verbose] > $"let retry_fn x = !retry_fn x" : ()
00:02:03 #12431 [verbose] > Building c:\home\git\polyglot\target\polyglot\spiral_eval\packages\d1e65cc00a11c095deff8a2932a3b2579e38ff2ae74d34ef762eafbe0b653d69\main.spi
00:02:03 #12432 [verbose] >
00:02:03 #12433 [verbose] > ╭─[ 286.82ms - stdout ]────────────────────────────────────────────────────────╮
00:02:03 #12434 [verbose] > │ type [<Struct>] US0 = │
00:02:03 #12435 [verbose] > │ | US0_0 │
00:02:03 #12436 [verbose] > │ | US0_1 │
00:02:03 #12437 [verbose] > │ and [<Struct>] US1 = │
00:02:03 #12438 [verbose] > │ | US1_0 of f0_0 : US0 │
00:02:03 #12439 [verbose] > │ | US1_1 │
00:02:03 #12440 [verbose] > │ let rec closure0 () (v0 : (unit -> unit)) : System.IDisposable = │
00:02:03 #12441 [verbose] > │ let v1 : System.IDisposable option = None │
00:02:03 #12442 [verbose] > │ let mutable _v1 = v1 │
00:02:03 #12443 [verbose] > │ #if FABLE_COMPILER_RUST && !WASM && !CONTRACT │
00:02:03 #12444 [verbose] > │ let v2 : System.IDisposable = null |> unbox<System.IDisposable> │
00:02:03 #12445 [verbose] > │ v2 │
00:02:03 #12446 [verbose] > │ #endif │
00:02:03 #12447 [verbose] > │ #if FABLE_COMPILER_RUST && WASM │
00:02:03 #12448 [verbose] > │ let v3 : System.IDisposable = null |> unbox<System.IDisposable> │
00:02:03 #12449 [verbose] > │ v3 │
00:02:03 #12450 [verbose] > │ #endif │
00:02:03 #12451 [verbose] > │ #if FABLE_COMPILER_RUST && CONTRACT │
00:02:03 #12452 [verbose] > │ let v4 : System.IDisposable = null |> unbox<System.IDisposable> │
00:02:03 #12453 [verbose] > │ v4 │
00:02:03 #12454 [verbose] > │ #endif │
00:02:03 #12455 [verbose] > │ #if !FABLE_COMPILER && !FABLE_COMPILER_RUST && │
00:02:03 #12456 [verbose] > │ !FABLE_COMPILER_TYPESCRIPT && !WASM && !CONTRACT │
00:02:03 #12457 [verbose] > │ let v5 : System.IDisposable = { new System.IDisposable with member │
00:02:03 #12458 [verbose] > │ _.Dispose () = v0 () } │
00:02:03 #12459 [verbose] > │ v5 │
00:02:03 #12460 [verbose] > │ #endif │
00:02:03 #12461 [verbose] > │ #if FABLE_COMPILER_TYPESCRIPT │
00:02:03 #12462 [verbose] > │ let v6 : System.IDisposable = null |> unbox<System.IDisposable> │
00:02:03 #12463 [verbose] > │ v6 │
00:02:03 #12464 [verbose] > │ #endif │
00:02:03 #12465 [verbose] > │ #if FABLE_COMPILER_PYTHON || FABLE_COMPILER_PHP || FABLE_COMPILER_DART │
00:02:03 #12466 [verbose] > │ let v7 : System.IDisposable = Unchecked.defaultof<System.IDisposable> │
00:02:03 #12467 [verbose] > │ v7 │
00:02:03 #12468 [verbose] > │ #endif │
00:02:03 #12469 [verbose] > │ |> fun x -> _v1 <- Some x │
00:02:03 #12470 [verbose] > │ let v8 : System.IDisposable = _v1.Value │
00:02:03 #12471 [verbose] > │ v8 │
00:02:03 #12472 [verbose] > │ and closure3 (v0 : int32, v1 : (unit -> unit), v2 : int32) () : US0 = │
00:02:03 #12473 [verbose] > │ let v3 : bool = v2 < v0 │
00:02:03 #12474 [verbose] > │ if v3 then │
00:02:03 #12475 [verbose] > │ v1 () │
00:02:03 #12476 [verbose] > │ US0_0 │
00:02:03 #12477 [verbose] > │ else │
00:02:03 #12478 [verbose] > │ US0_1 │
00:02:03 #12479 [verbose] > │ and closure4 () (v0 : US0) : US1 = │
00:02:03 #12480 [verbose] > │ US1_0(v0) │
00:02:03 #12481 [verbose] > │ and closure5 (v0 : int32) (v1 : exn) : US1 = │
00:02:03 #12482 [verbose] > │ let v2 : unit option = None │
00:02:03 #12483 [verbose] > │ let mutable _v2 = v2 │
00:02:03 #12484 [verbose] > │ #if FABLE_COMPILER_RUST && !WASM && !CONTRACT │
00:02:03 #12485 [verbose] > │ () │
00:02:03 #12486 [verbose] > │ #endif │
00:02:03 #12487 [verbose] > │ #if FABLE_COMPILER_RUST && WASM │
00:02:03 #12488 [verbose] > │ () │
00:02:03 #12489 [verbose] > │ #endif │
00:02:03 #12490 [verbose] > │ #if FABLE_COMPILER_RUST && CONTRACT │
00:02:03 #12491 [verbose] > │ () │
00:02:03 #12492 [verbose] > │ #endif │
00:02:03 #12493 [verbose] > │ #if !FABLE_COMPILER && !FABLE_COMPILER_RUST && │
00:02:03 #12494 [verbose] > │ !FABLE_COMPILER_TYPESCRIPT && !WASM && !CONTRACT │
00:02:03 #12495 [verbose] > │ let v3 : (int32 -> unit) = System.Threading.Thread.Sleep │
00:02:03 #12496 [verbose] > │ v3 1 │
00:02:03 #12497 [verbose] > │ () │
00:02:03 #12498 [verbose] > │ #endif │
00:02:03 #12499 [verbose] > │ #if FABLE_COMPILER_TYPESCRIPT │
00:02:03 #12500 [verbose] > │ () │
00:02:03 #12501 [verbose] > │ #endif │
00:02:03 #12502 [verbose] > │ #if FABLE_COMPILER_PYTHON || FABLE_COMPILER_PHP || FABLE_COMPILER_DART │
00:02:03 #12503 [verbose] > │ Unchecked.defaultof<unit> │
00:02:03 #12504 [verbose] > │ () │
00:02:03 #12505 [verbose] > │ #endif │
00:02:03 #12506 [verbose] > │ |> fun x -> _v2 <- Some x │
00:02:03 #12507 [verbose] > │ _v2.Value │
00:02:03 #12508 [verbose] > │ US1_1 │
00:02:03 #12509 [verbose] > │ and method0 (v0 : int32, v1 : (unit -> unit), v2 : int32) : US0 = │
00:02:03 #12510 [verbose] > │ let v3 : (unit -> US0) = closure3(v0, v1, v2) │
00:02:03 #12511 [verbose] > │ let v4 : (US0 -> US1) = closure4() │
00:02:03 #12512 [verbose] > │ let v5 : (exn -> US1) = closure5(v2) │
00:02:03 #12513 [verbose] > │ let v6 : US1 = try v3 () |> v4 with ex -> v5 ex │
00:02:03 #12514 [verbose] > │ match v6 with │
00:02:03 #12515 [verbose] > │ | US1_1 -> (* None *) │
00:02:03 #12516 [verbose] > │ let v8 : int32 = v2 + 1 │
00:02:03 #12517 [verbose] > │ method0(v0, v1, v8) │
00:02:03 #12518 [verbose] > │ | US1_0(v7) -> (* Some *) │
00:02:03 #12519 [verbose] > │ v7 │
00:02:03 #12520 [verbose] > │ and closure2 (v0 : int32) (v1 : (unit -> unit)) : unit option = │
00:02:03 #12521 [verbose] > │ let v2 : int32 = 0 │
00:02:03 #12522 [verbose] > │ let v3 : US0 = method0(v0, v1, v2) │
00:02:03 #12523 [verbose] > │ match v3 with │
00:02:03 #12524 [verbose] > │ | US0_1 -> (* None *) │
00:02:03 #12525 [verbose] > │ let v5 : unit option = None │
00:02:03 #12526 [verbose] > │ v5 │
00:02:03 #12527 [verbose] > │ | US0_0 -> (* Some *) │
00:02:03 #12528 [verbose] > │ let v4 : unit option = Some () │
00:02:03 #12529 [verbose] > │ v4 │
00:02:03 #12530 [verbose] > │ and closure1 () (v0 : int32) : ((unit -> unit) -> unit option) = │
00:02:03 #12531 [verbose] > │ closure2(v0) │
00:02:03 #12532 [verbose] > │ let v0 : ((unit -> unit) -> System.IDisposable) = closure0() │
00:02:03 #12533 [verbose] > │ let new_disposable x = v0 x │
00:02:03 #12534 [verbose] > │ let v1 : (int32 -> ((unit -> unit) -> unit option)) = closure1() │
00:02:03 #12535 [verbose] > │ let retry_fn x = v1 x │
00:02:03 #12536 [verbose] > │ () │
00:02:03 #12537 [verbose] > │ │
00:02:03 #12538 [verbose] > │ │
00:02:03 #12539 [verbose] > ╰──────────────────────────────────────────────────────────────────────────────╯
00:02:05 #12540 [verbose] > [NbConvertApp] Converting notebook common.dib.ipynb to html
00:02:05 #12541 [verbose] > C:\Users\i574n\scoop\apps\python\current\Lib\site-packages\nbformat\__init__.py:93: MissingIDFieldWarning: Code cell is missing an id field, this will become a hard error in future nbformat versions. You may want to use `normalize()` on your notebooks before validations (available since nbformat 5.1.4). Previous versions of nbformat are fixing this issue transparently, and will stop doing so in the future.
00:02:05 #12542 [verbose] > validate(nb)
00:02:06 #12543 [verbose] > C:\Users\i574n\scoop\apps\python\current\Lib\site-packages\nbconvert\filters\highlight.py:71: UserWarning: IPython3 lexer unavailable, falling back on Python 3
00:02:06 #12544 [verbose] > return _pygments_highlight(
00:02:06 #12545 [verbose] > [NbConvertApp] Writing 396051 bytes to common.dib.html
00:02:07 #12546 [debug] execute_with_options_async / exit_code: 0 / output.Length: 129765
00:02:07 #12 [debug] main / executeCommand / exitCode: 0
00:02:07 #12547 [debug] execute_with_options_async / options: struct (Some System.Threading.CancellationToken,
"pwsh -c "../../scripts/invoke-dib.ps1 console.dib -Retries 3"", None,
None, None)
00:02:09 #12548 [verbose] >
00:02:09 #12549 [verbose] > ── markdown ────────────────────────────────────────────────────────────────────
00:02:09 #12550 [verbose] > ╭──────────────────────────────────────────────────────────────────────────────╮
00:02:09 #12551 [verbose] > │ # console │
00:02:09 #12552 [verbose] > ╰──────────────────────────────────────────────────────────────────────────────╯
00:02:09 #12553 [verbose] >
00:02:09 #12554 [verbose] > ── spiral ──────────────────────────────────────────────────────────────────────
00:02:09 #12555 [verbose] > // // test
00:02:09 #12556 [verbose] >
00:02:09 #12557 [verbose] > open testing
00:02:12 #12558 [verbose] > Building c:\home\git\polyglot\target\polyglot\spiral_eval\packages\8837341da068f4ef4271045b3ef1c89d209237bf74b4f11596b6ee2d484becb0\main.spi
00:02:12 #12559 [verbose] >
00:02:13 #12560 [verbose] > ╭─[ 3.43s - stdout ]───────────────────────────────────────────────────────────╮
00:02:13 #12561 [verbose] > │ () │
00:02:13 #12562 [verbose] > │ │
00:02:13 #12563 [verbose] > │ │
00:02:13 #12564 [verbose] > ╰──────────────────────────────────────────────────────────────────────────────╯
00:02:13 #12565 [verbose] >
00:02:13 #12566 [verbose] > ── markdown ────────────────────────────────────────────────────────────────────
00:02:13 #12567 [verbose] > ╭──────────────────────────────────────────────────────────────────────────────╮
00:02:13 #12568 [verbose] > │ ## write_line │
00:02:13 #12569 [verbose] > ╰──────────────────────────────────────────────────────────────────────────────╯
00:02:13 #12570 [verbose] >
00:02:13 #12571 [verbose] > ── spiral ──────────────────────────────────────────────────────────────────────
00:02:13 #12572 [verbose] > inl write_line obj : () =
00:02:13 #12573 [verbose] > $"System.Console.WriteLine !obj"
00:02:13 #12574 [verbose] > Building c:\home\git\polyglot\target\polyglot\spiral_eval\packages\8734924cc556d38ddd4fe9d78b6dfed880f3092692ae54965b235b33bbc96230\main.spi
00:02:13 #12575 [verbose] >
00:02:13 #12576 [verbose] > ╭─[ 289.97ms - stdout ]────────────────────────────────────────────────────────╮
00:02:13 #12577 [verbose] > │ () │
00:02:13 #12578 [verbose] > │ │
00:02:13 #12579 [verbose] > │ │
00:02:13 #12580 [verbose] > ╰──────────────────────────────────────────────────────────────────────────────╯
00:02:13 #12581 [verbose] >
00:02:13 #12582 [verbose] > ── spiral ──────────────────────────────────────────────────────────────────────
00:02:13 #12583 [verbose] > inl write_line_ ~obj : () =
00:02:13 #12584 [verbose] > $"System.Console.WriteLine !obj"
00:02:13 #12585 [verbose] > Building c:\home\git\polyglot\target\polyglot\spiral_eval\packages\ffaaa2487bdb8cfacc66c52e1a4dcc7ef33c94cbbd6668b8d01a1910eaf1fc2a\main.spi
00:02:13 #12586 [verbose] >
00:02:13 #12587 [verbose] > ╭─[ 616.22ms - stdout ]────────────────────────────────────────────────────────╮
00:02:13 #12588 [verbose] > │ () │
00:02:13 #12589 [verbose] > │ │
00:02:13 #12590 [verbose] > │ │
00:02:13 #12591 [verbose] > ╰──────────────────────────────────────────────────────────────────────────────╯
00:02:13 #12592 [verbose] >
00:02:13 #12593 [verbose] > ── spiral ──────────────────────────────────────────────────────────────────────
00:02:13 #12594 [verbose] > nominal console_color = $"System.ConsoleColor"
00:02:13 #12595 [verbose] >
00:02:13 #12596 [verbose] > inl reset_color () : () =
00:02:13 #12597 [verbose] > run_target function
00:02:13 #12598 [verbose] > | Fsharp => fun () => $"System.Console.ResetColor ()"
00:02:13 #12599 [verbose] > | _ => fun () => ()
00:02:13 #12600 [verbose] >
00:02:13 #12601 [verbose] > inl set_foreground_color (color : console_color) : () =
00:02:13 #12602 [verbose] > run_target function
00:02:13 #12603 [verbose] > | Fsharp => fun () => $"System.Console.ForegroundColor <- !color"
00:02:13 #12604 [verbose] > | _ => fun () => ()
00:02:14 #12605 [verbose] > Building c:\home\git\polyglot\target\polyglot\spiral_eval\packages\e5b6fb32e8bdd3db4dce6c028f792dc4c7b1febe5ab70e4c0ab6cf1a7a579ffe\main.spi
00:02:14 #12606 [verbose] >
00:02:14 #12607 [verbose] > ╭─[ 249.42ms - stdout ]────────────────────────────────────────────────────────╮
00:02:14 #12608 [verbose] > │ () │
00:02:14 #12609 [verbose] > │ │
00:02:14 #12610 [verbose] > │ │
00:02:14 #12611 [verbose] > ╰──────────────────────────────────────────────────────────────────────────────╯
00:02:15 #12612 [verbose] > [NbConvertApp] Converting notebook console.dib.ipynb to html
00:02:15 #12613 [verbose] > C:\Users\i574n\scoop\apps\python\current\Lib\site-packages\nbformat\__init__.py:93: MissingIDFieldWarning: Code cell is missing an id field, this will become a hard error in future nbformat versions. You may want to use `normalize()` on your notebooks before validations (available since nbformat 5.1.4). Previous versions of nbformat are fixing this issue transparently, and will stop doing so in the future.
00:02:15 #12614 [verbose] > validate(nb)
00:02:16 #12615 [verbose] > C:\Users\i574n\scoop\apps\python\current\Lib\site-packages\nbconvert\filters\highlight.py:71: UserWarning: IPython3 lexer unavailable, falling back on Python 3
00:02:16 #12616 [verbose] > return _pygments_highlight(
00:02:16 #12617 [verbose] > [NbConvertApp] Writing 276933 bytes to console.dib.html
00:02:17 #12618 [debug] execute_with_options_async / exit_code: 0 / output.Length: 3869
00:02:17 #13 [debug] main / executeCommand / exitCode: 0
00:02:17 #12619 [debug] execute_with_options_async / options: struct (Some System.Threading.CancellationToken,
"pwsh -c "../../scripts/invoke-dib.ps1 date_time.dib -Retries 3"", None,
None, None)
00:02:19 #12620 [verbose] >
00:02:19 #12621 [verbose] > ── markdown ────────────────────────────────────────────────────────────────────
00:02:19 #12622 [verbose] > ╭──────────────────────────────────────────────────────────────────────────────╮
00:02:19 #12623 [verbose] > │ # date_time │
00:02:19 #12624 [verbose] > ╰──────────────────────────────────────────────────────────────────────────────╯
00:02:19 #12625 [verbose] >
00:02:19 #12626 [verbose] > ── spiral ──────────────────────────────────────────────────────────────────────
00:02:19 #12627 [verbose] > open rust_operators
00:02:19 #12628 [verbose] > open sm'_operators
00:02:22 #12629 [verbose] > Building c:\home\git\polyglot\target\polyglot\spiral_eval\packages\032c8b088372ab832664d98a64dd782e20000598cb6f954fca120c7fcc91e0cc\main.spi
00:02:23 #12630 [verbose] >
00:02:23 #12631 [verbose] > ╭─[ 3.78s - stdout ]───────────────────────────────────────────────────────────╮
00:02:23 #12632 [verbose] > │ () │
00:02:23 #12633 [verbose] > │ │
00:02:23 #12634 [verbose] > │ │
00:02:23 #12635 [verbose] > ╰──────────────────────────────────────────────────────────────────────────────╯
00:02:23 #12636 [verbose] >
00:02:23 #12637 [verbose] > ── spiral ──────────────────────────────────────────────────────────────────────
00:02:23 #12638 [verbose] > // // test
00:02:23 #12639 [verbose] >
00:02:23 #12640 [verbose] > open testing
00:02:23 #12641 [verbose] > Building c:\home\git\polyglot\target\polyglot\spiral_eval\packages\7d7acecd62a06a4005bd00e248722e32f4574e14d082c2ccfef1dbc96319cca4\main.spi
00:02:23 #12642 [verbose] >
00:02:23 #12643 [verbose] > ╭─[ 256.96ms - stdout ]────────────────────────────────────────────────────────╮
00:02:23 #12644 [verbose] > │ () │
00:02:23 #12645 [verbose] > │ │
00:02:23 #12646 [verbose] > │ │
00:02:23 #12647 [verbose] > ╰──────────────────────────────────────────────────────────────────────────────╯
00:02:23 #12648 [verbose] >
00:02:23 #12649 [verbose] > ── markdown ────────────────────────────────────────────────────────────────────
00:02:23 #12650 [verbose] > ╭──────────────────────────────────────────────────────────────────────────────╮
00:02:23 #12651 [verbose] > │ ## types │
00:02:23 #12652 [verbose] > ╰──────────────────────────────────────────────────────────────────────────────╯
00:02:23 #12653 [verbose] >
00:02:23 #12654 [verbose] > ── spiral ──────────────────────────────────────────────────────────────────────
00:02:23 #12655 [verbose] > inl types () =
00:02:23 #12656 [verbose] > global "[[<Fable.Core.Erase; Fable.Core.Emit(\"chrono::DateTime<$0>\")>]]
00:02:23 #12657 [verbose] > type chrono_DateTime<'T> = class end"
00:02:23 #12658 [verbose] > global "[[<Fable.Core.Erase; Fable.Core.Emit(\"chrono::Local\")>]] type
00:02:23 #12659 [verbose] > chrono_Local = class end"
00:02:23 #12660 [verbose] > global "[[<Fable.Core.Erase; Fable.Core.Emit(\"chrono::NaiveDateTime\")>]]
00:02:23 #12661 [verbose] > type chrono_NaiveDateTime = class end"
00:02:23 #12662 [verbose] > global "[[<Fable.Core.Erase; Fable.Core.Emit(\"chrono::Utc\")>]] type
00:02:23 #12663 [verbose] > chrono_Utc = class end"
00:02:23 #12664 [verbose] > global "[[<Fable.Core.Erase; Fable.Core.Emit(\"std::time::Duration\")>]]
00:02:23 #12665 [verbose] > type std_time_Duration = class end"
00:02:24 #12666 [verbose] > Building c:\home\git\polyglot\target\polyglot\spiral_eval\packages\2953bf1a005214994e27ad55daafee82b9bf77a24b4393dfffbdabcfb93b8c88\main.spi
00:02:24 #12667 [verbose] >
00:02:24 #12668 [verbose] > ╭─[ 257.28ms - stdout ]────────────────────────────────────────────────────────╮
00:02:24 #12669 [verbose] > │ () │
00:02:24 #12670 [verbose] > │ │
00:02:24 #12671 [verbose] > │ │
00:02:24 #12672 [verbose] > ╰──────────────────────────────────────────────────────────────────────────────╯
00:02:24 #12673 [verbose] >
00:02:24 #12674 [verbose] > ── spiral ──────────────────────────────────────────────────────────────────────
00:02:24 #12675 [verbose] > nominal timestamp = i64
00:02:24 #12676 [verbose] > nominal duration = $"std_time_Duration"
00:02:24 #12677 [verbose] > nominal date_time = $"System.DateTime"
00:02:24 #12678 [verbose] > nominal date_time' t = $"chrono_DateTime<`t>"
00:02:24 #12679 [verbose] > nominal local = $"chrono_Local"
00:02:24 #12680 [verbose] > nominal naive_date_time = $"chrono_NaiveDateTime"
00:02:24 #12681 [verbose] > nominal utc = $"chrono_Utc"
00:02:24 #12682 [verbose] > Building c:\home\git\polyglot\target\polyglot\spiral_eval\packages\6c0b3e9ca3c9907dd971325e2bd5b81c8762e32927fe516cb10ed1c7b55c1026\main.spi
00:02:24 #12683 [verbose] >
00:02:24 #12684 [verbose] > ╭─[ 244.41ms - stdout ]────────────────────────────────────────────────────────╮
00:02:24 #12685 [verbose] > │ () │
00:02:24 #12686 [verbose] > │ │
00:02:24 #12687 [verbose] > │ │
00:02:24 #12688 [verbose] > ╰──────────────────────────────────────────────────────────────────────────────╯
00:02:24 #12689 [verbose] >
00:02:24 #12690 [verbose] > ── markdown ────────────────────────────────────────────────────────────────────
00:02:24 #12691 [verbose] > ╭──────────────────────────────────────────────────────────────────────────────╮
00:02:24 #12692 [verbose] > │ ## date_time_milliseconds │
00:02:24 #12693 [verbose] > ╰──────────────────────────────────────────────────────────────────────────────╯
00:02:24 #12694 [verbose] >
00:02:24 #12695 [verbose] > ── spiral ──────────────────────────────────────────────────────────────────────
00:02:24 #12696 [verbose] > inl date_time_milliseconds
00:02:24 #12697 [verbose] > (year : int) (month : int) (day : int) (hour : int) (minute : int) (second :
00:02:24 #12698 [verbose] > int) (millisecond : int)
00:02:24 #12699 [verbose] > : date_time
00:02:24 #12700 [verbose] > =
00:02:24 #12701 [verbose] > $'System.DateTime (!year, !month, !day, !hour, !minute, !second,
00:02:24 #12702 [verbose] > !millisecond)'
00:02:24 #12703 [verbose] > Building c:\home\git\polyglot\target\polyglot\spiral_eval\packages\0271928b63f588de19cca51efb9201b132137fa01b1be39316ed7b0961e2b9bd\main.spi
00:02:24 #12704 [verbose] >
00:02:24 #12705 [verbose] > ╭─[ 234.79ms - stdout ]────────────────────────────────────────────────────────╮
00:02:24 #12706 [verbose] > │ () │
00:02:24 #12707 [verbose] > │ │
00:02:24 #12708 [verbose] > │ │
00:02:24 #12709 [verbose] > ╰──────────────────────────────────────────────────────────────────────────────╯
00:02:24 #12710 [verbose] >
00:02:24 #12711 [verbose] > ── markdown ────────────────────────────────────────────────────────────────────
00:02:24 #12712 [verbose] > ╭──────────────────────────────────────────────────────────────────────────────╮
00:02:24 #12713 [verbose] > │ ## naive_utc │
00:02:24 #12714 [verbose] > ╰──────────────────────────────────────────────────────────────────────────────╯
00:02:24 #12715 [verbose] >
00:02:24 #12716 [verbose] > ── spiral ──────────────────────────────────────────────────────────────────────
00:02:24 #12717 [verbose] > inl naive_utc (date_time : date_time' utc) : naive_date_time =
00:02:24 #12718 [verbose] > inl date_time = join date_time
00:02:24 #12719 [verbose] > !\($'"!date_time.naive_utc()"')
00:02:24 #12720 [verbose] > Building c:\home\git\polyglot\target\polyglot\spiral_eval\packages\f136473bb2a4a3e1002489893b76030aa31c96f68964997f6f4d7b246f3a412f\main.spi
00:02:24 #12721 [verbose] >
00:02:24 #12722 [verbose] > ╭─[ 205.43ms - stdout ]────────────────────────────────────────────────────────╮
00:02:24 #12723 [verbose] > │ () │
00:02:24 #12724 [verbose] > │ │
00:02:24 #12725 [verbose] > │ │
00:02:24 #12726 [verbose] > ╰──────────────────────────────────────────────────────────────────────────────╯
00:02:24 #12727 [verbose] >
00:02:24 #12728 [verbose] > ── markdown ────────────────────────────────────────────────────────────────────
00:02:24 #12729 [verbose] > ╭──────────────────────────────────────────────────────────────────────────────╮
00:02:24 #12730 [verbose] > │ ## to_local │
00:02:24 #12731 [verbose] > ╰──────────────────────────────────────────────────────────────────────────────╯
00:02:24 #12732 [verbose] >
00:02:24 #12733 [verbose] > ── spiral ──────────────────────────────────────────────────────────────────────
00:02:24 #12734 [verbose] > inl to_local (date_time : date_time' utc) : date_time' local =
00:02:24 #12735 [verbose] > inl naive_date_time = date_time |> naive_utc
00:02:24 #12736 [verbose] > !\($'"chrono::offset::TimeZone::from_utc_datetime(&chrono::Local,
00:02:24 #12737 [verbose] > &!naive_date_time)"')
00:02:25 #12738 [verbose] > Building c:\home\git\polyglot\target\polyglot\spiral_eval\packages\0897c4a048fe611e4d311e87bf5cafaf43cd196958e8cbcf0b04408e4ee841c7\main.spi
00:02:25 #12739 [verbose] >
00:02:25 #12740 [verbose] > ╭─[ 251.25ms - stdout ]────────────────────────────────────────────────────────╮
00:02:25 #12741 [verbose] > │ () │
00:02:25 #12742 [verbose] > │ │
00:02:25 #12743 [verbose] > │ │
00:02:25 #12744 [verbose] > ╰──────────────────────────────────────────────────────────────────────────────╯
00:02:25 #12745 [verbose] >
00:02:25 #12746 [verbose] > ── markdown ────────────────────────────────────────────────────────────────────
00:02:25 #12747 [verbose] > ╭──────────────────────────────────────────────────────────────────────────────╮
00:02:25 #12748 [verbose] > │ ## from_timestamp' │
00:02:25 #12749 [verbose] > ╰──────────────────────────────────────────────────────────────────────────────╯
00:02:25 #12750 [verbose] >
00:02:25 #12751 [verbose] > ── spiral ──────────────────────────────────────────────────────────────────────
00:02:25 #12752 [verbose] > inl from_timestamp' forall t {number; int}. (timestamp : t) : option (date_time'
00:02:25 #12753 [verbose] > utc) =
00:02:25 #12754 [verbose] > inl timestamp = join timestamp
00:02:25 #12755 [verbose] > inl result : optionm'.option' (date_time' utc) =
00:02:25 #12756 [verbose] > !\($'"chrono::DateTime::from_timestamp_micros(!timestamp / 1000i64)"')
00:02:25 #12757 [verbose] > result |> optionm'.unbox
00:02:25 #12758 [verbose] > Building c:\home\git\polyglot\target\polyglot\spiral_eval\packages\dcb1b12acef991d762d9849665274969876964ba4adeba360022a8c7b6383e75\main.spi
00:02:25 #12759 [verbose] >
00:02:25 #12760 [verbose] > ╭─[ 219.00ms - stdout ]────────────────────────────────────────────────────────╮
00:02:25 #12761 [verbose] > │ () │
00:02:25 #12762 [verbose] > │ │
00:02:25 #12763 [verbose] > │ │
00:02:25 #12764 [verbose] > ╰──────────────────────────────────────────────────────────────────────────────╯
00:02:25 #12765 [verbose] >
00:02:25 #12766 [verbose] > ── markdown ────────────────────────────────────────────────────────────────────
00:02:25 #12767 [verbose] > ╭──────────────────────────────────────────────────────────────────────────────╮
00:02:25 #12768 [verbose] > │ ## ticks │
00:02:25 #12769 [verbose] > ╰──────────────────────────────────────────────────────────────────────────────╯
00:02:25 #12770 [verbose] >
00:02:25 #12771 [verbose] > ── spiral ──────────────────────────────────────────────────────────────────────
00:02:25 #12772 [verbose] > inl ticks (date_time : date_time) : timestamp =
00:02:25 #12773 [verbose] > date_time |> $'_.Ticks'
00:02:25 #12774 [verbose] > Building c:\home\git\polyglot\target\polyglot\spiral_eval\packages\1f72db073283544225a1ed8197dcb6980e3e903370b4f91d0548fee8470046ed\main.spi
00:02:25 #12775 [verbose] >
00:02:25 #12776 [verbose] > ╭─[ 263.94ms - stdout ]────────────────────────────────────────────────────────╮
00:02:25 #12777 [verbose] > │ () │
00:02:25 #12778 [verbose] > │ │
00:02:25 #12779 [verbose] > │ │
00:02:25 #12780 [verbose] > ╰──────────────────────────────────────────────────────────────────────────────╯
00:02:25 #12781 [verbose] >
00:02:25 #12782 [verbose] > ── markdown ────────────────────────────────────────────────────────────────────
00:02:25 #12783 [verbose] > ╭──────────────────────────────────────────────────────────────────────────────╮
00:02:25 #12784 [verbose] > │ ## format │
00:02:25 #12785 [verbose] > ╰──────────────────────────────────────────────────────────────────────────────╯
00:02:25 #12786 [verbose] >
00:02:25 #12787 [verbose] > ── spiral ──────────────────────────────────────────────────────────────────────
00:02:25 #12788 [verbose] > inl format (format : string) (date_time : date_time) : string =
00:02:25 #12789 [verbose] > $'!date_time.ToString' format
00:02:25 #12790 [verbose] > Building c:\home\git\polyglot\target\polyglot\spiral_eval\packages\9ba3706405fa5713e40e9c593d68455da31ea6f00be428bfc7312d71c43fed40\main.spi
00:02:25 #12791 [verbose] >
00:02:25 #12792 [verbose] > ╭─[ 256.64ms - stdout ]────────────────────────────────────────────────────────╮
00:02:25 #12793 [verbose] > │ () │
00:02:25 #12794 [verbose] > │ │
00:02:25 #12795 [verbose] > │ │
00:02:25 #12796 [verbose] > ╰──────────────────────────────────────────────────────────────────────────────╯
00:02:25 #12797 [verbose] >
00:02:25 #12798 [verbose] > ── markdown ────────────────────────────────────────────────────────────────────
00:02:25 #12799 [verbose] > ╭──────────────────────────────────────────────────────────────────────────────╮
00:02:25 #12800 [verbose] > │ ## format_iso8601 │
00:02:25 #12801 [verbose] > ╰──────────────────────────────────────────────────────────────────────────────╯
00:02:25 #12802 [verbose] >
00:02:25 #12803 [verbose] > ── spiral ──────────────────────────────────────────────────────────────────────
00:02:25 #12804 [verbose] > inl format_iso8601 (date_time : date_time) =
00:02:25 #12805 [verbose] > date_time |> format "yyyy-MM-ddTHH-mm-ss.fff"
00:02:26 #12806 [verbose] > Building c:\home\git\polyglot\target\polyglot\spiral_eval\packages\61b6d8ba614785689d10e277624ac581fbf2736b552fc6f6a268bfc278e21503\main.spi
00:02:26 #12807 [verbose] >
00:02:26 #12808 [verbose] > ╭─[ 235.80ms - stdout ]────────────────────────────────────────────────────────╮
00:02:26 #12809 [verbose] > │ () │
00:02:26 #12810 [verbose] > │ │
00:02:26 #12811 [verbose] > │ │
00:02:26 #12812 [verbose] > ╰──────────────────────────────────────────────────────────────────────────────╯
00:02:26 #12813 [verbose] >
00:02:26 #12814 [verbose] > ── markdown ────────────────────────────────────────────────────────────────────
00:02:26 #12815 [verbose] > ╭──────────────────────────────────────────────────────────────────────────────╮
00:02:26 #12816 [verbose] > │ ## format' │
00:02:26 #12817 [verbose] > ╰──────────────────────────────────────────────────────────────────────────────╯
00:02:26 #12818 [verbose] >
00:02:26 #12819 [verbose] > ── spiral ──────────────────────────────────────────────────────────────────────
00:02:26 #12820 [verbose] > inl format' (format : string) (date_time : date_time' utc) : sm'.std_string =
00:02:26 #12821 [verbose] > inl format = #format
00:02:26 #12822 [verbose] > inl date_time = join date_time
00:02:26 #12823 [verbose] > !\($'"!date_time.format(!format).to_string()"')
00:02:26 #12824 [verbose] > Building c:\home\git\polyglot\target\polyglot\spiral_eval\packages\188deee443dcf7f329cca702191cee12e0b05d39739160b8e9cac2317e87b672\main.spi
00:02:26 #12825 [verbose] >
00:02:26 #12826 [verbose] > ╭─[ 220.07ms - stdout ]────────────────────────────────────────────────────────╮
00:02:26 #12827 [verbose] > │ () │
00:02:26 #12828 [verbose] > │ │
00:02:26 #12829 [verbose] > │ │
00:02:26 #12830 [verbose] > ╰──────────────────────────────────────────────────────────────────────────────╯
00:02:26 #12831 [verbose] >
00:02:26 #12832 [verbose] > ── markdown ────────────────────────────────────────────────────────────────────
00:02:26 #12833 [verbose] > ╭──────────────────────────────────────────────────────────────────────────────╮
00:02:26 #12834 [verbose] > │ ## format'' │
00:02:26 #12835 [verbose] > ╰──────────────────────────────────────────────────────────────────────────────╯
00:02:26 #12836 [verbose] >
00:02:26 #12837 [verbose] > ── spiral ──────────────────────────────────────────────────────────────────────
00:02:26 #12838 [verbose] > inl format'' (format : string) (date_time : date_time' _) : sm'.std_string =
00:02:26 #12839 [verbose] > inl format = #format
00:02:26 #12840 [verbose] > inl date_time = join date_time
00:02:26 #12841 [verbose] > !\($'"!date_time.format(!format).to_string()"')
00:02:26 #12842 [verbose] > Building c:\home\git\polyglot\target\polyglot\spiral_eval\packages\a6459429bb8466e82baafd2cdee900ee97b94d46b875a8a1dc4a62b2e2ba8e38\main.spi
00:02:26 #12843 [verbose] >
00:02:26 #12844 [verbose] > ╭─[ 229.15ms - stdout ]────────────────────────────────────────────────────────╮
00:02:26 #12845 [verbose] > │ () │
00:02:26 #12846 [verbose] > │ │
00:02:26 #12847 [verbose] > │ │
00:02:26 #12848 [verbose] > ╰──────────────────────────────────────────────────────────────────────────────╯
00:02:26 #12849 [verbose] >
00:02:26 #12850 [verbose] > ── markdown ────────────────────────────────────────────────────────────────────
00:02:26 #12851 [verbose] > ╭──────────────────────────────────────────────────────────────────────────────╮
00:02:26 #12852 [verbose] > │ ## format_timestamp │
00:02:26 #12853 [verbose] > ╰──────────────────────────────────────────────────────────────────────────────╯
00:02:26 #12854 [verbose] >
00:02:26 #12855 [verbose] > ── spiral ──────────────────────────────────────────────────────────────────────
00:02:26 #12856 [verbose] > inl format_timestamp (timestamp : sm'.std_string) =
00:02:26 #12857 [verbose] > inl timestamp = join timestamp
00:02:26 #12858 [verbose] > timestamp
00:02:26 #12859 [verbose] > |> fun x => !\($'"!x.parse().unwrap()"') : i64
00:02:26 #12860 [verbose] > |> from_timestamp'
00:02:26 #12861 [verbose] > |> optionm.map fun x =>
00:02:26 #12862 [verbose] > x
00:02:26 #12863 [verbose] > |> to_local
00:02:26 #12864 [verbose] > |> format'' "%Y-%m-%d %H:%M:%S"
00:02:26 #12865 [verbose] > |> sm'.from_std_string
00:02:26 #12866 [verbose] > |> resultm.from_option
00:02:26 #12867 [verbose] > Building c:\home\git\polyglot\target\polyglot\spiral_eval\packages\65523346cdbc0cf97b8f9f141c916f5cdca6d19fe5325b402c67164edf9cd20f\main.spi
00:02:26 #12868 [verbose] >
00:02:26 #12869 [verbose] > ╭─[ 260.33ms - stdout ]────────────────────────────────────────────────────────╮
00:02:26 #12870 [verbose] > │ () │
00:02:26 #12871 [verbose] > │ │
00:02:26 #12872 [verbose] > │ │
00:02:26 #12873 [verbose] > ╰──────────────────────────────────────────────────────────────────────────────╯
00:02:26 #12874 [verbose] >
00:02:26 #12875 [verbose] > ── markdown ────────────────────────────────────────────────────────────────────
00:02:26 #12876 [verbose] > ╭──────────────────────────────────────────────────────────────────────────────╮
00:02:26 #12877 [verbose] > │ ## duration_from_millis │
00:02:26 #12878 [verbose] > ╰──────────────────────────────────────────────────────────────────────────────╯
00:02:26 #12879 [verbose] >
00:02:26 #12880 [verbose] > ── spiral ──────────────────────────────────────────────────────────────────────
00:02:26 #12881 [verbose] > inl duration_from_millis (ms : u64) : duration =
00:02:26 #12882 [verbose] > inl ms = join ms
00:02:26 #12883 [verbose] > !\($'"std::time::Duration::from_millis(!ms)"')
00:02:27 #12884 [verbose] > Building c:\home\git\polyglot\target\polyglot\spiral_eval\packages\d222b707827b406e707c275df273b034988b5e8a3cdc3a4ed32557fbebb8e9b0\main.spi
00:02:27 #12885 [verbose] >
00:02:27 #12886 [verbose] > ╭─[ 261.17ms - stdout ]────────────────────────────────────────────────────────╮
00:02:27 #12887 [verbose] > │ () │
00:02:27 #12888 [verbose] > │ │
00:02:27 #12889 [verbose] > │ │
00:02:27 #12890 [verbose] > ╰──────────────────────────────────────────────────────────────────────────────╯
00:02:27 #12891 [verbose] >
00:02:27 #12892 [verbose] > ── markdown ────────────────────────────────────────────────────────────────────
00:02:27 #12893 [verbose] > ╭──────────────────────────────────────────────────────────────────────────────╮
00:02:27 #12894 [verbose] > │ ## get_environment_variable │
00:02:27 #12895 [verbose] > ╰──────────────────────────────────────────────────────────────────────────────╯
00:02:27 #12896 [verbose] >
00:02:27 #12897 [verbose] > ── spiral ──────────────────────────────────────────────────────────────────────
00:02:27 #12898 [verbose] > inl get_environment_variable (var : string) : string =
00:02:27 #12899 [verbose] > $"System.Environment.GetEnvironmentVariable !var"
00:02:27 #12900 [verbose] > Building c:\home\git\polyglot\target\polyglot\spiral_eval\packages\a8ecb04d75ee33bf8cb4dbf112d82accf2c5b14becc9ff2113b5dd16af1dbfba\main.spi
00:02:27 #12901 [verbose] >
00:02:27 #12902 [verbose] > ╭─[ 238.32ms - stdout ]────────────────────────────────────────────────────────╮
00:02:27 #12903 [verbose] > │ () │
00:02:27 #12904 [verbose] > │ │
00:02:27 #12905 [verbose] > │ │
00:02:27 #12906 [verbose] > ╰──────────────────────────────────────────────────────────────────────────────╯
00:02:27 #12907 [verbose] >
00:02:27 #12908 [verbose] > ── spiral ──────────────────────────────────────────────────────────────────────
00:02:27 #12909 [verbose] > // // test
00:02:27 #12910 [verbose] >
00:02:27 #12911 [verbose] > inl test_guid () =
00:02:27 #12912 [verbose] > guid.new_guid "FEDCBA98-7654-3210-FEDC-BA9876543210"
00:02:27 #12913 [verbose] > Building c:\home\git\polyglot\target\polyglot\spiral_eval\packages\a1a1aae093484247dde4303049df188ea3521f3f47df7108cff654e834cc205d\main.spi
00:02:27 #12914 [verbose] >
00:02:27 #12915 [verbose] > ╭─[ 232.14ms - stdout ]────────────────────────────────────────────────────────╮
00:02:27 #12916 [verbose] > │ () │
00:02:27 #12917 [verbose] > │ │
00:02:27 #12918 [verbose] > │ │
00:02:27 #12919 [verbose] > ╰──────────────────────────────────────────────────────────────────────────────╯
00:02:27 #12920 [verbose] >
00:02:27 #12921 [verbose] > ── spiral ──────────────────────────────────────────────────────────────────────
00:02:27 #12922 [verbose] > type timestamp_guid = guid.guid
00:02:27 #12923 [verbose] > type date_time_guid = guid.guid
00:02:27 #12924 [verbose] > Building c:\home\git\polyglot\target\polyglot\spiral_eval\packages\1f4c7c8fdef1bf50224b6732c2faeb1637e2652fe23ba59163d52cdbc782730c\main.spi
00:02:27 #12925 [verbose] >
00:02:27 #12926 [verbose] > ╭─[ 248.55ms - stdout ]────────────────────────────────────────────────────────╮
00:02:27 #12927 [verbose] > │ () │
00:02:27 #12928 [verbose] > │ │
00:02:27 #12929 [verbose] > │ │
00:02:27 #12930 [verbose] > ╰──────────────────────────────────────────────────────────────────────────────╯
00:02:27 #12931 [verbose] >
00:02:27 #12932 [verbose] > ── markdown ────────────────────────────────────────────────────────────────────
00:02:27 #12933 [verbose] > ╭──────────────────────────────────────────────────────────────────────────────╮
00:02:27 #12934 [verbose] > │ ## date_time_guid_from_date_time │
00:02:27 #12935 [verbose] > ╰──────────────────────────────────────────────────────────────────────────────╯
00:02:27 #12936 [verbose] >
00:02:27 #12937 [verbose] > ── spiral ──────────────────────────────────────────────────────────────────────
00:02:27 #12938 [verbose] > inl date_time_guid_from_date_time (guid : guid.guid) (date_time : date_time) =
00:02:27 #12939 [verbose] > inl guid = guid |> sm'.obj_to_string
00:02:27 #12940 [verbose] > inl prefix = $'!date_time.ToString "yyyyMMdd-HHmm-ssff-ffff-f"' : string
00:02:27 #12941 [verbose] > $'`date_time_guid $"{!prefix}{!guid.[[!prefix.Length..]]}"' : date_time_guid
00:02:28 #12942 [verbose] > Building c:\home\git\polyglot\target\polyglot\spiral_eval\packages\aafccfe21388732e6e367d17f9b4de300ec85a52d81c7adee3deccbc92af476a\main.spi
00:02:28 #12943 [verbose] >
00:02:28 #12944 [verbose] > ╭─[ 248.28ms - stdout ]────────────────────────────────────────────────────────╮
00:02:28 #12945 [verbose] > │ () │
00:02:28 #12946 [verbose] > │ │
00:02:28 #12947 [verbose] > │ │
00:02:28 #12948 [verbose] > ╰──────────────────────────────────────────────────────────────────────────────╯
00:02:28 #12949 [verbose] >
00:02:28 #12950 [verbose] > ── spiral ──────────────────────────────────────────────────────────────────────
00:02:28 #12951 [verbose] > // // test
00:02:28 #12952 [verbose] >
00:02:28 #12953 [verbose] > date_time_guid_from_date_time (test_guid ()) $'System.DateTime.MinValue'
00:02:28 #12954 [verbose] > |> sm'.obj_to_string
00:02:28 #12955 [verbose] > |> _assert_eq' "00010101-0000-0000-0000-0a9876543210"
00:02:28 #12956 [verbose] > Building c:\home\git\polyglot\target\polyglot\spiral_eval\packages\2bc1ab8674226e2bc5133d1097a457d0e4ccb44b660459aa78a47788529bb766\main.spi
00:02:29 #12957 [verbose] >
00:02:29 #12958 [verbose] > ╭─[ 1.05s - stdout ]───────────────────────────────────────────────────────────╮
00:02:29 #12959 [verbose] > │ let rec method1 (v0 : bool) : bool = │
00:02:29 #12960 [verbose] > │ v0 │
00:02:29 #12961 [verbose] > │ and method0 () : unit = │
00:02:29 #12962 [verbose] > │ let v0 : string = "FEDCBA98-7654-3210-FEDC-BA9876543210" │
00:02:29 #12963 [verbose] > │ let v1 : System.Guid = System.Guid v0 │
00:02:29 #12964 [verbose] > │ let v2 : System.DateTime = System.DateTime.MinValue │
00:02:29 #12965 [verbose] > │ let v3 : (System.Guid -> string) = _.ToString() │
00:02:29 #12966 [verbose] > │ let v4 : string = v3 v1 │
00:02:29 #12967 [verbose] > │ let v5 : string = v2.ToString "yyyyMMdd-HHmm-ssff-ffff-f" │
00:02:29 #12968 [verbose] > │ let v6 : System.Guid = System.Guid $"{v5}{v4.[v5.Length..]}" │
00:02:29 #12969 [verbose] > │ let v7 : (System.Guid -> string) = _.ToString() │
00:02:29 #12970 [verbose] > │ let v8 : string = v7 v6 │
00:02:29 #12971 [verbose] > │ let v9 : string = $"%A{v8}" │
00:02:29 #12972 [verbose] > │ System.Console.WriteLine v9 │
00:02:29 #12973 [verbose] > │ let v10 : string = "00010101-0000-0000-0000-0a9876543210" │
00:02:29 #12974 [verbose] > │ let v11 : bool = v8 = v10 │
00:02:29 #12975 [verbose] > │ let v13 : bool = │
00:02:29 #12976 [verbose] > │ if v11 then │
00:02:29 #12977 [verbose] > │ true │
00:02:29 #12978 [verbose] > │ else │
00:02:29 #12979 [verbose] > │ method1(v11) │
00:02:29 #12980 [verbose] > │ let v14 : string = $"__expect / actual: %A{v8} / expected: %A{v10}" │
00:02:29 #12981 [verbose] > │ let v15 : bool = v13 = false │
00:02:29 #12982 [verbose] > │ if v15 then │
00:02:29 #12983 [verbose] > │ failwith<unit> v14 │
00:02:29 #12984 [verbose] > │ method0() │
00:02:29 #12985 [verbose] > │ │
00:02:29 #12986 [verbose] > │ "00010101-0000-0000-0000-0a9876543210" │
00:02:29 #12987 [verbose] > │ │
00:02:29 #12988 [verbose] > ╰──────────────────────────────────────────────────────────────────────────────╯
00:02:29 #12989 [verbose] >
00:02:29 #12990 [verbose] > ── spiral ──────────────────────────────────────────────────────────────────────
00:02:29 #12991 [verbose] > // // test
00:02:29 #12992 [verbose] >
00:02:29 #12993 [verbose] > date_time_guid_from_date_time (test_guid ()) $'System.DateTime.MaxValue'
00:02:29 #12994 [verbose] > |> sm'.obj_to_string
00:02:29 #12995 [verbose] > |> _assert_eq $'$"99991231-2359-5999-9999-9{(!test_guid() |>
00:02:29 #12996 [verbose] > string).[[^10..]]}"'
00:02:29 #12997 [verbose] > Building c:\home\git\polyglot\target\polyglot\spiral_eval\packages\0527db9e9851847b76794310fa3a73a09208b11cbaf58e5edf89c47cb3185594\main.spi
00:02:29 #12998 [verbose] >
00:02:29 #12999 [verbose] > ╭─[ 318.62ms - stdout ]────────────────────────────────────────────────────────╮
00:02:29 #13000 [verbose] > │ let rec closure0 () () : System.Guid = │
00:02:29 #13001 [verbose] > │ let v0 : string = "FEDCBA98-7654-3210-FEDC-BA9876543210" │
00:02:29 #13002 [verbose] > │ let v1 : System.Guid = System.Guid v0 │
00:02:29 #13003 [verbose] > │ v1 │
00:02:29 #13004 [verbose] > │ and method1 (v0 : bool) : bool = │
00:02:29 #13005 [verbose] > │ v0 │
00:02:29 #13006 [verbose] > │ and method0 () : unit = │
00:02:29 #13007 [verbose] > │ let v0 : string = "FEDCBA98-7654-3210-FEDC-BA9876543210" │
00:02:29 #13008 [verbose] > │ let v1 : System.Guid = System.Guid v0 │
00:02:29 #13009 [verbose] > │ let v2 : System.DateTime = System.DateTime.MaxValue │
00:02:29 #13010 [verbose] > │ let v3 : (System.Guid -> string) = _.ToString() │
00:02:29 #13011 [verbose] > │ let v4 : string = v3 v1 │
00:02:29 #13012 [verbose] > │ let v5 : string = v2.ToString "yyyyMMdd-HHmm-ssff-ffff-f" │
00:02:29 #13013 [verbose] > │ let v6 : System.Guid = System.Guid $"{v5}{v4.[v5.Length..]}" │
00:02:29 #13014 [verbose] > │ let v7 : (System.Guid -> string) = _.ToString() │
00:02:29 #13015 [verbose] > │ let v8 : string = v7 v6 │
00:02:29 #13016 [verbose] > │ let v9 : (unit -> System.Guid) = closure0() │
00:02:29 #13017 [verbose] > │ let v10 : string = $"99991231-2359-5999-9999-9{(v9() |> string).[ │
00:02:29 #13018 [verbose] > │ ^10..]}" │
00:02:29 #13019 [verbose] > │ let v11 : string = $"%A{v8}" │
00:02:29 #13020 [verbose] > │ System.Console.WriteLine v11 │
00:02:29 #13021 [verbose] > │ let v12 : bool = v8 = v10 │
00:02:29 #13022 [verbose] > │ let v14 : bool = │
00:02:29 #13023 [verbose] > │ if v12 then │
00:02:29 #13024 [verbose] > │ true │
00:02:29 #13025 [verbose] > │ else │
00:02:29 #13026 [verbose] > │ method1(v12) │
00:02:29 #13027 [verbose] > │ let v15 : string = $"__expect / actual: %A{v8} / expected: %A{v10}" │
00:02:29 #13028 [verbose] > │ let v16 : bool = v14 = false │
00:02:29 #13029 [verbose] > │ if v16 then │
00:02:29 #13030 [verbose] > │ failwith<unit> v15 │
00:02:29 #13031 [verbose] > │ method0() │
00:02:29 #13032 [verbose] > │ │
00:02:29 #13033 [verbose] > │ "99991231-2359-5999-9999-9a9876543210" │
00:02:29 #13034 [verbose] > │ │
00:02:29 #13035 [verbose] > ╰──────────────────────────────────────────────────────────────────────────────╯
00:02:29 #13036 [verbose] >
00:02:29 #13037 [verbose] > ── spiral ──────────────────────────────────────────────────────────────────────
00:02:29 #13038 [verbose] > // // test
00:02:29 #13039 [verbose] >
00:02:29 #13040 [verbose] > date_time_guid_from_date_time (test_guid ()) $'System.DateTime.UnixEpoch'
00:02:29 #13041 [verbose] > |> sm'.obj_to_string
00:02:29 #13042 [verbose] > |> _assert_eq $'$"19700101-0000-0000-0000-0{(!test_guid () |>
00:02:29 #13043 [verbose] > string).[[^10..]]}"'
00:02:29 #13044 [verbose] > Building c:\home\git\polyglot\target\polyglot\spiral_eval\packages\eee635e1b3085daf98a2c61c4adb992fe0fe441a41f8bff5de5c6953a2b4b89a\main.spi
00:02:29 #13045 [verbose] >
00:02:29 #13046 [verbose] > ╭─[ 316.69ms - stdout ]────────────────────────────────────────────────────────╮
00:02:29 #13047 [verbose] > │ let rec closure0 () () : System.Guid = │
00:02:29 #13048 [verbose] > │ let v0 : string = "FEDCBA98-7654-3210-FEDC-BA9876543210" │
00:02:29 #13049 [verbose] > │ let v1 : System.Guid = System.Guid v0 │
00:02:29 #13050 [verbose] > │ v1 │
00:02:29 #13051 [verbose] > │ and method1 (v0 : bool) : bool = │
00:02:29 #13052 [verbose] > │ v0 │
00:02:29 #13053 [verbose] > │ and method0 () : unit = │
00:02:29 #13054 [verbose] > │ let v0 : string = "FEDCBA98-7654-3210-FEDC-BA9876543210" │
00:02:29 #13055 [verbose] > │ let v1 : System.Guid = System.Guid v0 │
00:02:29 #13056 [verbose] > │ let v2 : System.DateTime = System.DateTime.UnixEpoch │
00:02:29 #13057 [verbose] > │ let v3 : (System.Guid -> string) = _.ToString() │
00:02:29 #13058 [verbose] > │ let v4 : string = v3 v1 │
00:02:29 #13059 [verbose] > │ let v5 : string = v2.ToString "yyyyMMdd-HHmm-ssff-ffff-f" │
00:02:29 #13060 [verbose] > │ let v6 : System.Guid = System.Guid $"{v5}{v4.[v5.Length..]}" │
00:02:29 #13061 [verbose] > │ let v7 : (System.Guid -> string) = _.ToString() │
00:02:29 #13062 [verbose] > │ let v8 : string = v7 v6 │
00:02:29 #13063 [verbose] > │ let v9 : (unit -> System.Guid) = closure0() │
00:02:29 #13064 [verbose] > │ let v10 : string = $"19700101-0000-0000-0000-0{(v9 () |> string).[ │
00:02:29 #13065 [verbose] > │ ^10..]}" │
00:02:29 #13066 [verbose] > │ let v11 : string = $"%A{v8}" │
00:02:29 #13067 [verbose] > │ System.Console.WriteLine v11 │
00:02:29 #13068 [verbose] > │ let v12 : bool = v8 = v10 │
00:02:29 #13069 [verbose] > │ let v14 : bool = │
00:02:29 #13070 [verbose] > │ if v12 then │
00:02:29 #13071 [verbose] > │ true │
00:02:29 #13072 [verbose] > │ else │
00:02:29 #13073 [verbose] > │ method1(v12) │
00:02:29 #13074 [verbose] > │ let v15 : string = $"__expect / actual: %A{v8} / expected: %A{v10}" │
00:02:29 #13075 [verbose] > │ let v16 : bool = v14 = false │
00:02:29 #13076 [verbose] > │ if v16 then │
00:02:29 #13077 [verbose] > │ failwith<unit> v15 │
00:02:29 #13078 [verbose] > │ method0() │
00:02:29 #13079 [verbose] > │ │
00:02:29 #13080 [verbose] > │ "19700101-0000-0000-0000-0a9876543210" │
00:02:29 #13081 [verbose] > │ │
00:02:29 #13082 [verbose] > ╰──────────────────────────────────────────────────────────────────────────────╯
00:02:29 #13083 [verbose] >
00:02:29 #13084 [verbose] > ── markdown ────────────────────────────────────────────────────────────────────
00:02:29 #13085 [verbose] > ╭──────────────────────────────────────────────────────────────────────────────╮
00:02:29 #13086 [verbose] > │ ## date_time_from_guid │
00:02:29 #13087 [verbose] > ╰──────────────────────────────────────────────────────────────────────────────╯
00:02:29 #13088 [verbose] >
00:02:29 #13089 [verbose] > ── spiral ──────────────────────────────────────────────────────────────────────
00:02:29 #13090 [verbose] > inl date_time_from_guid (date_time_guid : date_time_guid) =
00:02:29 #13091 [verbose] > inl date_time_guid = date_time_guid |> sm'.obj_to_string
00:02:29 #13092 [verbose] > inl sm'_replace = join sm'.replace
00:02:29 #13093 [verbose] > run_target function
00:02:29 #13094 [verbose] > | Rust _ => fun () =>
00:02:29 #13095 [verbose] > $'System.DateTime.Parse (!date_time_guid.[[..24]] |> !sm'_replace
00:02:29 #13096 [verbose] > "-" "")' : date_time
00:02:29 #13097 [verbose] > | _ => fun () => $'System.DateTime.ParseExact (!date_time_guid.[[..24]]
00:02:29 #13098 [verbose] > |> !sm'_replace "-" "", "yyyyMMddHHmmssfffffff", null)' : date_time
00:02:30 #13099 [verbose] > Building c:\home\git\polyglot\target\polyglot\spiral_eval\packages\b686984d5eed2c5f378090cc0c2c1330dcb1372215ce16624a67a38cc7ae5404\main.spi
00:02:30 #13100 [verbose] >
00:02:30 #13101 [verbose] > ╭─[ 237.24ms - stdout ]────────────────────────────────────────────────────────╮
00:02:30 #13102 [verbose] > │ () │
00:02:30 #13103 [verbose] > │ │
00:02:30 #13104 [verbose] > │ │
00:02:30 #13105 [verbose] > ╰──────────────────────────────────────────────────────────────────────────────╯
00:02:30 #13106 [verbose] >
00:02:30 #13107 [verbose] > ── spiral ──────────────────────────────────────────────────────────────────────
00:02:30 #13108 [verbose] > // // test
00:02:30 #13109 [verbose] >
00:02:30 #13110 [verbose] > date_time_from_guid (guid.new_guid "00010101-0000-0000-0000-0a9876543210")
00:02:30 #13111 [verbose] > |> _assert_eq' $'System.DateTime.MinValue'
00:02:30 #13112 [verbose] > Building c:\home\git\polyglot\target\polyglot\spiral_eval\packages\aecf8098ad43c6532f2cb3eafac78d4bd4ad3bc0ccee37ee7833e505ea1578e8\main.spi
00:02:30 #13113 [verbose] >
00:02:30 #13114 [verbose] > ╭─[ 416.81ms - stdout ]────────────────────────────────────────────────────────╮
00:02:30 #13115 [verbose] > │ let rec closure2 (v0 : string, v1 : string) (v2 : string) : string = │
00:02:30 #13116 [verbose] > │ let v3 : string = v2.Replace (v0, v1) │
00:02:30 #13117 [verbose] > │ v3 │
00:02:30 #13118 [verbose] > │ and closure1 (v0 : string) (v1 : string) : (string -> string) = │
00:02:30 #13119 [verbose] > │ closure2(v0, v1) │
00:02:30 #13120 [verbose] > │ and closure0 () (v0 : string) : (string -> (string -> string)) = │
00:02:30 #13121 [verbose] > │ closure1(v0) │
00:02:30 #13122 [verbose] > │ and method1 () : (string -> (string -> (string -> string))) = │
00:02:30 #13123 [verbose] > │ closure0() │
00:02:30 #13124 [verbose] > │ and method2 (v0 : bool) : bool = │
00:02:30 #13125 [verbose] > │ v0 │
00:02:30 #13126 [verbose] > │ and method0 () : unit = │
00:02:30 #13127 [verbose] > │ let v0 : string = "00010101-0000-0000-0000-0a9876543210" │
00:02:30 #13128 [verbose] > │ let v1 : System.Guid = System.Guid v0 │
00:02:30 #13129 [verbose] > │ let v2 : (System.Guid -> string) = _.ToString() │
00:02:30 #13130 [verbose] > │ let v3 : string = v2 v1 │
00:02:30 #13131 [verbose] > │ let v4 : (string -> (string -> (string -> string))) = method1() │
00:02:30 #13132 [verbose] > │ let v5 : System.DateTime option = None │
00:02:30 #13133 [verbose] > │ let mutable _v5 = v5 │
00:02:30 #13134 [verbose] > │ #if FABLE_COMPILER_RUST && !WASM && !CONTRACT │
00:02:30 #13135 [verbose] > │ let v6 : System.DateTime = System.DateTime.Parse (v3.[..24] |> v4 "-" │
00:02:30 #13136 [verbose] > │ "") │
00:02:30 #13137 [verbose] > │ v6 │
00:02:30 #13138 [verbose] > │ #endif │
00:02:30 #13139 [verbose] > │ #if FABLE_COMPILER_RUST && WASM │
00:02:30 #13140 [verbose] > │ let v7 : System.DateTime = System.DateTime.Parse (v3.[..24] |> v4 "-" │
00:02:30 #13141 [verbose] > │ "") │
00:02:30 #13142 [verbose] > │ v7 │
00:02:30 #13143 [verbose] > │ #endif │
00:02:30 #13144 [verbose] > │ #if FABLE_COMPILER_RUST && CONTRACT │
00:02:30 #13145 [verbose] > │ let v8 : System.DateTime = System.DateTime.Parse (v3.[..24] |> v4 "-" │
00:02:30 #13146 [verbose] > │ "") │
00:02:30 #13147 [verbose] > │ v8 │
00:02:30 #13148 [verbose] > │ #endif │
00:02:30 #13149 [verbose] > │ #if !FABLE_COMPILER && !FABLE_COMPILER_RUST && │
00:02:30 #13150 [verbose] > │ !FABLE_COMPILER_TYPESCRIPT && !WASM && !CONTRACT │
00:02:30 #13151 [verbose] > │ let v9 : System.DateTime = System.DateTime.ParseExact (v3.[..24] |> v4 │
00:02:30 #13152 [verbose] > │ "-" "", "yyyyMMddHHmmssfffffff", null) │
00:02:30 #13153 [verbose] > │ v9 │
00:02:30 #13154 [verbose] > │ #endif │
00:02:30 #13155 [verbose] > │ #if FABLE_COMPILER_TYPESCRIPT │
00:02:30 #13156 [verbose] > │ let v10 : System.DateTime = System.DateTime.ParseExact (v3.[..24] |> v4 │
00:02:30 #13157 [verbose] > │ "-" "", "yyyyMMddHHmmssfffffff", null) │
00:02:30 #13158 [verbose] > │ v10 │
00:02:30 #13159 [verbose] > │ #endif │
00:02:30 #13160 [verbose] > │ #if FABLE_COMPILER_PYTHON || FABLE_COMPILER_PHP || FABLE_COMPILER_DART │
00:02:30 #13161 [verbose] > │ let v11 : System.DateTime = Unchecked.defaultof<System.DateTime> │
00:02:30 #13162 [verbose] > │ v11 │
00:02:30 #13163 [verbose] > │ #endif │
00:02:30 #13164 [verbose] > │ |> fun x -> _v5 <- Some x │
00:02:30 #13165 [verbose] > │ let v12 : System.DateTime = _v5.Value │
00:02:30 #13166 [verbose] > │ let v13 : System.DateTime = System.DateTime.MinValue │
00:02:30 #13167 [verbose] > │ let v14 : string = $"%A{v12}" │
00:02:30 #13168 [verbose] > │ System.Console.WriteLine v14 │
00:02:30 #13169 [verbose] > │ let v15 : bool = v12 = v13 │
00:02:30 #13170 [verbose] > │ let v17 : bool = │
00:02:30 #13171 [verbose] > │ if v15 then │
00:02:30 #13172 [verbose] > │ true │
00:02:30 #13173 [verbose] > │ else │
00:02:30 #13174 [verbose] > │ method2(v15) │
00:02:30 #13175 [verbose] > │ let v18 : string = $"__expect / actual: %A{v12} / expected: %A{v13}" │
00:02:30 #13176 [verbose] > │ let v19 : bool = v17 = false │
00:02:30 #13177 [verbose] > │ if v19 then │
00:02:30 #13178 [verbose] > │ failwith<unit> v18 │
00:02:30 #13179 [verbose] > │ method0() │
00:02:30 #13180 [verbose] > │ │
00:02:30 #13181 [verbose] > │ 0001-01-01 12:00:00 AM │
00:02:30 #13182 [verbose] > │ │
00:02:30 #13183 [verbose] > ╰──────────────────────────────────────────────────────────────────────────────╯
00:02:30 #13184 [verbose] >
00:02:30 #13185 [verbose] > ── spiral ──────────────────────────────────────────────────────────────────────
00:02:30 #13186 [verbose] > // // test
00:02:30 #13187 [verbose] >
00:02:30 #13188 [verbose] > date_time_from_guid (guid.new_guid $'$"99991231-2359-5999-9999-9{(!test_guid ()
00:02:30 #13189 [verbose] > |> string).[[^10..]]}"')
00:02:30 #13190 [verbose] > |> _assert_eq' $'System.DateTime.MaxValue'
00:02:30 #13191 [verbose] > Building c:\home\git\polyglot\target\polyglot\spiral_eval\packages\81684ed12d4e63c9694a345a484aef409c312e7f7ce1b1d1f0755dceb49c67f1\main.spi
00:02:30 #13192 [verbose] >
00:02:30 #13193 [verbose] > ╭─[ 337.84ms - stdout ]────────────────────────────────────────────────────────╮
00:02:30 #13194 [verbose] > │ let rec closure0 () () : System.Guid = │
00:02:30 #13195 [verbose] > │ let v0 : string = "FEDCBA98-7654-3210-FEDC-BA9876543210" │
00:02:30 #13196 [verbose] > │ let v1 : System.Guid = System.Guid v0 │
00:02:30 #13197 [verbose] > │ v1 │
00:02:30 #13198 [verbose] > │ and closure3 (v0 : string, v1 : string) (v2 : string) : string = │
00:02:30 #13199 [verbose] > │ let v3 : string = v2.Replace (v0, v1) │
00:02:30 #13200 [verbose] > │ v3 │
00:02:30 #13201 [verbose] > │ and closure2 (v0 : string) (v1 : string) : (string -> string) = │
00:02:30 #13202 [verbose] > │ closure3(v0, v1) │
00:02:30 #13203 [verbose] > │ and closure1 () (v0 : string) : (string -> (string -> string)) = │
00:02:30 #13204 [verbose] > │ closure2(v0) │
00:02:30 #13205 [verbose] > │ and method1 () : (string -> (string -> (string -> string))) = │
00:02:30 #13206 [verbose] > │ closure1() │
00:02:30 #13207 [verbose] > │ and method2 (v0 : bool) : bool = │
00:02:30 #13208 [verbose] > │ v0 │
00:02:30 #13209 [verbose] > │ and method0 () : unit = │
00:02:30 #13210 [verbose] > │ let v0 : (unit -> System.Guid) = closure0() │
00:02:30 #13211 [verbose] > │ let v1 : string = $"99991231-2359-5999-9999-9{(v0 () |> string).[ │
00:02:30 #13212 [verbose] > │ ^10..]}" │
00:02:30 #13213 [verbose] > │ let v2 : System.Guid = System.Guid v1 │
00:02:30 #13214 [verbose] > │ let v3 : (System.Guid -> string) = _.ToString() │
00:02:30 #13215 [verbose] > │ let v4 : string = v3 v2 │
00:02:30 #13216 [verbose] > │ let v5 : (string -> (string -> (string -> string))) = method1() │
00:02:30 #13217 [verbose] > │ let v6 : System.DateTime option = None │
00:02:30 #13218 [verbose] > │ let mutable _v6 = v6 │
00:02:30 #13219 [verbose] > │ #if FABLE_COMPILER_RUST && !WASM && !CONTRACT │
00:02:30 #13220 [verbose] > │ let v7 : System.DateTime = System.DateTime.Parse (v4.[..24] |> v5 "-" │
00:02:30 #13221 [verbose] > │ "") │
00:02:30 #13222 [verbose] > │ v7 │
00:02:30 #13223 [verbose] > │ #endif │
00:02:30 #13224 [verbose] > │ #if FABLE_COMPILER_RUST && WASM │
00:02:30 #13225 [verbose] > │ let v8 : System.DateTime = System.DateTime.Parse (v4.[..24] |> v5 "-" │
00:02:30 #13226 [verbose] > │ "") │
00:02:30 #13227 [verbose] > │ v8 │
00:02:30 #13228 [verbose] > │ #endif │
00:02:30 #13229 [verbose] > │ #if FABLE_COMPILER_RUST && CONTRACT │
00:02:30 #13230 [verbose] > │ let v9 : System.DateTime = System.DateTime.Parse (v4.[..24] |> v5 "-" │
00:02:30 #13231 [verbose] > │ "") │
00:02:30 #13232 [verbose] > │ v9 │
00:02:30 #13233 [verbose] > │ #endif │
00:02:30 #13234 [verbose] > │ #if !FABLE_COMPILER && !FABLE_COMPILER_RUST && │
00:02:30 #13235 [verbose] > │ !FABLE_COMPILER_TYPESCRIPT && !WASM && !CONTRACT │
00:02:30 #13236 [verbose] > │ let v10 : System.DateTime = System.DateTime.ParseExact (v4.[..24] |> v5 │
00:02:30 #13237 [verbose] > │ "-" "", "yyyyMMddHHmmssfffffff", null) │
00:02:30 #13238 [verbose] > │ v10 │
00:02:30 #13239 [verbose] > │ #endif │
00:02:30 #13240 [verbose] > │ #if FABLE_COMPILER_TYPESCRIPT │
00:02:30 #13241 [verbose] > │ let v11 : System.DateTime = System.DateTime.ParseExact (v4.[..24] |> v5 │
00:02:30 #13242 [verbose] > │ "-" "", "yyyyMMddHHmmssfffffff", null) │
00:02:30 #13243 [verbose] > │ v11 │
00:02:30 #13244 [verbose] > │ #endif │
00:02:30 #13245 [verbose] > │ #if FABLE_COMPILER_PYTHON || FABLE_COMPILER_PHP || FABLE_COMPILER_DART │
00:02:30 #13246 [verbose] > │ let v12 : System.DateTime = Unchecked.defaultof<System.DateTime> │
00:02:30 #13247 [verbose] > │ v12 │
00:02:30 #13248 [verbose] > │ #endif │
00:02:30 #13249 [verbose] > │ |> fun x -> _v6 <- Some x │
00:02:30 #13250 [verbose] > │ let v13 : System.DateTime = _v6.Value │
00:02:30 #13251 [verbose] > │ let v14 : System.DateTime = System.DateTime.MaxValue │
00:02:30 #13252 [verbose] > │ let v15 : string = $"%A{v13}" │
00:02:30 #13253 [verbose] > │ System.Console.WriteLine v15 │
00:02:30 #13254 [verbose] > │ let v16 : bool = v13 = v14 │
00:02:30 #13255 [verbose] > │ let v18 : bool = │
00:02:30 #13256 [verbose] > │ if v16 then │
00:02:30 #13257 [verbose] > │ true │
00:02:30 #13258 [verbose] > │ else │
00:02:30 #13259 [verbose] > │ method2(v16) │
00:02:30 #13260 [verbose] > │ let v19 : string = $"__expect / actual: %A{v13} / expected: %A{v14}" │
00:02:30 #13261 [verbose] > │ let v20 : bool = v18 = false │
00:02:30 #13262 [verbose] > │ if v20 then │
00:02:30 #13263 [verbose] > │ failwith<unit> v19 │
00:02:30 #13264 [verbose] > │ method0() │
00:02:30 #13265 [verbose] > │ │
00:02:30 #13266 [verbose] > │ 9999-12-31 11:59:59 PM │
00:02:30 #13267 [verbose] > │ │
00:02:30 #13268 [verbose] > ╰──────────────────────────────────────────────────────────────────────────────╯
00:02:30 #13269 [verbose] >
00:02:30 #13270 [verbose] > ── spiral ──────────────────────────────────────────────────────────────────────
00:02:30 #13271 [verbose] > // // test
00:02:30 #13272 [verbose] >
00:02:30 #13273 [verbose] > date_time_from_guid (guid.new_guid $'$"19700101-0000-0000-0000-0{(!test_guid ()
00:02:30 #13274 [verbose] > |> string).[[^10..]]}"')
00:02:30 #13275 [verbose] > |> _assert_eq' $'System.DateTime.UnixEpoch'
00:02:31 #13276 [verbose] > Building c:\home\git\polyglot\target\polyglot\spiral_eval\packages\8569dfc0c9e7110dbc36e30a6c0d81f49a196488a0a0f6131f3a0bda7835383c\main.spi
00:02:31 #13277 [verbose] >
00:02:31 #13278 [verbose] > ╭─[ 311.30ms - stdout ]────────────────────────────────────────────────────────╮
00:02:31 #13279 [verbose] > │ let rec closure0 () () : System.Guid = │
00:02:31 #13280 [verbose] > │ let v0 : string = "FEDCBA98-7654-3210-FEDC-BA9876543210" │
00:02:31 #13281 [verbose] > │ let v1 : System.Guid = System.Guid v0 │
00:02:31 #13282 [verbose] > │ v1 │
00:02:31 #13283 [verbose] > │ and closure3 (v0 : string, v1 : string) (v2 : string) : string = │
00:02:31 #13284 [verbose] > │ let v3 : string = v2.Replace (v0, v1) │
00:02:31 #13285 [verbose] > │ v3 │
00:02:31 #13286 [verbose] > │ and closure2 (v0 : string) (v1 : string) : (string -> string) = │
00:02:31 #13287 [verbose] > │ closure3(v0, v1) │
00:02:31 #13288 [verbose] > │ and closure1 () (v0 : string) : (string -> (string -> string)) = │
00:02:31 #13289 [verbose] > │ closure2(v0) │
00:02:31 #13290 [verbose] > │ and method1 () : (string -> (string -> (string -> string))) = │
00:02:31 #13291 [verbose] > │ closure1() │
00:02:31 #13292 [verbose] > │ and method2 (v0 : bool) : bool = │
00:02:31 #13293 [verbose] > │ v0 │
00:02:31 #13294 [verbose] > │ and method0 () : unit = │
00:02:31 #13295 [verbose] > │ let v0 : (unit -> System.Guid) = closure0() │
00:02:31 #13296 [verbose] > │ let v1 : string = $"19700101-0000-0000-0000-0{(v0 () |> string).[ │
00:02:31 #13297 [verbose] > │ ^10..]}" │
00:02:31 #13298 [verbose] > │ let v2 : System.Guid = System.Guid v1 │
00:02:31 #13299 [verbose] > │ let v3 : (System.Guid -> string) = _.ToString() │
00:02:31 #13300 [verbose] > │ let v4 : string = v3 v2 │
00:02:31 #13301 [verbose] > │ let v5 : (string -> (string -> (string -> string))) = method1() │
00:02:31 #13302 [verbose] > │ let v6 : System.DateTime option = None │
00:02:31 #13303 [verbose] > │ let mutable _v6 = v6 │
00:02:31 #13304 [verbose] > │ #if FABLE_COMPILER_RUST && !WASM && !CONTRACT │
00:02:31 #13305 [verbose] > │ let v7 : System.DateTime = System.DateTime.Parse (v4.[..24] |> v5 "-" │
00:02:31 #13306 [verbose] > │ "") │
00:02:31 #13307 [verbose] > │ v7 │
00:02:31 #13308 [verbose] > │ #endif │
00:02:31 #13309 [verbose] > │ #if FABLE_COMPILER_RUST && WASM │
00:02:31 #13310 [verbose] > │ let v8 : System.DateTime = System.DateTime.Parse (v4.[..24] |> v5 "-" │
00:02:31 #13311 [verbose] > │ "") │
00:02:31 #13312 [verbose] > │ v8 │
00:02:31 #13313 [verbose] > │ #endif │
00:02:31 #13314 [verbose] > │ #if FABLE_COMPILER_RUST && CONTRACT │
00:02:31 #13315 [verbose] > │ let v9 : System.DateTime = System.DateTime.Parse (v4.[..24] |> v5 "-" │
00:02:31 #13316 [verbose] > │ "") │
00:02:31 #13317 [verbose] > │ v9 │
00:02:31 #13318 [verbose] > │ #endif │
00:02:31 #13319 [verbose] > │ #if !FABLE_COMPILER && !FABLE_COMPILER_RUST && │
00:02:31 #13320 [verbose] > │ !FABLE_COMPILER_TYPESCRIPT && !WASM && !CONTRACT │
00:02:31 #13321 [verbose] > │ let v10 : System.DateTime = System.DateTime.ParseExact (v4.[..24] |> v5 │
00:02:31 #13322 [verbose] > │ "-" "", "yyyyMMddHHmmssfffffff", null) │
00:02:31 #13323 [verbose] > │ v10 │
00:02:31 #13324 [verbose] > │ #endif │
00:02:31 #13325 [verbose] > │ #if FABLE_COMPILER_TYPESCRIPT │
00:02:31 #13326 [verbose] > │ let v11 : System.DateTime = System.DateTime.ParseExact (v4.[..24] |> v5 │
00:02:31 #13327 [verbose] > │ "-" "", "yyyyMMddHHmmssfffffff", null) │
00:02:31 #13328 [verbose] > │ v11 │
00:02:31 #13329 [verbose] > │ #endif │
00:02:31 #13330 [verbose] > │ #if FABLE_COMPILER_PYTHON || FABLE_COMPILER_PHP || FABLE_COMPILER_DART │
00:02:31 #13331 [verbose] > │ let v12 : System.DateTime = Unchecked.defaultof<System.DateTime> │
00:02:31 #13332 [verbose] > │ v12 │
00:02:31 #13333 [verbose] > │ #endif │
00:02:31 #13334 [verbose] > │ |> fun x -> _v6 <- Some x │
00:02:31 #13335 [verbose] > │ let v13 : System.DateTime = _v6.Value │
00:02:31 #13336 [verbose] > │ let v14 : System.DateTime = System.DateTime.UnixEpoch │
00:02:31 #13337 [verbose] > │ let v15 : string = $"%A{v13}" │
00:02:31 #13338 [verbose] > │ System.Console.WriteLine v15 │
00:02:31 #13339 [verbose] > │ let v16 : bool = v13 = v14 │
00:02:31 #13340 [verbose] > │ let v18 : bool = │
00:02:31 #13341 [verbose] > │ if v16 then │
00:02:31 #13342 [verbose] > │ true │
00:02:31 #13343 [verbose] > │ else │
00:02:31 #13344 [verbose] > │ method2(v16) │
00:02:31 #13345 [verbose] > │ let v19 : string = $"__expect / actual: %A{v13} / expected: %A{v14}" │
00:02:31 #13346 [verbose] > │ let v20 : bool = v18 = false │
00:02:31 #13347 [verbose] > │ if v20 then │
00:02:31 #13348 [verbose] > │ failwith<unit> v19 │
00:02:31 #13349 [verbose] > │ method0() │
00:02:31 #13350 [verbose] > │ │
00:02:31 #13351 [verbose] > │ 1970-01-01 12:00:00 AM │
00:02:31 #13352 [verbose] > │ │
00:02:31 #13353 [verbose] > ╰──────────────────────────────────────────────────────────────────────────────╯
00:02:31 #13354 [verbose] >
00:02:31 #13355 [verbose] > ── markdown ────────────────────────────────────────────────────────────────────
00:02:31 #13356 [verbose] > ╭──────────────────────────────────────────────────────────────────────────────╮
00:02:31 #13357 [verbose] > │ ## timestamp_guid_from_timestamp │
00:02:31 #13358 [verbose] > ╰──────────────────────────────────────────────────────────────────────────────╯
00:02:31 #13359 [verbose] >
00:02:31 #13360 [verbose] > ── spiral ──────────────────────────────────────────────────────────────────────
00:02:31 #13361 [verbose] > inl timestamp_guid_from_timestamp (guid : guid.guid) (timestamp : timestamp) :
00:02:31 #13362 [verbose] > timestamp_guid =
00:02:31 #13363 [verbose] > inl guid = guid |> sm'.obj_to_string
00:02:31 #13364 [verbose] > inl timestamp = timestamp |> sm'.obj_to_string |> sm'.pad_left 18i32 '0'
00:02:31 #13365 [verbose] > $'`timestamp_guid
00:02:31 #13366 [verbose] > $"{!timestamp.[[0..7]]}-{!timestamp.[[8..11]]}-{!timestamp.[[12..15]]}-{!timesta
00:02:31 #13367 [verbose] > mp.[[16..17]]}{!guid.[[21..]]}"'
00:02:31 #13368 [verbose] > Building c:\home\git\polyglot\target\polyglot\spiral_eval\packages\dd804a77723e420c5a57736cdbf2be77fb03a4a57c3bafd4c11f90b33078be92\main.spi
00:02:31 #13369 [verbose] >
00:02:31 #13370 [verbose] > ╭─[ 286.62ms - stdout ]────────────────────────────────────────────────────────╮
00:02:31 #13371 [verbose] > │ () │
00:02:31 #13372 [verbose] > │ │
00:02:31 #13373 [verbose] > │ │
00:02:31 #13374 [verbose] > ╰──────────────────────────────────────────────────────────────────────────────╯
00:02:31 #13375 [verbose] >
00:02:31 #13376 [verbose] > ── spiral ──────────────────────────────────────────────────────────────────────
00:02:31 #13377 [verbose] > // // test
00:02:31 #13378 [verbose] >
00:02:31 #13379 [verbose] > timestamp_guid_from_timestamp (test_guid ()) (timestamp 0i64)
00:02:31 #13380 [verbose] > |> _assert_eq' (guid.new_guid "00000000-0000-0000-00dc-ba9876543210")
00:02:31 #13381 [verbose] > Building c:\home\git\polyglot\target\polyglot\spiral_eval\packages\bc6fb7c436c18c8aa92ececa628adf1dd954502262dc8723cfa55d404ed98e8a\main.spi
00:02:32 #13382 [verbose] >
00:02:32 #13383 [verbose] > ╭─[ 580.86ms - stdout ]────────────────────────────────────────────────────────╮
00:02:32 #13384 [verbose] > │ let rec method1 (v0 : bool) : bool = │
00:02:32 #13385 [verbose] > │ v0 │
00:02:32 #13386 [verbose] > │ and method0 () : unit = │
00:02:32 #13387 [verbose] > │ let v0 : string = "FEDCBA98-7654-3210-FEDC-BA9876543210" │
00:02:32 #13388 [verbose] > │ let v1 : System.Guid = System.Guid v0 │
00:02:32 #13389 [verbose] > │ let v2 : (System.Guid -> string) = _.ToString() │
00:02:32 #13390 [verbose] > │ let v3 : string = v2 v1 │
00:02:32 #13391 [verbose] > │ let v4 : (int64 -> string) = _.ToString() │
00:02:32 #13392 [verbose] > │ let v5 : string = v4 0L │
00:02:32 #13393 [verbose] > │ let v6 : string = v5.PadLeft (18, '0') │
00:02:32 #13394 [verbose] > │ let v7 : System.Guid = System.Guid $"{v6.[0..7]}-{v6.[8..11]}-{v6.[ │
00:02:32 #13395 [verbose] > │ 12..15]}-{v6.[16..17]}{v3.[21..]}" │
00:02:32 #13396 [verbose] > │ let v8 : string = "00000000-0000-0000-00dc-ba9876543210" │
00:02:32 #13397 [verbose] > │ let v9 : System.Guid = System.Guid v8 │
00:02:32 #13398 [verbose] > │ let v10 : string = $"%A{v7}" │
00:02:32 #13399 [verbose] > │ System.Console.WriteLine v10 │
00:02:32 #13400 [verbose] > │ let v11 : bool = v7 = v9 │
00:02:32 #13401 [verbose] > │ let v13 : bool = │
00:02:32 #13402 [verbose] > │ if v11 then │
00:02:32 #13403 [verbose] > │ true │
00:02:32 #13404 [verbose] > │ else │
00:02:32 #13405 [verbose] > │ method1(v11) │
00:02:32 #13406 [verbose] > │ let v14 : string = $"__expect / actual: %A{v7} / expected: %A{v9}" │
00:02:32 #13407 [verbose] > │ let v15 : bool = v13 = false │
00:02:32 #13408 [verbose] > │ if v15 then │
00:02:32 #13409 [verbose] > │ failwith<unit> v14 │
00:02:32 #13410 [verbose] > │ method0() │
00:02:32 #13411 [verbose] > │ │
00:02:32 #13412 [verbose] > │ 00000000-0000-0000-00dc-ba9876543210 │
00:02:32 #13413 [verbose] > │ │
00:02:32 #13414 [verbose] > ╰──────────────────────────────────────────────────────────────────────────────╯
00:02:32 #13415 [verbose] >
00:02:32 #13416 [verbose] > ── spiral ──────────────────────────────────────────────────────────────────────
00:02:32 #13417 [verbose] > // // test
00:02:32 #13418 [verbose] >
00:02:32 #13419 [verbose] > timestamp_guid_from_timestamp (test_guid ()) (timestamp 999999999999999999i64)
00:02:32 #13420 [verbose] > |> _assert_eq' (guid.new_guid $'$"99999999-9999-9999-99dc-b{(!test_guid () |>
00:02:32 #13421 [verbose] > string).[[^10..]]}"')
00:02:32 #13422 [verbose] > Building c:\home\git\polyglot\target\polyglot\spiral_eval\packages\441c8e928eec8c522bfadd0c955cacc7bce7fab0444bc17cec51763b63744f5c\main.spi
00:02:32 #13423 [verbose] >
00:02:32 #13424 [verbose] > ╭─[ 324.39ms - stdout ]────────────────────────────────────────────────────────╮
00:02:32 #13425 [verbose] > │ let rec closure0 () () : System.Guid = │
00:02:32 #13426 [verbose] > │ let v0 : string = "FEDCBA98-7654-3210-FEDC-BA9876543210" │
00:02:32 #13427 [verbose] > │ let v1 : System.Guid = System.Guid v0 │
00:02:32 #13428 [verbose] > │ v1 │
00:02:32 #13429 [verbose] > │ and method1 (v0 : bool) : bool = │
00:02:32 #13430 [verbose] > │ v0 │
00:02:32 #13431 [verbose] > │ and method0 () : unit = │
00:02:32 #13432 [verbose] > │ let v0 : string = "FEDCBA98-7654-3210-FEDC-BA9876543210" │
00:02:32 #13433 [verbose] > │ let v1 : System.Guid = System.Guid v0 │
00:02:32 #13434 [verbose] > │ let v2 : (System.Guid -> string) = _.ToString() │
00:02:32 #13435 [verbose] > │ let v3 : string = v2 v1 │
00:02:32 #13436 [verbose] > │ let v4 : (int64 -> string) = _.ToString() │
00:02:32 #13437 [verbose] > │ let v5 : string = v4 999999999999999999L │
00:02:32 #13438 [verbose] > │ let v6 : string = v5.PadLeft (18, '0') │
00:02:32 #13439 [verbose] > │ let v7 : System.Guid = System.Guid $"{v6.[0..7]}-{v6.[8..11]}-{v6.[ │
00:02:32 #13440 [verbose] > │ 12..15]}-{v6.[16..17]}{v3.[21..]}" │
00:02:32 #13441 [verbose] > │ let v8 : (unit -> System.Guid) = closure0() │
00:02:32 #13442 [verbose] > │ let v9 : string = $"99999999-9999-9999-99dc-b{(v8 () |> string).[ │
00:02:32 #13443 [verbose] > │ ^10..]}" │
00:02:32 #13444 [verbose] > │ let v10 : System.Guid = System.Guid v9 │
00:02:32 #13445 [verbose] > │ let v11 : string = $"%A{v7}" │
00:02:32 #13446 [verbose] > │ System.Console.WriteLine v11 │
00:02:32 #13447 [verbose] > │ let v12 : bool = v7 = v10 │
00:02:32 #13448 [verbose] > │ let v14 : bool = │
00:02:32 #13449 [verbose] > │ if v12 then │
00:02:32 #13450 [verbose] > │ true │
00:02:32 #13451 [verbose] > │ else │
00:02:32 #13452 [verbose] > │ method1(v12) │
00:02:32 #13453 [verbose] > │ let v15 : string = $"__expect / actual: %A{v7} / expected: %A{v10}" │
00:02:32 #13454 [verbose] > │ let v16 : bool = v14 = false │
00:02:32 #13455 [verbose] > │ if v16 then │
00:02:32 #13456 [verbose] > │ failwith<unit> v15 │
00:02:32 #13457 [verbose] > │ method0() │
00:02:32 #13458 [verbose] > │ │
00:02:32 #13459 [verbose] > │ 99999999-9999-9999-99dc-ba9876543210 │
00:02:32 #13460 [verbose] > │ │
00:02:32 #13461 [verbose] > ╰──────────────────────────────────────────────────────────────────────────────╯
00:02:32 #13462 [verbose] >
00:02:32 #13463 [verbose] > ── markdown ────────────────────────────────────────────────────────────────────
00:02:32 #13464 [verbose] > ╭──────────────────────────────────────────────────────────────────────────────╮
00:02:32 #13465 [verbose] > │ ## timestamp_from_guid │
00:02:32 #13466 [verbose] > ╰──────────────────────────────────────────────────────────────────────────────╯
00:02:32 #13467 [verbose] >
00:02:32 #13468 [verbose] > ── spiral ──────────────────────────────────────────────────────────────────────
00:02:32 #13469 [verbose] > inl timestamp_from_guid (guid : date_time_guid) : timestamp =
00:02:32 #13470 [verbose] > inl guid = guid |> sm'.obj_to_string
00:02:32 #13471 [verbose] > $'`i64
00:02:32 #13472 [verbose] > $"{!guid.[[0..7]]}{!guid.[[9..12]]}{!guid.[[14..17]]}{!guid.[[19..20]]}"'
00:02:32 #13473 [verbose] > Building c:\home\git\polyglot\target\polyglot\spiral_eval\packages\8519f31e8e492418788d8965b72ccddd5a9a0e1af15705892adc9680bd66a8e9\main.spi
00:02:32 #13474 [verbose] >
00:02:32 #13475 [verbose] > ╭─[ 254.75ms - stdout ]────────────────────────────────────────────────────────╮
00:02:32 #13476 [verbose] > │ () │
00:02:32 #13477 [verbose] > │ │
00:02:32 #13478 [verbose] > │ │
00:02:32 #13479 [verbose] > ╰──────────────────────────────────────────────────────────────────────────────╯
00:02:32 #13480 [verbose] >
00:02:32 #13481 [verbose] > ── spiral ──────────────────────────────────────────────────────────────────────
00:02:32 #13482 [verbose] > // // test
00:02:32 #13483 [verbose] >
00:02:32 #13484 [verbose] > timestamp_from_guid (guid.new_guid "00000000-0000-0000-00dc-ba9876543210")
00:02:32 #13485 [verbose] > |> _assert_eq (timestamp 0)
00:02:32 #13486 [verbose] > Building c:\home\git\polyglot\target\polyglot\spiral_eval\packages\ce3d2cef896a7bc4e764efd542594127898cafd9915ca93eafc126c63201b629\main.spi
00:02:33 #13487 [verbose] >
00:02:33 #13488 [verbose] > ╭─[ 294.95ms - stdout ]────────────────────────────────────────────────────────╮
00:02:33 #13489 [verbose] > │ let rec method1 (v0 : bool) : bool = │
00:02:33 #13490 [verbose] > │ v0 │
00:02:33 #13491 [verbose] > │ and method0 () : unit = │
00:02:33 #13492 [verbose] > │ let v0 : string = "00000000-0000-0000-00dc-ba9876543210" │
00:02:33 #13493 [verbose] > │ let v1 : System.Guid = System.Guid v0 │
00:02:33 #13494 [verbose] > │ let v2 : (System.Guid -> string) = _.ToString() │
00:02:33 #13495 [verbose] > │ let v3 : string = v2 v1 │
00:02:33 #13496 [verbose] > │ let v4 : int64 = int64 $"{v3.[0..7]}{v3.[9..12]}{v3.[14..17]}{v3.[ │
00:02:33 #13497 [verbose] > │ 19..20]}" │
00:02:33 #13498 [verbose] > │ let v5 : string = $"%A{v4}" │
00:02:33 #13499 [verbose] > │ System.Console.WriteLine v5 │
00:02:33 #13500 [verbose] > │ let v6 : bool = v4 = 0L │
00:02:33 #13501 [verbose] > │ let v8 : bool = │
00:02:33 #13502 [verbose] > │ if v6 then │
00:02:33 #13503 [verbose] > │ true │
00:02:33 #13504 [verbose] > │ else │
00:02:33 #13505 [verbose] > │ method1(v6) │
00:02:33 #13506 [verbose] > │ let v9 : string = $"__expect / actual: %A{v4} / expected: %A{0L}" │
00:02:33 #13507 [verbose] > │ let v10 : bool = v8 = false │
00:02:33 #13508 [verbose] > │ if v10 then │
00:02:33 #13509 [verbose] > │ failwith<unit> v9 │
00:02:33 #13510 [verbose] > │ method0() │
00:02:33 #13511 [verbose] > │ │
00:02:33 #13512 [verbose] > │ 0L │
00:02:33 #13513 [verbose] > │ │
00:02:33 #13514 [verbose] > ╰──────────────────────────────────────────────────────────────────────────────╯
00:02:33 #13515 [verbose] >
00:02:33 #13516 [verbose] > ── spiral ──────────────────────────────────────────────────────────────────────
00:02:33 #13517 [verbose] > // // test
00:02:33 #13518 [verbose] >
00:02:33 #13519 [verbose] > timestamp_from_guid (guid.new_guid $'$"99999999-9999-9999-99{(!test_guid () |>
00:02:33 #13520 [verbose] > string).[[^14..]]}"')
00:02:33 #13521 [verbose] > |> _assert_eq (timestamp 999999999999999999)
00:02:33 #13522 [verbose] > Building c:\home\git\polyglot\target\polyglot\spiral_eval\packages\e42bc905811dcb453d867e514b2307821753b982c37bc770aef9094e101946b2\main.spi
00:02:33 #13523 [verbose] >
00:02:33 #13524 [verbose] > ╭─[ 298.99ms - stdout ]────────────────────────────────────────────────────────╮
00:02:33 #13525 [verbose] > │ let rec closure0 () () : System.Guid = │
00:02:33 #13526 [verbose] > │ let v0 : string = "FEDCBA98-7654-3210-FEDC-BA9876543210" │
00:02:33 #13527 [verbose] > │ let v1 : System.Guid = System.Guid v0 │
00:02:33 #13528 [verbose] > │ v1 │
00:02:33 #13529 [verbose] > │ and method1 (v0 : bool) : bool = │
00:02:33 #13530 [verbose] > │ v0 │
00:02:33 #13531 [verbose] > │ and method0 () : unit = │
00:02:33 #13532 [verbose] > │ let v0 : (unit -> System.Guid) = closure0() │
00:02:33 #13533 [verbose] > │ let v1 : string = $"99999999-9999-9999-99{(v0 () |> string).[^14..]}" │
00:02:33 #13534 [verbose] > │ let v2 : System.Guid = System.Guid v1 │
00:02:33 #13535 [verbose] > │ let v3 : (System.Guid -> string) = _.ToString() │
00:02:33 #13536 [verbose] > │ let v4 : string = v3 v2 │
00:02:33 #13537 [verbose] > │ let v5 : int64 = int64 $"{v4.[0..7]}{v4.[9..12]}{v4.[14..17]}{v4.[ │
00:02:33 #13538 [verbose] > │ 19..20]}" │
00:02:33 #13539 [verbose] > │ let v6 : string = $"%A{v5}" │
00:02:33 #13540 [verbose] > │ System.Console.WriteLine v6 │
00:02:33 #13541 [verbose] > │ let v7 : bool = v5 = 999999999999999999L │
00:02:33 #13542 [verbose] > │ let v9 : bool = │
00:02:33 #13543 [verbose] > │ if v7 then │
00:02:33 #13544 [verbose] > │ true │
00:02:33 #13545 [verbose] > │ else │
00:02:33 #13546 [verbose] > │ method1(v7) │
00:02:33 #13547 [verbose] > │ let v10 : string = $"__expect / actual: %A{v5} / expected: │
00:02:33 #13548 [verbose] > │ %A{999999999999999999L}" │
00:02:33 #13549 [verbose] > │ let v11 : bool = v9 = false │
00:02:33 #13550 [verbose] > │ if v11 then │
00:02:33 #13551 [verbose] > │ failwith<unit> v10 │
00:02:33 #13552 [verbose] > │ method0() │
00:02:33 #13553 [verbose] > │ │
00:02:33 #13554 [verbose] > │ 999999999999999999L │
00:02:33 #13555 [verbose] > │ │
00:02:33 #13556 [verbose] > ╰──────────────────────────────────────────────────────────────────────────────╯
00:02:33 #13557 [verbose] >
00:02:33 #13558 [verbose] > ── markdown ────────────────────────────────────────────────────────────────────
00:02:33 #13559 [verbose] > ╭──────────────────────────────────────────────────────────────────────────────╮
00:02:33 #13560 [verbose] > │ ## now │
00:02:33 #13561 [verbose] > ╰──────────────────────────────────────────────────────────────────────────────╯
00:02:33 #13562 [verbose] >
00:02:33 #13563 [verbose] > ── spiral ──────────────────────────────────────────────────────────────────────
00:02:33 #13564 [verbose] > inl now () : date_time =
00:02:33 #13565 [verbose] > $'System.DateTime.Now'
00:02:33 #13566 [verbose] > Building c:\home\git\polyglot\target\polyglot\spiral_eval\packages\9b2bf3f0e9363fa129b9feb1a8421d0ce02032dc17aac966df9bfe25e300bed9\main.spi
00:02:33 #13567 [verbose] >
00:02:33 #13568 [verbose] > ╭─[ 260.90ms - stdout ]────────────────────────────────────────────────────────╮
00:02:33 #13569 [verbose] > │ () │
00:02:33 #13570 [verbose] > │ │
00:02:33 #13571 [verbose] > │ │
00:02:33 #13572 [verbose] > ╰──────────────────────────────────────────────────────────────────────────────╯
00:02:33 #13573 [verbose] >
00:02:33 #13574 [verbose] > ── markdown ────────────────────────────────────────────────────────────────────
00:02:33 #13575 [verbose] > ╭──────────────────────────────────────────────────────────────────────────────╮
00:02:33 #13576 [verbose] > │ ## utc_now │
00:02:33 #13577 [verbose] > ╰──────────────────────────────────────────────────────────────────────────────╯
00:02:33 #13578 [verbose] >
00:02:33 #13579 [verbose] > ── spiral ──────────────────────────────────────────────────────────────────────
00:02:33 #13580 [verbose] > inl utc_now () : date_time =
00:02:33 #13581 [verbose] > $'System.DateTime.UtcNow'
00:02:33 #13582 [verbose] > Building c:\home\git\polyglot\target\polyglot\spiral_eval\packages\ebe613da5bf4dd809cedc14f41e8f14dff3cf316f46714d5cae81546bc4faf4f\main.spi
00:02:33 #13583 [verbose] >
00:02:33 #13584 [verbose] > ╭─[ 228.38ms - stdout ]────────────────────────────────────────────────────────╮
00:02:33 #13585 [verbose] > │ () │
00:02:33 #13586 [verbose] > │ │
00:02:33 #13587 [verbose] > │ │
00:02:33 #13588 [verbose] > ╰──────────────────────────────────────────────────────────────────────────────╯
00:02:33 #13589 [verbose] >
00:02:33 #13590 [verbose] > ── markdown ────────────────────────────────────────────────────────────────────
00:02:33 #13591 [verbose] > ╭──────────────────────────────────────────────────────────────────────────────╮
00:02:33 #13592 [verbose] > │ ## time_span │
00:02:33 #13593 [verbose] > ╰──────────────────────────────────────────────────────────────────────────────╯
00:02:33 #13594 [verbose] >
00:02:33 #13595 [verbose] > ── spiral ──────────────────────────────────────────────────────────────────────
00:02:33 #13596 [verbose] > nominal time_span = $'System.TimeSpan'
00:02:33 #13597 [verbose] >
00:02:33 #13598 [verbose] > inl time_span x : time_span =
00:02:33 #13599 [verbose] > $'`time_span !x '
00:02:34 #13600 [verbose] > Building c:\home\git\polyglot\target\polyglot\spiral_eval\packages\109ffd69d9b2f5965eaf3937dbb312d7a8c3312687a8dfad3034b58b604f1913\main.spi
00:02:34 #13601 [verbose] >
00:02:34 #13602 [verbose] > ╭─[ 237.74ms - stdout ]────────────────────────────────────────────────────────╮
00:02:34 #13603 [verbose] > │ () │
00:02:34 #13604 [verbose] > │ │
00:02:34 #13605 [verbose] > │ │
00:02:34 #13606 [verbose] > ╰──────────────────────────────────────────────────────────────────────────────╯
00:02:34 #13607 [verbose] >
00:02:34 #13608 [verbose] > ── markdown ────────────────────────────────────────────────────────────────────
00:02:34 #13609 [verbose] > ╭──────────────────────────────────────────────────────────────────────────────╮
00:02:34 #13610 [verbose] > │ ## new_time_span │
00:02:34 #13611 [verbose] > ╰──────────────────────────────────────────────────────────────────────────────╯
00:02:34 #13612 [verbose] >
00:02:34 #13613 [verbose] > ── spiral ──────────────────────────────────────────────────────────────────────
00:02:34 #13614 [verbose] > inl new_time_span (a : date_time) (b : date_time) : time_span =
00:02:34 #13615 [verbose] > $'!b - !a '
00:02:34 #13616 [verbose] > Building c:\home\git\polyglot\target\polyglot\spiral_eval\packages\9e69038b4205ef39c57cdae2e3ab916e3944759811498dc6bdea3c719ae23fc1\main.spi
00:02:34 #13617 [verbose] >
00:02:34 #13618 [verbose] > ╭─[ 216.30ms - stdout ]────────────────────────────────────────────────────────╮
00:02:34 #13619 [verbose] > │ () │
00:02:34 #13620 [verbose] > │ │
00:02:34 #13621 [verbose] > │ │
00:02:34 #13622 [verbose] > ╰──────────────────────────────────────────────────────────────────────────────╯
00:02:34 #13623 [verbose] >
00:02:34 #13624 [verbose] > ── markdown ────────────────────────────────────────────────────────────────────
00:02:34 #13625 [verbose] > ╭──────────────────────────────────────────────────────────────────────────────╮
00:02:34 #13626 [verbose] > │ ## hours │
00:02:34 #13627 [verbose] > ╰──────────────────────────────────────────────────────────────────────────────╯
00:02:34 #13628 [verbose] >
00:02:34 #13629 [verbose] > ── spiral ──────────────────────────────────────────────────────────────────────
00:02:34 #13630 [verbose] > inl hours (time_span : time_span) : i32 =
00:02:34 #13631 [verbose] > time_span |> $'_.Hours'
00:02:34 #13632 [verbose] > Building c:\home\git\polyglot\target\polyglot\spiral_eval\packages\bb9256a6d62c73fbb090dd57c425b20110664e2c9392b56ebd558e2c38516c21\main.spi
00:02:34 #13633 [verbose] >
00:02:34 #13634 [verbose] > ╭─[ 253.28ms - stdout ]────────────────────────────────────────────────────────╮
00:02:34 #13635 [verbose] > │ () │
00:02:34 #13636 [verbose] > │ │
00:02:34 #13637 [verbose] > │ │
00:02:34 #13638 [verbose] > ╰──────────────────────────────────────────────────────────────────────────────╯
00:02:34 #13639 [verbose] >
00:02:34 #13640 [verbose] > ── markdown ────────────────────────────────────────────────────────────────────
00:02:34 #13641 [verbose] > ╭──────────────────────────────────────────────────────────────────────────────╮
00:02:34 #13642 [verbose] > │ ## milliseconds │
00:02:34 #13643 [verbose] > ╰──────────────────────────────────────────────────────────────────────────────╯
00:02:34 #13644 [verbose] >
00:02:34 #13645 [verbose] > ── spiral ──────────────────────────────────────────────────────────────────────
00:02:34 #13646 [verbose] > inl milliseconds (time_span : time_span) : i32 =
00:02:34 #13647 [verbose] > time_span |> $'_.Milliseconds'
00:02:34 #13648 [verbose] > Building c:\home\git\polyglot\target\polyglot\spiral_eval\packages\d5574b50c7200e926f1b349e352fe1e7abfadf37427ed15a34bf157c9008bc33\main.spi
00:02:34 #13649 [verbose] >
00:02:34 #13650 [verbose] > ╭─[ 271.09ms - stdout ]────────────────────────────────────────────────────────╮
00:02:34 #13651 [verbose] > │ () │
00:02:34 #13652 [verbose] > │ │
00:02:34 #13653 [verbose] > │ │
00:02:34 #13654 [verbose] > ╰──────────────────────────────────────────────────────────────────────────────╯
00:02:34 #13655 [verbose] >
00:02:34 #13656 [verbose] > ── markdown ────────────────────────────────────────────────────────────────────
00:02:34 #13657 [verbose] > ╭──────────────────────────────────────────────────────────────────────────────╮
00:02:34 #13658 [verbose] > │ ## minutes │
00:02:34 #13659 [verbose] > ╰──────────────────────────────────────────────────────────────────────────────╯
00:02:34 #13660 [verbose] >
00:02:34 #13661 [verbose] > ── spiral ──────────────────────────────────────────────────────────────────────
00:02:34 #13662 [verbose] > inl minutes (time_span : time_span) : i32 =
00:02:34 #13663 [verbose] > time_span |> $'_.Minutes'
00:02:35 #13664 [verbose] > Building c:\home\git\polyglot\target\polyglot\spiral_eval\packages\a8e61c615e56bc8fa3075e489a9b19f50b4a8e009192e5400e39cd853353a025\main.spi
00:02:35 #13665 [verbose] >
00:02:35 #13666 [verbose] > ╭─[ 223.24ms - stdout ]────────────────────────────────────────────────────────╮
00:02:35 #13667 [verbose] > │ () │
00:02:35 #13668 [verbose] > │ │
00:02:35 #13669 [verbose] > │ │
00:02:35 #13670 [verbose] > ╰──────────────────────────────────────────────────────────────────────────────╯
00:02:35 #13671 [verbose] >
00:02:35 #13672 [verbose] > ── markdown ────────────────────────────────────────────────────────────────────
00:02:35 #13673 [verbose] > ╭──────────────────────────────────────────────────────────────────────────────╮
00:02:35 #13674 [verbose] > │ ## seconds │
00:02:35 #13675 [verbose] > ╰──────────────────────────────────────────────────────────────────────────────╯
00:02:35 #13676 [verbose] >
00:02:35 #13677 [verbose] > ── spiral ──────────────────────────────────────────────────────────────────────
00:02:35 #13678 [verbose] > inl seconds (time_span : time_span) : i32 =
00:02:35 #13679 [verbose] > time_span |> $'_.Seconds'
00:02:35 #13680 [verbose] > Building c:\home\git\polyglot\target\polyglot\spiral_eval\packages\39e35736357412761a9a7762f0f4e6fbadb1d7a031649a95a3e1f719555f4bec\main.spi
00:02:35 #13681 [verbose] >
00:02:35 #13682 [verbose] > ╭─[ 212.39ms - stdout ]────────────────────────────────────────────────────────╮
00:02:35 #13683 [verbose] > │ () │
00:02:35 #13684 [verbose] > │ │
00:02:35 #13685 [verbose] > │ │
00:02:35 #13686 [verbose] > ╰──────────────────────────────────────────────────────────────────────────────╯
00:02:35 #13687 [verbose] >
00:02:35 #13688 [verbose] > ── markdown ────────────────────────────────────────────────────────────────────
00:02:35 #13689 [verbose] > ╭──────────────────────────────────────────────────────────────────────────────╮
00:02:35 #13690 [verbose] > │ ## total_seconds │
00:02:35 #13691 [verbose] > ╰──────────────────────────────────────────────────────────────────────────────╯
00:02:35 #13692 [verbose] >
00:02:35 #13693 [verbose] > ── spiral ──────────────────────────────────────────────────────────────────────
00:02:35 #13694 [verbose] > inl total_seconds (time_span : time_span) : f64 =
00:02:35 #13695 [verbose] > time_span |> $'_.TotalSeconds'
00:02:35 #13696 [verbose] > Building c:\home\git\polyglot\target\polyglot\spiral_eval\packages\b2fff9f63e5fa696b7412e78453cc436278a22971418fbe0df9e652ec7e25565\main.spi
00:02:35 #13697 [verbose] >
00:02:35 #13698 [verbose] > ╭─[ 230.21ms - stdout ]────────────────────────────────────────────────────────╮
00:02:35 #13699 [verbose] > │ () │
00:02:35 #13700 [verbose] > │ │
00:02:35 #13701 [verbose] > │ │
00:02:35 #13702 [verbose] > ╰──────────────────────────────────────────────────────────────────────────────╯
00:02:35 #13703 [verbose] >
00:02:35 #13704 [verbose] > ── markdown ────────────────────────────────────────────────────────────────────
00:02:35 #13705 [verbose] > ╭──────────────────────────────────────────────────────────────────────────────╮
00:02:35 #13706 [verbose] > │ ## new_guid_from_date_time │
00:02:35 #13707 [verbose] > ╰──────────────────────────────────────────────────────────────────────────────╯
00:02:35 #13708 [verbose] >
00:02:35 #13709 [verbose] > ── spiral ──────────────────────────────────────────────────────────────────────
00:02:35 #13710 [verbose] > inl new_guid_from_date_time (date_time : date_time) =
00:02:35 #13711 [verbose] > inl guid = guid.new_raw_guid ()
00:02:35 #13712 [verbose] > date_time_guid_from_date_time guid date_time
00:02:35 #13713 [verbose] > Building c:\home\git\polyglot\target\polyglot\spiral_eval\packages\e725cec876cee814f44bfecbd3499712237b5e797d8519f4d503247d946dc308\main.spi
00:02:35 #13714 [verbose] >
00:02:35 #13715 [verbose] > ╭─[ 230.69ms - stdout ]────────────────────────────────────────────────────────╮
00:02:35 #13716 [verbose] > │ () │
00:02:35 #13717 [verbose] > │ │
00:02:35 #13718 [verbose] > │ │
00:02:35 #13719 [verbose] > ╰──────────────────────────────────────────────────────────────────────────────╯
00:02:35 #13720 [verbose] >
00:02:35 #13721 [verbose] > ── spiral ──────────────────────────────────────────────────────────────────────
00:02:35 #13722 [verbose] > // // test
00:02:35 #13723 [verbose] >
00:02:35 #13724 [verbose] > utc_now ()
00:02:35 #13725 [verbose] > |> new_guid_from_date_time
00:02:35 #13726 [verbose] > |> date_time_from_guid
00:02:35 #13727 [verbose] > |> fun date_time => new_time_span date_time (utc_now ()) |> total_seconds |> i32
00:02:35 #13728 [verbose] > |> _assert_eq 0
00:02:35 #13729 [verbose] > Building c:\home\git\polyglot\target\polyglot\spiral_eval\packages\d45bb92bf6e105f39b5c0bf32cfba1c6b14ddcb905aa2f48dcc8a1772413f2d7\main.spi
00:02:36 #13730 [verbose] >
00:02:36 #13731 [verbose] > ╭─[ 302.90ms - stdout ]────────────────────────────────────────────────────────╮
00:02:36 #13732 [verbose] > │ let rec closure2 (v0 : string, v1 : string) (v2 : string) : string = │
00:02:36 #13733 [verbose] > │ let v3 : string = v2.Replace (v0, v1) │
00:02:36 #13734 [verbose] > │ v3 │
00:02:36 #13735 [verbose] > │ and closure1 (v0 : string) (v1 : string) : (string -> string) = │
00:02:36 #13736 [verbose] > │ closure2(v0, v1) │
00:02:36 #13737 [verbose] > │ and closure0 () (v0 : string) : (string -> (string -> string)) = │
00:02:36 #13738 [verbose] > │ closure1(v0) │
00:02:36 #13739 [verbose] > │ and method1 () : (string -> (string -> (string -> string))) = │
00:02:36 #13740 [verbose] > │ closure0() │
00:02:36 #13741 [verbose] > │ and method2 (v0 : bool) : bool = │
00:02:36 #13742 [verbose] > │ v0 │
00:02:36 #13743 [verbose] > │ and method0 () : unit = │
00:02:36 #13744 [verbose] > │ let v0 : System.DateTime = System.DateTime.UtcNow │
00:02:36 #13745 [verbose] > │ let v1 : System.Guid = System.Guid.NewGuid () │
00:02:36 #13746 [verbose] > │ let v2 : (System.Guid -> string) = _.ToString() │
00:02:36 #13747 [verbose] > │ let v3 : string = v2 v1 │
00:02:36 #13748 [verbose] > │ let v4 : string = v0.ToString "yyyyMMdd-HHmm-ssff-ffff-f" │
00:02:36 #13749 [verbose] > │ let v5 : System.Guid = System.Guid $"{v4}{v3.[v4.Length..]}" │
00:02:36 #13750 [verbose] > │ let v6 : (System.Guid -> string) = _.ToString() │
00:02:36 #13751 [verbose] > │ let v7 : string = v6 v5 │
00:02:36 #13752 [verbose] > │ let v8 : (string -> (string -> (string -> string))) = method1() │
00:02:36 #13753 [verbose] > │ let v9 : System.DateTime option = None │
00:02:36 #13754 [verbose] > │ let mutable _v9 = v9 │
00:02:36 #13755 [verbose] > │ #if FABLE_COMPILER_RUST && !WASM && !CONTRACT │
00:02:36 #13756 [verbose] > │ let v10 : System.DateTime = System.DateTime.Parse (v7.[..24] |> v8 "-" │
00:02:36 #13757 [verbose] > │ "") │
00:02:36 #13758 [verbose] > │ v10 │
00:02:36 #13759 [verbose] > │ #endif │
00:02:36 #13760 [verbose] > │ #if FABLE_COMPILER_RUST && WASM │
00:02:36 #13761 [verbose] > │ let v11 : System.DateTime = System.DateTime.Parse (v7.[..24] |> v8 "-" │
00:02:36 #13762 [verbose] > │ "") │
00:02:36 #13763 [verbose] > │ v11 │
00:02:36 #13764 [verbose] > │ #endif │
00:02:36 #13765 [verbose] > │ #if FABLE_COMPILER_RUST && CONTRACT │
00:02:36 #13766 [verbose] > │ let v12 : System.DateTime = System.DateTime.Parse (v7.[..24] |> v8 "-" │
00:02:36 #13767 [verbose] > │ "") │
00:02:36 #13768 [verbose] > │ v12 │
00:02:36 #13769 [verbose] > │ #endif │
00:02:36 #13770 [verbose] > │ #if !FABLE_COMPILER && !FABLE_COMPILER_RUST && │
00:02:36 #13771 [verbose] > │ !FABLE_COMPILER_TYPESCRIPT && !WASM && !CONTRACT │
00:02:36 #13772 [verbose] > │ let v13 : System.DateTime = System.DateTime.ParseExact (v7.[..24] |> v8 │
00:02:36 #13773 [verbose] > │ "-" "", "yyyyMMddHHmmssfffffff", null) │
00:02:36 #13774 [verbose] > │ v13 │
00:02:36 #13775 [verbose] > │ #endif │
00:02:36 #13776 [verbose] > │ #if FABLE_COMPILER_TYPESCRIPT │
00:02:36 #13777 [verbose] > │ let v14 : System.DateTime = System.DateTime.ParseExact (v7.[..24] |> v8 │
00:02:36 #13778 [verbose] > │ "-" "", "yyyyMMddHHmmssfffffff", null) │
00:02:36 #13779 [verbose] > │ v14 │
00:02:36 #13780 [verbose] > │ #endif │
00:02:36 #13781 [verbose] > │ #if FABLE_COMPILER_PYTHON || FABLE_COMPILER_PHP || FABLE_COMPILER_DART │
00:02:36 #13782 [verbose] > │ let v15 : System.DateTime = Unchecked.defaultof<System.DateTime> │
00:02:36 #13783 [verbose] > │ v15 │
00:02:36 #13784 [verbose] > │ #endif │
00:02:36 #13785 [verbose] > │ |> fun x -> _v9 <- Some x │
00:02:36 #13786 [verbose] > │ let v16 : System.DateTime = _v9.Value │
00:02:36 #13787 [verbose] > │ let v17 : System.DateTime = System.DateTime.UtcNow │
00:02:36 #13788 [verbose] > │ let v18 : System.TimeSpan = v17 - v16 │
00:02:36 #13789 [verbose] > │ let v19 : (System.TimeSpan -> float) = _.TotalSeconds │
00:02:36 #13790 [verbose] > │ let v20 : float = v19 v18 │
00:02:36 #13791 [verbose] > │ let v21 : int32 = int32 v20 │
00:02:36 #13792 [verbose] > │ let v22 : string = $"%A{v21}" │
00:02:36 #13793 [verbose] > │ System.Console.WriteLine v22 │
00:02:36 #13794 [verbose] > │ let v23 : bool = v21 = 0 │
00:02:36 #13795 [verbose] > │ let v25 : bool = │
00:02:36 #13796 [verbose] > │ if v23 then │
00:02:36 #13797 [verbose] > │ true │
00:02:36 #13798 [verbose] > │ else │
00:02:36 #13799 [verbose] > │ method2(v23) │
00:02:36 #13800 [verbose] > │ let v26 : string = $"__expect / actual: %A{v21} / expected: %A{0}" │
00:02:36 #13801 [verbose] > │ let v27 : bool = v25 = false │
00:02:36 #13802 [verbose] > │ if v27 then │
00:02:36 #13803 [verbose] > │ failwith<unit> v26 │
00:02:36 #13804 [verbose] > │ method0() │
00:02:36 #13805 [verbose] > │ │
00:02:36 #13806 [verbose] > │ 0 │
00:02:36 #13807 [verbose] > │ │
00:02:36 #13808 [verbose] > ╰──────────────────────────────────────────────────────────────────────────────╯
00:02:36 #13809 [verbose] >
00:02:36 #13810 [verbose] > ── markdown ────────────────────────────────────────────────────────────────────
00:02:36 #13811 [verbose] > ╭──────────────────────────────────────────────────────────────────────────────╮
00:02:36 #13812 [verbose] > │ ## new_guid_from_timestamp │
00:02:36 #13813 [verbose] > ╰──────────────────────────────────────────────────────────────────────────────╯
00:02:36 #13814 [verbose] >
00:02:36 #13815 [verbose] > ── spiral ──────────────────────────────────────────────────────────────────────
00:02:36 #13816 [verbose] > inl new_guid_from_timestamp (timestamp : timestamp) =
00:02:36 #13817 [verbose] > inl guid = guid.new_raw_guid ()
00:02:36 #13818 [verbose] > timestamp_guid_from_timestamp guid timestamp
00:02:36 #13819 [verbose] > Building c:\home\git\polyglot\target\polyglot\spiral_eval\packages\0e1cd384d747729d265b0862373747f61cec9e349ec174b9a84b8f1607e7fdd4\main.spi
00:02:36 #13820 [verbose] >
00:02:36 #13821 [verbose] > ╭─[ 212.59ms - stdout ]────────────────────────────────────────────────────────╮
00:02:36 #13822 [verbose] > │ () │
00:02:36 #13823 [verbose] > │ │
00:02:36 #13824 [verbose] > │ │
00:02:36 #13825 [verbose] > ╰──────────────────────────────────────────────────────────────────────────────╯
00:02:36 #13826 [verbose] >
00:02:36 #13827 [verbose] > ── spiral ──────────────────────────────────────────────────────────────────────
00:02:36 #13828 [verbose] > // // test
00:02:36 #13829 [verbose] >
00:02:36 #13830 [verbose] > utc_now ()
00:02:36 #13831 [verbose] > |> ticks
00:02:36 #13832 [verbose] > |> new_guid_from_timestamp
00:02:36 #13833 [verbose] > |> timestamp_from_guid
00:02:36 #13834 [verbose] > |> fun (timestamp timestamp) => (timestamp - (utc_now () |> ticks |> fun
00:02:36 #13835 [verbose] > (timestamp x) => x)) / 100000i64
00:02:36 #13836 [verbose] > |> _assert_eq 0i64
00:02:36 #13837 [verbose] > Building c:\home\git\polyglot\target\polyglot\spiral_eval\packages\5846d31998d401a2e757fab667b15d484917cdd5804b10026327da3af42cbb2c\main.spi
00:02:36 #13838 [verbose] >
00:02:36 #13839 [verbose] > ╭─[ 277.92ms - stdout ]────────────────────────────────────────────────────────╮
00:02:36 #13840 [verbose] > │ let rec method1 (v0 : bool) : bool = │
00:02:36 #13841 [verbose] > │ v0 │
00:02:36 #13842 [verbose] > │ and method0 () : unit = │
00:02:36 #13843 [verbose] > │ let v0 : System.DateTime = System.DateTime.UtcNow │
00:02:36 #13844 [verbose] > │ let v1 : (System.DateTime -> int64) = _.Ticks │
00:02:36 #13845 [verbose] > │ let v2 : int64 = v1 v0 │
00:02:36 #13846 [verbose] > │ let v3 : System.Guid = System.Guid.NewGuid () │
00:02:36 #13847 [verbose] > │ let v4 : (System.Guid -> string) = _.ToString() │
00:02:36 #13848 [verbose] > │ let v5 : string = v4 v3 │
00:02:36 #13849 [verbose] > │ let v6 : (int64 -> string) = _.ToString() │
00:02:36 #13850 [verbose] > │ let v7 : string = v6 v2 │
00:02:36 #13851 [verbose] > │ let v8 : string = v7.PadLeft (18, '0') │
00:02:36 #13852 [verbose] > │ let v9 : System.Guid = System.Guid $"{v8.[0..7]}-{v8.[8..11]}-{v8.[ │
00:02:36 #13853 [verbose] > │ 12..15]}-{v8.[16..17]}{v5.[21..]}" │
00:02:36 #13854 [verbose] > │ let v10 : (System.Guid -> string) = _.ToString() │
00:02:36 #13855 [verbose] > │ let v11 : string = v10 v9 │
00:02:36 #13856 [verbose] > │ let v12 : int64 = int64 $"{v11.[0..7]}{v11.[9..12]}{v11.[14..17]}{v11.[ │
00:02:36 #13857 [verbose] > │ 19..20]}" │
00:02:36 #13858 [verbose] > │ let v13 : System.DateTime = System.DateTime.UtcNow │
00:02:36 #13859 [verbose] > │ let v14 : (System.DateTime -> int64) = _.Ticks │
00:02:36 #13860 [verbose] > │ let v15 : int64 = v14 v13 │
00:02:36 #13861 [verbose] > │ let v16 : int64 = v12 - v15 │
00:02:36 #13862 [verbose] > │ let v17 : int64 = v16 / 100000L │
00:02:36 #13863 [verbose] > │ let v18 : string = $"%A{v17}" │
00:02:36 #13864 [verbose] > │ System.Console.WriteLine v18 │
00:02:36 #13865 [verbose] > │ let v19 : bool = v17 = 0L │
00:02:36 #13866 [verbose] > │ let v21 : bool = │
00:02:36 #13867 [verbose] > │ if v19 then │
00:02:36 #13868 [verbose] > │ true │
00:02:36 #13869 [verbose] > │ else │
00:02:36 #13870 [verbose] > │ method1(v19) │
00:02:36 #13871 [verbose] > │ let v22 : string = $"__expect / actual: %A{v17} / expected: %A{0L}" │
00:02:36 #13872 [verbose] > │ let v23 : bool = v21 = false │
00:02:36 #13873 [verbose] > │ if v23 then │
00:02:36 #13874 [verbose] > │ failwith<unit> v22 │
00:02:36 #13875 [verbose] > │ method0() │
00:02:36 #13876 [verbose] > │ │
00:02:36 #13877 [verbose] > │ 0L │
00:02:36 #13878 [verbose] > │ │
00:02:36 #13879 [verbose] > ╰──────────────────────────────────────────────────────────────────────────────╯
00:02:36 #13880 [verbose] >
00:02:36 #13881 [verbose] > ── fsharp ──────────────────────────────────────────────────────────────────────
00:02:36 #13882 [verbose] > //// test
00:02:36 #13883 [verbose] >
00:02:36 #13884 [verbose] > type DateTimeWithZone = {
00:02:36 #13885 [verbose] > DateTime: System.DateTimeOffset
00:02:36 #13886 [verbose] > TimeZone: System.TimeZoneInfo
00:02:36 #13887 [verbose] > }
00:02:36 #13888 [verbose] >
00:02:36 #13889 [verbose] > try
00:02:36 #13890 [verbose] > let now = System.DateTimeOffset.Now
00:02:36 #13891 [verbose] > let timeZoneInfo = System.TimeZoneInfo.Local
00:02:36 #13892 [verbose] > let dateTimeWithZone = { DateTime = now; TimeZone = timeZoneInfo }
00:02:36 #13893 [verbose] >
00:02:36 #13894 [verbose] > printfn "DateTime: %O" dateTimeWithZone.DateTime
00:02:36 #13895 [verbose] > printfn "Time Zone: %s" dateTimeWithZone.TimeZone.DisplayName
00:02:36 #13896 [verbose] > printfn "Is DST: %b"
00:02:36 #13897 [verbose] > (timeZoneInfo.IsDaylightSavingTime(dateTimeWithZone.DateTime.DateTime))
00:02:36 #13898 [verbose] > printfn "v1: %s" (dateTimeWithZone.TimeZone.GetUtcOffset(now) |> string)
00:02:36 #13899 [verbose] > printfn "v2: %s" (dateTimeWithZone.TimeZone |> string)
00:02:36 #13900 [verbose] > with ex ->
00:02:36 #13901 [verbose] > printfn "error: %A" ex
00:02:36 #13902 [verbose] >
00:02:36 #13903 [verbose] > ── fsharp - import ─────────────────────────────────────────────────────────────
00:02:36 #13904 [verbose] > #r
00:02:36 #13905 [verbose] > "C:/Users/i574n/.nuget/packages/dotnet-repl/0.1.204/tools/net7.0/any/Microsoft.A
00:02:36 #13906 [verbose] > spNetCore.Html.Abstractions.dll"
00:02:36 #13907 [verbose] > #r
00:02:36 #13908 [verbose] > "C:/Users/i574n/.nuget/packages/dotnet-repl/0.1.204/tools/net7.0/any/Microsoft.D
00:02:36 #13909 [verbose] > otNet.Interactive.dll"
00:02:36 #13910 [verbose] > #r
00:02:36 #13911 [verbose] > "C:/Users/i574n/.nuget/packages/dotnet-repl/0.1.204/tools/net7.0/any/Microsoft.D
00:02:36 #13912 [verbose] > otNet.Interactive.FSharp.dll"
00:02:36 #13913 [verbose] > #r
00:02:36 #13914 [verbose] > "C:/Users/i574n/.nuget/packages/dotnet-repl/0.1.204/tools/net7.0/any/Microsoft.D
00:02:36 #13915 [verbose] > otNet.Interactive.Formatting.dll"
00:02:36 #13916 [verbose] > open System
00:02:36 #13917 [verbose] > open System.IO
00:02:36 #13918 [verbose] > open System.Text
00:02:36 #13919 [verbose] > open Microsoft.DotNet.Interactive.Formatting
00:02:37 #13920 [verbose] >
00:02:37 #13921 [verbose] > ── fsharp - import ─────────────────────────────────────────────────────────────
00:02:37 #13922 [verbose] > #r
00:02:37 #13923 [verbose] > "C:/Users/i574n/.nuget/packages/dotnet-repl/0.1.204/tools/net7.0/any/Microsoft.D
00:02:37 #13924 [verbose] > otNet.Interactive.FSharp.dll"
00:02:37 #13925 [verbose] > open Microsoft.DotNet.Interactive.FSharp.FSharpKernelHelpers
00:02:37 #13926 [verbose] > #r
00:02:37 #13927 [verbose] > "C:/Users/i574n/.nuget/packages/dotnet-repl/0.1.204/tools/net7.0/any/Microsoft.D
00:02:37 #13928 [verbose] > otNet.Interactive.dll"
00:02:37 #13929 [verbose] > open type Microsoft.DotNet.Interactive.Kernel
00:02:38 #13930 [verbose] >
00:02:38 #13931 [verbose] > ╭─[ 1.74s - stdout ]───────────────────────────────────────────────────────────╮
00:02:38 #13932 [verbose] > │ DateTime: 2024-04-13 4:54:48 AM -04:00 │
00:02:38 #13933 [verbose] > │ Time Zone: (UTC-04:00) Cuiaba │
00:02:38 #13934 [verbose] > │ Is DST: false │
00:02:38 #13935 [verbose] > │ v1: -04:00:00 │
00:02:38 #13936 [verbose] > │ v2: (UTC-04:00) Cuiaba │
00:02:38 #13937 [verbose] > │ │
00:02:38 #13938 [verbose] > ╰──────────────────────────────────────────────────────────────────────────────╯
00:02:38 #13939 [verbose] >
00:02:38 #13940 [verbose] > ── markdown ────────────────────────────────────────────────────────────────────
00:02:38 #13941 [verbose] > ╭──────────────────────────────────────────────────────────────────────────────╮
00:02:38 #13942 [verbose] > │ ## main │
00:02:38 #13943 [verbose] > ╰──────────────────────────────────────────────────────────────────────────────╯
00:02:38 #13944 [verbose] >
00:02:38 #13945 [verbose] > ── spiral ──────────────────────────────────────────────────────────────────────
00:02:38 #13946 [verbose] > inl main () =
00:02:38 #13947 [verbose] > $"let date_time_guid_from_date_time x = !date_time_guid_from_date_time x" :
00:02:38 #13948 [verbose] > ()
00:02:38 #13949 [verbose] > $"let date_time_from_guid x = !date_time_from_guid x" : ()
00:02:38 #13950 [verbose] > $"let timestamp_guid_from_timestamp x = !timestamp_guid_from_timestamp x" :
00:02:38 #13951 [verbose] > ()
00:02:38 #13952 [verbose] > $"let timestamp_from_guid x = !timestamp_from_guid x" : ()
00:02:38 #13953 [verbose] > $"let new_guid_from_date_time x = !new_guid_from_date_time x" : ()
00:02:38 #13954 [verbose] > $"let new_guid_from_timestamp x = !new_guid_from_timestamp x" : ()
00:02:38 #13955 [verbose] > $"let format x = !format x" : ()
00:02:38 #13956 [verbose] > $"let format_iso8601 x = !format_iso8601 x" : ()
00:02:38 #13957 [verbose] > Building c:\home\git\polyglot\target\polyglot\spiral_eval\packages\b9c850e35eb53c1eda15e438d943363d5e17137f923f3b45e350f3a7cb3a8035\main.spi
00:02:38 #13958 [verbose] >
00:02:38 #13959 [verbose] > ╭─[ 412.98ms - stdout ]────────────────────────────────────────────────────────╮
00:02:38 #13960 [verbose] > │ let rec closure1 (v0 : System.Guid) (v1 : System.DateTime) : System.Guid = │
00:02:38 #13961 [verbose] > │ let v2 : (System.Guid -> string) = _.ToString() │
00:02:38 #13962 [verbose] > │ let v3 : string = v2 v0 │
00:02:38 #13963 [verbose] > │ let v4 : string = v1.ToString "yyyyMMdd-HHmm-ssff-ffff-f" │
00:02:38 #13964 [verbose] > │ let v5 : System.Guid = System.Guid $"{v4}{v3.[v4.Length..]}" │
00:02:38 #13965 [verbose] > │ v5 │
00:02:38 #13966 [verbose] > │ and closure0 () (v0 : System.Guid) : (System.DateTime -> System.Guid) = │
00:02:38 #13967 [verbose] > │ closure1(v0) │
00:02:38 #13968 [verbose] > │ and closure5 (v0 : string, v1 : string) (v2 : string) : string = │
00:02:38 #13969 [verbose] > │ let v3 : string = v2.Replace (v0, v1) │
00:02:38 #13970 [verbose] > │ v3 │
00:02:38 #13971 [verbose] > │ and closure4 (v0 : string) (v1 : string) : (string -> string) = │
00:02:38 #13972 [verbose] > │ closure5(v0, v1) │
00:02:38 #13973 [verbose] > │ and closure3 () (v0 : string) : (string -> (string -> string)) = │
00:02:38 #13974 [verbose] > │ closure4(v0) │
00:02:38 #13975 [verbose] > │ and method0 () : (string -> (string -> (string -> string))) = │
00:02:38 #13976 [verbose] > │ closure3() │
00:02:38 #13977 [verbose] > │ and closure2 () (v0 : System.Guid) : System.DateTime = │
00:02:38 #13978 [verbose] > │ let v1 : (System.Guid -> string) = _.ToString() │
00:02:38 #13979 [verbose] > │ let v2 : string = v1 v0 │
00:02:38 #13980 [verbose] > │ let v3 : (string -> (string -> (string -> string))) = method0() │
00:02:38 #13981 [verbose] > │ let v4 : System.DateTime option = None │
00:02:38 #13982 [verbose] > │ let mutable _v4 = v4 │
00:02:38 #13983 [verbose] > │ #if FABLE_COMPILER_RUST && !WASM && !CONTRACT │
00:02:38 #13984 [verbose] > │ let v5 : System.DateTime = System.DateTime.Parse (v2.[..24] |> v3 "-" │
00:02:38 #13985 [verbose] > │ "") │
00:02:38 #13986 [verbose] > │ v5 │
00:02:38 #13987 [verbose] > │ #endif │
00:02:38 #13988 [verbose] > │ #if FABLE_COMPILER_RUST && WASM │
00:02:38 #13989 [verbose] > │ let v6 : System.DateTime = System.DateTime.Parse (v2.[..24] |> v3 "-" │
00:02:38 #13990 [verbose] > │ "") │
00:02:38 #13991 [verbose] > │ v6 │
00:02:38 #13992 [verbose] > │ #endif │
00:02:38 #13993 [verbose] > │ #if FABLE_COMPILER_RUST && CONTRACT │
00:02:38 #13994 [verbose] > │ let v7 : System.DateTime = System.DateTime.Parse (v2.[..24] |> v3 "-" │
00:02:38 #13995 [verbose] > │ "") │
00:02:38 #13996 [verbose] > │ v7 │
00:02:38 #13997 [verbose] > │ #endif │
00:02:38 #13998 [verbose] > │ #if !FABLE_COMPILER && !FABLE_COMPILER_RUST && │
00:02:38 #13999 [verbose] > │ !FABLE_COMPILER_TYPESCRIPT && !WASM && !CONTRACT │
00:02:38 #14000 [verbose] > │ let v8 : System.DateTime = System.DateTime.ParseExact (v2.[..24] |> v3 │
00:02:38 #14001 [verbose] > │ "-" "", "yyyyMMddHHmmssfffffff", null) │
00:02:38 #14002 [verbose] > │ v8 │
00:02:38 #14003 [verbose] > │ #endif │
00:02:38 #14004 [verbose] > │ #if FABLE_COMPILER_TYPESCRIPT │
00:02:38 #14005 [verbose] > │ let v9 : System.DateTime = System.DateTime.ParseExact (v2.[..24] |> v3 │
00:02:38 #14006 [verbose] > │ "-" "", "yyyyMMddHHmmssfffffff", null) │
00:02:38 #14007 [verbose] > │ v9 │
00:02:38 #14008 [verbose] > │ #endif │
00:02:38 #14009 [verbose] > │ #if FABLE_COMPILER_PYTHON || FABLE_COMPILER_PHP || FABLE_COMPILER_DART │
00:02:38 #14010 [verbose] > │ let v10 : System.DateTime = Unchecked.defaultof<System.DateTime> │
00:02:38 #14011 [verbose] > │ v10 │
00:02:38 #14012 [verbose] > │ #endif │
00:02:38 #14013 [verbose] > │ |> fun x -> _v4 <- Some x │
00:02:38 #14014 [verbose] > │ let v11 : System.DateTime = _v4.Value │
00:02:38 #14015 [verbose] > │ v11 │
00:02:38 #14016 [verbose] > │ and closure7 (v0 : System.Guid) (v1 : int64) : System.Guid = │
00:02:38 #14017 [verbose] > │ let v2 : (System.Guid -> string) = _.ToString() │
00:02:38 #14018 [verbose] > │ let v3 : string = v2 v0 │
00:02:38 #14019 [verbose] > │ let v4 : (int64 -> string) = _.ToString() │
00:02:38 #14020 [verbose] > │ let v5 : string = v4 v1 │
00:02:38 #14021 [verbose] > │ let v6 : string = v5.PadLeft (18, '0') │
00:02:38 #14022 [verbose] > │ let v7 : System.Guid = System.Guid $"{v6.[0..7]}-{v6.[8..11]}-{v6.[ │
00:02:38 #14023 [verbose] > │ 12..15]}-{v6.[16..17]}{v3.[21..]}" │
00:02:38 #14024 [verbose] > │ v7 │
00:02:38 #14025 [verbose] > │ and closure6 () (v0 : System.Guid) : (int64 -> System.Guid) = │
00:02:38 #14026 [verbose] > │ closure7(v0) │
00:02:38 #14027 [verbose] > │ and closure8 () (v0 : System.Guid) : int64 = │
00:02:38 #14028 [verbose] > │ let v1 : (System.Guid -> string) = _.ToString() │
00:02:38 #14029 [verbose] > │ let v2 : string = v1 v0 │
00:02:38 #14030 [verbose] > │ let v3 : int64 = int64 $"{v2.[0..7]}{v2.[9..12]}{v2.[14..17]}{v2.[ │
00:02:38 #14031 [verbose] > │ 19..20]}" │
00:02:38 #14032 [verbose] > │ v3 │
00:02:38 #14033 [verbose] > │ and closure9 () (v0 : System.DateTime) : System.Guid = │
00:02:38 #14034 [verbose] > │ let v1 : System.Guid = System.Guid.NewGuid () │
00:02:38 #14035 [verbose] > │ let v2 : (System.Guid -> string) = _.ToString() │
00:02:38 #14036 [verbose] > │ let v3 : string = v2 v1 │
00:02:38 #14037 [verbose] > │ let v4 : string = v0.ToString "yyyyMMdd-HHmm-ssff-ffff-f" │
00:02:38 #14038 [verbose] > │ let v5 : System.Guid = System.Guid $"{v4}{v3.[v4.Length..]}" │
00:02:38 #14039 [verbose] > │ v5 │
00:02:38 #14040 [verbose] > │ and closure10 () (v0 : int64) : System.Guid = │
00:02:38 #14041 [verbose] > │ let v1 : System.Guid = System.Guid.NewGuid () │
00:02:38 #14042 [verbose] > │ let v2 : (System.Guid -> string) = _.ToString() │
00:02:38 #14043 [verbose] > │ let v3 : string = v2 v1 │
00:02:38 #14044 [verbose] > │ let v4 : (int64 -> string) = _.ToString() │
00:02:38 #14045 [verbose] > │ let v5 : string = v4 v0 │
00:02:38 #14046 [verbose] > │ let v6 : string = v5.PadLeft (18, '0') │
00:02:38 #14047 [verbose] > │ let v7 : System.Guid = System.Guid $"{v6.[0..7]}-{v6.[8..11]}-{v6.[ │
00:02:38 #14048 [verbose] > │ 12..15]}-{v6.[16..17]}{v3.[21..]}" │
00:02:38 #14049 [verbose] > │ v7 │
00:02:38 #14050 [verbose] > │ and closure12 (v0 : string) (v1 : System.DateTime) : string = │
00:02:38 #14051 [verbose] > │ let v2 : (string -> string) = v1.ToString │
00:02:38 #14052 [verbose] > │ v2 v0 │
00:02:38 #14053 [verbose] > │ and closure11 () (v0 : string) : (System.DateTime -> string) = │
00:02:38 #14054 [verbose] > │ closure12(v0) │
00:02:38 #14055 [verbose] > │ and closure13 () (v0 : System.DateTime) : string = │
00:02:38 #14056 [verbose] > │ let v1 : (string -> string) = v0.ToString │
00:02:38 #14057 [verbose] > │ let v2 : string = "yyyy-MM-ddTHH-mm-ss.fff" │
00:02:38 #14058 [verbose] > │ v1 v2 │
00:02:38 #14059 [verbose] > │ let v0 : (System.Guid -> (System.DateTime -> System.Guid)) = closure0() │
00:02:38 #14060 [verbose] > │ let date_time_guid_from_date_time x = v0 x │
00:02:38 #14061 [verbose] > │ let v1 : (System.Guid -> System.DateTime) = closure2() │
00:02:38 #14062 [verbose] > │ let date_time_from_guid x = v1 x │
00:02:38 #14063 [verbose] > │ let v2 : (System.Guid -> (int64 -> System.Guid)) = closure6() │
00:02:38 #14064 [verbose] > │ let timestamp_guid_from_timestamp x = v2 x │
00:02:38 #14065 [verbose] > │ let v3 : (System.Guid -> int64) = closure8() │
00:02:38 #14066 [verbose] > │ let timestamp_from_guid x = v3 x │
00:02:38 #14067 [verbose] > │ let v4 : (System.DateTime -> System.Guid) = closure9() │
00:02:38 #14068 [verbose] > │ let new_guid_from_date_time x = v4 x │
00:02:38 #14069 [verbose] > │ let v5 : (int64 -> System.Guid) = closure10() │
00:02:38 #14070 [verbose] > │ let new_guid_from_timestamp x = v5 x │
00:02:38 #14071 [verbose] > │ let v6 : (string -> (System.DateTime -> string)) = closure11() │
00:02:38 #14072 [verbose] > │ let format x = v6 x │
00:02:38 #14073 [verbose] > │ let v7 : (System.DateTime -> string) = closure13() │
00:02:38 #14074 [verbose] > │ let format_iso8601 x = v7 x │
00:02:38 #14075 [verbose] > │ () │
00:02:38 #14076 [verbose] > │ │
00:02:38 #14077 [verbose] > │ │
00:02:38 #14078 [verbose] > ╰──────────────────────────────────────────────────────────────────────────────╯
00:02:40 #14079 [verbose] > [NbConvertApp] Converting notebook date_time.dib.ipynb to html
00:02:40 #14080 [verbose] > C:\Users\i574n\scoop\apps\python\current\Lib\site-packages\nbformat\__init__.py:93: MissingIDFieldWarning: Code cell is missing an id field, this will become a hard error in future nbformat versions. You may want to use `normalize()` on your notebooks before validations (available since nbformat 5.1.4). Previous versions of nbformat are fixing this issue transparently, and will stop doing so in the future.
00:02:40 #14081 [verbose] > validate(nb)
00:02:41 #14082 [verbose] > C:\Users\i574n\scoop\apps\python\current\Lib\site-packages\nbconvert\filters\highlight.py:71: UserWarning: IPython3 lexer unavailable, falling back on Python 3
00:02:41 #14083 [verbose] > return _pygments_highlight(
00:02:41 #14084 [verbose] > [NbConvertApp] Writing 385411 bytes to date_time.dib.html
00:02:42 #14085 [debug] execute_with_options_async / exit_code: 0 / output.Length: 94361
00:02:42 #14 [debug] main / executeCommand / exitCode: 0
00:02:42 #14086 [debug] execute_with_options_async / options: struct (Some System.Threading.CancellationToken,
"pwsh -c "../../scripts/invoke-dib.ps1 math.dib -Retries 3"", None, None,
None)
00:02:44 #14087 [verbose] >
00:02:44 #14088 [verbose] > ── markdown ────────────────────────────────────────────────────────────────────
00:02:44 #14089 [verbose] > ╭──────────────────────────────────────────────────────────────────────────────╮
00:02:44 #14090 [verbose] > │ # math │
00:02:44 #14091 [verbose] > ╰──────────────────────────────────────────────────────────────────────────────╯
00:02:44 #14092 [verbose] >
00:02:44 #14093 [verbose] > ── spiral ──────────────────────────────────────────────────────────────────────
00:02:44 #14094 [verbose] > // // test
00:02:44 #14095 [verbose] >
00:02:44 #14096 [verbose] > open testing
00:02:47 #14097 [verbose] > Building c:\home\git\polyglot\target\polyglot\spiral_eval\packages\8837341da068f4ef4271045b3ef1c89d209237bf74b4f11596b6ee2d484becb0\main.spi
00:02:48 #14098 [verbose] >
00:02:48 #14099 [verbose] > ╭─[ 3.55s - stdout ]───────────────────────────────────────────────────────────╮
00:02:48 #14100 [verbose] > │ () │
00:02:48 #14101 [verbose] > │ │
00:02:48 #14102 [verbose] > │ │
00:02:48 #14103 [verbose] > ╰──────────────────────────────────────────────────────────────────────────────╯
00:02:48 #14104 [verbose] >
00:02:48 #14105 [verbose] > ── spiral ──────────────────────────────────────────────────────────────────────
00:02:48 #14106 [verbose] > // // test
00:02:48 #14107 [verbose] >
00:02:48 #14108 [verbose] > 2 * 2 / 0.4f64 |> sqrt
00:02:48 #14109 [verbose] > |> _assert_approx_eq None 3.1622776601683795
00:02:48 #14110 [verbose] > Building c:\home\git\polyglot\target\polyglot\spiral_eval\packages\87b5a21ff6994dccc4d7f209e967da0f0684ba5f0876512508db01ae76a10045\main.spi
00:02:48 #14111 [verbose] >
00:02:48 #14112 [verbose] > ╭─[ 859.42ms - stdout ]────────────────────────────────────────────────────────╮
00:02:48 #14113 [verbose] > │ let rec method0 () : unit = │
00:02:48 #14114 [verbose] > │ let v0 : string = $"%A{3.1622776601683795}" │
00:02:48 #14115 [verbose] > │ System.Console.WriteLine v0 │
00:02:48 #14116 [verbose] > │ let v1 : string = $"__expect / actual: %A{3.1622776601683795} / │
00:02:48 #14117 [verbose] > │ expected: %A{3.1622776601683795}" │
00:02:48 #14118 [verbose] > │ () │
00:02:48 #14119 [verbose] > │ method0() │
00:02:48 #14120 [verbose] > │ │
00:02:48 #14121 [verbose] > │ 3.16227766 │
00:02:48 #14122 [verbose] > │ │
00:02:48 #14123 [verbose] > ╰──────────────────────────────────────────────────────────────────────────────╯
00:02:48 #14124 [verbose] >
00:02:48 #14125 [verbose] > ── spiral ──────────────────────────────────────────────────────────────────────
00:02:48 #14126 [verbose] > // // test
00:02:48 #14127 [verbose] >
00:02:48 #14128 [verbose] > 2f64 / 3
00:02:48 #14129 [verbose] > |> _assert_approx_eq None 0.6666666666666666
00:02:49 #14130 [verbose] > Building c:\home\git\polyglot\target\polyglot\spiral_eval\packages\f201cbec49c0a7b6324cf45a7fd9d1966d3a7e45791741c600e64d991bc95032\main.spi
00:02:49 #14131 [verbose] >
00:02:49 #14132 [verbose] > ╭─[ 299.98ms - stdout ]────────────────────────────────────────────────────────╮
00:02:49 #14133 [verbose] > │ let rec method0 () : unit = │
00:02:49 #14134 [verbose] > │ let v0 : string = $"%A{0.6666666666666666}" │
00:02:49 #14135 [verbose] > │ System.Console.WriteLine v0 │
00:02:49 #14136 [verbose] > │ let v1 : string = $"__expect / actual: %A{0.6666666666666666} / │
00:02:49 #14137 [verbose] > │ expected: %A{0.6666666666666666}" │
00:02:49 #14138 [verbose] > │ () │
00:02:49 #14139 [verbose] > │ method0() │
00:02:49 #14140 [verbose] > │ │
00:02:49 #14141 [verbose] > │ 0.6666666667 │
00:02:49 #14142 [verbose] > │ │
00:02:49 #14143 [verbose] > ╰──────────────────────────────────────────────────────────────────────────────╯
00:02:49 #14144 [verbose] >
00:02:49 #14145 [verbose] > ── spiral ──────────────────────────────────────────────────────────────────────
00:02:49 #14146 [verbose] > // // test
00:02:49 #14147 [verbose] >
00:02:49 #14148 [verbose] > 2f64 |> log
00:02:49 #14149 [verbose] > |> _assert_approx_eq None 0.6931471805599453
00:02:49 #14150 [verbose] > Building c:\home\git\polyglot\target\polyglot\spiral_eval\packages\f876268b4b06977b27e7fe43e9d9e44c0cf93875005652360409c55f1116d341\main.spi
00:02:49 #14151 [verbose] >
00:02:49 #14152 [verbose] > ╭─[ 309.54ms - stdout ]────────────────────────────────────────────────────────╮
00:02:49 #14153 [verbose] > │ let rec method0 () : unit = │
00:02:49 #14154 [verbose] > │ let v0 : string = $"%A{0.6931471805599453}" │
00:02:49 #14155 [verbose] > │ System.Console.WriteLine v0 │
00:02:49 #14156 [verbose] > │ let v1 : string = $"__expect / actual: %A{0.6931471805599453} / │
00:02:49 #14157 [verbose] > │ expected: %A{0.6931471805599453}" │
00:02:49 #14158 [verbose] > │ () │
00:02:49 #14159 [verbose] > │ method0() │
00:02:49 #14160 [verbose] > │ │
00:02:49 #14161 [verbose] > │ 0.6931471806 │
00:02:49 #14162 [verbose] > │ │
00:02:49 #14163 [verbose] > ╰──────────────────────────────────────────────────────────────────────────────╯
00:02:49 #14164 [verbose] >
00:02:49 #14165 [verbose] > ── spiral ──────────────────────────────────────────────────────────────────────
00:02:49 #14166 [verbose] > // // test
00:02:49 #14167 [verbose] >
00:02:49 #14168 [verbose] > pi
00:02:49 #14169 [verbose] > |> _assert_approx_eq None 3.141592653589793f64
00:02:49 #14170 [verbose] > Building c:\home\git\polyglot\target\polyglot\spiral_eval\packages\ed29441ffd8bb707d15580b1ba4c934813222816b0c54717228948b66e9ea141\main.spi
00:02:49 #14171 [verbose] >
00:02:49 #14172 [verbose] > ╭─[ 265.57ms - stdout ]────────────────────────────────────────────────────────╮
00:02:49 #14173 [verbose] > │ let rec method0 () : unit = │
00:02:49 #14174 [verbose] > │ let v0 : string = $"%A{3.141592653589793}" │
00:02:49 #14175 [verbose] > │ System.Console.WriteLine v0 │
00:02:49 #14176 [verbose] > │ let v1 : string = $"__expect / actual: %A{3.141592653589793} / expected: │
00:02:49 #14177 [verbose] > │ %A{3.141592653589793}" │
00:02:49 #14178 [verbose] > │ () │
00:02:49 #14179 [verbose] > │ method0() │
00:02:49 #14180 [verbose] > │ │
00:02:49 #14181 [verbose] > │ 3.141592654 │
00:02:49 #14182 [verbose] > │ │
00:02:49 #14183 [verbose] > ╰──────────────────────────────────────────────────────────────────────────────╯
00:02:49 #14184 [verbose] >
00:02:49 #14185 [verbose] > ── spiral ──────────────────────────────────────────────────────────────────────
00:02:49 #14186 [verbose] > // // test
00:02:49 #14187 [verbose] >
00:02:49 #14188 [verbose] > pi |> cos
00:02:49 #14189 [verbose] > |> _assert_eq -1f64
00:02:49 #14190 [verbose] > Building c:\home\git\polyglot\target\polyglot\spiral_eval\packages\fc982cff505ed44171faa5ade16de3cfdc975d7882c9ce2f602671b8c2e7cecf\main.spi
00:02:50 #14191 [verbose] >
00:02:50 #14192 [verbose] > ╭─[ 282.26ms - stdout ]────────────────────────────────────────────────────────╮
00:02:50 #14193 [verbose] > │ let rec method0 () : unit = │
00:02:50 #14194 [verbose] > │ let v0 : string = $"%A{-1.0}" │
00:02:50 #14195 [verbose] > │ System.Console.WriteLine v0 │
00:02:50 #14196 [verbose] > │ let v1 : string = $"__expect / actual: %A{-1.0} / expected: %A{-1.0}" │
00:02:50 #14197 [verbose] > │ () │
00:02:50 #14198 [verbose] > │ method0() │
00:02:50 #14199 [verbose] > │ │
00:02:50 #14200 [verbose] > │ -1.0 │
00:02:50 #14201 [verbose] > │ │
00:02:50 #14202 [verbose] > ╰──────────────────────────────────────────────────────────────────────────────╯
00:02:50 #14203 [verbose] >
00:02:50 #14204 [verbose] > ── spiral ──────────────────────────────────────────────────────────────────────
00:02:50 #14205 [verbose] > // // test
00:02:50 #14206 [verbose] >
00:02:50 #14207 [verbose] > pi
00:02:50 #14208 [verbose] > |> cos
00:02:50 #14209 [verbose] > |> fun n => n / 2f64
00:02:50 #14210 [verbose] > |> _assert_approx_eq None -0.5
00:02:50 #14211 [verbose] > Building c:\home\git\polyglot\target\polyglot\spiral_eval\packages\7b458f213fbe11c5ff35afa0df884c3e56ac731dfbc13a3c6818babab2ed0283\main.spi
00:02:50 #14212 [verbose] >
00:02:50 #14213 [verbose] > ╭─[ 287.92ms - stdout ]────────────────────────────────────────────────────────╮
00:02:50 #14214 [verbose] > │ let rec method0 () : unit = │
00:02:50 #14215 [verbose] > │ let v0 : string = $"%A{-0.5}" │
00:02:50 #14216 [verbose] > │ System.Console.WriteLine v0 │
00:02:50 #14217 [verbose] > │ let v1 : string = $"__expect / actual: %A{-0.5} / expected: %A{-0.5}" │
00:02:50 #14218 [verbose] > │ () │
00:02:50 #14219 [verbose] > │ method0() │
00:02:50 #14220 [verbose] > │ │
00:02:50 #14221 [verbose] > │ -0.5 │
00:02:50 #14222 [verbose] > │ │
00:02:50 #14223 [verbose] > ╰──────────────────────────────────────────────────────────────────────────────╯
00:02:50 #14224 [verbose] >
00:02:50 #14225 [verbose] > ── spiral ──────────────────────────────────────────────────────────────────────
00:02:50 #14226 [verbose] > // // test
00:02:50 #14227 [verbose] >
00:02:50 #14228 [verbose] > pi / 2 |> cos
00:02:50 #14229 [verbose] > |> _assert_approx_eq None 0.00000000000000006123233995736766f64
00:02:50 #14230 [verbose] > Building c:\home\git\polyglot\target\polyglot\spiral_eval\packages\d3e7563eb61c58eb9a0de8f13fb4644cd6e4bd27fa8259645e887d11cbb52a4c\main.spi
00:02:50 #14231 [verbose] >
00:02:50 #14232 [verbose] > ╭─[ 601.25ms - stdout ]────────────────────────────────────────────────────────╮
00:02:50 #14233 [verbose] > │ let rec method0 () : unit = │
00:02:50 #14234 [verbose] > │ let v0 : string = $"%A{6.123233995736766E-17}" │
00:02:50 #14235 [verbose] > │ System.Console.WriteLine v0 │
00:02:50 #14236 [verbose] > │ let v1 : string = $"__expect / actual: %A{6.123233995736766E-17} / │
00:02:50 #14237 [verbose] > │ expected: %A{6.123233995736766E-17}" │
00:02:50 #14238 [verbose] > │ () │
00:02:50 #14239 [verbose] > │ method0() │
00:02:50 #14240 [verbose] > │ │
00:02:50 #14241 [verbose] > │ 6.123233996e-17 │
00:02:50 #14242 [verbose] > │ │
00:02:50 #14243 [verbose] > ╰──────────────────────────────────────────────────────────────────────────────╯
00:02:50 #14244 [verbose] >
00:02:50 #14245 [verbose] > ── markdown ────────────────────────────────────────────────────────────────────
00:02:50 #14246 [verbose] > ╭──────────────────────────────────────────────────────────────────────────────╮
00:02:50 #14247 [verbose] > │ ## atan2 │
00:02:50 #14248 [verbose] > ╰──────────────────────────────────────────────────────────────────────────────╯
00:02:50 #14249 [verbose] >
00:02:50 #14250 [verbose] > ── spiral ──────────────────────────────────────────────────────────────────────
00:02:50 #14251 [verbose] > inl atan2 (y : f64) (x : f64) =
00:02:50 #14252 [verbose] > $"System.Math.Atan2 (!y, !x)" : f64
00:02:51 #14253 [verbose] > Building c:\home\git\polyglot\target\polyglot\spiral_eval\packages\b52f00ae01e0a82baf398447b5c66bc8552bc3ed8e220d6574b2c95a9b9562a1\main.spi
00:02:51 #14254 [verbose] >
00:02:51 #14255 [verbose] > ╭─[ 234.86ms - stdout ]────────────────────────────────────────────────────────╮
00:02:51 #14256 [verbose] > │ () │
00:02:51 #14257 [verbose] > │ │
00:02:51 #14258 [verbose] > │ │
00:02:51 #14259 [verbose] > ╰──────────────────────────────────────────────────────────────────────────────╯
00:02:51 #14260 [verbose] >
00:02:51 #14261 [verbose] > ── spiral ──────────────────────────────────────────────────────────────────────
00:02:51 #14262 [verbose] > // // test
00:02:51 #14263 [verbose] >
00:02:51 #14264 [verbose] > 0 |> atan2 1
00:02:51 #14265 [verbose] > |> _assert_eq 1.5707963267948966
00:02:51 #14266 [verbose] > Building c:\home\git\polyglot\target\polyglot\spiral_eval\packages\282bea1a492a1f762845c6b5e6c280778ba9ca7e342dabcd29c5bedcdcdf9570\main.spi
00:02:51 #14267 [verbose] >
00:02:51 #14268 [verbose] > ╭─[ 371.67ms - stdout ]────────────────────────────────────────────────────────╮
00:02:51 #14269 [verbose] > │ let rec method1 (v0 : bool) : bool = │
00:02:51 #14270 [verbose] > │ v0 │
00:02:51 #14271 [verbose] > │ and method0 () : unit = │
00:02:51 #14272 [verbose] > │ let v0 : float = System.Math.Atan2 (1.0, 0.0) │
00:02:51 #14273 [verbose] > │ let v1 : string = $"%A{v0}" │
00:02:51 #14274 [verbose] > │ System.Console.WriteLine v1 │
00:02:51 #14275 [verbose] > │ let v2 : bool = v0 = 1.5707963267948966 │
00:02:51 #14276 [verbose] > │ let v4 : bool = │
00:02:51 #14277 [verbose] > │ if v2 then │
00:02:51 #14278 [verbose] > │ true │
00:02:51 #14279 [verbose] > │ else │
00:02:51 #14280 [verbose] > │ method1(v2) │
00:02:51 #14281 [verbose] > │ let v5 : string = $"__expect / actual: %A{v0} / expected: │
00:02:51 #14282 [verbose] > │ %A{1.5707963267948966}" │
00:02:51 #14283 [verbose] > │ let v6 : bool = v4 = false │
00:02:51 #14284 [verbose] > │ if v6 then │
00:02:51 #14285 [verbose] > │ failwith<unit> v5 │
00:02:51 #14286 [verbose] > │ method0() │
00:02:51 #14287 [verbose] > │ │
00:02:51 #14288 [verbose] > │ 1.570796327 │
00:02:51 #14289 [verbose] > │ │
00:02:51 #14290 [verbose] > ╰──────────────────────────────────────────────────────────────────────────────╯
00:02:51 #14291 [verbose] >
00:02:51 #14292 [verbose] > ── markdown ────────────────────────────────────────────────────────────────────
00:02:51 #14293 [verbose] > ╭──────────────────────────────────────────────────────────────────────────────╮
00:02:51 #14294 [verbose] > │ ## e │
00:02:51 #14295 [verbose] > ╰──────────────────────────────────────────────────────────────────────────────╯
00:02:51 #14296 [verbose] >
00:02:51 #14297 [verbose] > ── spiral ──────────────────────────────────────────────────────────────────────
00:02:51 #14298 [verbose] > inl e () =
00:02:51 #14299 [verbose] > exp 1f64
00:02:51 #14300 [verbose] > Building c:\home\git\polyglot\target\polyglot\spiral_eval\packages\9f18f8809a1420fe6309a84b48fe1415a4f94278d9c504bb06944d9b47a33ff2\main.spi
00:02:51 #14301 [verbose] >
00:02:51 #14302 [verbose] > ╭─[ 258.85ms - stdout ]────────────────────────────────────────────────────────╮
00:02:51 #14303 [verbose] > │ () │
00:02:51 #14304 [verbose] > │ │
00:02:51 #14305 [verbose] > │ │
00:02:51 #14306 [verbose] > ╰──────────────────────────────────────────────────────────────────────────────╯
00:02:51 #14307 [verbose] >
00:02:51 #14308 [verbose] > ── markdown ────────────────────────────────────────────────────────────────────
00:02:51 #14309 [verbose] > ╭──────────────────────────────────────────────────────────────────────────────╮
00:02:51 #14310 [verbose] > │ ## floor │
00:02:51 #14311 [verbose] > ╰──────────────────────────────────────────────────────────────────────────────╯
00:02:51 #14312 [verbose] >
00:02:51 #14313 [verbose] > ── spiral ──────────────────────────────────────────────────────────────────────
00:02:51 #14314 [verbose] > inl floor forall t {float}. (n : t) : t =
00:02:51 #14315 [verbose] > n |> $'floor'
00:02:52 #14316 [verbose] > Building c:\home\git\polyglot\target\polyglot\spiral_eval\packages\9e926fdbe3def79728214d9696c26ef88c37fccacce22427c44cd0ae376edd9f\main.spi
00:02:52 #14317 [verbose] >
00:02:52 #14318 [verbose] > ╭─[ 250.93ms - stdout ]────────────────────────────────────────────────────────╮
00:02:52 #14319 [verbose] > │ () │
00:02:52 #14320 [verbose] > │ │
00:02:52 #14321 [verbose] > │ │
00:02:52 #14322 [verbose] > ╰──────────────────────────────────────────────────────────────────────────────╯
00:02:52 #14323 [verbose] >
00:02:52 #14324 [verbose] > ── spiral ──────────────────────────────────────────────────────────────────────
00:02:52 #14325 [verbose] > // // test
00:02:52 #14326 [verbose] >
00:02:52 #14327 [verbose] > 0.6 |> floor
00:02:52 #14328 [verbose] > |> _assert_eq 0f64
00:02:52 #14329 [verbose] > Building c:\home\git\polyglot\target\polyglot\spiral_eval\packages\b926d15f7df8c5da17b3f1c85c24ca5eac34b38534816ab26b0581b4ff19de0e\main.spi
00:02:52 #14330 [verbose] >
00:02:52 #14331 [verbose] > ╭─[ 263.10ms - stdout ]────────────────────────────────────────────────────────╮
00:02:52 #14332 [verbose] > │ let rec method1 (v0 : bool) : bool = │
00:02:52 #14333 [verbose] > │ v0 │
00:02:52 #14334 [verbose] > │ and method0 () : unit = │
00:02:52 #14335 [verbose] > │ let v0 : (float -> float) = floor │
00:02:52 #14336 [verbose] > │ let v1 : float = v0 0.6 │
00:02:52 #14337 [verbose] > │ let v2 : string = $"%A{v1}" │
00:02:52 #14338 [verbose] > │ System.Console.WriteLine v2 │
00:02:52 #14339 [verbose] > │ let v3 : bool = v1 = 0.0 │
00:02:52 #14340 [verbose] > │ let v5 : bool = │
00:02:52 #14341 [verbose] > │ if v3 then │
00:02:52 #14342 [verbose] > │ true │
00:02:52 #14343 [verbose] > │ else │
00:02:52 #14344 [verbose] > │ method1(v3) │
00:02:52 #14345 [verbose] > │ let v6 : string = $"__expect / actual: %A{v1} / expected: %A{0.0}" │
00:02:52 #14346 [verbose] > │ let v7 : bool = v5 = false │
00:02:52 #14347 [verbose] > │ if v7 then │
00:02:52 #14348 [verbose] > │ failwith<unit> v6 │
00:02:52 #14349 [verbose] > │ method0() │
00:02:52 #14350 [verbose] > │ │
00:02:52 #14351 [verbose] > │ 0.0 │
00:02:52 #14352 [verbose] > │ │
00:02:52 #14353 [verbose] > ╰──────────────────────────────────────────────────────────────────────────────╯
00:02:52 #14354 [verbose] >
00:02:52 #14355 [verbose] > ── markdown ────────────────────────────────────────────────────────────────────
00:02:52 #14356 [verbose] > ╭──────────────────────────────────────────────────────────────────────────────╮
00:02:52 #14357 [verbose] > │ ## ceil │
00:02:52 #14358 [verbose] > ╰──────────────────────────────────────────────────────────────────────────────╯
00:02:52 #14359 [verbose] >
00:02:52 #14360 [verbose] > ── spiral ──────────────────────────────────────────────────────────────────────
00:02:52 #14361 [verbose] > inl ceil forall t {float}. (n : t) : t =
00:02:52 #14362 [verbose] > n |> $'ceil'
00:02:52 #14363 [verbose] > Building c:\home\git\polyglot\target\polyglot\spiral_eval\packages\6ec9e7066fc9025ca918507b5f2b101901cfb9fd538defd3b8fd96866eaf081f\main.spi
00:02:52 #14364 [verbose] >
00:02:52 #14365 [verbose] > ╭─[ 224.16ms - stdout ]────────────────────────────────────────────────────────╮
00:02:52 #14366 [verbose] > │ () │
00:02:52 #14367 [verbose] > │ │
00:02:52 #14368 [verbose] > │ │
00:02:52 #14369 [verbose] > ╰──────────────────────────────────────────────────────────────────────────────╯
00:02:52 #14370 [verbose] >
00:02:52 #14371 [verbose] > ── spiral ──────────────────────────────────────────────────────────────────────
00:02:52 #14372 [verbose] > // // test
00:02:52 #14373 [verbose] >
00:02:52 #14374 [verbose] > 0.6 |> ceil
00:02:52 #14375 [verbose] > |> _assert_eq 1f64
00:02:52 #14376 [verbose] > Building c:\home\git\polyglot\target\polyglot\spiral_eval\packages\944af23eadcba06dbcf5481a7d879730112003385d0f89a2495a05f399526f15\main.spi
00:02:52 #14377 [verbose] >
00:02:52 #14378 [verbose] > ╭─[ 272.00ms - stdout ]────────────────────────────────────────────────────────╮
00:02:52 #14379 [verbose] > │ let rec method1 (v0 : bool) : bool = │
00:02:52 #14380 [verbose] > │ v0 │
00:02:52 #14381 [verbose] > │ and method0 () : unit = │
00:02:52 #14382 [verbose] > │ let v0 : (float -> float) = ceil │
00:02:52 #14383 [verbose] > │ let v1 : float = v0 0.6 │
00:02:52 #14384 [verbose] > │ let v2 : string = $"%A{v1}" │
00:02:52 #14385 [verbose] > │ System.Console.WriteLine v2 │
00:02:52 #14386 [verbose] > │ let v3 : bool = v1 = 1.0 │
00:02:52 #14387 [verbose] > │ let v5 : bool = │
00:02:52 #14388 [verbose] > │ if v3 then │
00:02:52 #14389 [verbose] > │ true │
00:02:52 #14390 [verbose] > │ else │
00:02:52 #14391 [verbose] > │ method1(v3) │
00:02:52 #14392 [verbose] > │ let v6 : string = $"__expect / actual: %A{v1} / expected: %A{1.0}" │
00:02:52 #14393 [verbose] > │ let v7 : bool = v5 = false │
00:02:52 #14394 [verbose] > │ if v7 then │
00:02:52 #14395 [verbose] > │ failwith<unit> v6 │
00:02:52 #14396 [verbose] > │ method0() │
00:02:52 #14397 [verbose] > │ │
00:02:52 #14398 [verbose] > │ 1.0 │
00:02:52 #14399 [verbose] > │ │
00:02:52 #14400 [verbose] > ╰──────────────────────────────────────────────────────────────────────────────╯
00:02:52 #14401 [verbose] >
00:02:52 #14402 [verbose] > ── markdown ────────────────────────────────────────────────────────────────────
00:02:52 #14403 [verbose] > ╭──────────────────────────────────────────────────────────────────────────────╮
00:02:52 #14404 [verbose] > │ ## round │
00:02:52 #14405 [verbose] > ╰──────────────────────────────────────────────────────────────────────────────╯
00:02:52 #14406 [verbose] >
00:02:52 #14407 [verbose] > ── spiral ──────────────────────────────────────────────────────────────────────
00:02:52 #14408 [verbose] > inl round forall t {float}. (n : t) : t =
00:02:52 #14409 [verbose] > n |> $'round'
00:02:53 #14410 [verbose] > Building c:\home\git\polyglot\target\polyglot\spiral_eval\packages\593cd5dadf0ac6a91b1962983385282591b3532b4a1b99524d9b0058c35d3542\main.spi
00:02:53 #14411 [verbose] >
00:02:53 #14412 [verbose] > ╭─[ 196.09ms - stdout ]────────────────────────────────────────────────────────╮
00:02:53 #14413 [verbose] > │ () │
00:02:53 #14414 [verbose] > │ │
00:02:53 #14415 [verbose] > │ │
00:02:53 #14416 [verbose] > ╰──────────────────────────────────────────────────────────────────────────────╯
00:02:53 #14417 [verbose] >
00:02:53 #14418 [verbose] > ── spiral ──────────────────────────────────────────────────────────────────────
00:02:53 #14419 [verbose] > // // test
00:02:53 #14420 [verbose] >
00:02:53 #14421 [verbose] > 0.5 |> round
00:02:53 #14422 [verbose] > |> _assert_eq 0f64
00:02:53 #14423 [verbose] >
00:02:53 #14424 [verbose] > 1.5 |> round
00:02:53 #14425 [verbose] > |> _assert_eq 2f64
00:02:53 #14426 [verbose] >
00:02:53 #14427 [verbose] > 2.5 |> round
00:02:53 #14428 [verbose] > |> _assert_eq 2f64
00:02:53 #14429 [verbose] >
00:02:53 #14430 [verbose] > 3.5 |> round
00:02:53 #14431 [verbose] > |> _assert_eq 4f64
00:02:53 #14432 [verbose] > Building c:\home\git\polyglot\target\polyglot\spiral_eval\packages\b7e854ce4afe028c5a5b7ca5484faeb0ea63410a8848df8b1dae6816b6eca162\main.spi
00:02:53 #14433 [verbose] >
00:02:53 #14434 [verbose] > ╭─[ 281.88ms - stdout ]────────────────────────────────────────────────────────╮
00:02:53 #14435 [verbose] > │ let rec method1 (v0 : bool) : bool = │
00:02:53 #14436 [verbose] > │ v0 │
00:02:53 #14437 [verbose] > │ and method0 () : unit = │
00:02:53 #14438 [verbose] > │ let v0 : (float -> float) = round │
00:02:53 #14439 [verbose] > │ let v1 : float = v0 0.5 │
00:02:53 #14440 [verbose] > │ let v2 : string = $"%A{v1}" │
00:02:53 #14441 [verbose] > │ System.Console.WriteLine v2 │
00:02:53 #14442 [verbose] > │ let v3 : bool = v1 = 0.0 │
00:02:53 #14443 [verbose] > │ let v5 : bool = │
00:02:53 #14444 [verbose] > │ if v3 then │
00:02:53 #14445 [verbose] > │ true │
00:02:53 #14446 [verbose] > │ else │
00:02:53 #14447 [verbose] > │ method1(v3) │
00:02:53 #14448 [verbose] > │ let v6 : string = $"__expect / actual: %A{v1} / expected: %A{0.0}" │
00:02:53 #14449 [verbose] > │ let v7 : bool = v5 = false │
00:02:53 #14450 [verbose] > │ if v7 then │
00:02:53 #14451 [verbose] > │ failwith<unit> v6 │
00:02:53 #14452 [verbose] > │ let v8 : (float -> float) = round │
00:02:53 #14453 [verbose] > │ let v9 : float = v8 1.5 │
00:02:53 #14454 [verbose] > │ let v10 : string = $"%A{v9}" │
00:02:53 #14455 [verbose] > │ System.Console.WriteLine v10 │
00:02:53 #14456 [verbose] > │ let v11 : bool = v9 = 2.0 │
00:02:53 #14457 [verbose] > │ let v13 : bool = │
00:02:53 #14458 [verbose] > │ if v11 then │
00:02:53 #14459 [verbose] > │ true │
00:02:53 #14460 [verbose] > │ else │
00:02:53 #14461 [verbose] > │ method1(v11) │
00:02:53 #14462 [verbose] > │ let v14 : string = $"__expect / actual: %A{v9} / expected: %A{2.0}" │
00:02:53 #14463 [verbose] > │ let v15 : bool = v13 = false │
00:02:53 #14464 [verbose] > │ if v15 then │
00:02:53 #14465 [verbose] > │ failwith<unit> v14 │
00:02:53 #14466 [verbose] > │ let v16 : (float -> float) = round │
00:02:53 #14467 [verbose] > │ let v17 : float = v16 2.5 │
00:02:53 #14468 [verbose] > │ let v18 : string = $"%A{v17}" │
00:02:53 #14469 [verbose] > │ System.Console.WriteLine v18 │
00:02:53 #14470 [verbose] > │ let v19 : bool = v17 = 2.0 │
00:02:53 #14471 [verbose] > │ let v21 : bool = │
00:02:53 #14472 [verbose] > │ if v19 then │
00:02:53 #14473 [verbose] > │ true │
00:02:53 #14474 [verbose] > │ else │
00:02:53 #14475 [verbose] > │ method1(v19) │
00:02:53 #14476 [verbose] > │ let v22 : string = $"__expect / actual: %A{v17} / expected: %A{2.0}" │
00:02:53 #14477 [verbose] > │ let v23 : bool = v21 = false │
00:02:53 #14478 [verbose] > │ if v23 then │
00:02:53 #14479 [verbose] > │ failwith<unit> v22 │
00:02:53 #14480 [verbose] > │ let v24 : (float -> float) = round │
00:02:53 #14481 [verbose] > │ let v25 : float = v24 3.5 │
00:02:53 #14482 [verbose] > │ let v26 : string = $"%A{v25}" │
00:02:53 #14483 [verbose] > │ System.Console.WriteLine v26 │
00:02:53 #14484 [verbose] > │ let v27 : bool = v25 = 4.0 │
00:02:53 #14485 [verbose] > │ let v29 : bool = │
00:02:53 #14486 [verbose] > │ if v27 then │
00:02:53 #14487 [verbose] > │ true │
00:02:53 #14488 [verbose] > │ else │
00:02:53 #14489 [verbose] > │ method1(v27) │
00:02:53 #14490 [verbose] > │ let v30 : string = $"__expect / actual: %A{v25} / expected: %A{4.0}" │
00:02:53 #14491 [verbose] > │ let v31 : bool = v29 = false │
00:02:53 #14492 [verbose] > │ if v31 then │
00:02:53 #14493 [verbose] > │ failwith<unit> v30 │
00:02:53 #14494 [verbose] > │ method0() │
00:02:53 #14495 [verbose] > │ │
00:02:53 #14496 [verbose] > │ 0.0 │
00:02:53 #14497 [verbose] > │ 2.0 │
00:02:53 #14498 [verbose] > │ 2.0 │
00:02:53 #14499 [verbose] > │ 4.0 │
00:02:53 #14500 [verbose] > │ │
00:02:53 #14501 [verbose] > ╰──────────────────────────────────────────────────────────────────────────────╯
00:02:53 #14502 [verbose] >
00:02:53 #14503 [verbose] > ── markdown ────────────────────────────────────────────────────────────────────
00:02:53 #14504 [verbose] > ╭──────────────────────────────────────────────────────────────────────────────╮
00:02:53 #14505 [verbose] > │ ## log_base │
00:02:53 #14506 [verbose] > ╰──────────────────────────────────────────────────────────────────────────────╯
00:02:53 #14507 [verbose] >
00:02:53 #14508 [verbose] > ── spiral ──────────────────────────────────────────────────────────────────────
00:02:53 #14509 [verbose] > inl log_base (new_base : f64) (a : f64) =
00:02:53 #14510 [verbose] > $"System.Math.Log (!a, !new_base)" : f64
00:02:53 #14511 [verbose] > Building c:\home\git\polyglot\target\polyglot\spiral_eval\packages\5cc26f6b307404f6c34526ddc5dfb5d4810ef14de3a38adcdaa329989f623bb1\main.spi
00:02:53 #14512 [verbose] >
00:02:53 #14513 [verbose] > ╭─[ 249.22ms - stdout ]────────────────────────────────────────────────────────╮
00:02:53 #14514 [verbose] > │ () │
00:02:53 #14515 [verbose] > │ │
00:02:53 #14516 [verbose] > │ │
00:02:53 #14517 [verbose] > ╰──────────────────────────────────────────────────────────────────────────────╯
00:02:53 #14518 [verbose] >
00:02:53 #14519 [verbose] > ── spiral ──────────────────────────────────────────────────────────────────────
00:02:53 #14520 [verbose] > // // test
00:02:53 #14521 [verbose] >
00:02:53 #14522 [verbose] > 100 |> log_base 10
00:02:53 #14523 [verbose] > |> _assert_eq 2
00:02:53 #14524 [verbose] > Building c:\home\git\polyglot\target\polyglot\spiral_eval\packages\8082d61c18bfe3690d4405438d19aa4743c4231769af9d1834a9581f6aed9055\main.spi
00:02:53 #14525 [verbose] >
00:02:53 #14526 [verbose] > ╭─[ 273.85ms - stdout ]────────────────────────────────────────────────────────╮
00:02:53 #14527 [verbose] > │ let rec method1 (v0 : bool) : bool = │
00:02:53 #14528 [verbose] > │ v0 │
00:02:53 #14529 [verbose] > │ and method0 () : unit = │
00:02:53 #14530 [verbose] > │ let v0 : float = System.Math.Log (100.0, 10.0) │
00:02:53 #14531 [verbose] > │ let v1 : string = $"%A{v0}" │
00:02:53 #14532 [verbose] > │ System.Console.WriteLine v1 │
00:02:53 #14533 [verbose] > │ let v2 : bool = v0 = 2.0 │
00:02:53 #14534 [verbose] > │ let v4 : bool = │
00:02:53 #14535 [verbose] > │ if v2 then │
00:02:53 #14536 [verbose] > │ true │
00:02:53 #14537 [verbose] > │ else │
00:02:53 #14538 [verbose] > │ method1(v2) │
00:02:53 #14539 [verbose] > │ let v5 : string = $"__expect / actual: %A{v0} / expected: %A{2.0}" │
00:02:53 #14540 [verbose] > │ let v6 : bool = v4 = false │
00:02:53 #14541 [verbose] > │ if v6 then │
00:02:53 #14542 [verbose] > │ failwith<unit> v5 │
00:02:53 #14543 [verbose] > │ method0() │
00:02:53 #14544 [verbose] > │ │
00:02:53 #14545 [verbose] > │ 2.0 │
00:02:53 #14546 [verbose] > │ │
00:02:53 #14547 [verbose] > ╰──────────────────────────────────────────────────────────────────────────────╯
00:02:53 #14548 [verbose] >
00:02:53 #14549 [verbose] > ── markdown ────────────────────────────────────────────────────────────────────
00:02:53 #14550 [verbose] > ╭──────────────────────────────────────────────────────────────────────────────╮
00:02:53 #14551 [verbose] > │ ## round │
00:02:53 #14552 [verbose] > ╰──────────────────────────────────────────────────────────────────────────────╯
00:02:53 #14553 [verbose] >
00:02:53 #14554 [verbose] > ── spiral ──────────────────────────────────────────────────────────────────────
00:02:53 #14555 [verbose] > inl round forall t {float}. (x : t) : t =
00:02:53 #14556 [verbose] > $"round !x"
00:02:54 #14557 [verbose] > Building c:\home\git\polyglot\target\polyglot\spiral_eval\packages\4a82adc786a4d2e4d5c8f2e10720e424266e5819fb02bf34e6bd3e601c751636\main.spi
00:02:54 #14558 [verbose] >
00:02:54 #14559 [verbose] > ╭─[ 244.61ms - stdout ]────────────────────────────────────────────────────────╮
00:02:54 #14560 [verbose] > │ () │
00:02:54 #14561 [verbose] > │ │
00:02:54 #14562 [verbose] > │ │
00:02:54 #14563 [verbose] > ╰──────────────────────────────────────────────────────────────────────────────╯
00:02:54 #14564 [verbose] >
00:02:54 #14565 [verbose] > ── spiral ──────────────────────────────────────────────────────────────────────
00:02:54 #14566 [verbose] > // // test
00:02:54 #14567 [verbose] >
00:02:54 #14568 [verbose] > 0.5 |> round
00:02:54 #14569 [verbose] > |> _assert_eq 0f64
00:02:54 #14570 [verbose] > Building c:\home\git\polyglot\target\polyglot\spiral_eval\packages\c2800e18c533626438a5e8bd0777d340a96a68a7531380b1cc02d38dadd37232\main.spi
00:02:54 #14571 [verbose] >
00:02:54 #14572 [verbose] > ╭─[ 246.87ms - stdout ]────────────────────────────────────────────────────────╮
00:02:54 #14573 [verbose] > │ let rec method1 (v0 : bool) : bool = │
00:02:54 #14574 [verbose] > │ v0 │
00:02:54 #14575 [verbose] > │ and method0 () : unit = │
00:02:54 #14576 [verbose] > │ let v0 : float = round 0.5 │
00:02:54 #14577 [verbose] > │ let v1 : string = $"%A{v0}" │
00:02:54 #14578 [verbose] > │ System.Console.WriteLine v1 │
00:02:54 #14579 [verbose] > │ let v2 : bool = v0 = 0.0 │
00:02:54 #14580 [verbose] > │ let v4 : bool = │
00:02:54 #14581 [verbose] > │ if v2 then │
00:02:54 #14582 [verbose] > │ true │
00:02:54 #14583 [verbose] > │ else │
00:02:54 #14584 [verbose] > │ method1(v2) │
00:02:54 #14585 [verbose] > │ let v5 : string = $"__expect / actual: %A{v0} / expected: %A{0.0}" │
00:02:54 #14586 [verbose] > │ let v6 : bool = v4 = false │
00:02:54 #14587 [verbose] > │ if v6 then │
00:02:54 #14588 [verbose] > │ failwith<unit> v5 │
00:02:54 #14589 [verbose] > │ method0() │
00:02:54 #14590 [verbose] > │ │
00:02:54 #14591 [verbose] > │ 0.0 │
00:02:54 #14592 [verbose] > │ │
00:02:54 #14593 [verbose] > ╰──────────────────────────────────────────────────────────────────────────────╯
00:02:54 #14594 [verbose] >
00:02:54 #14595 [verbose] > ── spiral ──────────────────────────────────────────────────────────────────────
00:02:54 #14596 [verbose] > // // test
00:02:54 #14597 [verbose] >
00:02:54 #14598 [verbose] > 0.6 |> round
00:02:54 #14599 [verbose] > |> _assert_eq 1f64
00:02:54 #14600 [verbose] > Building c:\home\git\polyglot\target\polyglot\spiral_eval\packages\9bdfbc487d6ac05c65e40811e4191da51c25ca471316fff7173cbec4948a6f91\main.spi
00:02:54 #14601 [verbose] >
00:02:54 #14602 [verbose] > ╭─[ 275.96ms - stdout ]────────────────────────────────────────────────────────╮
00:02:54 #14603 [verbose] > │ let rec method1 (v0 : bool) : bool = │
00:02:54 #14604 [verbose] > │ v0 │
00:02:54 #14605 [verbose] > │ and method0 () : unit = │
00:02:54 #14606 [verbose] > │ let v0 : float = round 0.6 │
00:02:54 #14607 [verbose] > │ let v1 : string = $"%A{v0}" │
00:02:54 #14608 [verbose] > │ System.Console.WriteLine v1 │
00:02:54 #14609 [verbose] > │ let v2 : bool = v0 = 1.0 │
00:02:54 #14610 [verbose] > │ let v4 : bool = │
00:02:54 #14611 [verbose] > │ if v2 then │
00:02:54 #14612 [verbose] > │ true │
00:02:54 #14613 [verbose] > │ else │
00:02:54 #14614 [verbose] > │ method1(v2) │
00:02:54 #14615 [verbose] > │ let v5 : string = $"__expect / actual: %A{v0} / expected: %A{1.0}" │
00:02:54 #14616 [verbose] > │ let v6 : bool = v4 = false │
00:02:54 #14617 [verbose] > │ if v6 then │
00:02:54 #14618 [verbose] > │ failwith<unit> v5 │
00:02:54 #14619 [verbose] > │ method0() │
00:02:54 #14620 [verbose] > │ │
00:02:54 #14621 [verbose] > │ 1.0 │
00:02:54 #14622 [verbose] > │ │
00:02:54 #14623 [verbose] > ╰──────────────────────────────────────────────────────────────────────────────╯
00:02:54 #14624 [verbose] >
00:02:54 #14625 [verbose] > ── markdown ────────────────────────────────────────────────────────────────────
00:02:54 #14626 [verbose] > ╭──────────────────────────────────────────────────────────────────────────────╮
00:02:54 #14627 [verbose] > │ ## square │
00:02:54 #14628 [verbose] > ╰──────────────────────────────────────────────────────────────────────────────╯
00:02:54 #14629 [verbose] >
00:02:54 #14630 [verbose] > ── spiral ──────────────────────────────────────────────────────────────────────
00:02:54 #14631 [verbose] > inl square x =
00:02:54 #14632 [verbose] > x ** 2
00:02:54 #14633 [verbose] > Building c:\home\git\polyglot\target\polyglot\spiral_eval\packages\0a6224adba94e3830901ee228ee47e45ca3607fb178a21f3b7959f83b3b9c373\main.spi
00:02:54 #14634 [verbose] >
00:02:54 #14635 [verbose] > ╭─[ 236.53ms - stdout ]────────────────────────────────────────────────────────╮
00:02:54 #14636 [verbose] > │ () │
00:02:54 #14637 [verbose] > │ │
00:02:54 #14638 [verbose] > │ │
00:02:54 #14639 [verbose] > ╰──────────────────────────────────────────────────────────────────────────────╯
00:02:54 #14640 [verbose] >
00:02:54 #14641 [verbose] > ── spiral ──────────────────────────────────────────────────────────────────────
00:02:54 #14642 [verbose] > // // test
00:02:54 #14643 [verbose] >
00:02:54 #14644 [verbose] > 5f64
00:02:54 #14645 [verbose] > |> sqrt
00:02:54 #14646 [verbose] > |> square
00:02:54 #14647 [verbose] > |> _assert_approx_eq None 5
00:02:55 #14648 [verbose] > Building c:\home\git\polyglot\target\polyglot\spiral_eval\packages\ba0718d978830d09c983a032cdb9fa16f86d2e7f1ff2a68aa358e77d82db4ae8\main.spi
00:02:55 #14649 [verbose] >
00:02:55 #14650 [verbose] > ╭─[ 254.39ms - stdout ]────────────────────────────────────────────────────────╮
00:02:55 #14651 [verbose] > │ let rec method0 () : unit = │
00:02:55 #14652 [verbose] > │ let v0 : string = $"%A{5.000000000000001}" │
00:02:55 #14653 [verbose] > │ System.Console.WriteLine v0 │
00:02:55 #14654 [verbose] > │ let v1 : string = $"__expect / actual: %A{5.000000000000001} / expected: │
00:02:55 #14655 [verbose] > │ %A{5.0}" │
00:02:55 #14656 [verbose] > │ () │
00:02:55 #14657 [verbose] > │ method0() │
00:02:55 #14658 [verbose] > │ │
00:02:55 #14659 [verbose] > │ 5.0 │
00:02:55 #14660 [verbose] > │ │
00:02:55 #14661 [verbose] > ╰──────────────────────────────────────────────────────────────────────────────╯
00:02:55 #14662 [verbose] >
00:02:55 #14663 [verbose] > ── spiral ──────────────────────────────────────────────────────────────────────
00:02:55 #14664 [verbose] > // // test
00:02:55 #14665 [verbose] >
00:02:55 #14666 [verbose] > e () |> square
00:02:55 #14667 [verbose] > |> _assert_approx_eq None 7.3890560989306495
00:02:55 #14668 [verbose] > Building c:\home\git\polyglot\target\polyglot\spiral_eval\packages\e8a3502899a4272c12824483af8d92c4e64f786f1eda3217d7d9c8b586512baf\main.spi
00:02:55 #14669 [verbose] >
00:02:55 #14670 [verbose] > ╭─[ 231.41ms - stdout ]────────────────────────────────────────────────────────╮
00:02:55 #14671 [verbose] > │ let rec method0 () : unit = │
00:02:55 #14672 [verbose] > │ let v0 : string = $"%A{7.3890560989306495}" │
00:02:55 #14673 [verbose] > │ System.Console.WriteLine v0 │
00:02:55 #14674 [verbose] > │ let v1 : string = $"__expect / actual: %A{7.3890560989306495} / │
00:02:55 #14675 [verbose] > │ expected: %A{7.3890560989306495}" │
00:02:55 #14676 [verbose] > │ () │
00:02:55 #14677 [verbose] > │ method0() │
00:02:55 #14678 [verbose] > │ │
00:02:55 #14679 [verbose] > │ 7.389056099 │
00:02:55 #14680 [verbose] > │ │
00:02:55 #14681 [verbose] > ╰──────────────────────────────────────────────────────────────────────────────╯
00:02:57 #14682 [verbose] > [NbConvertApp] Converting notebook math.dib.ipynb to html
00:02:57 #14683 [verbose] > C:\Users\i574n\scoop\apps\python\current\Lib\site-packages\nbformat\__init__.py:93: MissingIDFieldWarning: Code cell is missing an id field, this will become a hard error in future nbformat versions. You may want to use `normalize()` on your notebooks before validations (available since nbformat 5.1.4). Previous versions of nbformat are fixing this issue transparently, and will stop doing so in the future.
00:02:57 #14684 [verbose] > validate(nb)
00:02:57 #14685 [verbose] > C:\Users\i574n\scoop\apps\python\current\Lib\site-packages\nbconvert\filters\highlight.py:71: UserWarning: IPython3 lexer unavailable, falling back on Python 3
00:02:57 #14686 [verbose] > return _pygments_highlight(
00:02:57 #14687 [verbose] > [NbConvertApp] Writing 313224 bytes to math.dib.html
00:02:58 #14688 [debug] execute_with_options_async / exit_code: 0 / output.Length: 35922
00:02:58 #15 [debug] main / executeCommand / exitCode: 0
00:02:58 #14689 [debug] execute_with_options_async / options: struct (Some System.Threading.CancellationToken,
"pwsh -c "../../scripts/invoke-dib.ps1 \"optionm'.dib\" -Retries 3"",
None, None, None)
00:03:00 #14690 [verbose] >
00:03:00 #14691 [verbose] > ── markdown ────────────────────────────────────────────────────────────────────
00:03:00 #14692 [verbose] > ╭──────────────────────────────────────────────────────────────────────────────╮
00:03:00 #14693 [verbose] > │ # optionm │
00:03:00 #14694 [verbose] > ╰──────────────────────────────────────────────────────────────────────────────╯
00:03:01 #14695 [verbose] >
00:03:01 #14696 [verbose] > ── spiral ──────────────────────────────────────────────────────────────────────
00:03:01 #14697 [verbose] > // // test
00:03:01 #14698 [verbose] >
00:03:01 #14699 [verbose] > open testing
00:03:03 #14700 [verbose] > Building c:\home\git\polyglot\target\polyglot\spiral_eval\packages\8837341da068f4ef4271045b3ef1c89d209237bf74b4f11596b6ee2d484becb0\main.spi
00:03:04 #14701 [verbose] >
00:03:04 #14702 [verbose] > ╭─[ 3.49s - stdout ]───────────────────────────────────────────────────────────╮
00:03:04 #14703 [verbose] > │ () │
00:03:04 #14704 [verbose] > │ │
00:03:04 #14705 [verbose] > │ │
00:03:04 #14706 [verbose] > ╰──────────────────────────────────────────────────────────────────────────────╯
00:03:04 #14707 [verbose] >
00:03:04 #14708 [verbose] > ── spiral ──────────────────────────────────────────────────────────────────────
00:03:04 #14709 [verbose] > open rust_operators
00:03:04 #14710 [verbose] > Building c:\home\git\polyglot\target\polyglot\spiral_eval\packages\b9bafaa9190fd8b92f96dcaf4c2d6855aa7c524558dd349c71163ab7065188b0\main.spi
00:03:04 #14711 [verbose] >
00:03:04 #14712 [verbose] > ╭─[ 235.30ms - stdout ]────────────────────────────────────────────────────────╮
00:03:04 #14713 [verbose] > │ () │
00:03:04 #14714 [verbose] > │ │
00:03:04 #14715 [verbose] > │ │
00:03:04 #14716 [verbose] > ╰──────────────────────────────────────────────────────────────────────────────╯
00:03:04 #14717 [verbose] >
00:03:04 #14718 [verbose] > ── markdown ────────────────────────────────────────────────────────────────────
00:03:04 #14719 [verbose] > ╭──────────────────────────────────────────────────────────────────────────────╮
00:03:04 #14720 [verbose] > │ ## default_value │
00:03:04 #14721 [verbose] > ╰──────────────────────────────────────────────────────────────────────────────╯
00:03:04 #14722 [verbose] >
00:03:04 #14723 [verbose] > ── spiral ──────────────────────────────────────────────────────────────────────
00:03:04 #14724 [verbose] > inl default_value d =
00:03:04 #14725 [verbose] > optionm.defaultWith d
00:03:04 #14726 [verbose] > Building c:\home\git\polyglot\target\polyglot\spiral_eval\packages\67879457f8da40dc6d225e4ec958787028de82cfe885be7a3cdce48a543bf5c4\main.spi
00:03:04 #14727 [verbose] >
00:03:04 #14728 [verbose] > ╭─[ 220.28ms - stdout ]────────────────────────────────────────────────────────╮
00:03:04 #14729 [verbose] > │ () │
00:03:04 #14730 [verbose] > │ │
00:03:04 #14731 [verbose] > │ │
00:03:04 #14732 [verbose] > ╰──────────────────────────────────────────────────────────────────────────────╯
00:03:04 #14733 [verbose] >
00:03:04 #14734 [verbose] > ── spiral ──────────────────────────────────────────────────────────────────────
00:03:04 #14735 [verbose] > // // test
00:03:04 #14736 [verbose] >
00:03:04 #14737 [verbose] > None
00:03:04 #14738 [verbose] > |> default_value 3i32
00:03:04 #14739 [verbose] > |> _assert_eq 3i32
00:03:05 #14740 [verbose] > Building c:\home\git\polyglot\target\polyglot\spiral_eval\packages\f127e910128409c2144d0ec128524c6d3f4ea158b822f92b4bde74822af60286\main.spi
00:03:05 #14741 [verbose] >
00:03:05 #14742 [verbose] > ╭─[ 843.01ms - stdout ]────────────────────────────────────────────────────────╮
00:03:05 #14743 [verbose] > │ let rec method0 () : unit = │
00:03:05 #14744 [verbose] > │ let v0 : string = $"%A{3}" │
00:03:05 #14745 [verbose] > │ System.Console.WriteLine v0 │
00:03:05 #14746 [verbose] > │ let v1 : string = $"__expect / actual: %A{3} / expected: %A{3}" │
00:03:05 #14747 [verbose] > │ () │
00:03:05 #14748 [verbose] > │ method0() │
00:03:05 #14749 [verbose] > │ │
00:03:05 #14750 [verbose] > │ 3 │
00:03:05 #14751 [verbose] > │ │
00:03:05 #14752 [verbose] > ╰──────────────────────────────────────────────────────────────────────────────╯
00:03:05 #14753 [verbose] >
00:03:05 #14754 [verbose] > ── markdown ────────────────────────────────────────────────────────────────────
00:03:05 #14755 [verbose] > ╭──────────────────────────────────────────────────────────────────────────────╮
00:03:05 #14756 [verbose] > │ ## (/??) │
00:03:05 #14757 [verbose] > ╰──────────────────────────────────────────────────────────────────────────────╯
00:03:05 #14758 [verbose] >
00:03:05 #14759 [verbose] > ── spiral ──────────────────────────────────────────────────────────────────────
00:03:05 #14760 [verbose] > inl (/??) a b =
00:03:05 #14761 [verbose] > a |> default_value b
00:03:05 #14762 [verbose] > Building c:\home\git\polyglot\target\polyglot\spiral_eval\packages\8ac13221d2a941e0351392f381fd7f7a76bbee28a435f6166d57c9d6edeaed75\main.spi
00:03:06 #14763 [verbose] >
00:03:06 #14764 [verbose] > ╭─[ 262.56ms - stdout ]────────────────────────────────────────────────────────╮
00:03:06 #14765 [verbose] > │ () │
00:03:06 #14766 [verbose] > │ │
00:03:06 #14767 [verbose] > │ │
00:03:06 #14768 [verbose] > ╰──────────────────────────────────────────────────────────────────────────────╯
00:03:06 #14769 [verbose] >
00:03:06 #14770 [verbose] > ── spiral ──────────────────────────────────────────────────────────────────────
00:03:06 #14771 [verbose] > // // test
00:03:06 #14772 [verbose] >
00:03:06 #14773 [verbose] > None /?? 3i32
00:03:06 #14774 [verbose] > |> _assert_eq 3i32
00:03:06 #14775 [verbose] > Building c:\home\git\polyglot\target\polyglot\spiral_eval\packages\81032139a8d1837f2e24dd8e76254e3c5e3d1b290f1f037b49ebed4992b9367a\main.spi
00:03:06 #14776 [verbose] >
00:03:06 #14777 [verbose] > ╭─[ 266.15ms - stdout ]────────────────────────────────────────────────────────╮
00:03:06 #14778 [verbose] > │ let rec method0 () : unit = │
00:03:06 #14779 [verbose] > │ let v0 : string = $"%A{3}" │
00:03:06 #14780 [verbose] > │ System.Console.WriteLine v0 │
00:03:06 #14781 [verbose] > │ let v1 : string = $"__expect / actual: %A{3} / expected: %A{3}" │
00:03:06 #14782 [verbose] > │ () │
00:03:06 #14783 [verbose] > │ method0() │
00:03:06 #14784 [verbose] > │ │
00:03:06 #14785 [verbose] > │ 3 │
00:03:06 #14786 [verbose] > │ │
00:03:06 #14787 [verbose] > ╰──────────────────────────────────────────────────────────────────────────────╯
00:03:06 #14788 [verbose] >
00:03:06 #14789 [verbose] > ── markdown ────────────────────────────────────────────────────────────────────
00:03:06 #14790 [verbose] > ╭──────────────────────────────────────────────────────────────────────────────╮
00:03:06 #14791 [verbose] > │ ## default_with │
00:03:06 #14792 [verbose] > ╰──────────────────────────────────────────────────────────────────────────────╯
00:03:06 #14793 [verbose] >
00:03:06 #14794 [verbose] > ── spiral ──────────────────────────────────────────────────────────────────────
00:03:06 #14795 [verbose] > inl default_with fn = function
00:03:06 #14796 [verbose] > | Some x => x
00:03:06 #14797 [verbose] > | None => fn ()
00:03:06 #14798 [verbose] > Building c:\home\git\polyglot\target\polyglot\spiral_eval\packages\25cdae92c8945151af3cafac33bf38a8e49f838b2bdaa1cd03b1ab2309e59aee\main.spi
00:03:06 #14799 [verbose] >
00:03:06 #14800 [verbose] > ╭─[ 253.06ms - stdout ]────────────────────────────────────────────────────────╮
00:03:06 #14801 [verbose] > │ () │
00:03:06 #14802 [verbose] > │ │
00:03:06 #14803 [verbose] > │ │
00:03:06 #14804 [verbose] > ╰──────────────────────────────────────────────────────────────────────────────╯
00:03:06 #14805 [verbose] >
00:03:06 #14806 [verbose] > ── spiral ──────────────────────────────────────────────────────────────────────
00:03:06 #14807 [verbose] > // // test
00:03:06 #14808 [verbose] >
00:03:06 #14809 [verbose] > None
00:03:06 #14810 [verbose] > |> default_with fun () => 3i32
00:03:06 #14811 [verbose] > |> _assert_eq 3i32
00:03:06 #14812 [verbose] > Building c:\home\git\polyglot\target\polyglot\spiral_eval\packages\3d0a5ba8955e48e694d1aee4d367d506b897018237440ccaefde413d3cf6b122\main.spi
00:03:06 #14813 [verbose] >
00:03:06 #14814 [verbose] > ╭─[ 273.14ms - stdout ]────────────────────────────────────────────────────────╮
00:03:06 #14815 [verbose] > │ let rec method0 () : unit = │
00:03:06 #14816 [verbose] > │ let v0 : string = $"%A{3}" │
00:03:06 #14817 [verbose] > │ System.Console.WriteLine v0 │
00:03:06 #14818 [verbose] > │ let v1 : string = $"__expect / actual: %A{3} / expected: %A{3}" │
00:03:06 #14819 [verbose] > │ () │
00:03:06 #14820 [verbose] > │ method0() │
00:03:06 #14821 [verbose] > │ │
00:03:06 #14822 [verbose] > │ 3 │
00:03:06 #14823 [verbose] > │ │
00:03:06 #14824 [verbose] > ╰──────────────────────────────────────────────────────────────────────────────╯
00:03:06 #14825 [verbose] >
00:03:06 #14826 [verbose] > ── markdown ────────────────────────────────────────────────────────────────────
00:03:06 #14827 [verbose] > ╭──────────────────────────────────────────────────────────────────────────────╮
00:03:06 #14828 [verbose] > │ ## choose │
00:03:06 #14829 [verbose] > ╰──────────────────────────────────────────────────────────────────────────────╯
00:03:06 #14830 [verbose] >
00:03:06 #14831 [verbose] > ── spiral ──────────────────────────────────────────────────────────────────────
00:03:06 #14832 [verbose] > inl choose fn a b =
00:03:06 #14833 [verbose] > match a, b with
00:03:06 #14834 [verbose] > | Some x, Some y => fn x y |> Some
00:03:06 #14835 [verbose] > | _ => None
00:03:06 #14836 [verbose] > Building c:\home\git\polyglot\target\polyglot\spiral_eval\packages\5ce28a8150483c0d279d8581b3d5bf160c6489ada948ce74630bd54b6d30603e\main.spi
00:03:07 #14837 [verbose] >
00:03:07 #14838 [verbose] > ╭─[ 255.89ms - stdout ]────────────────────────────────────────────────────────╮
00:03:07 #14839 [verbose] > │ () │
00:03:07 #14840 [verbose] > │ │
00:03:07 #14841 [verbose] > │ │
00:03:07 #14842 [verbose] > ╰──────────────────────────────────────────────────────────────────────────────╯
00:03:07 #14843 [verbose] >
00:03:07 #14844 [verbose] > ── spiral ──────────────────────────────────────────────────────────────────────
00:03:07 #14845 [verbose] > // // test
00:03:07 #14846 [verbose] >
00:03:07 #14847 [verbose] > (Some 2i32, Some 3)
00:03:07 #14848 [verbose] > ||> choose (+)
00:03:07 #14849 [verbose] > |> _assert_eq (Some 5)
00:03:07 #14850 [verbose] > Building c:\home\git\polyglot\target\polyglot\spiral_eval\packages\421b231584700139210a8a78bd888043a4511c6e8cfd39b1199b1441afee064e\main.spi
00:03:07 #14851 [verbose] >
00:03:07 #14852 [verbose] > ╭─[ 678.66ms - stdout ]────────────────────────────────────────────────────────╮
00:03:07 #14853 [verbose] > │ type [<Struct>] US0 = │
00:03:07 #14854 [verbose] > │ | US0_0 of f0_0 : int32 │
00:03:07 #14855 [verbose] > │ | US0_1 │
00:03:07 #14856 [verbose] > │ let rec method0 () : unit = │
00:03:07 #14857 [verbose] > │ let v0 : US0 = US0_0(5) │
00:03:07 #14858 [verbose] > │ let v1 : string = $"%A{v0}" │
00:03:07 #14859 [verbose] > │ System.Console.WriteLine v1 │
00:03:07 #14860 [verbose] > │ let v5 : US0 = US0_0(5) │
00:03:07 #14861 [verbose] > │ let v6 : US0 = US0_0(5) │
00:03:07 #14862 [verbose] > │ let v7 : string = $"__expect / actual: %A{v5} / expected: %A{v6}" │
00:03:07 #14863 [verbose] > │ () │
00:03:07 #14864 [verbose] > │ method0() │
00:03:07 #14865 [verbose] > │ │
00:03:07 #14866 [verbose] > │ US0_0 5 │
00:03:07 #14867 [verbose] > │ │
00:03:07 #14868 [verbose] > ╰──────────────────────────────────────────────────────────────────────────────╯
00:03:07 #14869 [verbose] >
00:03:07 #14870 [verbose] > ── markdown ────────────────────────────────────────────────────────────────────
00:03:07 #14871 [verbose] > ╭──────────────────────────────────────────────────────────────────────────────╮
00:03:07 #14872 [verbose] > │ ## iter │
00:03:07 #14873 [verbose] > ╰──────────────────────────────────────────────────────────────────────────────╯
00:03:07 #14874 [verbose] >
00:03:07 #14875 [verbose] > ── spiral ──────────────────────────────────────────────────────────────────────
00:03:07 #14876 [verbose] > inl iter fn = function
00:03:07 #14877 [verbose] > | Some x => fn x
00:03:07 #14878 [verbose] > | None => ()
00:03:07 #14879 [verbose] > Building c:\home\git\polyglot\target\polyglot\spiral_eval\packages\6b71c772c676b54887ca3127d3461a4519f9fc60d20088c62814be31b7b7586e\main.spi
00:03:08 #14880 [verbose] >
00:03:08 #14881 [verbose] > ╭─[ 252.53ms - stdout ]────────────────────────────────────────────────────────╮
00:03:08 #14882 [verbose] > │ () │
00:03:08 #14883 [verbose] > │ │
00:03:08 #14884 [verbose] > │ │
00:03:08 #14885 [verbose] > ╰──────────────────────────────────────────────────────────────────────────────╯
00:03:08 #14886 [verbose] >
00:03:08 #14887 [verbose] > ── spiral ──────────────────────────────────────────────────────────────────────
00:03:08 #14888 [verbose] > // // test
00:03:08 #14889 [verbose] >
00:03:08 #14890 [verbose] > inl n = mut 1i32
00:03:08 #14891 [verbose] > inl fn =
00:03:08 #14892 [verbose] > fun n' =>
00:03:08 #14893 [verbose] > n <- *n + n'
00:03:08 #14894 [verbose] > Some 1i32 |> iter fn
00:03:08 #14895 [verbose] > None |> iter fn
00:03:08 #14896 [verbose] > *n
00:03:08 #14897 [verbose] > |> _assert_eq 2i32
00:03:08 #14898 [verbose] > Building c:\home\git\polyglot\target\polyglot\spiral_eval\packages\8dc4e3276ef0ed082dee76c2df62a507aee81f28f265a2b4231ebec10582426d\main.spi
00:03:08 #14899 [verbose] >
00:03:08 #14900 [verbose] > ╭─[ 448.85ms - stdout ]────────────────────────────────────────────────────────╮
00:03:08 #14901 [verbose] > │ type Mut0 = {mutable l0 : int32} │
00:03:08 #14902 [verbose] > │ let rec method1 (v0 : bool) : bool = │
00:03:08 #14903 [verbose] > │ v0 │
00:03:08 #14904 [verbose] > │ and method0 () : unit = │
00:03:08 #14905 [verbose] > │ let v0 : Mut0 = {l0 = 1} : Mut0 │
00:03:08 #14906 [verbose] > │ let v1 : int32 = v0.l0 │
00:03:08 #14907 [verbose] > │ let v2 : int32 = v1 + 1 │
00:03:08 #14908 [verbose] > │ v0.l0 <- v2 │
00:03:08 #14909 [verbose] > │ let v3 : int32 = v0.l0 │
00:03:08 #14910 [verbose] > │ let v4 : string = $"%A{v3}" │
00:03:08 #14911 [verbose] > │ System.Console.WriteLine v4 │
00:03:08 #14912 [verbose] > │ let v5 : bool = v3 = 2 │
00:03:08 #14913 [verbose] > │ let v7 : bool = │
00:03:08 #14914 [verbose] > │ if v5 then │
00:03:08 #14915 [verbose] > │ true │
00:03:08 #14916 [verbose] > │ else │
00:03:08 #14917 [verbose] > │ method1(v5) │
00:03:08 #14918 [verbose] > │ let v8 : string = $"__expect / actual: %A{v3} / expected: %A{2}" │
00:03:08 #14919 [verbose] > │ let v9 : bool = v7 = false │
00:03:08 #14920 [verbose] > │ if v9 then │
00:03:08 #14921 [verbose] > │ failwith<unit> v8 │
00:03:08 #14922 [verbose] > │ method0() │
00:03:08 #14923 [verbose] > │ │
00:03:08 #14924 [verbose] > │ 2 │
00:03:08 #14925 [verbose] > │ │
00:03:08 #14926 [verbose] > ╰──────────────────────────────────────────────────────────────────────────────╯
00:03:08 #14927 [verbose] >
00:03:08 #14928 [verbose] > ── markdown ────────────────────────────────────────────────────────────────────
00:03:08 #14929 [verbose] > ╭──────────────────────────────────────────────────────────────────────────────╮
00:03:08 #14930 [verbose] > │ ## option' │
00:03:08 #14931 [verbose] > ╰──────────────────────────────────────────────────────────────────────────────╯
00:03:08 #14932 [verbose] >
00:03:08 #14933 [verbose] > ── spiral ──────────────────────────────────────────────────────────────────────
00:03:08 #14934 [verbose] > nominal option' t = $"`t option"
00:03:08 #14935 [verbose] > Building c:\home\git\polyglot\target\polyglot\spiral_eval\packages\36176593a8fc7e49837a0752c5271c8bbf20dba7eab7702a2646ac56a8a22d2f\main.spi
00:03:09 #14936 [verbose] >
00:03:09 #14937 [verbose] > ╭─[ 684.37ms - stdout ]────────────────────────────────────────────────────────╮
00:03:09 #14938 [verbose] > │ () │
00:03:09 #14939 [verbose] > │ │
00:03:09 #14940 [verbose] > │ │
00:03:09 #14941 [verbose] > ╰──────────────────────────────────────────────────────────────────────────────╯
00:03:09 #14942 [verbose] >
00:03:09 #14943 [verbose] > ── markdown ────────────────────────────────────────────────────────────────────
00:03:09 #14944 [verbose] > ╭──────────────────────────────────────────────────────────────────────────────╮
00:03:09 #14945 [verbose] > │ ## none' │
00:03:09 #14946 [verbose] > ╰──────────────────────────────────────────────────────────────────────────────╯
00:03:09 #14947 [verbose] >
00:03:09 #14948 [verbose] > ── spiral ──────────────────────────────────────────────────────────────────────
00:03:09 #14949 [verbose] > inl none' forall t. () : option' t =
00:03:09 #14950 [verbose] > $'None'
00:03:09 #14951 [verbose] > Building c:\home\git\polyglot\target\polyglot\spiral_eval\packages\61cf11b890e30cc7af2db4da0c20ed70a99e3752df1f131161c5149c28d64481\main.spi
00:03:09 #14952 [verbose] >
00:03:09 #14953 [verbose] > ╭─[ 257.92ms - stdout ]────────────────────────────────────────────────────────╮
00:03:09 #14954 [verbose] > │ () │
00:03:09 #14955 [verbose] > │ │
00:03:09 #14956 [verbose] > │ │
00:03:09 #14957 [verbose] > ╰──────────────────────────────────────────────────────────────────────────────╯
00:03:09 #14958 [verbose] >
00:03:09 #14959 [verbose] > ── spiral ──────────────────────────────────────────────────────────────────────
00:03:09 #14960 [verbose] > inl some' forall t. (x : t) : option' t =
00:03:09 #14961 [verbose] > $'Some !x '
00:03:09 #14962 [verbose] > Building c:\home\git\polyglot\target\polyglot\spiral_eval\packages\cd3fc4e682f03bb9e8a92093370444dd11eaea3e4fa892de8675a188e769908b\main.spi
00:03:09 #14963 [verbose] >
00:03:09 #14964 [verbose] > ╭─[ 277.12ms - stdout ]────────────────────────────────────────────────────────╮
00:03:09 #14965 [verbose] > │ () │
00:03:09 #14966 [verbose] > │ │
00:03:09 #14967 [verbose] > │ │
00:03:09 #14968 [verbose] > ╰──────────────────────────────────────────────────────────────────────────────╯
00:03:09 #14969 [verbose] >
00:03:09 #14970 [verbose] > ── markdown ────────────────────────────────────────────────────────────────────
00:03:09 #14971 [verbose] > ╭──────────────────────────────────────────────────────────────────────────────╮
00:03:09 #14972 [verbose] > │ ## map │
00:03:09 #14973 [verbose] > ╰──────────────────────────────────────────────────────────────────────────────╯
00:03:09 #14974 [verbose] >
00:03:09 #14975 [verbose] > ── spiral ──────────────────────────────────────────────────────────────────────
00:03:09 #14976 [verbose] > inl map forall t u. (fn : t -> u) (x : option' t) : option' u =
00:03:09 #14977 [verbose] > $'!x |> Option.map !fn '
00:03:09 #14978 [verbose] > Building c:\home\git\polyglot\target\polyglot\spiral_eval\packages\328e4e90c2e02fcb5140bb04fa5ba5135366b9f9c8fbb39342e52adfd0200611\main.spi
00:03:09 #14979 [verbose] >
00:03:09 #14980 [verbose] > ╭─[ 215.50ms - stdout ]────────────────────────────────────────────────────────╮
00:03:09 #14981 [verbose] > │ () │
00:03:09 #14982 [verbose] > │ │
00:03:09 #14983 [verbose] > │ │
00:03:09 #14984 [verbose] > ╰──────────────────────────────────────────────────────────────────────────────╯
00:03:09 #14985 [verbose] >
00:03:09 #14986 [verbose] > ── markdown ────────────────────────────────────────────────────────────────────
00:03:09 #14987 [verbose] > ╭──────────────────────────────────────────────────────────────────────────────╮
00:03:09 #14988 [verbose] > │ ## default_value' │
00:03:09 #14989 [verbose] > ╰──────────────────────────────────────────────────────────────────────────────╯
00:03:09 #14990 [verbose] >
00:03:09 #14991 [verbose] > ── spiral ──────────────────────────────────────────────────────────────────────
00:03:09 #14992 [verbose] > inl default_value' forall t. (value : t) (x : option' t) : t =
00:03:09 #14993 [verbose] > $'!x |> Option.defaultValue !value '
00:03:10 #14994 [verbose] > Building c:\home\git\polyglot\target\polyglot\spiral_eval\packages\6be86e30f5faa062d2f646db126f0658b00a3e4eac876a24c69584ab68623bba\main.spi
00:03:10 #14995 [verbose] >
00:03:10 #14996 [verbose] > ╭─[ 227.06ms - stdout ]────────────────────────────────────────────────────────╮
00:03:10 #14997 [verbose] > │ () │
00:03:10 #14998 [verbose] > │ │
00:03:10 #14999 [verbose] > │ │
00:03:10 #15000 [verbose] > ╰──────────────────────────────────────────────────────────────────────────────╯
00:03:10 #15001 [verbose] >
00:03:10 #15002 [verbose] > ── markdown ────────────────────────────────────────────────────────────────────
00:03:10 #15003 [verbose] > ╭──────────────────────────────────────────────────────────────────────────────╮
00:03:10 #15004 [verbose] > │ ## unbox │
00:03:10 #15005 [verbose] > ╰──────────────────────────────────────────────────────────────────────────────╯
00:03:10 #15006 [verbose] >
00:03:10 #15007 [verbose] > ── spiral ──────────────────────────────────────────────────────────────────────
00:03:10 #15008 [verbose] > inl unbox forall t. (x : option' t) : option t =
00:03:10 #15009 [verbose] > // x
00:03:10 #15010 [verbose] > // |> map Some
00:03:10 #15011 [verbose] > // |> default_value' None
00:03:10 #15012 [verbose] > inl some x : option t = Some x
00:03:10 #15013 [verbose] > inl some = join some
00:03:10 #15014 [verbose] > inl none : option t = None
00:03:10 #15015 [verbose] > $'!x |> Option.map !some |> Option.defaultValue !none '
00:03:10 #15016 [verbose] > Building c:\home\git\polyglot\target\polyglot\spiral_eval\packages\b2db0a968256653f13e6f1be5fbe106f9ba76c764f98669ea965b3fd3fb7c6c2\main.spi
00:03:10 #15017 [verbose] >
00:03:10 #15018 [verbose] > ╭─[ 265.15ms - stdout ]────────────────────────────────────────────────────────╮
00:03:10 #15019 [verbose] > │ () │
00:03:10 #15020 [verbose] > │ │
00:03:10 #15021 [verbose] > │ │
00:03:10 #15022 [verbose] > ╰──────────────────────────────────────────────────────────────────────────────╯
00:03:10 #15023 [verbose] >
00:03:10 #15024 [verbose] > ── markdown ────────────────────────────────────────────────────────────────────
00:03:10 #15025 [verbose] > ╭──────────────────────────────────────────────────────────────────────────────╮
00:03:10 #15026 [verbose] > │ ## box │
00:03:10 #15027 [verbose] > ╰──────────────────────────────────────────────────────────────────────────────╯
00:03:10 #15028 [verbose] >
00:03:10 #15029 [verbose] > ── spiral ──────────────────────────────────────────────────────────────────────
00:03:10 #15030 [verbose] > inl box forall t. (x : option t) : option' t =
00:03:10 #15031 [verbose] > // x
00:03:10 #15032 [verbose] > // |> optionm.map some'
00:03:10 #15033 [verbose] > // |> default_with none'
00:03:10 #15034 [verbose] > match x with
00:03:10 #15035 [verbose] > | Some x => some' x
00:03:10 #15036 [verbose] > | None => none' ()
00:03:10 #15037 [verbose] > Building c:\home\git\polyglot\target\polyglot\spiral_eval\packages\a78ede552695dc9de7f7db67d1fb45afb89687614395b1a5a2dd5a655694afad\main.spi
00:03:10 #15038 [verbose] >
00:03:10 #15039 [verbose] > ╭─[ 240.74ms - stdout ]────────────────────────────────────────────────────────╮
00:03:10 #15040 [verbose] > │ () │
00:03:10 #15041 [verbose] > │ │
00:03:10 #15042 [verbose] > │ │
00:03:10 #15043 [verbose] > ╰──────────────────────────────────────────────────────────────────────────────╯
00:03:10 #15044 [verbose] >
00:03:10 #15045 [verbose] > ── spiral ──────────────────────────────────────────────────────────────────────
00:03:10 #15046 [verbose] > // // test
00:03:10 #15047 [verbose] >
00:03:10 #15048 [verbose] > inl x = Some 3i32
00:03:10 #15049 [verbose] > inl y : option i32 = None
00:03:10 #15050 [verbose] > inl x' = x |> box |> unbox
00:03:10 #15051 [verbose] > inl y' = y |> box |> unbox
00:03:10 #15052 [verbose] > (x', y') |> _assert_eq (x, y)
00:03:10 #15053 [verbose] > Building c:\home\git\polyglot\target\polyglot\spiral_eval\packages\0aeace847dae50c0e69af1bc159df72293015a0a75a9298cdbf988efdf7bcb3a\main.spi
00:03:11 #15054 [verbose] >
00:03:11 #15055 [verbose] > ╭─[ 360.76ms - stdout ]────────────────────────────────────────────────────────╮
00:03:11 #15056 [verbose] > │ type [<Struct>] US0 = │
00:03:11 #15057 [verbose] > │ | US0_0 of f0_0 : int32 │
00:03:11 #15058 [verbose] > │ | US0_1 │
00:03:11 #15059 [verbose] > │ let rec closure0 () (v0 : int32) : US0 = │
00:03:11 #15060 [verbose] > │ US0_0(v0) │
00:03:11 #15061 [verbose] > │ and method1 () : (int32 -> US0) = │
00:03:11 #15062 [verbose] > │ closure0() │
00:03:11 #15063 [verbose] > │ and method2 (v0 : bool) : bool = │
00:03:11 #15064 [verbose] > │ v0 │
00:03:11 #15065 [verbose] > │ and method0 () : unit = │
00:03:11 #15066 [verbose] > │ let v0 : int32 option = Some 3 │
00:03:11 #15067 [verbose] > │ let v1 : (int32 -> US0) = method1() │
00:03:11 #15068 [verbose] > │ let v2 : US0 = US0_1 │
00:03:11 #15069 [verbose] > │ let v3 : US0 = v0 |> Option.map v1 |> Option.defaultValue v2 │
00:03:11 #15070 [verbose] > │ let v4 : int32 option = None │
00:03:11 #15071 [verbose] > │ let v5 : (int32 -> US0) = method1() │
00:03:11 #15072 [verbose] > │ let v6 : US0 = US0_1 │
00:03:11 #15073 [verbose] > │ let v7 : US0 = v4 |> Option.map v5 |> Option.defaultValue v6 │
00:03:11 #15074 [verbose] > │ let v8 : string = $"%A{struct (v3, v7)}" │
00:03:11 #15075 [verbose] > │ System.Console.WriteLine v8 │
00:03:11 #15076 [verbose] > │ let v13 : bool = │
00:03:11 #15077 [verbose] > │ match v3 with │
00:03:11 #15078 [verbose] > │ | US0_0(v11) -> (* Some *) │
00:03:11 #15079 [verbose] > │ let v12 : bool = v11 = 3 │
00:03:11 #15080 [verbose] > │ v12 │
00:03:11 #15081 [verbose] > │ | _ -> │
00:03:11 #15082 [verbose] > │ false │
00:03:11 #15083 [verbose] > │ let v15 : bool = │
00:03:11 #15084 [verbose] > │ if v13 then │
00:03:11 #15085 [verbose] > │ match v7 with │
00:03:11 #15086 [verbose] > │ | US0_1 -> (* None *) │
00:03:11 #15087 [verbose] > │ true │
00:03:11 #15088 [verbose] > │ | _ -> │
00:03:11 #15089 [verbose] > │ false │
00:03:11 #15090 [verbose] > │ else │
00:03:11 #15091 [verbose] > │ false │
00:03:11 #15092 [verbose] > │ let v17 : bool = │
00:03:11 #15093 [verbose] > │ if v15 then │
00:03:11 #15094 [verbose] > │ true │
00:03:11 #15095 [verbose] > │ else │
00:03:11 #15096 [verbose] > │ method2(v15) │
00:03:11 #15097 [verbose] > │ let v18 : US0 = US0_0(3) │
00:03:11 #15098 [verbose] > │ let v19 : US0 = US0_1 │
00:03:11 #15099 [verbose] > │ let v20 : string = $"__expect / actual: %A{struct (v3, v7)} / expected: │
00:03:11 #15100 [verbose] > │ %A{struct (v18, v19)}" │
00:03:11 #15101 [verbose] > │ let v21 : bool = v17 = false │
00:03:11 #15102 [verbose] > │ if v21 then │
00:03:11 #15103 [verbose] > │ failwith<unit> v20 │
00:03:11 #15104 [verbose] > │ method0() │
00:03:11 #15105 [verbose] > │ │
00:03:11 #15106 [verbose] > │ struct (US0_0 3, US0_1) │
00:03:11 #15107 [verbose] > │ │
00:03:11 #15108 [verbose] > ╰──────────────────────────────────────────────────────────────────────────────╯
00:03:11 #15109 [verbose] >
00:03:11 #15110 [verbose] > ── markdown ────────────────────────────────────────────────────────────────────
00:03:11 #15111 [verbose] > ╭──────────────────────────────────────────────────────────────────────────────╮
00:03:11 #15112 [verbose] > │ ## try' │
00:03:11 #15113 [verbose] > ╰──────────────────────────────────────────────────────────────────────────────╯
00:03:11 #15114 [verbose] >
00:03:11 #15115 [verbose] > ── spiral ──────────────────────────────────────────────────────────────────────
00:03:11 #15116 [verbose] > inl try' forall t. (x : option' t) : t =
00:03:11 #15117 [verbose] > !\\(x, $'"$0?"')
00:03:11 #15118 [verbose] > Building c:\home\git\polyglot\target\polyglot\spiral_eval\packages\e932dca77827d733c597dc005999451239aec49491cee6fc2fa7b3b00a6bc9e9\main.spi
00:03:11 #15119 [verbose] >
00:03:11 #15120 [verbose] > ╭─[ 228.94ms - stdout ]────────────────────────────────────────────────────────╮
00:03:11 #15121 [verbose] > │ () │
00:03:11 #15122 [verbose] > │ │
00:03:11 #15123 [verbose] > │ │
00:03:11 #15124 [verbose] > ╰──────────────────────────────────────────────────────────────────────────────╯
00:03:11 #15125 [verbose] >
00:03:11 #15126 [verbose] > ── markdown ────────────────────────────────────────────────────────────────────
00:03:11 #15127 [verbose] > ╭──────────────────────────────────────────────────────────────────────────────╮
00:03:11 #15128 [verbose] > │ ## flatten │
00:03:11 #15129 [verbose] > ╰──────────────────────────────────────────────────────────────────────────────╯
00:03:11 #15130 [verbose] >
00:03:11 #15131 [verbose] > ── spiral ──────────────────────────────────────────────────────────────────────
00:03:11 #15132 [verbose] > inl flatten x =
00:03:11 #15133 [verbose] > match x with
00:03:11 #15134 [verbose] > | Some (Some x) => Some x
00:03:11 #15135 [verbose] > | _ => None
00:03:11 #15136 [verbose] > Building c:\home\git\polyglot\target\polyglot\spiral_eval\packages\9d03e78bd0838e8c4b0c09022722c45b13d1dee49cbb72ca6a1aed6b7f9a545d\main.spi
00:03:11 #15137 [verbose] >
00:03:11 #15138 [verbose] > ╭─[ 227.91ms - stdout ]────────────────────────────────────────────────────────╮
00:03:11 #15139 [verbose] > │ () │
00:03:11 #15140 [verbose] > │ │
00:03:11 #15141 [verbose] > │ │
00:03:11 #15142 [verbose] > ╰──────────────────────────────────────────────────────────────────────────────╯
00:03:11 #15143 [verbose] >
00:03:11 #15144 [verbose] > ── markdown ────────────────────────────────────────────────────────────────────
00:03:11 #15145 [verbose] > ╭──────────────────────────────────────────────────────────────────────────────╮
00:03:11 #15146 [verbose] > │ ## unwrap │
00:03:11 #15147 [verbose] > ╰──────────────────────────────────────────────────────────────────────────────╯
00:03:11 #15148 [verbose] >
00:03:11 #15149 [verbose] > ── spiral ──────────────────────────────────────────────────────────────────────
00:03:11 #15150 [verbose] > inl unwrap forall t. (x : option' t) : t =
00:03:11 #15151 [verbose] > !\($'"!x.unwrap()"')
00:03:11 #15152 [verbose] > Building c:\home\git\polyglot\target\polyglot\spiral_eval\packages\c624bfeb41e844c578e8a5628302bdedae0dc20b8fd02127e04d6798b9737393\main.spi
00:03:11 #15153 [verbose] >
00:03:11 #15154 [verbose] > ╭─[ 358.64ms - stdout ]────────────────────────────────────────────────────────╮
00:03:11 #15155 [verbose] > │ () │
00:03:11 #15156 [verbose] > │ │
00:03:11 #15157 [verbose] > │ │
00:03:11 #15158 [verbose] > ╰──────────────────────────────────────────────────────────────────────────────╯
00:03:11 #15159 [verbose] >
00:03:11 #15160 [verbose] > ── markdown ────────────────────────────────────────────────────────────────────
00:03:11 #15161 [verbose] > ╭──────────────────────────────────────────────────────────────────────────────╮
00:03:11 #15162 [verbose] > │ ## unwrap_or │
00:03:11 #15163 [verbose] > ╰──────────────────────────────────────────────────────────────────────────────╯
00:03:11 #15164 [verbose] >
00:03:11 #15165 [verbose] > ── spiral ──────────────────────────────────────────────────────────────────────
00:03:11 #15166 [verbose] > inl unwrap_or forall t. (def : t) (x : option' t) : t =
00:03:11 #15167 [verbose] > !\($'"!x.unwrap_or(!def)"')
00:03:12 #15168 [verbose] > Building c:\home\git\polyglot\target\polyglot\spiral_eval\packages\d7a292df577870f7c411168cc5a5630e6494ab4c70096c2ff064f136287dab36\main.spi
00:03:12 #15169 [verbose] >
00:03:12 #15170 [verbose] > ╭─[ 235.17ms - stdout ]────────────────────────────────────────────────────────╮
00:03:12 #15171 [verbose] > │ () │
00:03:12 #15172 [verbose] > │ │
00:03:12 #15173 [verbose] > │ │
00:03:12 #15174 [verbose] > ╰──────────────────────────────────────────────────────────────────────────────╯
00:03:12 #15175 [verbose] >
00:03:12 #15176 [verbose] > ── markdown ────────────────────────────────────────────────────────────────────
00:03:12 #15177 [verbose] > ╭──────────────────────────────────────────────────────────────────────────────╮
00:03:12 #15178 [verbose] > │ ## rc_upgrade │
00:03:12 #15179 [verbose] > ╰──────────────────────────────────────────────────────────────────────────────╯
00:03:12 #15180 [verbose] >
00:03:12 #15181 [verbose] > ── spiral ──────────────────────────────────────────────────────────────────────
00:03:12 #15182 [verbose] > inl rc_upgrade forall t. (x : rust.weak_rc t) : option (rust.rc t) =
00:03:12 #15183 [verbose] > inl x = join x
00:03:12 #15184 [verbose] > !\($'"std::rc::Weak::upgrade(&!x)"')
00:03:12 #15185 [verbose] > |> unbox
00:03:12 #15186 [verbose] > Building c:\home\git\polyglot\target\polyglot\spiral_eval\packages\e3ee0d37cd277b03bb9437af678f43c66c8843fcf421c239fbd6b3ca8968c7a2\main.spi
00:03:12 #15187 [verbose] >
00:03:12 #15188 [verbose] > ╭─[ 251.09ms - stdout ]────────────────────────────────────────────────────────╮
00:03:12 #15189 [verbose] > │ () │
00:03:12 #15190 [verbose] > │ │
00:03:12 #15191 [verbose] > │ │
00:03:12 #15192 [verbose] > ╰──────────────────────────────────────────────────────────────────────────────╯
00:03:14 #15193 [verbose] > [NbConvertApp] Converting notebook optionm'.dib.ipynb to html
00:03:14 #15194 [verbose] > C:\Users\i574n\scoop\apps\python\current\Lib\site-packages\nbformat\__init__.py:93: MissingIDFieldWarning: Code cell is missing an id field, this will become a hard error in future nbformat versions. You may want to use `normalize()` on your notebooks before validations (available since nbformat 5.1.4). Previous versions of nbformat are fixing this issue transparently, and will stop doing so in the future.
00:03:14 #15195 [verbose] > validate(nb)
00:03:14 #15196 [verbose] > C:\Users\i574n\scoop\apps\python\current\Lib\site-packages\nbconvert\filters\highlight.py:71: UserWarning: IPython3 lexer unavailable, falling back on Python 3
00:03:14 #15197 [verbose] > return _pygments_highlight(
00:03:14 #15198 [verbose] > [NbConvertApp] Writing 316892 bytes to optionm'.dib.html
00:03:15 #15199 [debug] execute_with_options_async / exit_code: 0 / output.Length: 28733
00:03:15 #16 [debug] main / executeCommand / exitCode: 0
00:03:15 #15200 [debug] execute_with_options_async / options: struct (Some System.Threading.CancellationToken,
"pwsh -c "../../scripts/invoke-dib.ps1 \"am'.dib\" -Retries 3"", None,
None, None)
00:03:17 #15201 [verbose] >
00:03:17 #15202 [verbose] > ── markdown ────────────────────────────────────────────────────────────────────
00:03:17 #15203 [verbose] > ╭──────────────────────────────────────────────────────────────────────────────╮
00:03:17 #15204 [verbose] > │ # am' │
00:03:17 #15205 [verbose] > ╰──────────────────────────────────────────────────────────────────────────────╯
00:03:17 #15206 [verbose] >
00:03:17 #15207 [verbose] > ── spiral ──────────────────────────────────────────────────────────────────────
00:03:17 #15208 [verbose] > // // test
00:03:17 #15209 [verbose] >
00:03:17 #15210 [verbose] > open testing
00:03:17 #15211 [verbose] >
00:03:17 #15212 [verbose] > prototype append t : t -> t -> t
00:03:20 #15213 [verbose] > Building c:\home\git\polyglot\target\polyglot\spiral_eval\packages\d3d1d1fda00dd59384a760ee28afa07876963bb48cdababc03a709d40c2fc076\main.spi
00:03:21 #15214 [verbose] >
00:03:21 #15215 [verbose] > ╭─[ 3.61s - stdout ]───────────────────────────────────────────────────────────╮
00:03:21 #15216 [verbose] > │ () │
00:03:21 #15217 [verbose] > │ │
00:03:21 #15218 [verbose] > │ │
00:03:21 #15219 [verbose] > ╰──────────────────────────────────────────────────────────────────────────────╯
00:03:21 #15220 [verbose] >
00:03:21 #15221 [verbose] > ── spiral ──────────────────────────────────────────────────────────────────────
00:03:21 #15222 [verbose] > open rust_operators
00:03:21 #15223 [verbose] > Building c:\home\git\polyglot\target\polyglot\spiral_eval\packages\13d26aa870446379747b84676a44180aa3203ef2c14e9c6ed6def74d269ef546\main.spi
00:03:21 #15224 [verbose] >
00:03:21 #15225 [verbose] > ╭─[ 277.60ms - stdout ]────────────────────────────────────────────────────────╮
00:03:21 #15226 [verbose] > │ () │
00:03:21 #15227 [verbose] > │ │
00:03:21 #15228 [verbose] > │ │
00:03:21 #15229 [verbose] > ╰──────────────────────────────────────────────────────────────────────────────╯
00:03:21 #15230 [verbose] >
00:03:21 #15231 [verbose] > ── spiral ──────────────────────────────────────────────────────────────────────
00:03:21 #15232 [verbose] > inl types () =
00:03:21 #15233 [verbose] > global "[[<Fable.Core.Erase; Fable.Core.Emit(\"[[$0]]\")>]] type Slice<'T> =
00:03:21 #15234 [verbose] > class end"
00:03:21 #15235 [verbose] > global "[[<Fable.Core.Erase; Fable.Core.Emit(\"[[$0; $1]]\")>]] type
00:03:21 #15236 [verbose] > Slice'<'T, 'U> = class end"
00:03:21 #15237 [verbose] > global "[[<Fable.Core.Erase; Fable.Core.Emit(\"Vec<$0>\")>]] type Vec<'T> =
00:03:21 #15238 [verbose] > class end"
00:03:21 #15239 [verbose] > Building c:\home\git\polyglot\target\polyglot\spiral_eval\packages\a246473e46304eac16c62c52a5a8c4d56812b3707f446c29d6befd9812cc4ed1\main.spi
00:03:22 #15240 [verbose] >
00:03:22 #15241 [verbose] > ╭─[ 265.98ms - stdout ]────────────────────────────────────────────────────────╮
00:03:22 #15242 [verbose] > │ () │
00:03:22 #15243 [verbose] > │ │
00:03:22 #15244 [verbose] > │ │
00:03:22 #15245 [verbose] > ╰──────────────────────────────────────────────────────────────────────────────╯
00:03:22 #15246 [verbose] >
00:03:22 #15247 [verbose] > ── markdown ────────────────────────────────────────────────────────────────────
00:03:22 #15248 [verbose] > ╭──────────────────────────────────────────────────────────────────────────────╮
00:03:22 #15249 [verbose] > │ ## length │
00:03:22 #15250 [verbose] > ╰──────────────────────────────────────────────────────────────────────────────╯
00:03:22 #15251 [verbose] >
00:03:22 #15252 [verbose] > ── spiral ──────────────────────────────────────────────────────────────────────
00:03:22 #15253 [verbose] > inl length forall dim {int} el. (a : a dim el) : dim =
00:03:22 #15254 [verbose] > a |> length
00:03:22 #15255 [verbose] > Building c:\home\git\polyglot\target\polyglot\spiral_eval\packages\a6d2bf8c7739a4897fd6df1a6a2f505a8e0b3ddd37de6b83c66d916cabd46cfa\main.spi
00:03:22 #15256 [verbose] >
00:03:22 #15257 [verbose] > ╭─[ 236.26ms - stdout ]────────────────────────────────────────────────────────╮
00:03:22 #15258 [verbose] > │ () │
00:03:22 #15259 [verbose] > │ │
00:03:22 #15260 [verbose] > │ │
00:03:22 #15261 [verbose] > ╰──────────────────────────────────────────────────────────────────────────────╯
00:03:22 #15262 [verbose] >
00:03:22 #15263 [verbose] > ── markdown ────────────────────────────────────────────────────────────────────
00:03:22 #15264 [verbose] > ╭──────────────────────────────────────────────────────────────────────────────╮
00:03:22 #15265 [verbose] > │ ## index │
00:03:22 #15266 [verbose] > ╰──────────────────────────────────────────────────────────────────────────────╯
00:03:22 #15267 [verbose] >
00:03:22 #15268 [verbose] > ── spiral ──────────────────────────────────────────────────────────────────────
00:03:22 #15269 [verbose] > inl index forall dim {int} el. (i : dim) (a : a dim el) : el =
00:03:22 #15270 [verbose] > index a i
00:03:22 #15271 [verbose] > Building c:\home\git\polyglot\target\polyglot\spiral_eval\packages\336a73751fa0664fe14f5735785601485f75d018fdad0e0e677ee0dbe1d8231d\main.spi
00:03:22 #15272 [verbose] >
00:03:22 #15273 [verbose] > ╭─[ 263.43ms - stdout ]────────────────────────────────────────────────────────╮
00:03:22 #15274 [verbose] > │ () │
00:03:22 #15275 [verbose] > │ │
00:03:22 #15276 [verbose] > │ │
00:03:22 #15277 [verbose] > ╰──────────────────────────────────────────────────────────────────────────────╯
00:03:22 #15278 [verbose] >
00:03:22 #15279 [verbose] > ── markdown ────────────────────────────────────────────────────────────────────
00:03:22 #15280 [verbose] > ╭──────────────────────────────────────────────────────────────────────────────╮
00:03:22 #15281 [verbose] > │ ## append │
00:03:22 #15282 [verbose] > ╰──────────────────────────────────────────────────────────────────────────────╯
00:03:22 #15283 [verbose] >
00:03:22 #15284 [verbose] > ── spiral ──────────────────────────────────────────────────────────────────────
00:03:22 #15285 [verbose] > instance append a dim {int; number} t =
00:03:22 #15286 [verbose] > am.append
00:03:22 #15287 [verbose] > Building c:\home\git\polyglot\target\polyglot\spiral_eval\packages\519d26b3db1ac382080493fdcb2d8534bc2a4cab7e1ffc5d9c5332475ca7d1ed\main.spi
00:03:22 #15288 [verbose] >
00:03:22 #15289 [verbose] > ╭─[ 257.54ms - stdout ]────────────────────────────────────────────────────────╮
00:03:22 #15290 [verbose] > │ () │
00:03:22 #15291 [verbose] > │ │
00:03:22 #15292 [verbose] > │ │
00:03:22 #15293 [verbose] > ╰──────────────────────────────────────────────────────────────────────────────╯
00:03:22 #15294 [verbose] >
00:03:22 #15295 [verbose] > ── markdown ────────────────────────────────────────────────────────────────────
00:03:22 #15296 [verbose] > ╭──────────────────────────────────────────────────────────────────────────────╮
00:03:22 #15297 [verbose] > │ ## /@ │
00:03:22 #15298 [verbose] > ╰──────────────────────────────────────────────────────────────────────────────╯
00:03:22 #15299 [verbose] >
00:03:22 #15300 [verbose] > ── spiral ──────────────────────────────────────────────────────────────────────
00:03:22 #15301 [verbose] > inl (/@) a b =
00:03:22 #15302 [verbose] > b |> append a
00:03:22 #15303 [verbose] > Building c:\home\git\polyglot\target\polyglot\spiral_eval\packages\b7caca8a0792a108d00b1d861735eb2ba8bba7bf5b27c651790e5a6b64a0c9f8\main.spi
00:03:23 #15304 [verbose] >
00:03:23 #15305 [verbose] > ╭─[ 205.59ms - stdout ]────────────────────────────────────────────────────────╮
00:03:23 #15306 [verbose] > │ () │
00:03:23 #15307 [verbose] > │ │
00:03:23 #15308 [verbose] > │ │
00:03:23 #15309 [verbose] > ╰──────────────────────────────────────────────────────────────────────────────╯
00:03:23 #15310 [verbose] >
00:03:23 #15311 [verbose] > ── spiral ──────────────────────────────────────────────────────────────────────
00:03:23 #15312 [verbose] > // // test
00:03:23 #15313 [verbose] >
00:03:23 #15314 [verbose] > a ;[[ "a"; "b" ]] /@ a ;[[ "c"; "d" ]]
00:03:23 #15315 [verbose] > |> _assert_eq (a ;[[ "a"; "b"; "c"; "d" ]] : _ i32 _)
00:03:23 #15316 [verbose] > Building c:\home\git\polyglot\target\polyglot\spiral_eval\packages\df4afc29c4c45298ac46f5b85aa5bbe90d5a2526f3a6b237ba63524d3637b4d3\main.spi
00:03:24 #15317 [verbose] >
00:03:24 #15318 [verbose] > ╭─[ 1.36s - stdout ]───────────────────────────────────────────────────────────╮
00:03:24 #15319 [verbose] > │ type Mut0 = {mutable l0 : int32} │
00:03:24 #15320 [verbose] > │ let rec method1 (v0 : int32, v1 : Mut0) : bool = │
00:03:24 #15321 [verbose] > │ let v2 : int32 = v1.l0 │
00:03:24 #15322 [verbose] > │ let v3 : bool = v2 < v0 │
00:03:24 #15323 [verbose] > │ v3 │
00:03:24 #15324 [verbose] > │ and method2 (v0 : (string []), v1 : (string []), v2 : int32) : bool = │
00:03:24 #15325 [verbose] > │ let v3 : int32 = v0.Length │
00:03:24 #15326 [verbose] > │ let v4 : bool = v2 < v3 │
00:03:24 #15327 [verbose] > │ if v4 then │
00:03:24 #15328 [verbose] > │ let v5 : string = v0.[int v2] │
00:03:24 #15329 [verbose] > │ let v6 : string = v1.[int v2] │
00:03:24 #15330 [verbose] > │ let v7 : bool = v5 = v6 │
00:03:24 #15331 [verbose] > │ if v7 then │
00:03:24 #15332 [verbose] > │ let v8 : int32 = v2 + 1 │
00:03:24 #15333 [verbose] > │ method2(v0, v1, v8) │
00:03:24 #15334 [verbose] > │ else │
00:03:24 #15335 [verbose] > │ false │
00:03:24 #15336 [verbose] > │ else │
00:03:24 #15337 [verbose] > │ true │
00:03:24 #15338 [verbose] > │ and method3 (v0 : bool) : bool = │
00:03:24 #15339 [verbose] > │ v0 │
00:03:24 #15340 [verbose] > │ and method0 () : unit = │
00:03:24 #15341 [verbose] > │ let v0 : string = "a" │
00:03:24 #15342 [verbose] > │ let v1 : string = "b" │
00:03:24 #15343 [verbose] > │ let v2 : (string []) = [|v0; v1|] │
00:03:24 #15344 [verbose] > │ let v3 : string = "c" │
00:03:24 #15345 [verbose] > │ let v4 : string = "d" │
00:03:24 #15346 [verbose] > │ let v5 : (string []) = [|v3; v4|] │
00:03:24 #15347 [verbose] > │ let v6 : int32 = v2.Length │
00:03:24 #15348 [verbose] > │ let v7 : int32 = v5.Length │
00:03:24 #15349 [verbose] > │ let v8 : int32 = v6 + v7 │
00:03:24 #15350 [verbose] > │ let v9 : (string []) = Array.zeroCreate<string> (v8) │
00:03:24 #15351 [verbose] > │ let v10 : Mut0 = {l0 = 0} : Mut0 │
00:03:24 #15352 [verbose] > │ while method1(v8, v10) do │
00:03:24 #15353 [verbose] > │ let v12 : int32 = v10.l0 │
00:03:24 #15354 [verbose] > │ let v13 : bool = v12 < v6 │
00:03:24 #15355 [verbose] > │ let v17 : string = │
00:03:24 #15356 [verbose] > │ if v13 then │
00:03:24 #15357 [verbose] > │ let v14 : string = v2.[int v12] │
00:03:24 #15358 [verbose] > │ v14 │
00:03:24 #15359 [verbose] > │ else │
00:03:24 #15360 [verbose] > │ let v15 : int32 = v12 - v6 │
00:03:24 #15361 [verbose] > │ let v16 : string = v5.[int v15] │
00:03:24 #15362 [verbose] > │ v16 │
00:03:24 #15363 [verbose] > │ v9.[int v12] <- v17 │
00:03:24 #15364 [verbose] > │ let v18 : int32 = v12 + 1 │
00:03:24 #15365 [verbose] > │ v10.l0 <- v18 │
00:03:24 #15366 [verbose] > │ () │
00:03:24 #15367 [verbose] > │ let v19 : (string []) = [|v0; v1; v3; v4|] │
00:03:24 #15368 [verbose] > │ let v20 : string = $"%A{v9}" │
00:03:24 #15369 [verbose] > │ System.Console.WriteLine v20 │
00:03:24 #15370 [verbose] > │ let v21 : int32 = v9.Length │
00:03:24 #15371 [verbose] > │ let v22 : int32 = v19.Length │
00:03:24 #15372 [verbose] > │ let v23 : bool = v21 = v22 │
00:03:24 #15373 [verbose] > │ let v24 : bool = v23 <> true │
00:03:24 #15374 [verbose] > │ let v27 : bool = │
00:03:24 #15375 [verbose] > │ if v24 then │
00:03:24 #15376 [verbose] > │ false │
00:03:24 #15377 [verbose] > │ else │
00:03:24 #15378 [verbose] > │ let v25 : int32 = 0 │
00:03:24 #15379 [verbose] > │ method2(v9, v19, v25) │
00:03:24 #15380 [verbose] > │ let v29 : bool = │
00:03:24 #15381 [verbose] > │ if v27 then │
00:03:24 #15382 [verbose] > │ true │
00:03:24 #15383 [verbose] > │ else │
00:03:24 #15384 [verbose] > │ method3(v27) │
00:03:24 #15385 [verbose] > │ let v30 : string = $"__expect / actual: %A{v9} / expected: %A{v19}" │
00:03:24 #15386 [verbose] > │ let v31 : bool = v29 = false │
00:03:24 #15387 [verbose] > │ if v31 then │
00:03:24 #15388 [verbose] > │ failwith<unit> v30 │
00:03:24 #15389 [verbose] > │ method0() │
00:03:24 #15390 [verbose] > │ │
00:03:24 #15391 [verbose] > │ [|"a"; "b"; "c"; "d"|] │
00:03:24 #15392 [verbose] > │ │
00:03:24 #15393 [verbose] > ╰──────────────────────────────────────────────────────────────────────────────╯
00:03:24 #15394 [verbose] >
00:03:24 #15395 [verbose] > ── markdown ────────────────────────────────────────────────────────────────────
00:03:24 #15396 [verbose] > ╭──────────────────────────────────────────────────────────────────────────────╮
00:03:24 #15397 [verbose] > │ ## collect │
00:03:24 #15398 [verbose] > ╰──────────────────────────────────────────────────────────────────────────────╯
00:03:24 #15399 [verbose] >
00:03:24 #15400 [verbose] > ── spiral ──────────────────────────────────────────────────────────────────────
00:03:24 #15401 [verbose] > inl collect forall t r. (fn : t -> a i32 r) (items : a i32 t) : a i32 r =
00:03:24 #15402 [verbose] > items
00:03:24 #15403 [verbose] > |> am.map fn
00:03:24 #15404 [verbose] > |> am.fold (/@) (a ;[[]])
00:03:24 #15405 [verbose] > Building c:\home\git\polyglot\target\polyglot\spiral_eval\packages\2693c6b90f129744e060db4d79d9eface9c6fe47ca378ca3d7909f8858bb1361\main.spi
00:03:24 #15406 [verbose] >
00:03:24 #15407 [verbose] > ╭─[ 246.72ms - stdout ]────────────────────────────────────────────────────────╮
00:03:24 #15408 [verbose] > │ () │
00:03:24 #15409 [verbose] > │ │
00:03:24 #15410 [verbose] > │ │
00:03:24 #15411 [verbose] > ╰──────────────────────────────────────────────────────────────────────────────╯
00:03:24 #15412 [verbose] >
00:03:24 #15413 [verbose] > ── markdown ────────────────────────────────────────────────────────────────────
00:03:24 #15414 [verbose] > ╭──────────────────────────────────────────────────────────────────────────────╮
00:03:24 #15415 [verbose] > │ ## choose │
00:03:24 #15416 [verbose] > ╰──────────────────────────────────────────────────────────────────────────────╯
00:03:24 #15417 [verbose] >
00:03:24 #15418 [verbose] > ── spiral ──────────────────────────────────────────────────────────────────────
00:03:24 #15419 [verbose] > inl choose f l =
00:03:24 #15420 [verbose] > (l, [[]])
00:03:24 #15421 [verbose] > ||> am.foldBack fun x acc =>
00:03:24 #15422 [verbose] > match f x with
00:03:24 #15423 [verbose] > | Some y => y :: acc
00:03:24 #15424 [verbose] > | None => acc
00:03:24 #15425 [verbose] > |> listm.toArray
00:03:24 #15426 [verbose] > Building c:\home\git\polyglot\target\polyglot\spiral_eval\packages\bdc19e2c49dab8063681100a8c3f6cf6dcb93b090e2e6290c2cd5e5e85670ed4\main.spi
00:03:24 #15427 [verbose] >
00:03:24 #15428 [verbose] > ╭─[ 238.17ms - stdout ]────────────────────────────────────────────────────────╮
00:03:24 #15429 [verbose] > │ () │
00:03:24 #15430 [verbose] > │ │
00:03:24 #15431 [verbose] > │ │
00:03:24 #15432 [verbose] > ╰──────────────────────────────────────────────────────────────────────────────╯
00:03:24 #15433 [verbose] >
00:03:24 #15434 [verbose] > ── spiral ──────────────────────────────────────────────────────────────────────
00:03:24 #15435 [verbose] > // // test
00:03:24 #15436 [verbose] >
00:03:24 #15437 [verbose] > (am.init 10i32 id : a _ _)
00:03:24 #15438 [verbose] > |> choose (fun x => if x % 2 = 0 then Some x else None)
00:03:24 #15439 [verbose] > |> _assert_eq (a ;[[ 0; 2; 4; 6; 8 ]] : _ i32 _)
00:03:25 #15440 [verbose] > Building c:\home\git\polyglot\target\polyglot\spiral_eval\packages\c26b724252467a7efd00f43b4635fbeec0ea48a2bdda3cdf5f85ffda1b9c7ec0\main.spi
00:03:25 #15441 [verbose] >
00:03:25 #15442 [verbose] > ╭─[ 556.15ms - stdout ]────────────────────────────────────────────────────────╮
00:03:25 #15443 [verbose] > │ type Mut0 = {mutable l0 : int32} │
00:03:25 #15444 [verbose] > │ and UH0 = │
00:03:25 #15445 [verbose] > │ | UH0_0 │
00:03:25 #15446 [verbose] > │ | UH0_1 of int32 * UH0 │
00:03:25 #15447 [verbose] > │ and Mut1 = {mutable l0 : int32; mutable l1 : UH0} │
00:03:25 #15448 [verbose] > │ and [<Struct>] US0 = │
00:03:25 #15449 [verbose] > │ | US0_0 of f0_0 : int32 │
00:03:25 #15450 [verbose] > │ | US0_1 │
00:03:25 #15451 [verbose] > │ let rec method1 (v0 : Mut0) : bool = │
00:03:25 #15452 [verbose] > │ let v1 : int32 = v0.l0 │
00:03:25 #15453 [verbose] > │ let v2 : bool = v1 < 10 │
00:03:25 #15454 [verbose] > │ v2 │
00:03:25 #15455 [verbose] > │ and method2 (v0 : int32, v1 : Mut1) : bool = │
00:03:25 #15456 [verbose] > │ let v2 : int32 = v1.l0 │
00:03:25 #15457 [verbose] > │ let v3 : bool = v2 < v0 │
00:03:25 #15458 [verbose] > │ v3 │
00:03:25 #15459 [verbose] > │ and method4 (v0 : UH0, v1 : int32) : int32 = │
00:03:25 #15460 [verbose] > │ match v0 with │
00:03:25 #15461 [verbose] > │ | UH0_1(v2, v3) -> (* Cons *) │
00:03:25 #15462 [verbose] > │ let v4 : int32 = v1 + 1 │
00:03:25 #15463 [verbose] > │ method4(v3, v4) │
00:03:25 #15464 [verbose] > │ | UH0_0 -> (* Nil *) │
00:03:25 #15465 [verbose] > │ v1 │
00:03:25 #15466 [verbose] > │ and method5 (v0 : (int32 []), v1 : UH0, v2 : int32) : int32 = │
00:03:25 #15467 [verbose] > │ match v1 with │
00:03:25 #15468 [verbose] > │ | UH0_1(v3, v4) -> (* Cons *) │
00:03:25 #15469 [verbose] > │ v0.[int v2] <- v3 │
00:03:25 #15470 [verbose] > │ let v5 : int32 = v2 + 1 │
00:03:25 #15471 [verbose] > │ method5(v0, v4, v5) │
00:03:25 #15472 [verbose] > │ | UH0_0 -> (* Nil *) │
00:03:25 #15473 [verbose] > │ v2 │
00:03:25 #15474 [verbose] > │ and method3 (v0 : UH0) : (int32 []) = │
00:03:25 #15475 [verbose] > │ let v1 : int32 = 0 │
00:03:25 #15476 [verbose] > │ let v2 : int32 = method4(v0, v1) │
00:03:25 #15477 [verbose] > │ let v3 : (int32 []) = Array.zeroCreate<int32> (v2) │
00:03:25 #15478 [verbose] > │ let v4 : int32 = 0 │
00:03:25 #15479 [verbose] > │ let v5 : int32 = method5(v3, v0, v4) │
00:03:25 #15480 [verbose] > │ v3 │
00:03:25 #15481 [verbose] > │ and method6 (v0 : (int32 []), v1 : (int32 []), v2 : int32) : bool = │
00:03:25 #15482 [verbose] > │ let v3 : int32 = v0.Length │
00:03:25 #15483 [verbose] > │ let v4 : bool = v2 < v3 │
00:03:25 #15484 [verbose] > │ if v4 then │
00:03:25 #15485 [verbose] > │ let v5 : int32 = v0.[int v2] │
00:03:25 #15486 [verbose] > │ let v6 : int32 = v1.[int v2] │
00:03:25 #15487 [verbose] > │ let v7 : bool = v5 = v6 │
00:03:25 #15488 [verbose] > │ if v7 then │
00:03:25 #15489 [verbose] > │ let v8 : int32 = v2 + 1 │
00:03:25 #15490 [verbose] > │ method6(v0, v1, v8) │
00:03:25 #15491 [verbose] > │ else │
00:03:25 #15492 [verbose] > │ false │
00:03:25 #15493 [verbose] > │ else │
00:03:25 #15494 [verbose] > │ true │
00:03:25 #15495 [verbose] > │ and method7 (v0 : bool) : bool = │
00:03:25 #15496 [verbose] > │ v0 │
00:03:25 #15497 [verbose] > │ and method0 () : unit = │
00:03:25 #15498 [verbose] > │ let v0 : (int32 []) = Array.zeroCreate<int32> (10) │
00:03:25 #15499 [verbose] > │ let v1 : Mut0 = {l0 = 0} : Mut0 │
00:03:25 #15500 [verbose] > │ while method1(v1) do │
00:03:25 #15501 [verbose] > │ let v3 : int32 = v1.l0 │
00:03:25 #15502 [verbose] > │ v0.[int v3] <- v3 │
00:03:25 #15503 [verbose] > │ let v4 : int32 = v3 + 1 │
00:03:25 #15504 [verbose] > │ v1.l0 <- v4 │
00:03:25 #15505 [verbose] > │ () │
00:03:25 #15506 [verbose] > │ let v5 : int32 = v0.Length │
00:03:25 #15507 [verbose] > │ let v6 : UH0 = UH0_0 │
00:03:25 #15508 [verbose] > │ let v7 : Mut1 = {l0 = 0; l1 = v6} : Mut1 │
00:03:25 #15509 [verbose] > │ while method2(v5, v7) do │
00:03:25 #15510 [verbose] > │ let v9 : int32 = v7.l0 │
00:03:25 #15511 [verbose] > │ let v10 : int32 = -v9 │
00:03:25 #15512 [verbose] > │ let v11 : int32 = v10 + v5 │
00:03:25 #15513 [verbose] > │ let v12 : int32 = v11 - 1 │
00:03:25 #15514 [verbose] > │ let v13 : UH0 = v7.l1 │
00:03:25 #15515 [verbose] > │ let v14 : int32 = v0.[int v12] │
00:03:25 #15516 [verbose] > │ let v15 : int32 = v14 % 2 │
00:03:25 #15517 [verbose] > │ let v16 : bool = v15 = 0 │
00:03:25 #15518 [verbose] > │ let v19 : US0 = │
00:03:25 #15519 [verbose] > │ if v16 then │
00:03:25 #15520 [verbose] > │ US0_0(v14) │
00:03:25 #15521 [verbose] > │ else │
00:03:25 #15522 [verbose] > │ US0_1 │
00:03:25 #15523 [verbose] > │ let v23 : UH0 = │
00:03:25 #15524 [verbose] > │ match v19 with │
00:03:25 #15525 [verbose] > │ | US0_1 -> (* None *) │
00:03:25 #15526 [verbose] > │ v13 │
00:03:25 #15527 [verbose] > │ | US0_0(v20) -> (* Some *) │
00:03:25 #15528 [verbose] > │ UH0_1(v20, v13) │
00:03:25 #15529 [verbose] > │ let v24 : int32 = v9 + 1 │
00:03:25 #15530 [verbose] > │ v7.l0 <- v24 │
00:03:25 #15531 [verbose] > │ v7.l1 <- v23 │
00:03:25 #15532 [verbose] > │ () │
00:03:25 #15533 [verbose] > │ let v25 : UH0 = v7.l1 │
00:03:25 #15534 [verbose] > │ let v26 : (int32 []) = method3(v25) │
00:03:25 #15535 [verbose] > │ let v27 : (int32 []) = [|0; 2; 4; 6; 8|] │
00:03:25 #15536 [verbose] > │ let v28 : string = $"%A{v26}" │
00:03:25 #15537 [verbose] > │ System.Console.WriteLine v28 │
00:03:25 #15538 [verbose] > │ let v29 : int32 = v26.Length │
00:03:25 #15539 [verbose] > │ let v30 : int32 = v27.Length │
00:03:25 #15540 [verbose] > │ let v31 : bool = v29 = v30 │
00:03:25 #15541 [verbose] > │ let v32 : bool = v31 <> true │
00:03:25 #15542 [verbose] > │ let v35 : bool = │
00:03:25 #15543 [verbose] > │ if v32 then │
00:03:25 #15544 [verbose] > │ false │
00:03:25 #15545 [verbose] > │ else │
00:03:25 #15546 [verbose] > │ let v33 : int32 = 0 │
00:03:25 #15547 [verbose] > │ method6(v26, v27, v33) │
00:03:25 #15548 [verbose] > │ let v37 : bool = │
00:03:25 #15549 [verbose] > │ if v35 then │
00:03:25 #15550 [verbose] > │ true │
00:03:25 #15551 [verbose] > │ else │
00:03:25 #15552 [verbose] > │ method7(v35) │
00:03:25 #15553 [verbose] > │ let v38 : string = $"__expect / actual: %A{v26} / expected: %A{v27}" │
00:03:25 #15554 [verbose] > │ let v39 : bool = v37 = false │
00:03:25 #15555 [verbose] > │ if v39 then │
00:03:25 #15556 [verbose] > │ failwith<unit> v38 │
00:03:25 #15557 [verbose] > │ method0() │
00:03:25 #15558 [verbose] > │ │
00:03:25 #15559 [verbose] > │ [|0; 2; 4; 6; 8|] │
00:03:25 #15560 [verbose] > │ │
00:03:25 #15561 [verbose] > ╰──────────────────────────────────────────────────────────────────────────────╯
00:03:25 #15562 [verbose] >
00:03:25 #15563 [verbose] > ── markdown ────────────────────────────────────────────────────────────────────
00:03:25 #15564 [verbose] > ╭──────────────────────────────────────────────────────────────────────────────╮
00:03:25 #15565 [verbose] > │ ## sum │
00:03:25 #15566 [verbose] > ╰──────────────────────────────────────────────────────────────────────────────╯
00:03:25 #15567 [verbose] >
00:03:25 #15568 [verbose] > ── spiral ──────────────────────────────────────────────────────────────────────
00:03:25 #15569 [verbose] > inl sum (a' : a _ _) =
00:03:25 #15570 [verbose] > a' |> am.fold (+) 0
00:03:25 #15571 [verbose] > Building c:\home\git\polyglot\target\polyglot\spiral_eval\packages\c790ae083d786fe97262d691a4a1b0447dcb6ae4b60d294c9deb1a6d27d94e05\main.spi
00:03:25 #15572 [verbose] >
00:03:25 #15573 [verbose] > ╭─[ 234.16ms - stdout ]────────────────────────────────────────────────────────╮
00:03:25 #15574 [verbose] > │ () │
00:03:25 #15575 [verbose] > │ │
00:03:25 #15576 [verbose] > │ │
00:03:25 #15577 [verbose] > ╰──────────────────────────────────────────────────────────────────────────────╯
00:03:25 #15578 [verbose] >
00:03:25 #15579 [verbose] > ── spiral ──────────────────────────────────────────────────────────────────────
00:03:25 #15580 [verbose] > // // test
00:03:25 #15581 [verbose] >
00:03:25 #15582 [verbose] > am.init 10i32 id
00:03:25 #15583 [verbose] > |> sum
00:03:25 #15584 [verbose] > |> _assert_eq 45
00:03:25 #15585 [verbose] > Building c:\home\git\polyglot\target\polyglot\spiral_eval\packages\de9b7e62d1578f79255422e90622f25cf83423b56d6d2a5981a400d26f10d3ea\main.spi
00:03:26 #15586 [verbose] >
00:03:26 #15587 [verbose] > ╭─[ 327.33ms - stdout ]────────────────────────────────────────────────────────╮
00:03:26 #15588 [verbose] > │ type Mut0 = {mutable l0 : int32} │
00:03:26 #15589 [verbose] > │ and Mut1 = {mutable l0 : int32; mutable l1 : int32} │
00:03:26 #15590 [verbose] > │ let rec method1 (v0 : Mut0) : bool = │
00:03:26 #15591 [verbose] > │ let v1 : int32 = v0.l0 │
00:03:26 #15592 [verbose] > │ let v2 : bool = v1 < 10 │
00:03:26 #15593 [verbose] > │ v2 │
00:03:26 #15594 [verbose] > │ and method2 (v0 : int32, v1 : Mut1) : bool = │
00:03:26 #15595 [verbose] > │ let v2 : int32 = v1.l0 │
00:03:26 #15596 [verbose] > │ let v3 : bool = v2 < v0 │
00:03:26 #15597 [verbose] > │ v3 │
00:03:26 #15598 [verbose] > │ and method3 (v0 : bool) : bool = │
00:03:26 #15599 [verbose] > │ v0 │
00:03:26 #15600 [verbose] > │ and method0 () : unit = │
00:03:26 #15601 [verbose] > │ let v0 : (int32 []) = Array.zeroCreate<int32> (10) │
00:03:26 #15602 [verbose] > │ let v1 : Mut0 = {l0 = 0} : Mut0 │
00:03:26 #15603 [verbose] > │ while method1(v1) do │
00:03:26 #15604 [verbose] > │ let v3 : int32 = v1.l0 │
00:03:26 #15605 [verbose] > │ v0.[int v3] <- v3 │
00:03:26 #15606 [verbose] > │ let v4 : int32 = v3 + 1 │
00:03:26 #15607 [verbose] > │ v1.l0 <- v4 │
00:03:26 #15608 [verbose] > │ () │
00:03:26 #15609 [verbose] > │ let v5 : int32 = v0.Length │
00:03:26 #15610 [verbose] > │ let v6 : Mut1 = {l0 = 0; l1 = 0} : Mut1 │
00:03:26 #15611 [verbose] > │ while method2(v5, v6) do │
00:03:26 #15612 [verbose] > │ let v8 : int32 = v6.l0 │
00:03:26 #15613 [verbose] > │ let v9 : int32 = v6.l1 │
00:03:26 #15614 [verbose] > │ let v10 : int32 = v0.[int v8] │
00:03:26 #15615 [verbose] > │ let v11 : int32 = v9 + v10 │
00:03:26 #15616 [verbose] > │ let v12 : int32 = v8 + 1 │
00:03:26 #15617 [verbose] > │ v6.l0 <- v12 │
00:03:26 #15618 [verbose] > │ v6.l1 <- v11 │
00:03:26 #15619 [verbose] > │ () │
00:03:26 #15620 [verbose] > │ let v13 : int32 = v6.l1 │
00:03:26 #15621 [verbose] > │ let v14 : string = $"%A{v13}" │
00:03:26 #15622 [verbose] > │ System.Console.WriteLine v14 │
00:03:26 #15623 [verbose] > │ let v15 : bool = v13 = 45 │
00:03:26 #15624 [verbose] > │ let v17 : bool = │
00:03:26 #15625 [verbose] > │ if v15 then │
00:03:26 #15626 [verbose] > │ true │
00:03:26 #15627 [verbose] > │ else │
00:03:26 #15628 [verbose] > │ method3(v15) │
00:03:26 #15629 [verbose] > │ let v18 : string = $"__expect / actual: %A{v13} / expected: %A{45}" │
00:03:26 #15630 [verbose] > │ let v19 : bool = v17 = false │
00:03:26 #15631 [verbose] > │ if v19 then │
00:03:26 #15632 [verbose] > │ failwith<unit> v18 │
00:03:26 #15633 [verbose] > │ method0() │
00:03:26 #15634 [verbose] > │ │
00:03:26 #15635 [verbose] > │ 45 │
00:03:26 #15636 [verbose] > │ │
00:03:26 #15637 [verbose] > ╰──────────────────────────────────────────────────────────────────────────────╯
00:03:26 #15638 [verbose] >
00:03:26 #15639 [verbose] > ── markdown ────────────────────────────────────────────────────────────────────
00:03:26 #15640 [verbose] > ╭──────────────────────────────────────────────────────────────────────────────╮
00:03:26 #15641 [verbose] > │ ## init_series │
00:03:26 #15642 [verbose] > ╰──────────────────────────────────────────────────────────────────────────────╯
00:03:26 #15643 [verbose] >
00:03:26 #15644 [verbose] > ── spiral ──────────────────────────────────────────────────────────────────────
00:03:26 #15645 [verbose] > inl init_series start end inc =
00:03:26 #15646 [verbose] > inl total = conv ((end - start) / inc) + 1
00:03:26 #15647 [verbose] > am.init total (conv >> (*) inc >> (+) start) : a i32 _
00:03:26 #15648 [verbose] > Building c:\home\git\polyglot\target\polyglot\spiral_eval\packages\058dbf427278c05865af272cfbc19c29faff3dc8bcec170c34cfb5a9dd1bc99d\main.spi
00:03:26 #15649 [verbose] >
00:03:26 #15650 [verbose] > ╭─[ 225.90ms - stdout ]────────────────────────────────────────────────────────╮
00:03:26 #15651 [verbose] > │ () │
00:03:26 #15652 [verbose] > │ │
00:03:26 #15653 [verbose] > │ │
00:03:26 #15654 [verbose] > ╰──────────────────────────────────────────────────────────────────────────────╯
00:03:26 #15655 [verbose] >
00:03:26 #15656 [verbose] > ── spiral ──────────────────────────────────────────────────────────────────────
00:03:26 #15657 [verbose] > // // test
00:03:26 #15658 [verbose] >
00:03:26 #15659 [verbose] > init_series 0 1 0.5
00:03:26 #15660 [verbose] > |> _assert_eq (a ;[[ 0f64; 0.5; 1 ]])
00:03:26 #15661 [verbose] > Building c:\home\git\polyglot\target\polyglot\spiral_eval\packages\3011d13ca6d4c6b6e4bf5d7f4fce601e2086079fc5b1aa10659807244b8a69fc\main.spi
00:03:26 #15662 [verbose] >
00:03:26 #15663 [verbose] > ╭─[ 300.31ms - stdout ]────────────────────────────────────────────────────────╮
00:03:26 #15664 [verbose] > │ type Mut0 = {mutable l0 : int32} │
00:03:26 #15665 [verbose] > │ let rec method1 (v0 : Mut0) : bool = │
00:03:26 #15666 [verbose] > │ let v1 : int32 = v0.l0 │
00:03:26 #15667 [verbose] > │ let v2 : bool = v1 < 3 │
00:03:26 #15668 [verbose] > │ v2 │
00:03:26 #15669 [verbose] > │ and method2 (v0 : (float []), v1 : (float []), v2 : int32) : bool = │
00:03:26 #15670 [verbose] > │ let v3 : int32 = v0.Length │
00:03:26 #15671 [verbose] > │ let v4 : bool = v2 < v3 │
00:03:26 #15672 [verbose] > │ if v4 then │
00:03:26 #15673 [verbose] > │ let v5 : float = v0.[int v2] │
00:03:26 #15674 [verbose] > │ let v6 : float = v1.[int v2] │
00:03:26 #15675 [verbose] > │ let v7 : bool = v5 = v6 │
00:03:26 #15676 [verbose] > │ if v7 then │
00:03:26 #15677 [verbose] > │ let v8 : int32 = v2 + 1 │
00:03:26 #15678 [verbose] > │ method2(v0, v1, v8) │
00:03:26 #15679 [verbose] > │ else │
00:03:26 #15680 [verbose] > │ false │
00:03:26 #15681 [verbose] > │ else │
00:03:26 #15682 [verbose] > │ true │
00:03:26 #15683 [verbose] > │ and method3 (v0 : bool) : bool = │
00:03:26 #15684 [verbose] > │ v0 │
00:03:26 #15685 [verbose] > │ and method0 () : unit = │
00:03:26 #15686 [verbose] > │ let v0 : (float []) = Array.zeroCreate<float> (3) │
00:03:26 #15687 [verbose] > │ let v1 : Mut0 = {l0 = 0} : Mut0 │
00:03:26 #15688 [verbose] > │ while method1(v1) do │
00:03:26 #15689 [verbose] > │ let v3 : int32 = v1.l0 │
00:03:26 #15690 [verbose] > │ let v4 : float = float v3 │
00:03:26 #15691 [verbose] > │ let v5 : float = 0.5 * v4 │
00:03:26 #15692 [verbose] > │ v0.[int v3] <- v5 │
00:03:26 #15693 [verbose] > │ let v6 : int32 = v3 + 1 │
00:03:26 #15694 [verbose] > │ v1.l0 <- v6 │
00:03:26 #15695 [verbose] > │ () │
00:03:26 #15696 [verbose] > │ let v7 : (float []) = [|0.0; 0.5; 1.0|] │
00:03:26 #15697 [verbose] > │ let v8 : string = $"%A{v0}" │
00:03:26 #15698 [verbose] > │ System.Console.WriteLine v8 │
00:03:26 #15699 [verbose] > │ let v9 : int32 = v0.Length │
00:03:26 #15700 [verbose] > │ let v10 : int32 = v7.Length │
00:03:26 #15701 [verbose] > │ let v11 : bool = v9 = v10 │
00:03:26 #15702 [verbose] > │ let v12 : bool = v11 <> true │
00:03:26 #15703 [verbose] > │ let v15 : bool = │
00:03:26 #15704 [verbose] > │ if v12 then │
00:03:26 #15705 [verbose] > │ false │
00:03:26 #15706 [verbose] > │ else │
00:03:26 #15707 [verbose] > │ let v13 : int32 = 0 │
00:03:26 #15708 [verbose] > │ method2(v0, v7, v13) │
00:03:26 #15709 [verbose] > │ let v17 : bool = │
00:03:26 #15710 [verbose] > │ if v15 then │
00:03:26 #15711 [verbose] > │ true │
00:03:26 #15712 [verbose] > │ else │
00:03:26 #15713 [verbose] > │ method3(v15) │
00:03:26 #15714 [verbose] > │ let v18 : string = $"__expect / actual: %A{v0} / expected: %A{v7}" │
00:03:26 #15715 [verbose] > │ let v19 : bool = v17 = false │
00:03:26 #15716 [verbose] > │ if v19 then │
00:03:26 #15717 [verbose] > │ failwith<unit> v18 │
00:03:26 #15718 [verbose] > │ method0() │
00:03:26 #15719 [verbose] > │ │
00:03:26 #15720 [verbose] > │ [|0.0; 0.5; 1.0|] │
00:03:26 #15721 [verbose] > │ │
00:03:26 #15722 [verbose] > ╰──────────────────────────────────────────────────────────────────────────────╯
00:03:26 #15723 [verbose] >
00:03:26 #15724 [verbose] > ── markdown ────────────────────────────────────────────────────────────────────
00:03:26 #15725 [verbose] > ╭──────────────────────────────────────────────────────────────────────────────╮
00:03:26 #15726 [verbose] > │ ## head │
00:03:26 #15727 [verbose] > ╰──────────────────────────────────────────────────────────────────────────────╯
00:03:26 #15728 [verbose] >
00:03:26 #15729 [verbose] > ── spiral ──────────────────────────────────────────────────────────────────────
00:03:26 #15730 [verbose] > inl head (ar : a _ _) =
00:03:26 #15731 [verbose] > if var_is ar || length ar > 0
00:03:26 #15732 [verbose] > then ar |> index 0
00:03:26 #15733 [verbose] > else error_type "The length of the array should be greater than 0."
00:03:26 #15734 [verbose] > Building c:\home\git\polyglot\target\polyglot\spiral_eval\packages\981dc93870296fc9f9f1d68d1f395589e6b1ca94d4b37f4cc899e5e368e3e565\main.spi
00:03:26 #15735 [verbose] >
00:03:26 #15736 [verbose] > ╭─[ 255.08ms - stdout ]────────────────────────────────────────────────────────╮
00:03:26 #15737 [verbose] > │ () │
00:03:26 #15738 [verbose] > │ │
00:03:26 #15739 [verbose] > │ │
00:03:26 #15740 [verbose] > ╰──────────────────────────────────────────────────────────────────────────────╯
00:03:26 #15741 [verbose] >
00:03:26 #15742 [verbose] > ── markdown ────────────────────────────────────────────────────────────────────
00:03:26 #15743 [verbose] > ╭──────────────────────────────────────────────────────────────────────────────╮
00:03:26 #15744 [verbose] > │ ## last │
00:03:26 #15745 [verbose] > ╰──────────────────────────────────────────────────────────────────────────────╯
00:03:26 #15746 [verbose] >
00:03:26 #15747 [verbose] > ── spiral ──────────────────────────────────────────────────────────────────────
00:03:26 #15748 [verbose] > inl last (ar : a _ _) =
00:03:26 #15749 [verbose] > inl len = length ar
00:03:26 #15750 [verbose] > if var_is ar || len > 0
00:03:26 #15751 [verbose] > then ar |> index (len - 1)
00:03:26 #15752 [verbose] > else error_type "The length of the array should be greater than 0."
00:03:27 #15753 [verbose] > Building c:\home\git\polyglot\target\polyglot\spiral_eval\packages\ff52934dc8f78e5716309459d1b627c8dafdb8c593c448d2dae4a846ed7943bb\main.spi
00:03:27 #15754 [verbose] >
00:03:27 #15755 [verbose] > ╭─[ 589.09ms - stdout ]────────────────────────────────────────────────────────╮
00:03:27 #15756 [verbose] > │ () │
00:03:27 #15757 [verbose] > │ │
00:03:27 #15758 [verbose] > │ │
00:03:27 #15759 [verbose] > ╰──────────────────────────────────────────────────────────────────────────────╯
00:03:27 #15760 [verbose] >
00:03:27 #15761 [verbose] > ── spiral ──────────────────────────────────────────────────────────────────────
00:03:27 #15762 [verbose] > // // test
00:03:27 #15763 [verbose] >
00:03:27 #15764 [verbose] > am.init 10i32 id
00:03:27 #15765 [verbose] > |> last
00:03:27 #15766 [verbose] > |> _assert_eq 9
00:03:27 #15767 [verbose] > Building c:\home\git\polyglot\target\polyglot\spiral_eval\packages\47cfe2cba41e3b652e3a4e9be98ac035fd792927b5fcce3f7198b17a65159b97\main.spi
00:03:27 #15768 [verbose] >
00:03:27 #15769 [verbose] > ╭─[ 261.16ms - stdout ]────────────────────────────────────────────────────────╮
00:03:27 #15770 [verbose] > │ type Mut0 = {mutable l0 : int32} │
00:03:27 #15771 [verbose] > │ let rec method1 (v0 : Mut0) : bool = │
00:03:27 #15772 [verbose] > │ let v1 : int32 = v0.l0 │
00:03:27 #15773 [verbose] > │ let v2 : bool = v1 < 10 │
00:03:27 #15774 [verbose] > │ v2 │
00:03:27 #15775 [verbose] > │ and method2 (v0 : bool) : bool = │
00:03:27 #15776 [verbose] > │ v0 │
00:03:27 #15777 [verbose] > │ and method0 () : unit = │
00:03:27 #15778 [verbose] > │ let v0 : (int32 []) = Array.zeroCreate<int32> (10) │
00:03:27 #15779 [verbose] > │ let v1 : Mut0 = {l0 = 0} : Mut0 │
00:03:27 #15780 [verbose] > │ while method1(v1) do │
00:03:27 #15781 [verbose] > │ let v3 : int32 = v1.l0 │
00:03:27 #15782 [verbose] > │ v0.[int v3] <- v3 │
00:03:27 #15783 [verbose] > │ let v4 : int32 = v3 + 1 │
00:03:27 #15784 [verbose] > │ v1.l0 <- v4 │
00:03:27 #15785 [verbose] > │ () │
00:03:27 #15786 [verbose] > │ let v5 : int32 = v0.Length │
00:03:27 #15787 [verbose] > │ let v6 : int32 = v5 - 1 │
00:03:27 #15788 [verbose] > │ let v7 : int32 = v0.[int v6] │
00:03:27 #15789 [verbose] > │ let v8 : string = $"%A{v7}" │
00:03:27 #15790 [verbose] > │ System.Console.WriteLine v8 │
00:03:27 #15791 [verbose] > │ let v9 : bool = v7 = 9 │
00:03:27 #15792 [verbose] > │ let v11 : bool = │
00:03:27 #15793 [verbose] > │ if v9 then │
00:03:27 #15794 [verbose] > │ true │
00:03:27 #15795 [verbose] > │ else │
00:03:27 #15796 [verbose] > │ method2(v9) │
00:03:27 #15797 [verbose] > │ let v12 : string = $"__expect / actual: %A{v7} / expected: %A{9}" │
00:03:27 #15798 [verbose] > │ let v13 : bool = v11 = false │
00:03:27 #15799 [verbose] > │ if v13 then │
00:03:27 #15800 [verbose] > │ failwith<unit> v12 │
00:03:27 #15801 [verbose] > │ method0() │
00:03:27 #15802 [verbose] > │ │
00:03:27 #15803 [verbose] > │ 9 │
00:03:27 #15804 [verbose] > │ │
00:03:27 #15805 [verbose] > ╰──────────────────────────────────────────────────────────────────────────────╯
00:03:27 #15806 [verbose] >
00:03:27 #15807 [verbose] > ── markdown ────────────────────────────────────────────────────────────────────
00:03:27 #15808 [verbose] > ╭──────────────────────────────────────────────────────────────────────────────╮
00:03:27 #15809 [verbose] > │ ## try_pick │
00:03:27 #15810 [verbose] > ╰──────────────────────────────────────────────────────────────────────────────╯
00:03:27 #15811 [verbose] >
00:03:27 #15812 [verbose] > ── spiral ──────────────────────────────────────────────────────────────────────
00:03:27 #15813 [verbose] > inl try_pick forall t u. (fn : t -> option u) (array : a _ t) : option u =
00:03:27 #15814 [verbose] > (array, None)
00:03:27 #15815 [verbose] > ||> am.foldBack fun x acc =>
00:03:27 #15816 [verbose] > match acc with
00:03:27 #15817 [verbose] > | Some _ => acc
00:03:27 #15818 [verbose] > | None => x |> fn
00:03:27 #15819 [verbose] > Building c:\home\git\polyglot\target\polyglot\spiral_eval\packages\3b5608351d345e2a257de949f82f9d7cb1f42a9f4c8465f1bb3e4d1328536dc2\main.spi
00:03:28 #15820 [verbose] >
00:03:28 #15821 [verbose] > ╭─[ 239.54ms - stdout ]────────────────────────────────────────────────────────╮
00:03:28 #15822 [verbose] > │ () │
00:03:28 #15823 [verbose] > │ │
00:03:28 #15824 [verbose] > │ │
00:03:28 #15825 [verbose] > ╰──────────────────────────────────────────────────────────────────────────────╯
00:03:28 #15826 [verbose] >
00:03:28 #15827 [verbose] > ── spiral ──────────────────────────────────────────────────────────────────────
00:03:28 #15828 [verbose] > // // test
00:03:28 #15829 [verbose] >
00:03:28 #15830 [verbose] > am.init 10i32 id
00:03:28 #15831 [verbose] > |> try_pick (fun x => if x = 5i32 then Some x else None)
00:03:28 #15832 [verbose] > |> _assert_eq (Some 5i32)
00:03:28 #15833 [verbose] > Building c:\home\git\polyglot\target\polyglot\spiral_eval\packages\54d3f56ff16ada411e532ba41ac0d7a152123d8519540d65e3999fb8db32c93b\main.spi
00:03:28 #15834 [verbose] >
00:03:28 #15835 [verbose] > ╭─[ 351.05ms - stdout ]────────────────────────────────────────────────────────╮
00:03:28 #15836 [verbose] > │ type Mut0 = {mutable l0 : int32} │
00:03:28 #15837 [verbose] > │ and [<Struct>] US0 = │
00:03:28 #15838 [verbose] > │ | US0_0 of f0_0 : int32 │
00:03:28 #15839 [verbose] > │ | US0_1 │
00:03:28 #15840 [verbose] > │ and Mut1 = {mutable l0 : int32; mutable l1 : US0} │
00:03:28 #15841 [verbose] > │ let rec method1 (v0 : Mut0) : bool = │
00:03:28 #15842 [verbose] > │ let v1 : int32 = v0.l0 │
00:03:28 #15843 [verbose] > │ let v2 : bool = v1 < 10 │
00:03:28 #15844 [verbose] > │ v2 │
00:03:28 #15845 [verbose] > │ and method2 (v0 : int32, v1 : Mut1) : bool = │
00:03:28 #15846 [verbose] > │ let v2 : int32 = v1.l0 │
00:03:28 #15847 [verbose] > │ let v3 : bool = v2 < v0 │
00:03:28 #15848 [verbose] > │ v3 │
00:03:28 #15849 [verbose] > │ and method3 (v0 : bool) : bool = │
00:03:28 #15850 [verbose] > │ v0 │
00:03:28 #15851 [verbose] > │ and method0 () : unit = │
00:03:28 #15852 [verbose] > │ let v0 : (int32 []) = Array.zeroCreate<int32> (10) │
00:03:28 #15853 [verbose] > │ let v1 : Mut0 = {l0 = 0} : Mut0 │
00:03:28 #15854 [verbose] > │ while method1(v1) do │
00:03:28 #15855 [verbose] > │ let v3 : int32 = v1.l0 │
00:03:28 #15856 [verbose] > │ v0.[int v3] <- v3 │
00:03:28 #15857 [verbose] > │ let v4 : int32 = v3 + 1 │
00:03:28 #15858 [verbose] > │ v1.l0 <- v4 │
00:03:28 #15859 [verbose] > │ () │
00:03:28 #15860 [verbose] > │ let v5 : int32 = v0.Length │
00:03:28 #15861 [verbose] > │ let v6 : US0 = US0_1 │
00:03:28 #15862 [verbose] > │ let v7 : Mut1 = {l0 = 0; l1 = v6} : Mut1 │
00:03:28 #15863 [verbose] > │ while method2(v5, v7) do │
00:03:28 #15864 [verbose] > │ let v9 : int32 = v7.l0 │
00:03:28 #15865 [verbose] > │ let v10 : int32 = -v9 │
00:03:28 #15866 [verbose] > │ let v11 : int32 = v10 + v5 │
00:03:28 #15867 [verbose] > │ let v12 : int32 = v11 - 1 │
00:03:28 #15868 [verbose] > │ let v13 : US0 = v7.l1 │
00:03:28 #15869 [verbose] > │ let v14 : int32 = v0.[int v12] │
00:03:28 #15870 [verbose] > │ let v21 : US0 = │
00:03:28 #15871 [verbose] > │ match v13 with │
00:03:28 #15872 [verbose] > │ | US0_1 -> (* None *) │
00:03:28 #15873 [verbose] > │ let v16 : bool = v14 = 5 │
00:03:28 #15874 [verbose] > │ if v16 then │
00:03:28 #15875 [verbose] > │ US0_0(v14) │
00:03:28 #15876 [verbose] > │ else │
00:03:28 #15877 [verbose] > │ US0_1 │
00:03:28 #15878 [verbose] > │ | US0_0(v15) -> (* Some *) │
00:03:28 #15879 [verbose] > │ v13 │
00:03:28 #15880 [verbose] > │ let v22 : int32 = v9 + 1 │
00:03:28 #15881 [verbose] > │ v7.l0 <- v22 │
00:03:28 #15882 [verbose] > │ v7.l1 <- v21 │
00:03:28 #15883 [verbose] > │ () │
00:03:28 #15884 [verbose] > │ let v23 : US0 = v7.l1 │
00:03:28 #15885 [verbose] > │ let v24 : string = $"%A{v23}" │
00:03:28 #15886 [verbose] > │ System.Console.WriteLine v24 │
00:03:28 #15887 [verbose] > │ let v28 : bool = │
00:03:28 #15888 [verbose] > │ match v23 with │
00:03:28 #15889 [verbose] > │ | US0_0(v26) -> (* Some *) │
00:03:28 #15890 [verbose] > │ let v27 : bool = v26 = 5 │
00:03:28 #15891 [verbose] > │ v27 │
00:03:28 #15892 [verbose] > │ | _ -> │
00:03:28 #15893 [verbose] > │ false │
00:03:28 #15894 [verbose] > │ let v30 : bool = │
00:03:28 #15895 [verbose] > │ if v28 then │
00:03:28 #15896 [verbose] > │ true │
00:03:28 #15897 [verbose] > │ else │
00:03:28 #15898 [verbose] > │ method3(v28) │
00:03:28 #15899 [verbose] > │ let v31 : US0 = US0_0(5) │
00:03:28 #15900 [verbose] > │ let v32 : string = $"__expect / actual: %A{v23} / expected: %A{v31}" │
00:03:28 #15901 [verbose] > │ let v33 : bool = v30 = false │
00:03:28 #15902 [verbose] > │ if v33 then │
00:03:28 #15903 [verbose] > │ failwith<unit> v32 │
00:03:28 #15904 [verbose] > │ method0() │
00:03:28 #15905 [verbose] > │ │
00:03:28 #15906 [verbose] > │ US0_0 5 │
00:03:28 #15907 [verbose] > │ │
00:03:28 #15908 [verbose] > ╰──────────────────────────────────────────────────────────────────────────────╯
00:03:28 #15909 [verbose] >
00:03:28 #15910 [verbose] > ── markdown ────────────────────────────────────────────────────────────────────
00:03:28 #15911 [verbose] > ╭──────────────────────────────────────────────────────────────────────────────╮
00:03:28 #15912 [verbose] > │ ## indexed' │
00:03:28 #15913 [verbose] > ╰──────────────────────────────────────────────────────────────────────────────╯
00:03:28 #15914 [verbose] >
00:03:28 #15915 [verbose] > ── spiral ──────────────────────────────────────────────────────────────────────
00:03:28 #15916 [verbose] > inl indexed' forall t dim {int; number} dim' {int; number} u {number}. (ar : a
00:03:28 #15917 [verbose] > dim t) : a dim' (u * t) =
00:03:28 #15918 [verbose] > ((0, a ;[[]]), ar)
00:03:28 #15919 [verbose] > ||> am.fold fun (i, acc) x =>
00:03:28 #15920 [verbose] > i + 1, acc /@ a ;[[i, x]]
00:03:28 #15921 [verbose] > |> snd
00:03:28 #15922 [verbose] > Building c:\home\git\polyglot\target\polyglot\spiral_eval\packages\63aa2a6eed38de9050734fca837d5719aa31ef4f71f2c74263c39c6362b79699\main.spi
00:03:28 #15923 [verbose] >
00:03:28 #15924 [verbose] > ╭─[ 231.58ms - stdout ]────────────────────────────────────────────────────────╮
00:03:28 #15925 [verbose] > │ () │
00:03:28 #15926 [verbose] > │ │
00:03:28 #15927 [verbose] > │ │
00:03:28 #15928 [verbose] > ╰──────────────────────────────────────────────────────────────────────────────╯
00:03:28 #15929 [verbose] >
00:03:28 #15930 [verbose] > ── spiral ──────────────────────────────────────────────────────────────────────
00:03:28 #15931 [verbose] > // // test
00:03:28 #15932 [verbose] >
00:03:28 #15933 [verbose] > am.init 3i32 ((*) 2)
00:03:28 #15934 [verbose] > |> indexed'
00:03:28 #15935 [verbose] > |> _assert_eq (a ;[[0i32, 0; 1, 2; 2, 4]] : a i32 _)
00:03:28 #15936 [verbose] > Building c:\home\git\polyglot\target\polyglot\spiral_eval\packages\c85db5920fea777bd738ebec7af04a20f4d25ec044affbb559d8d92da053fc1b\main.spi
00:03:28 #15937 [verbose] >
00:03:28 #15938 [verbose] > ╭─[ 348.78ms - stdout ]────────────────────────────────────────────────────────╮
00:03:28 #15939 [verbose] > │ type Mut0 = {mutable l0 : int32} │
00:03:28 #15940 [verbose] > │ and Mut1 = {mutable l0 : int32; mutable l1 : int32; mutable l2 : (struct │
00:03:28 #15941 [verbose] > │ (int32 * int32) [])} │
00:03:28 #15942 [verbose] > │ let rec method1 (v0 : Mut0) : bool = │
00:03:28 #15943 [verbose] > │ let v1 : int32 = v0.l0 │
00:03:28 #15944 [verbose] > │ let v2 : bool = v1 < 3 │
00:03:28 #15945 [verbose] > │ v2 │
00:03:28 #15946 [verbose] > │ and method2 (v0 : int32, v1 : Mut1) : bool = │
00:03:28 #15947 [verbose] > │ let v2 : int32 = v1.l0 │
00:03:28 #15948 [verbose] > │ let v3 : bool = v2 < v0 │
00:03:28 #15949 [verbose] > │ v3 │
00:03:28 #15950 [verbose] > │ and method3 (v0 : int32, v1 : Mut0) : bool = │
00:03:28 #15951 [verbose] > │ let v2 : int32 = v1.l0 │
00:03:28 #15952 [verbose] > │ let v3 : bool = v2 < v0 │
00:03:28 #15953 [verbose] > │ v3 │
00:03:28 #15954 [verbose] > │ and method4 (v0 : (struct (int32 * int32) []), v1 : (struct (int32 * int32) │
00:03:28 #15955 [verbose] > │ []), v2 : int32) : bool = │
00:03:28 #15956 [verbose] > │ let v3 : int32 = v0.Length │
00:03:28 #15957 [verbose] > │ let v4 : bool = v2 < v3 │
00:03:28 #15958 [verbose] > │ if v4 then │
00:03:28 #15959 [verbose] > │ let struct (v5 : int32, v6 : int32) = v0.[int v2] │
00:03:28 #15960 [verbose] > │ let struct (v7 : int32, v8 : int32) = v1.[int v2] │
00:03:28 #15961 [verbose] > │ let v9 : bool = v5 = v7 │
00:03:28 #15962 [verbose] > │ let v11 : bool = │
00:03:28 #15963 [verbose] > │ if v9 then │
00:03:28 #15964 [verbose] > │ let v10 : bool = v6 = v8 │
00:03:28 #15965 [verbose] > │ v10 │
00:03:28 #15966 [verbose] > │ else │
00:03:28 #15967 [verbose] > │ false │
00:03:28 #15968 [verbose] > │ if v11 then │
00:03:28 #15969 [verbose] > │ let v12 : int32 = v2 + 1 │
00:03:28 #15970 [verbose] > │ method4(v0, v1, v12) │
00:03:28 #15971 [verbose] > │ else │
00:03:28 #15972 [verbose] > │ false │
00:03:28 #15973 [verbose] > │ else │
00:03:28 #15974 [verbose] > │ true │
00:03:28 #15975 [verbose] > │ and method5 (v0 : bool) : bool = │
00:03:28 #15976 [verbose] > │ v0 │
00:03:28 #15977 [verbose] > │ and method0 () : unit = │
00:03:29 #15978 [verbose] > │ let v0 : (int32 []) = Array.zeroCreate<int32> (3) │
00:03:29 #15979 [verbose] > │ let v1 : Mut0 = {l0 = 0} : Mut0 │
00:03:29 #15980 [verbose] > │ while method1(v1) do │
00:03:29 #15981 [verbose] > │ let v3 : int32 = v1.l0 │
00:03:29 #15982 [verbose] > │ let v4 : int32 = 2 * v3 │
00:03:29 #15983 [verbose] > │ v0.[int v3] <- v4 │
00:03:29 #15984 [verbose] > │ let v5 : int32 = v3 + 1 │
00:03:29 #15985 [verbose] > │ v1.l0 <- v5 │
00:03:29 #15986 [verbose] > │ () │
00:03:29 #15987 [verbose] > │ let v6 : (struct (int32 * int32) []) = [||] │
00:03:29 #15988 [verbose] > │ let v7 : int32 = v0.Length │
00:03:29 #15989 [verbose] > │ let v8 : Mut1 = {l0 = 0; l1 = 0; l2 = v6} : Mut1 │
00:03:29 #15990 [verbose] > │ while method2(v7, v8) do │
00:03:29 #15991 [verbose] > │ let v10 : int32 = v8.l0 │
00:03:29 #15992 [verbose] > │ let struct (v11 : int32, v12 : (struct (int32 * int32) [])) = v8.l1, │
00:03:29 #15993 [verbose] > │ v8.l2 │
00:03:29 #15994 [verbose] > │ let v13 : int32 = v0.[int v10] │
00:03:29 #15995 [verbose] > │ let v14 : int32 = v11 + 1 │
00:03:29 #15996 [verbose] > │ let v15 : (struct (int32 * int32) []) = [|struct (v11, v13)|] │
00:03:29 #15997 [verbose] > │ let v16 : int32 = v12.Length │
00:03:29 #15998 [verbose] > │ let v17 : int32 = v15.Length │
00:03:29 #15999 [verbose] > │ let v18 : int32 = v16 + v17 │
00:03:29 #16000 [verbose] > │ let v19 : (struct (int32 * int32) []) = Array.zeroCreate<struct │
00:03:29 #16001 [verbose] > │ (int32 * int32)> (v18) │
00:03:29 #16002 [verbose] > │ let v20 : Mut0 = {l0 = 0} : Mut0 │
00:03:29 #16003 [verbose] > │ while method3(v18, v20) do │
00:03:29 #16004 [verbose] > │ let v22 : int32 = v20.l0 │
00:03:29 #16005 [verbose] > │ let v23 : bool = v22 < v16 │
00:03:29 #16006 [verbose] > │ let struct (v29 : int32, v30 : int32) = │
00:03:29 #16007 [verbose] > │ if v23 then │
00:03:29 #16008 [verbose] > │ let struct (v24 : int32, v25 : int32) = v12.[int v22] │
00:03:29 #16009 [verbose] > │ struct (v24, v25) │
00:03:29 #16010 [verbose] > │ else │
00:03:29 #16011 [verbose] > │ let v26 : int32 = v22 - v16 │
00:03:29 #16012 [verbose] > │ let struct (v27 : int32, v28 : int32) = v15.[int v26] │
00:03:29 #16013 [verbose] > │ struct (v27, v28) │
00:03:29 #16014 [verbose] > │ v19.[int v22] <- struct (v29, v30) │
00:03:29 #16015 [verbose] > │ let v31 : int32 = v22 + 1 │
00:03:29 #16016 [verbose] > │ v20.l0 <- v31 │
00:03:29 #16017 [verbose] > │ () │
00:03:29 #16018 [verbose] > │ let v32 : int32 = v10 + 1 │
00:03:29 #16019 [verbose] > │ v8.l0 <- v32 │
00:03:29 #16020 [verbose] > │ v8.l1 <- v14 │
00:03:29 #16021 [verbose] > │ v8.l2 <- v19 │
00:03:29 #16022 [verbose] > │ () │
00:03:29 #16023 [verbose] > │ let struct (v33 : int32, v34 : (struct (int32 * int32) [])) = v8.l1, │
00:03:29 #16024 [verbose] > │ v8.l2 │
00:03:29 #16025 [verbose] > │ let v35 : (struct (int32 * int32) []) = [|struct (0, 0); struct (1, 2); │
00:03:29 #16026 [verbose] > │ struct (2, 4)|] │
00:03:29 #16027 [verbose] > │ let v36 : string = $"%A{v34}" │
00:03:29 #16028 [verbose] > │ System.Console.WriteLine v36 │
00:03:29 #16029 [verbose] > │ let v37 : int32 = v34.Length │
00:03:29 #16030 [verbose] > │ let v38 : int32 = v35.Length │
00:03:29 #16031 [verbose] > │ let v39 : bool = v37 = v38 │
00:03:29 #16032 [verbose] > │ let v40 : bool = v39 <> true │
00:03:29 #16033 [verbose] > │ let v43 : bool = │
00:03:29 #16034 [verbose] > │ if v40 then │
00:03:29 #16035 [verbose] > │ false │
00:03:29 #16036 [verbose] > │ else │
00:03:29 #16037 [verbose] > │ let v41 : int32 = 0 │
00:03:29 #16038 [verbose] > │ method4(v34, v35, v41) │
00:03:29 #16039 [verbose] > │ let v45 : bool = │
00:03:29 #16040 [verbose] > │ if v43 then │
00:03:29 #16041 [verbose] > │ true │
00:03:29 #16042 [verbose] > │ else │
00:03:29 #16043 [verbose] > │ method5(v43) │
00:03:29 #16044 [verbose] > │ let v46 : string = $"__expect / actual: %A{v34} / expected: %A{v35}" │
00:03:29 #16045 [verbose] > │ let v47 : bool = v45 = false │
00:03:29 #16046 [verbose] > │ if v47 then │
00:03:29 #16047 [verbose] > │ failwith<unit> v46 │
00:03:29 #16048 [verbose] > │ method0() │
00:03:29 #16049 [verbose] > │ │
00:03:29 #16050 [verbose] > │ [|struct (0, 0); struct (1, 2); struct (2, 4)|] │
00:03:29 #16051 [verbose] > │ │
00:03:29 #16052 [verbose] > ╰──────────────────────────────────────────────────────────────────────────────╯
00:03:29 #16053 [verbose] >
00:03:29 #16054 [verbose] > ── markdown ────────────────────────────────────────────────────────────────────
00:03:29 #16055 [verbose] > ╭──────────────────────────────────────────────────────────────────────────────╮
00:03:29 #16056 [verbose] > │ ## map_base │
00:03:29 #16057 [verbose] > ╰──────────────────────────────────────────────────────────────────────────────╯
00:03:29 #16058 [verbose] >
00:03:29 #16059 [verbose] > ── spiral ──────────────────────────────────────────────────────────────────────
00:03:29 #16060 [verbose] > inl map_base forall t u. (fn : t -> u) (x : array_base t) : array_base u =
00:03:29 #16061 [verbose] > a x
00:03:29 #16062 [verbose] > |> am.map fn
00:03:29 #16063 [verbose] > |> fun (a x : _ i64 _) => x
00:03:29 #16064 [verbose] > Building c:\home\git\polyglot\target\polyglot\spiral_eval\packages\a58fe736a5e2a7c90a7fba333e960891e0342a49117a331a97abbb783845365d\main.spi
00:03:29 #16065 [verbose] >
00:03:29 #16066 [verbose] > ╭─[ 242.87ms - stdout ]────────────────────────────────────────────────────────╮
00:03:29 #16067 [verbose] > │ () │
00:03:29 #16068 [verbose] > │ │
00:03:29 #16069 [verbose] > │ │
00:03:29 #16070 [verbose] > ╰──────────────────────────────────────────────────────────────────────────────╯
00:03:29 #16071 [verbose] >
00:03:29 #16072 [verbose] > ── markdown ────────────────────────────────────────────────────────────────────
00:03:29 #16073 [verbose] > ╭──────────────────────────────────────────────────────────────────────────────╮
00:03:29 #16074 [verbose] > │ ## average │
00:03:29 #16075 [verbose] > ╰──────────────────────────────────────────────────────────────────────────────╯
00:03:29 #16076 [verbose] >
00:03:29 #16077 [verbose] > ── spiral ──────────────────────────────────────────────────────────────────────
00:03:29 #16078 [verbose] > inl average forall el {number}. (a : a _ el) : el =
00:03:29 #16079 [verbose] > a |> $'Array.average'
00:03:29 #16080 [verbose] > Building c:\home\git\polyglot\target\polyglot\spiral_eval\packages\e0b3acf2a87410fcd1d271766651e399c13a35d87f958b553764e2ca4dfca848\main.spi
00:03:29 #16081 [verbose] >
00:03:29 #16082 [verbose] > ╭─[ 223.99ms - stdout ]────────────────────────────────────────────────────────╮
00:03:29 #16083 [verbose] > │ () │
00:03:29 #16084 [verbose] > │ │
00:03:29 #16085 [verbose] > │ │
00:03:29 #16086 [verbose] > ╰──────────────────────────────────────────────────────────────────────────────╯
00:03:29 #16087 [verbose] >
00:03:29 #16088 [verbose] > ── spiral ──────────────────────────────────────────────────────────────────────
00:03:29 #16089 [verbose] > inl distinct forall dim el. (a : a dim el) : a dim el =
00:03:29 #16090 [verbose] > a |> $'Array.distinct'
00:03:29 #16091 [verbose] > Building c:\home\git\polyglot\target\polyglot\spiral_eval\packages\23719e93ee87d1d8a8d2207049467be97e385d3023b6cbcc37634c0cd60808eb\main.spi
00:03:29 #16092 [verbose] >
00:03:29 #16093 [verbose] > ╭─[ 229.24ms - stdout ]────────────────────────────────────────────────────────╮
00:03:29 #16094 [verbose] > │ () │
00:03:29 #16095 [verbose] > │ │
00:03:29 #16096 [verbose] > │ │
00:03:29 #16097 [verbose] > ╰──────────────────────────────────────────────────────────────────────────────╯
00:03:29 #16098 [verbose] >
00:03:29 #16099 [verbose] > ── markdown ────────────────────────────────────────────────────────────────────
00:03:29 #16100 [verbose] > ╭──────────────────────────────────────────────────────────────────────────────╮
00:03:29 #16101 [verbose] > │ ## parallel_map │
00:03:29 #16102 [verbose] > ╰──────────────────────────────────────────────────────────────────────────────╯
00:03:29 #16103 [verbose] >
00:03:29 #16104 [verbose] > ── spiral ──────────────────────────────────────────────────────────────────────
00:03:29 #16105 [verbose] > inl parallel_map forall dim el el'. (fn : el -> el') (a : a dim el) : a dim el'
00:03:29 #16106 [verbose] > =
00:03:29 #16107 [verbose] > a |> $'Array.Parallel.map' fn
00:03:29 #16108 [verbose] > Building c:\home\git\polyglot\target\polyglot\spiral_eval\packages\aeaaf52aab939cf23513b3ce0e4db19009a5a7481cfc6b885917ccff8853914a\main.spi
00:03:29 #16109 [verbose] >
00:03:29 #16110 [verbose] > ╭─[ 230.91ms - stdout ]────────────────────────────────────────────────────────╮
00:03:29 #16111 [verbose] > │ () │
00:03:29 #16112 [verbose] > │ │
00:03:29 #16113 [verbose] > │ │
00:03:29 #16114 [verbose] > ╰──────────────────────────────────────────────────────────────────────────────╯
00:03:29 #16115 [verbose] >
00:03:29 #16116 [verbose] > ── markdown ────────────────────────────────────────────────────────────────────
00:03:29 #16117 [verbose] > ╭──────────────────────────────────────────────────────────────────────────────╮
00:03:29 #16118 [verbose] > │ ## sort_by │
00:03:29 #16119 [verbose] > ╰──────────────────────────────────────────────────────────────────────────────╯
00:03:29 #16120 [verbose] >
00:03:29 #16121 [verbose] > ── spiral ──────────────────────────────────────────────────────────────────────
00:03:29 #16122 [verbose] > inl sort_by forall dim el. (fn : el -> _) (a : a dim el) : a dim el =
00:03:29 #16123 [verbose] > a |> $'Array.sortBy' fn
00:03:30 #16124 [verbose] > Building c:\home\git\polyglot\target\polyglot\spiral_eval\packages\15dcda3fe4d70c30adad96772635b401e1d982e1149df734ec7df5e2425b1e25\main.spi
00:03:30 #16125 [verbose] >
00:03:30 #16126 [verbose] > ╭─[ 274.59ms - stdout ]────────────────────────────────────────────────────────╮
00:03:30 #16127 [verbose] > │ () │
00:03:30 #16128 [verbose] > │ │
00:03:30 #16129 [verbose] > │ │
00:03:30 #16130 [verbose] > ╰──────────────────────────────────────────────────────────────────────────────╯
00:03:30 #16131 [verbose] >
00:03:30 #16132 [verbose] > ── markdown ────────────────────────────────────────────────────────────────────
00:03:30 #16133 [verbose] > ╭──────────────────────────────────────────────────────────────────────────────╮
00:03:30 #16134 [verbose] > │ ## sort_descending │
00:03:30 #16135 [verbose] > ╰──────────────────────────────────────────────────────────────────────────────╯
00:03:30 #16136 [verbose] >
00:03:30 #16137 [verbose] > ── spiral ──────────────────────────────────────────────────────────────────────
00:03:30 #16138 [verbose] > inl sort_descending forall dim el. (a : a dim el) : a dim el =
00:03:30 #16139 [verbose] > a |> $'Array.sortDescending'
00:03:30 #16140 [verbose] > Building c:\home\git\polyglot\target\polyglot\spiral_eval\packages\3ba18b494387591436ea84b7f74c27fff4295f9b524d9fe9f8be0c0fa07e74fe\main.spi
00:03:30 #16141 [verbose] >
00:03:30 #16142 [verbose] > ╭─[ 211.21ms - stdout ]────────────────────────────────────────────────────────╮
00:03:30 #16143 [verbose] > │ () │
00:03:30 #16144 [verbose] > │ │
00:03:30 #16145 [verbose] > │ │
00:03:30 #16146 [verbose] > ╰──────────────────────────────────────────────────────────────────────────────╯
00:03:30 #16147 [verbose] >
00:03:30 #16148 [verbose] > ── markdown ────────────────────────────────────────────────────────────────────
00:03:30 #16149 [verbose] > ╭──────────────────────────────────────────────────────────────────────────────╮
00:03:30 #16150 [verbose] > │ ## transpose │
00:03:30 #16151 [verbose] > ╰──────────────────────────────────────────────────────────────────────────────╯
00:03:30 #16152 [verbose] >
00:03:30 #16153 [verbose] > ── spiral ──────────────────────────────────────────────────────────────────────
00:03:30 #16154 [verbose] > inl transpose forall dim el. (a : a dim (a dim el)) : a dim (a dim el) =
00:03:30 #16155 [verbose] > a |> $'Array.transpose'
00:03:30 #16156 [verbose] > Building c:\home\git\polyglot\target\polyglot\spiral_eval\packages\dba16f3298415ca0b5a19b7104b50ee40ddcde086f33d315ec5ac562044dbea6\main.spi
00:03:30 #16157 [verbose] >
00:03:30 #16158 [verbose] > ╭─[ 210.89ms - stdout ]────────────────────────────────────────────────────────╮
00:03:30 #16159 [verbose] > │ () │
00:03:30 #16160 [verbose] > │ │
00:03:30 #16161 [verbose] > │ │
00:03:30 #16162 [verbose] > ╰──────────────────────────────────────────────────────────────────────────────╯
00:03:30 #16163 [verbose] >
00:03:30 #16164 [verbose] > ── markdown ────────────────────────────────────────────────────────────────────
00:03:30 #16165 [verbose] > ╭──────────────────────────────────────────────────────────────────────────────╮
00:03:30 #16166 [verbose] > │ ## try_item │
00:03:30 #16167 [verbose] > ╰──────────────────────────────────────────────────────────────────────────────╯
00:03:30 #16168 [verbose] >
00:03:30 #16169 [verbose] > ── spiral ──────────────────────────────────────────────────────────────────────
00:03:30 #16170 [verbose] > inl try_item forall dim el. (i : i32) (a : a dim el) : option el =
00:03:30 #16171 [verbose] > a |> $'Array.tryItem' i |> optionm'.unbox
00:03:30 #16172 [verbose] > Building c:\home\git\polyglot\target\polyglot\spiral_eval\packages\a4d4e9600415133779b9f8a52525e310611724c9f1aff5745d02ebdcb0ca708f\main.spi
00:03:30 #16173 [verbose] >
00:03:30 #16174 [verbose] > ╭─[ 205.71ms - stdout ]────────────────────────────────────────────────────────╮
00:03:30 #16175 [verbose] > │ () │
00:03:30 #16176 [verbose] > │ │
00:03:30 #16177 [verbose] > │ │
00:03:30 #16178 [verbose] > ╰──────────────────────────────────────────────────────────────────────────────╯
00:03:30 #16179 [verbose] >
00:03:30 #16180 [verbose] > ── markdown ────────────────────────────────────────────────────────────────────
00:03:30 #16181 [verbose] > ╭──────────────────────────────────────────────────────────────────────────────╮
00:03:30 #16182 [verbose] > │ ## indexed │
00:03:30 #16183 [verbose] > ╰──────────────────────────────────────────────────────────────────────────────╯
00:03:30 #16184 [verbose] >
00:03:30 #16185 [verbose] > ── spiral ──────────────────────────────────────────────────────────────────────
00:03:30 #16186 [verbose] > inl indexed (array : a _ _) =
00:03:30 #16187 [verbose] > (([[]], 0), array)
00:03:30 #16188 [verbose] > ||> am.fold fun (acc, i) x =>
00:03:30 #16189 [verbose] > (i, x) :: acc, i + 1
00:03:30 #16190 [verbose] > |> fst
00:03:30 #16191 [verbose] > |> listm.rev
00:03:30 #16192 [verbose] > |> listm.toArray
00:03:31 #16193 [verbose] > Building c:\home\git\polyglot\target\polyglot\spiral_eval\packages\fea65d8a4be04f8a1affdaa328abfa300fb78a0363f6ea7b56cf9e71f9a6f0a1\main.spi
00:03:31 #16194 [verbose] >
00:03:31 #16195 [verbose] > ╭─[ 242.47ms - stdout ]────────────────────────────────────────────────────────╮
00:03:31 #16196 [verbose] > │ () │
00:03:31 #16197 [verbose] > │ │
00:03:31 #16198 [verbose] > │ │
00:03:31 #16199 [verbose] > ╰──────────────────────────────────────────────────────────────────────────────╯
00:03:31 #16200 [verbose] >
00:03:31 #16201 [verbose] > ── spiral ──────────────────────────────────────────────────────────────────────
00:03:31 #16202 [verbose] > // // test
00:03:31 #16203 [verbose] >
00:03:31 #16204 [verbose] > am.init 3i32 ((*) 2)
00:03:31 #16205 [verbose] > |> indexed
00:03:31 #16206 [verbose] > |> _assert_eq (a ;[[0i32, 0; 1, 2; 2, 4]] : a i32 _)
00:03:31 #16207 [verbose] > Building c:\home\git\polyglot\target\polyglot\spiral_eval\packages\805e27981bf57e65e418f570f640ce1b615a4d74340b18ccd147f60c9fa396f3\main.spi
00:03:31 #16208 [verbose] >
00:03:31 #16209 [verbose] > ╭─[ 507.03ms - stdout ]────────────────────────────────────────────────────────╮
00:03:31 #16210 [verbose] > │ type Mut0 = {mutable l0 : int32} │
00:03:31 #16211 [verbose] > │ and UH0 = │
00:03:31 #16212 [verbose] > │ | UH0_0 │
00:03:31 #16213 [verbose] > │ | UH0_1 of int32 * int32 * UH0 │
00:03:31 #16214 [verbose] > │ and Mut1 = {mutable l0 : int32; mutable l1 : UH0; mutable l2 : int32} │
00:03:31 #16215 [verbose] > │ let rec method1 (v0 : Mut0) : bool = │
00:03:31 #16216 [verbose] > │ let v1 : int32 = v0.l0 │
00:03:31 #16217 [verbose] > │ let v2 : bool = v1 < 3 │
00:03:31 #16218 [verbose] > │ v2 │
00:03:31 #16219 [verbose] > │ and method2 (v0 : int32, v1 : Mut1) : bool = │
00:03:31 #16220 [verbose] > │ let v2 : int32 = v1.l0 │
00:03:31 #16221 [verbose] > │ let v3 : bool = v2 < v0 │
00:03:31 #16222 [verbose] > │ v3 │
00:03:31 #16223 [verbose] > │ and method3 (v0 : UH0, v1 : UH0) : UH0 = │
00:03:31 #16224 [verbose] > │ match v0 with │
00:03:31 #16225 [verbose] > │ | UH0_1(v2, v3, v4) -> (* Cons *) │
00:03:31 #16226 [verbose] > │ let v5 : UH0 = UH0_1(v2, v3, v1) │
00:03:31 #16227 [verbose] > │ method3(v4, v5) │
00:03:31 #16228 [verbose] > │ | UH0_0 -> (* Nil *) │
00:03:31 #16229 [verbose] > │ v1 │
00:03:31 #16230 [verbose] > │ and method5 (v0 : UH0, v1 : int32) : int32 = │
00:03:31 #16231 [verbose] > │ match v0 with │
00:03:31 #16232 [verbose] > │ | UH0_1(v2, v3, v4) -> (* Cons *) │
00:03:31 #16233 [verbose] > │ let v5 : int32 = v1 + 1 │
00:03:31 #16234 [verbose] > │ method5(v4, v5) │
00:03:31 #16235 [verbose] > │ | UH0_0 -> (* Nil *) │
00:03:31 #16236 [verbose] > │ v1 │
00:03:31 #16237 [verbose] > │ and method6 (v0 : (struct (int32 * int32) []), v1 : UH0, v2 : int32) : int32 │
00:03:31 #16238 [verbose] > │ = │
00:03:31 #16239 [verbose] > │ match v1 with │
00:03:31 #16240 [verbose] > │ | UH0_1(v3, v4, v5) -> (* Cons *) │
00:03:31 #16241 [verbose] > │ v0.[int v2] <- struct (v3, v4) │
00:03:31 #16242 [verbose] > │ let v6 : int32 = v2 + 1 │
00:03:31 #16243 [verbose] > │ method6(v0, v5, v6) │
00:03:31 #16244 [verbose] > │ | UH0_0 -> (* Nil *) │
00:03:31 #16245 [verbose] > │ v2 │
00:03:31 #16246 [verbose] > │ and method4 (v0 : UH0) : (struct (int32 * int32) []) = │
00:03:31 #16247 [verbose] > │ let v1 : int32 = 0 │
00:03:31 #16248 [verbose] > │ let v2 : int32 = method5(v0, v1) │
00:03:31 #16249 [verbose] > │ let v3 : (struct (int32 * int32) []) = Array.zeroCreate<struct (int32 * │
00:03:31 #16250 [verbose] > │ int32)> (v2) │
00:03:31 #16251 [verbose] > │ let v4 : int32 = 0 │
00:03:31 #16252 [verbose] > │ let v5 : int32 = method6(v3, v0, v4) │
00:03:31 #16253 [verbose] > │ v3 │
00:03:31 #16254 [verbose] > │ and method7 (v0 : (struct (int32 * int32) []), v1 : (struct (int32 * int32) │
00:03:31 #16255 [verbose] > │ []), v2 : int32) : bool = │
00:03:31 #16256 [verbose] > │ let v3 : int32 = v0.Length │
00:03:31 #16257 [verbose] > │ let v4 : bool = v2 < v3 │
00:03:31 #16258 [verbose] > │ if v4 then │
00:03:31 #16259 [verbose] > │ let struct (v5 : int32, v6 : int32) = v0.[int v2] │
00:03:31 #16260 [verbose] > │ let struct (v7 : int32, v8 : int32) = v1.[int v2] │
00:03:31 #16261 [verbose] > │ let v9 : bool = v5 = v7 │
00:03:31 #16262 [verbose] > │ let v11 : bool = │
00:03:31 #16263 [verbose] > │ if v9 then │
00:03:31 #16264 [verbose] > │ let v10 : bool = v6 = v8 │
00:03:31 #16265 [verbose] > │ v10 │
00:03:31 #16266 [verbose] > │ else │
00:03:31 #16267 [verbose] > │ false │
00:03:31 #16268 [verbose] > │ if v11 then │
00:03:31 #16269 [verbose] > │ let v12 : int32 = v2 + 1 │
00:03:31 #16270 [verbose] > │ method7(v0, v1, v12) │
00:03:31 #16271 [verbose] > │ else │
00:03:31 #16272 [verbose] > │ false │
00:03:31 #16273 [verbose] > │ else │
00:03:31 #16274 [verbose] > │ true │
00:03:31 #16275 [verbose] > │ and method8 (v0 : bool) : bool = │
00:03:31 #16276 [verbose] > │ v0 │
00:03:31 #16277 [verbose] > │ and method0 () : unit = │
00:03:31 #16278 [verbose] > │ let v0 : (int32 []) = Array.zeroCreate<int32> (3) │
00:03:31 #16279 [verbose] > │ let v1 : Mut0 = {l0 = 0} : Mut0 │
00:03:31 #16280 [verbose] > │ while method1(v1) do │
00:03:31 #16281 [verbose] > │ let v3 : int32 = v1.l0 │
00:03:31 #16282 [verbose] > │ let v4 : int32 = 2 * v3 │
00:03:31 #16283 [verbose] > │ v0.[int v3] <- v4 │
00:03:31 #16284 [verbose] > │ let v5 : int32 = v3 + 1 │
00:03:31 #16285 [verbose] > │ v1.l0 <- v5 │
00:03:31 #16286 [verbose] > │ () │
00:03:31 #16287 [verbose] > │ let v6 : int32 = v0.Length │
00:03:31 #16288 [verbose] > │ let v7 : UH0 = UH0_0 │
00:03:31 #16289 [verbose] > │ let v8 : Mut1 = {l0 = 0; l1 = v7; l2 = 0} : Mut1 │
00:03:31 #16290 [verbose] > │ while method2(v6, v8) do │
00:03:31 #16291 [verbose] > │ let v10 : int32 = v8.l0 │
00:03:31 #16292 [verbose] > │ let struct (v11 : UH0, v12 : int32) = v8.l1, v8.l2 │
00:03:31 #16293 [verbose] > │ let v13 : int32 = v0.[int v10] │
00:03:31 #16294 [verbose] > │ let v14 : int32 = v12 + 1 │
00:03:31 #16295 [verbose] > │ let v15 : int32 = v10 + 1 │
00:03:31 #16296 [verbose] > │ let v16 : UH0 = UH0_1(v12, v13, v11) │
00:03:31 #16297 [verbose] > │ v8.l0 <- v15 │
00:03:31 #16298 [verbose] > │ v8.l1 <- v16 │
00:03:31 #16299 [verbose] > │ v8.l2 <- v14 │
00:03:31 #16300 [verbose] > │ () │
00:03:31 #16301 [verbose] > │ let struct (v17 : UH0, v18 : int32) = v8.l1, v8.l2 │
00:03:31 #16302 [verbose] > │ let v19 : UH0 = UH0_0 │
00:03:31 #16303 [verbose] > │ let v20 : UH0 = method3(v17, v19) │
00:03:31 #16304 [verbose] > │ let v21 : (struct (int32 * int32) []) = method4(v20) │
00:03:31 #16305 [verbose] > │ let v22 : (struct (int32 * int32) []) = [|struct (0, 0); struct (1, 2); │
00:03:31 #16306 [verbose] > │ struct (2, 4)|] │
00:03:31 #16307 [verbose] > │ let v23 : string = $"%A{v21}" │
00:03:31 #16308 [verbose] > │ System.Console.WriteLine v23 │
00:03:31 #16309 [verbose] > │ let v24 : int32 = v21.Length │
00:03:31 #16310 [verbose] > │ let v25 : int32 = v22.Length │
00:03:31 #16311 [verbose] > │ let v26 : bool = v24 = v25 │
00:03:31 #16312 [verbose] > │ let v27 : bool = v26 <> true │
00:03:31 #16313 [verbose] > │ let v30 : bool = │
00:03:31 #16314 [verbose] > │ if v27 then │
00:03:31 #16315 [verbose] > │ false │
00:03:31 #16316 [verbose] > │ else │
00:03:31 #16317 [verbose] > │ let v28 : int32 = 0 │
00:03:31 #16318 [verbose] > │ method7(v21, v22, v28) │
00:03:31 #16319 [verbose] > │ let v32 : bool = │
00:03:31 #16320 [verbose] > │ if v30 then │
00:03:31 #16321 [verbose] > │ true │
00:03:31 #16322 [verbose] > │ else │
00:03:31 #16323 [verbose] > │ method8(v30) │
00:03:31 #16324 [verbose] > │ let v33 : string = $"__expect / actual: %A{v21} / expected: %A{v22}" │
00:03:31 #16325 [verbose] > │ let v34 : bool = v32 = false │
00:03:31 #16326 [verbose] > │ if v34 then │
00:03:31 #16327 [verbose] > │ failwith<unit> v33 │
00:03:31 #16328 [verbose] > │ method0() │
00:03:31 #16329 [verbose] > │ │
00:03:31 #16330 [verbose] > │ [|struct (0, 0); struct (1, 2); struct (2, 4)|] │
00:03:31 #16331 [verbose] > │ │
00:03:31 #16332 [verbose] > ╰──────────────────────────────────────────────────────────────────────────────╯
00:03:31 #16333 [verbose] >
00:03:31 #16334 [verbose] > ── markdown ────────────────────────────────────────────────────────────────────
00:03:31 #16335 [verbose] > ╭──────────────────────────────────────────────────────────────────────────────╮
00:03:31 #16336 [verbose] > │ ## vec │
00:03:31 #16337 [verbose] > ╰──────────────────────────────────────────────────────────────────────────────╯
00:03:31 #16338 [verbose] >
00:03:31 #16339 [verbose] > ── spiral ──────────────────────────────────────────────────────────────────────
00:03:31 #16340 [verbose] > nominal vec t = $"Vec<`t>"
00:03:31 #16341 [verbose] > Building c:\home\git\polyglot\target\polyglot\spiral_eval\packages\a0c2487c7f05279aef8279a00aef23d3e35b10abf74d6bd5783888f97c290ce2\main.spi
00:03:31 #16342 [verbose] >
00:03:31 #16343 [verbose] > ╭─[ 233.45ms - stdout ]────────────────────────────────────────────────────────╮
00:03:31 #16344 [verbose] > │ () │
00:03:31 #16345 [verbose] > │ │
00:03:31 #16346 [verbose] > │ │
00:03:31 #16347 [verbose] > ╰──────────────────────────────────────────────────────────────────────────────╯
00:03:31 #16348 [verbose] >
00:03:31 #16349 [verbose] > ── markdown ────────────────────────────────────────────────────────────────────
00:03:31 #16350 [verbose] > ╭──────────────────────────────────────────────────────────────────────────────╮
00:03:31 #16351 [verbose] > │ ## from_vec │
00:03:31 #16352 [verbose] > ╰──────────────────────────────────────────────────────────────────────────────╯
00:03:31 #16353 [verbose] >
00:03:31 #16354 [verbose] > ── spiral ──────────────────────────────────────────────────────────────────────
00:03:31 #16355 [verbose] > inl from_vec forall dim el. (vec : vec el) : a dim el =
00:03:31 #16356 [verbose] > !\\(vec, $'"fable_library_rust::NativeArray_::array_from($0)"')
00:03:32 #16357 [verbose] > Building c:\home\git\polyglot\target\polyglot\spiral_eval\packages\e84916c36bcb98492bb25123dd27a3e87ae80a1548957debe5c731d10fb814a4\main.spi
00:03:32 #16358 [verbose] >
00:03:32 #16359 [verbose] > ╭─[ 228.58ms - stdout ]────────────────────────────────────────────────────────╮
00:03:32 #16360 [verbose] > │ () │
00:03:32 #16361 [verbose] > │ │
00:03:32 #16362 [verbose] > │ │
00:03:32 #16363 [verbose] > ╰──────────────────────────────────────────────────────────────────────────────╯
00:03:32 #16364 [verbose] >
00:03:32 #16365 [verbose] > ── markdown ────────────────────────────────────────────────────────────────────
00:03:32 #16366 [verbose] > ╭──────────────────────────────────────────────────────────────────────────────╮
00:03:32 #16367 [verbose] > │ ## to_vec │
00:03:32 #16368 [verbose] > ╰──────────────────────────────────────────────────────────────────────────────╯
00:03:32 #16369 [verbose] >
00:03:32 #16370 [verbose] > ── spiral ──────────────────────────────────────────────────────────────────────
00:03:32 #16371 [verbose] > inl to_vec forall t. (ab : array_base t) : vec t =
00:03:32 #16372 [verbose] > !\\(ab, $'"$0.to_vec()"')
00:03:32 #16373 [verbose] > Building c:\home\git\polyglot\target\polyglot\spiral_eval\packages\27531565de1f2f6e9ef542503f704d6153079c4d8599fbf079b491847b138a8b\main.spi
00:03:32 #16374 [verbose] >
00:03:32 #16375 [verbose] > ╭─[ 210.33ms - stdout ]────────────────────────────────────────────────────────╮
00:03:32 #16376 [verbose] > │ () │
00:03:32 #16377 [verbose] > │ │
00:03:32 #16378 [verbose] > │ │
00:03:32 #16379 [verbose] > ╰──────────────────────────────────────────────────────────────────────────────╯
00:03:32 #16380 [verbose] >
00:03:32 #16381 [verbose] > ── markdown ────────────────────────────────────────────────────────────────────
00:03:32 #16382 [verbose] > ╭──────────────────────────────────────────────────────────────────────────────╮
00:03:32 #16383 [verbose] > │ ## vec_push │
00:03:32 #16384 [verbose] > ╰──────────────────────────────────────────────────────────────────────────────╯
00:03:32 #16385 [verbose] >
00:03:32 #16386 [verbose] > ── spiral ──────────────────────────────────────────────────────────────────────
00:03:32 #16387 [verbose] > inl vec_push forall el. (el : el) (vec : vec el) : vec el =
00:03:32 #16388 [verbose] > inl el = join el
00:03:32 #16389 [verbose] > inl vec = join vec
00:03:32 #16390 [verbose] > !\($'"let mut !vec = !vec"')
00:03:32 #16391 [verbose] > // inl vec = vec |> rust.to_mut
00:03:32 #16392 [verbose] > !\($'"!vec.push(!el)"')
00:03:32 #16393 [verbose] > !\($'"!vec"')
00:03:32 #16394 [verbose] > Building c:\home\git\polyglot\target\polyglot\spiral_eval\packages\e6120ff9468d063320085eff13abacbf3d0f497820b40c60c5e764cc143e233b\main.spi
00:03:32 #16395 [verbose] >
00:03:32 #16396 [verbose] > ╭─[ 215.56ms - stdout ]────────────────────────────────────────────────────────╮
00:03:32 #16397 [verbose] > │ () │
00:03:32 #16398 [verbose] > │ │
00:03:32 #16399 [verbose] > │ │
00:03:32 #16400 [verbose] > ╰──────────────────────────────────────────────────────────────────────────────╯
00:03:32 #16401 [verbose] >
00:03:32 #16402 [verbose] > ── markdown ────────────────────────────────────────────────────────────────────
00:03:32 #16403 [verbose] > ╭──────────────────────────────────────────────────────────────────────────────╮
00:03:32 #16404 [verbose] > │ ## vec_reverse │
00:03:32 #16405 [verbose] > ╰──────────────────────────────────────────────────────────────────────────────╯
00:03:32 #16406 [verbose] >
00:03:32 #16407 [verbose] > ── spiral ──────────────────────────────────────────────────────────────────────
00:03:32 #16408 [verbose] > inl vec_reverse forall el. (vec : vec el) : vec el =
00:03:32 #16409 [verbose] > inl vec = join vec
00:03:32 #16410 [verbose] > !\($'"let mut !vec = !vec"')
00:03:32 #16411 [verbose] > !\($'"!vec.reverse()"')
00:03:32 #16412 [verbose] > !\($'"!vec"')
00:03:32 #16413 [verbose] > Building c:\home\git\polyglot\target\polyglot\spiral_eval\packages\64cdd3e8fb790bffb2457da426826c04a83d2edeb8201306020ba579be4792e4\main.spi
00:03:32 #16414 [verbose] >
00:03:32 #16415 [verbose] > ╭─[ 215.07ms - stdout ]────────────────────────────────────────────────────────╮
00:03:32 #16416 [verbose] > │ () │
00:03:32 #16417 [verbose] > │ │
00:03:32 #16418 [verbose] > │ │
00:03:32 #16419 [verbose] > ╰──────────────────────────────────────────────────────────────────────────────╯
00:03:32 #16420 [verbose] >
00:03:32 #16421 [verbose] > ── markdown ────────────────────────────────────────────────────────────────────
00:03:32 #16422 [verbose] > ╭──────────────────────────────────────────────────────────────────────────────╮
00:03:32 #16423 [verbose] > │ ## vec_retain │
00:03:32 #16424 [verbose] > ╰──────────────────────────────────────────────────────────────────────────────╯
00:03:32 #16425 [verbose] >
00:03:32 #16426 [verbose] > ── spiral ──────────────────────────────────────────────────────────────────────
00:03:32 #16427 [verbose] > inl vec_retain forall el. (fn : el -> bool) (vec : vec el) : vec el =
00:03:32 #16428 [verbose] > inl vec = join vec
00:03:32 #16429 [verbose] > inl fn = join fn
00:03:32 #16430 [verbose] > !\($'"let mut !vec = !vec"')
00:03:32 #16431 [verbose] > // inl vec = vec |> rust.to_mut
00:03:32 #16432 [verbose] > !\($'"!vec.retain(|x| !fn(x.clone()))"')
00:03:32 #16433 [verbose] > !\($'"!vec"')
00:03:32 #16434 [verbose] > Building c:\home\git\polyglot\target\polyglot\spiral_eval\packages\b2b77b0134c1485e0a028f234219294fa1b9f391a2989c56e18d814758021d38\main.spi
00:03:33 #16435 [verbose] >
00:03:33 #16436 [verbose] > ╭─[ 213.02ms - stdout ]────────────────────────────────────────────────────────╮
00:03:33 #16437 [verbose] > │ () │
00:03:33 #16438 [verbose] > │ │
00:03:33 #16439 [verbose] > │ │
00:03:33 #16440 [verbose] > ╰──────────────────────────────────────────────────────────────────────────────╯
00:03:33 #16441 [verbose] >
00:03:33 #16442 [verbose] > ── markdown ────────────────────────────────────────────────────────────────────
00:03:33 #16443 [verbose] > ╭──────────────────────────────────────────────────────────────────────────────╮
00:03:33 #16444 [verbose] > │ ## vec_sort_by_key │
00:03:33 #16445 [verbose] > ╰──────────────────────────────────────────────────────────────────────────────╯
00:03:33 #16446 [verbose] >
00:03:33 #16447 [verbose] > ── spiral ──────────────────────────────────────────────────────────────────────
00:03:33 #16448 [verbose] > inl vec_sort_by_key forall el t. (fn : el -> t) (vec : vec el) : vec el =
00:03:33 #16449 [verbose] > inl vec = join vec
00:03:33 #16450 [verbose] > inl fn = join fn
00:03:33 #16451 [verbose] > !\($'"let mut !vec = !vec"')
00:03:33 #16452 [verbose] > // inl vec = vec |> rust.to_mut
00:03:33 #16453 [verbose] > !\($'"!vec.sort_by_key(|x| !fn(x.clone()))"')
00:03:33 #16454 [verbose] > !\($'"!vec"')
00:03:33 #16455 [verbose] > Building c:\home\git\polyglot\target\polyglot\spiral_eval\packages\2ccd227557cbf66d72c89125fdcd675228fcfe277f066ef888dd893ae1da24e7\main.spi
00:03:33 #16456 [verbose] >
00:03:33 #16457 [verbose] > ╭─[ 242.54ms - stdout ]────────────────────────────────────────────────────────╮
00:03:33 #16458 [verbose] > │ () │
00:03:33 #16459 [verbose] > │ │
00:03:33 #16460 [verbose] > │ │
00:03:33 #16461 [verbose] > ╰──────────────────────────────────────────────────────────────────────────────╯
00:03:33 #16462 [verbose] >
00:03:33 #16463 [verbose] > ── markdown ────────────────────────────────────────────────────────────────────
00:03:33 #16464 [verbose] > ╭──────────────────────────────────────────────────────────────────────────────╮
00:03:33 #16465 [verbose] > │ ## vec_extend │
00:03:33 #16466 [verbose] > ╰──────────────────────────────────────────────────────────────────────────────╯
00:03:33 #16467 [verbose] >
00:03:33 #16468 [verbose] > ── spiral ──────────────────────────────────────────────────────────────────────
00:03:33 #16469 [verbose] > inl vec_extend forall el. (el : vec el) (vec : vec el) : vec el =
00:03:33 #16470 [verbose] > inl el = join el
00:03:33 #16471 [verbose] > inl vec = join vec
00:03:33 #16472 [verbose] > !\($'"let mut !vec = !vec"')
00:03:33 #16473 [verbose] > // inl vec = vec |> rust.to_mut
00:03:33 #16474 [verbose] > !\($'"!vec.extend(!el)"')
00:03:33 #16475 [verbose] > !\($'"!vec"')
00:03:33 #16476 [verbose] > Building c:\home\git\polyglot\target\polyglot\spiral_eval\packages\85672f34966e652f35c5e200e581944e8ffc6370ae684ebce395ee57b70d2b26\main.spi
00:03:33 #16477 [verbose] >
00:03:33 #16478 [verbose] > ╭─[ 239.76ms - stdout ]────────────────────────────────────────────────────────╮
00:03:33 #16479 [verbose] > │ () │
00:03:33 #16480 [verbose] > │ │
00:03:33 #16481 [verbose] > │ │
00:03:33 #16482 [verbose] > ╰──────────────────────────────────────────────────────────────────────────────╯
00:03:33 #16483 [verbose] >
00:03:33 #16484 [verbose] > ── markdown ────────────────────────────────────────────────────────────────────
00:03:33 #16485 [verbose] > ╭──────────────────────────────────────────────────────────────────────────────╮
00:03:33 #16486 [verbose] > │ ## vec_collect │
00:03:33 #16487 [verbose] > ╰──────────────────────────────────────────────────────────────────────────────╯
00:03:33 #16488 [verbose] >
00:03:33 #16489 [verbose] > ── spiral ──────────────────────────────────────────────────────────────────────
00:03:33 #16490 [verbose] > inl vec_collect fn vec =
00:03:33 #16491 [verbose] > ((;[[]] |> to_vec), (vec |> from_vec : _ i32 _))
00:03:33 #16492 [verbose] > ||> am.fold fun acc x =>
00:03:33 #16493 [verbose] > acc |> vec_extend (fn x)
00:03:33 #16494 [verbose] > Building c:\home\git\polyglot\target\polyglot\spiral_eval\packages\a3f07fd84a7fd0cd4d0bf5321ebc75e02c0780d3fa9bbe2f300362572b7e5c39\main.spi
00:03:34 #16495 [verbose] >
00:03:34 #16496 [verbose] > ╭─[ 561.85ms - stdout ]────────────────────────────────────────────────────────╮
00:03:34 #16497 [verbose] > │ () │
00:03:34 #16498 [verbose] > │ │
00:03:34 #16499 [verbose] > │ │
00:03:34 #16500 [verbose] > ╰──────────────────────────────────────────────────────────────────────────────╯
00:03:34 #16501 [verbose] >
00:03:34 #16502 [verbose] > ── markdown ────────────────────────────────────────────────────────────────────
00:03:34 #16503 [verbose] > ╭──────────────────────────────────────────────────────────────────────────────╮
00:03:34 #16504 [verbose] > │ ## vec_collect_option │
00:03:34 #16505 [verbose] > ╰──────────────────────────────────────────────────────────────────────────────╯
00:03:34 #16506 [verbose] >
00:03:34 #16507 [verbose] > ── spiral ──────────────────────────────────────────────────────────────────────
00:03:34 #16508 [verbose] > inl vec_collect_option vec =
00:03:34 #16509 [verbose] > ((;[[]] |> to_vec |> Ok), (vec |> from_vec : _ i32 _))
00:03:34 #16510 [verbose] > ||> am.fold fun acc x =>
00:03:34 #16511 [verbose] > x
00:03:34 #16512 [verbose] > |> resultm.unbox
00:03:34 #16513 [verbose] > |> fun x =>
00:03:34 #16514 [verbose] > match acc, x |> resultm.map optionm'.unbox with
00:03:34 #16515 [verbose] > | Ok acc, Ok (Some x) => acc |> vec_extend x |> Ok
00:03:34 #16516 [verbose] > | _, Error error => error |> Error
00:03:34 #16517 [verbose] > | _ => acc
00:03:34 #16518 [verbose] > Building c:\home\git\polyglot\target\polyglot\spiral_eval\packages\8d3dc277b5bc35bd5deb67b699c7eb6f8b602bd0f34ef83f9cdb19474f2f1091\main.spi
00:03:34 #16519 [verbose] >
00:03:34 #16520 [verbose] > ╭─[ 216.06ms - stdout ]────────────────────────────────────────────────────────╮
00:03:34 #16521 [verbose] > │ () │
00:03:34 #16522 [verbose] > │ │
00:03:34 #16523 [verbose] > │ │
00:03:34 #16524 [verbose] > ╰──────────────────────────────────────────────────────────────────────────────╯
00:03:34 #16525 [verbose] >
00:03:34 #16526 [verbose] > ── markdown ────────────────────────────────────────────────────────────────────
00:03:34 #16527 [verbose] > ╭──────────────────────────────────────────────────────────────────────────────╮
00:03:34 #16528 [verbose] > │ ## vec_collect_into │
00:03:34 #16529 [verbose] > ╰──────────────────────────────────────────────────────────────────────────────╯
00:03:34 #16530 [verbose] >
00:03:34 #16531 [verbose] > ── spiral ──────────────────────────────────────────────────────────────────────
00:03:34 #16532 [verbose] > inl vec_collect_into forall (c : * -> * -> *) t e.
00:03:34 #16533 [verbose] > (x : vec (c t e))
00:03:34 #16534 [verbose] > : c (vec t) e
00:03:34 #16535 [verbose] > =
00:03:34 #16536 [verbose] > !\($'"!x.into_iter().collect()"')
00:03:34 #16537 [verbose] > Building c:\home\git\polyglot\target\polyglot\spiral_eval\packages\5d492dae10c609dc9ff237c88f0c1461f361db291400466b81a396fdcd254ec0\main.spi
00:03:34 #16538 [verbose] >
00:03:34 #16539 [verbose] > ╭─[ 228.57ms - stdout ]────────────────────────────────────────────────────────╮
00:03:34 #16540 [verbose] > │ () │
00:03:34 #16541 [verbose] > │ │
00:03:34 #16542 [verbose] > │ │
00:03:34 #16543 [verbose] > ╰──────────────────────────────────────────────────────────────────────────────╯
00:03:34 #16544 [verbose] >
00:03:34 #16545 [verbose] > ── markdown ────────────────────────────────────────────────────────────────────
00:03:34 #16546 [verbose] > ╭──────────────────────────────────────────────────────────────────────────────╮
00:03:34 #16547 [verbose] > │ ## vec_mapi │
00:03:34 #16548 [verbose] > ╰──────────────────────────────────────────────────────────────────────────────╯
00:03:34 #16549 [verbose] >
00:03:34 #16550 [verbose] > ── spiral ──────────────────────────────────────────────────────────────────────
00:03:34 #16551 [verbose] > inl vec_mapi forall dim t u. (fn : dim -> t -> u) (ar : vec t) : vec u =
00:03:34 #16552 [verbose] > inl fn = join fn
00:03:34 #16553 [verbose] > inl ar = join ar
00:03:34 #16554 [verbose] > !\($'"!ar.iter().enumerate().map(|(i, x)|
00:03:34 #16555 [verbose] > !fn(i.try_into().unwrap())(x.clone())).collect()"')
00:03:34 #16556 [verbose] > Building c:\home\git\polyglot\target\polyglot\spiral_eval\packages\5e2105317a6c289f3a577edecbce3873a87352c8d1cf8c28fce0ac9d5ad627d0\main.spi
00:03:34 #16557 [verbose] >
00:03:34 #16558 [verbose] > ╭─[ 214.36ms - stdout ]────────────────────────────────────────────────────────╮
00:03:34 #16559 [verbose] > │ () │
00:03:34 #16560 [verbose] > │ │
00:03:34 #16561 [verbose] > │ │
00:03:34 #16562 [verbose] > ╰──────────────────────────────────────────────────────────────────────────────╯
00:03:34 #16563 [verbose] >
00:03:34 #16564 [verbose] > ── markdown ────────────────────────────────────────────────────────────────────
00:03:34 #16565 [verbose] > ╭──────────────────────────────────────────────────────────────────────────────╮
00:03:34 #16566 [verbose] > │ ## vec_map │
00:03:34 #16567 [verbose] > ╰──────────────────────────────────────────────────────────────────────────────╯
00:03:34 #16568 [verbose] >
00:03:34 #16569 [verbose] > ── spiral ──────────────────────────────────────────────────────────────────────
00:03:34 #16570 [verbose] > inl vec_map forall t u. (fn : t -> u) (ar : vec t) : vec u =
00:03:34 #16571 [verbose] > !\\((ar, fn), $'"$0.iter().map(|x| $1(x.clone())).collect()"')
00:03:34 #16572 [verbose] > Building c:\home\git\polyglot\target\polyglot\spiral_eval\packages\f3ca3004dd94dece15e57f2d794c3913c4364d6ba30cbdb92f7abb8d482fe331\main.spi
00:03:34 #16573 [verbose] >
00:03:34 #16574 [verbose] > ╭─[ 213.20ms - stdout ]────────────────────────────────────────────────────────╮
00:03:34 #16575 [verbose] > │ () │
00:03:34 #16576 [verbose] > │ │
00:03:34 #16577 [verbose] > │ │
00:03:34 #16578 [verbose] > ╰──────────────────────────────────────────────────────────────────────────────╯
00:03:34 #16579 [verbose] >
00:03:34 #16580 [verbose] > ── markdown ────────────────────────────────────────────────────────────────────
00:03:34 #16581 [verbose] > ╭──────────────────────────────────────────────────────────────────────────────╮
00:03:34 #16582 [verbose] > │ ## vec_filter │
00:03:34 #16583 [verbose] > ╰──────────────────────────────────────────────────────────────────────────────╯
00:03:34 #16584 [verbose] >
00:03:34 #16585 [verbose] > ── spiral ──────────────────────────────────────────────────────────────────────
00:03:34 #16586 [verbose] > inl vec_filter forall t. (fn : t -> bool) (ar : vec t) : vec t =
00:03:34 #16587 [verbose] > inl fn = join fn
00:03:34 #16588 [verbose] > inl ar = join ar
00:03:34 #16589 [verbose] > !\($'"!ar.into_iter().filter(|x| !fn(x.clone().clone())).collect()"')
00:03:35 #16590 [verbose] > Building c:\home\git\polyglot\target\polyglot\spiral_eval\packages\8a0aa8fe9dc2c6a648988c0ba0eb8f4e875f51d7ea610a012c8841999479c05e\main.spi
00:03:35 #16591 [verbose] >
00:03:35 #16592 [verbose] > ╭─[ 221.02ms - stdout ]────────────────────────────────────────────────────────╮
00:03:35 #16593 [verbose] > │ () │
00:03:35 #16594 [verbose] > │ │
00:03:35 #16595 [verbose] > │ │
00:03:35 #16596 [verbose] > ╰──────────────────────────────────────────────────────────────────────────────╯
00:03:35 #16597 [verbose] >
00:03:35 #16598 [verbose] > ── markdown ────────────────────────────────────────────────────────────────────
00:03:35 #16599 [verbose] > ╭──────────────────────────────────────────────────────────────────────────────╮
00:03:35 #16600 [verbose] > │ ## slice │
00:03:35 #16601 [verbose] > ╰──────────────────────────────────────────────────────────────────────────────╯
00:03:35 #16602 [verbose] >
00:03:35 #16603 [verbose] > ── spiral ──────────────────────────────────────────────────────────────────────
00:03:35 #16604 [verbose] > nominal slice t = $"Slice<`t>"
00:03:35 #16605 [verbose] > Building c:\home\git\polyglot\target\polyglot\spiral_eval\packages\f30e0ff1e62e14ad98c3d742d8eaa2e23e914c091c898bf7d875094d449e6ba8\main.spi
00:03:35 #16606 [verbose] >
00:03:35 #16607 [verbose] > ╭─[ 215.96ms - stdout ]────────────────────────────────────────────────────────╮
00:03:35 #16608 [verbose] > │ () │
00:03:35 #16609 [verbose] > │ │
00:03:35 #16610 [verbose] > │ │
00:03:35 #16611 [verbose] > ╰──────────────────────────────────────────────────────────────────────────────╯
00:03:35 #16612 [verbose] >
00:03:35 #16613 [verbose] > ── markdown ────────────────────────────────────────────────────────────────────
00:03:35 #16614 [verbose] > ╭──────────────────────────────────────────────────────────────────────────────╮
00:03:35 #16615 [verbose] > │ ## slice' │
00:03:35 #16616 [verbose] > ╰──────────────────────────────────────────────────────────────────────────────╯
00:03:35 #16617 [verbose] >
00:03:35 #16618 [verbose] > ── spiral ──────────────────────────────────────────────────────────────────────
00:03:35 #16619 [verbose] > nominal slice' t u = $"Slice'<`t, `u>"
00:03:35 #16620 [verbose] >
00:03:35 #16621 [verbose] > inl slice' forall dim el. (x : option el) : slice' el dim =
00:03:35 #16622 [verbose] > match x with
00:03:35 #16623 [verbose] > | Some x => !\($'"[[!x]]"')
00:03:35 #16624 [verbose] > | None =>
00:03:35 #16625 [verbose] > !\($'"[[\\\"\\\".to_string()]]"') : slice' el dim
00:03:35 #16626 [verbose] > // emit_expr `(()) `(slice' el dim) () ($'"[[@dim]]"' : string) :
00:03:35 #16627 [verbose] > slice' el 10
00:03:35 #16628 [verbose] > // !\( : string) : slice' el i32 // !\($'"[[]]"')
00:03:35 #16629 [verbose] > Building c:\home\git\polyglot\target\polyglot\spiral_eval\packages\4eb18b6738bde595a489f354e702dd9017d6d2ac1ce7a655974d8c99a4e0e7dc\main.spi
00:03:35 #16630 [verbose] >
00:03:35 #16631 [verbose] > ╭─[ 222.39ms - stdout ]────────────────────────────────────────────────────────╮
00:03:35 #16632 [verbose] > │ () │
00:03:35 #16633 [verbose] > │ │
00:03:35 #16634 [verbose] > │ │
00:03:35 #16635 [verbose] > ╰──────────────────────────────────────────────────────────────────────────────╯
00:03:35 #16636 [verbose] >
00:03:35 #16637 [verbose] > ── markdown ────────────────────────────────────────────────────────────────────
00:03:35 #16638 [verbose] > ╭──────────────────────────────────────────────────────────────────────────────╮
00:03:35 #16639 [verbose] > │ ## as_slice │
00:03:35 #16640 [verbose] > ╰──────────────────────────────────────────────────────────────────────────────╯
00:03:35 #16641 [verbose] >
00:03:35 #16642 [verbose] > ── spiral ──────────────────────────────────────────────────────────────────────
00:03:35 #16643 [verbose] > inl as_slice forall t. (x : array_base t) : rust.ref' (slice t) =
00:03:35 #16644 [verbose] > inl x = x |> to_vec
00:03:35 #16645 [verbose] > !\($'"!x.as_slice()"')
00:03:35 #16646 [verbose] > Building c:\home\git\polyglot\target\polyglot\spiral_eval\packages\c733c680b664f037db12f85af383459ca87e2e1c051ecbd2521a735194ce0941\main.spi
00:03:35 #16647 [verbose] >
00:03:35 #16648 [verbose] > ╭─[ 232.40ms - stdout ]────────────────────────────────────────────────────────╮
00:03:35 #16649 [verbose] > │ () │
00:03:35 #16650 [verbose] > │ │
00:03:35 #16651 [verbose] > │ │
00:03:35 #16652 [verbose] > ╰──────────────────────────────────────────────────────────────────────────────╯
00:03:37 #16653 [verbose] > [NbConvertApp] Converting notebook am'.dib.ipynb to html
00:03:37 #16654 [verbose] > C:\Users\i574n\scoop\apps\python\current\Lib\site-packages\nbformat\__init__.py:93: MissingIDFieldWarning: Code cell is missing an id field, this will become a hard error in future nbformat versions. You may want to use `normalize()` on your notebooks before validations (available since nbformat 5.1.4). Previous versions of nbformat are fixing this issue transparently, and will stop doing so in the future.
00:03:37 #16655 [verbose] > validate(nb)
00:03:38 #16656 [verbose] > C:\Users\i574n\scoop\apps\python\current\Lib\site-packages\nbconvert\filters\highlight.py:71: UserWarning: IPython3 lexer unavailable, falling back on Python 3
00:03:38 #16657 [verbose] > return _pygments_highlight(
00:03:38 #16658 [verbose] > [NbConvertApp] Writing 395921 bytes to am'.dib.html
00:03:39 #16659 [debug] execute_with_options_async / exit_code: 0 / output.Length: 93538
00:03:39 #17 [debug] main / executeCommand / exitCode: 0
00:03:39 #16660 [debug] execute_with_options_async / options: struct (Some System.Threading.CancellationToken,
"pwsh -c "../../scripts/invoke-dib.ps1 \"sm'.dib\" -Retries 3"", None,
None, None)
00:03:41 #16661 [verbose] >
00:03:41 #16662 [verbose] > ── markdown ────────────────────────────────────────────────────────────────────
00:03:41 #16663 [verbose] > ╭──────────────────────────────────────────────────────────────────────────────╮
00:03:41 #16664 [verbose] > │ # sm' │
00:03:41 #16665 [verbose] > ╰──────────────────────────────────────────────────────────────────────────────╯
00:03:41 #16666 [verbose] >
00:03:41 #16667 [verbose] > ── spiral ──────────────────────────────────────────────────────────────────────
00:03:41 #16668 [verbose] > // // test
00:03:41 #16669 [verbose] >
00:03:41 #16670 [verbose] > open testing
00:03:44 #16671 [verbose] > Building c:\home\git\polyglot\target\polyglot\spiral_eval\packages\8837341da068f4ef4271045b3ef1c89d209237bf74b4f11596b6ee2d484becb0\main.spi
00:03:45 #16672 [verbose] >
00:03:45 #16673 [verbose] > ╭─[ 3.68s - stdout ]───────────────────────────────────────────────────────────╮
00:03:45 #16674 [verbose] > │ () │
00:03:45 #16675 [verbose] > │ │
00:03:45 #16676 [verbose] > │ │
00:03:45 #16677 [verbose] > ╰──────────────────────────────────────────────────────────────────────────────╯
00:03:45 #16678 [verbose] >
00:03:45 #16679 [verbose] > ── spiral ──────────────────────────────────────────────────────────────────────
00:03:45 #16680 [verbose] > open rust_operators
00:03:45 #16681 [verbose] > Building c:\home\git\polyglot\target\polyglot\spiral_eval\packages\b9bafaa9190fd8b92f96dcaf4c2d6855aa7c524558dd349c71163ab7065188b0\main.spi
00:03:45 #16682 [verbose] >
00:03:45 #16683 [verbose] > ╭─[ 256.66ms - stdout ]────────────────────────────────────────────────────────╮
00:03:45 #16684 [verbose] > │ () │
00:03:45 #16685 [verbose] > │ │
00:03:45 #16686 [verbose] > │ │
00:03:45 #16687 [verbose] > ╰──────────────────────────────────────────────────────────────────────────────╯
00:03:45 #16688 [verbose] >
00:03:45 #16689 [verbose] > ── markdown ────────────────────────────────────────────────────────────────────
00:03:45 #16690 [verbose] > ╭──────────────────────────────────────────────────────────────────────────────╮
00:03:45 #16691 [verbose] > │ ## types │
00:03:45 #16692 [verbose] > ╰──────────────────────────────────────────────────────────────────────────────╯
00:03:45 #16693 [verbose] >
00:03:45 #16694 [verbose] > ── spiral ──────────────────────────────────────────────────────────────────────
00:03:45 #16695 [verbose] > inl types () =
00:03:45 #16696 [verbose] > global "[[<Fable.Core.Erase; Fable.Core.Emit(\"str\")>]] type Str = class
00:03:45 #16697 [verbose] > end"
00:03:45 #16698 [verbose] > global "[[<Fable.Core.Erase; Fable.Core.Emit(\"base64::DecodeError\")>]]
00:03:45 #16699 [verbose] > type base64_DecodeError = class end"
00:03:45 #16700 [verbose] > global "[[<Fable.Core.Erase; Fable.Core.Emit(\"borsh::io::Error\")>]] type
00:03:45 #16701 [verbose] > borsh_io_Error = class end"
00:03:45 #16702 [verbose] > global "[[<Fable.Core.Erase; Fable.Core.Emit(\"js_sys::JsString\")>]] type
00:03:45 #16703 [verbose] > js_sys_JsString = class end"
00:03:45 #16704 [verbose] > global "[[<Fable.Core.Erase; Fable.Core.Emit(\"serde_json::Error\")>]] type
00:03:45 #16705 [verbose] > serde_json_Error = class end"
00:03:45 #16706 [verbose] > global "[[<Fable.Core.Erase; Fable.Core.Emit(\"serde_json::Value\")>]] type
00:03:45 #16707 [verbose] > serde_json_Value = class end"
00:03:45 #16708 [verbose] > global "[[<Fable.Core.Erase;
00:03:45 #16709 [verbose] > Fable.Core.Emit(\"serde_wasm_bindgen::Error\")>]] type serde_wasm_bindgen_Error
00:03:45 #16710 [verbose] > = class end"
00:03:45 #16711 [verbose] > global "[[<Fable.Core.Erase; Fable.Core.Emit(\"std::ffi::OsStr\")>]] type
00:03:45 #16712 [verbose] > std_ffi_OsStr = class end"
00:03:45 #16713 [verbose] > global "[[<Fable.Core.Erase; Fable.Core.Emit(\"std::ffi::OsString\")>]] type
00:03:45 #16714 [verbose] > std_ffi_OsString = class end"
00:03:45 #16715 [verbose] > global "[[<Fable.Core.Erase; Fable.Core.Emit(\"std::str::Utf8Error\")>]]
00:03:45 #16716 [verbose] > type std_str_Utf8Error = class end"
00:03:45 #16717 [verbose] > global "[[<Fable.Core.Erase; Fable.Core.Emit(\"std::string::String\")>]]
00:03:45 #16718 [verbose] > type std_string_String = class end"
00:03:45 #16719 [verbose] > Building c:\home\git\polyglot\target\polyglot\spiral_eval\packages\3b923c18fdf8789e140ac4bda437e92dedbc9cfe0ce81448be66c6330896bc24\main.spi
00:03:45 #16720 [verbose] >
00:03:45 #16721 [verbose] > ╭─[ 256.09ms - stdout ]────────────────────────────────────────────────────────╮
00:03:45 #16722 [verbose] > │ () │
00:03:45 #16723 [verbose] > │ │
00:03:45 #16724 [verbose] > │ │
00:03:45 #16725 [verbose] > ╰──────────────────────────────────────────────────────────────────────────────╯
00:03:45 #16726 [verbose] >
00:03:45 #16727 [verbose] > ── spiral ──────────────────────────────────────────────────────────────────────
00:03:45 #16728 [verbose] > // // test
00:03:45 #16729 [verbose] >
00:03:45 #16730 [verbose] > inl types () =
00:03:45 #16731 [verbose] > rust.types ()
00:03:45 #16732 [verbose] > types ()
00:03:45 #16733 [verbose] > Building c:\home\git\polyglot\target\polyglot\spiral_eval\packages\eaeb4a5036b9671649a99437c6ece1e888f3d058817c9d15682c137e0d8c924a\main.spi
00:03:46 #16734 [verbose] >
00:03:46 #16735 [verbose] > ╭─[ 252.44ms - stdout ]────────────────────────────────────────────────────────╮
00:03:46 #16736 [verbose] > │ () │
00:03:46 #16737 [verbose] > │ │
00:03:46 #16738 [verbose] > │ │
00:03:46 #16739 [verbose] > ╰──────────────────────────────────────────────────────────────────────────────╯
00:03:46 #16740 [verbose] >
00:03:46 #16741 [verbose] > ── spiral ──────────────────────────────────────────────────────────────────────
00:03:46 #16742 [verbose] > nominal base64_decode_error = $"base64_DecodeError"
00:03:46 #16743 [verbose] > nominal borsh_io_error = $"borsh_io_Error"
00:03:46 #16744 [verbose] > nominal utf8_error = $"std_str_Utf8Error"
00:03:46 #16745 [verbose] > nominal json_value = $"serde_json_Value"
00:03:46 #16746 [verbose] > nominal json_error = $"serde_json_Error"
00:03:46 #16747 [verbose] > nominal serde_wasm_bindgen_error = $"serde_wasm_bindgen_Error"
00:03:46 #16748 [verbose] > nominal js_string = $"js_sys_JsString"
00:03:46 #16749 [verbose] > nominal str = $"Str"
00:03:46 #16750 [verbose] > nominal os_str = $"std_ffi_OsStr"
00:03:46 #16751 [verbose] > nominal os_string = $"std_ffi_OsString"
00:03:46 #16752 [verbose] > nominal std_string = $"std_string_String"
00:03:46 #16753 [verbose] > Building c:\home\git\polyglot\target\polyglot\spiral_eval\packages\9fd6a53a38f2a1656dc059a6c777420a1d6fae7fdbc8478610bb0ab2447f886f\main.spi
00:03:46 #16754 [verbose] >
00:03:46 #16755 [verbose] > ╭─[ 244.46ms - stdout ]────────────────────────────────────────────────────────╮
00:03:46 #16756 [verbose] > │ () │
00:03:46 #16757 [verbose] > │ │
00:03:46 #16758 [verbose] > │ │
00:03:46 #16759 [verbose] > ╰──────────────────────────────────────────────────────────────────────────────╯
00:03:46 #16760 [verbose] >
00:03:46 #16761 [verbose] > ── markdown ────────────────────────────────────────────────────────────────────
00:03:46 #16762 [verbose] > ╭──────────────────────────────────────────────────────────────────────────────╮
00:03:46 #16763 [verbose] > │ ## contains │
00:03:46 #16764 [verbose] > ╰──────────────────────────────────────────────────────────────────────────────╯
00:03:46 #16765 [verbose] >
00:03:46 #16766 [verbose] > ── spiral ──────────────────────────────────────────────────────────────────────
00:03:46 #16767 [verbose] > inl contains (value : string) (s : string) : bool =
00:03:46 #16768 [verbose] > $"!s.Contains !value"
00:03:46 #16769 [verbose] > Building c:\home\git\polyglot\target\polyglot\spiral_eval\packages\0e76eb046d0d7c2475b4220a6e9b756c61849742a1ad42325bfc104b58808c74\main.spi
00:03:46 #16770 [verbose] >
00:03:46 #16771 [verbose] > ╭─[ 212.11ms - stdout ]────────────────────────────────────────────────────────╮
00:03:46 #16772 [verbose] > │ () │
00:03:46 #16773 [verbose] > │ │
00:03:46 #16774 [verbose] > │ │
00:03:46 #16775 [verbose] > ╰──────────────────────────────────────────────────────────────────────────────╯
00:03:46 #16776 [verbose] >
00:03:46 #16777 [verbose] > ── markdown ────────────────────────────────────────────────────────────────────
00:03:46 #16778 [verbose] > ╭──────────────────────────────────────────────────────────────────────────────╮
00:03:46 #16779 [verbose] > │ ## ends_with │
00:03:46 #16780 [verbose] > ╰──────────────────────────────────────────────────────────────────────────────╯
00:03:46 #16781 [verbose] >
00:03:46 #16782 [verbose] > ── spiral ──────────────────────────────────────────────────────────────────────
00:03:46 #16783 [verbose] > inl ends_with (value : string) (s : string) : bool =
00:03:46 #16784 [verbose] > $"!s.EndsWith !value"
00:03:46 #16785 [verbose] > Building c:\home\git\polyglot\target\polyglot\spiral_eval\packages\22494880b37832d34864f39ab014e8b8638778ff64ad1abe4c927ef1a751f0f7\main.spi
00:03:46 #16786 [verbose] >
00:03:46 #16787 [verbose] > ╭─[ 250.08ms - stdout ]────────────────────────────────────────────────────────╮
00:03:46 #16788 [verbose] > │ () │
00:03:46 #16789 [verbose] > │ │
00:03:46 #16790 [verbose] > │ │
00:03:46 #16791 [verbose] > ╰──────────────────────────────────────────────────────────────────────────────╯
00:03:46 #16792 [verbose] >
00:03:46 #16793 [verbose] > ── markdown ────────────────────────────────────────────────────────────────────
00:03:46 #16794 [verbose] > ╭──────────────────────────────────────────────────────────────────────────────╮
00:03:46 #16795 [verbose] > │ ## pad_left │
00:03:46 #16796 [verbose] > ╰──────────────────────────────────────────────────────────────────────────────╯
00:03:46 #16797 [verbose] >
00:03:46 #16798 [verbose] > ── spiral ──────────────────────────────────────────────────────────────────────
00:03:46 #16799 [verbose] > inl pad_left (total_width : i32) (padding_char : char) (s : string) : string =
00:03:46 #16800 [verbose] > $"!s.PadLeft (!total_width, !padding_char)"
00:03:46 #16801 [verbose] > Building c:\home\git\polyglot\target\polyglot\spiral_eval\packages\26c11e35390d086e5e2977546fd44771ad0c8d55c7814e351f5edbc38491907c\main.spi
00:03:47 #16802 [verbose] >
00:03:47 #16803 [verbose] > ╭─[ 262.08ms - stdout ]────────────────────────────────────────────────────────╮
00:03:47 #16804 [verbose] > │ () │
00:03:47 #16805 [verbose] > │ │
00:03:47 #16806 [verbose] > │ │
00:03:47 #16807 [verbose] > ╰──────────────────────────────────────────────────────────────────────────────╯
00:03:47 #16808 [verbose] >
00:03:47 #16809 [verbose] > ── markdown ────────────────────────────────────────────────────────────────────
00:03:47 #16810 [verbose] > ╭──────────────────────────────────────────────────────────────────────────────╮
00:03:47 #16811 [verbose] > │ ## pad_right │
00:03:47 #16812 [verbose] > ╰──────────────────────────────────────────────────────────────────────────────╯
00:03:47 #16813 [verbose] >
00:03:47 #16814 [verbose] > ── spiral ──────────────────────────────────────────────────────────────────────
00:03:47 #16815 [verbose] > inl pad_right (pad : i32) (s : string) : string =
00:03:47 #16816 [verbose] > $"!s.PadRight !pad"
00:03:47 #16817 [verbose] > Building c:\home\git\polyglot\target\polyglot\spiral_eval\packages\016fd839336a9d2045388d14ed8a3ef8a67fa670df7b115b1d4332f6d4ff2d12\main.spi
00:03:47 #16818 [verbose] >
00:03:47 #16819 [verbose] > ╭─[ 240.30ms - stdout ]────────────────────────────────────────────────────────╮
00:03:47 #16820 [verbose] > │ () │
00:03:47 #16821 [verbose] > │ │
00:03:47 #16822 [verbose] > │ │
00:03:47 #16823 [verbose] > ╰──────────────────────────────────────────────────────────────────────────────╯
00:03:47 #16824 [verbose] >
00:03:47 #16825 [verbose] > ── markdown ────────────────────────────────────────────────────────────────────
00:03:47 #16826 [verbose] > ╭──────────────────────────────────────────────────────────────────────────────╮
00:03:47 #16827 [verbose] > │ ## replace │
00:03:47 #16828 [verbose] > ╰──────────────────────────────────────────────────────────────────────────────╯
00:03:47 #16829 [verbose] >
00:03:47 #16830 [verbose] > ── spiral ──────────────────────────────────────────────────────────────────────
00:03:47 #16831 [verbose] > inl replace (old_value : string) (new_value : string) (s : string) : string =
00:03:47 #16832 [verbose] > $"!s.Replace (!old_value, !new_value)"
00:03:47 #16833 [verbose] > Building c:\home\git\polyglot\target\polyglot\spiral_eval\packages\a9dc0676a29f811c3488b9002ab88806a4cc27724a463454edd5ae5752d24900\main.spi
00:03:47 #16834 [verbose] >
00:03:47 #16835 [verbose] > ╭─[ 275.86ms - stdout ]────────────────────────────────────────────────────────╮
00:03:47 #16836 [verbose] > │ () │
00:03:47 #16837 [verbose] > │ │
00:03:47 #16838 [verbose] > │ │
00:03:47 #16839 [verbose] > ╰──────────────────────────────────────────────────────────────────────────────╯
00:03:47 #16840 [verbose] >
00:03:47 #16841 [verbose] > ── markdown ────────────────────────────────────────────────────────────────────
00:03:47 #16842 [verbose] > ╭──────────────────────────────────────────────────────────────────────────────╮
00:03:47 #16843 [verbose] > │ ## starts_with │
00:03:47 #16844 [verbose] > ╰──────────────────────────────────────────────────────────────────────────────╯
00:03:47 #16845 [verbose] >
00:03:47 #16846 [verbose] > ── spiral ──────────────────────────────────────────────────────────────────────
00:03:47 #16847 [verbose] > inl starts_with (value : string) (s : string) : bool =
00:03:47 #16848 [verbose] > $"!s.StartsWith !value"
00:03:47 #16849 [verbose] > Building c:\home\git\polyglot\target\polyglot\spiral_eval\packages\3f1752b9436b6ab9eb8015244d0cf3263de962ba0084b3ccbb9ad24800085d16\main.spi
00:03:47 #16850 [verbose] >
00:03:47 #16851 [verbose] > ╭─[ 247.86ms - stdout ]────────────────────────────────────────────────────────╮
00:03:47 #16852 [verbose] > │ () │
00:03:47 #16853 [verbose] > │ │
00:03:47 #16854 [verbose] > │ │
00:03:47 #16855 [verbose] > ╰──────────────────────────────────────────────────────────────────────────────╯
00:03:47 #16856 [verbose] >
00:03:47 #16857 [verbose] > ── markdown ────────────────────────────────────────────────────────────────────
00:03:47 #16858 [verbose] > ╭──────────────────────────────────────────────────────────────────────────────╮
00:03:47 #16859 [verbose] > │ ## substring │
00:03:47 #16860 [verbose] > ╰──────────────────────────────────────────────────────────────────────────────╯
00:03:47 #16861 [verbose] >
00:03:47 #16862 [verbose] > ── spiral ──────────────────────────────────────────────────────────────────────
00:03:47 #16863 [verbose] > inl substring (start : i32) (len : i32) (str : string) : string =
00:03:47 #16864 [verbose] > $"!str.Substring (!start, !len)"
00:03:47 #16865 [verbose] > Building c:\home\git\polyglot\target\polyglot\spiral_eval\packages\35cf0ce09f55aa8f0492a4a3ded69cef1446530a1f6f295ca7ced4b8de698315\main.spi
00:03:48 #16866 [verbose] >
00:03:48 #16867 [verbose] > ╭─[ 250.32ms - stdout ]────────────────────────────────────────────────────────╮
00:03:48 #16868 [verbose] > │ () │
00:03:48 #16869 [verbose] > │ │
00:03:48 #16870 [verbose] > │ │
00:03:48 #16871 [verbose] > ╰──────────────────────────────────────────────────────────────────────────────╯
00:03:48 #16872 [verbose] >
00:03:48 #16873 [verbose] > ── markdown ────────────────────────────────────────────────────────────────────
00:03:48 #16874 [verbose] > ╭──────────────────────────────────────────────────────────────────────────────╮
00:03:48 #16875 [verbose] > │ ## to_lower │
00:03:48 #16876 [verbose] > ╰──────────────────────────────────────────────────────────────────────────────╯
00:03:48 #16877 [verbose] >
00:03:48 #16878 [verbose] > ── spiral ──────────────────────────────────────────────────────────────────────
00:03:48 #16879 [verbose] > inl to_lower (input : string) : string =
00:03:48 #16880 [verbose] > $"!input.ToLower ()"
00:03:48 #16881 [verbose] > Building c:\home\git\polyglot\target\polyglot\spiral_eval\packages\2567ca395a90d555f517ba8f16071e917841b77124c0f0c789671c9169240a46\main.spi
00:03:48 #16882 [verbose] >
00:03:48 #16883 [verbose] > ╭─[ 242.97ms - stdout ]────────────────────────────────────────────────────────╮
00:03:48 #16884 [verbose] > │ () │
00:03:48 #16885 [verbose] > │ │
00:03:48 #16886 [verbose] > │ │
00:03:48 #16887 [verbose] > ╰──────────────────────────────────────────────────────────────────────────────╯
00:03:48 #16888 [verbose] >
00:03:48 #16889 [verbose] > ── markdown ────────────────────────────────────────────────────────────────────
00:03:48 #16890 [verbose] > ╭──────────────────────────────────────────────────────────────────────────────╮
00:03:48 #16891 [verbose] > │ ## to_upper │
00:03:48 #16892 [verbose] > ╰──────────────────────────────────────────────────────────────────────────────╯
00:03:48 #16893 [verbose] >
00:03:48 #16894 [verbose] > ── spiral ──────────────────────────────────────────────────────────────────────
00:03:48 #16895 [verbose] > inl to_upper (input : string) : string =
00:03:48 #16896 [verbose] > $"!input.ToUpper ()"
00:03:48 #16897 [verbose] > Building c:\home\git\polyglot\target\polyglot\spiral_eval\packages\1a50c454501b30ab747cf787fbf78358ecb9a7abf26bd84ce2878fb309928082\main.spi
00:03:48 #16898 [verbose] >
00:03:48 #16899 [verbose] > ╭─[ 273.45ms - stdout ]────────────────────────────────────────────────────────╮
00:03:48 #16900 [verbose] > │ () │
00:03:48 #16901 [verbose] > │ │
00:03:48 #16902 [verbose] > │ │
00:03:48 #16903 [verbose] > ╰──────────────────────────────────────────────────────────────────────────────╯
00:03:48 #16904 [verbose] >
00:03:48 #16905 [verbose] > ── markdown ────────────────────────────────────────────────────────────────────
00:03:48 #16906 [verbose] > ╭──────────────────────────────────────────────────────────────────────────────╮
00:03:48 #16907 [verbose] > │ ## trim │
00:03:48 #16908 [verbose] > ╰──────────────────────────────────────────────────────────────────────────────╯
00:03:48 #16909 [verbose] >
00:03:48 #16910 [verbose] > ── spiral ──────────────────────────────────────────────────────────────────────
00:03:48 #16911 [verbose] > inl trim (input : string) : string =
00:03:48 #16912 [verbose] > $"!input.Trim ()"
00:03:48 #16913 [verbose] > Building c:\home\git\polyglot\target\polyglot\spiral_eval\packages\bb26cc1ee7a036efcb8209ea3813bb048cda62c8e43877183049089be2c507ef\main.spi
00:03:48 #16914 [verbose] >
00:03:48 #16915 [verbose] > ╭─[ 245.25ms - stdout ]────────────────────────────────────────────────────────╮
00:03:48 #16916 [verbose] > │ () │
00:03:48 #16917 [verbose] > │ │
00:03:48 #16918 [verbose] > │ │
00:03:48 #16919 [verbose] > ╰──────────────────────────────────────────────────────────────────────────────╯
00:03:48 #16920 [verbose] >
00:03:48 #16921 [verbose] > ── markdown ────────────────────────────────────────────────────────────────────
00:03:48 #16922 [verbose] > ╭──────────────────────────────────────────────────────────────────────────────╮
00:03:48 #16923 [verbose] > │ ## trim_end │
00:03:48 #16924 [verbose] > ╰──────────────────────────────────────────────────────────────────────────────╯
00:03:48 #16925 [verbose] >
00:03:48 #16926 [verbose] > ── spiral ──────────────────────────────────────────────────────────────────────
00:03:48 #16927 [verbose] > inl trim_end (trim_chars : array_base char) (input : string) : string =
00:03:48 #16928 [verbose] > $"!input.TrimEnd !trim_chars"
00:03:49 #16929 [verbose] > Building c:\home\git\polyglot\target\polyglot\spiral_eval\packages\87b1179f0d15d85c91268a2caad03ecdf4183b6d42bd7442e8e1edf206599073\main.spi
00:03:49 #16930 [verbose] >
00:03:49 #16931 [verbose] > ╭─[ 279.10ms - stdout ]────────────────────────────────────────────────────────╮
00:03:49 #16932 [verbose] > │ () │
00:03:49 #16933 [verbose] > │ │
00:03:49 #16934 [verbose] > │ │
00:03:49 #16935 [verbose] > ╰──────────────────────────────────────────────────────────────────────────────╯
00:03:49 #16936 [verbose] >
00:03:49 #16937 [verbose] > ── markdown ────────────────────────────────────────────────────────────────────
00:03:49 #16938 [verbose] > ╭──────────────────────────────────────────────────────────────────────────────╮
00:03:49 #16939 [verbose] > │ ## trim_start │
00:03:49 #16940 [verbose] > ╰──────────────────────────────────────────────────────────────────────────────╯
00:03:49 #16941 [verbose] >
00:03:49 #16942 [verbose] > ── spiral ──────────────────────────────────────────────────────────────────────
00:03:49 #16943 [verbose] > inl trim_start (trim_chars : array_base char) (input : string) : string =
00:03:49 #16944 [verbose] > $"!input.TrimStart !trim_chars"
00:03:49 #16945 [verbose] > Building c:\home\git\polyglot\target\polyglot\spiral_eval\packages\21d14611b7c29a5df901d192717f2fbbd802863c614c629220eb7d1c60478ac0\main.spi
00:03:49 #16946 [verbose] >
00:03:49 #16947 [verbose] > ╭─[ 271.88ms - stdout ]────────────────────────────────────────────────────────╮
00:03:49 #16948 [verbose] > │ () │
00:03:49 #16949 [verbose] > │ │
00:03:49 #16950 [verbose] > │ │
00:03:49 #16951 [verbose] > ╰──────────────────────────────────────────────────────────────────────────────╯
00:03:49 #16952 [verbose] >
00:03:49 #16953 [verbose] > ── markdown ────────────────────────────────────────────────────────────────────
00:03:49 #16954 [verbose] > ╭──────────────────────────────────────────────────────────────────────────────╮
00:03:49 #16955 [verbose] > │ ## slice │
00:03:49 #16956 [verbose] > ╰──────────────────────────────────────────────────────────────────────────────╯
00:03:49 #16957 [verbose] >
00:03:49 #16958 [verbose] > ── spiral ──────────────────────────────────────────────────────────────────────
00:03:49 #16959 [verbose] > inl slice from to s : string =
00:03:49 #16960 [verbose] > sm.slice s { from to }
00:03:49 #16961 [verbose] > Building c:\home\git\polyglot\target\polyglot\spiral_eval\packages\1a8b4e6d24335db1d9752523f1e1c0af4eedb2e8c9766c2a217c68ca4580fad8\main.spi
00:03:49 #16962 [verbose] >
00:03:49 #16963 [verbose] > ╭─[ 238.90ms - stdout ]────────────────────────────────────────────────────────╮
00:03:49 #16964 [verbose] > │ () │
00:03:49 #16965 [verbose] > │ │
00:03:49 #16966 [verbose] > │ │
00:03:49 #16967 [verbose] > ╰──────────────────────────────────────────────────────────────────────────────╯
00:03:49 #16968 [verbose] >
00:03:49 #16969 [verbose] > ── markdown ────────────────────────────────────────────────────────────────────
00:03:49 #16970 [verbose] > ╭──────────────────────────────────────────────────────────────────────────────╮
00:03:49 #16971 [verbose] > │ ## raw_string_literal │
00:03:49 #16972 [verbose] > ╰──────────────────────────────────────────────────────────────────────────────╯
00:03:49 #16973 [verbose] >
00:03:49 #16974 [verbose] > ── spiral ──────────────────────────────────────────────────────────────────────
00:03:49 #16975 [verbose] > inl raw_string_literal (s : string) : rust.ref' str =
00:03:49 #16976 [verbose] > !\($"\"r#\\\"\" + !s + \"\\\"#\"")
00:03:49 #16977 [verbose] > Building c:\home\git\polyglot\target\polyglot\spiral_eval\packages\c462a6ce4d9c58cec1426bb478e253d6d809435b9e8cacd7d8793444eacb953d\main.spi
00:03:50 #16978 [verbose] >
00:03:50 #16979 [verbose] > ╭─[ 616.81ms - stdout ]────────────────────────────────────────────────────────╮
00:03:50 #16980 [verbose] > │ () │
00:03:50 #16981 [verbose] > │ │
00:03:50 #16982 [verbose] > │ │
00:03:50 #16983 [verbose] > ╰──────────────────────────────────────────────────────────────────────────────╯
00:03:50 #16984 [verbose] >
00:03:50 #16985 [verbose] > ── markdown ────────────────────────────────────────────────────────────────────
00:03:50 #16986 [verbose] > ╭──────────────────────────────────────────────────────────────────────────────╮
00:03:50 #16987 [verbose] > │ ## raw_string_literal_static │
00:03:50 #16988 [verbose] > ╰──────────────────────────────────────────────────────────────────────────────╯
00:03:50 #16989 [verbose] >
00:03:50 #16990 [verbose] > ── spiral ──────────────────────────────────────────────────────────────────────
00:03:50 #16991 [verbose] > inl raw_string_literal_static (s : string) : rust.static_ref' str =
00:03:50 #16992 [verbose] > !\($"\"r#\\\"\" + !s + \"\\\"#\"")
00:03:50 #16993 [verbose] > Building c:\home\git\polyglot\target\polyglot\spiral_eval\packages\8c743b15e092a434e5164f1402572eaf533d289cd79f856ab376b1b1b4b0c59c\main.spi
00:03:50 #16994 [verbose] >
00:03:50 #16995 [verbose] > ╭─[ 228.63ms - stdout ]────────────────────────────────────────────────────────╮
00:03:50 #16996 [verbose] > │ () │
00:03:50 #16997 [verbose] > │ │
00:03:50 #16998 [verbose] > │ │
00:03:50 #16999 [verbose] > ╰──────────────────────────────────────────────────────────────────────────────╯
00:03:50 #17000 [verbose] >
00:03:50 #17001 [verbose] > ── markdown ────────────────────────────────────────────────────────────────────
00:03:50 #17002 [verbose] > ╭──────────────────────────────────────────────────────────────────────────────╮
00:03:50 #17003 [verbose] > │ ## include_str │
00:03:50 #17004 [verbose] > ╰──────────────────────────────────────────────────────────────────────────────╯
00:03:50 #17005 [verbose] >
00:03:50 #17006 [verbose] > ── spiral ──────────────────────────────────────────────────────────────────────
00:03:50 #17007 [verbose] > inl include_str (path : string) : rust.ref' str =
00:03:50 #17008 [verbose] > !\($'"include_str\!(\\\"" + !path + "\\\")"')
00:03:50 #17009 [verbose] > Building c:\home\git\polyglot\target\polyglot\spiral_eval\packages\24d28215aa5cc5624955ef9aeea93c055ece271333c87297af651deff50037f8\main.spi
00:03:50 #17010 [verbose] >
00:03:50 #17011 [verbose] > ╭─[ 252.12ms - stdout ]────────────────────────────────────────────────────────╮
00:03:50 #17012 [verbose] > │ () │
00:03:50 #17013 [verbose] > │ │
00:03:50 #17014 [verbose] > │ │
00:03:50 #17015 [verbose] > ╰──────────────────────────────────────────────────────────────────────────────╯
00:03:50 #17016 [verbose] >
00:03:50 #17017 [verbose] > ── markdown ────────────────────────────────────────────────────────────────────
00:03:50 #17018 [verbose] > ╭──────────────────────────────────────────────────────────────────────────────╮
00:03:50 #17019 [verbose] > │ ## as_str │
00:03:50 #17020 [verbose] > ╰──────────────────────────────────────────────────────────────────────────────╯
00:03:50 #17021 [verbose] >
00:03:50 #17022 [verbose] > ── spiral ──────────────────────────────────────────────────────────────────────
00:03:50 #17023 [verbose] > inl as_str (s : string) : rust.ref' str =
00:03:50 #17024 [verbose] > !\\(s, $'"fable_library_rust::String_::LrcStr::as_str(&$0)"')
00:03:50 #17025 [verbose] > Building c:\home\git\polyglot\target\polyglot\spiral_eval\packages\82877c7a6cb9acbc3c69363a603aead20a2883eac10dec5bf531ba8ac6c879a8\main.spi
00:03:50 #17026 [verbose] >
00:03:50 #17027 [verbose] > ╭─[ 223.33ms - stdout ]────────────────────────────────────────────────────────╮
00:03:50 #17028 [verbose] > │ () │
00:03:50 #17029 [verbose] > │ │
00:03:50 #17030 [verbose] > │ │
00:03:50 #17031 [verbose] > ╰──────────────────────────────────────────────────────────────────────────────╯
00:03:50 #17032 [verbose] >
00:03:50 #17033 [verbose] > ── markdown ────────────────────────────────────────────────────────────────────
00:03:50 #17034 [verbose] > ╭──────────────────────────────────────────────────────────────────────────────╮
00:03:50 #17035 [verbose] > │ ## as_os_ref │
00:03:50 #17036 [verbose] > ╰──────────────────────────────────────────────────────────────────────────────╯
00:03:50 #17037 [verbose] >
00:03:50 #17038 [verbose] > ── spiral ──────────────────────────────────────────────────────────────────────
00:03:50 #17039 [verbose] > inl as_os_ref (s : os_string) : rust.ref' os_str =
00:03:50 #17040 [verbose] > !\\(s, $'"$0.as_ref()"')
00:03:51 #17041 [verbose] > Building c:\home\git\polyglot\target\polyglot\spiral_eval\packages\91f0604c39d66c6a5fa5fab3699de9905fdc86c9566a37486d9be3c45fcb520f\main.spi
00:03:51 #17042 [verbose] >
00:03:51 #17043 [verbose] > ╭─[ 231.66ms - stdout ]────────────────────────────────────────────────────────╮
00:03:51 #17044 [verbose] > │ () │
00:03:51 #17045 [verbose] > │ │
00:03:51 #17046 [verbose] > │ │
00:03:51 #17047 [verbose] > ╰──────────────────────────────────────────────────────────────────────────────╯
00:03:51 #17048 [verbose] >
00:03:51 #17049 [verbose] > ── markdown ────────────────────────────────────────────────────────────────────
00:03:51 #17050 [verbose] > ╭──────────────────────────────────────────────────────────────────────────────╮
00:03:51 #17051 [verbose] > │ ## to_os_string │
00:03:51 #17052 [verbose] > ╰──────────────────────────────────────────────────────────────────────────────╯
00:03:51 #17053 [verbose] >
00:03:51 #17054 [verbose] > ── spiral ──────────────────────────────────────────────────────────────────────
00:03:51 #17055 [verbose] > inl to_os_string (s : rust.ref' os_str) : os_string =
00:03:51 #17056 [verbose] > !\\(s, $'"$0.to_os_string()"')
00:03:51 #17057 [verbose] > Building c:\home\git\polyglot\target\polyglot\spiral_eval\packages\2e98d02eab7bd7a2165a98d5d55f8529cab473f0959a02889cb64b1df87ad921\main.spi
00:03:51 #17058 [verbose] >
00:03:51 #17059 [verbose] > ╭─[ 257.82ms - stdout ]────────────────────────────────────────────────────────╮
00:03:51 #17060 [verbose] > │ () │
00:03:51 #17061 [verbose] > │ │
00:03:51 #17062 [verbose] > │ │
00:03:51 #17063 [verbose] > ╰──────────────────────────────────────────────────────────────────────────────╯
00:03:51 #17064 [verbose] >
00:03:51 #17065 [verbose] > ── markdown ────────────────────────────────────────────────────────────────────
00:03:51 #17066 [verbose] > ╭──────────────────────────────────────────────────────────────────────────────╮
00:03:51 #17067 [verbose] > │ ## os_to_str │
00:03:51 #17068 [verbose] > ╰──────────────────────────────────────────────────────────────────────────────╯
00:03:51 #17069 [verbose] >
00:03:51 #17070 [verbose] > ── spiral ──────────────────────────────────────────────────────────────────────
00:03:51 #17071 [verbose] > inl os_to_str (s : os_string) : optionm'.option' (rust.ref' str) =
00:03:51 #17072 [verbose] > !\\(s, $'"$0.to_str()"')
00:03:51 #17073 [verbose] > Building c:\home\git\polyglot\target\polyglot\spiral_eval\packages\b0047ffdc5857d5799795bf49528303f7288d6c0984064b245cd2114a01d1628\main.spi
00:03:51 #17074 [verbose] >
00:03:51 #17075 [verbose] > ╭─[ 216.62ms - stdout ]────────────────────────────────────────────────────────╮
00:03:51 #17076 [verbose] > │ () │
00:03:51 #17077 [verbose] > │ │
00:03:51 #17078 [verbose] > │ │
00:03:51 #17079 [verbose] > ╰──────────────────────────────────────────────────────────────────────────────╯
00:03:51 #17080 [verbose] >
00:03:51 #17081 [verbose] > ── markdown ────────────────────────────────────────────────────────────────────
00:03:51 #17082 [verbose] > ╭──────────────────────────────────────────────────────────────────────────────╮
00:03:51 #17083 [verbose] > │ ## from_std_string │
00:03:51 #17084 [verbose] > ╰──────────────────────────────────────────────────────────────────────────────╯
00:03:51 #17085 [verbose] >
00:03:51 #17086 [verbose] > ── spiral ──────────────────────────────────────────────────────────────────────
00:03:51 #17087 [verbose] > inl from_std_string (str : std_string) : string =
00:03:51 #17088 [verbose] > !\\(str, $'"fable_library_rust::String_::fromString($0)"')
00:03:51 #17089 [verbose] > Building c:\home\git\polyglot\target\polyglot\spiral_eval\packages\90e10d371112167211ebbcd8c609d313a7eddf4b6a2e60fae926bde6711c0675\main.spi
00:03:51 #17090 [verbose] >
00:03:51 #17091 [verbose] > ╭─[ 241.58ms - stdout ]────────────────────────────────────────────────────────╮
00:03:51 #17092 [verbose] > │ () │
00:03:51 #17093 [verbose] > │ │
00:03:51 #17094 [verbose] > │ │
00:03:51 #17095 [verbose] > ╰──────────────────────────────────────────────────────────────────────────────╯
00:03:51 #17096 [verbose] >
00:03:51 #17097 [verbose] > ── markdown ────────────────────────────────────────────────────────────────────
00:03:51 #17098 [verbose] > ╭──────────────────────────────────────────────────────────────────────────────╮
00:03:51 #17099 [verbose] > │ ## ref_to_std_string │
00:03:51 #17100 [verbose] > ╰──────────────────────────────────────────────────────────────────────────────╯
00:03:51 #17101 [verbose] >
00:03:51 #17102 [verbose] > ── spiral ──────────────────────────────────────────────────────────────────────
00:03:51 #17103 [verbose] > inl ref_to_std_string (str : rust.ref' str) : std_string =
00:03:51 #17104 [verbose] > !\\(str, $'"String::from($0)"')
00:03:52 #17105 [verbose] > Building c:\home\git\polyglot\target\polyglot\spiral_eval\packages\ad5feec77f8dae019dd4123f2fafeb2d07825753d34930694bfff4cd21d57883\main.spi
00:03:52 #17106 [verbose] >
00:03:52 #17107 [verbose] > ╭─[ 236.39ms - stdout ]────────────────────────────────────────────────────────╮
00:03:52 #17108 [verbose] > │ () │
00:03:52 #17109 [verbose] > │ │
00:03:52 #17110 [verbose] > │ │
00:03:52 #17111 [verbose] > ╰──────────────────────────────────────────────────────────────────────────────╯
00:03:52 #17112 [verbose] >
00:03:52 #17113 [verbose] > ── markdown ────────────────────────────────────────────────────────────────────
00:03:52 #17114 [verbose] > ╭──────────────────────────────────────────────────────────────────────────────╮
00:03:52 #17115 [verbose] > │ ## to_std_string │
00:03:52 #17116 [verbose] > ╰──────────────────────────────────────────────────────────────────────────────╯
00:03:52 #17117 [verbose] >
00:03:52 #17118 [verbose] > ── spiral ──────────────────────────────────────────────────────────────────────
00:03:52 #17119 [verbose] > inl to_std_string (s : string) : std_string =
00:03:52 #17120 [verbose] > inl s = join s
00:03:52 #17121 [verbose] > s |> as_str |> ref_to_std_string
00:03:52 #17122 [verbose] > Building c:\home\git\polyglot\target\polyglot\spiral_eval\packages\a0e4879b9415be46bc12783771e09b2ff33829fbb82b2e1579bee54ae498f3f1\main.spi
00:03:52 #17123 [verbose] >
00:03:52 #17124 [verbose] > ╭─[ 275.62ms - stdout ]────────────────────────────────────────────────────────╮
00:03:52 #17125 [verbose] > │ () │
00:03:52 #17126 [verbose] > │ │
00:03:52 #17127 [verbose] > │ │
00:03:52 #17128 [verbose] > ╰──────────────────────────────────────────────────────────────────────────────╯
00:03:52 #17129 [verbose] >
00:03:52 #17130 [verbose] > ── markdown ────────────────────────────────────────────────────────────────────
00:03:52 #17131 [verbose] > ╭──────────────────────────────────────────────────────────────────────────────╮
00:03:52 #17132 [verbose] > │ ## as_str_std │
00:03:52 #17133 [verbose] > ╰──────────────────────────────────────────────────────────────────────────────╯
00:03:52 #17134 [verbose] >
00:03:52 #17135 [verbose] > ── spiral ──────────────────────────────────────────────────────────────────────
00:03:52 #17136 [verbose] > inl as_str_std (s : std_string) : rust.ref' str =
00:03:52 #17137 [verbose] > inl s = join s
00:03:52 #17138 [verbose] > !\($'"!s.as_str()"')
00:03:52 #17139 [verbose] > Building c:\home\git\polyglot\target\polyglot\spiral_eval\packages\05fe9f4ff35bda48bc066c435caed26f645bc4d0b37c908a06af736bf4da0a5b\main.spi
00:03:52 #17140 [verbose] >
00:03:52 #17141 [verbose] > ╭─[ 237.09ms - stdout ]────────────────────────────────────────────────────────╮
00:03:52 #17142 [verbose] > │ () │
00:03:52 #17143 [verbose] > │ │
00:03:52 #17144 [verbose] > │ │
00:03:52 #17145 [verbose] > ╰──────────────────────────────────────────────────────────────────────────────╯
00:03:52 #17146 [verbose] >
00:03:52 #17147 [verbose] > ── markdown ────────────────────────────────────────────────────────────────────
00:03:52 #17148 [verbose] > ╭──────────────────────────────────────────────────────────────────────────────╮
00:03:52 #17149 [verbose] > │ ## into_boxed_str │
00:03:52 #17150 [verbose] > ╰──────────────────────────────────────────────────────────────────────────────╯
00:03:52 #17151 [verbose] >
00:03:52 #17152 [verbose] > ── spiral ──────────────────────────────────────────────────────────────────────
00:03:52 #17153 [verbose] > inl into_boxed_str (s : std_string) : rust.box str =
00:03:52 #17154 [verbose] > !\($'"!s.into_boxed_str()"')
00:03:52 #17155 [verbose] > Building c:\home\git\polyglot\target\polyglot\spiral_eval\packages\2cae40a55a0d6d5652bb680f433d5699e9939ef0a477e232b00b345d29fd9c8a\main.spi
00:03:52 #17156 [verbose] >
00:03:52 #17157 [verbose] > ╭─[ 220.49ms - stdout ]────────────────────────────────────────────────────────╮
00:03:52 #17158 [verbose] > │ () │
00:03:52 #17159 [verbose] > │ │
00:03:52 #17160 [verbose] > │ │
00:03:52 #17161 [verbose] > ╰──────────────────────────────────────────────────────────────────────────────╯
00:03:52 #17162 [verbose] >
00:03:52 #17163 [verbose] > ── markdown ────────────────────────────────────────────────────────────────────
00:03:52 #17164 [verbose] > ╭──────────────────────────────────────────────────────────────────────────────╮
00:03:52 #17165 [verbose] > │ ## format' │
00:03:52 #17166 [verbose] > ╰──────────────────────────────────────────────────────────────────────────────╯
00:03:52 #17167 [verbose] >
00:03:52 #17168 [verbose] > ── spiral ──────────────────────────────────────────────────────────────────────
00:03:52 #17169 [verbose] > inl format' x : std_string =
00:03:52 #17170 [verbose] > !\\(x, $'@@$"format\!(""{{}}"", $0)"')
00:03:53 #17171 [verbose] > Building c:\home\git\polyglot\target\polyglot\spiral_eval\packages\52bbb4e50596d288957974098a7e93727167b1a4d215510cd9158237b1cafe03\main.spi
00:03:53 #17172 [verbose] >
00:03:53 #17173 [verbose] > ╭─[ 226.44ms - stdout ]────────────────────────────────────────────────────────╮
00:03:53 #17174 [verbose] > │ () │
00:03:53 #17175 [verbose] > │ │
00:03:53 #17176 [verbose] > │ │
00:03:53 #17177 [verbose] > ╰──────────────────────────────────────────────────────────────────────────────╯
00:03:53 #17178 [verbose] >
00:03:53 #17179 [verbose] > ── markdown ────────────────────────────────────────────────────────────────────
00:03:53 #17180 [verbose] > ╭──────────────────────────────────────────────────────────────────────────────╮
00:03:53 #17181 [verbose] > │ ## format_debug │
00:03:53 #17182 [verbose] > ╰──────────────────────────────────────────────────────────────────────────────╯
00:03:53 #17183 [verbose] >
00:03:53 #17184 [verbose] > ── spiral ──────────────────────────────────────────────────────────────────────
00:03:53 #17185 [verbose] > inl format_debug x : string =
00:03:53 #17186 [verbose] > $'$"%A{!x}"'
00:03:53 #17187 [verbose] > Building c:\home\git\polyglot\target\polyglot\spiral_eval\packages\ecdbb057564d09c1cf0c7f86b6338b883cbbfd744a92f6f319ce0d4b7133d006\main.spi
00:03:53 #17188 [verbose] >
00:03:53 #17189 [verbose] > ╭─[ 252.93ms - stdout ]────────────────────────────────────────────────────────╮
00:03:53 #17190 [verbose] > │ () │
00:03:53 #17191 [verbose] > │ │
00:03:53 #17192 [verbose] > │ │
00:03:53 #17193 [verbose] > ╰──────────────────────────────────────────────────────────────────────────────╯
00:03:53 #17194 [verbose] >
00:03:53 #17195 [verbose] > ── markdown ────────────────────────────────────────────────────────────────────
00:03:53 #17196 [verbose] > ╭──────────────────────────────────────────────────────────────────────────────╮
00:03:53 #17197 [verbose] > │ ## format_debug' │
00:03:53 #17198 [verbose] > ╰──────────────────────────────────────────────────────────────────────────────╯
00:03:53 #17199 [verbose] >
00:03:53 #17200 [verbose] > ── spiral ──────────────────────────────────────────────────────────────────────
00:03:53 #17201 [verbose] > inl format_debug' x : std_string =
00:03:53 #17202 [verbose] > !\\(x, $'@@$"format\!(""{{:?}}"", $0)"')
00:03:53 #17203 [verbose] > Building c:\home\git\polyglot\target\polyglot\spiral_eval\packages\6386583745f72ff636a322c186aa0693b3fa7e0f4a1d2b1461c271219e3935eb\main.spi
00:03:53 #17204 [verbose] >
00:03:53 #17205 [verbose] > ╭─[ 251.92ms - stdout ]────────────────────────────────────────────────────────╮
00:03:53 #17206 [verbose] > │ () │
00:03:53 #17207 [verbose] > │ │
00:03:53 #17208 [verbose] > │ │
00:03:53 #17209 [verbose] > ╰──────────────────────────────────────────────────────────────────────────────╯
00:03:53 #17210 [verbose] >
00:03:53 #17211 [verbose] > ── markdown ────────────────────────────────────────────────────────────────────
00:03:53 #17212 [verbose] > ╭──────────────────────────────────────────────────────────────────────────────╮
00:03:53 #17213 [verbose] > │ ## format_pretty' │
00:03:53 #17214 [verbose] > ╰──────────────────────────────────────────────────────────────────────────────╯
00:03:53 #17215 [verbose] >
00:03:53 #17216 [verbose] > ── spiral ──────────────────────────────────────────────────────────────────────
00:03:53 #17217 [verbose] > inl format_pretty' x : std_string =
00:03:53 #17218 [verbose] > !\\(x, $'@@$"format\!(""{{:#?}}"", $0)"')
00:03:53 #17219 [verbose] > Building c:\home\git\polyglot\target\polyglot\spiral_eval\packages\15b59bf80259a517fc536f2e614d8db51cf4916969d0cb69b2a3d74500c956ef\main.spi
00:03:53 #17220 [verbose] >
00:03:53 #17221 [verbose] > ╭─[ 195.03ms - stdout ]────────────────────────────────────────────────────────╮
00:03:53 #17222 [verbose] > │ () │
00:03:53 #17223 [verbose] > │ │
00:03:53 #17224 [verbose] > │ │
00:03:53 #17225 [verbose] > ╰──────────────────────────────────────────────────────────────────────────────╯
00:03:53 #17226 [verbose] >
00:03:53 #17227 [verbose] > ── markdown ────────────────────────────────────────────────────────────────────
00:03:53 #17228 [verbose] > ╭──────────────────────────────────────────────────────────────────────────────╮
00:03:53 #17229 [verbose] > │ ## format_exception │
00:03:53 #17230 [verbose] > ╰──────────────────────────────────────────────────────────────────────────────╯
00:03:53 #17231 [verbose] >
00:03:53 #17232 [verbose] > ── spiral ──────────────────────────────────────────────────────────────────────
00:03:53 #17233 [verbose] > inl format_exception (ex : exn) : string =
00:03:53 #17234 [verbose] > run_target function
00:03:53 #17235 [verbose] > | Fsharp (Native) => fun () => $'$"{!ex.GetType ()}: {!ex.Message}"'
00:03:53 #17236 [verbose] > | _ => fun () => ex |> format_debug
00:03:54 #17237 [verbose] > Building c:\home\git\polyglot\target\polyglot\spiral_eval\packages\a204692ac6842e6ee979312f24021717fe4701ff912e1dfdb2eb6bb3200f93ef\main.spi
00:03:54 #17238 [verbose] >
00:03:54 #17239 [verbose] > ╭─[ 215.73ms - stdout ]────────────────────────────────────────────────────────╮
00:03:54 #17240 [verbose] > │ () │
00:03:54 #17241 [verbose] > │ │
00:03:54 #17242 [verbose] > │ │
00:03:54 #17243 [verbose] > ╰──────────────────────────────────────────────────────────────────────────────╯
00:03:54 #17244 [verbose] >
00:03:54 #17245 [verbose] > ── spiral ──────────────────────────────────────────────────────────────────────
00:03:54 #17246 [verbose] > // // test
00:03:54 #17247 [verbose] >
00:03:54 #17248 [verbose] > fun () => failwith "test"
00:03:54 #17249 [verbose] > |> _throws
00:03:54 #17250 [verbose] > |> optionm.map sm'.format_exception
00:03:54 #17251 [verbose] > |> _assert_eq (Some "System.Exception: test")
00:03:54 #17252 [verbose] > Building c:\home\git\polyglot\target\polyglot\spiral_eval\packages\ff03c78b3555ff843f6c90fdc41b3b1c54d1236aa939ef465e01b342dcfd6d3d\main.spi
00:03:55 #17253 [verbose] >
00:03:55 #17254 [verbose] > ╭─[ 1.36s - stdout ]───────────────────────────────────────────────────────────╮
00:03:55 #17255 [verbose] > │ type [<Struct>] US0 = │
00:03:55 #17256 [verbose] > │ | US0_0 of f0_0 : exn │
00:03:55 #17257 [verbose] > │ | US0_1 │
00:03:55 #17258 [verbose] > │ and [<Struct>] US1 = │
00:03:55 #17259 [verbose] > │ | US1_0 of f0_0 : string │
00:03:55 #17260 [verbose] > │ | US1_1 │
00:03:55 #17261 [verbose] > │ let rec closure0 () () : unit = │
00:03:55 #17262 [verbose] > │ failwith<unit> "test" │
00:03:55 #17263 [verbose] > │ and closure1 () (v0 : exn) : US0 = │
00:03:55 #17264 [verbose] > │ US0_0(v0) │
00:03:55 #17265 [verbose] > │ and method1 (v0 : bool) : bool = │
00:03:55 #17266 [verbose] > │ v0 │
00:03:55 #17267 [verbose] > │ and method0 () : unit = │
00:03:55 #17268 [verbose] > │ let v0 : (unit -> unit) = closure0() │
00:03:55 #17269 [verbose] > │ let v1 : US0 = US0_1 │
00:03:55 #17270 [verbose] > │ let v2 : (exn -> US0) = closure1() │
00:03:55 #17271 [verbose] > │ let v3 : US0 = try v0 (); v1 with ex -> ex |> v2 │
00:03:55 #17272 [verbose] > │ let v16 : US1 = │
00:03:55 #17273 [verbose] > │ match v3 with │
00:03:55 #17274 [verbose] > │ | US0_1 -> (* None *) │
00:03:55 #17275 [verbose] > │ US1_1 │
00:03:55 #17276 [verbose] > │ | US0_0(v4) -> (* Some *) │
00:03:55 #17277 [verbose] > │ let v5 : string option = None │
00:03:55 #17278 [verbose] > │ let mutable _v5 = v5 │
00:03:55 #17279 [verbose] > │ #if FABLE_COMPILER_RUST && !WASM && !CONTRACT │
00:03:55 #17280 [verbose] > │ let v6 : string = $"%A{v4}" │
00:03:55 #17281 [verbose] > │ v6 │
00:03:55 #17282 [verbose] > │ #endif │
00:03:55 #17283 [verbose] > │ #if FABLE_COMPILER_RUST && WASM │
00:03:55 #17284 [verbose] > │ let v7 : string = $"%A{v4}" │
00:03:55 #17285 [verbose] > │ v7 │
00:03:55 #17286 [verbose] > │ #endif │
00:03:55 #17287 [verbose] > │ #if FABLE_COMPILER_RUST && CONTRACT │
00:03:55 #17288 [verbose] > │ let v8 : string = $"%A{v4}" │
00:03:55 #17289 [verbose] > │ v8 │
00:03:55 #17290 [verbose] > │ #endif │
00:03:55 #17291 [verbose] > │ #if !FABLE_COMPILER && !FABLE_COMPILER_RUST && │
00:03:55 #17292 [verbose] > │ !FABLE_COMPILER_TYPESCRIPT && !WASM && !CONTRACT │
00:03:55 #17293 [verbose] > │ let v9 : string = $"{v4.GetType ()}: {v4.Message}" │
00:03:55 #17294 [verbose] > │ v9 │
00:03:55 #17295 [verbose] > │ #endif │
00:03:55 #17296 [verbose] > │ #if FABLE_COMPILER_TYPESCRIPT │
00:03:55 #17297 [verbose] > │ let v10 : string = $"%A{v4}" │
00:03:55 #17298 [verbose] > │ v10 │
00:03:55 #17299 [verbose] > │ #endif │
00:03:55 #17300 [verbose] > │ #if FABLE_COMPILER_PYTHON || FABLE_COMPILER_PHP || │
00:03:55 #17301 [verbose] > │ FABLE_COMPILER_DART │
00:03:55 #17302 [verbose] > │ let v11 : string = Unchecked.defaultof<string> │
00:03:55 #17303 [verbose] > │ v11 │
00:03:55 #17304 [verbose] > │ #endif │
00:03:55 #17305 [verbose] > │ |> fun x -> _v5 <- Some x │
00:03:55 #17306 [verbose] > │ let v12 : string = _v5.Value │
00:03:55 #17307 [verbose] > │ US1_0(v12) │
00:03:55 #17308 [verbose] > │ let v17 : string = $"%A{v16}" │
00:03:55 #17309 [verbose] > │ System.Console.WriteLine v17 │
00:03:55 #17310 [verbose] > │ let v22 : bool = │
00:03:55 #17311 [verbose] > │ match v16 with │
00:03:55 #17312 [verbose] > │ | US1_0(v20) -> (* Some *) │
00:03:55 #17313 [verbose] > │ let v21 : bool = v20 = "System.Exception: test" │
00:03:55 #17314 [verbose] > │ v21 │
00:03:55 #17315 [verbose] > │ | _ -> │
00:03:55 #17316 [verbose] > │ false │
00:03:55 #17317 [verbose] > │ let v24 : bool = │
00:03:55 #17318 [verbose] > │ if v22 then │
00:03:55 #17319 [verbose] > │ true │
00:03:55 #17320 [verbose] > │ else │
00:03:55 #17321 [verbose] > │ method1(v22) │
00:03:55 #17322 [verbose] > │ let v25 : string = "System.Exception: test" │
00:03:55 #17323 [verbose] > │ let v26 : US1 = US1_0(v25) │
00:03:55 #17324 [verbose] > │ let v27 : string = $"__expect / actual: %A{v16} / expected: %A{v26}" │
00:03:55 #17325 [verbose] > │ let v28 : bool = v24 = false │
00:03:55 #17326 [verbose] > │ if v28 then │
00:03:55 #17327 [verbose] > │ failwith<unit> v27 │
00:03:55 #17328 [verbose] > │ method0() │
00:03:55 #17329 [verbose] > │ │
00:03:55 #17330 [verbose] > │ US1_0 "System.Exception: test" │
00:03:55 #17331 [verbose] > │ │
00:03:55 #17332 [verbose] > ╰──────────────────────────────────────────────────────────────────────────────╯
00:03:55 #17333 [verbose] >
00:03:55 #17334 [verbose] > ── markdown ────────────────────────────────────────────────────────────────────
00:03:55 #17335 [verbose] > ╭──────────────────────────────────────────────────────────────────────────────╮
00:03:55 #17336 [verbose] > │ ## obj_to_string │
00:03:55 #17337 [verbose] > ╰──────────────────────────────────────────────────────────────────────────────╯
00:03:55 #17338 [verbose] >
00:03:55 #17339 [verbose] > ── spiral ──────────────────────────────────────────────────────────────────────
00:03:55 #17340 [verbose] > inl obj_to_string x : string =
00:03:55 #17341 [verbose] > x |> $'_.ToString()'
00:03:55 #17342 [verbose] > Building c:\home\git\polyglot\target\polyglot\spiral_eval\packages\1d40f6babd2246a4f347ef0de2160d318bdbbe5610d8b4ae3834981008d3612e\main.spi
00:03:55 #17343 [verbose] >
00:03:55 #17344 [verbose] > ╭─[ 233.75ms - stdout ]────────────────────────────────────────────────────────╮
00:03:55 #17345 [verbose] > │ () │
00:03:55 #17346 [verbose] > │ │
00:03:55 #17347 [verbose] > │ │
00:03:55 #17348 [verbose] > ╰──────────────────────────────────────────────────────────────────────────────╯
00:03:55 #17349 [verbose] >
00:03:55 #17350 [verbose] > ── markdown ────────────────────────────────────────────────────────────────────
00:03:55 #17351 [verbose] > ╭──────────────────────────────────────────────────────────────────────────────╮
00:03:55 #17352 [verbose] > │ ## to_string any │
00:03:55 #17353 [verbose] > ╰──────────────────────────────────────────────────────────────────────────────╯
00:03:55 #17354 [verbose] >
00:03:55 #17355 [verbose] > ── spiral ──────────────────────────────────────────────────────────────────────
00:03:55 #17356 [verbose] > instance to_string any =
00:03:55 #17357 [verbose] > obj_to_string
00:03:55 #17358 [verbose] > Building c:\home\git\polyglot\target\polyglot\spiral_eval\packages\eee856275dcff3353b5a99d4c09d017ff02889fc198b182d261f21ce67415cc4\main.spi
00:03:55 #17359 [verbose] >
00:03:55 #17360 [verbose] > ╭─[ 223.30ms - stdout ]────────────────────────────────────────────────────────╮
00:03:55 #17361 [verbose] > │ () │
00:03:55 #17362 [verbose] > │ │
00:03:55 #17363 [verbose] > │ │
00:03:55 #17364 [verbose] > ╰──────────────────────────────────────────────────────────────────────────────╯
00:03:55 #17365 [verbose] >
00:03:55 #17366 [verbose] > ── markdown ────────────────────────────────────────────────────────────────────
00:03:55 #17367 [verbose] > ╭──────────────────────────────────────────────────────────────────────────────╮
00:03:55 #17368 [verbose] > │ ## to_string result t u │
00:03:55 #17369 [verbose] > ╰──────────────────────────────────────────────────────────────────────────────╯
00:03:55 #17370 [verbose] >
00:03:55 #17371 [verbose] > ── spiral ──────────────────────────────────────────────────────────────────────
00:03:55 #17372 [verbose] > instance to_string result t u = fun x =>
00:03:55 #17373 [verbose] > real
00:03:55 #17374 [verbose] > open rust
00:03:55 #17375 [verbose] > typecase (t * u) with
00:03:55 #17376 [verbose] > | string * string =>
00:03:55 #17377 [verbose] > match x with
00:03:55 #17378 [verbose] > | Ok x => x
00:03:55 #17379 [verbose] > | Error x => $'"Error: " + !x + ""' : string
00:03:55 #17380 [verbose] > | std_string * std_string =>
00:03:55 #17381 [verbose] > match x with
00:03:55 #17382 [verbose] > | Ok x => from_std_string x
00:03:55 #17383 [verbose] > | Error x => $'"Error: " + string !x + ""' : string
00:03:55 #17384 [verbose] > | _ => obj_to_string `u x
00:03:56 #17385 [verbose] > Building c:\home\git\polyglot\target\polyglot\spiral_eval\packages\60dff7d1efec23883f40634f2ece2388a5bf144b288b9236f76978dd763423a9\main.spi
00:03:56 #17386 [verbose] >
00:03:56 #17387 [verbose] > ╭─[ 217.67ms - stdout ]────────────────────────────────────────────────────────╮
00:03:56 #17388 [verbose] > │ () │
00:03:56 #17389 [verbose] > │ │
00:03:56 #17390 [verbose] > │ │
00:03:56 #17391 [verbose] > ╰──────────────────────────────────────────────────────────────────────────────╯
00:03:56 #17392 [verbose] >
00:03:56 #17393 [verbose] > ── markdown ────────────────────────────────────────────────────────────────────
00:03:56 #17394 [verbose] > ╭──────────────────────────────────────────────────────────────────────────────╮
00:03:56 #17395 [verbose] > │ ## serialize │
00:03:56 #17396 [verbose] > ╰──────────────────────────────────────────────────────────────────────────────╯
00:03:56 #17397 [verbose] >
00:03:56 #17398 [verbose] > ── spiral ──────────────────────────────────────────────────────────────────────
00:03:56 #17399 [verbose] > inl serialize forall t. (x : t) : resultm.result' std_string json_error =
00:03:56 #17400 [verbose] > !\($'"serde_json::to_string(&!x)"')
00:03:56 #17401 [verbose] > Building c:\home\git\polyglot\target\polyglot\spiral_eval\packages\a929a8baa41c764897aa78de16a51338c7a4f923b910bdf9c3c15d12ba1b7a74\main.spi
00:03:56 #17402 [verbose] >
00:03:56 #17403 [verbose] > ╭─[ 206.70ms - stdout ]────────────────────────────────────────────────────────╮
00:03:56 #17404 [verbose] > │ () │
00:03:56 #17405 [verbose] > │ │
00:03:56 #17406 [verbose] > │ │
00:03:56 #17407 [verbose] > ╰──────────────────────────────────────────────────────────────────────────────╯
00:03:56 #17408 [verbose] >
00:03:56 #17409 [verbose] > ── markdown ────────────────────────────────────────────────────────────────────
00:03:56 #17410 [verbose] > ╭──────────────────────────────────────────────────────────────────────────────╮
00:03:56 #17411 [verbose] > │ ## deserialize │
00:03:56 #17412 [verbose] > ╰──────────────────────────────────────────────────────────────────────────────╯
00:03:56 #17413 [verbose] >
00:03:56 #17414 [verbose] > ── spiral ──────────────────────────────────────────────────────────────────────
00:03:56 #17415 [verbose] > inl deserialize forall t. (json : string) : resultm.result' t std_string =
00:03:56 #17416 [verbose] > inl json = join json
00:03:56 #17417 [verbose] > inl json = json |> as_str
00:03:56 #17418 [verbose] > !\($'"serde_json::from_str(&!json)"')
00:03:56 #17419 [verbose] > |> resultm.map_error' fun (x : json_error) => x |> format'
00:03:56 #17420 [verbose] > Building c:\home\git\polyglot\target\polyglot\spiral_eval\packages\746c0fd294eb60d005e6a1342a3db3f185921a277103b0dc815d339d22af1234\main.spi
00:03:56 #17421 [verbose] >
00:03:56 #17422 [verbose] > ╭─[ 223.15ms - stdout ]────────────────────────────────────────────────────────╮
00:03:56 #17423 [verbose] > │ () │
00:03:56 #17424 [verbose] > │ │
00:03:56 #17425 [verbose] > │ │
00:03:56 #17426 [verbose] > ╰──────────────────────────────────────────────────────────────────────────────╯
00:03:56 #17427 [verbose] >
00:03:56 #17428 [verbose] > ── markdown ────────────────────────────────────────────────────────────────────
00:03:56 #17429 [verbose] > ╭──────────────────────────────────────────────────────────────────────────────╮
00:03:56 #17430 [verbose] > │ ## borsh_deserialize │
00:03:56 #17431 [verbose] > ╰──────────────────────────────────────────────────────────────────────────────╯
00:03:56 #17432 [verbose] >
00:03:56 #17433 [verbose] > ── spiral ──────────────────────────────────────────────────────────────────────
00:03:56 #17434 [verbose] > inl borsh_deserialize forall t. (data : array_base u8) : resultm.result' t
00:03:56 #17435 [verbose] > std_string =
00:03:56 #17436 [verbose] > inl data = data |> am'.as_slice
00:03:56 #17437 [verbose] > !\($'"let mut !data = !data"')
00:03:56 #17438 [verbose] > inl result = !\($'"borsh::BorshDeserialize::deserialize(&mut !data)"')
00:03:56 #17439 [verbose] > result
00:03:56 #17440 [verbose] > |> resultm.map_error' fun (x : borsh_io_error) => x |> format'
00:03:56 #17441 [verbose] > Building c:\home\git\polyglot\target\polyglot\spiral_eval\packages\da2443aadc80392f73e4c8f02e3ed75c5af79fe443c196ee63ce20b5af0c06fb\main.spi
00:03:56 #17442 [verbose] >
00:03:56 #17443 [verbose] > ╭─[ 243.60ms - stdout ]────────────────────────────────────────────────────────╮
00:03:56 #17444 [verbose] > │ () │
00:03:56 #17445 [verbose] > │ │
00:03:56 #17446 [verbose] > │ │
00:03:56 #17447 [verbose] > ╰──────────────────────────────────────────────────────────────────────────────╯
00:03:56 #17448 [verbose] >
00:03:56 #17449 [verbose] > ── markdown ────────────────────────────────────────────────────────────────────
00:03:56 #17450 [verbose] > ╭──────────────────────────────────────────────────────────────────────────────╮
00:03:56 #17451 [verbose] > │ ## deserialize_vec │
00:03:56 #17452 [verbose] > ╰──────────────────────────────────────────────────────────────────────────────╯
00:03:56 #17453 [verbose] >
00:03:56 #17454 [verbose] > ── spiral ──────────────────────────────────────────────────────────────────────
00:03:56 #17455 [verbose] > inl deserialize_vec (value : json_value) : resultm.result' (am'.vec u8)
00:03:56 #17456 [verbose] > std_string =
00:03:56 #17457 [verbose] > inl value = join value
00:03:56 #17458 [verbose] > !\($'"serde_json::from_value(!value)"')
00:03:56 #17459 [verbose] > |> resultm.map_error' fun (x : json_error) => x |> format'
00:03:57 #17460 [verbose] > Building c:\home\git\polyglot\target\polyglot\spiral_eval\packages\b19c8ac08f10b1125cf22be0daa3d720a7116e103fff120db7f4af82fdf03b70\main.spi
00:03:57 #17461 [verbose] >
00:03:57 #17462 [verbose] > ╭─[ 236.37ms - stdout ]────────────────────────────────────────────────────────╮
00:03:57 #17463 [verbose] > │ () │
00:03:57 #17464 [verbose] > │ │
00:03:57 #17465 [verbose] > │ │
00:03:57 #17466 [verbose] > ╰──────────────────────────────────────────────────────────────────────────────╯
00:03:57 #17467 [verbose] >
00:03:57 #17468 [verbose] > ── markdown ────────────────────────────────────────────────────────────────────
00:03:57 #17469 [verbose] > ╭──────────────────────────────────────────────────────────────────────────────╮
00:03:57 #17470 [verbose] > │ ## encode_uri_component │
00:03:57 #17471 [verbose] > ╰──────────────────────────────────────────────────────────────────────────────╯
00:03:57 #17472 [verbose] >
00:03:57 #17473 [verbose] > ── spiral ──────────────────────────────────────────────────────────────────────
00:03:57 #17474 [verbose] > inl encode_uri_component (s : std_string) : js_string =
00:03:57 #17475 [verbose] > !\($'"js_sys::encode_uri_component(&!s)"')
00:03:57 #17476 [verbose] > Building c:\home\git\polyglot\target\polyglot\spiral_eval\packages\15aa02801bef8af420ad7637663ae1a2d3aacdb8b51e7e5439ac028ad5db277f\main.spi
00:03:57 #17477 [verbose] >
00:03:57 #17478 [verbose] > ╭─[ 291.73ms - stdout ]────────────────────────────────────────────────────────╮
00:03:57 #17479 [verbose] > │ () │
00:03:57 #17480 [verbose] > │ │
00:03:57 #17481 [verbose] > │ │
00:03:57 #17482 [verbose] > ╰──────────────────────────────────────────────────────────────────────────────╯
00:03:57 #17483 [verbose] >
00:03:57 #17484 [verbose] > ── markdown ────────────────────────────────────────────────────────────────────
00:03:57 #17485 [verbose] > ╭──────────────────────────────────────────────────────────────────────────────╮
00:03:57 #17486 [verbose] > │ ## strip_prefix │
00:03:57 #17487 [verbose] > ╰──────────────────────────────────────────────────────────────────────────────╯
00:03:57 #17488 [verbose] >
00:03:57 #17489 [verbose] > ── spiral ──────────────────────────────────────────────────────────────────────
00:03:57 #17490 [verbose] > inl strip_prefix (prefix : char) (s : std_string) : optionm'.option' (rust.ref'
00:03:57 #17491 [verbose] > str) =
00:03:57 #17492 [verbose] > inl s = join s
00:03:57 #17493 [verbose] > !\($'"!s.strip_prefix(!prefix)"')
00:03:57 #17494 [verbose] > Building c:\home\git\polyglot\target\polyglot\spiral_eval\packages\3a031ed96bbf6201e0500b39740e526ab79fc637afd3ca1d8f4b6696d7d560ea\main.spi
00:03:57 #17495 [verbose] >
00:03:57 #17496 [verbose] > ╭─[ 246.67ms - stdout ]────────────────────────────────────────────────────────╮
00:03:57 #17497 [verbose] > │ () │
00:03:57 #17498 [verbose] > │ │
00:03:57 #17499 [verbose] > │ │
00:03:57 #17500 [verbose] > ╰──────────────────────────────────────────────────────────────────────────────╯
00:03:57 #17501 [verbose] >
00:03:57 #17502 [verbose] > ── markdown ────────────────────────────────────────────────────────────────────
00:03:57 #17503 [verbose] > ╭──────────────────────────────────────────────────────────────────────────────╮
00:03:57 #17504 [verbose] > │ ## base64_decode │
00:03:57 #17505 [verbose] > ╰──────────────────────────────────────────────────────────────────────────────╯
00:03:57 #17506 [verbose] >
00:03:57 #17507 [verbose] > ── spiral ──────────────────────────────────────────────────────────────────────
00:03:57 #17508 [verbose] > inl base64_decode (s : std_string) : result std_string std_string =
00:03:57 #17509 [verbose] > fun () =>
00:03:57 #17510 [verbose] > inl s = join s
00:03:57 #17511 [verbose] > inl bytes : resultm.result' (am'.vec u8) base64_decode_error =
00:03:57 #17512 [verbose] >
00:03:57 #17513 [verbose] > !\($'"base64::Engine::decode(&base64::engine::general_purpose::STANDARD, !s)"')
00:03:57 #17514 [verbose] > inl bytes =
00:03:57 #17515 [verbose] > bytes
00:03:57 #17516 [verbose] > |> resultm.map_error' format'
00:03:57 #17517 [verbose] > |> resultm.try'
00:03:57 #17518 [verbose] > inl result : resultm.result' std_string utf8_error =
00:03:57 #17519 [verbose] > !\($'"std::str::from_utf8(&!bytes).map(String::from)"')
00:03:57 #17520 [verbose] > result
00:03:57 #17521 [verbose] > |> resultm.map_error' format'
00:03:57 #17522 [verbose] > |> fun x =>
00:03:57 #17523 [verbose] > join x ()
00:03:57 #17524 [verbose] > |> resultm.unbox
00:03:57 #17525 [verbose] > Building c:\home\git\polyglot\target\polyglot\spiral_eval\packages\f630e8a784e106b66c71546ff2c4a5e8bac60c93da8e6760921ceb24424fed3d\main.spi
00:03:58 #17526 [verbose] >
00:03:58 #17527 [verbose] > ╭─[ 638.92ms - stdout ]────────────────────────────────────────────────────────╮
00:03:58 #17528 [verbose] > │ () │
00:03:58 #17529 [verbose] > │ │
00:03:58 #17530 [verbose] > │ │
00:03:58 #17531 [verbose] > ╰──────────────────────────────────────────────────────────────────────────────╯
00:03:58 #17532 [verbose] >
00:03:58 #17533 [verbose] > ── markdown ────────────────────────────────────────────────────────────────────
00:03:58 #17534 [verbose] > ╭──────────────────────────────────────────────────────────────────────────────╮
00:03:58 #17535 [verbose] > │ ## concat_array_trailing │
00:03:58 #17536 [verbose] > ╰──────────────────────────────────────────────────────────────────────────────╯
00:03:58 #17537 [verbose] >
00:03:58 #17538 [verbose] > ── spiral ──────────────────────────────────────────────────────────────────────
00:03:58 #17539 [verbose] > inl concat_array_trailing (separator : string) (input : a i32 string) =
00:03:58 #17540 [verbose] > ("", input)
00:03:58 #17541 [verbose] > ||> am.fold fun acc (x : string) =>
00:03:58 #17542 [verbose] > $'!acc + !x + !separator + ""'
00:03:58 #17543 [verbose] > Building c:\home\git\polyglot\target\polyglot\spiral_eval\packages\de84f091db17d992aec03f62297e2f905d98aa9914fc0cebc1cf43f5efb2a5c1\main.spi
00:03:58 #17544 [verbose] >
00:03:58 #17545 [verbose] > ╭─[ 231.99ms - stdout ]────────────────────────────────────────────────────────╮
00:03:58 #17546 [verbose] > │ () │
00:03:58 #17547 [verbose] > │ │
00:03:58 #17548 [verbose] > │ │
00:03:58 #17549 [verbose] > ╰──────────────────────────────────────────────────────────────────────────────╯
00:03:58 #17550 [verbose] >
00:03:58 #17551 [verbose] > ── spiral ──────────────────────────────────────────────────────────────────────
00:03:58 #17552 [verbose] > // // test
00:03:58 #17553 [verbose] > // // rust=
00:03:58 #17554 [verbose] >
00:03:58 #17555 [verbose] > ;[[
00:03:58 #17556 [verbose] > "1"
00:03:58 #17557 [verbose] > "2"
00:03:58 #17558 [verbose] > "3"
00:03:58 #17559 [verbose] > ]]
00:03:58 #17560 [verbose] > |> fun x =>
00:03:58 #17561 [verbose] > inl code = (a x : _ i32 _) |> concat_array_trailing "\n"
00:03:58 #17562 [verbose] > code
00:03:58 #17563 [verbose] > |> _assert_eq "1\n2\n3\n"
00:03:58 #17564 [verbose] > Building c:\home\git\polyglot\target\polyglot\spiral_eval\packages\02160c95342d4f91c26842568b0f5d466bb88cee56802338ae6f035d9f208e32\main.spi
00:04:04 #17565 [verbose] >
00:04:04 #17566 [verbose] > ╭─[ 5.49s - return value ]─────────────────────────────────────────────────────╮
00:04:04 #17567 [verbose] > │ .rs output: │
00:04:04 #17568 [verbose] > │ "1 │
00:04:04 #17569 [verbose] > │ 2 │
00:04:04 #17570 [verbose] > │ 3 │
00:04:04 #17571 [verbose] > │ " │
00:04:04 #17572 [verbose] > │ │
00:04:04 #17573 [verbose] > │ │
00:04:04 #17574 [verbose] > │ │
00:04:04 #17575 [verbose] > ╰──────────────────────────────────────────────────────────────────────────────╯
00:04:04 #17576 [verbose] >
00:04:04 #17577 [verbose] > ╭─[ 5.50s - stdout ]───────────────────────────────────────────────────────────╮
00:04:04 #17578 [verbose] > │ .fsx: │
00:04:04 #17579 [verbose] > │ type Mut0 = {mutable l0 : int32; mutable l1 : string} │
00:04:04 #17580 [verbose] > │ let rec method1 (v0 : int32, v1 : Mut0) : bool = │
00:04:04 #17581 [verbose] > │ let v2 : int32 = v1.l0 │
00:04:04 #17582 [verbose] > │ let v3 : bool = v2 < v0 │
00:04:04 #17583 [verbose] > │ v3 │
00:04:04 #17584 [verbose] > │ and method2 (v0 : bool) : bool = │
00:04:04 #17585 [verbose] > │ v0 │
00:04:04 #17586 [verbose] > │ and method0 () : unit = │
00:04:04 #17587 [verbose] > │ let v0 : string = "1" │
00:04:04 #17588 [verbose] > │ let v1 : string = "2" │
00:04:04 #17589 [verbose] > │ let v2 : string = "3" │
00:04:04 #17590 [verbose] > │ let v3 : (string []) = [|v0; v1; v2|] │
00:04:04 #17591 [verbose] > │ let v4 : int32 = v3.Length │
00:04:04 #17592 [verbose] > │ let v5 : string = "" │
00:04:04 #17593 [verbose] > │ let v6 : Mut0 = {l0 = 0; l1 = v5} : Mut0 │
00:04:04 #17594 [verbose] > │ while method1(v4, v6) do │
00:04:04 #17595 [verbose] > │ let v8 : int32 = v6.l0 │
00:04:04 #17596 [verbose] > │ let v9 : string = v6.l1 │
00:04:04 #17597 [verbose] > │ let v10 : string = v3.[int v8] │
00:04:04 #17598 [verbose] > │ let v11 : string = "\n" │
00:04:04 #17599 [verbose] > │ let v12 : string = v9 + v10 + v11 + "" │
00:04:04 #17600 [verbose] > │ let v13 : int32 = v8 + 1 │
00:04:04 #17601 [verbose] > │ v6.l0 <- v13 │
00:04:04 #17602 [verbose] > │ v6.l1 <- v12 │
00:04:04 #17603 [verbose] > │ () │
00:04:04 #17604 [verbose] > │ let v14 : string = v6.l1 │
00:04:04 #17605 [verbose] > │ let v15 : string = $"%A{v14}" │
00:04:04 #17606 [verbose] > │ System.Console.WriteLine v15 │
00:04:04 #17607 [verbose] > │ let v17 : bool = v14 = "1\n2\n3\n" │
00:04:04 #17608 [verbose] > │ let v19 : bool = │
00:04:04 #17609 [verbose] > │ if v17 then │
00:04:04 #17610 [verbose] > │ true │
00:04:04 #17611 [verbose] > │ else │
00:04:04 #17612 [verbose] > │ method2(v17) │
00:04:04 #17613 [verbose] > │ let v20 : string = "1\n2\n3\n" │
00:04:04 #17614 [verbose] > │ let v21 : string = $"__expect / actual: %A{v14} / expected: %A{v20}" │
00:04:04 #17615 [verbose] > │ let v22 : bool = v19 = false │
00:04:04 #17616 [verbose] > │ if v22 then │
00:04:04 #17617 [verbose] > │ failwith<unit> v21 │
00:04:04 #17618 [verbose] > │ method0() │
00:04:04 #17619 [verbose] > │ │
00:04:04 #17620 [verbose] > │ │
00:04:04 #17621 [verbose] > │ .rs: │
00:04:04 #17622 [verbose] > │ #![allow(dead_code,)] │
00:04:04 #17623 [verbose] > │ #![allow(non_camel_case_types,)] │
00:04:04 #17624 [verbose] > │ #![allow(non_snake_case,)] │
00:04:04 #17625 [verbose] > │ #![allow(non_upper_case_globals,)] │
00:04:04 #17626 [verbose] > │ #![allow(unreachable_code,)] │
00:04:04 #17627 [verbose] > │ #![allow(unused_attributes,)] │
00:04:04 #17628 [verbose] > │ #![allow(unused_imports,)] │
00:04:04 #17629 [verbose] > │ #![allow(unused_macros,)] │
00:04:04 #17630 [verbose] > │ #![allow(unused_parens,)] │
00:04:04 #17631 [verbose] > │ #![allow(unused_variables,)] │
00:04:04 #17632 [verbose] > │ mod module_ccfa04bf { │
00:04:04 #17633 [verbose] > │ pub mod Spiral_eval { │
00:04:04 #17634 [verbose] > │ use super::*; │
00:04:04 #17635 [verbose] > │ use fable_library_rust::Native_::LrcPtr; │
00:04:04 #17636 [verbose] > │ use fable_library_rust::Native_::MutCell; │
00:04:04 #17637 [verbose] > │ use fable_library_rust::Native_::on_startup; │
00:04:04 #17638 [verbose] > │ use fable_library_rust::NativeArray_::Array; │
00:04:04 #17639 [verbose] > │ use fable_library_rust::NativeArray_::count; │
00:04:04 #17640 [verbose] > │ use fable_library_rust::NativeArray_::new_array; │
00:04:04 #17641 [verbose] > │ use fable_library_rust::String_::append; │
00:04:04 #17642 [verbose] > │ use fable_library_rust::String_::printfn; │
00:04:04 #17643 [verbose] > │ use fable_library_rust::String_::sprintf; │
00:04:04 #17644 [verbose] > │ use fable_library_rust::String_::string; │
00:04:04 #17645 [verbose] > │ #[derive(Clone, Debug, Default, PartialEq, PartialOrd, Hash, Eq,)] │
00:04:04 #17646 [verbose] > │ pub struct Mut0 { │
00:04:04 #17647 [verbose] > │ pub l0: MutCell<i32>, │
00:04:04 #17648 [verbose] > │ pub l1: MutCell<string>, │
00:04:04 #17649 [verbose] > │ } │
00:04:04 #17650 [verbose] > │ impl core::fmt::Display for Spiral_eval::Mut0 { │
00:04:04 #17651 [verbose] > │ fn fmt(&self, f: &mut core::fmt::Formatter) -> core::fmt::Result │
00:04:04 #17652 [verbose] > │ { │
00:04:04 #17653 [verbose] > │ write!(f, "{}", core::any::type_name::<Self>()) │
00:04:04 #17654 [verbose] > │ } │
00:04:04 #17655 [verbose] > │ } │
00:04:04 #17656 [verbose] > │ pub fn method1(v0: i32, v1: LrcPtr<Spiral_eval::Mut0>) -> bool { │
00:04:04 #17657 [verbose] > │ v1.l0.get().clone() < v0 │
00:04:04 #17658 [verbose] > │ } │
00:04:04 #17659 [verbose] > │ pub fn method2(v0: bool) -> bool { v0 } │
00:04:04 #17660 [verbose] > │ pub fn method0() { │
00:04:04 #17661 [verbose] > │ let v3: Array<string> = │
00:04:04 #17662 [verbose] > │ new_array(&[string("1"), string("2"), string("3")]); │
00:04:04 #17663 [verbose] > │ let v4: i32 = count(v3.clone()); │
00:04:04 #17664 [verbose] > │ let v6: LrcPtr<Spiral_eval::Mut0> = │
00:04:04 #17665 [verbose] > │ LrcPtr::new(Spiral_eval::Mut0{l0: MutCell::new(0_i32), │
00:04:04 #17666 [verbose] > │ l1: │
00:04:04 #17667 [verbose] > │ MutCell::new(string("")),}); │
00:04:04 #17668 [verbose] > │ while Spiral_eval::method1(v4, v6.clone()) { │
00:04:04 #17669 [verbose] > │ let v8: i32 = v6.l0.get().clone(); │
00:04:04 #17670 [verbose] > │ let v12: string = │
00:04:04 #17671 [verbose] > │ append(append(append(v6.l1.get().clone(), v3[ │
00:04:04 #17672 [verbose] > │ v8].clone()), │
00:04:04 #17673 [verbose] > │ string("\n")), string("")); │
00:04:04 #17674 [verbose] > │ let v13: i32 = v8 + 1_i32; │
00:04:04 #17675 [verbose] > │ v6.l0.set(v13); │
00:04:04 #17676 [verbose] > │ v6.l1.set(v12); │
00:04:04 #17677 [verbose] > │ () │
00:04:04 #17678 [verbose] > │ } │
00:04:04 #17679 [verbose] > │ { │
00:04:04 #17680 [verbose] > │ let v14: string = v6.l1.get().clone(); │
00:04:04 #17681 [verbose] > │ let v15: string = sprintf!("{:?}", v14.clone()); │
00:04:04 #17682 [verbose] > │ printfn!("{0}", v15); │
00:04:04 #17683 [verbose] > │ { │
00:04:04 #17684 [verbose] > │ let v17: bool = v14.clone() == string("1\n2\n3\n"); │
00:04:04 #17685 [verbose] > │ if (if v17 { true } else { Spiral_eval::method2(v17) }) │
00:04:04 #17686 [verbose] > │ == │
00:04:04 #17687 [verbose] > │ false { │
00:04:04 #17688 [verbose] > │ panic!("{}", │
00:04:04 #17689 [verbose] > │ sprintf!("__expect / actual: {:?} / expected: │
00:04:04 #17690 [verbose] > │ {:?}", v14, string("1\n2\n3\n"))); │
00:04:04 #17691 [verbose] > │ } │
00:04:04 #17692 [verbose] > │ } │
00:04:04 #17693 [verbose] > │ } │
00:04:04 #17694 [verbose] > │ } │
00:04:04 #17695 [verbose] > │ on_startup!(Spiral_eval::method0()); │
00:04:04 #17696 [verbose] > │ } │
00:04:04 #17697 [verbose] > │ } │
00:04:04 #17698 [verbose] > │ pub use module_ccfa04bf::*; │
00:04:04 #17699 [verbose] > │ │
00:04:04 #17700 [verbose] > │ │
00:04:04 #17701 [verbose] > ╰──────────────────────────────────────────────────────────────────────────────╯
00:04:04 #17702 [verbose] >
00:04:04 #17703 [verbose] > ── markdown ────────────────────────────────────────────────────────────────────
00:04:04 #17704 [verbose] > ╭──────────────────────────────────────────────────────────────────────────────╮
00:04:04 #17705 [verbose] > │ ## concat_list_trailing │
00:04:04 #17706 [verbose] > ╰──────────────────────────────────────────────────────────────────────────────╯
00:04:04 #17707 [verbose] >
00:04:04 #17708 [verbose] > ── spiral ──────────────────────────────────────────────────────────────────────
00:04:04 #17709 [verbose] > inl concat_list_trailing separator input =
00:04:04 #17710 [verbose] > ("", input)
00:04:04 #17711 [verbose] > ||> listm.fold fun acc (x : string) =>
00:04:04 #17712 [verbose] > $'!acc + !x + !separator + ""'
00:04:04 #17713 [verbose] > Building c:\home\git\polyglot\target\polyglot\spiral_eval\packages\83d15e91cf09fa3541c4d214d5940d2c546408f23b168e6560f817400d175814\main.spi
00:04:04 #17714 [verbose] >
00:04:04 #17715 [verbose] > ╭─[ 197.58ms - stdout ]────────────────────────────────────────────────────────╮
00:04:04 #17716 [verbose] > │ () │
00:04:04 #17717 [verbose] > │ │
00:04:04 #17718 [verbose] > │ │
00:04:04 #17719 [verbose] > ╰──────────────────────────────────────────────────────────────────────────────╯
00:04:04 #17720 [verbose] >
00:04:04 #17721 [verbose] > ── spiral ──────────────────────────────────────────────────────────────────────
00:04:04 #17722 [verbose] > // // test
00:04:04 #17723 [verbose] > // // rust=
00:04:04 #17724 [verbose] >
00:04:04 #17725 [verbose] > [[
00:04:04 #17726 [verbose] > "1"
00:04:04 #17727 [verbose] > "2"
00:04:04 #17728 [verbose] > "3"
00:04:04 #17729 [verbose] > ]]
00:04:04 #17730 [verbose] > |> fun x =>
00:04:04 #17731 [verbose] > inl code = (x : _) |> concat_list_trailing "\n"
00:04:04 #17732 [verbose] > code
00:04:04 #17733 [verbose] > |> _assert_eq "1\n2\n3\n"
00:04:04 #17734 [verbose] > Building c:\home\git\polyglot\target\polyglot\spiral_eval\packages\d7e7c6df51bea7a01200e086afa25e00182836f769ccc93aebb69357309db5db\main.spi
00:04:08 #17735 [verbose] >
00:04:08 #17736 [verbose] > ╭─[ 4.29s - return value ]─────────────────────────────────────────────────────╮
00:04:08 #17737 [verbose] > │ .rs output: │
00:04:08 #17738 [verbose] > │ "1 │
00:04:08 #17739 [verbose] > │ 2 │
00:04:08 #17740 [verbose] > │ 3 │
00:04:08 #17741 [verbose] > │ " │
00:04:08 #17742 [verbose] > │ │
00:04:08 #17743 [verbose] > │ │
00:04:08 #17744 [verbose] > │ │
00:04:08 #17745 [verbose] > ╰──────────────────────────────────────────────────────────────────────────────╯
00:04:08 #17746 [verbose] >
00:04:08 #17747 [verbose] > ╭─[ 4.29s - stdout ]───────────────────────────────────────────────────────────╮
00:04:08 #17748 [verbose] > │ .fsx: │
00:04:08 #17749 [verbose] > │ let rec method1 (v0 : bool) : bool = │
00:04:08 #17750 [verbose] > │ v0 │
00:04:08 #17751 [verbose] > │ and method0 () : unit = │
00:04:08 #17752 [verbose] > │ let v0 : string = "" │
00:04:08 #17753 [verbose] > │ let v1 : string = "1" │
00:04:08 #17754 [verbose] > │ let v2 : string = "\n" │
00:04:08 #17755 [verbose] > │ let v3 : string = v0 + v1 + v2 + "" │
00:04:08 #17756 [verbose] > │ let v4 : string = "2" │
00:04:08 #17757 [verbose] > │ let v5 : string = v3 + v4 + v2 + "" │
00:04:08 #17758 [verbose] > │ let v6 : string = "3" │
00:04:08 #17759 [verbose] > │ let v7 : string = v5 + v6 + v2 + "" │
00:04:08 #17760 [verbose] > │ let v8 : string = $"%A{v7}" │
00:04:08 #17761 [verbose] > │ System.Console.WriteLine v8 │
00:04:08 #17762 [verbose] > │ let v10 : bool = v7 = "1\n2\n3\n" │
00:04:08 #17763 [verbose] > │ let v12 : bool = │
00:04:08 #17764 [verbose] > │ if v10 then │
00:04:08 #17765 [verbose] > │ true │
00:04:08 #17766 [verbose] > │ else │
00:04:08 #17767 [verbose] > │ method1(v10) │
00:04:08 #17768 [verbose] > │ let v13 : string = "1\n2\n3\n" │
00:04:08 #17769 [verbose] > │ let v14 : string = $"__expect / actual: %A{v7} / expected: %A{v13}" │
00:04:08 #17770 [verbose] > │ let v15 : bool = v12 = false │
00:04:08 #17771 [verbose] > │ if v15 then │
00:04:08 #17772 [verbose] > │ failwith<unit> v14 │
00:04:08 #17773 [verbose] > │ method0() │
00:04:08 #17774 [verbose] > │ │
00:04:08 #17775 [verbose] > │ │
00:04:08 #17776 [verbose] > │ .rs: │
00:04:08 #17777 [verbose] > │ #![allow(dead_code,)] │
00:04:08 #17778 [verbose] > │ #![allow(non_camel_case_types,)] │
00:04:08 #17779 [verbose] > │ #![allow(non_snake_case,)] │
00:04:08 #17780 [verbose] > │ #![allow(non_upper_case_globals,)] │
00:04:08 #17781 [verbose] > │ #![allow(unreachable_code,)] │
00:04:08 #17782 [verbose] > │ #![allow(unused_attributes,)] │
00:04:08 #17783 [verbose] > │ #![allow(unused_imports,)] │
00:04:08 #17784 [verbose] > │ #![allow(unused_macros,)] │
00:04:08 #17785 [verbose] > │ #![allow(unused_parens,)] │
00:04:08 #17786 [verbose] > │ #![allow(unused_variables,)] │
00:04:08 #17787 [verbose] > │ mod module_ccfa04bf { │
00:04:08 #17788 [verbose] > │ pub mod Spiral_eval { │
00:04:08 #17789 [verbose] > │ use super::*; │
00:04:08 #17790 [verbose] > │ use fable_library_rust::Native_::on_startup; │
00:04:08 #17791 [verbose] > │ use fable_library_rust::String_::printfn; │
00:04:08 #17792 [verbose] > │ use fable_library_rust::String_::sprintf; │
00:04:08 #17793 [verbose] > │ use fable_library_rust::String_::string; │
00:04:08 #17794 [verbose] > │ pub fn method1(v0: bool) -> bool { v0 } │
00:04:08 #17795 [verbose] > │ pub fn method0() { │
00:04:08 #17796 [verbose] > │ let v7: string = string("1\n2\n3\n"); │
00:04:08 #17797 [verbose] > │ let v8: string = sprintf!("{:?}", v7.clone()); │
00:04:08 #17798 [verbose] > │ printfn!("{0}", v8); │
00:04:08 #17799 [verbose] > │ { │
00:04:08 #17800 [verbose] > │ let v10: bool = v7.clone() == string("1\n2\n3\n"); │
00:04:08 #17801 [verbose] > │ if (if v10 { true } else { Spiral_eval::method1(v10) }) == │
00:04:08 #17802 [verbose] > │ false { │
00:04:08 #17803 [verbose] > │ panic!("{}", │
00:04:08 #17804 [verbose] > │ sprintf!("__expect / actual: {:?} / expected: │
00:04:08 #17805 [verbose] > │ {:?}", v7, string("1\n2\n3\n"))); │
00:04:08 #17806 [verbose] > │ } │
00:04:08 #17807 [verbose] > │ } │
00:04:08 #17808 [verbose] > │ } │
00:04:08 #17809 [verbose] > │ on_startup!(Spiral_eval::method0()); │
00:04:08 #17810 [verbose] > │ } │
00:04:08 #17811 [verbose] > │ } │
00:04:08 #17812 [verbose] > │ pub use module_ccfa04bf::*; │
00:04:08 #17813 [verbose] > │ │
00:04:08 #17814 [verbose] > │ │
00:04:08 #17815 [verbose] > ╰──────────────────────────────────────────────────────────────────────────────╯
00:04:08 #17816 [verbose] >
00:04:08 #17817 [verbose] > ── markdown ────────────────────────────────────────────────────────────────────
00:04:08 #17818 [verbose] > ╭──────────────────────────────────────────────────────────────────────────────╮
00:04:08 #17819 [verbose] > │ ## concat_list_heap_trailing │
00:04:08 #17820 [verbose] > ╰──────────────────────────────────────────────────────────────────────────────╯
00:04:08 #17821 [verbose] >
00:04:08 #17822 [verbose] > ── spiral ──────────────────────────────────────────────────────────────────────
00:04:08 #17823 [verbose] > inl concat_list_heap_trailing separator input =
00:04:08 #17824 [verbose] > inl separator = join separator
00:04:08 #17825 [verbose] > inl separator = separator |> as_str
00:04:08 #17826 [verbose] > ("", input)
00:04:08 #17827 [verbose] > ||> listm.fold fun acc (x : string) =>
00:04:08 #17828 [verbose] > inl acc = acc |> to_std_string
00:04:08 #17829 [verbose] > inl x = x |> as_str
00:04:08 #17830 [verbose] > $'$"{!acc}{!x}{!separator}"'
00:04:08 #17831 [verbose] > Building c:\home\git\polyglot\target\polyglot\spiral_eval\packages\93a23a8d578a689acab2c4e4fcc367f4f79c49e3c38df32c7b332cd3d8677f96\main.spi
00:04:08 #17832 [verbose] >
00:04:08 #17833 [verbose] > ╭─[ 204.52ms - stdout ]────────────────────────────────────────────────────────╮
00:04:08 #17834 [verbose] > │ () │
00:04:08 #17835 [verbose] > │ │
00:04:08 #17836 [verbose] > │ │
00:04:08 #17837 [verbose] > ╰──────────────────────────────────────────────────────────────────────────────╯
00:04:08 #17838 [verbose] >
00:04:08 #17839 [verbose] > ── spiral ──────────────────────────────────────────────────────────────────────
00:04:08 #17840 [verbose] > // // test
00:04:08 #17841 [verbose] > // // rust=
00:04:08 #17842 [verbose] >
00:04:08 #17843 [verbose] > types ()
00:04:08 #17844 [verbose] >
00:04:08 #17845 [verbose] > [[
00:04:08 #17846 [verbose] > "1"
00:04:08 #17847 [verbose] > "2"
00:04:08 #17848 [verbose] > "3"
00:04:08 #17849 [verbose] > ]]
00:04:08 #17850 [verbose] > |> fun x =>
00:04:08 #17851 [verbose] > inl code = (x : _) |> concat_list_heap_trailing "\n"
00:04:08 #17852 [verbose] > code
00:04:08 #17853 [verbose] > |> _assert_eq "1\n2\n3\n"
00:04:08 #17854 [verbose] > Building c:\home\git\polyglot\target\polyglot\spiral_eval\packages\43b4f092c1e8dfcf404d21963190af24dc841a7f452d6097da2d62ad18808e5c\main.spi
00:04:13 #17855 [verbose] >
00:04:13 #17856 [verbose] > ╭─[ 4.92s - return value ]─────────────────────────────────────────────────────╮
00:04:13 #17857 [verbose] > │ .rs output: │
00:04:13 #17858 [verbose] > │ "1 │
00:04:13 #17859 [verbose] > │ 2 │
00:04:13 #17860 [verbose] > │ 3 │
00:04:13 #17861 [verbose] > │ " │
00:04:13 #17862 [verbose] > │ │
00:04:13 #17863 [verbose] > │ │
00:04:13 #17864 [verbose] > │ │
00:04:13 #17865 [verbose] > ╰──────────────────────────────────────────────────────────────────────────────╯
00:04:13 #17866 [verbose] >
00:04:13 #17867 [verbose] > ╭─[ 4.93s - stdout ]───────────────────────────────────────────────────────────╮
00:04:13 #17868 [verbose] > │ .fsx: │
00:04:13 #17869 [verbose] > │ [<Fable.Core.Erase; Fable.Core.Emit("Func0<$0>")>] type Func0<'T> = class │
00:04:13 #17870 [verbose] > │ end │
00:04:13 #17871 [verbose] > │ [<Fable.Core.Erase; Fable.Core.Emit("Func1<$0, $1>")>] type Func0<'T, 'U> = │
00:04:13 #17872 [verbose] > │ class end │
00:04:13 #17873 [verbose] > │ [<Fable.Core.Erase; Fable.Core.Emit("Box<$0>")>] type Box<'T> = class end │
00:04:13 #17874 [verbose] > │ [<Fable.Core.Erase; Fable.Core.Emit("dyn $0")>] type Dyn<'T> = class end │
00:04:13 #17875 [verbose] > │ [<Fable.Core.Erase; Fable.Core.Emit("Fn() -> $0")>] type Fn<'T> = class end │
00:04:13 #17876 [verbose] > │ [<Fable.Core.Erase; Fable.Core.Emit("Fn()")>] type FnUnit = class end │
00:04:13 #17877 [verbose] > │ [<Fable.Core.Erase; Fable.Core.Emit("FnOnce() -> $0")>] type FnOnce<'T> = │
00:04:13 #17878 [verbose] > │ class end │
00:04:13 #17879 [verbose] > │ [<Fable.Core.Erase; Fable.Core.Emit("Fn($0, $1)")>] type ActionFn2<'T, 'U> = │
00:04:13 #17880 [verbose] > │ class end │
00:04:13 #17881 [verbose] > │ [<Fable.Core.Erase; Fable.Core.Emit("impl $0")>] type Impl<'T> = class end │
00:04:13 #17882 [verbose] > │ [<Fable.Core.Erase; Fable.Core.Emit("mut $0")>] type Mut<'T> = class end │
00:04:13 #17883 [verbose] > │ [<Fable.Core.Erase; Fable.Core.Emit("&$0")>] type Ref<'T> = class end │
00:04:13 #17884 [verbose] > │ [<Fable.Core.Erase; Fable.Core.Emit("&'static $0")>] type StaticRef<'T> = │
00:04:13 #17885 [verbose] > │ class end │
00:04:13 #17886 [verbose] > │ [<Fable.Core.Erase; Fable.Core.Emit("MutCell<$0>")>] type MutCell<'T> = │
00:04:13 #17887 [verbose] > │ class end │
00:04:13 #17888 [verbose] > │ [<Fable.Core.Erase; Fable.Core.Emit("std::any::Any")>] type std_any_Any = │
00:04:13 #17889 [verbose] > │ class end │
00:04:13 #17890 [verbose] > │ [<Fable.Core.Erase; Fable.Core.Emit("std::cell::RefCell<$0>")>] type │
00:04:13 #17891 [verbose] > │ std_cell_RefCell<'T> = class end │
00:04:13 #17892 [verbose] > │ [<Fable.Core.Erase; Fable.Core.Emit("std::pin::Pin<$0>")>] type │
00:04:13 #17893 [verbose] > │ std_pin_Pin<'T> = class end │
00:04:13 #17894 [verbose] > │ [<Fable.Core.Erase; Fable.Core.Emit("std::rc::Rc<$0>")>] type std_rc_Rc<'T> │
00:04:13 #17895 [verbose] > │ = class end │
00:04:13 #17896 [verbose] > │ [<Fable.Core.Erase; Fable.Core.Emit("std::rc::Weak<$0>")>] type │
00:04:13 #17897 [verbose] > │ std_rc_Weak<'T> = class end │
00:04:13 #17898 [verbose] > │ [<Fable.Core.Erase; Fable.Core.Emit("std::sync::Arc<$0>")>] type │
00:04:13 #17899 [verbose] > │ std_sync_Arc<'T> = class end │
00:04:13 #17900 [verbose] > │ [<Fable.Core.Erase; Fable.Core.Emit("str")>] type Str = class end │
00:04:13 #17901 [verbose] > │ [<Fable.Core.Erase; Fable.Core.Emit("base64::DecodeError")>] type │
00:04:13 #17902 [verbose] > │ base64_DecodeError = class end │
00:04:13 #17903 [verbose] > │ [<Fable.Core.Erase; Fable.Core.Emit("borsh::io::Error")>] type │
00:04:13 #17904 [verbose] > │ borsh_io_Error = class end │
00:04:13 #17905 [verbose] > │ [<Fable.Core.Erase; Fable.Core.Emit("js_sys::JsString")>] type │
00:04:13 #17906 [verbose] > │ js_sys_JsString = class end │
00:04:13 #17907 [verbose] > │ [<Fable.Core.Erase; Fable.Core.Emit("serde_json::Error")>] type │
00:04:13 #17908 [verbose] > │ serde_json_Error = class end │
00:04:13 #17909 [verbose] > │ [<Fable.Core.Erase; Fable.Core.Emit("serde_json::Value")>] type │
00:04:13 #17910 [verbose] > │ serde_json_Value = class end │
00:04:13 #17911 [verbose] > │ [<Fable.Core.Erase; Fable.Core.Emit("serde_wasm_bindgen::Error")>] type │
00:04:13 #17912 [verbose] > │ serde_wasm_bindgen_Error = class end │
00:04:13 #17913 [verbose] > │ [<Fable.Core.Erase; Fable.Core.Emit("std::ffi::OsStr")>] type std_ffi_OsStr │
00:04:13 #17914 [verbose] > │ = class end │
00:04:13 #17915 [verbose] > │ [<Fable.Core.Erase; Fable.Core.Emit("std::ffi::OsString")>] type │
00:04:13 #17916 [verbose] > │ std_ffi_OsString = class end │
00:04:13 #17917 [verbose] > │ [<Fable.Core.Erase; Fable.Core.Emit("std::str::Utf8Error")>] type │
00:04:13 #17918 [verbose] > │ std_str_Utf8Error = class end │
00:04:13 #17919 [verbose] > │ [<Fable.Core.Erase; Fable.Core.Emit("std::string::String")>] type │
00:04:13 #17920 [verbose] > │ std_string_String = class end │
00:04:13 #17921 [verbose] > │ let rec method1 () : string = │
00:04:13 #17922 [verbose] > │ let v0 : string = "\n" │
00:04:13 #17923 [verbose] > │ v0 │
00:04:13 #17924 [verbose] > │ and method2 () : string = │
00:04:13 #17925 [verbose] > │ let v0 : string = "" │
00:04:13 #17926 [verbose] > │ v0 │
00:04:13 #17927 [verbose] > │ and method3 (v0 : string) : string = │
00:04:13 #17928 [verbose] > │ v0 │
00:04:13 #17929 [verbose] > │ and method4 (v0 : bool) : bool = │
00:04:13 #17930 [verbose] > │ v0 │
00:04:13 #17931 [verbose] > │ and method0 () : unit = │
00:04:13 #17932 [verbose] > │ let v0 : string = method1() │
00:04:13 #17933 [verbose] > │ let v1 : string = "fable_library_rust::String_::LrcStr::as_str(&$0)" │
00:04:13 #17934 [verbose] > │ let v2 : Ref<Str> = Fable.Core.RustInterop.emitRustExpr v0 v1 │
00:04:13 #17935 [verbose] > │ let v3 : string = method2() │
00:04:13 #17936 [verbose] > │ let v4 : string = "fable_library_rust::String_::LrcStr::as_str(&$0)" │
00:04:13 #17937 [verbose] > │ let v5 : Ref<Str> = Fable.Core.RustInterop.emitRustExpr v3 v4 │
00:04:13 #17938 [verbose] > │ let v6 : string = "String::from($0)" │
00:04:13 #17939 [verbose] > │ let v7 : std_string_String = Fable.Core.RustInterop.emitRustExpr v5 v6 │
00:04:13 #17940 [verbose] > │ let v8 : string = "fable_library_rust::String_::LrcStr::as_str(&$0)" │
00:04:13 #17941 [verbose] > │ let v9 : string = "1" │
00:04:13 #17942 [verbose] > │ let v10 : Ref<Str> = Fable.Core.RustInterop.emitRustExpr v9 v8 │
00:04:13 #17943 [verbose] > │ let v11 : string = $"{v7}{v10}{v2}" │
00:04:13 #17944 [verbose] > │ let v12 : string = method3(v11) │
00:04:13 #17945 [verbose] > │ let v13 : string = "fable_library_rust::String_::LrcStr::as_str(&$0)" │
00:04:13 #17946 [verbose] > │ let v14 : Ref<Str> = Fable.Core.RustInterop.emitRustExpr v12 v13 │
00:04:13 #17947 [verbose] > │ let v15 : string = "String::from($0)" │
00:04:13 #17948 [verbose] > │ let v16 : std_string_String = Fable.Core.RustInterop.emitRustExpr v14 │
00:04:13 #17949 [verbose] > │ v15 │
00:04:13 #17950 [verbose] > │ let v17 : string = "fable_library_rust::String_::LrcStr::as_str(&$0)" │
00:04:13 #17951 [verbose] > │ let v18 : string = "2" │
00:04:13 #17952 [verbose] > │ let v19 : Ref<Str> = Fable.Core.RustInterop.emitRustExpr v18 v17 │
00:04:13 #17953 [verbose] > │ let v20 : string = $"{v16}{v19}{v2}" │
00:04:13 #17954 [verbose] > │ let v21 : string = method3(v20) │
00:04:13 #17955 [verbose] > │ let v22 : string = "fable_library_rust::String_::LrcStr::as_str(&$0)" │
00:04:13 #17956 [verbose] > │ let v23 : Ref<Str> = Fable.Core.RustInterop.emitRustExpr v21 v22 │
00:04:13 #17957 [verbose] > │ let v24 : string = "String::from($0)" │
00:04:13 #17958 [verbose] > │ let v25 : std_string_String = Fable.Core.RustInterop.emitRustExpr v23 │
00:04:13 #17959 [verbose] > │ v24 │
00:04:13 #17960 [verbose] > │ let v26 : string = "fable_library_rust::String_::LrcStr::as_str(&$0)" │
00:04:13 #17961 [verbose] > │ let v27 : string = "3" │
00:04:13 #17962 [verbose] > │ let v28 : Ref<Str> = Fable.Core.RustInterop.emitRustExpr v27 v26 │
00:04:13 #17963 [verbose] > │ let v29 : string = $"{v25}{v28}{v2}" │
00:04:13 #17964 [verbose] > │ let v30 : string = $"%A{v29}" │
00:04:13 #17965 [verbose] > │ System.Console.WriteLine v30 │
00:04:13 #17966 [verbose] > │ let v32 : bool = v29 = "1\n2\n3\n" │
00:04:13 #17967 [verbose] > │ let v34 : bool = │
00:04:13 #17968 [verbose] > │ if v32 then │
00:04:13 #17969 [verbose] > │ true │
00:04:13 #17970 [verbose] > │ else │
00:04:13 #17971 [verbose] > │ method4(v32) │
00:04:13 #17972 [verbose] > │ let v35 : string = "1\n2\n3\n" │
00:04:13 #17973 [verbose] > │ let v36 : string = $"__expect / actual: %A{v29} / expected: %A{v35}" │
00:04:13 #17974 [verbose] > │ let v37 : bool = v34 = false │
00:04:13 #17975 [verbose] > │ if v37 then │
00:04:13 #17976 [verbose] > │ failwith<unit> v36 │
00:04:13 #17977 [verbose] > │ method0() │
00:04:13 #17978 [verbose] > │ │
00:04:13 #17979 [verbose] > │ │
00:04:13 #17980 [verbose] > │ .rs: │
00:04:13 #17981 [verbose] > │ #![allow(dead_code,)] │
00:04:13 #17982 [verbose] > │ #![allow(non_camel_case_types,)] │
00:04:13 #17983 [verbose] > │ #![allow(non_snake_case,)] │
00:04:13 #17984 [verbose] > │ #![allow(non_upper_case_globals,)] │
00:04:13 #17985 [verbose] > │ #![allow(unreachable_code,)] │
00:04:13 #17986 [verbose] > │ #![allow(unused_attributes,)] │
00:04:13 #17987 [verbose] > │ #![allow(unused_imports,)] │
00:04:13 #17988 [verbose] > │ #![allow(unused_macros,)] │
00:04:13 #17989 [verbose] > │ #![allow(unused_parens,)] │
00:04:13 #17990 [verbose] > │ #![allow(unused_variables,)] │
00:04:13 #17991 [verbose] > │ mod module_ccfa04bf { │
00:04:13 #17992 [verbose] > │ pub mod Spiral_eval { │
00:04:13 #17993 [verbose] > │ use super::*; │
00:04:13 #17994 [verbose] > │ use fable_library_rust::Native_::on_startup; │
00:04:13 #17995 [verbose] > │ use fable_library_rust::String_::printfn; │
00:04:13 #17996 [verbose] > │ use fable_library_rust::String_::sprintf; │
00:04:13 #17997 [verbose] > │ use fable_library_rust::String_::string; │
00:04:13 #17998 [verbose] > │ pub fn method1() -> string { string("\n") } │
00:04:13 #17999 [verbose] > │ pub fn method2() -> string { string("") } │
00:04:13 #18000 [verbose] > │ pub fn method3(v0: string) -> string { v0 } │
00:04:13 #18001 [verbose] > │ pub fn method4(v0: bool) -> bool { v0 } │
00:04:13 #18002 [verbose] > │ pub fn method0() { │
00:04:13 #18003 [verbose] > │ let v0: string = Spiral_eval::method1(); │
00:04:13 #18004 [verbose] > │ let v2: &str = fable_library_rust::String_::LrcStr::as_str(&v0); │
00:04:13 #18005 [verbose] > │ let v3: string = Spiral_eval::method2(); │
00:04:13 #18006 [verbose] > │ let v5: &str = fable_library_rust::String_::LrcStr::as_str(&v3); │
00:04:13 #18007 [verbose] > │ let v12: string = │
00:04:13 #18008 [verbose] > │ Spiral_eval::method3(sprintf!("{}{}{}", String::from(v5), │
00:04:13 #18009 [verbose] > │ │
00:04:13 #18010 [verbose] > │ fable_library_rust::String_::LrcStr::as_str(&string("1")), │
00:04:13 #18011 [verbose] > │ v2.clone())); │
00:04:13 #18012 [verbose] > │ let v14: &str = │
00:04:13 #18013 [verbose] > │ fable_library_rust::String_::LrcStr::as_str(&v12); │
00:04:13 #18014 [verbose] > │ let v21: string = │
00:04:13 #18015 [verbose] > │ Spiral_eval::method3(sprintf!("{}{}{}", String::from(v14), │
00:04:13 #18016 [verbose] > │ │
00:04:13 #18017 [verbose] > │ fable_library_rust::String_::LrcStr::as_str(&string("2")), │
00:04:13 #18018 [verbose] > │ v2.clone())); │
00:04:13 #18019 [verbose] > │ let v23: &str = │
00:04:13 #18020 [verbose] > │ fable_library_rust::String_::LrcStr::as_str(&v21); │
00:04:13 #18021 [verbose] > │ let v29: string = │
00:04:13 #18022 [verbose] > │ sprintf!("{}{}{}", String::from(v23), │
00:04:13 #18023 [verbose] > │ │
00:04:13 #18024 [verbose] > │ fable_library_rust::String_::LrcStr::as_str(&string("3")), │
00:04:13 #18025 [verbose] > │ v2); │
00:04:13 #18026 [verbose] > │ let v30: string = sprintf!("{:?}", v29.clone()); │
00:04:13 #18027 [verbose] > │ printfn!("{0}", v30); │
00:04:13 #18028 [verbose] > │ { │
00:04:13 #18029 [verbose] > │ let v32: bool = v29.clone() == string("1\n2\n3\n"); │
00:04:13 #18030 [verbose] > │ if (if v32 { true } else { Spiral_eval::method4(v32) }) == │
00:04:13 #18031 [verbose] > │ false { │
00:04:13 #18032 [verbose] > │ panic!("{}", │
00:04:13 #18033 [verbose] > │ sprintf!("__expect / actual: {:?} / expected: │
00:04:13 #18034 [verbose] > │ {:?}", v29, string("1\n2\n3\n"))); │
00:04:13 #18035 [verbose] > │ } │
00:04:13 #18036 [verbose] > │ } │
00:04:13 #18037 [verbose] > │ } │
00:04:13 #18038 [verbose] > │ on_startup!(Spiral_eval::method0()); │
00:04:13 #18039 [verbose] > │ } │
00:04:13 #18040 [verbose] > │ } │
00:04:13 #18041 [verbose] > │ pub use module_ccfa04bf::*; │
00:04:13 #18042 [verbose] > │ │
00:04:13 #18043 [verbose] > │ │
00:04:13 #18044 [verbose] > ╰──────────────────────────────────────────────────────────────────────────────╯
00:04:13 #18045 [verbose] >
00:04:13 #18046 [verbose] > ── markdown ────────────────────────────────────────────────────────────────────
00:04:13 #18047 [verbose] > ╭──────────────────────────────────────────────────────────────────────────────╮
00:04:13 #18048 [verbose] > │ ## concat │
00:04:13 #18049 [verbose] > ╰──────────────────────────────────────────────────────────────────────────────╯
00:04:13 #18050 [verbose] >
00:04:13 #18051 [verbose] > ── spiral ──────────────────────────────────────────────────────────────────────
00:04:13 #18052 [verbose] > inl concat (a : string) (b : seq.seq' _) : string =
00:04:13 #18053 [verbose] > inl a = join a
00:04:13 #18054 [verbose] > b |> $"String.concat" a
00:04:13 #18055 [verbose] > Building c:\home\git\polyglot\target\polyglot\spiral_eval\packages\e48439b3b38e881366f06454de9d25d529081d52f850ed607a44d0af3d0125b6\main.spi
00:04:14 #18056 [verbose] >
00:04:14 #18057 [verbose] > ╭─[ 224.65ms - stdout ]────────────────────────────────────────────────────────╮
00:04:14 #18058 [verbose] > │ () │
00:04:14 #18059 [verbose] > │ │
00:04:14 #18060 [verbose] > │ │
00:04:14 #18061 [verbose] > ╰──────────────────────────────────────────────────────────────────────────────╯
00:04:14 #18062 [verbose] >
00:04:14 #18063 [verbose] > ── markdown ────────────────────────────────────────────────────────────────────
00:04:14 #18064 [verbose] > ╭──────────────────────────────────────────────────────────────────────────────╮
00:04:14 #18065 [verbose] > │ ## ellipsis │
00:04:14 #18066 [verbose] > ╰──────────────────────────────────────────────────────────────────────────────╯
00:04:14 #18067 [verbose] >
00:04:14 #18068 [verbose] > ── spiral ──────────────────────────────────────────────────────────────────────
00:04:14 #18069 [verbose] > inl ellipsis (max : i32) (s : string) =
00:04:14 #18070 [verbose] > if sm.length s <= max
00:04:14 #18071 [verbose] > then s
00:04:14 #18072 [verbose] > else s |> slice 0 (max - 1) |> fun x => $'!x + "..."'
00:04:14 #18073 [verbose] > Building c:\home\git\polyglot\target\polyglot\spiral_eval\packages\026d4873d622724318cae8f8e89e98a5e4c8decabcffe8eca4b553877fa34f53\main.spi
00:04:14 #18074 [verbose] >
00:04:14 #18075 [verbose] > ╭─[ 221.36ms - stdout ]────────────────────────────────────────────────────────╮
00:04:14 #18076 [verbose] > │ () │
00:04:14 #18077 [verbose] > │ │
00:04:14 #18078 [verbose] > │ │
00:04:14 #18079 [verbose] > ╰──────────────────────────────────────────────────────────────────────────────╯
00:04:14 #18080 [verbose] >
00:04:14 #18081 [verbose] > ── spiral ──────────────────────────────────────────────────────────────────────
00:04:14 #18082 [verbose] > // // test
00:04:14 #18083 [verbose] >
00:04:14 #18084 [verbose] > "12345"
00:04:14 #18085 [verbose] > |> ellipsis 2
00:04:14 #18086 [verbose] > |> _assert_eq "12..."
00:04:14 #18087 [verbose] >
00:04:14 #18088 [verbose] > "12345"
00:04:14 #18089 [verbose] > |> ellipsis 4
00:04:14 #18090 [verbose] > |> _assert_eq "1234..."
00:04:14 #18091 [verbose] > Building c:\home\git\polyglot\target\polyglot\spiral_eval\packages\e35e289541b238cb11d363c93f4b73d61016a419cdedd6d7a46ee1aab328931d\main.spi
00:04:14 #18092 [verbose] >
00:04:14 #18093 [verbose] > ╭─[ 296.12ms - stdout ]────────────────────────────────────────────────────────╮
00:04:14 #18094 [verbose] > │ let rec method1 (v0 : bool) : bool = │
00:04:14 #18095 [verbose] > │ v0 │
00:04:14 #18096 [verbose] > │ and method0 () : unit = │
00:04:14 #18097 [verbose] > │ let v0 : string = "12" │
00:04:14 #18098 [verbose] > │ let v1 : string = v0 + "..." │
00:04:14 #18099 [verbose] > │ let v2 : string = $"%A{v1}" │
00:04:14 #18100 [verbose] > │ System.Console.WriteLine v2 │
00:04:14 #18101 [verbose] > │ let v4 : bool = v1 = "12..." │
00:04:14 #18102 [verbose] > │ let v6 : bool = │
00:04:14 #18103 [verbose] > │ if v4 then │
00:04:14 #18104 [verbose] > │ true │
00:04:14 #18105 [verbose] > │ else │
00:04:14 #18106 [verbose] > │ method1(v4) │
00:04:14 #18107 [verbose] > │ let v7 : string = "12..." │
00:04:14 #18108 [verbose] > │ let v8 : string = $"__expect / actual: %A{v1} / expected: %A{v7}" │
00:04:14 #18109 [verbose] > │ let v9 : bool = v6 = false │
00:04:14 #18110 [verbose] > │ if v9 then │
00:04:14 #18111 [verbose] > │ failwith<unit> v8 │
00:04:14 #18112 [verbose] > │ let v10 : string = "1234" │
00:04:14 #18113 [verbose] > │ let v11 : string = v10 + "..." │
00:04:14 #18114 [verbose] > │ let v12 : string = $"%A{v11}" │
00:04:14 #18115 [verbose] > │ System.Console.WriteLine v12 │
00:04:14 #18116 [verbose] > │ let v14 : bool = v11 = "1234..." │
00:04:14 #18117 [verbose] > │ let v16 : bool = │
00:04:14 #18118 [verbose] > │ if v14 then │
00:04:14 #18119 [verbose] > │ true │
00:04:14 #18120 [verbose] > │ else │
00:04:14 #18121 [verbose] > │ method1(v14) │
00:04:14 #18122 [verbose] > │ let v17 : string = "1234..." │
00:04:14 #18123 [verbose] > │ let v18 : string = $"__expect / actual: %A{v11} / expected: %A{v17}" │
00:04:14 #18124 [verbose] > │ let v19 : bool = v16 = false │
00:04:14 #18125 [verbose] > │ if v19 then │
00:04:14 #18126 [verbose] > │ failwith<unit> v18 │
00:04:14 #18127 [verbose] > │ method0() │
00:04:14 #18128 [verbose] > │ │
00:04:14 #18129 [verbose] > │ "12..." │
00:04:14 #18130 [verbose] > │ "1234..." │
00:04:14 #18131 [verbose] > │ │
00:04:14 #18132 [verbose] > ╰──────────────────────────────────────────────────────────────────────────────╯
00:04:14 #18133 [verbose] >
00:04:14 #18134 [verbose] > ── markdown ────────────────────────────────────────────────────────────────────
00:04:14 #18135 [verbose] > ╭──────────────────────────────────────────────────────────────────────────────╮
00:04:14 #18136 [verbose] > │ ## ellipsis_end │
00:04:14 #18137 [verbose] > ╰──────────────────────────────────────────────────────────────────────────────╯
00:04:14 #18138 [verbose] >
00:04:14 #18139 [verbose] > ── spiral ──────────────────────────────────────────────────────────────────────
00:04:14 #18140 [verbose] > inl ellipsis_end (max : i64) (s : string) =
00:04:14 #18141 [verbose] > inl len = sm.length s
00:04:14 #18142 [verbose] > if len <= max
00:04:14 #18143 [verbose] > then s
00:04:14 #18144 [verbose] > else
00:04:14 #18145 [verbose] > inl half = f64 max / 2
00:04:14 #18146 [verbose] > inl start_half = half |> math.ceil |> i64
00:04:14 #18147 [verbose] > inl end_half = half |> math.floor |> i64
00:04:14 #18148 [verbose] > inl start = s |> slice 0 (start_half - 1)
00:04:14 #18149 [verbose] > inl end = s |> slice (len - end_half) (len - 1)
00:04:14 #18150 [verbose] > (a ;[[start; "..."; end]] : _ i32 _)
00:04:14 #18151 [verbose] > |> seq.of_array
00:04:14 #18152 [verbose] > |> concat ""
00:04:14 #18153 [verbose] > Building c:\home\git\polyglot\target\polyglot\spiral_eval\packages\63c276db8014f7a59391c80114c8cca476c49ce448bc278f882dd52ff9aaa971\main.spi
00:04:14 #18154 [verbose] >
00:04:14 #18155 [verbose] > ╭─[ 227.94ms - stdout ]────────────────────────────────────────────────────────╮
00:04:14 #18156 [verbose] > │ () │
00:04:14 #18157 [verbose] > │ │
00:04:14 #18158 [verbose] > │ │
00:04:14 #18159 [verbose] > ╰──────────────────────────────────────────────────────────────────────────────╯
00:04:14 #18160 [verbose] >
00:04:14 #18161 [verbose] > ── spiral ──────────────────────────────────────────────────────────────────────
00:04:14 #18162 [verbose] > // // test
00:04:14 #18163 [verbose] >
00:04:14 #18164 [verbose] > "12345"
00:04:14 #18165 [verbose] > |> ellipsis_end 2
00:04:14 #18166 [verbose] > |> _assert_eq "1...5"
00:04:14 #18167 [verbose] >
00:04:14 #18168 [verbose] > "12345"
00:04:14 #18169 [verbose] > |> ellipsis_end 3
00:04:14 #18170 [verbose] > |> _assert_eq "12...5"
00:04:14 #18171 [verbose] >
00:04:14 #18172 [verbose] > "1234567"
00:04:14 #18173 [verbose] > |> ellipsis_end 4
00:04:14 #18174 [verbose] > |> _assert_eq "12...67"
00:04:14 #18175 [verbose] > Building c:\home\git\polyglot\target\polyglot\spiral_eval\packages\898fdb60379fe62c9e2bd4d4eccaa3848272b1363f7f2594411030294891deb1\main.spi
00:04:15 #18176 [verbose] >
00:04:15 #18177 [verbose] > ╭─[ 346.68ms - stdout ]────────────────────────────────────────────────────────╮
00:04:15 #18178 [verbose] > │ let rec method1 () : string = │
00:04:15 #18179 [verbose] > │ let v0 : string = "" │
00:04:15 #18180 [verbose] > │ v0 │
00:04:15 #18181 [verbose] > │ and method2 (v0 : bool) : bool = │
00:04:15 #18182 [verbose] > │ v0 │
00:04:15 #18183 [verbose] > │ and method0 () : unit = │
00:04:15 #18184 [verbose] > │ let v0 : float = float 2L │
00:04:15 #18185 [verbose] > │ let v1 : float = v0 / 2.0 │
00:04:15 #18186 [verbose] > │ let v2 : (float -> float) = ceil │
00:04:15 #18187 [verbose] > │ let v3 : float = v2 v1 │
00:04:15 #18188 [verbose] > │ let v4 : int64 = int64 v3 │
00:04:15 #18189 [verbose] > │ let v5 : (float -> float) = floor │
00:04:15 #18190 [verbose] > │ let v6 : float = v5 v1 │
00:04:15 #18191 [verbose] > │ let v7 : int64 = int64 v6 │
00:04:15 #18192 [verbose] > │ let v8 : int64 = v4 - 1L │
00:04:15 #18193 [verbose] > │ let v9 : string = "12345".[int 0L..int v8] │
00:04:15 #18194 [verbose] > │ let v10 : int64 = 5L - v7 │
00:04:15 #18195 [verbose] > │ let v11 : string = "12345".[int v10..int 4L] │
00:04:15 #18196 [verbose] > │ let v12 : string = "..." │
00:04:15 #18197 [verbose] > │ let v13 : (string []) = [|v9; v12; v11|] │
00:04:15 #18198 [verbose] > │ let v14 : ((string []) -> string seq) = Seq.ofArray │
00:04:15 #18199 [verbose] > │ let v15 : string seq = v14 v13 │
00:04:15 #18200 [verbose] > │ let v16 : string = method1() │
00:04:15 #18201 [verbose] > │ let v17 : (string -> (string seq -> string)) = String.concat │
00:04:15 #18202 [verbose] > │ let v18 : (string seq -> string) = v17 v16 │
00:04:15 #18203 [verbose] > │ let v19 : string = v18 v15 │
00:04:15 #18204 [verbose] > │ let v20 : string = $"%A{v19}" │
00:04:15 #18205 [verbose] > │ System.Console.WriteLine v20 │
00:04:15 #18206 [verbose] > │ let v22 : bool = v19 = "1...5" │
00:04:15 #18207 [verbose] > │ let v24 : bool = │
00:04:15 #18208 [verbose] > │ if v22 then │
00:04:15 #18209 [verbose] > │ true │
00:04:15 #18210 [verbose] > │ else │
00:04:15 #18211 [verbose] > │ method2(v22) │
00:04:15 #18212 [verbose] > │ let v25 : string = "1...5" │
00:04:15 #18213 [verbose] > │ let v26 : string = $"__expect / actual: %A{v19} / expected: %A{v25}" │
00:04:15 #18214 [verbose] > │ let v27 : bool = v24 = false │
00:04:15 #18215 [verbose] > │ if v27 then │
00:04:15 #18216 [verbose] > │ failwith<unit> v26 │
00:04:15 #18217 [verbose] > │ let v28 : float = float 3L │
00:04:15 #18218 [verbose] > │ let v29 : float = v28 / 2.0 │
00:04:15 #18219 [verbose] > │ let v30 : (float -> float) = ceil │
00:04:15 #18220 [verbose] > │ let v31 : float = v30 v29 │
00:04:15 #18221 [verbose] > │ let v32 : int64 = int64 v31 │
00:04:15 #18222 [verbose] > │ let v33 : (float -> float) = floor │
00:04:15 #18223 [verbose] > │ let v34 : float = v33 v29 │
00:04:15 #18224 [verbose] > │ let v35 : int64 = int64 v34 │
00:04:15 #18225 [verbose] > │ let v36 : int64 = v32 - 1L │
00:04:15 #18226 [verbose] > │ let v37 : string = "12345".[int 0L..int v36] │
00:04:15 #18227 [verbose] > │ let v38 : int64 = 5L - v35 │
00:04:15 #18228 [verbose] > │ let v39 : string = "12345".[int v38..int 4L] │
00:04:15 #18229 [verbose] > │ let v40 : (string []) = [|v37; v12; v39|] │
00:04:15 #18230 [verbose] > │ let v41 : ((string []) -> string seq) = Seq.ofArray │
00:04:15 #18231 [verbose] > │ let v42 : string seq = v41 v40 │
00:04:15 #18232 [verbose] > │ let v43 : string = method1() │
00:04:15 #18233 [verbose] > │ let v44 : (string -> (string seq -> string)) = String.concat │
00:04:15 #18234 [verbose] > │ let v45 : (string seq -> string) = v44 v43 │
00:04:15 #18235 [verbose] > │ let v46 : string = v45 v42 │
00:04:15 #18236 [verbose] > │ let v47 : string = $"%A{v46}" │
00:04:15 #18237 [verbose] > │ System.Console.WriteLine v47 │
00:04:15 #18238 [verbose] > │ let v49 : bool = v46 = "12...5" │
00:04:15 #18239 [verbose] > │ let v51 : bool = │
00:04:15 #18240 [verbose] > │ if v49 then │
00:04:15 #18241 [verbose] > │ true │
00:04:15 #18242 [verbose] > │ else │
00:04:15 #18243 [verbose] > │ method2(v49) │
00:04:15 #18244 [verbose] > │ let v52 : string = "12...5" │
00:04:15 #18245 [verbose] > │ let v53 : string = $"__expect / actual: %A{v46} / expected: %A{v52}" │
00:04:15 #18246 [verbose] > │ let v54 : bool = v51 = false │
00:04:15 #18247 [verbose] > │ if v54 then │
00:04:15 #18248 [verbose] > │ failwith<unit> v53 │
00:04:15 #18249 [verbose] > │ let v55 : float = float 4L │
00:04:15 #18250 [verbose] > │ let v56 : float = v55 / 2.0 │
00:04:15 #18251 [verbose] > │ let v57 : (float -> float) = ceil │
00:04:15 #18252 [verbose] > │ let v58 : float = v57 v56 │
00:04:15 #18253 [verbose] > │ let v59 : int64 = int64 v58 │
00:04:15 #18254 [verbose] > │ let v60 : (float -> float) = floor │
00:04:15 #18255 [verbose] > │ let v61 : float = v60 v56 │
00:04:15 #18256 [verbose] > │ let v62 : int64 = int64 v61 │
00:04:15 #18257 [verbose] > │ let v63 : int64 = v59 - 1L │
00:04:15 #18258 [verbose] > │ let v64 : string = "1234567".[int 0L..int v63] │
00:04:15 #18259 [verbose] > │ let v65 : int64 = 7L - v62 │
00:04:15 #18260 [verbose] > │ let v66 : string = "1234567".[int v65..int 6L] │
00:04:15 #18261 [verbose] > │ let v67 : (string []) = [|v64; v12; v66|] │
00:04:15 #18262 [verbose] > │ let v68 : ((string []) -> string seq) = Seq.ofArray │
00:04:15 #18263 [verbose] > │ let v69 : string seq = v68 v67 │
00:04:15 #18264 [verbose] > │ let v70 : string = method1() │
00:04:15 #18265 [verbose] > │ let v71 : (string -> (string seq -> string)) = String.concat │
00:04:15 #18266 [verbose] > │ let v72 : (string seq -> string) = v71 v70 │
00:04:15 #18267 [verbose] > │ let v73 : string = v72 v69 │
00:04:15 #18268 [verbose] > │ let v74 : string = $"%A{v73}" │
00:04:15 #18269 [verbose] > │ System.Console.WriteLine v74 │
00:04:15 #18270 [verbose] > │ let v76 : bool = v73 = "12...67" │
00:04:15 #18271 [verbose] > │ let v78 : bool = │
00:04:15 #18272 [verbose] > │ if v76 then │
00:04:15 #18273 [verbose] > │ true │
00:04:15 #18274 [verbose] > │ else │
00:04:15 #18275 [verbose] > │ method2(v76) │
00:04:15 #18276 [verbose] > │ let v79 : string = "12...67" │
00:04:15 #18277 [verbose] > │ let v80 : string = $"__expect / actual: %A{v73} / expected: %A{v79}" │
00:04:15 #18278 [verbose] > │ let v81 : bool = v78 = false │
00:04:15 #18279 [verbose] > │ if v81 then │
00:04:15 #18280 [verbose] > │ failwith<unit> v80 │
00:04:15 #18281 [verbose] > │ method0() │
00:04:15 #18282 [verbose] > │ │
00:04:15 #18283 [verbose] > │ "1...5" │
00:04:15 #18284 [verbose] > │ "12...5" │
00:04:15 #18285 [verbose] > │ "12...67" │
00:04:15 #18286 [verbose] > │ │
00:04:15 #18287 [verbose] > ╰──────────────────────────────────────────────────────────────────────────────╯
00:04:15 #18288 [verbose] >
00:04:15 #18289 [verbose] > ── markdown ────────────────────────────────────────────────────────────────────
00:04:15 #18290 [verbose] > ╭──────────────────────────────────────────────────────────────────────────────╮
00:04:15 #18291 [verbose] > │ ## format_ellipsis │
00:04:15 #18292 [verbose] > ╰──────────────────────────────────────────────────────────────────────────────╯
00:04:15 #18293 [verbose] >
00:04:15 #18294 [verbose] > ── spiral ──────────────────────────────────────────────────────────────────────
00:04:15 #18295 [verbose] > inl format_ellipsis s =
00:04:15 #18296 [verbose] > s
00:04:15 #18297 [verbose] > |> format_debug
00:04:15 #18298 [verbose] > |> ellipsis_end 400
00:04:15 #18299 [verbose] > Building c:\home\git\polyglot\target\polyglot\spiral_eval\packages\1d0642284c1f826fcbe125a91cf69c983246aec6102e427c30c153dd0620b93b\main.spi
00:04:15 #18300 [verbose] >
00:04:15 #18301 [verbose] > ╭─[ 214.60ms - stdout ]────────────────────────────────────────────────────────╮
00:04:15 #18302 [verbose] > │ () │
00:04:15 #18303 [verbose] > │ │
00:04:15 #18304 [verbose] > │ │
00:04:15 #18305 [verbose] > ╰──────────────────────────────────────────────────────────────────────────────╯
00:04:15 #18306 [verbose] >
00:04:15 #18307 [verbose] > ── markdown ────────────────────────────────────────────────────────────────────
00:04:15 #18308 [verbose] > ╭──────────────────────────────────────────────────────────────────────────────╮
00:04:15 #18309 [verbose] > │ ## split │
00:04:15 #18310 [verbose] > ╰──────────────────────────────────────────────────────────────────────────────╯
00:04:15 #18311 [verbose] >
00:04:15 #18312 [verbose] > ── spiral ──────────────────────────────────────────────────────────────────────
00:04:15 #18313 [verbose] > inl split (separator : string) (str : string) : array_base string =
00:04:15 #18314 [verbose] > $"!str.Split !separator"
00:04:15 #18315 [verbose] > Building c:\home\git\polyglot\target\polyglot\spiral_eval\packages\9d2c857cdc4d172cb1f650f100534daa5cd293cb6e084b4df1eb84a573c22352\main.spi
00:04:15 #18316 [verbose] >
00:04:15 #18317 [verbose] > ╭─[ 235.11ms - stdout ]────────────────────────────────────────────────────────╮
00:04:15 #18318 [verbose] > │ () │
00:04:15 #18319 [verbose] > │ │
00:04:15 #18320 [verbose] > │ │
00:04:15 #18321 [verbose] > ╰──────────────────────────────────────────────────────────────────────────────╯
00:04:15 #18322 [verbose] >
00:04:15 #18323 [verbose] > ── markdown ────────────────────────────────────────────────────────────────────
00:04:15 #18324 [verbose] > ╭──────────────────────────────────────────────────────────────────────────────╮
00:04:15 #18325 [verbose] > │ ## split_string │
00:04:15 #18326 [verbose] > ╰──────────────────────────────────────────────────────────────────────────────╯
00:04:15 #18327 [verbose] >
00:04:15 #18328 [verbose] > ── spiral ──────────────────────────────────────────────────────────────────────
00:04:15 #18329 [verbose] > inl split_string (separator : array_base string) (str : string) : array_base
00:04:15 #18330 [verbose] > string =
00:04:15 #18331 [verbose] > run_target function
00:04:15 #18332 [verbose] > | Fsharp (Native) => fun () => $"!str.Split (!separator,
00:04:15 #18333 [verbose] > System.StringSplitOptions.None)"
00:04:15 #18334 [verbose] > | _ => fun () => str |> split ((a separator : _ i32 _) |> seq.of_array
00:04:15 #18335 [verbose] > |> concat "")
00:04:15 #18336 [verbose] > Building c:\home\git\polyglot\target\polyglot\spiral_eval\packages\a4b9e29b498d567f4f7e355c3c6873aeba7db72d63462e509c070abf05520967\main.spi
00:04:15 #18337 [verbose] >
00:04:15 #18338 [verbose] > ╭─[ 233.53ms - stdout ]────────────────────────────────────────────────────────╮
00:04:15 #18339 [verbose] > │ () │
00:04:15 #18340 [verbose] > │ │
00:04:15 #18341 [verbose] > │ │
00:04:15 #18342 [verbose] > ╰──────────────────────────────────────────────────────────────────────────────╯
00:04:15 #18343 [verbose] >
00:04:15 #18344 [verbose] > ── markdown ────────────────────────────────────────────────────────────────────
00:04:15 #18345 [verbose] > ╭──────────────────────────────────────────────────────────────────────────────╮
00:04:15 #18346 [verbose] > │ ## join' │
00:04:15 #18347 [verbose] > ╰──────────────────────────────────────────────────────────────────────────────╯
00:04:15 #18348 [verbose] >
00:04:15 #18349 [verbose] > ── spiral ──────────────────────────────────────────────────────────────────────
00:04:15 #18350 [verbose] > inl join' (concat : string) (s : a i32 string) : string =
00:04:15 #18351 [verbose] > $"System.String.Join (!concat, !s)"
00:04:16 #18352 [verbose] > Building c:\home\git\polyglot\target\polyglot\spiral_eval\packages\5920c02c273bf532337bf5de2fa90f3894f985c2fa78d497ab62146a3854185f\main.spi
00:04:16 #18353 [verbose] >
00:04:16 #18354 [verbose] > ╭─[ 195.83ms - stdout ]────────────────────────────────────────────────────────╮
00:04:16 #18355 [verbose] > │ () │
00:04:16 #18356 [verbose] > │ │
00:04:16 #18357 [verbose] > │ │
00:04:16 #18358 [verbose] > ╰──────────────────────────────────────────────────────────────────────────────╯
00:04:16 #18359 [verbose] >
00:04:16 #18360 [verbose] > ── markdown ────────────────────────────────────────────────────────────────────
00:04:16 #18361 [verbose] > ╭──────────────────────────────────────────────────────────────────────────────╮
00:04:16 #18362 [verbose] > │ ## to_char_array │
00:04:16 #18363 [verbose] > ╰──────────────────────────────────────────────────────────────────────────────╯
00:04:16 #18364 [verbose] >
00:04:16 #18365 [verbose] > ── spiral ──────────────────────────────────────────────────────────────────────
00:04:16 #18366 [verbose] > inl to_char_array (str : string) : a i32 char =
00:04:16 #18367 [verbose] > am.init (str |> sm.length) (fun i => sm.index str i)
00:04:16 #18368 [verbose] > Building c:\home\git\polyglot\target\polyglot\spiral_eval\packages\d3aa70924329146f5d4a4de1532198498aed537de06a82329f7bf5a8ae6826dc\main.spi
00:04:16 #18369 [verbose] >
00:04:16 #18370 [verbose] > ╭─[ 232.31ms - stdout ]────────────────────────────────────────────────────────╮
00:04:16 #18371 [verbose] > │ () │
00:04:16 #18372 [verbose] > │ │
00:04:16 #18373 [verbose] > │ │
00:04:16 #18374 [verbose] > ╰──────────────────────────────────────────────────────────────────────────────╯
00:04:16 #18375 [verbose] >
00:04:16 #18376 [verbose] > ── spiral ──────────────────────────────────────────────────────────────────────
00:04:16 #18377 [verbose] > // // test
00:04:16 #18378 [verbose] >
00:04:16 #18379 [verbose] > "abc"
00:04:16 #18380 [verbose] > |> to_char_array
00:04:16 #18381 [verbose] > |> _assert_eq (a ;[['a'; 'b'; 'c']])
00:04:16 #18382 [verbose] > Building c:\home\git\polyglot\target\polyglot\spiral_eval\packages\5b476a5c3f6cea58bf7720bf7716082fba70dcd3107793e258f7b35047b72cbf\main.spi
00:04:16 #18383 [verbose] >
00:04:16 #18384 [verbose] > ╭─[ 342.08ms - stdout ]────────────────────────────────────────────────────────╮
00:04:16 #18385 [verbose] > │ type Mut0 = {mutable l0 : int32} │
00:04:16 #18386 [verbose] > │ let rec method1 (v0 : Mut0) : bool = │
00:04:16 #18387 [verbose] > │ let v1 : int32 = v0.l0 │
00:04:16 #18388 [verbose] > │ let v2 : bool = v1 < 3 │
00:04:16 #18389 [verbose] > │ v2 │
00:04:16 #18390 [verbose] > │ and method2 (v0 : (char []), v1 : (char []), v2 : int32) : bool = │
00:04:16 #18391 [verbose] > │ let v3 : int32 = v0.Length │
00:04:16 #18392 [verbose] > │ let v4 : bool = v2 < v3 │
00:04:16 #18393 [verbose] > │ if v4 then │
00:04:16 #18394 [verbose] > │ let v5 : char = v0.[int v2] │
00:04:16 #18395 [verbose] > │ let v6 : char = v1.[int v2] │
00:04:16 #18396 [verbose] > │ let v7 : bool = v5 = v6 │
00:04:16 #18397 [verbose] > │ if v7 then │
00:04:16 #18398 [verbose] > │ let v8 : int32 = v2 + 1 │
00:04:16 #18399 [verbose] > │ method2(v0, v1, v8) │
00:04:16 #18400 [verbose] > │ else │
00:04:16 #18401 [verbose] > │ false │
00:04:16 #18402 [verbose] > │ else │
00:04:16 #18403 [verbose] > │ true │
00:04:16 #18404 [verbose] > │ and method3 (v0 : bool) : bool = │
00:04:16 #18405 [verbose] > │ v0 │
00:04:16 #18406 [verbose] > │ and method0 () : unit = │
00:04:16 #18407 [verbose] > │ let v0 : (char []) = Array.zeroCreate<char> (3) │
00:04:16 #18408 [verbose] > │ let v1 : Mut0 = {l0 = 0} : Mut0 │
00:04:16 #18409 [verbose] > │ while method1(v1) do │
00:04:16 #18410 [verbose] > │ let v3 : int32 = v1.l0 │
00:04:16 #18411 [verbose] > │ let v4 : char = "abc".[int v3] │
00:04:16 #18412 [verbose] > │ v0.[int v3] <- v4 │
00:04:16 #18413 [verbose] > │ let v5 : int32 = v3 + 1 │
00:04:16 #18414 [verbose] > │ v1.l0 <- v5 │
00:04:16 #18415 [verbose] > │ () │
00:04:16 #18416 [verbose] > │ let v6 : (char []) = [|'a'; 'b'; 'c'|] │
00:04:16 #18417 [verbose] > │ let v7 : string = $"%A{v0}" │
00:04:16 #18418 [verbose] > │ System.Console.WriteLine v7 │
00:04:16 #18419 [verbose] > │ let v8 : int32 = v0.Length │
00:04:16 #18420 [verbose] > │ let v9 : int32 = v6.Length │
00:04:16 #18421 [verbose] > │ let v10 : bool = v8 = v9 │
00:04:16 #18422 [verbose] > │ let v11 : bool = v10 <> true │
00:04:16 #18423 [verbose] > │ let v14 : bool = │
00:04:16 #18424 [verbose] > │ if v11 then │
00:04:16 #18425 [verbose] > │ false │
00:04:16 #18426 [verbose] > │ else │
00:04:16 #18427 [verbose] > │ let v12 : int32 = 0 │
00:04:16 #18428 [verbose] > │ method2(v0, v6, v12) │
00:04:16 #18429 [verbose] > │ let v16 : bool = │
00:04:16 #18430 [verbose] > │ if v14 then │
00:04:16 #18431 [verbose] > │ true │
00:04:16 #18432 [verbose] > │ else │
00:04:16 #18433 [verbose] > │ method3(v14) │
00:04:16 #18434 [verbose] > │ let v17 : string = $"__expect / actual: %A{v0} / expected: %A{v6}" │
00:04:16 #18435 [verbose] > │ let v18 : bool = v16 = false │
00:04:16 #18436 [verbose] > │ if v18 then │
00:04:16 #18437 [verbose] > │ failwith<unit> v17 │
00:04:16 #18438 [verbose] > │ method0() │
00:04:16 #18439 [verbose] > │ │
00:04:16 #18440 [verbose] > │ [|'a'; 'b'; 'c'|] │
00:04:16 #18441 [verbose] > │ │
00:04:16 #18442 [verbose] > ╰──────────────────────────────────────────────────────────────────────────────╯
00:04:16 #18443 [verbose] >
00:04:16 #18444 [verbose] > ── markdown ────────────────────────────────────────────────────────────────────
00:04:16 #18445 [verbose] > ╭──────────────────────────────────────────────────────────────────────────────╮
00:04:16 #18446 [verbose] > │ ## to_char_list │
00:04:16 #18447 [verbose] > ╰──────────────────────────────────────────────────────────────────────────────╯
00:04:16 #18448 [verbose] >
00:04:16 #18449 [verbose] > ── spiral ──────────────────────────────────────────────────────────────────────
00:04:16 #18450 [verbose] > inl to_char_list (str : string) : list char =
00:04:16 #18451 [verbose] > listm.init (str |> sm.length) (fun (i : i64) => sm.index str i)
00:04:16 #18452 [verbose] > Building c:\home\git\polyglot\target\polyglot\spiral_eval\packages\bc08ee75a1e2e8c7ef1e9268c8c1acf50d9c184a259fa3f38bf6991ef7bd907f\main.spi
00:04:16 #18453 [verbose] >
00:04:16 #18454 [verbose] > ╭─[ 242.84ms - stdout ]────────────────────────────────────────────────────────╮
00:04:16 #18455 [verbose] > │ () │
00:04:16 #18456 [verbose] > │ │
00:04:16 #18457 [verbose] > │ │
00:04:16 #18458 [verbose] > ╰──────────────────────────────────────────────────────────────────────────────╯
00:04:16 #18459 [verbose] >
00:04:16 #18460 [verbose] > ── spiral ──────────────────────────────────────────────────────────────────────
00:04:16 #18461 [verbose] > // // test
00:04:16 #18462 [verbose] >
00:04:16 #18463 [verbose] > "abc"
00:04:16 #18464 [verbose] > |> to_char_list
00:04:16 #18465 [verbose] > |> _assert_eq [['a'; 'b'; 'c']]
00:04:17 #18466 [verbose] > Building c:\home\git\polyglot\target\polyglot\spiral_eval\packages\c40b9e07b0dc8a419c7beedb03e2d386124cd5c30173f431948f43e58fb47aab\main.spi
00:04:17 #18467 [verbose] >
00:04:17 #18468 [verbose] > ╭─[ 284.06ms - stdout ]────────────────────────────────────────────────────────╮
00:04:17 #18469 [verbose] > │ type UH0 = │
00:04:17 #18470 [verbose] > │ | UH0_0 │
00:04:17 #18471 [verbose] > │ | UH0_1 of char * UH0 │
00:04:17 #18472 [verbose] > │ let rec method0 () : unit = │
00:04:17 #18473 [verbose] > │ let v0 : UH0 = UH0_0 │
00:04:17 #18474 [verbose] > │ let v1 : UH0 = UH0_1('c', v0) │
00:04:17 #18475 [verbose] > │ let v2 : UH0 = UH0_1('b', v1) │
00:04:17 #18476 [verbose] > │ let v3 : UH0 = UH0_1('a', v2) │
00:04:17 #18477 [verbose] > │ let v4 : string = $"%A{v3}" │
00:04:17 #18478 [verbose] > │ System.Console.WriteLine v4 │
00:04:17 #18479 [verbose] > │ let v23 : UH0 = UH0_0 │
00:04:17 #18480 [verbose] > │ let v24 : UH0 = UH0_1('c', v23) │
00:04:17 #18481 [verbose] > │ let v25 : UH0 = UH0_1('b', v24) │
00:04:17 #18482 [verbose] > │ let v26 : UH0 = UH0_1('a', v25) │
00:04:17 #18483 [verbose] > │ let v27 : UH0 = UH0_0 │
00:04:17 #18484 [verbose] > │ let v28 : UH0 = UH0_1('c', v27) │
00:04:17 #18485 [verbose] > │ let v29 : UH0 = UH0_1('b', v28) │
00:04:17 #18486 [verbose] > │ let v30 : UH0 = UH0_1('a', v29) │
00:04:17 #18487 [verbose] > │ let v31 : string = $"__expect / actual: %A{v26} / expected: %A{v30}" │
00:04:17 #18488 [verbose] > │ () │
00:04:17 #18489 [verbose] > │ method0() │
00:04:17 #18490 [verbose] > │ │
00:04:17 #18491 [verbose] > │ UH0_1 ('a', UH0_1 ('b', UH0_1 ('c', UH0_0))) │
00:04:17 #18492 [verbose] > │ │
00:04:17 #18493 [verbose] > ╰──────────────────────────────────────────────────────────────────────────────╯
00:04:17 #18494 [verbose] >
00:04:17 #18495 [verbose] > ── spiral ──────────────────────────────────────────────────────────────────────
00:04:17 #18496 [verbose] > nominal encoding = $'System.Text.Encoding'
00:04:17 #18497 [verbose] >
00:04:17 #18498 [verbose] > inl encoding_utf8 () : encoding =
00:04:17 #18499 [verbose] > $'System.Text.Encoding.UTF8'
00:04:17 #18500 [verbose] > Building c:\home\git\polyglot\target\polyglot\spiral_eval\packages\b38c704ad8989137121f36311caae9292694ffe03473e777ebfe784ead5ddec8\main.spi
00:04:17 #18501 [verbose] >
00:04:17 #18502 [verbose] > ╭─[ 253.52ms - stdout ]────────────────────────────────────────────────────────╮
00:04:17 #18503 [verbose] > │ () │
00:04:17 #18504 [verbose] > │ │
00:04:17 #18505 [verbose] > │ │
00:04:17 #18506 [verbose] > ╰──────────────────────────────────────────────────────────────────────────────╯
00:04:17 #18507 [verbose] >
00:04:17 #18508 [verbose] > ── markdown ────────────────────────────────────────────────────────────────────
00:04:17 #18509 [verbose] > ╭──────────────────────────────────────────────────────────────────────────────╮
00:04:17 #18510 [verbose] > │ ## utf8_get_bytes │
00:04:17 #18511 [verbose] > ╰──────────────────────────────────────────────────────────────────────────────╯
00:04:17 #18512 [verbose] >
00:04:17 #18513 [verbose] > ── spiral ──────────────────────────────────────────────────────────────────────
00:04:17 #18514 [verbose] > inl utf8_get_bytes (s : string) : a i32 u8 =
00:04:17 #18515 [verbose] > s |> $'`encoding.UTF8.GetBytes'
00:04:17 #18516 [verbose] > Building c:\home\git\polyglot\target\polyglot\spiral_eval\packages\17e3f70e3fc9c31395630b8e70a03d65f4dd1c04b0a491d957d3dd9fe7bd9f74\main.spi
00:04:17 #18517 [verbose] >
00:04:17 #18518 [verbose] > ╭─[ 216.91ms - stdout ]────────────────────────────────────────────────────────╮
00:04:17 #18519 [verbose] > │ () │
00:04:17 #18520 [verbose] > │ │
00:04:17 #18521 [verbose] > │ │
00:04:17 #18522 [verbose] > ╰──────────────────────────────────────────────────────────────────────────────╯
00:04:17 #18523 [verbose] >
00:04:17 #18524 [verbose] > ── markdown ────────────────────────────────────────────────────────────────────
00:04:17 #18525 [verbose] > ╭──────────────────────────────────────────────────────────────────────────────╮
00:04:17 #18526 [verbose] > │ ## byte_to_string │
00:04:17 #18527 [verbose] > ╰──────────────────────────────────────────────────────────────────────────────╯
00:04:17 #18528 [verbose] >
00:04:17 #18529 [verbose] > ── spiral ──────────────────────────────────────────────────────────────────────
00:04:17 #18530 [verbose] > inl byte_to_string (format : string) (x : u8) : string =
00:04:17 #18531 [verbose] > $'!x.ToString' format
00:04:17 #18532 [verbose] > Building c:\home\git\polyglot\target\polyglot\spiral_eval\packages\83bdafc066791c87da6c489ed60b56aa59dad5ad02b9fbab1405df6c33a223d0\main.spi
00:04:17 #18533 [verbose] >
00:04:17 #18534 [verbose] > ╭─[ 248.31ms - stdout ]────────────────────────────────────────────────────────╮
00:04:17 #18535 [verbose] > │ () │
00:04:17 #18536 [verbose] > │ │
00:04:17 #18537 [verbose] > │ │
00:04:17 #18538 [verbose] > ╰──────────────────────────────────────────────────────────────────────────────╯
00:04:17 #18539 [verbose] >
00:04:17 #18540 [verbose] > ── markdown ────────────────────────────────────────────────────────────────────
00:04:17 #18541 [verbose] > ╭──────────────────────────────────────────────────────────────────────────────╮
00:04:17 #18542 [verbose] > │ ## to_string std_string │
00:04:17 #18543 [verbose] > ╰──────────────────────────────────────────────────────────────────────────────╯
00:04:17 #18544 [verbose] >
00:04:17 #18545 [verbose] > ── spiral ──────────────────────────────────────────────────────────────────────
00:04:17 #18546 [verbose] > open rust
00:04:17 #18547 [verbose] > instance to_string std_string = from_std_string
00:04:18 #18548 [verbose] > Building c:\home\git\polyglot\target\polyglot\spiral_eval\packages\85de90b09b00128be2652a9e26c29b174f05ad76d2592ab093e12d78c6c13652\main.spi
00:04:18 #18549 [verbose] >
00:04:18 #18550 [verbose] > ╭─[ 587.65ms - stdout ]────────────────────────────────────────────────────────╮
00:04:18 #18551 [verbose] > │ () │
00:04:18 #18552 [verbose] > │ │
00:04:18 #18553 [verbose] > │ │
00:04:18 #18554 [verbose] > ╰──────────────────────────────────────────────────────────────────────────────╯
00:04:18 #18555 [verbose] >
00:04:18 #18556 [verbose] > ── markdown ────────────────────────────────────────────────────────────────────
00:04:18 #18557 [verbose] > ╭──────────────────────────────────────────────────────────────────────────────╮
00:04:18 #18558 [verbose] > │ ## main │
00:04:18 #18559 [verbose] > ╰──────────────────────────────────────────────────────────────────────────────╯
00:04:18 #18560 [verbose] >
00:04:18 #18561 [verbose] > ── spiral ──────────────────────────────────────────────────────────────────────
00:04:18 #18562 [verbose] > inl main () =
00:04:18 #18563 [verbose] > $"let contains x = !contains x" : ()
00:04:18 #18564 [verbose] > $"let ends_with x = !ends_with x" : ()
00:04:18 #18565 [verbose] > $"let pad_left x = !pad_left x" : ()
00:04:18 #18566 [verbose] > $"let pad_right x = !pad_right x" : ()
00:04:18 #18567 [verbose] > $"let replace x = !replace x" : ()
00:04:18 #18568 [verbose] > inl slice (a : i32) (b : i32) c = slice a b c
00:04:18 #18569 [verbose] > $"let slice x = !slice x" : ()
00:04:18 #18570 [verbose] > $"let split x = !split x" : ()
00:04:18 #18571 [verbose] > $"let split_string x = !split_string x" : ()
00:04:18 #18572 [verbose] > $"let starts_with x = !starts_with x" : ()
00:04:18 #18573 [verbose] > $"let substring x = !substring x" : ()
00:04:18 #18574 [verbose] > $"let to_lower x = !to_lower x" : ()
00:04:18 #18575 [verbose] > $"let to_upper x = !to_upper x" : ()
00:04:18 #18576 [verbose] > $"let trim x = !trim x" : ()
00:04:18 #18577 [verbose] > $"let trim_end x = !trim_end x" : ()
00:04:18 #18578 [verbose] > $"let trim_start x = !trim_start x" : ()
00:04:18 #18579 [verbose] > $"let ellipsis x = !ellipsis x" : ()
00:04:18 #18580 [verbose] > $"let ellipsis_end x = !ellipsis_end x" : ()
00:04:18 #18581 [verbose] > $"let format_exception x = !format_exception x" : ()
00:04:18 #18582 [verbose] > $"let concat_array_trailing x = !concat_array_trailing x" : ()
00:04:18 #18583 [verbose] > inl concat a (b : seq.seq' string) = concat a b
00:04:18 #18584 [verbose] > $"let concat x = !concat x" : ()
00:04:18 #18585 [verbose] > $"let join' x = !join' x" : ()
00:04:18 #18586 [verbose] > $"let to_char_array x = !to_char_array x" : ()
00:04:18 #18587 [verbose] > Building c:\home\git\polyglot\target\polyglot\spiral_eval\packages\11984114642ad623b9864e5aed01c1d9c415ac8db88f989ed9931491a74a5585\main.spi
00:04:19 #18588 [verbose] >
00:04:19 #18589 [verbose] > ╭─[ 621.40ms - stdout ]────────────────────────────────────────────────────────╮
00:04:19 #18590 [verbose] > │ type Mut0 = {mutable l0 : int32; mutable l1 : string} │
00:04:19 #18591 [verbose] > │ and Mut1 = {mutable l0 : int32} │
00:04:19 #18592 [verbose] > │ let rec closure1 (v0 : string) (v1 : string) : bool = │
00:04:19 #18593 [verbose] > │ let v2 : bool = v1.Contains v0 │
00:04:19 #18594 [verbose] > │ v2 │
00:04:19 #18595 [verbose] > │ and closure0 () (v0 : string) : (string -> bool) = │
00:04:19 #18596 [verbose] > │ closure1(v0) │
00:04:19 #18597 [verbose] > │ and closure3 (v0 : string) (v1 : string) : bool = │
00:04:19 #18598 [verbose] > │ let v2 : bool = v1.EndsWith v0 │
00:04:19 #18599 [verbose] > │ v2 │
00:04:19 #18600 [verbose] > │ and closure2 () (v0 : string) : (string -> bool) = │
00:04:19 #18601 [verbose] > │ closure3(v0) │
00:04:19 #18602 [verbose] > │ and closure6 (v0 : int32, v1 : char) (v2 : string) : string = │
00:04:19 #18603 [verbose] > │ let v3 : string = v2.PadLeft (v0, v1) │
00:04:19 #18604 [verbose] > │ v3 │
00:04:19 #18605 [verbose] > │ and closure5 (v0 : int32) (v1 : char) : (string -> string) = │
00:04:19 #18606 [verbose] > │ closure6(v0, v1) │
00:04:19 #18607 [verbose] > │ and closure4 () (v0 : int32) : (char -> (string -> string)) = │
00:04:19 #18608 [verbose] > │ closure5(v0) │
00:04:19 #18609 [verbose] > │ and closure8 (v0 : int32) (v1 : string) : string = │
00:04:19 #18610 [verbose] > │ let v2 : string = v1.PadRight v0 │
00:04:19 #18611 [verbose] > │ v2 │
00:04:19 #18612 [verbose] > │ and closure7 () (v0 : int32) : (string -> string) = │
00:04:19 #18613 [verbose] > │ closure8(v0) │
00:04:19 #18614 [verbose] > │ and closure11 (v0 : string, v1 : string) (v2 : string) : string = │
00:04:19 #18615 [verbose] > │ let v3 : string = v2.Replace (v0, v1) │
00:04:19 #18616 [verbose] > │ v3 │
00:04:19 #18617 [verbose] > │ and closure10 (v0 : string) (v1 : string) : (string -> string) = │
00:04:19 #18618 [verbose] > │ closure11(v0, v1) │
00:04:19 #18619 [verbose] > │ and closure9 () (v0 : string) : (string -> (string -> string)) = │
00:04:19 #18620 [verbose] > │ closure10(v0) │
00:04:19 #18621 [verbose] > │ and closure14 (v0 : int32, v1 : int32) (v2 : string) : string = │
00:04:19 #18622 [verbose] > │ let v3 : string = v2.[int v0..int v1] │
00:04:19 #18623 [verbose] > │ v3 │
00:04:19 #18624 [verbose] > │ and closure13 (v0 : int32) (v1 : int32) : (string -> string) = │
00:04:19 #18625 [verbose] > │ closure14(v0, v1) │
00:04:19 #18626 [verbose] > │ and closure12 () (v0 : int32) : (int32 -> (string -> string)) = │
00:04:19 #18627 [verbose] > │ closure13(v0) │
00:04:19 #18628 [verbose] > │ and closure16 (v0 : string) (v1 : string) : (string []) = │
00:04:19 #18629 [verbose] > │ let v2 : (string []) = v1.Split v0 │
00:04:19 #18630 [verbose] > │ v2 │
00:04:19 #18631 [verbose] > │ and closure15 () (v0 : string) : (string -> (string [])) = │
00:04:19 #18632 [verbose] > │ closure16(v0) │
00:04:19 #18633 [verbose] > │ and method0 () : string = │
00:04:19 #18634 [verbose] > │ let v0 : string = "" │
00:04:19 #18635 [verbose] > │ v0 │
00:04:19 #18636 [verbose] > │ and closure18 (v0 : (string [])) (v1 : string) : (string []) = │
00:04:19 #18637 [verbose] > │ let v2 : (string []) option = None │
00:04:19 #18638 [verbose] > │ let mutable _v2 = v2 │
00:04:19 #18639 [verbose] > │ #if FABLE_COMPILER_RUST && !WASM && !CONTRACT │
00:04:19 #18640 [verbose] > │ let v3 : ((string []) -> string seq) = Seq.ofArray │
00:04:19 #18641 [verbose] > │ let v4 : string seq = v3 v0 │
00:04:19 #18642 [verbose] > │ let v5 : string = method0() │
00:04:19 #18643 [verbose] > │ let v6 : (string -> (string seq -> string)) = String.concat │
00:04:19 #18644 [verbose] > │ let v7 : (string seq -> string) = v6 v5 │
00:04:19 #18645 [verbose] > │ let v8 : string = v7 v4 │
00:04:19 #18646 [verbose] > │ let v9 : (string []) = v1.Split v8 │
00:04:19 #18647 [verbose] > │ v9 │
00:04:19 #18648 [verbose] > │ #endif │
00:04:19 #18649 [verbose] > │ #if FABLE_COMPILER_RUST && WASM │
00:04:19 #18650 [verbose] > │ let v10 : ((string []) -> string seq) = Seq.ofArray │
00:04:19 #18651 [verbose] > │ let v11 : string seq = v10 v0 │
00:04:19 #18652 [verbose] > │ let v12 : string = method0() │
00:04:19 #18653 [verbose] > │ let v13 : (string -> (string seq -> string)) = String.concat │
00:04:19 #18654 [verbose] > │ let v14 : (string seq -> string) = v13 v12 │
00:04:19 #18655 [verbose] > │ let v15 : string = v14 v11 │
00:04:19 #18656 [verbose] > │ let v16 : (string []) = v1.Split v15 │
00:04:19 #18657 [verbose] > │ v16 │
00:04:19 #18658 [verbose] > │ #endif │
00:04:19 #18659 [verbose] > │ #if FABLE_COMPILER_RUST && CONTRACT │
00:04:19 #18660 [verbose] > │ let v17 : ((string []) -> string seq) = Seq.ofArray │
00:04:19 #18661 [verbose] > │ let v18 : string seq = v17 v0 │
00:04:19 #18662 [verbose] > │ let v19 : string = method0() │
00:04:19 #18663 [verbose] > │ let v20 : (string -> (string seq -> string)) = String.concat │
00:04:19 #18664 [verbose] > │ let v21 : (string seq -> string) = v20 v19 │
00:04:19 #18665 [verbose] > │ let v22 : string = v21 v18 │
00:04:19 #18666 [verbose] > │ let v23 : (string []) = v1.Split v22 │
00:04:19 #18667 [verbose] > │ v23 │
00:04:19 #18668 [verbose] > │ #endif │
00:04:19 #18669 [verbose] > │ #if !FABLE_COMPILER && !FABLE_COMPILER_RUST && │
00:04:19 #18670 [verbose] > │ !FABLE_COMPILER_TYPESCRIPT && !WASM && !CONTRACT │
00:04:19 #18671 [verbose] > │ let v24 : (string []) = v1.Split (v0, System.StringSplitOptions.None) │
00:04:19 #18672 [verbose] > │ v24 │
00:04:19 #18673 [verbose] > │ #endif │
00:04:19 #18674 [verbose] > │ #if FABLE_COMPILER_TYPESCRIPT │
00:04:19 #18675 [verbose] > │ let v25 : ((string []) -> string seq) = Seq.ofArray │
00:04:19 #18676 [verbose] > │ let v26 : string seq = v25 v0 │
00:04:19 #18677 [verbose] > │ let v27 : string = method0() │
00:04:19 #18678 [verbose] > │ let v28 : (string -> (string seq -> string)) = String.concat │
00:04:19 #18679 [verbose] > │ let v29 : (string seq -> string) = v28 v27 │
00:04:19 #18680 [verbose] > │ let v30 : string = v29 v26 │
00:04:19 #18681 [verbose] > │ let v31 : (string []) = v1.Split v30 │
00:04:19 #18682 [verbose] > │ v31 │
00:04:19 #18683 [verbose] > │ #endif │
00:04:19 #18684 [verbose] > │ #if FABLE_COMPILER_PYTHON || FABLE_COMPILER_PHP || FABLE_COMPILER_DART │
00:04:19 #18685 [verbose] > │ let v32 : (string []) = Unchecked.defaultof<(string [])> │
00:04:19 #18686 [verbose] > │ v32 │
00:04:19 #18687 [verbose] > │ #endif │
00:04:19 #18688 [verbose] > │ |> fun x -> _v2 <- Some x │
00:04:19 #18689 [verbose] > │ let v33 : (string []) = _v2.Value │
00:04:19 #18690 [verbose] > │ v33 │
00:04:19 #18691 [verbose] > │ and closure17 () (v0 : (string [])) : (string -> (string [])) = │
00:04:19 #18692 [verbose] > │ closure18(v0) │
00:04:19 #18693 [verbose] > │ and closure20 (v0 : string) (v1 : string) : bool = │
00:04:19 #18694 [verbose] > │ let v2 : bool = v1.StartsWith v0 │
00:04:19 #18695 [verbose] > │ v2 │
00:04:19 #18696 [verbose] > │ and closure19 () (v0 : string) : (string -> bool) = │
00:04:19 #18697 [verbose] > │ closure20(v0) │
00:04:19 #18698 [verbose] > │ and closure23 (v0 : int32, v1 : int32) (v2 : string) : string = │
00:04:19 #18699 [verbose] > │ let v3 : string = v2.Substring (v0, v1) │
00:04:19 #18700 [verbose] > │ v3 │
00:04:19 #18701 [verbose] > │ and closure22 (v0 : int32) (v1 : int32) : (string -> string) = │
00:04:19 #18702 [verbose] > │ closure23(v0, v1) │
00:04:19 #18703 [verbose] > │ and closure21 () (v0 : int32) : (int32 -> (string -> string)) = │
00:04:19 #18704 [verbose] > │ closure22(v0) │
00:04:19 #18705 [verbose] > │ and closure24 () (v0 : string) : string = │
00:04:19 #18706 [verbose] > │ let v1 : string = v0.ToLower () │
00:04:19 #18707 [verbose] > │ v1 │
00:04:19 #18708 [verbose] > │ and closure25 () (v0 : string) : string = │
00:04:19 #18709 [verbose] > │ let v1 : string = v0.ToUpper () │
00:04:19 #18710 [verbose] > │ v1 │
00:04:19 #18711 [verbose] > │ and closure26 () (v0 : string) : string = │
00:04:19 #18712 [verbose] > │ let v1 : string = v0.Trim () │
00:04:19 #18713 [verbose] > │ v1 │
00:04:19 #18714 [verbose] > │ and closure28 (v0 : (char [])) (v1 : string) : string = │
00:04:19 #18715 [verbose] > │ let v2 : string = v1.TrimEnd v0 │
00:04:19 #18716 [verbose] > │ v2 │
00:04:19 #18717 [verbose] > │ and closure27 () (v0 : (char [])) : (string -> string) = │
00:04:19 #18718 [verbose] > │ closure28(v0) │
00:04:19 #18719 [verbose] > │ and closure30 (v0 : (char [])) (v1 : string) : string = │
00:04:19 #18720 [verbose] > │ let v2 : string = v1.TrimStart v0 │
00:04:19 #18721 [verbose] > │ v2 │
00:04:19 #18722 [verbose] > │ and closure29 () (v0 : (char [])) : (string -> string) = │
00:04:19 #18723 [verbose] > │ closure30(v0) │
00:04:19 #18724 [verbose] > │ and closure32 (v0 : int32) (v1 : string) : string = │
00:04:19 #18725 [verbose] > │ let v2 : int32 = v1.Length │
00:04:19 #18726 [verbose] > │ let v3 : bool = v2 <= v0 │
00:04:19 #18727 [verbose] > │ if v3 then │
00:04:19 #18728 [verbose] > │ v1 │
00:04:19 #18729 [verbose] > │ else │
00:04:19 #18730 [verbose] > │ let v4 : int32 = v0 - 1 │
00:04:19 #18731 [verbose] > │ let v5 : string = v1.[int 0..int v4] │
00:04:19 #18732 [verbose] > │ let v6 : string = v5 + "..." │
00:04:19 #18733 [verbose] > │ v6 │
00:04:19 #18734 [verbose] > │ and closure31 () (v0 : int32) : (string -> string) = │
00:04:19 #18735 [verbose] > │ closure32(v0) │
00:04:19 #18736 [verbose] > │ and closure34 (v0 : int64) (v1 : string) : string = │
00:04:19 #18737 [verbose] > │ let v2 : int64 = System.Convert.ToInt64 v1.Length │
00:04:19 #18738 [verbose] > │ let v3 : bool = v2 <= v0 │
00:04:19 #18739 [verbose] > │ if v3 then │
00:04:19 #18740 [verbose] > │ v1 │
00:04:19 #18741 [verbose] > │ else │
00:04:19 #18742 [verbose] > │ let v4 : float = float v0 │
00:04:19 #18743 [verbose] > │ let v5 : float = v4 / 2.0 │
00:04:19 #18744 [verbose] > │ let v6 : (float -> float) = ceil │
00:04:19 #18745 [verbose] > │ let v7 : float = v6 v5 │
00:04:19 #18746 [verbose] > │ let v8 : int64 = int64 v7 │
00:04:19 #18747 [verbose] > │ let v9 : (float -> float) = floor │
00:04:19 #18748 [verbose] > │ let v10 : float = v9 v5 │
00:04:19 #18749 [verbose] > │ let v11 : int64 = int64 v10 │
00:04:19 #18750 [verbose] > │ let v12 : int64 = v8 - 1L │
00:04:19 #18751 [verbose] > │ let v13 : string = v1.[int 0L..int v12] │
00:04:19 #18752 [verbose] > │ let v14 : int64 = v2 - v11 │
00:04:19 #18753 [verbose] > │ let v15 : int64 = v2 - 1L │
00:04:19 #18754 [verbose] > │ let v16 : string = v1.[int v14..int v15] │
00:04:19 #18755 [verbose] > │ let v17 : string = "..." │
00:04:19 #18756 [verbose] > │ let v18 : (string []) = [|v13; v17; v16|] │
00:04:19 #18757 [verbose] > │ let v19 : ((string []) -> string seq) = Seq.ofArray │
00:04:19 #18758 [verbose] > │ let v20 : string seq = v19 v18 │
00:04:19 #18759 [verbose] > │ let v21 : string = method0() │
00:04:19 #18760 [verbose] > │ let v22 : (string -> (string seq -> string)) = String.concat │
00:04:19 #18761 [verbose] > │ let v23 : (string seq -> string) = v22 v21 │
00:04:19 #18762 [verbose] > │ v23 v20 │
00:04:19 #18763 [verbose] > │ and closure33 () (v0 : int64) : (string -> string) = │
00:04:19 #18764 [verbose] > │ closure34(v0) │
00:04:19 #18765 [verbose] > │ and closure35 () (v0 : exn) : string = │
00:04:19 #18766 [verbose] > │ let v1 : string option = None │
00:04:19 #18767 [verbose] > │ let mutable _v1 = v1 │
00:04:19 #18768 [verbose] > │ #if FABLE_COMPILER_RUST && !WASM && !CONTRACT │
00:04:19 #18769 [verbose] > │ let v2 : string = $"%A{v0}" │
00:04:19 #18770 [verbose] > │ v2 │
00:04:19 #18771 [verbose] > │ #endif │
00:04:19 #18772 [verbose] > │ #if FABLE_COMPILER_RUST && WASM │
00:04:19 #18773 [verbose] > │ let v3 : string = $"%A{v0}" │
00:04:19 #18774 [verbose] > │ v3 │
00:04:19 #18775 [verbose] > │ #endif │
00:04:19 #18776 [verbose] > │ #if FABLE_COMPILER_RUST && CONTRACT │
00:04:19 #18777 [verbose] > │ let v4 : string = $"%A{v0}" │
00:04:19 #18778 [verbose] > │ v4 │
00:04:19 #18779 [verbose] > │ #endif │
00:04:19 #18780 [verbose] > │ #if !FABLE_COMPILER && !FABLE_COMPILER_RUST && │
00:04:19 #18781 [verbose] > │ !FABLE_COMPILER_TYPESCRIPT && !WASM && !CONTRACT │
00:04:19 #18782 [verbose] > │ let v5 : string = $"{v0.GetType ()}: {v0.Message}" │
00:04:19 #18783 [verbose] > │ v5 │
00:04:19 #18784 [verbose] > │ #endif │
00:04:19 #18785 [verbose] > │ #if FABLE_COMPILER_TYPESCRIPT │
00:04:19 #18786 [verbose] > │ let v6 : string = $"%A{v0}" │
00:04:19 #18787 [verbose] > │ v6 │
00:04:19 #18788 [verbose] > │ #endif │
00:04:19 #18789 [verbose] > │ #if FABLE_COMPILER_PYTHON || FABLE_COMPILER_PHP || FABLE_COMPILER_DART │
00:04:19 #18790 [verbose] > │ let v7 : string = Unchecked.defaultof<string> │
00:04:19 #18791 [verbose] > │ v7 │
00:04:19 #18792 [verbose] > │ #endif │
00:04:19 #18793 [verbose] > │ |> fun x -> _v1 <- Some x │
00:04:19 #18794 [verbose] > │ let v8 : string = _v1.Value │
00:04:19 #18795 [verbose] > │ v8 │
00:04:19 #18796 [verbose] > │ and method1 (v0 : int32, v1 : Mut0) : bool = │
00:04:19 #18797 [verbose] > │ let v2 : int32 = v1.l0 │
00:04:19 #18798 [verbose] > │ let v3 : bool = v2 < v0 │
00:04:19 #18799 [verbose] > │ v3 │
00:04:19 #18800 [verbose] > │ and closure37 (v0 : string) (v1 : (string [])) : string = │
00:04:19 #18801 [verbose] > │ let v2 : int32 = v1.Length │
00:04:19 #18802 [verbose] > │ let v3 : string = "" │
00:04:19 #18803 [verbose] > │ let v4 : Mut0 = {l0 = 0; l1 = v3} : Mut0 │
00:04:19 #18804 [verbose] > │ while method1(v2, v4) do │
00:04:19 #18805 [verbose] > │ let v6 : int32 = v4.l0 │
00:04:19 #18806 [verbose] > │ let v7 : string = v4.l1 │
00:04:19 #18807 [verbose] > │ let v8 : string = v1.[int v6] │
00:04:19 #18808 [verbose] > │ let v9 : string = v7 + v8 + v0 + "" │
00:04:19 #18809 [verbose] > │ let v10 : int32 = v6 + 1 │
00:04:19 #18810 [verbose] > │ v4.l0 <- v10 │
00:04:19 #18811 [verbose] > │ v4.l1 <- v9 │
00:04:19 #18812 [verbose] > │ () │
00:04:19 #18813 [verbose] > │ let v11 : string = v4.l1 │
00:04:19 #18814 [verbose] > │ v11 │
00:04:19 #18815 [verbose] > │ and closure36 () (v0 : string) : ((string []) -> string) = │
00:04:19 #18816 [verbose] > │ closure37(v0) │
00:04:19 #18817 [verbose] > │ and method2 (v0 : string) : string = │
00:04:19 #18818 [verbose] > │ v0 │
00:04:19 #18819 [verbose] > │ and closure39 (v0 : string) (v1 : string seq) : string = │
00:04:19 #18820 [verbose] > │ let v2 : string = method2(v0) │
00:04:19 #18821 [verbose] > │ let v3 : (string -> (string seq -> string)) = String.concat │
00:04:19 #18822 [verbose] > │ let v4 : (string seq -> string) = v3 v2 │
00:04:19 #18823 [verbose] > │ v4 v1 │
00:04:19 #18824 [verbose] > │ and closure38 () (v0 : string) : (string seq -> string) = │
00:04:19 #18825 [verbose] > │ closure39(v0) │
00:04:19 #18826 [verbose] > │ and closure41 (v0 : string) (v1 : (string [])) : string = │
00:04:19 #18827 [verbose] > │ let v2 : string = System.String.Join (v0, v1) │
00:04:19 #18828 [verbose] > │ v2 │
00:04:19 #18829 [verbose] > │ and closure40 () (v0 : string) : ((string []) -> string) = │
00:04:19 #18830 [verbose] > │ closure41(v0) │
00:04:19 #18831 [verbose] > │ and method3 (v0 : int32, v1 : Mut1) : bool = │
00:04:19 #18832 [verbose] > │ let v2 : int32 = v1.l0 │
00:04:19 #18833 [verbose] > │ let v3 : bool = v2 < v0 │
00:04:19 #18834 [verbose] > │ v3 │
00:04:19 #18835 [verbose] > │ and closure42 () (v0 : string) : (char []) = │
00:04:19 #18836 [verbose] > │ let v1 : int32 = v0.Length │
00:04:19 #18837 [verbose] > │ let v2 : (char []) = Array.zeroCreate<char> (v1) │
00:04:19 #18838 [verbose] > │ let v3 : Mut1 = {l0 = 0} : Mut1 │
00:04:19 #18839 [verbose] > │ while method3(v1, v3) do │
00:04:19 #18840 [verbose] > │ let v5 : int32 = v3.l0 │
00:04:19 #18841 [verbose] > │ let v6 : char = v0.[int v5] │
00:04:19 #18842 [verbose] > │ v2.[int v5] <- v6 │
00:04:19 #18843 [verbose] > │ let v7 : int32 = v5 + 1 │
00:04:19 #18844 [verbose] > │ v3.l0 <- v7 │
00:04:19 #18845 [verbose] > │ () │
00:04:19 #18846 [verbose] > │ v2 │
00:04:19 #18847 [verbose] > │ let v0 : (string -> (string -> bool)) = closure0() │
00:04:19 #18848 [verbose] > │ let contains x = v0 x │
00:04:19 #18849 [verbose] > │ let v1 : (string -> (string -> bool)) = closure2() │
00:04:19 #18850 [verbose] > │ let ends_with x = v1 x │
00:04:19 #18851 [verbose] > │ let v2 : (int32 -> (char -> (string -> string))) = closure4() │
00:04:19 #18852 [verbose] > │ let pad_left x = v2 x │
00:04:19 #18853 [verbose] > │ let v3 : (int32 -> (string -> string)) = closure7() │
00:04:19 #18854 [verbose] > │ let pad_right x = v3 x │
00:04:19 #18855 [verbose] > │ let v4 : (string -> (string -> (string -> string))) = closure9() │
00:04:19 #18856 [verbose] > │ let replace x = v4 x │
00:04:19 #18857 [verbose] > │ let v5 : (int32 -> (int32 -> (string -> string))) = closure12() │
00:04:19 #18858 [verbose] > │ let slice x = v5 x │
00:04:19 #18859 [verbose] > │ let v6 : (string -> (string -> (string []))) = closure15() │
00:04:19 #18860 [verbose] > │ let split x = v6 x │
00:04:19 #18861 [verbose] > │ let v7 : ((string []) -> (string -> (string []))) = closure17() │
00:04:19 #18862 [verbose] > │ let split_string x = v7 x │
00:04:19 #18863 [verbose] > │ let v8 : (string -> (string -> bool)) = closure19() │
00:04:19 #18864 [verbose] > │ let starts_with x = v8 x │
00:04:19 #18865 [verbose] > │ let v9 : (int32 -> (int32 -> (string -> string))) = closure21() │
00:04:19 #18866 [verbose] > │ let substring x = v9 x │
00:04:19 #18867 [verbose] > │ let v10 : (string -> string) = closure24() │
00:04:19 #18868 [verbose] > │ let to_lower x = v10 x │
00:04:19 #18869 [verbose] > │ let v11 : (string -> string) = closure25() │
00:04:19 #18870 [verbose] > │ let to_upper x = v11 x │
00:04:19 #18871 [verbose] > │ let v12 : (string -> string) = closure26() │
00:04:19 #18872 [verbose] > │ let trim x = v12 x │
00:04:19 #18873 [verbose] > │ let v13 : ((char []) -> (string -> string)) = closure27() │
00:04:19 #18874 [verbose] > │ let trim_end x = v13 x │
00:04:19 #18875 [verbose] > │ let v14 : ((char []) -> (string -> string)) = closure29() │
00:04:19 #18876 [verbose] > │ let trim_start x = v14 x │
00:04:19 #18877 [verbose] > │ let v15 : (int32 -> (string -> string)) = closure31() │
00:04:19 #18878 [verbose] > │ let ellipsis x = v15 x │
00:04:19 #18879 [verbose] > │ let v16 : (int64 -> (string -> string)) = closure33() │
00:04:19 #18880 [verbose] > │ let ellipsis_end x = v16 x │
00:04:19 #18881 [verbose] > │ let v17 : (exn -> string) = closure35() │
00:04:19 #18882 [verbose] > │ let format_exception x = v17 x │
00:04:19 #18883 [verbose] > │ let v18 : (string -> ((string []) -> string)) = closure36() │
00:04:19 #18884 [verbose] > │ let concat_array_trailing x = v18 x │
00:04:19 #18885 [verbose] > │ let v19 : (string -> (string seq -> string)) = closure38() │
00:04:19 #18886 [verbose] > │ let concat x = v19 x │
00:04:19 #18887 [verbose] > │ let v20 : (string -> ((string []) -> string)) = closure40() │
00:04:19 #18888 [verbose] > │ let join' x = v20 x │
00:04:19 #18889 [verbose] > │ let v21 : (string -> (char [])) = closure42() │
00:04:19 #18890 [verbose] > │ let to_char_array x = v21 x │
00:04:19 #18891 [verbose] > │ () │
00:04:19 #18892 [verbose] > │ │
00:04:19 #18893 [verbose] > │ │
00:04:19 #18894 [verbose] > ╰──────────────────────────────────────────────────────────────────────────────╯
00:04:21 #18895 [verbose] > [NbConvertApp] Converting notebook sm'.dib.ipynb to html
00:04:21 #18896 [verbose] > C:\Users\i574n\scoop\apps\python\current\Lib\site-packages\nbformat\__init__.py:93: MissingIDFieldWarning: Code cell is missing an id field, this will become a hard error in future nbformat versions. You may want to use `normalize()` on your notebooks before validations (available since nbformat 5.1.4). Previous versions of nbformat are fixing this issue transparently, and will stop doing so in the future.
00:04:21 #18897 [verbose] > validate(nb)
00:04:21 #18898 [verbose] > C:\Users\i574n\scoop\apps\python\current\Lib\site-packages\nbconvert\filters\highlight.py:71: UserWarning: IPython3 lexer unavailable, falling back on Python 3
00:04:21 #18899 [verbose] > return _pygments_highlight(
00:04:22 #18900 [verbose] > [NbConvertApp] Writing 452957 bytes to sm'.dib.html
00:04:23 #18901 [debug] execute_with_options_async / exit_code: 0 / output.Length: 144283
00:04:23 #18 [debug] main / executeCommand / exitCode: 0
00:04:23 #18902 [debug] execute_with_options_async / options: struct (Some System.Threading.CancellationToken,
"pwsh -c "../../scripts/invoke-dib.ps1 \"listm'.dib\" -Retries 3"", None,
None, None)
00:04:25 #18903 [verbose] >
00:04:25 #18904 [verbose] > ── markdown ────────────────────────────────────────────────────────────────────
00:04:25 #18905 [verbose] > ╭──────────────────────────────────────────────────────────────────────────────╮
00:04:25 #18906 [verbose] > │ # listm │
00:04:25 #18907 [verbose] > ╰──────────────────────────────────────────────────────────────────────────────╯
00:04:25 #18908 [verbose] >
00:04:25 #18909 [verbose] > ── spiral ──────────────────────────────────────────────────────────────────────
00:04:25 #18910 [verbose] > // // test
00:04:25 #18911 [verbose] >
00:04:25 #18912 [verbose] > open testing
00:04:27 #18913 [verbose] > Building c:\home\git\polyglot\target\polyglot\spiral_eval\packages\8837341da068f4ef4271045b3ef1c89d209237bf74b4f11596b6ee2d484becb0\main.spi
00:04:28 #18914 [verbose] >
00:04:28 #18915 [verbose] > ╭─[ 3.61s - stdout ]───────────────────────────────────────────────────────────╮
00:04:28 #18916 [verbose] > │ () │
00:04:28 #18917 [verbose] > │ │
00:04:28 #18918 [verbose] > │ │
00:04:28 #18919 [verbose] > ╰──────────────────────────────────────────────────────────────────────────────╯
00:04:29 #18920 [verbose] >
00:04:29 #18921 [verbose] > ── spiral ──────────────────────────────────────────────────────────────────────
00:04:29 #18922 [verbose] > // // test
00:04:29 #18923 [verbose] >
00:04:29 #18924 [verbose] > prototype append t : t -> t -> t
00:04:29 #18925 [verbose] > Building c:\home\git\polyglot\target\polyglot\spiral_eval\packages\aeda9b5acd00c201218acad26f133bf627240e2c2b851bd943c633261c6cda5d\main.spi
00:04:29 #18926 [verbose] >
00:04:29 #18927 [verbose] > ╭─[ 264.43ms - stdout ]────────────────────────────────────────────────────────╮
00:04:29 #18928 [verbose] > │ () │
00:04:29 #18929 [verbose] > │ │
00:04:29 #18930 [verbose] > │ │
00:04:29 #18931 [verbose] > ╰──────────────────────────────────────────────────────────────────────────────╯
00:04:29 #18932 [verbose] >
00:04:29 #18933 [verbose] > ── markdown ────────────────────────────────────────────────────────────────────
00:04:29 #18934 [verbose] > ╭──────────────────────────────────────────────────────────────────────────────╮
00:04:29 #18935 [verbose] > │ ## list' │
00:04:29 #18936 [verbose] > ╰──────────────────────────────────────────────────────────────────────────────╯
00:04:29 #18937 [verbose] >
00:04:29 #18938 [verbose] > ── spiral ──────────────────────────────────────────────────────────────────────
00:04:29 #18939 [verbose] > nominal list' t = $'`t list'
00:04:29 #18940 [verbose] > Building c:\home\git\polyglot\target\polyglot\spiral_eval\packages\9ff28d135388d75adf2154addc90220204e93c02e0e6060e33b20f053fc54623\main.spi
00:04:29 #18941 [verbose] >
00:04:29 #18942 [verbose] > ╭─[ 237.42ms - stdout ]────────────────────────────────────────────────────────╮
00:04:29 #18943 [verbose] > │ () │
00:04:29 #18944 [verbose] > │ │
00:04:29 #18945 [verbose] > │ │
00:04:29 #18946 [verbose] > ╰──────────────────────────────────────────────────────────────────────────────╯
00:04:29 #18947 [verbose] >
00:04:29 #18948 [verbose] > ── spiral ──────────────────────────────────────────────────────────────────────
00:04:29 #18949 [verbose] > inl empty' forall t. () : list' t =
00:04:29 #18950 [verbose] > $'[[]]'
00:04:29 #18951 [verbose] > Building c:\home\git\polyglot\target\polyglot\spiral_eval\packages\b3596bcd5a77ff785c961e7904c4cd79008d115f279052444ed736401c9d4b10\main.spi
00:04:29 #18952 [verbose] >
00:04:29 #18953 [verbose] > ╭─[ 227.87ms - stdout ]────────────────────────────────────────────────────────╮
00:04:29 #18954 [verbose] > │ () │
00:04:29 #18955 [verbose] > │ │
00:04:29 #18956 [verbose] > │ │
00:04:29 #18957 [verbose] > ╰──────────────────────────────────────────────────────────────────────────────╯
00:04:29 #18958 [verbose] >
00:04:29 #18959 [verbose] > ── spiral ──────────────────────────────────────────────────────────────────────
00:04:29 #18960 [verbose] > inl cons' forall t. (head : t) (tail : list' t) : list' t =
00:04:29 #18961 [verbose] > $'!head :: !tail '
00:04:29 #18962 [verbose] > Building c:\home\git\polyglot\target\polyglot\spiral_eval\packages\2a95d5a65de46e44d95f9a12acb7815ef5881f2f000125cdad2648ab1abc2b13\main.spi
00:04:29 #18963 [verbose] >
00:04:29 #18964 [verbose] > ╭─[ 254.22ms - stdout ]────────────────────────────────────────────────────────╮
00:04:29 #18965 [verbose] > │ () │
00:04:29 #18966 [verbose] > │ │
00:04:29 #18967 [verbose] > │ │
00:04:29 #18968 [verbose] > ╰──────────────────────────────────────────────────────────────────────────────╯
00:04:29 #18969 [verbose] >
00:04:29 #18970 [verbose] > ── markdown ────────────────────────────────────────────────────────────────────
00:04:29 #18971 [verbose] > ╭──────────────────────────────────────────────────────────────────────────────╮
00:04:29 #18972 [verbose] > │ ## box │
00:04:29 #18973 [verbose] > ╰──────────────────────────────────────────────────────────────────────────────╯
00:04:29 #18974 [verbose] >
00:04:29 #18975 [verbose] > ── spiral ──────────────────────────────────────────────────────────────────────
00:04:29 #18976 [verbose] > inl box forall t. (list : list t) : list' t =
00:04:29 #18977 [verbose] > (list, empty' ())
00:04:29 #18978 [verbose] > ||> listm.foldBack fun x acc =>
00:04:29 #18979 [verbose] > acc |> cons' x
00:04:30 #18980 [verbose] > Building c:\home\git\polyglot\target\polyglot\spiral_eval\packages\62b37334fad537c31e733fb1d2f0027994f471919c66c7929082cf02a60d72b8\main.spi
00:04:30 #18981 [verbose] >
00:04:30 #18982 [verbose] > ╭─[ 248.23ms - stdout ]────────────────────────────────────────────────────────╮
00:04:30 #18983 [verbose] > │ () │
00:04:30 #18984 [verbose] > │ │
00:04:30 #18985 [verbose] > │ │
00:04:30 #18986 [verbose] > ╰──────────────────────────────────────────────────────────────────────────────╯
00:04:30 #18987 [verbose] >
00:04:30 #18988 [verbose] > ── markdown ────────────────────────────────────────────────────────────────────
00:04:30 #18989 [verbose] > ╭──────────────────────────────────────────────────────────────────────────────╮
00:04:30 #18990 [verbose] > │ ## fold' │
00:04:30 #18991 [verbose] > ╰──────────────────────────────────────────────────────────────────────────────╯
00:04:30 #18992 [verbose] >
00:04:30 #18993 [verbose] > ── spiral ──────────────────────────────────────────────────────────────────────
00:04:30 #18994 [verbose] > inl fold' forall t u. (fn : t -> u) (init : list u) (list : list' t) : list u =
00:04:30 #18995 [verbose] > (init, list)
00:04:30 #18996 [verbose] > ||> $'List.fold' join fun acc x => Cons (fn x, acc)
00:04:30 #18997 [verbose] > Building c:\home\git\polyglot\target\polyglot\spiral_eval\packages\4db2310a12c52e614117f2961fb7a9a8cf9db360236aab7c2813b4db86e8b7b8\main.spi
00:04:30 #18998 [verbose] >
00:04:30 #18999 [verbose] > ╭─[ 220.64ms - stdout ]────────────────────────────────────────────────────────╮
00:04:30 #19000 [verbose] > │ () │
00:04:30 #19001 [verbose] > │ │
00:04:30 #19002 [verbose] > │ │
00:04:30 #19003 [verbose] > ╰──────────────────────────────────────────────────────────────────────────────╯
00:04:30 #19004 [verbose] >
00:04:30 #19005 [verbose] > ── spiral ──────────────────────────────────────────────────────────────────────
00:04:30 #19006 [verbose] > inl fold_back' forall t u. (fn : t -> u) (list : list' t) (init : list u) : list
00:04:30 #19007 [verbose] > u =
00:04:30 #19008 [verbose] > (list, init)
00:04:30 #19009 [verbose] > ||> $'List.foldBack' join fun x acc => Cons (fn x, acc)
00:04:30 #19010 [verbose] > Building c:\home\git\polyglot\target\polyglot\spiral_eval\packages\e8b470e18f3bf6bd495e0e442430ac623b29db8e8abeb25450be97274813f8c2\main.spi
00:04:30 #19011 [verbose] >
00:04:30 #19012 [verbose] > ╭─[ 236.30ms - stdout ]────────────────────────────────────────────────────────╮
00:04:30 #19013 [verbose] > │ () │
00:04:30 #19014 [verbose] > │ │
00:04:30 #19015 [verbose] > │ │
00:04:30 #19016 [verbose] > ╰──────────────────────────────────────────────────────────────────────────────╯
00:04:30 #19017 [verbose] >
00:04:30 #19018 [verbose] > ── markdown ────────────────────────────────────────────────────────────────────
00:04:30 #19019 [verbose] > ╭──────────────────────────────────────────────────────────────────────────────╮
00:04:30 #19020 [verbose] > │ ## unbox │
00:04:30 #19021 [verbose] > ╰──────────────────────────────────────────────────────────────────────────────╯
00:04:30 #19022 [verbose] >
00:04:30 #19023 [verbose] > ── spiral ──────────────────────────────────────────────────────────────────────
00:04:30 #19024 [verbose] > inl unbox forall t. (list : list' t) : list t =
00:04:30 #19025 [verbose] > (list, Nil)
00:04:30 #19026 [verbose] > ||> fold_back' id
00:04:30 #19027 [verbose] > Building c:\home\git\polyglot\target\polyglot\spiral_eval\packages\cb017c1a060c7b920f1bb166b836428819f5ab13e63d8b470fe2218ba1821910\main.spi
00:04:30 #19028 [verbose] >
00:04:30 #19029 [verbose] > ╭─[ 262.65ms - stdout ]────────────────────────────────────────────────────────╮
00:04:30 #19030 [verbose] > │ () │
00:04:30 #19031 [verbose] > │ │
00:04:30 #19032 [verbose] > │ │
00:04:30 #19033 [verbose] > ╰──────────────────────────────────────────────────────────────────────────────╯
00:04:30 #19034 [verbose] >
00:04:30 #19035 [verbose] > ── markdown ────────────────────────────────────────────────────────────────────
00:04:30 #19036 [verbose] > ╭──────────────────────────────────────────────────────────────────────────────╮
00:04:30 #19037 [verbose] > │ ## distinct' │
00:04:30 #19038 [verbose] > ╰──────────────────────────────────────────────────────────────────────────────╯
00:04:30 #19039 [verbose] >
00:04:30 #19040 [verbose] > ── spiral ──────────────────────────────────────────────────────────────────────
00:04:30 #19041 [verbose] > inl distinct' forall t. (list : list' t) : list' t =
00:04:30 #19042 [verbose] > list |> $'List.distinct'
00:04:31 #19043 [verbose] > Building c:\home\git\polyglot\target\polyglot\spiral_eval\packages\7c49ae7f0a33a49f0319403b09ffa2f263a3edc60eca46f03a8cfea8db90c514\main.spi
00:04:31 #19044 [verbose] >
00:04:31 #19045 [verbose] > ╭─[ 258.18ms - stdout ]────────────────────────────────────────────────────────╮
00:04:31 #19046 [verbose] > │ () │
00:04:31 #19047 [verbose] > │ │
00:04:31 #19048 [verbose] > │ │
00:04:31 #19049 [verbose] > ╰──────────────────────────────────────────────────────────────────────────────╯
00:04:31 #19050 [verbose] >
00:04:31 #19051 [verbose] > ── spiral ──────────────────────────────────────────────────────────────────────
00:04:31 #19052 [verbose] > // // test
00:04:31 #19053 [verbose] >
00:04:31 #19054 [verbose] > [[ "1"; "2"; "2"; "3" ]]
00:04:31 #19055 [verbose] > |> box
00:04:31 #19056 [verbose] > |> distinct'
00:04:31 #19057 [verbose] > |> unbox
00:04:31 #19058 [verbose] > |> _assert_eq [[ "1"; "2"; "3" ]]
00:04:31 #19059 [verbose] > Building c:\home\git\polyglot\target\polyglot\spiral_eval\packages\1e22247fca2dea715de731247b0c268d80dd3e7c4346d9e394a4f3c21429bd77\main.spi
00:04:32 #19060 [verbose] >
00:04:32 #19061 [verbose] > ╭─[ 1.34s - stdout ]───────────────────────────────────────────────────────────╮
00:04:32 #19062 [verbose] > │ type UH0 = │
00:04:32 #19063 [verbose] > │ | UH0_0 │
00:04:32 #19064 [verbose] > │ | UH0_1 of string * UH0 │
00:04:32 #19065 [verbose] > │ let rec closure1 (v0 : string) (v1 : UH0) : UH0 = │
00:04:32 #19066 [verbose] > │ UH0_1(v0, v1) │
00:04:32 #19067 [verbose] > │ and closure0 () (v0 : string) : (UH0 -> UH0) = │
00:04:32 #19068 [verbose] > │ closure1(v0) │
00:04:32 #19069 [verbose] > │ and method1 () : (string -> (UH0 -> UH0)) = │
00:04:32 #19070 [verbose] > │ closure0() │
00:04:32 #19071 [verbose] > │ and method2 (v0 : bool) : bool = │
00:04:32 #19072 [verbose] > │ v0 │
00:04:32 #19073 [verbose] > │ and method0 () : unit = │
00:04:32 #19074 [verbose] > │ let v0 : string list = [] │
00:04:32 #19075 [verbose] > │ let v1 : string = "3" │
00:04:32 #19076 [verbose] > │ let v2 : string list = v1 :: v0 │
00:04:32 #19077 [verbose] > │ let v3 : string = "2" │
00:04:32 #19078 [verbose] > │ let v4 : string list = v3 :: v2 │
00:04:32 #19079 [verbose] > │ let v5 : string list = v3 :: v4 │
00:04:32 #19080 [verbose] > │ let v6 : string = "1" │
00:04:32 #19081 [verbose] > │ let v7 : string list = v6 :: v5 │
00:04:32 #19082 [verbose] > │ let v8 : (string list -> string list) = List.distinct │
00:04:32 #19083 [verbose] > │ let v9 : string list = v8 v7 │
00:04:32 #19084 [verbose] > │ let v10 : ((string -> (UH0 -> UH0)) -> (string list -> (UH0 -> UH0))) = │
00:04:32 #19085 [verbose] > │ List.foldBack │
00:04:32 #19086 [verbose] > │ let v11 : (string -> (UH0 -> UH0)) = method1() │
00:04:32 #19087 [verbose] > │ let v12 : (string list -> (UH0 -> UH0)) = v10 v11 │
00:04:32 #19088 [verbose] > │ let v13 : (UH0 -> UH0) = v12 v9 │
00:04:32 #19089 [verbose] > │ let v14 : UH0 = UH0_0 │
00:04:32 #19090 [verbose] > │ let v15 : UH0 = v13 v14 │
00:04:32 #19091 [verbose] > │ let v16 : string = $"%A{v15}" │
00:04:32 #19092 [verbose] > │ System.Console.WriteLine v16 │
00:04:32 #19093 [verbose] > │ let v36 : bool = │
00:04:32 #19094 [verbose] > │ match v15 with │
00:04:32 #19095 [verbose] > │ | UH0_1(v21, v22) -> (* Cons *) │
00:04:32 #19096 [verbose] > │ let v23 : bool = v21 = "1" │
00:04:32 #19097 [verbose] > │ if v23 then │
00:04:32 #19098 [verbose] > │ match v22 with │
00:04:32 #19099 [verbose] > │ | UH0_1(v24, v25) -> (* Cons *) │
00:04:32 #19100 [verbose] > │ let v26 : bool = v24 = "2" │
00:04:32 #19101 [verbose] > │ if v26 then │
00:04:32 #19102 [verbose] > │ match v25 with │
00:04:32 #19103 [verbose] > │ | UH0_1(v27, v28) -> (* Cons *) │
00:04:32 #19104 [verbose] > │ let v29 : bool = v27 = "3" │
00:04:32 #19105 [verbose] > │ if v29 then │
00:04:32 #19106 [verbose] > │ match v28 with │
00:04:32 #19107 [verbose] > │ | UH0_0 -> (* Nil *) │
00:04:32 #19108 [verbose] > │ true │
00:04:32 #19109 [verbose] > │ | _ -> │
00:04:32 #19110 [verbose] > │ false │
00:04:32 #19111 [verbose] > │ else │
00:04:32 #19112 [verbose] > │ false │
00:04:32 #19113 [verbose] > │ | _ -> │
00:04:32 #19114 [verbose] > │ false │
00:04:32 #19115 [verbose] > │ else │
00:04:32 #19116 [verbose] > │ false │
00:04:32 #19117 [verbose] > │ | _ -> │
00:04:32 #19118 [verbose] > │ false │
00:04:32 #19119 [verbose] > │ else │
00:04:32 #19120 [verbose] > │ false │
00:04:32 #19121 [verbose] > │ | _ -> │
00:04:32 #19122 [verbose] > │ false │
00:04:32 #19123 [verbose] > │ let v38 : bool = │
00:04:32 #19124 [verbose] > │ if v36 then │
00:04:32 #19125 [verbose] > │ true │
00:04:32 #19126 [verbose] > │ else │
00:04:32 #19127 [verbose] > │ method2(v36) │
00:04:32 #19128 [verbose] > │ let v39 : UH0 = UH0_0 │
00:04:32 #19129 [verbose] > │ let v40 : UH0 = UH0_1(v1, v39) │
00:04:32 #19130 [verbose] > │ let v41 : UH0 = UH0_1(v3, v40) │
00:04:32 #19131 [verbose] > │ let v42 : UH0 = UH0_1(v6, v41) │
00:04:32 #19132 [verbose] > │ let v43 : string = $"__expect / actual: %A{v15} / expected: %A{v42}" │
00:04:32 #19133 [verbose] > │ let v44 : bool = v38 = false │
00:04:32 #19134 [verbose] > │ if v44 then │
00:04:32 #19135 [verbose] > │ failwith<unit> v43 │
00:04:32 #19136 [verbose] > │ method0() │
00:04:32 #19137 [verbose] > │ │
00:04:32 #19138 [verbose] > │ UH0_1 ("1", UH0_1 ("2", UH0_1 ("3", UH0_0))) │
00:04:32 #19139 [verbose] > │ │
00:04:32 #19140 [verbose] > ╰──────────────────────────────────────────────────────────────────────────────╯
00:04:32 #19141 [verbose] >
00:04:32 #19142 [verbose] > ── markdown ────────────────────────────────────────────────────────────────────
00:04:32 #19143 [verbose] > ╭──────────────────────────────────────────────────────────────────────────────╮
00:04:32 #19144 [verbose] > │ ## append │
00:04:32 #19145 [verbose] > ╰──────────────────────────────────────────────────────────────────────────────╯
00:04:32 #19146 [verbose] >
00:04:32 #19147 [verbose] > ── spiral ──────────────────────────────────────────────────────────────────────
00:04:32 #19148 [verbose] > instance append list t =
00:04:32 #19149 [verbose] > listm.append
00:04:32 #19150 [verbose] > Building c:\home\git\polyglot\target\polyglot\spiral_eval\packages\45d1793251dcadef64321d531cc93fc30f10aadd790f7da1dd8a9bf9bfac0f29\main.spi
00:04:32 #19151 [verbose] >
00:04:32 #19152 [verbose] > ╭─[ 226.50ms - stdout ]────────────────────────────────────────────────────────╮
00:04:32 #19153 [verbose] > │ () │
00:04:32 #19154 [verbose] > │ │
00:04:32 #19155 [verbose] > │ │
00:04:32 #19156 [verbose] > ╰──────────────────────────────────────────────────────────────────────────────╯
00:04:32 #19157 [verbose] >
00:04:32 #19158 [verbose] > ── markdown ────────────────────────────────────────────────────────────────────
00:04:32 #19159 [verbose] > ╭──────────────────────────────────────────────────────────────────────────────╮
00:04:32 #19160 [verbose] > │ ## /@ │
00:04:32 #19161 [verbose] > ╰──────────────────────────────────────────────────────────────────────────────╯
00:04:32 #19162 [verbose] >
00:04:32 #19163 [verbose] > ── spiral ──────────────────────────────────────────────────────────────────────
00:04:32 #19164 [verbose] > inl (/@) a b =
00:04:32 #19165 [verbose] > b |> append a
00:04:33 #19166 [verbose] > Building c:\home\git\polyglot\target\polyglot\spiral_eval\packages\bb66479bf9ffad692a8e919ea67386b633a3169ad553e5c933271e5b5406f767\main.spi
00:04:33 #19167 [verbose] >
00:04:33 #19168 [verbose] > ╭─[ 235.64ms - stdout ]────────────────────────────────────────────────────────╮
00:04:33 #19169 [verbose] > │ () │
00:04:33 #19170 [verbose] > │ │
00:04:33 #19171 [verbose] > │ │
00:04:33 #19172 [verbose] > ╰──────────────────────────────────────────────────────────────────────────────╯
00:04:33 #19173 [verbose] >
00:04:33 #19174 [verbose] > ── spiral ──────────────────────────────────────────────────────────────────────
00:04:33 #19175 [verbose] > // // test
00:04:33 #19176 [verbose] >
00:04:33 #19177 [verbose] > [[ "a"; "b" ]] /@ [[ "c"; "d" ]]
00:04:33 #19178 [verbose] > |> _assert_eq [[ "a"; "b"; "c"; "d" ]]
00:04:33 #19179 [verbose] > Building c:\home\git\polyglot\target\polyglot\spiral_eval\packages\c25808ec705d7e968f03ed98ab37d00704db2fe6cdd216518c884e01c3d86140\main.spi
00:04:33 #19180 [verbose] >
00:04:33 #19181 [verbose] > ╭─[ 291.57ms - stdout ]────────────────────────────────────────────────────────╮
00:04:33 #19182 [verbose] > │ type UH0 = │
00:04:33 #19183 [verbose] > │ | UH0_0 │
00:04:33 #19184 [verbose] > │ | UH0_1 of string * UH0 │
00:04:33 #19185 [verbose] > │ let rec method0 () : unit = │
00:04:33 #19186 [verbose] > │ let v0 : string = "a" │
00:04:33 #19187 [verbose] > │ let v1 : string = "b" │
00:04:33 #19188 [verbose] > │ let v2 : string = "c" │
00:04:33 #19189 [verbose] > │ let v3 : string = "d" │
00:04:33 #19190 [verbose] > │ let v4 : UH0 = UH0_0 │
00:04:33 #19191 [verbose] > │ let v5 : UH0 = UH0_1(v3, v4) │
00:04:33 #19192 [verbose] > │ let v6 : UH0 = UH0_1(v2, v5) │
00:04:33 #19193 [verbose] > │ let v7 : UH0 = UH0_1(v1, v6) │
00:04:33 #19194 [verbose] > │ let v8 : UH0 = UH0_1(v0, v7) │
00:04:33 #19195 [verbose] > │ let v9 : string = $"%A{v8}" │
00:04:33 #19196 [verbose] > │ System.Console.WriteLine v9 │
00:04:33 #19197 [verbose] > │ let v35 : UH0 = UH0_0 │
00:04:33 #19198 [verbose] > │ let v36 : UH0 = UH0_1(v3, v35) │
00:04:33 #19199 [verbose] > │ let v37 : UH0 = UH0_1(v2, v36) │
00:04:33 #19200 [verbose] > │ let v38 : UH0 = UH0_1(v1, v37) │
00:04:33 #19201 [verbose] > │ let v39 : UH0 = UH0_1(v0, v38) │
00:04:33 #19202 [verbose] > │ let v40 : UH0 = UH0_0 │
00:04:33 #19203 [verbose] > │ let v41 : UH0 = UH0_1(v3, v40) │
00:04:33 #19204 [verbose] > │ let v42 : UH0 = UH0_1(v2, v41) │
00:04:33 #19205 [verbose] > │ let v43 : UH0 = UH0_1(v1, v42) │
00:04:33 #19206 [verbose] > │ let v44 : UH0 = UH0_1(v0, v43) │
00:04:33 #19207 [verbose] > │ let v45 : string = $"__expect / actual: %A{v39} / expected: %A{v44}" │
00:04:33 #19208 [verbose] > │ () │
00:04:33 #19209 [verbose] > │ method0() │
00:04:33 #19210 [verbose] > │ │
00:04:33 #19211 [verbose] > │ UH0_1 ("a", UH0_1 ("b", UH0_1 ("c", UH0_1 ("d", UH0_0)))) │
00:04:33 #19212 [verbose] > │ │
00:04:33 #19213 [verbose] > ╰──────────────────────────────────────────────────────────────────────────────╯
00:04:33 #19214 [verbose] >
00:04:33 #19215 [verbose] > ── markdown ────────────────────────────────────────────────────────────────────
00:04:33 #19216 [verbose] > ╭──────────────────────────────────────────────────────────────────────────────╮
00:04:33 #19217 [verbose] > │ ## init_series │
00:04:33 #19218 [verbose] > ╰──────────────────────────────────────────────────────────────────────────────╯
00:04:33 #19219 [verbose] >
00:04:33 #19220 [verbose] > ── spiral ──────────────────────────────────────────────────────────────────────
00:04:33 #19221 [verbose] > inl init_series start end inc =
00:04:33 #19222 [verbose] > inl total : f64 = conv ((end - start) / inc) + 1
00:04:33 #19223 [verbose] > listm.init total (conv >> (*) inc >> (+) start)
00:04:33 #19224 [verbose] > Building c:\home\git\polyglot\target\polyglot\spiral_eval\packages\711b12f506e85c1243536c34fe4dc2871b458fb0eb491a26fbd3f2d0e5624ddc\main.spi
00:04:33 #19225 [verbose] >
00:04:33 #19226 [verbose] > ╭─[ 233.13ms - stdout ]────────────────────────────────────────────────────────╮
00:04:33 #19227 [verbose] > │ () │
00:04:33 #19228 [verbose] > │ │
00:04:33 #19229 [verbose] > │ │
00:04:33 #19230 [verbose] > ╰──────────────────────────────────────────────────────────────────────────────╯
00:04:33 #19231 [verbose] >
00:04:33 #19232 [verbose] > ── spiral ──────────────────────────────────────────────────────────────────────
00:04:33 #19233 [verbose] > // // test
00:04:33 #19234 [verbose] >
00:04:33 #19235 [verbose] > init_series 0 1 0.5
00:04:33 #19236 [verbose] > |> _assert_eq [[ 0f64; 0.5; 1 ]]
00:04:33 #19237 [verbose] > Building c:\home\git\polyglot\target\polyglot\spiral_eval\packages\62e640a4bd95d3e24225bd6bfc6f903fe6a8dcb18d397ced834d3d3a2277635e\main.spi
00:04:33 #19238 [verbose] >
00:04:33 #19239 [verbose] > ╭─[ 267.75ms - stdout ]────────────────────────────────────────────────────────╮
00:04:33 #19240 [verbose] > │ type UH0 = │
00:04:33 #19241 [verbose] > │ | UH0_0 │
00:04:33 #19242 [verbose] > │ | UH0_1 of float * UH0 │
00:04:33 #19243 [verbose] > │ let rec method0 () : unit = │
00:04:33 #19244 [verbose] > │ let v0 : UH0 = UH0_0 │
00:04:33 #19245 [verbose] > │ let v1 : UH0 = UH0_1(1.0, v0) │
00:04:33 #19246 [verbose] > │ let v2 : UH0 = UH0_1(0.5, v1) │
00:04:33 #19247 [verbose] > │ let v3 : UH0 = UH0_1(0.0, v2) │
00:04:33 #19248 [verbose] > │ let v4 : string = $"%A{v3}" │
00:04:33 #19249 [verbose] > │ System.Console.WriteLine v4 │
00:04:33 #19250 [verbose] > │ let v23 : UH0 = UH0_0 │
00:04:33 #19251 [verbose] > │ let v24 : UH0 = UH0_1(1.0, v23) │
00:04:33 #19252 [verbose] > │ let v25 : UH0 = UH0_1(0.5, v24) │
00:04:33 #19253 [verbose] > │ let v26 : UH0 = UH0_1(0.0, v25) │
00:04:33 #19254 [verbose] > │ let v27 : UH0 = UH0_0 │
00:04:33 #19255 [verbose] > │ let v28 : UH0 = UH0_1(1.0, v27) │
00:04:33 #19256 [verbose] > │ let v29 : UH0 = UH0_1(0.5, v28) │
00:04:33 #19257 [verbose] > │ let v30 : UH0 = UH0_1(0.0, v29) │
00:04:33 #19258 [verbose] > │ let v31 : string = $"__expect / actual: %A{v26} / expected: %A{v30}" │
00:04:33 #19259 [verbose] > │ () │
00:04:33 #19260 [verbose] > │ method0() │
00:04:33 #19261 [verbose] > │ │
00:04:33 #19262 [verbose] > │ UH0_1 (0.0, UH0_1 (0.5, UH0_1 (1.0, UH0_0))) │
00:04:33 #19263 [verbose] > │ │
00:04:33 #19264 [verbose] > ╰──────────────────────────────────────────────────────────────────────────────╯
00:04:33 #19265 [verbose] >
00:04:33 #19266 [verbose] > ── markdown ────────────────────────────────────────────────────────────────────
00:04:33 #19267 [verbose] > ╭──────────────────────────────────────────────────────────────────────────────╮
00:04:33 #19268 [verbose] > │ ## try_item │
00:04:33 #19269 [verbose] > ╰──────────────────────────────────────────────────────────────────────────────╯
00:04:33 #19270 [verbose] >
00:04:33 #19271 [verbose] > ── spiral ──────────────────────────────────────────────────────────────────────
00:04:33 #19272 [verbose] > inl rec try_item i = function
00:04:33 #19273 [verbose] > | Cons (x, _) when i = 0 => Some x
00:04:33 #19274 [verbose] > | Cons (_, xs) => try_item (i - 1) xs
00:04:33 #19275 [verbose] > | Nil => None
00:04:34 #19276 [verbose] > Building c:\home\git\polyglot\target\polyglot\spiral_eval\packages\5b6a10907da3b4e7f41441fedd07cfe5e82b52d52c150e4e4a26ea47f80cd6ba\main.spi
00:04:34 #19277 [verbose] >
00:04:34 #19278 [verbose] > ╭─[ 231.18ms - stdout ]────────────────────────────────────────────────────────╮
00:04:34 #19279 [verbose] > │ () │
00:04:34 #19280 [verbose] > │ │
00:04:34 #19281 [verbose] > │ │
00:04:34 #19282 [verbose] > ╰──────────────────────────────────────────────────────────────────────────────╯
00:04:34 #19283 [verbose] >
00:04:34 #19284 [verbose] > ── spiral ──────────────────────────────────────────────────────────────────────
00:04:34 #19285 [verbose] > // // test
00:04:34 #19286 [verbose] >
00:04:34 #19287 [verbose] > listm.init 10i32 id
00:04:34 #19288 [verbose] > |> try_item 9i32
00:04:34 #19289 [verbose] > |> _assert_eq (Some 9)
00:04:34 #19290 [verbose] > Building c:\home\git\polyglot\target\polyglot\spiral_eval\packages\136310e76813e594edbf0b286447e6a67334345d80ddb51bd3002b48953bbe93\main.spi
00:04:34 #19291 [verbose] >
00:04:34 #19292 [verbose] > ╭─[ 320.85ms - stdout ]────────────────────────────────────────────────────────╮
00:04:34 #19293 [verbose] > │ type [<Struct>] US0 = │
00:04:34 #19294 [verbose] > │ | US0_0 of f0_0 : int32 │
00:04:34 #19295 [verbose] > │ | US0_1 │
00:04:34 #19296 [verbose] > │ let rec method0 () : unit = │
00:04:34 #19297 [verbose] > │ let v0 : US0 = US0_0(9) │
00:04:34 #19298 [verbose] > │ let v1 : string = $"%A{v0}" │
00:04:34 #19299 [verbose] > │ System.Console.WriteLine v1 │
00:04:34 #19300 [verbose] > │ let v5 : US0 = US0_0(9) │
00:04:34 #19301 [verbose] > │ let v6 : US0 = US0_0(9) │
00:04:34 #19302 [verbose] > │ let v7 : string = $"__expect / actual: %A{v5} / expected: %A{v6}" │
00:04:34 #19303 [verbose] > │ () │
00:04:34 #19304 [verbose] > │ method0() │
00:04:34 #19305 [verbose] > │ │
00:04:34 #19306 [verbose] > │ US0_0 9 │
00:04:34 #19307 [verbose] > │ │
00:04:34 #19308 [verbose] > ╰──────────────────────────────────────────────────────────────────────────────╯
00:04:34 #19309 [verbose] >
00:04:34 #19310 [verbose] > ── spiral ──────────────────────────────────────────────────────────────────────
00:04:34 #19311 [verbose] > // // test
00:04:34 #19312 [verbose] >
00:04:34 #19313 [verbose] > listm.init 10i32 id
00:04:34 #19314 [verbose] > |> try_item 10i32
00:04:34 #19315 [verbose] > |> _assert_eq None
00:04:34 #19316 [verbose] > Building c:\home\git\polyglot\target\polyglot\spiral_eval\packages\51562c7cb1d2058e5c66de24e0f3f0438f7c9a2feddaf22310c5b1f9908f701c\main.spi
00:04:34 #19317 [verbose] >
00:04:34 #19318 [verbose] > ╭─[ 287.05ms - stdout ]────────────────────────────────────────────────────────╮
00:04:34 #19319 [verbose] > │ type [<Struct>] US0 = │
00:04:34 #19320 [verbose] > │ | US0_0 of f0_0 : int32 │
00:04:34 #19321 [verbose] > │ | US0_1 │
00:04:34 #19322 [verbose] > │ let rec method0 () : unit = │
00:04:34 #19323 [verbose] > │ let v0 : US0 = US0_1 │
00:04:34 #19324 [verbose] > │ let v1 : string = $"%A{v0}" │
00:04:34 #19325 [verbose] > │ System.Console.WriteLine v1 │
00:04:34 #19326 [verbose] > │ let v5 : US0 = US0_1 │
00:04:34 #19327 [verbose] > │ let v6 : US0 = US0_1 │
00:04:34 #19328 [verbose] > │ let v7 : string = $"__expect / actual: %A{v5} / expected: %A{v6}" │
00:04:34 #19329 [verbose] > │ () │
00:04:34 #19330 [verbose] > │ method0() │
00:04:34 #19331 [verbose] > │ │
00:04:34 #19332 [verbose] > │ US0_1 │
00:04:34 #19333 [verbose] > │ │
00:04:34 #19334 [verbose] > ╰──────────────────────────────────────────────────────────────────────────────╯
00:04:34 #19335 [verbose] >
00:04:34 #19336 [verbose] > ── markdown ────────────────────────────────────────────────────────────────────
00:04:34 #19337 [verbose] > ╭──────────────────────────────────────────────────────────────────────────────╮
00:04:34 #19338 [verbose] > │ ## list_item │
00:04:34 #19339 [verbose] > ╰──────────────────────────────────────────────────────────────────────────────╯
00:04:34 #19340 [verbose] >
00:04:34 #19341 [verbose] > ── spiral ──────────────────────────────────────────────────────────────────────
00:04:34 #19342 [verbose] > inl item i =
00:04:34 #19343 [verbose] > try_item i >> optionm.value
00:04:34 #19344 [verbose] > Building c:\home\git\polyglot\target\polyglot\spiral_eval\packages\1ad775443b4cc80db8fc20014e9c35244cc8a255e247c591b095cc8e370aee6d\main.spi
00:04:35 #19345 [verbose] >
00:04:35 #19346 [verbose] > ╭─[ 264.53ms - stdout ]────────────────────────────────────────────────────────╮
00:04:35 #19347 [verbose] > │ () │
00:04:35 #19348 [verbose] > │ │
00:04:35 #19349 [verbose] > │ │
00:04:35 #19350 [verbose] > ╰──────────────────────────────────────────────────────────────────────────────╯
00:04:35 #19351 [verbose] >
00:04:35 #19352 [verbose] > ── spiral ──────────────────────────────────────────────────────────────────────
00:04:35 #19353 [verbose] > // // test
00:04:35 #19354 [verbose] >
00:04:35 #19355 [verbose] > listm.init 10i32 id
00:04:35 #19356 [verbose] > |> item 9i32
00:04:35 #19357 [verbose] > |> _assert_eq 9
00:04:35 #19358 [verbose] > Building c:\home\git\polyglot\target\polyglot\spiral_eval\packages\eb84644a8d8d758200049dee4254fc20e3261b68b0fbaf92b19bb67e54dd25ef\main.spi
00:04:35 #19359 [verbose] >
00:04:35 #19360 [verbose] > ╭─[ 254.24ms - stdout ]────────────────────────────────────────────────────────╮
00:04:35 #19361 [verbose] > │ let rec method0 () : unit = │
00:04:35 #19362 [verbose] > │ let v0 : string = $"%A{9}" │
00:04:35 #19363 [verbose] > │ System.Console.WriteLine v0 │
00:04:35 #19364 [verbose] > │ let v1 : string = $"__expect / actual: %A{9} / expected: %A{9}" │
00:04:35 #19365 [verbose] > │ () │
00:04:35 #19366 [verbose] > │ method0() │
00:04:35 #19367 [verbose] > │ │
00:04:35 #19368 [verbose] > │ 9 │
00:04:35 #19369 [verbose] > │ │
00:04:35 #19370 [verbose] > ╰──────────────────────────────────────────────────────────────────────────────╯
00:04:35 #19371 [verbose] >
00:04:35 #19372 [verbose] > ── spiral ──────────────────────────────────────────────────────────────────────
00:04:35 #19373 [verbose] > // // test
00:04:35 #19374 [verbose] >
00:04:35 #19375 [verbose] > fun () =>
00:04:35 #19376 [verbose] > listm.init 10i32 id
00:04:35 #19377 [verbose] > |> item 10i32
00:04:35 #19378 [verbose] > |> ignore
00:04:35 #19379 [verbose] > |> _throws
00:04:35 #19380 [verbose] > |> optionm.map sm'.format_exception
00:04:35 #19381 [verbose] > |> _assert_eq (Some "System.Exception: Option does not have a value.")
00:04:35 #19382 [verbose] > Building c:\home\git\polyglot\target\polyglot\spiral_eval\packages\19d2db328f951df4f5c85f2bd955b7929ea4f49553f24806d9a1aa88062f3114\main.spi
00:04:35 #19383 [verbose] >
00:04:35 #19384 [verbose] > ╭─[ 425.08ms - stdout ]────────────────────────────────────────────────────────╮
00:04:35 #19385 [verbose] > │ type [<Struct>] US0 = │
00:04:35 #19386 [verbose] > │ | US0_0 of f0_0 : exn │
00:04:35 #19387 [verbose] > │ | US0_1 │
00:04:35 #19388 [verbose] > │ and [<Struct>] US1 = │
00:04:35 #19389 [verbose] > │ | US1_0 of f0_0 : string │
00:04:35 #19390 [verbose] > │ | US1_1 │
00:04:35 #19391 [verbose] > │ let rec closure0 () () : unit = │
00:04:35 #19392 [verbose] > │ let v0 : int32 = failwith<int32> "Option does not have a value." │
00:04:35 #19393 [verbose] > │ () │
00:04:35 #19394 [verbose] > │ and closure1 () (v0 : exn) : US0 = │
00:04:35 #19395 [verbose] > │ US0_0(v0) │
00:04:35 #19396 [verbose] > │ and method1 (v0 : bool) : bool = │
00:04:35 #19397 [verbose] > │ v0 │
00:04:35 #19398 [verbose] > │ and method0 () : unit = │
00:04:35 #19399 [verbose] > │ let v0 : (unit -> unit) = closure0() │
00:04:35 #19400 [verbose] > │ let v1 : US0 = US0_1 │
00:04:35 #19401 [verbose] > │ let v2 : (exn -> US0) = closure1() │
00:04:35 #19402 [verbose] > │ let v3 : US0 = try v0 (); v1 with ex -> ex |> v2 │
00:04:35 #19403 [verbose] > │ let v16 : US1 = │
00:04:35 #19404 [verbose] > │ match v3 with │
00:04:35 #19405 [verbose] > │ | US0_1 -> (* None *) │
00:04:35 #19406 [verbose] > │ US1_1 │
00:04:35 #19407 [verbose] > │ | US0_0(v4) -> (* Some *) │
00:04:35 #19408 [verbose] > │ let v5 : string option = None │
00:04:35 #19409 [verbose] > │ let mutable _v5 = v5 │
00:04:35 #19410 [verbose] > │ #if FABLE_COMPILER_RUST && !WASM && !CONTRACT │
00:04:35 #19411 [verbose] > │ let v6 : string = $"%A{v4}" │
00:04:35 #19412 [verbose] > │ v6 │
00:04:35 #19413 [verbose] > │ #endif │
00:04:35 #19414 [verbose] > │ #if FABLE_COMPILER_RUST && WASM │
00:04:35 #19415 [verbose] > │ let v7 : string = $"%A{v4}" │
00:04:35 #19416 [verbose] > │ v7 │
00:04:35 #19417 [verbose] > │ #endif │
00:04:35 #19418 [verbose] > │ #if FABLE_COMPILER_RUST && CONTRACT │
00:04:35 #19419 [verbose] > │ let v8 : string = $"%A{v4}" │
00:04:35 #19420 [verbose] > │ v8 │
00:04:35 #19421 [verbose] > │ #endif │
00:04:35 #19422 [verbose] > │ #if !FABLE_COMPILER && !FABLE_COMPILER_RUST && │
00:04:35 #19423 [verbose] > │ !FABLE_COMPILER_TYPESCRIPT && !WASM && !CONTRACT │
00:04:35 #19424 [verbose] > │ let v9 : string = $"{v4.GetType ()}: {v4.Message}" │
00:04:35 #19425 [verbose] > │ v9 │
00:04:35 #19426 [verbose] > │ #endif │
00:04:35 #19427 [verbose] > │ #if FABLE_COMPILER_TYPESCRIPT │
00:04:35 #19428 [verbose] > │ let v10 : string = $"%A{v4}" │
00:04:35 #19429 [verbose] > │ v10 │
00:04:35 #19430 [verbose] > │ #endif │
00:04:35 #19431 [verbose] > │ #if FABLE_COMPILER_PYTHON || FABLE_COMPILER_PHP || │
00:04:35 #19432 [verbose] > │ FABLE_COMPILER_DART │
00:04:35 #19433 [verbose] > │ let v11 : string = Unchecked.defaultof<string> │
00:04:35 #19434 [verbose] > │ v11 │
00:04:35 #19435 [verbose] > │ #endif │
00:04:35 #19436 [verbose] > │ |> fun x -> _v5 <- Some x │
00:04:35 #19437 [verbose] > │ let v12 : string = _v5.Value │
00:04:35 #19438 [verbose] > │ US1_0(v12) │
00:04:35 #19439 [verbose] > │ let v17 : string = $"%A{v16}" │
00:04:35 #19440 [verbose] > │ System.Console.WriteLine v17 │
00:04:35 #19441 [verbose] > │ let v22 : bool = │
00:04:35 #19442 [verbose] > │ match v16 with │
00:04:35 #19443 [verbose] > │ | US1_0(v20) -> (* Some *) │
00:04:35 #19444 [verbose] > │ let v21 : bool = v20 = "System.Exception: Option does not have a │
00:04:35 #19445 [verbose] > │ value." │
00:04:35 #19446 [verbose] > │ v21 │
00:04:35 #19447 [verbose] > │ | _ -> │
00:04:35 #19448 [verbose] > │ false │
00:04:35 #19449 [verbose] > │ let v24 : bool = │
00:04:35 #19450 [verbose] > │ if v22 then │
00:04:35 #19451 [verbose] > │ true │
00:04:35 #19452 [verbose] > │ else │
00:04:35 #19453 [verbose] > │ method1(v22) │
00:04:35 #19454 [verbose] > │ let v25 : string = "System.Exception: Option does not have a value." │
00:04:35 #19455 [verbose] > │ let v26 : US1 = US1_0(v25) │
00:04:35 #19456 [verbose] > │ let v27 : string = $"__expect / actual: %A{v16} / expected: %A{v26}" │
00:04:35 #19457 [verbose] > │ let v28 : bool = v24 = false │
00:04:35 #19458 [verbose] > │ if v28 then │
00:04:35 #19459 [verbose] > │ failwith<unit> v27 │
00:04:35 #19460 [verbose] > │ method0() │
00:04:35 #19461 [verbose] > │ │
00:04:35 #19462 [verbose] > │ US1_0 "System.Exception: Option does not have a value." │
00:04:35 #19463 [verbose] > │ │
00:04:35 #19464 [verbose] > ╰──────────────────────────────────────────────────────────────────────────────╯
00:04:35 #19465 [verbose] >
00:04:35 #19466 [verbose] > ── markdown ────────────────────────────────────────────────────────────────────
00:04:35 #19467 [verbose] > ╭──────────────────────────────────────────────────────────────────────────────╮
00:04:35 #19468 [verbose] > │ ## try_item_ │
00:04:35 #19469 [verbose] > ╰──────────────────────────────────────────────────────────────────────────────╯
00:04:35 #19470 [verbose] >
00:04:35 #19471 [verbose] > ── spiral ──────────────────────────────────────────────────────────────────────
00:04:35 #19472 [verbose] > let rec try_item_ i = function
00:04:35 #19473 [verbose] > | Cons (x, _) when i = 0 => Some x
00:04:35 #19474 [verbose] > | Cons (_, xs) => try_item_ (i - 1) xs
00:04:35 #19475 [verbose] > | Nil => None
00:04:35 #19476 [verbose] > Building c:\home\git\polyglot\target\polyglot\spiral_eval\packages\0eefd27acfbfc059b679a051bea8634768c43d09ab181765de9d0c12b50d7768\main.spi
00:04:36 #19477 [verbose] >
00:04:36 #19478 [verbose] > ╭─[ 275.56ms - stdout ]────────────────────────────────────────────────────────╮
00:04:36 #19479 [verbose] > │ () │
00:04:36 #19480 [verbose] > │ │
00:04:36 #19481 [verbose] > │ │
00:04:36 #19482 [verbose] > ╰──────────────────────────────────────────────────────────────────────────────╯
00:04:36 #19483 [verbose] >
00:04:36 #19484 [verbose] > ── markdown ────────────────────────────────────────────────────────────────────
00:04:36 #19485 [verbose] > ╭──────────────────────────────────────────────────────────────────────────────╮
00:04:36 #19486 [verbose] > │ ## item_ │
00:04:36 #19487 [verbose] > ╰──────────────────────────────────────────────────────────────────────────────╯
00:04:36 #19488 [verbose] >
00:04:36 #19489 [verbose] > ── spiral ──────────────────────────────────────────────────────────────────────
00:04:36 #19490 [verbose] > inl item_ i =
00:04:36 #19491 [verbose] > try_item_ i >> optionm.value
00:04:36 #19492 [verbose] > Building c:\home\git\polyglot\target\polyglot\spiral_eval\packages\3d146fa163da601f1ba4d05c3926b50ba8ae524b301d53da8ca1bc9d6c0dcb51\main.spi
00:04:36 #19493 [verbose] >
00:04:36 #19494 [verbose] > ╭─[ 248.30ms - stdout ]────────────────────────────────────────────────────────╮
00:04:36 #19495 [verbose] > │ () │
00:04:36 #19496 [verbose] > │ │
00:04:36 #19497 [verbose] > │ │
00:04:36 #19498 [verbose] > ╰──────────────────────────────────────────────────────────────────────────────╯
00:04:36 #19499 [verbose] >
00:04:36 #19500 [verbose] > ── markdown ────────────────────────────────────────────────────────────────────
00:04:36 #19501 [verbose] > ╭──────────────────────────────────────────────────────────────────────────────╮
00:04:36 #19502 [verbose] > │ ## sum │
00:04:36 #19503 [verbose] > ╰──────────────────────────────────────────────────────────────────────────────╯
00:04:36 #19504 [verbose] >
00:04:36 #19505 [verbose] > ── spiral ──────────────────────────────────────────────────────────────────────
00:04:36 #19506 [verbose] > inl sum list =
00:04:36 #19507 [verbose] > list |> listm.fold (+) 0
00:04:36 #19508 [verbose] > Building c:\home\git\polyglot\target\polyglot\spiral_eval\packages\07ab44177aefbecf280be8b8ce5e307c4fcc78b9104c597d0f48e391ecf87b84\main.spi
00:04:36 #19509 [verbose] >
00:04:36 #19510 [verbose] > ╭─[ 232.31ms - stdout ]────────────────────────────────────────────────────────╮
00:04:36 #19511 [verbose] > │ () │
00:04:36 #19512 [verbose] > │ │
00:04:36 #19513 [verbose] > │ │
00:04:36 #19514 [verbose] > ╰──────────────────────────────────────────────────────────────────────────────╯
00:04:36 #19515 [verbose] >
00:04:36 #19516 [verbose] > ── spiral ──────────────────────────────────────────────────────────────────────
00:04:36 #19517 [verbose] > // // test
00:04:36 #19518 [verbose] >
00:04:36 #19519 [verbose] > listm.init 10i32 id
00:04:36 #19520 [verbose] > |> sum
00:04:36 #19521 [verbose] > |> _assert_eq 45
00:04:36 #19522 [verbose] > Building c:\home\git\polyglot\target\polyglot\spiral_eval\packages\8320d408360d7245627906a9fce69c1ae9261e9135dc0a21958c731936a2f713\main.spi
00:04:37 #19523 [verbose] >
00:04:37 #19524 [verbose] > ╭─[ 578.44ms - stdout ]────────────────────────────────────────────────────────╮
00:04:37 #19525 [verbose] > │ let rec method0 () : unit = │
00:04:37 #19526 [verbose] > │ let v0 : string = $"%A{45}" │
00:04:37 #19527 [verbose] > │ System.Console.WriteLine v0 │
00:04:37 #19528 [verbose] > │ let v1 : string = $"__expect / actual: %A{45} / expected: %A{45}" │
00:04:37 #19529 [verbose] > │ () │
00:04:37 #19530 [verbose] > │ method0() │
00:04:37 #19531 [verbose] > │ │
00:04:37 #19532 [verbose] > │ 45 │
00:04:37 #19533 [verbose] > │ │
00:04:37 #19534 [verbose] > ╰──────────────────────────────────────────────────────────────────────────────╯
00:04:37 #19535 [verbose] >
00:04:37 #19536 [verbose] > ── markdown ────────────────────────────────────────────────────────────────────
00:04:37 #19537 [verbose] > ╭──────────────────────────────────────────────────────────────────────────────╮
00:04:37 #19538 [verbose] > │ ## unzip │
00:04:37 #19539 [verbose] > ╰──────────────────────────────────────────────────────────────────────────────╯
00:04:37 #19540 [verbose] >
00:04:37 #19541 [verbose] > ── spiral ──────────────────────────────────────────────────────────────────────
00:04:37 #19542 [verbose] > inl unzip list =
00:04:37 #19543 [verbose] > (([[]], [[]]), list)
00:04:37 #19544 [verbose] > ||> listm.fold fun (acc_x, acc_y) (x, y) =>
00:04:37 #19545 [verbose] > x :: acc_x, y :: acc_y
00:04:37 #19546 [verbose] > |> fun x, y =>
00:04:37 #19547 [verbose] > x |> listm.rev, y |> listm.rev
00:04:37 #19548 [verbose] > Building c:\home\git\polyglot\target\polyglot\spiral_eval\packages\a37a95a541cad82dbe9e38d3553498c8f3da796f02cf1c88a8f0760a6276dc78\main.spi
00:04:37 #19549 [verbose] >
00:04:37 #19550 [verbose] > ╭─[ 253.87ms - stdout ]────────────────────────────────────────────────────────╮
00:04:37 #19551 [verbose] > │ () │
00:04:37 #19552 [verbose] > │ │
00:04:37 #19553 [verbose] > │ │
00:04:37 #19554 [verbose] > ╰──────────────────────────────────────────────────────────────────────────────╯
00:04:37 #19555 [verbose] >
00:04:37 #19556 [verbose] > ── spiral ──────────────────────────────────────────────────────────────────────
00:04:37 #19557 [verbose] > // // test
00:04:37 #19558 [verbose] >
00:04:37 #19559 [verbose] > listm.init 10i32 id
00:04:37 #19560 [verbose] > |> listm.map (fun x => x, x)
00:04:37 #19561 [verbose] > |> unzip
00:04:37 #19562 [verbose] > |> fun x, y =>
00:04:37 #19563 [verbose] > x |> sum
00:04:37 #19564 [verbose] > |> _assert_eq 45
00:04:37 #19565 [verbose] >
00:04:37 #19566 [verbose] > y |> sum
00:04:37 #19567 [verbose] > |> _assert_eq 45
00:04:37 #19568 [verbose] > Building c:\home\git\polyglot\target\polyglot\spiral_eval\packages\3d03b2162e37844bb72e8aebdaea7e76fb952dd1a81773f99afa7f3f24083da3\main.spi
00:04:37 #19569 [verbose] >
00:04:37 #19570 [verbose] > ╭─[ 251.36ms - stdout ]────────────────────────────────────────────────────────╮
00:04:37 #19571 [verbose] > │ let rec method0 () : unit = │
00:04:37 #19572 [verbose] > │ let v0 : string = $"%A{45}" │
00:04:37 #19573 [verbose] > │ System.Console.WriteLine v0 │
00:04:37 #19574 [verbose] > │ let v1 : string = $"__expect / actual: %A{45} / expected: %A{45}" │
00:04:37 #19575 [verbose] > │ let v2 : string = $"%A{45}" │
00:04:37 #19576 [verbose] > │ System.Console.WriteLine v2 │
00:04:37 #19577 [verbose] > │ let v3 : string = $"__expect / actual: %A{45} / expected: %A{45}" │
00:04:37 #19578 [verbose] > │ () │
00:04:37 #19579 [verbose] > │ method0() │
00:04:37 #19580 [verbose] > │ │
00:04:37 #19581 [verbose] > │ 45 │
00:04:37 #19582 [verbose] > │ 45 │
00:04:37 #19583 [verbose] > │ │
00:04:37 #19584 [verbose] > ╰──────────────────────────────────────────────────────────────────────────────╯
00:04:37 #19585 [verbose] >
00:04:37 #19586 [verbose] > ── markdown ────────────────────────────────────────────────────────────────────
00:04:37 #19587 [verbose] > ╭──────────────────────────────────────────────────────────────────────────────╮
00:04:37 #19588 [verbose] > │ ## try_index_of │
00:04:37 #19589 [verbose] > ╰──────────────────────────────────────────────────────────────────────────────╯
00:04:37 #19590 [verbose] >
00:04:37 #19591 [verbose] > ── spiral ──────────────────────────────────────────────────────────────────────
00:04:37 #19592 [verbose] > inl try_index_of item list =
00:04:37 #19593 [verbose] > inl rec loop i = function
00:04:37 #19594 [verbose] > | [[]] => None
00:04:37 #19595 [verbose] > | x :: xs =>
00:04:37 #19596 [verbose] > if x = item
00:04:37 #19597 [verbose] > then Some i
00:04:37 #19598 [verbose] > else loop (i + 1) xs
00:04:37 #19599 [verbose] > loop 0 list
00:04:37 #19600 [verbose] >
00:04:37 #19601 [verbose] > inl index_of item =
00:04:37 #19602 [verbose] > try_index_of item >> optionm.value
00:04:37 #19603 [verbose] >
00:04:37 #19604 [verbose] > inl try_index_of_ item list =
00:04:37 #19605 [verbose] > let rec loop i = function
00:04:37 #19606 [verbose] > | [[]] => None
00:04:37 #19607 [verbose] > | x :: xs =>
00:04:37 #19608 [verbose] > if x = item
00:04:37 #19609 [verbose] > then Some i
00:04:37 #19610 [verbose] > else loop (i + 1) xs
00:04:37 #19611 [verbose] > loop 0 list
00:04:37 #19612 [verbose] >
00:04:37 #19613 [verbose] > inl index_of_ item =
00:04:37 #19614 [verbose] > try_index_of_ item >> optionm.value
00:04:37 #19615 [verbose] >
00:04:37 #19616 [verbose] > inl try_index_of__ item list =
00:04:37 #19617 [verbose] > inl i = mut 0
00:04:37 #19618 [verbose] > inl list = mut list
00:04:37 #19619 [verbose] > inl result = mut None
00:04:37 #19620 [verbose] > let rec loop () =
00:04:37 #19621 [verbose] > match *list with
00:04:37 #19622 [verbose] > | [[]] => result <- None
00:04:37 #19623 [verbose] > | x :: xs =>
00:04:37 #19624 [verbose] > if x = item
00:04:37 #19625 [verbose] > then result <- Some *i
00:04:37 #19626 [verbose] > else
00:04:37 #19627 [verbose] > i <- *i + 1
00:04:37 #19628 [verbose] > list <- xs
00:04:37 #19629 [verbose] > loop ()
00:04:37 #19630 [verbose] > loop ()
00:04:37 #19631 [verbose] > *result
00:04:37 #19632 [verbose] >
00:04:37 #19633 [verbose] > inl index_of__ item =
00:04:37 #19634 [verbose] > try_index_of__ item >> optionm.value
00:04:37 #19635 [verbose] > Building c:\home\git\polyglot\target\polyglot\spiral_eval\packages\a3748b839026e05343b56e850c575cbbf1d829635a39700cd541fdd246791eb1\main.spi
00:04:37 #19636 [verbose] >
00:04:37 #19637 [verbose] > ╭─[ 228.83ms - stdout ]────────────────────────────────────────────────────────╮
00:04:37 #19638 [verbose] > │ () │
00:04:37 #19639 [verbose] > │ │
00:04:37 #19640 [verbose] > │ │
00:04:37 #19641 [verbose] > ╰──────────────────────────────────────────────────────────────────────────────╯
00:04:37 #19642 [verbose] >
00:04:37 #19643 [verbose] > ── spiral ──────────────────────────────────────────────────────────────────────
00:04:37 #19644 [verbose] > // // test
00:04:37 #19645 [verbose] >
00:04:37 #19646 [verbose] > listm.init 10i32 id
00:04:37 #19647 [verbose] > |> index_of 5i32
00:04:37 #19648 [verbose] > |> _assert_eq 5i32
00:04:38 #19649 [verbose] > Building c:\home\git\polyglot\target\polyglot\spiral_eval\packages\e875d9c80494bfefd246409465958e0185ec32ae5edd46d157d4d3b022067c06\main.spi
00:04:38 #19650 [verbose] >
00:04:38 #19651 [verbose] > ╭─[ 238.46ms - stdout ]────────────────────────────────────────────────────────╮
00:04:38 #19652 [verbose] > │ let rec method0 () : unit = │
00:04:38 #19653 [verbose] > │ let v0 : string = $"%A{5}" │
00:04:38 #19654 [verbose] > │ System.Console.WriteLine v0 │
00:04:38 #19655 [verbose] > │ let v1 : string = $"__expect / actual: %A{5} / expected: %A{5}" │
00:04:38 #19656 [verbose] > │ () │
00:04:38 #19657 [verbose] > │ method0() │
00:04:38 #19658 [verbose] > │ │
00:04:38 #19659 [verbose] > │ 5 │
00:04:38 #19660 [verbose] > │ │
00:04:38 #19661 [verbose] > ╰──────────────────────────────────────────────────────────────────────────────╯
00:04:38 #19662 [verbose] >
00:04:38 #19663 [verbose] > ── spiral ──────────────────────────────────────────────────────────────────────
00:04:38 #19664 [verbose] > // // test
00:04:38 #19665 [verbose] >
00:04:38 #19666 [verbose] > listm.init 10i32 id
00:04:38 #19667 [verbose] > |> try_index_of 10i32
00:04:38 #19668 [verbose] > |> _assert_eq (None : option i32)
00:04:38 #19669 [verbose] > Building c:\home\git\polyglot\target\polyglot\spiral_eval\packages\385275074dfe6b829bcdafb5ae2e67182da4d0ca4b6e18aaf5ff4a3ea3d92c11\main.spi
00:04:38 #19670 [verbose] >
00:04:38 #19671 [verbose] > ╭─[ 248.57ms - stdout ]────────────────────────────────────────────────────────╮
00:04:38 #19672 [verbose] > │ type [<Struct>] US0 = │
00:04:38 #19673 [verbose] > │ | US0_0 of f0_0 : int32 │
00:04:38 #19674 [verbose] > │ | US0_1 │
00:04:38 #19675 [verbose] > │ let rec method0 () : unit = │
00:04:38 #19676 [verbose] > │ let v0 : US0 = US0_1 │
00:04:38 #19677 [verbose] > │ let v1 : string = $"%A{v0}" │
00:04:38 #19678 [verbose] > │ System.Console.WriteLine v1 │
00:04:38 #19679 [verbose] > │ let v5 : US0 = US0_1 │
00:04:38 #19680 [verbose] > │ let v6 : US0 = US0_1 │
00:04:38 #19681 [verbose] > │ let v7 : string = $"__expect / actual: %A{v5} / expected: %A{v6}" │
00:04:38 #19682 [verbose] > │ () │
00:04:38 #19683 [verbose] > │ method0() │
00:04:38 #19684 [verbose] > │ │
00:04:38 #19685 [verbose] > │ US0_1 │
00:04:38 #19686 [verbose] > │ │
00:04:38 #19687 [verbose] > ╰──────────────────────────────────────────────────────────────────────────────╯
00:04:38 #19688 [verbose] >
00:04:38 #19689 [verbose] > ── markdown ────────────────────────────────────────────────────────────────────
00:04:38 #19690 [verbose] > ╭──────────────────────────────────────────────────────────────────────────────╮
00:04:38 #19691 [verbose] > │ ## try_find │
00:04:38 #19692 [verbose] > ╰──────────────────────────────────────────────────────────────────────────────╯
00:04:38 #19693 [verbose] >
00:04:38 #19694 [verbose] > ── spiral ──────────────────────────────────────────────────────────────────────
00:04:38 #19695 [verbose] > inl try_find fn list =
00:04:38 #19696 [verbose] > inl rec loop = function
00:04:38 #19697 [verbose] > | [[]] => None
00:04:38 #19698 [verbose] > | x :: xs =>
00:04:38 #19699 [verbose] > if fn x
00:04:38 #19700 [verbose] > then Some x
00:04:38 #19701 [verbose] > else loop xs
00:04:38 #19702 [verbose] > loop list
00:04:38 #19703 [verbose] >
00:04:38 #19704 [verbose] > inl try_find_ fn list =
00:04:38 #19705 [verbose] > let rec loop = function
00:04:38 #19706 [verbose] > | [[]] => None
00:04:38 #19707 [verbose] > | x :: xs =>
00:04:38 #19708 [verbose] > if fn x
00:04:38 #19709 [verbose] > then Some x
00:04:38 #19710 [verbose] > else loop xs
00:04:38 #19711 [verbose] > loop list
00:04:38 #19712 [verbose] > Building c:\home\git\polyglot\target\polyglot\spiral_eval\packages\41d5ad9925cd1d9301925c940a9411d99dd68ffae0d6d4cc8d081cd697d4c6da\main.spi
00:04:38 #19713 [verbose] >
00:04:38 #19714 [verbose] > ╭─[ 240.19ms - stdout ]────────────────────────────────────────────────────────╮
00:04:38 #19715 [verbose] > │ () │
00:04:38 #19716 [verbose] > │ │
00:04:38 #19717 [verbose] > │ │
00:04:38 #19718 [verbose] > ╰──────────────────────────────────────────────────────────────────────────────╯
00:04:38 #19719 [verbose] >
00:04:38 #19720 [verbose] > ── spiral ──────────────────────────────────────────────────────────────────────
00:04:38 #19721 [verbose] > // // test
00:04:38 #19722 [verbose] >
00:04:38 #19723 [verbose] > listm.init 10i32 id
00:04:38 #19724 [verbose] > |> try_find ((=) 5i32)
00:04:38 #19725 [verbose] > |> _assert_eq (Some 5i32)
00:04:38 #19726 [verbose] > Building c:\home\git\polyglot\target\polyglot\spiral_eval\packages\44155e76aa0cabab94d313b7388ae4f18f8da25941b6bc9076e5e74a839da3d3\main.spi
00:04:38 #19727 [verbose] >
00:04:38 #19728 [verbose] > ╭─[ 261.73ms - stdout ]────────────────────────────────────────────────────────╮
00:04:38 #19729 [verbose] > │ type [<Struct>] US0 = │
00:04:38 #19730 [verbose] > │ | US0_0 of f0_0 : int32 │
00:04:38 #19731 [verbose] > │ | US0_1 │
00:04:38 #19732 [verbose] > │ let rec method0 () : unit = │
00:04:38 #19733 [verbose] > │ let v0 : US0 = US0_0(5) │
00:04:38 #19734 [verbose] > │ let v1 : string = $"%A{v0}" │
00:04:38 #19735 [verbose] > │ System.Console.WriteLine v1 │
00:04:38 #19736 [verbose] > │ let v5 : US0 = US0_0(5) │
00:04:38 #19737 [verbose] > │ let v6 : US0 = US0_0(5) │
00:04:38 #19738 [verbose] > │ let v7 : string = $"__expect / actual: %A{v5} / expected: %A{v6}" │
00:04:38 #19739 [verbose] > │ () │
00:04:38 #19740 [verbose] > │ method0() │
00:04:38 #19741 [verbose] > │ │
00:04:38 #19742 [verbose] > │ US0_0 5 │
00:04:38 #19743 [verbose] > │ │
00:04:38 #19744 [verbose] > ╰──────────────────────────────────────────────────────────────────────────────╯
00:04:38 #19745 [verbose] >
00:04:38 #19746 [verbose] > ── spiral ──────────────────────────────────────────────────────────────────────
00:04:38 #19747 [verbose] > inl find x =
00:04:38 #19748 [verbose] > try_find x >> optionm.value
00:04:38 #19749 [verbose] >
00:04:38 #19750 [verbose] > inl find_ x =
00:04:38 #19751 [verbose] > try_find_ x >> optionm.value
00:04:39 #19752 [verbose] > Building c:\home\git\polyglot\target\polyglot\spiral_eval\packages\1560e75e6f15b72be86454f6e2a9aa3b649b360ba4e0d9c1331416cc74aeb940\main.spi
00:04:39 #19753 [verbose] >
00:04:39 #19754 [verbose] > ╭─[ 225.08ms - stdout ]────────────────────────────────────────────────────────╮
00:04:39 #19755 [verbose] > │ () │
00:04:39 #19756 [verbose] > │ │
00:04:39 #19757 [verbose] > │ │
00:04:39 #19758 [verbose] > ╰──────────────────────────────────────────────────────────────────────────────╯
00:04:39 #19759 [verbose] >
00:04:39 #19760 [verbose] > ── spiral ──────────────────────────────────────────────────────────────────────
00:04:39 #19761 [verbose] > // // test
00:04:39 #19762 [verbose] >
00:04:39 #19763 [verbose] > listm.init 10i32 id
00:04:39 #19764 [verbose] > |> find ((=) 5i32)
00:04:39 #19765 [verbose] > |> _assert_eq 5i32
00:04:39 #19766 [verbose] > Building c:\home\git\polyglot\target\polyglot\spiral_eval\packages\e0861a34dd853823133feb496f8055edb5aa89a1139735e8d8633d25090ad74a\main.spi
00:04:39 #19767 [verbose] >
00:04:39 #19768 [verbose] > ╭─[ 246.99ms - stdout ]────────────────────────────────────────────────────────╮
00:04:39 #19769 [verbose] > │ let rec method0 () : unit = │
00:04:39 #19770 [verbose] > │ let v0 : string = $"%A{5}" │
00:04:39 #19771 [verbose] > │ System.Console.WriteLine v0 │
00:04:39 #19772 [verbose] > │ let v1 : string = $"__expect / actual: %A{5} / expected: %A{5}" │
00:04:39 #19773 [verbose] > │ () │
00:04:39 #19774 [verbose] > │ method0() │
00:04:39 #19775 [verbose] > │ │
00:04:39 #19776 [verbose] > │ 5 │
00:04:39 #19777 [verbose] > │ │
00:04:39 #19778 [verbose] > ╰──────────────────────────────────────────────────────────────────────────────╯
00:04:39 #19779 [verbose] >
00:04:39 #19780 [verbose] > ── markdown ────────────────────────────────────────────────────────────────────
00:04:39 #19781 [verbose] > ╭──────────────────────────────────────────────────────────────────────────────╮
00:04:39 #19782 [verbose] > │ ## choose │
00:04:39 #19783 [verbose] > ╰──────────────────────────────────────────────────────────────────────────────╯
00:04:39 #19784 [verbose] >
00:04:39 #19785 [verbose] > ── spiral ──────────────────────────────────────────────────────────────────────
00:04:39 #19786 [verbose] > inl choose f l =
00:04:39 #19787 [verbose] > (l, [[]])
00:04:39 #19788 [verbose] > ||> listm.foldBack fun x acc =>
00:04:39 #19789 [verbose] > match f x with
00:04:39 #19790 [verbose] > | Some y => y :: acc
00:04:39 #19791 [verbose] > | None => acc
00:04:39 #19792 [verbose] > Building c:\home\git\polyglot\target\polyglot\spiral_eval\packages\4798ef476421ca6d9bdacabb4f8ba7234ec5eb119e1c439228bb04e000d9b033\main.spi
00:04:39 #19793 [verbose] >
00:04:39 #19794 [verbose] > ╭─[ 236.27ms - stdout ]────────────────────────────────────────────────────────╮
00:04:39 #19795 [verbose] > │ () │
00:04:39 #19796 [verbose] > │ │
00:04:39 #19797 [verbose] > │ │
00:04:39 #19798 [verbose] > ╰──────────────────────────────────────────────────────────────────────────────╯
00:04:39 #19799 [verbose] >
00:04:39 #19800 [verbose] > ── spiral ──────────────────────────────────────────────────────────────────────
00:04:39 #19801 [verbose] > // // test
00:04:39 #19802 [verbose] >
00:04:39 #19803 [verbose] > listm.init 10i32 id
00:04:39 #19804 [verbose] > |> choose (fun x => if x % 2 = 0 then Some x else None)
00:04:39 #19805 [verbose] > |> _assert_eq [[ 0; 2; 4; 6; 8 ]]
00:04:39 #19806 [verbose] > Building c:\home\git\polyglot\target\polyglot\spiral_eval\packages\8ba20d8c6c51524864639f6bb980cab8ab18b20a90dc1249feb91527b72d857d\main.spi
00:04:39 #19807 [verbose] >
00:04:39 #19808 [verbose] > ╭─[ 309.60ms - stdout ]────────────────────────────────────────────────────────╮
00:04:39 #19809 [verbose] > │ type UH0 = │
00:04:39 #19810 [verbose] > │ | UH0_0 │
00:04:39 #19811 [verbose] > │ | UH0_1 of int32 * UH0 │
00:04:39 #19812 [verbose] > │ let rec method0 () : unit = │
00:04:39 #19813 [verbose] > │ let v0 : UH0 = UH0_0 │
00:04:39 #19814 [verbose] > │ let v1 : UH0 = UH0_1(8, v0) │
00:04:39 #19815 [verbose] > │ let v2 : UH0 = UH0_1(6, v1) │
00:04:39 #19816 [verbose] > │ let v3 : UH0 = UH0_1(4, v2) │
00:04:39 #19817 [verbose] > │ let v4 : UH0 = UH0_1(2, v3) │
00:04:39 #19818 [verbose] > │ let v5 : UH0 = UH0_1(0, v4) │
00:04:39 #19819 [verbose] > │ let v6 : string = $"%A{v5}" │
00:04:39 #19820 [verbose] > │ System.Console.WriteLine v6 │
00:04:39 #19821 [verbose] > │ let v40 : UH0 = UH0_0 │
00:04:39 #19822 [verbose] > │ let v41 : UH0 = UH0_1(8, v40) │
00:04:39 #19823 [verbose] > │ let v42 : UH0 = UH0_1(6, v41) │
00:04:39 #19824 [verbose] > │ let v43 : UH0 = UH0_1(4, v42) │
00:04:39 #19825 [verbose] > │ let v44 : UH0 = UH0_1(2, v43) │
00:04:39 #19826 [verbose] > │ let v45 : UH0 = UH0_1(0, v44) │
00:04:39 #19827 [verbose] > │ let v46 : UH0 = UH0_0 │
00:04:39 #19828 [verbose] > │ let v47 : UH0 = UH0_1(8, v46) │
00:04:39 #19829 [verbose] > │ let v48 : UH0 = UH0_1(6, v47) │
00:04:39 #19830 [verbose] > │ let v49 : UH0 = UH0_1(4, v48) │
00:04:39 #19831 [verbose] > │ let v50 : UH0 = UH0_1(2, v49) │
00:04:39 #19832 [verbose] > │ let v51 : UH0 = UH0_1(0, v50) │
00:04:39 #19833 [verbose] > │ let v52 : string = $"__expect / actual: %A{v45} / expected: %A{v51}" │
00:04:39 #19834 [verbose] > │ () │
00:04:39 #19835 [verbose] > │ method0() │
00:04:39 #19836 [verbose] > │ │
00:04:39 #19837 [verbose] > │ UH0_1 (0, UH0_1 (2, UH0_1 (4, UH0_1 (6, UH0_1 (8, UH0_0))))) │
00:04:39 #19838 [verbose] > │ │
00:04:39 #19839 [verbose] > ╰──────────────────────────────────────────────────────────────────────────────╯
00:04:39 #19840 [verbose] >
00:04:39 #19841 [verbose] > ── markdown ────────────────────────────────────────────────────────────────────
00:04:39 #19842 [verbose] > ╭──────────────────────────────────────────────────────────────────────────────╮
00:04:39 #19843 [verbose] > │ ## zip_with │
00:04:39 #19844 [verbose] > ╰──────────────────────────────────────────────────────────────────────────────╯
00:04:39 #19845 [verbose] >
00:04:39 #19846 [verbose] > ── spiral ──────────────────────────────────────────────────────────────────────
00:04:39 #19847 [verbose] > inl zip_with fn xs ys =
00:04:39 #19848 [verbose] > inl rec loop acc xs ys =
00:04:39 #19849 [verbose] > match xs, ys with
00:04:39 #19850 [verbose] > | Cons (x, xs), Cons (y, ys) =>
00:04:39 #19851 [verbose] > loop (fn x y :: acc) xs ys
00:04:39 #19852 [verbose] > | _ => listm.rev acc
00:04:39 #19853 [verbose] > loop [[]] xs ys
00:04:39 #19854 [verbose] >
00:04:39 #19855 [verbose] > inl zip_with_ fn xs ys =
00:04:39 #19856 [verbose] > let rec loop acc xs ys =
00:04:39 #19857 [verbose] > match xs, ys with
00:04:39 #19858 [verbose] > | Cons (x, xs), Cons (y, ys) =>
00:04:39 #19859 [verbose] > loop (fn x y :: acc) xs ys
00:04:39 #19860 [verbose] > | _ => listm.rev acc
00:04:39 #19861 [verbose] > loop [[]] xs ys
00:04:40 #19862 [verbose] > Building c:\home\git\polyglot\target\polyglot\spiral_eval\packages\d56423d2827056710263583d12d96824c5f66222ba788f73e8ca2f24fa777fde\main.spi
00:04:40 #19863 [verbose] >
00:04:40 #19864 [verbose] > ╭─[ 324.23ms - stdout ]────────────────────────────────────────────────────────╮
00:04:40 #19865 [verbose] > │ () │
00:04:40 #19866 [verbose] > │ │
00:04:40 #19867 [verbose] > │ │
00:04:40 #19868 [verbose] > ╰──────────────────────────────────────────────────────────────────────────────╯
00:04:40 #19869 [verbose] >
00:04:40 #19870 [verbose] > ── spiral ──────────────────────────────────────────────────────────────────────
00:04:40 #19871 [verbose] > // // test
00:04:40 #19872 [verbose] >
00:04:40 #19873 [verbose] > ([[ 1i32; 2; 3 ]], [[ 4; 5; 6 ]])
00:04:40 #19874 [verbose] > ||> zip_with (+)
00:04:40 #19875 [verbose] > |> _assert_eq [[ 5; 7; 9 ]]
00:04:40 #19876 [verbose] > Building c:\home\git\polyglot\target\polyglot\spiral_eval\packages\5bc682573e8dc519ba24e17ec52fcd1760c79377cc08f1ce2d624c722a295bb1\main.spi
00:04:40 #19877 [verbose] >
00:04:40 #19878 [verbose] > ╭─[ 261.08ms - stdout ]────────────────────────────────────────────────────────╮
00:04:40 #19879 [verbose] > │ type UH0 = │
00:04:40 #19880 [verbose] > │ | UH0_0 │
00:04:40 #19881 [verbose] > │ | UH0_1 of int32 * UH0 │
00:04:40 #19882 [verbose] > │ let rec method0 () : unit = │
00:04:40 #19883 [verbose] > │ let v0 : UH0 = UH0_0 │
00:04:40 #19884 [verbose] > │ let v1 : UH0 = UH0_1(9, v0) │
00:04:40 #19885 [verbose] > │ let v2 : UH0 = UH0_1(7, v1) │
00:04:40 #19886 [verbose] > │ let v3 : UH0 = UH0_1(5, v2) │
00:04:40 #19887 [verbose] > │ let v4 : string = $"%A{v3}" │
00:04:40 #19888 [verbose] > │ System.Console.WriteLine v4 │
00:04:40 #19889 [verbose] > │ let v23 : UH0 = UH0_0 │
00:04:40 #19890 [verbose] > │ let v24 : UH0 = UH0_1(9, v23) │
00:04:40 #19891 [verbose] > │ let v25 : UH0 = UH0_1(7, v24) │
00:04:40 #19892 [verbose] > │ let v26 : UH0 = UH0_1(5, v25) │
00:04:40 #19893 [verbose] > │ let v27 : UH0 = UH0_0 │
00:04:40 #19894 [verbose] > │ let v28 : UH0 = UH0_1(9, v27) │
00:04:40 #19895 [verbose] > │ let v29 : UH0 = UH0_1(7, v28) │
00:04:40 #19896 [verbose] > │ let v30 : UH0 = UH0_1(5, v29) │
00:04:40 #19897 [verbose] > │ let v31 : string = $"__expect / actual: %A{v26} / expected: %A{v30}" │
00:04:40 #19898 [verbose] > │ () │
00:04:40 #19899 [verbose] > │ method0() │
00:04:40 #19900 [verbose] > │ │
00:04:40 #19901 [verbose] > │ UH0_1 (5, UH0_1 (7, UH0_1 (9, UH0_0))) │
00:04:40 #19902 [verbose] > │ │
00:04:40 #19903 [verbose] > ╰──────────────────────────────────────────────────────────────────────────────╯
00:04:40 #19904 [verbose] >
00:04:40 #19905 [verbose] > ── markdown ────────────────────────────────────────────────────────────────────
00:04:40 #19906 [verbose] > ╭──────────────────────────────────────────────────────────────────────────────╮
00:04:40 #19907 [verbose] > │ ## zip │
00:04:40 #19908 [verbose] > ╰──────────────────────────────────────────────────────────────────────────────╯
00:04:40 #19909 [verbose] >
00:04:40 #19910 [verbose] > ── spiral ──────────────────────────────────────────────────────────────────────
00:04:40 #19911 [verbose] > inl zip xs ys =
00:04:40 #19912 [verbose] > zip_with pair xs ys
00:04:40 #19913 [verbose] >
00:04:40 #19914 [verbose] > inl zip_ xs ys =
00:04:40 #19915 [verbose] > zip_with_ pair xs ys
00:04:40 #19916 [verbose] > Building c:\home\git\polyglot\target\polyglot\spiral_eval\packages\7abb27f55aa9cf9777400d51668a1d887e7cf18bebfb50349da4d4a167703f2f\main.spi
00:04:40 #19917 [verbose] >
00:04:40 #19918 [verbose] > ╭─[ 235.57ms - stdout ]────────────────────────────────────────────────────────╮
00:04:40 #19919 [verbose] > │ () │
00:04:40 #19920 [verbose] > │ │
00:04:40 #19921 [verbose] > │ │
00:04:40 #19922 [verbose] > ╰──────────────────────────────────────────────────────────────────────────────╯
00:04:40 #19923 [verbose] >
00:04:40 #19924 [verbose] > ── spiral ──────────────────────────────────────────────────────────────────────
00:04:40 #19925 [verbose] > // // test
00:04:40 #19926 [verbose] >
00:04:40 #19927 [verbose] > ([[ 1i32; 2; 3 ]], [[ 4i32; 5; 6 ]])
00:04:40 #19928 [verbose] > ||> zip
00:04:40 #19929 [verbose] > |> _assert_eq [[ 1, 4; 2, 5; 3, 6 ]]
00:04:40 #19930 [verbose] > Building c:\home\git\polyglot\target\polyglot\spiral_eval\packages\7afd3c2e79fd9ef45c43e7441ac0c4cfef00501316bad36ad4beb6449714ca6b\main.spi
00:04:41 #19931 [verbose] >
00:04:41 #19932 [verbose] > ╭─[ 350.78ms - stdout ]────────────────────────────────────────────────────────╮
00:04:41 #19933 [verbose] > │ type UH0 = │
00:04:41 #19934 [verbose] > │ | UH0_0 │
00:04:41 #19935 [verbose] > │ | UH0_1 of int32 * int32 * UH0 │
00:04:41 #19936 [verbose] > │ let rec method0 () : unit = │
00:04:41 #19937 [verbose] > │ let v0 : UH0 = UH0_0 │
00:04:41 #19938 [verbose] > │ let v1 : UH0 = UH0_1(3, 6, v0) │
00:04:41 #19939 [verbose] > │ let v2 : UH0 = UH0_1(2, 5, v1) │
00:04:41 #19940 [verbose] > │ let v3 : UH0 = UH0_1(1, 4, v2) │
00:04:41 #19941 [verbose] > │ let v4 : string = $"%A{v3}" │
00:04:41 #19942 [verbose] > │ System.Console.WriteLine v4 │
00:04:41 #19943 [verbose] > │ let v23 : UH0 = UH0_0 │
00:04:41 #19944 [verbose] > │ let v24 : UH0 = UH0_1(3, 6, v23) │
00:04:41 #19945 [verbose] > │ let v25 : UH0 = UH0_1(2, 5, v24) │
00:04:41 #19946 [verbose] > │ let v26 : UH0 = UH0_1(1, 4, v25) │
00:04:41 #19947 [verbose] > │ let v27 : UH0 = UH0_0 │
00:04:41 #19948 [verbose] > │ let v28 : UH0 = UH0_1(3, 6, v27) │
00:04:41 #19949 [verbose] > │ let v29 : UH0 = UH0_1(2, 5, v28) │
00:04:41 #19950 [verbose] > │ let v30 : UH0 = UH0_1(1, 4, v29) │
00:04:41 #19951 [verbose] > │ let v31 : string = $"__expect / actual: %A{v26} / expected: %A{v30}" │
00:04:41 #19952 [verbose] > │ () │
00:04:41 #19953 [verbose] > │ method0() │
00:04:41 #19954 [verbose] > │ │
00:04:41 #19955 [verbose] > │ UH0_1 (1, 4, UH0_1 (2, 5, UH0_1 (3, 6, UH0_0))) │
00:04:41 #19956 [verbose] > │ │
00:04:41 #19957 [verbose] > ╰──────────────────────────────────────────────────────────────────────────────╯
00:04:41 #19958 [verbose] >
00:04:41 #19959 [verbose] > ── markdown ────────────────────────────────────────────────────────────────────
00:04:41 #19960 [verbose] > ╭──────────────────────────────────────────────────────────────────────────────╮
00:04:41 #19961 [verbose] > │ ## indexed │
00:04:41 #19962 [verbose] > ╰──────────────────────────────────────────────────────────────────────────────╯
00:04:41 #19963 [verbose] >
00:04:41 #19964 [verbose] > ── spiral ──────────────────────────────────────────────────────────────────────
00:04:41 #19965 [verbose] > inl indexed list =
00:04:41 #19966 [verbose] > (([[]], 0), list)
00:04:41 #19967 [verbose] > ||> listm.fold fun (acc, i) x =>
00:04:41 #19968 [verbose] > (i, x) :: acc, i + 1
00:04:41 #19969 [verbose] > |> fst
00:04:41 #19970 [verbose] > |> listm.rev
00:04:41 #19971 [verbose] > Building c:\home\git\polyglot\target\polyglot\spiral_eval\packages\f32a80e7eff548911f7abbbafd89ceb4e8b22f9ca8399f9a5b2c18e6552345f1\main.spi
00:04:41 #19972 [verbose] >
00:04:41 #19973 [verbose] > ╭─[ 209.11ms - stdout ]────────────────────────────────────────────────────────╮
00:04:41 #19974 [verbose] > │ () │
00:04:41 #19975 [verbose] > │ │
00:04:41 #19976 [verbose] > │ │
00:04:41 #19977 [verbose] > ╰──────────────────────────────────────────────────────────────────────────────╯
00:04:41 #19978 [verbose] >
00:04:41 #19979 [verbose] > ── spiral ──────────────────────────────────────────────────────────────────────
00:04:41 #19980 [verbose] > // // test
00:04:41 #19981 [verbose] >
00:04:41 #19982 [verbose] > listm.init 5i32 ((*) 2)
00:04:41 #19983 [verbose] > |> indexed
00:04:41 #19984 [verbose] > |> _assert_eq [[ 0i32, 0; 1, 2; 2, 4; 3, 6; 4, 8 ]]
00:04:41 #19985 [verbose] > Building c:\home\git\polyglot\target\polyglot\spiral_eval\packages\791dce5d23486049635173771b91bd3588d2cc80c0e994155af9484939f47116\main.spi
00:04:41 #19986 [verbose] >
00:04:41 #19987 [verbose] > ╭─[ 298.76ms - stdout ]────────────────────────────────────────────────────────╮
00:04:41 #19988 [verbose] > │ type UH0 = │
00:04:41 #19989 [verbose] > │ | UH0_0 │
00:04:41 #19990 [verbose] > │ | UH0_1 of int32 * int32 * UH0 │
00:04:41 #19991 [verbose] > │ let rec method0 () : unit = │
00:04:41 #19992 [verbose] > │ let v0 : UH0 = UH0_0 │
00:04:41 #19993 [verbose] > │ let v1 : UH0 = UH0_1(4, 8, v0) │
00:04:41 #19994 [verbose] > │ let v2 : UH0 = UH0_1(3, 6, v1) │
00:04:41 #19995 [verbose] > │ let v3 : UH0 = UH0_1(2, 4, v2) │
00:04:41 #19996 [verbose] > │ let v4 : UH0 = UH0_1(1, 2, v3) │
00:04:41 #19997 [verbose] > │ let v5 : UH0 = UH0_1(0, 0, v4) │
00:04:41 #19998 [verbose] > │ let v6 : string = $"%A{v5}" │
00:04:41 #19999 [verbose] > │ System.Console.WriteLine v6 │
00:04:41 #20000 [verbose] > │ let v40 : UH0 = UH0_0 │
00:04:41 #20001 [verbose] > │ let v41 : UH0 = UH0_1(4, 8, v40) │
00:04:41 #20002 [verbose] > │ let v42 : UH0 = UH0_1(3, 6, v41) │
00:04:41 #20003 [verbose] > │ let v43 : UH0 = UH0_1(2, 4, v42) │
00:04:41 #20004 [verbose] > │ let v44 : UH0 = UH0_1(1, 2, v43) │
00:04:41 #20005 [verbose] > │ let v45 : UH0 = UH0_1(0, 0, v44) │
00:04:41 #20006 [verbose] > │ let v46 : UH0 = UH0_0 │
00:04:41 #20007 [verbose] > │ let v47 : UH0 = UH0_1(4, 8, v46) │
00:04:41 #20008 [verbose] > │ let v48 : UH0 = UH0_1(3, 6, v47) │
00:04:41 #20009 [verbose] > │ let v49 : UH0 = UH0_1(2, 4, v48) │
00:04:41 #20010 [verbose] > │ let v50 : UH0 = UH0_1(1, 2, v49) │
00:04:41 #20011 [verbose] > │ let v51 : UH0 = UH0_1(0, 0, v50) │
00:04:41 #20012 [verbose] > │ let v52 : string = $"__expect / actual: %A{v45} / expected: %A{v51}" │
00:04:41 #20013 [verbose] > │ () │
00:04:41 #20014 [verbose] > │ method0() │
00:04:41 #20015 [verbose] > │ │
00:04:41 #20016 [verbose] > │ UH0_1 (0, 0, UH0_1 (1, 2, UH0_1 (2, 4, UH0_1 (3, 6, UH0_1 (4, 8, UH0_0))))) │
00:04:41 #20017 [verbose] > │ │
00:04:41 #20018 [verbose] > ╰──────────────────────────────────────────────────────────────────────────────╯
00:04:41 #20019 [verbose] >
00:04:41 #20020 [verbose] > ── markdown ────────────────────────────────────────────────────────────────────
00:04:41 #20021 [verbose] > ╭──────────────────────────────────────────────────────────────────────────────╮
00:04:41 #20022 [verbose] > │ ## group_by │
00:04:41 #20023 [verbose] > ╰──────────────────────────────────────────────────────────────────────────────╯
00:04:41 #20024 [verbose] >
00:04:41 #20025 [verbose] > ── spiral ──────────────────────────────────────────────────────────────────────
00:04:41 #20026 [verbose] > inl group_by fn list =
00:04:41 #20027 [verbose] > (list, [[]])
00:04:41 #20028 [verbose] > ||> listm.foldBack fun x acc =>
00:04:41 #20029 [verbose] > inl xk = fn x
00:04:41 #20030 [verbose] > inl found, new_acc =
00:04:41 #20031 [verbose] > ((false, [[]]), acc)
00:04:41 #20032 [verbose] > ||> listm.fold fun (found, acc') (k, xs) =>
00:04:41 #20033 [verbose] > if k = xk
00:04:41 #20034 [verbose] > then true, (k, x :: xs) :: acc'
00:04:41 #20035 [verbose] > else found, (k, xs) :: acc'
00:04:41 #20036 [verbose] > if found
00:04:41 #20037 [verbose] > then new_acc
00:04:41 #20038 [verbose] > else (xk, [[ x ]]) :: new_acc
00:04:41 #20039 [verbose] > Building c:\home\git\polyglot\target\polyglot\spiral_eval\packages\96a3098dbcdbd3c701e2a248366413ba4991fd2ff117f0f6dc287228e639df86\main.spi
00:04:41 #20040 [verbose] >
00:04:41 #20041 [verbose] > ╭─[ 221.39ms - stdout ]────────────────────────────────────────────────────────╮
00:04:41 #20042 [verbose] > │ () │
00:04:41 #20043 [verbose] > │ │
00:04:41 #20044 [verbose] > │ │
00:04:41 #20045 [verbose] > ╰──────────────────────────────────────────────────────────────────────────────╯
00:04:41 #20046 [verbose] >
00:04:41 #20047 [verbose] > ── spiral ──────────────────────────────────────────────────────────────────────
00:04:41 #20048 [verbose] > // // test
00:04:41 #20049 [verbose] >
00:04:41 #20050 [verbose] > listm.init 10i32 id
00:04:41 #20051 [verbose] > |> group_by (fun x => x % 2 = 0)
00:04:41 #20052 [verbose] > |> _assert_eq [[ true, [[ 0; 2; 4; 6; 8 ]]; false, [[ 1; 3; 5; 7; 9 ]] ]]
00:04:42 #20053 [verbose] > Building c:\home\git\polyglot\target\polyglot\spiral_eval\packages\5da398e92a8677b848e91896a55e8a4a4ed740b54a293fe2e04c5bbdaa658941\main.spi
00:04:42 #20054 [verbose] >
00:04:42 #20055 [verbose] > ╭─[ 355.51ms - stdout ]────────────────────────────────────────────────────────╮
00:04:42 #20056 [verbose] > │ type UH0 = │
00:04:42 #20057 [verbose] > │ | UH0_0 │
00:04:42 #20058 [verbose] > │ | UH0_1 of int32 * UH0 │
00:04:42 #20059 [verbose] > │ and UH1 = │
00:04:42 #20060 [verbose] > │ | UH1_0 │
00:04:42 #20061 [verbose] > │ | UH1_1 of bool * UH0 * UH1 │
00:04:42 #20062 [verbose] > │ let rec method0 () : unit = │
00:04:42 #20063 [verbose] > │ let v0 : UH0 = UH0_0 │
00:04:42 #20064 [verbose] > │ let v1 : UH0 = UH0_1(8, v0) │
00:04:42 #20065 [verbose] > │ let v2 : UH0 = UH0_1(6, v1) │
00:04:42 #20066 [verbose] > │ let v3 : UH0 = UH0_1(4, v2) │
00:04:42 #20067 [verbose] > │ let v4 : UH0 = UH0_1(2, v3) │
00:04:42 #20068 [verbose] > │ let v5 : UH0 = UH0_1(0, v4) │
00:04:42 #20069 [verbose] > │ let v6 : UH0 = UH0_0 │
00:04:42 #20070 [verbose] > │ let v7 : UH0 = UH0_1(9, v6) │
00:04:42 #20071 [verbose] > │ let v8 : UH0 = UH0_1(7, v7) │
00:04:42 #20072 [verbose] > │ let v9 : UH0 = UH0_1(5, v8) │
00:04:42 #20073 [verbose] > │ let v10 : UH0 = UH0_1(3, v9) │
00:04:42 #20074 [verbose] > │ let v11 : UH0 = UH0_1(1, v10) │
00:04:42 #20075 [verbose] > │ let v12 : UH1 = UH1_0 │
00:04:42 #20076 [verbose] > │ let v13 : UH1 = UH1_1(false, v11, v12) │
00:04:42 #20077 [verbose] > │ let v14 : UH1 = UH1_1(true, v5, v13) │
00:04:42 #20078 [verbose] > │ let v15 : string = $"%A{v14}" │
00:04:42 #20079 [verbose] > │ System.Console.WriteLine v15 │
00:04:42 #20080 [verbose] > │ let v112 : UH0 = UH0_0 │
00:04:42 #20081 [verbose] > │ let v113 : UH0 = UH0_1(8, v112) │
00:04:42 #20082 [verbose] > │ let v114 : UH0 = UH0_1(6, v113) │
00:04:42 #20083 [verbose] > │ let v115 : UH0 = UH0_1(4, v114) │
00:04:42 #20084 [verbose] > │ let v116 : UH0 = UH0_1(2, v115) │
00:04:42 #20085 [verbose] > │ let v117 : UH0 = UH0_1(0, v116) │
00:04:42 #20086 [verbose] > │ let v118 : UH0 = UH0_0 │
00:04:42 #20087 [verbose] > │ let v119 : UH0 = UH0_1(9, v118) │
00:04:42 #20088 [verbose] > │ let v120 : UH0 = UH0_1(7, v119) │
00:04:42 #20089 [verbose] > │ let v121 : UH0 = UH0_1(5, v120) │
00:04:42 #20090 [verbose] > │ let v122 : UH0 = UH0_1(3, v121) │
00:04:42 #20091 [verbose] > │ let v123 : UH0 = UH0_1(1, v122) │
00:04:42 #20092 [verbose] > │ let v124 : UH1 = UH1_0 │
00:04:42 #20093 [verbose] > │ let v125 : UH1 = UH1_1(false, v123, v124) │
00:04:42 #20094 [verbose] > │ let v126 : UH1 = UH1_1(true, v117, v125) │
00:04:42 #20095 [verbose] > │ let v127 : UH0 = UH0_0 │
00:04:42 #20096 [verbose] > │ let v128 : UH0 = UH0_1(8, v127) │
00:04:42 #20097 [verbose] > │ let v129 : UH0 = UH0_1(6, v128) │
00:04:42 #20098 [verbose] > │ let v130 : UH0 = UH0_1(4, v129) │
00:04:42 #20099 [verbose] > │ let v131 : UH0 = UH0_1(2, v130) │
00:04:42 #20100 [verbose] > │ let v132 : UH0 = UH0_1(0, v131) │
00:04:42 #20101 [verbose] > │ let v133 : UH0 = UH0_0 │
00:04:42 #20102 [verbose] > │ let v134 : UH0 = UH0_1(9, v133) │
00:04:42 #20103 [verbose] > │ let v135 : UH0 = UH0_1(7, v134) │
00:04:42 #20104 [verbose] > │ let v136 : UH0 = UH0_1(5, v135) │
00:04:42 #20105 [verbose] > │ let v137 : UH0 = UH0_1(3, v136) │
00:04:42 #20106 [verbose] > │ let v138 : UH0 = UH0_1(1, v137) │
00:04:42 #20107 [verbose] > │ let v139 : UH1 = UH1_0 │
00:04:42 #20108 [verbose] > │ let v140 : UH1 = UH1_1(false, v138, v139) │
00:04:42 #20109 [verbose] > │ let v141 : UH1 = UH1_1(true, v132, v140) │
00:04:42 #20110 [verbose] > │ let v142 : string = $"__expect / actual: %A{v126} / expected: %A{v141}" │
00:04:42 #20111 [verbose] > │ () │
00:04:42 #20112 [verbose] > │ method0() │
00:04:42 #20113 [verbose] > │ │
00:04:42 #20114 [verbose] > │ UH1_1 │
00:04:42 #20115 [verbose] > │ (true, UH0_1 (0, UH0_1 (2, UH0_1 (4, UH0_1 (6, UH0_1 (8, UH0_0))))), │
00:04:42 #20116 [verbose] > │ UH1_1 │
00:04:42 #20117 [verbose] > │ (false, UH0_1 (1, UH0_1 (3, UH0_1 (5, UH0_1 (7, UH0_1 (9, UH0_0))))), │
00:04:42 #20118 [verbose] > │ UH1_0)) │
00:04:42 #20119 [verbose] > │ │
00:04:42 #20120 [verbose] > ╰──────────────────────────────────────────────────────────────────────────────╯
00:04:42 #20121 [verbose] >
00:04:42 #20122 [verbose] > ── markdown ────────────────────────────────────────────────────────────────────
00:04:42 #20123 [verbose] > ╭──────────────────────────────────────────────────────────────────────────────╮
00:04:42 #20124 [verbose] > │ ## forall' │
00:04:42 #20125 [verbose] > ╰──────────────────────────────────────────────────────────────────────────────╯
00:04:42 #20126 [verbose] >
00:04:42 #20127 [verbose] > ── spiral ──────────────────────────────────────────────────────────────────────
00:04:42 #20128 [verbose] > inl forall' fn (head :: tail) =
00:04:42 #20129 [verbose] > (true, tail)
00:04:42 #20130 [verbose] > ||> listm.fold fun acc x =>
00:04:42 #20131 [verbose] > acc && x = head
00:04:42 #20132 [verbose] > Building c:\home\git\polyglot\target\polyglot\spiral_eval\packages\4cef5c797bd8c44841c67b66fc7c2c7a34d7d4bb2d39b17f237c43f1896c03b3\main.spi
00:04:42 #20133 [verbose] >
00:04:42 #20134 [verbose] > ╭─[ 231.14ms - stdout ]────────────────────────────────────────────────────────╮
00:04:42 #20135 [verbose] > │ () │
00:04:42 #20136 [verbose] > │ │
00:04:42 #20137 [verbose] > │ │
00:04:42 #20138 [verbose] > ╰──────────────────────────────────────────────────────────────────────────────╯
00:04:42 #20139 [verbose] >
00:04:42 #20140 [verbose] > ── spiral ──────────────────────────────────────────────────────────────────────
00:04:42 #20141 [verbose] > // // test
00:04:42 #20142 [verbose] >
00:04:42 #20143 [verbose] > [[ 1i32; 1; 1; 1; 1 ]]
00:04:42 #20144 [verbose] > |> forall' ((=) 1i32)
00:04:42 #20145 [verbose] > |> _assert_eq true
00:04:42 #20146 [verbose] > Building c:\home\git\polyglot\target\polyglot\spiral_eval\packages\d65c89c6574708371afe16d300019f1852c024b76e0095f940bb6bedc1da51dd\main.spi
00:04:42 #20147 [verbose] >
00:04:42 #20148 [verbose] > ╭─[ 283.91ms - stdout ]────────────────────────────────────────────────────────╮
00:04:42 #20149 [verbose] > │ let rec method0 () : unit = │
00:04:42 #20150 [verbose] > │ let v0 : string = $"%A{true}" │
00:04:42 #20151 [verbose] > │ System.Console.WriteLine v0 │
00:04:42 #20152 [verbose] > │ let v1 : string = $"__expect / actual: %A{true} / expected: %A{true}" │
00:04:42 #20153 [verbose] > │ () │
00:04:42 #20154 [verbose] > │ method0() │
00:04:42 #20155 [verbose] > │ │
00:04:42 #20156 [verbose] > │ true │
00:04:42 #20157 [verbose] > │ │
00:04:42 #20158 [verbose] > ╰──────────────────────────────────────────────────────────────────────────────╯
00:04:42 #20159 [verbose] >
00:04:42 #20160 [verbose] > ── markdown ────────────────────────────────────────────────────────────────────
00:04:42 #20161 [verbose] > ╭──────────────────────────────────────────────────────────────────────────────╮
00:04:42 #20162 [verbose] > │ ## last │
00:04:42 #20163 [verbose] > ╰──────────────────────────────────────────────────────────────────────────────╯
00:04:42 #20164 [verbose] >
00:04:42 #20165 [verbose] > ── spiral ──────────────────────────────────────────────────────────────────────
00:04:42 #20166 [verbose] > inl last list =
00:04:42 #20167 [verbose] > list
00:04:42 #20168 [verbose] > |> listm.rev
00:04:42 #20169 [verbose] > |> item 0i32
00:04:42 #20170 [verbose] > Building c:\home\git\polyglot\target\polyglot\spiral_eval\packages\23c653eb30b5da5b576792668000e048f1d327448f1f98deb50e0f1b3b32cf63\main.spi
00:04:43 #20171 [verbose] >
00:04:43 #20172 [verbose] > ╭─[ 595.40ms - stdout ]────────────────────────────────────────────────────────╮
00:04:43 #20173 [verbose] > │ () │
00:04:43 #20174 [verbose] > │ │
00:04:43 #20175 [verbose] > │ │
00:04:43 #20176 [verbose] > ╰──────────────────────────────────────────────────────────────────────────────╯
00:04:43 #20177 [verbose] >
00:04:43 #20178 [verbose] > ── spiral ──────────────────────────────────────────────────────────────────────
00:04:43 #20179 [verbose] > // // test
00:04:43 #20180 [verbose] >
00:04:43 #20181 [verbose] > listm.init 10i32 id
00:04:43 #20182 [verbose] > |> last
00:04:43 #20183 [verbose] > |> _assert_eq 9
00:04:43 #20184 [verbose] > Building c:\home\git\polyglot\target\polyglot\spiral_eval\packages\4cf0603b928f3ef672294e36511522cd3c82655fe0958babac4b5f927f8bf855\main.spi
00:04:43 #20185 [verbose] >
00:04:43 #20186 [verbose] > ╭─[ 228.20ms - stdout ]────────────────────────────────────────────────────────╮
00:04:43 #20187 [verbose] > │ let rec method0 () : unit = │
00:04:43 #20188 [verbose] > │ let v0 : string = $"%A{9}" │
00:04:43 #20189 [verbose] > │ System.Console.WriteLine v0 │
00:04:43 #20190 [verbose] > │ let v1 : string = $"__expect / actual: %A{9} / expected: %A{9}" │
00:04:43 #20191 [verbose] > │ () │
00:04:43 #20192 [verbose] > │ method0() │
00:04:43 #20193 [verbose] > │ │
00:04:43 #20194 [verbose] > │ 9 │
00:04:43 #20195 [verbose] > │ │
00:04:43 #20196 [verbose] > ╰──────────────────────────────────────────────────────────────────────────────╯
00:04:43 #20197 [verbose] >
00:04:43 #20198 [verbose] > ── markdown ────────────────────────────────────────────────────────────────────
00:04:43 #20199 [verbose] > ╭──────────────────────────────────────────────────────────────────────────────╮
00:04:43 #20200 [verbose] > │ ## try_pick │
00:04:43 #20201 [verbose] > ╰──────────────────────────────────────────────────────────────────────────────╯
00:04:43 #20202 [verbose] >
00:04:43 #20203 [verbose] > ── spiral ──────────────────────────────────────────────────────────────────────
00:04:43 #20204 [verbose] > inl try_pick fn list =
00:04:43 #20205 [verbose] > inl rec body fn = function
00:04:43 #20206 [verbose] > | [[]] => None
00:04:43 #20207 [verbose] > | x :: xs =>
00:04:43 #20208 [verbose] > match fn x with
00:04:43 #20209 [verbose] > | Some y => Some y
00:04:43 #20210 [verbose] > | None => loop xs
00:04:43 #20211 [verbose] > and inl loop list =
00:04:43 #20212 [verbose] > if var_is list |> not
00:04:43 #20213 [verbose] > then body fn list
00:04:43 #20214 [verbose] > else
00:04:43 #20215 [verbose] > inl fn = join fn
00:04:43 #20216 [verbose] > inl list = dyn list
00:04:43 #20217 [verbose] > join body fn list
00:04:43 #20218 [verbose] > loop list
00:04:43 #20219 [verbose] > Building c:\home\git\polyglot\target\polyglot\spiral_eval\packages\c72c61fd09663b551a45f9293fcf82e24a5e8cd1743a7cd9888e8dbdecc38055\main.spi
00:04:43 #20220 [verbose] >
00:04:43 #20221 [verbose] > ╭─[ 235.78ms - stdout ]────────────────────────────────────────────────────────╮
00:04:43 #20222 [verbose] > │ () │
00:04:43 #20223 [verbose] > │ │
00:04:43 #20224 [verbose] > │ │
00:04:43 #20225 [verbose] > ╰──────────────────────────────────────────────────────────────────────────────╯
00:04:43 #20226 [verbose] >
00:04:43 #20227 [verbose] > ── spiral ──────────────────────────────────────────────────────────────────────
00:04:43 #20228 [verbose] > // // test
00:04:43 #20229 [verbose] >
00:04:43 #20230 [verbose] > listm.init 10i32 id
00:04:43 #20231 [verbose] > |> try_pick (fun x => if x = 5i32 then Some x else None)
00:04:43 #20232 [verbose] > |> _assert_eq (Some 5i32)
00:04:44 #20233 [verbose] > Building c:\home\git\polyglot\target\polyglot\spiral_eval\packages\bc4a049e6b560f1e2d7f21e092c6bff5a7876909465e4fa59a27c8976ea29a57\main.spi
00:04:44 #20234 [verbose] >
00:04:44 #20235 [verbose] > ╭─[ 276.43ms - stdout ]────────────────────────────────────────────────────────╮
00:04:44 #20236 [verbose] > │ type [<Struct>] US0 = │
00:04:44 #20237 [verbose] > │ | US0_0 of f0_0 : int32 │
00:04:44 #20238 [verbose] > │ | US0_1 │
00:04:44 #20239 [verbose] > │ let rec method0 () : unit = │
00:04:44 #20240 [verbose] > │ let v0 : US0 = US0_0(5) │
00:04:44 #20241 [verbose] > │ let v1 : string = $"%A{v0}" │
00:04:44 #20242 [verbose] > │ System.Console.WriteLine v1 │
00:04:44 #20243 [verbose] > │ let v5 : US0 = US0_0(5) │
00:04:44 #20244 [verbose] > │ let v6 : US0 = US0_0(5) │
00:04:44 #20245 [verbose] > │ let v7 : string = $"__expect / actual: %A{v5} / expected: %A{v6}" │
00:04:44 #20246 [verbose] > │ () │
00:04:44 #20247 [verbose] > │ method0() │
00:04:44 #20248 [verbose] > │ │
00:04:44 #20249 [verbose] > │ US0_0 5 │
00:04:44 #20250 [verbose] > │ │
00:04:44 #20251 [verbose] > ╰──────────────────────────────────────────────────────────────────────────────╯
00:04:45 #20252 [verbose] > [NbConvertApp] Converting notebook listm'.dib.ipynb to html
00:04:45 #20253 [verbose] > C:\Users\i574n\scoop\apps\python\current\Lib\site-packages\nbformat\__init__.py:93: MissingIDFieldWarning: Code cell is missing an id field, this will become a hard error in future nbformat versions. You may want to use `normalize()` on your notebooks before validations (available since nbformat 5.1.4). Previous versions of nbformat are fixing this issue transparently, and will stop doing so in the future.
00:04:45 #20254 [verbose] > validate(nb)
00:04:46 #20255 [verbose] > C:\Users\i574n\scoop\apps\python\current\Lib\site-packages\nbconvert\filters\highlight.py:71: UserWarning: IPython3 lexer unavailable, falling back on Python 3
00:04:46 #20256 [verbose] > return _pygments_highlight(
00:04:47 #20257 [verbose] > [NbConvertApp] Writing 387242 bytes to listm'.dib.html
00:04:47 #20258 [debug] execute_with_options_async / exit_code: 0 / output.Length: 77993
00:04:47 #19 [debug] main / executeCommand / exitCode: 0
00:04:47 #20259 [debug] execute_with_options_async / options: struct (Some System.Threading.CancellationToken,
"pwsh -c "../../scripts/invoke-dib.ps1 benchmark.dib" -Retries 3", None,
None, None)
00:04:49 #20260 [verbose] >
00:04:49 #20261 [verbose] > ── markdown ────────────────────────────────────────────────────────────────────
00:04:50 #20262 [verbose] > ╭──────────────────────────────────────────────────────────────────────────────╮
00:04:50 #20263 [verbose] > │ ## benchmark (Polyglot) │
00:04:50 #20264 [verbose] > ╰──────────────────────────────────────────────────────────────────────────────╯
00:04:50 #20265 [verbose] >
00:04:50 #20266 [verbose] > ── spiral ──────────────────────────────────────────────────────────────────────
00:04:50 #20267 [verbose] > // // test
00:04:50 #20268 [verbose] >
00:04:50 #20269 [verbose] > open testing
00:04:52 #20270 [verbose] > Building c:\home\git\polyglot\target\polyglot\spiral_eval\packages\8837341da068f4ef4271045b3ef1c89d209237bf74b4f11596b6ee2d484becb0\main.spi
00:04:53 #20271 [verbose] >
00:04:53 #20272 [verbose] > ╭─[ 3.64s - stdout ]───────────────────────────────────────────────────────────╮
00:04:53 #20273 [verbose] > │ () │
00:04:53 #20274 [verbose] > │ │
00:04:53 #20275 [verbose] > │ │
00:04:53 #20276 [verbose] > ╰──────────────────────────────────────────────────────────────────────────────╯
00:04:53 #20277 [verbose] >
00:04:53 #20278 [verbose] > ── spiral ──────────────────────────────────────────────────────────────────────
00:04:53 #20279 [verbose] > inl (/@) x = listm'.(/@) x
00:04:53 #20280 [verbose] > Building c:\home\git\polyglot\target\polyglot\spiral_eval\packages\819235c6d5790f122eb44705884c5dc6cd36e4532df1e305d1bd4cb59cd7f25d\main.spi
00:04:53 #20281 [verbose] >
00:04:53 #20282 [verbose] > ╭─[ 275.58ms - stdout ]────────────────────────────────────────────────────────╮
00:04:53 #20283 [verbose] > │ () │
00:04:53 #20284 [verbose] > │ │
00:04:53 #20285 [verbose] > │ │
00:04:53 #20286 [verbose] > ╰──────────────────────────────────────────────────────────────────────────────╯
00:04:53 #20287 [verbose] >
00:04:53 #20288 [verbose] > ── spiral ──────────────────────────────────────────────────────────────────────
00:04:53 #20289 [verbose] > inl gc_collect () =
00:04:53 #20290 [verbose] > run_target function
00:04:53 #20291 [verbose] > | Fsharp _ => fun () => $"System.GC.Collect ()"
00:04:53 #20292 [verbose] > | _ => fun () => ()
00:04:53 #20293 [verbose] >
00:04:53 #20294 [verbose] > inl printfn x =
00:04:53 #20295 [verbose] > console.write_line x
00:04:53 #20296 [verbose] >
00:04:53 #20297 [verbose] > nominal stopwatch = $"System.Diagnostics.Stopwatch"
00:04:53 #20298 [verbose] >
00:04:53 #20299 [verbose] > inl stopwatch () : stopwatch =
00:04:53 #20300 [verbose] > $"`stopwatch" ()
00:04:53 #20301 [verbose] >
00:04:53 #20302 [verbose] > inl stopwatch_elapsed_milliseconds (stopwatch : stopwatch) : i64 =
00:04:53 #20303 [verbose] > $"!stopwatch.ElapsedMilliseconds"
00:04:53 #20304 [verbose] >
00:04:53 #20305 [verbose] > inl stopwatch_start (stopwatch : stopwatch) : () =
00:04:53 #20306 [verbose] > $"!stopwatch.Start ()"
00:04:54 #20307 [verbose] > Building c:\home\git\polyglot\target\polyglot\spiral_eval\packages\c12c9da4851177ff9eb7d668d5d9b9d7155315b3448526fc4dad85db9c80f008\main.spi
00:04:54 #20308 [verbose] >
00:04:54 #20309 [verbose] > ╭─[ 224.36ms - stdout ]────────────────────────────────────────────────────────╮
00:04:54 #20310 [verbose] > │ () │
00:04:54 #20311 [verbose] > │ │
00:04:54 #20312 [verbose] > │ │
00:04:54 #20313 [verbose] > ╰──────────────────────────────────────────────────────────────────────────────╯
00:04:54 #20314 [verbose] >
00:04:54 #20315 [verbose] > ── markdown ────────────────────────────────────────────────────────────────────
00:04:54 #20316 [verbose] > ╭──────────────────────────────────────────────────────────────────────────────╮
00:04:54 #20317 [verbose] > │ ## test_case_result │
00:04:54 #20318 [verbose] > ╰──────────────────────────────────────────────────────────────────────────────╯
00:04:54 #20319 [verbose] >
00:04:54 #20320 [verbose] > ── spiral ──────────────────────────────────────────────────────────────────────
00:04:54 #20321 [verbose] > type test_case_result =
00:04:54 #20322 [verbose] > {
00:04:54 #20323 [verbose] > Input : string
00:04:54 #20324 [verbose] > Expected : string
00:04:54 #20325 [verbose] > Result : string
00:04:54 #20326 [verbose] > TimeList : a u64 i64
00:04:54 #20327 [verbose] > }
00:04:54 #20328 [verbose] > Building c:\home\git\polyglot\target\polyglot\spiral_eval\packages\148c2af0894b5a10127c2d84d5acaa7b373dbf2fae9f5dcc77d95949eefe781e\main.spi
00:04:54 #20329 [verbose] >
00:04:54 #20330 [verbose] > ╭─[ 245.68ms - stdout ]────────────────────────────────────────────────────────╮
00:04:54 #20331 [verbose] > │ () │
00:04:54 #20332 [verbose] > │ │
00:04:54 #20333 [verbose] > │ │
00:04:54 #20334 [verbose] > ╰──────────────────────────────────────────────────────────────────────────────╯
00:04:54 #20335 [verbose] >
00:04:54 #20336 [verbose] > ── markdown ────────────────────────────────────────────────────────────────────
00:04:54 #20337 [verbose] > ╭──────────────────────────────────────────────────────────────────────────────╮
00:04:54 #20338 [verbose] > │ ## run │
00:04:54 #20339 [verbose] > ╰──────────────────────────────────────────────────────────────────────────────╯
00:04:54 #20340 [verbose] >
00:04:54 #20341 [verbose] > ── spiral ──────────────────────────────────────────────────────────────────────
00:04:54 #20342 [verbose] > inl run forall input expected.
00:04:54 #20343 [verbose] > count
00:04:54 #20344 [verbose] > (solutions : list (string * (input -> expected)))
00:04:54 #20345 [verbose] > ((input, expected) : (input * expected))
00:04:54 #20346 [verbose] > : test_case_result
00:04:54 #20347 [verbose] > =
00:04:54 #20348 [verbose] > inl input_str = input |> sm'.format_debug
00:04:54 #20349 [verbose] >
00:04:54 #20350 [verbose] > printfn ""
00:04:54 #20351 [verbose] > printfn ($"$\"Solution: {!input_str} \"" : string)
00:04:54 #20352 [verbose] >
00:04:54 #20353 [verbose] > inl performance_invoke (fn : () -> expected) =
00:04:54 #20354 [verbose] > gc_collect ()
00:04:54 #20355 [verbose] > inl stopwatch = stopwatch ()
00:04:54 #20356 [verbose] > stopwatch |> stopwatch_start
00:04:54 #20357 [verbose] > inl time1 = stopwatch |> stopwatch_elapsed_milliseconds
00:04:54 #20358 [verbose] > inl result : expected =
00:04:54 #20359 [verbose] > am'.init_series 0 count 1i32
00:04:54 #20360 [verbose] > |> am'.parallel_map fun _n => fn ()
00:04:54 #20361 [verbose] > |> am'.last
00:04:54 #20362 [verbose] > inl time2 = (stopwatch |> stopwatch_elapsed_milliseconds) - time1
00:04:54 #20363 [verbose] > result, time2
00:04:54 #20364 [verbose] >
00:04:54 #20365 [verbose] > inl results_with_time : a u64 _ =
00:04:54 #20366 [verbose] > solutions
00:04:54 #20367 [verbose] > |> listm'.indexed
00:04:54 #20368 [verbose] > |> listm.toArray
00:04:54 #20369 [verbose] > |> am.map fun ((i : i32), (test_name, solution)) =>
00:04:54 #20370 [verbose] > inl result, time = performance_invoke fun () => solution input
00:04:54 #20371 [verbose] > printfn ($"$\"Test case {!i + 1}. {!test_name}. Time: {!time} \"" :
00:04:54 #20372 [verbose] > string)
00:04:54 #20373 [verbose] > result, time
00:04:54 #20374 [verbose] >
00:04:54 #20375 [verbose] > match results_with_time |> am.map fst with
00:04:54 #20376 [verbose] > | array when length array <= 1 => ()
00:04:54 #20377 [verbose] > | array when array |> am.forall' ((=) (index array 0)) => ()
00:04:54 #20378 [verbose] > | results => failwith ($"$\"Challenge error: {!results}\"" : string)
00:04:54 #20379 [verbose] >
00:04:54 #20380 [verbose] > {
00:04:54 #20381 [verbose] > Input = input_str
00:04:54 #20382 [verbose] > Expected = expected |> sm'.format_debug
00:04:54 #20383 [verbose] > Result = results_with_time |> am.map fst |> fun array => index array 0
00:04:54 #20384 [verbose] > |> sm'.format_debug
00:04:54 #20385 [verbose] > TimeList = results_with_time |> am.map snd
00:04:54 #20386 [verbose] > }
00:04:54 #20387 [verbose] > Building c:\home\git\polyglot\target\polyglot\spiral_eval\packages\ce00a7aedc3e680e2047e2ba63ee93662c35fa7a7e8e36661bdf9573f2247743\main.spi
00:04:54 #20388 [verbose] >
00:04:54 #20389 [verbose] > ╭─[ 286.11ms - stdout ]────────────────────────────────────────────────────────╮
00:04:54 #20390 [verbose] > │ () │
00:04:54 #20391 [verbose] > │ │
00:04:54 #20392 [verbose] > │ │
00:04:54 #20393 [verbose] > ╰──────────────────────────────────────────────────────────────────────────────╯
00:04:54 #20394 [verbose] >
00:04:54 #20395 [verbose] > ── markdown ────────────────────────────────────────────────────────────────────
00:04:54 #20396 [verbose] > ╭──────────────────────────────────────────────────────────────────────────────╮
00:04:54 #20397 [verbose] > │ ## run_all │
00:04:54 #20398 [verbose] > ╰──────────────────────────────────────────────────────────────────────────────╯
00:04:54 #20399 [verbose] >
00:04:54 #20400 [verbose] > ── spiral ──────────────────────────────────────────────────────────────────────
00:04:54 #20401 [verbose] > inl run_all forall input expected.
00:04:54 #20402 [verbose] > test_name
00:04:54 #20403 [verbose] > count
00:04:54 #20404 [verbose] > (solutions : list (string * (input -> expected)))
00:04:54 #20405 [verbose] > test_cases
00:04:54 #20406 [verbose] > =
00:04:54 #20407 [verbose] > printfn ""
00:04:54 #20408 [verbose] > printfn ""
00:04:54 #20409 [verbose] > printfn ($"$\"Test: {!test_name}\"" : string)
00:04:54 #20410 [verbose] > test_cases
00:04:54 #20411 [verbose] > |> listm.toArray
00:04:54 #20412 [verbose] > |> am.map (run count solutions)
00:04:54 #20413 [verbose] > Building c:\home\git\polyglot\target\polyglot\spiral_eval\packages\09f4beb98e30972ee46a70ac363b86ba2dc139a2e0ac26f0275307f58e9eed17\main.spi
00:04:54 #20414 [verbose] >
00:04:54 #20415 [verbose] > ╭─[ 205.37ms - stdout ]────────────────────────────────────────────────────────╮
00:04:54 #20416 [verbose] > │ () │
00:04:54 #20417 [verbose] > │ │
00:04:54 #20418 [verbose] > │ │
00:04:54 #20419 [verbose] > ╰──────────────────────────────────────────────────────────────────────────────╯
00:04:54 #20420 [verbose] >
00:04:54 #20421 [verbose] > ── markdown ────────────────────────────────────────────────────────────────────
00:04:54 #20422 [verbose] > ╭──────────────────────────────────────────────────────────────────────────────╮
00:04:54 #20423 [verbose] > │ ## sort_result_list │
00:04:54 #20424 [verbose] > ╰──────────────────────────────────────────────────────────────────────────────╯
00:04:54 #20425 [verbose] >
00:04:54 #20426 [verbose] > ── spiral ──────────────────────────────────────────────────────────────────────
00:04:54 #20427 [verbose] > inl sort_result_list results =
00:04:54 #20428 [verbose] > inl table =
00:04:54 #20429 [verbose] > inl rows =
00:04:54 #20430 [verbose] > results
00:04:54 #20431 [verbose] > |> am.map fun (result : test_case_result) =>
00:04:54 #20432 [verbose] > inl best =
00:04:54 #20433 [verbose] > result.TimeList
00:04:54 #20434 [verbose] > |> am'.indexed
00:04:54 #20435 [verbose] > |> am.map fun (i, time) =>
00:04:54 #20436 [verbose] > i + 1i64, time
00:04:54 #20437 [verbose] > |> am'.sort_by snd
00:04:54 #20438 [verbose] > |> fun array => index array 0i32
00:04:54 #20439 [verbose] > |> sm'.format_debug
00:04:54 #20440 [verbose] > inl row =
00:04:54 #20441 [verbose] > [[
00:04:54 #20442 [verbose] > result.Input
00:04:54 #20443 [verbose] > result.Expected
00:04:54 #20444 [verbose] > result.Result
00:04:54 #20445 [verbose] > best
00:04:54 #20446 [verbose] > ]]
00:04:54 #20447 [verbose] > inl color : option console.console_color =
00:04:54 #20448 [verbose] > open console
00:04:54 #20449 [verbose] > match result.Expected = result.Result with
00:04:54 #20450 [verbose] > | true => Some $"`console_color.DarkGreen"
00:04:54 #20451 [verbose] > | false => Some $"`console_color.DarkRed"
00:04:54 #20452 [verbose] > row, color
00:04:54 #20453 [verbose] >
00:04:54 #20454 [verbose] > inl header =
00:04:54 #20455 [verbose] > [[
00:04:54 #20456 [verbose] > [[
00:04:54 #20457 [verbose] > "Input"
00:04:54 #20458 [verbose] > "Expected"
00:04:54 #20459 [verbose] > "Result"
00:04:54 #20460 [verbose] > "Best"
00:04:54 #20461 [verbose] > ]]
00:04:54 #20462 [verbose] > [[
00:04:54 #20463 [verbose] > "---"
00:04:54 #20464 [verbose] > "---"
00:04:54 #20465 [verbose] > "---"
00:04:54 #20466 [verbose] > "---"
00:04:54 #20467 [verbose] > ]]
00:04:54 #20468 [verbose] > ]]
00:04:54 #20469 [verbose] > |> listm.map fun row => row, None
00:04:54 #20470 [verbose] > |> listm.toArray
00:04:54 #20471 [verbose] > rows |> am.append header
00:04:54 #20472 [verbose] >
00:04:54 #20473 [verbose] > inl formattedTable =
00:04:54 #20474 [verbose] > inl lengthMap : mapm.map i32 i64 =
00:04:54 #20475 [verbose] > table
00:04:54 #20476 [verbose] > |> am.map (fst >> listm.toArray)
00:04:54 #20477 [verbose] > |> am'.transpose
00:04:54 #20478 [verbose] > |> am.map fun column =>
00:04:54 #20479 [verbose] > column
00:04:54 #20480 [verbose] > |> am.map sm.length
00:04:54 #20481 [verbose] > |> am'.sort_descending
00:04:54 #20482 [verbose] > |> am'.try_item 0i32
00:04:54 #20483 [verbose] > |> optionm'.default_value 0i64
00:04:54 #20484 [verbose] > |> am'.indexed
00:04:54 #20485 [verbose] > |> fun (x : a i32 _) => x
00:04:54 #20486 [verbose] > |> mapm.of_array
00:04:54 #20487 [verbose] > table
00:04:54 #20488 [verbose] > |> am.map fun (row, color) =>
00:04:54 #20489 [verbose] > inl newRow =
00:04:54 #20490 [verbose] > row
00:04:54 #20491 [verbose] > |> listm'.indexed
00:04:54 #20492 [verbose] > |> listm.map fun (i, cell) =>
00:04:54 #20493 [verbose] > cell |> sm'.pad_right (lengthMap |> mapm.item i |> conv)
00:04:54 #20494 [verbose] > |> listm.toArray
00:04:54 #20495 [verbose] > newRow, color
00:04:54 #20496 [verbose] >
00:04:54 #20497 [verbose] > printfn ""
00:04:54 #20498 [verbose] > formattedTable
00:04:54 #20499 [verbose] > |> am.iter fun ((row : a i32 string), color) =>
00:04:54 #20500 [verbose] > match color with
00:04:54 #20501 [verbose] > | Some color => color |> console.set_foreground_color
00:04:54 #20502 [verbose] > | None => console.reset_color ()
00:04:54 #20503 [verbose] >
00:04:54 #20504 [verbose] > printfn (row |> sm'.join' "\t| ")
00:04:54 #20505 [verbose] >
00:04:54 #20506 [verbose] > console.reset_color ()
00:04:54 #20507 [verbose] >
00:04:54 #20508 [verbose] > inl averages : a u64 _ =
00:04:54 #20509 [verbose] > results
00:04:54 #20510 [verbose] > |> am.map fun result =>
00:04:54 #20511 [verbose] > result.TimeList
00:04:54 #20512 [verbose] > |> am.map ($"float" : i64 -> f64)
00:04:54 #20513 [verbose] > |> am'.transpose
00:04:54 #20514 [verbose] > |> am.map am'.average
00:04:54 #20515 [verbose] > |> am.map ($"int64" : f64 -> i64)
00:04:54 #20516 [verbose] > |> am'.indexed
00:04:54 #20517 [verbose] >
00:04:54 #20518 [verbose] > printfn ""
00:04:54 #20519 [verbose] > printfn "Average Ranking "
00:04:54 #20520 [verbose] > averages
00:04:54 #20521 [verbose] > |> am'.sort_by snd
00:04:54 #20522 [verbose] > |> am.iter fun ((i : i32), avg) =>
00:04:54 #20523 [verbose] > printfn ($"$\"Test case %d{!i + 1}. Average Time: %A{!avg} \"" :
00:04:54 #20524 [verbose] > string)
00:04:55 #20525 [verbose] > Building c:\home\git\polyglot\target\polyglot\spiral_eval\packages\1a2788b5ca4a2aaa62bbc35db9de0428fc34394e25edf2ac502037605cfe2210\main.spi
00:04:55 #20526 [verbose] >
00:04:55 #20527 [verbose] > ╭─[ 208.02ms - stdout ]────────────────────────────────────────────────────────╮
00:04:55 #20528 [verbose] > │ () │
00:04:55 #20529 [verbose] > │ │
00:04:55 #20530 [verbose] > │ │
00:04:55 #20531 [verbose] > ╰──────────────────────────────────────────────────────────────────────────────╯
00:04:55 #20532 [verbose] >
00:04:55 #20533 [verbose] > ── spiral ──────────────────────────────────────────────────────────────────────
00:04:55 #20534 [verbose] > // // test
00:04:55 #20535 [verbose] >
00:04:55 #20536 [verbose] > inl is_fast () =
00:04:55 #20537 [verbose] > false
00:04:55 #20538 [verbose] > Building c:\home\git\polyglot\target\polyglot\spiral_eval\packages\575256e3ba537f7595bcb8b4b5172cb4b4011c4ed7a5cb2fbcc4a03b33584948\main.spi
00:04:55 #20539 [verbose] >
00:04:55 #20540 [verbose] > ╭─[ 217.36ms - stdout ]────────────────────────────────────────────────────────╮
00:04:55 #20541 [verbose] > │ () │
00:04:55 #20542 [verbose] > │ │
00:04:55 #20543 [verbose] > │ │
00:04:55 #20544 [verbose] > ╰──────────────────────────────────────────────────────────────────────────────╯
00:04:55 #20545 [verbose] >
00:04:55 #20546 [verbose] > ── markdown ────────────────────────────────────────────────────────────────────
00:04:55 #20547 [verbose] > ╭──────────────────────────────────────────────────────────────────────────────╮
00:04:55 #20548 [verbose] > │ ## empty2Tests │
00:04:55 #20549 [verbose] > ╰──────────────────────────────────────────────────────────────────────────────╯
00:04:55 #20550 [verbose] >
00:04:55 #20551 [verbose] > ── markdown ────────────────────────────────────────────────────────────────────
00:04:55 #20552 [verbose] > ╭──────────────────────────────────────────────────────────────────────────────╮
00:04:55 #20553 [verbose] > │ Test: Empty2 │
00:04:55 #20554 [verbose] > │ │
00:04:55 #20555 [verbose] > │ Solution: (a, a) │
00:04:55 #20556 [verbose] > │ Test case 1. A. Time: 59L │
00:04:55 #20557 [verbose] > │ │
00:04:55 #20558 [verbose] > │ Solution: (a, a) │
00:04:55 #20559 [verbose] > │ Test case 1. A. Time: 53L │
00:04:55 #20560 [verbose] > │ │
00:04:55 #20561 [verbose] > │ Input | Expected | Result | Best │
00:04:55 #20562 [verbose] > │ --- | --- | --- | --- │
00:04:55 #20563 [verbose] > │ (a, a) | a | a | (1, 59) │
00:04:55 #20564 [verbose] > │ (a, a) | a | a | (1, 53) │
00:04:55 #20565 [verbose] > │ │
00:04:55 #20566 [verbose] > │ Averages │
00:04:55 #20567 [verbose] > │ Test case 1. Average Time: 56L │
00:04:55 #20568 [verbose] > │ │
00:04:55 #20569 [verbose] > │ Ranking │
00:04:55 #20570 [verbose] > │ Test case 1. Average Time: 56L │
00:04:55 #20571 [verbose] > ╰──────────────────────────────────────────────────────────────────────────────╯
00:04:55 #20572 [verbose] >
00:04:55 #20573 [verbose] > ── spiral ──────────────────────────────────────────────────────────────────────
00:04:55 #20574 [verbose] > // // test
00:04:55 #20575 [verbose] >
00:04:55 #20576 [verbose] > inl get_solutions () =
00:04:55 #20577 [verbose] > [[
00:04:55 #20578 [verbose] > "A",
00:04:55 #20579 [verbose] > fun (a, _b) =>
00:04:55 #20580 [verbose] > a
00:04:55 #20581 [verbose] >
00:04:55 #20582 [verbose] > "B",
00:04:55 #20583 [verbose] > fun (_a, b) =>
00:04:55 #20584 [verbose] > b
00:04:55 #20585 [verbose] > ]]
00:04:55 #20586 [verbose] >
00:04:55 #20587 [verbose] > inl rec empty_2_tests () =
00:04:55 #20588 [verbose] > inl test_cases = [[
00:04:55 #20589 [verbose] > ("a", "a"), "a"
00:04:55 #20590 [verbose] > ("b", "b"), "b"
00:04:55 #20591 [verbose] > ]]
00:04:55 #20592 [verbose] >
00:04:55 #20593 [verbose] > inl solutions = get_solutions ()
00:04:55 #20594 [verbose] >
00:04:55 #20595 [verbose] > // inl is_fast () = true
00:04:55 #20596 [verbose] >
00:04:55 #20597 [verbose] > inl count =
00:04:55 #20598 [verbose] > if is_fast ()
00:04:55 #20599 [verbose] > then 1000i32
00:04:55 #20600 [verbose] > else 2000000i32
00:04:55 #20601 [verbose] >
00:04:55 #20602 [verbose] > run_all (nameof empty_2_tests) count solutions test_cases
00:04:55 #20603 [verbose] > |> sort_result_list
00:04:55 #20604 [verbose] >
00:04:55 #20605 [verbose] > empty_2_tests ()
00:04:55 #20606 [verbose] > Building c:\home\git\polyglot\target\polyglot\spiral_eval\packages\dea8ed6ed469796005161e1648fc8a19e78e51e2c5b520f8d99d0731a884f139\main.spi
00:05:05 #20607 [verbose] >
00:05:05 #20608 [verbose] > ╭─[ 10.50s - stdout ]──────────────────────────────────────────────────────────╮
00:05:05 #20609 [verbose] > │ type UH0 = │
00:05:05 #20610 [verbose] > │ | UH0_0 │
00:05:05 #20611 [verbose] > │ | UH0_1 of string * string * string * UH0 │
00:05:05 #20612 [verbose] > │ and Mut0 = {mutable l0 : uint64} │
00:05:05 #20613 [verbose] > │ and UH1 = │
00:05:05 #20614 [verbose] > │ | UH1_0 │
00:05:05 #20615 [verbose] > │ | UH1_1 of int32 * string * (struct (string * string) -> string) * UH1 │
00:05:05 #20616 [verbose] > │ and Mut1 = {mutable l0 : int32} │
00:05:05 #20617 [verbose] > │ and UH2 = │
00:05:05 #20618 [verbose] > │ | UH2_0 │
00:05:05 #20619 [verbose] > │ | UH2_1 of string * UH2 │
00:05:05 #20620 [verbose] > │ and [<Struct>] US0 = │
00:05:05 #20621 [verbose] > │ | US0_0 of f0_0 : System.ConsoleColor │
00:05:05 #20622 [verbose] > │ | US0_1 │
00:05:05 #20623 [verbose] > │ and UH3 = │
00:05:05 #20624 [verbose] > │ | UH3_0 │
00:05:05 #20625 [verbose] > │ | UH3_1 of int64 * int64 * UH3 │
00:05:05 #20626 [verbose] > │ and Mut2 = {mutable l0 : uint64; mutable l1 : UH3; mutable l2 : int64} │
00:05:05 #20627 [verbose] > │ and UH4 = │
00:05:05 #20628 [verbose] > │ | UH4_0 │
00:05:05 #20629 [verbose] > │ | UH4_1 of UH2 * US0 * UH4 │
00:05:05 #20630 [verbose] > │ and [<Struct>] US1 = │
00:05:05 #20631 [verbose] > │ | US1_0 of f0_0 : int64 │
00:05:05 #20632 [verbose] > │ | US1_1 │
00:05:05 #20633 [verbose] > │ and UH5 = │
00:05:05 #20634 [verbose] > │ | UH5_0 │
00:05:05 #20635 [verbose] > │ | UH5_1 of int32 * int64 * UH5 │
00:05:05 #20636 [verbose] > │ and Mut3 = {mutable l0 : uint64; mutable l1 : UH5; mutable l2 : int32} │
00:05:05 #20637 [verbose] > │ and UH6 = │
00:05:05 #20638 [verbose] > │ | UH6_0 │
00:05:05 #20639 [verbose] > │ | UH6_1 of int32 * string * UH6 │
00:05:05 #20640 [verbose] > │ let rec method2 (v0 : UH0, v1 : uint64) : uint64 = │
00:05:05 #20641 [verbose] > │ match v0 with │
00:05:05 #20642 [verbose] > │ | UH0_1(v2, v3, v4, v5) -> (* Cons *) │
00:05:05 #20643 [verbose] > │ let v6 : uint64 = v1 + 1UL │
00:05:05 #20644 [verbose] > │ method2(v5, v6) │
00:05:06 #20645 [verbose] > │ | UH0_0 -> (* Nil *) │
00:05:06 #20646 [verbose] > │ v1 │
00:05:06 #20647 [verbose] > │ and method3 (v0 : (struct (string * string * string) []), v1 : UH0, v2 : │
00:05:06 #20648 [verbose] > │ uint64) : uint64 = │
00:05:06 #20649 [verbose] > │ match v1 with │
00:05:06 #20650 [verbose] > │ | UH0_1(v3, v4, v5, v6) -> (* Cons *) │
00:05:06 #20651 [verbose] > │ v0.[int v2] <- struct (v3, v4, v5) │
00:05:06 #20652 [verbose] > │ let v7 : uint64 = v2 + 1UL │
00:05:06 #20653 [verbose] > │ method3(v0, v6, v7) │
00:05:06 #20654 [verbose] > │ | UH0_0 -> (* Nil *) │
00:05:06 #20655 [verbose] > │ v2 │
00:05:06 #20656 [verbose] > │ and method1 (v0 : UH0) : (struct (string * string * string) []) = │
00:05:06 #20657 [verbose] > │ let v1 : uint64 = 0UL │
00:05:06 #20658 [verbose] > │ let v2 : uint64 = method2(v0, v1) │
00:05:06 #20659 [verbose] > │ let v3 : (struct (string * string * string) []) = │
00:05:06 #20660 [verbose] > │ Array.zeroCreate<struct (string * string * string)> │
00:05:06 #20661 [verbose] > │ (System.Convert.ToInt32(v2)) │
00:05:06 #20662 [verbose] > │ let v4 : uint64 = 0UL │
00:05:06 #20663 [verbose] > │ let v5 : uint64 = method3(v3, v0, v4) │
00:05:06 #20664 [verbose] > │ v3 │
00:05:06 #20665 [verbose] > │ and method4 (v0 : uint64, v1 : Mut0) : bool = │
00:05:06 #20666 [verbose] > │ let v2 : uint64 = v1.l0 │
00:05:06 #20667 [verbose] > │ let v3 : bool = v2 < v0 │
00:05:06 #20668 [verbose] > │ v3 │
00:05:06 #20669 [verbose] > │ and closure1 () struct (v0 : string, v1 : string) : string = │
00:05:06 #20670 [verbose] > │ v0 │
00:05:06 #20671 [verbose] > │ and closure2 () struct (v0 : string, v1 : string) : string = │
00:05:06 #20672 [verbose] > │ v1 │
00:05:06 #20673 [verbose] > │ and method6 (v0 : UH1, v1 : uint64) : uint64 = │
00:05:06 #20674 [verbose] > │ match v0 with │
00:05:06 #20675 [verbose] > │ | UH1_1(v2, v3, v4, v5) -> (* Cons *) │
00:05:06 #20676 [verbose] > │ let v6 : uint64 = v1 + 1UL │
00:05:06 #20677 [verbose] > │ method6(v5, v6) │
00:05:06 #20678 [verbose] > │ | UH1_0 -> (* Nil *) │
00:05:06 #20679 [verbose] > │ v1 │
00:05:06 #20680 [verbose] > │ and method7 (v0 : (struct (int32 * string * (struct (string * string) -> │
00:05:06 #20681 [verbose] > │ string)) []), v1 : UH1, v2 : uint64) : uint64 = │
00:05:06 #20682 [verbose] > │ match v1 with │
00:05:06 #20683 [verbose] > │ | UH1_1(v3, v4, v5, v6) -> (* Cons *) │
00:05:06 #20684 [verbose] > │ v0.[int v2] <- struct (v3, v4, v5) │
00:05:06 #20685 [verbose] > │ let v7 : uint64 = v2 + 1UL │
00:05:06 #20686 [verbose] > │ method7(v0, v6, v7) │
00:05:06 #20687 [verbose] > │ | UH1_0 -> (* Nil *) │
00:05:06 #20688 [verbose] > │ v2 │
00:05:06 #20689 [verbose] > │ and method5 (v0 : UH1) : (struct (int32 * string * (struct (string * string) │
00:05:06 #20690 [verbose] > │ -> string)) []) = │
00:05:06 #20691 [verbose] > │ let v1 : uint64 = 0UL │
00:05:06 #20692 [verbose] > │ let v2 : uint64 = method6(v0, v1) │
00:05:06 #20693 [verbose] > │ let v3 : (struct (int32 * string * (struct (string * string) -> string)) │
00:05:06 #20694 [verbose] > │ []) = Array.zeroCreate<struct (int32 * string * (struct (string * string) -> │
00:05:06 #20695 [verbose] > │ string))> (System.Convert.ToInt32(v2)) │
00:05:06 #20696 [verbose] > │ let v4 : uint64 = 0UL │
00:05:06 #20697 [verbose] > │ let v5 : uint64 = method7(v3, v0, v4) │
00:05:06 #20698 [verbose] > │ v3 │
00:05:06 #20699 [verbose] > │ and method8 (v0 : Mut1) : bool = │
00:05:06 #20700 [verbose] > │ let v1 : int32 = v0.l0 │
00:05:06 #20701 [verbose] > │ let v2 : bool = v1 < 2000001 │
00:05:06 #20702 [verbose] > │ v2 │
00:05:06 #20703 [verbose] > │ and closure3 (v0 : string, v1 : string, v2 : (struct (string * string) -> │
00:05:06 #20704 [verbose] > │ string)) (v3 : int32) : string = │
00:05:06 #20705 [verbose] > │ v2 struct (v0, v1) │
00:05:06 #20706 [verbose] > │ and method9 (v0 : string, v1 : (string []), v2 : uint64) : bool = │
00:05:06 #20707 [verbose] > │ let v3 : uint64 = System.Convert.ToUInt64 v1.Length │
00:05:06 #20708 [verbose] > │ let v4 : bool = v2 < v3 │
00:05:06 #20709 [verbose] > │ if v4 then │
00:05:06 #20710 [verbose] > │ let v5 : string = v1.[int v2] │
00:05:06 #20711 [verbose] > │ let v6 : bool = v0 = v5 │
00:05:06 #20712 [verbose] > │ if v6 then │
00:05:06 #20713 [verbose] > │ let v7 : uint64 = v2 + 1UL │
00:05:06 #20714 [verbose] > │ method9(v0, v1, v7) │
00:05:06 #20715 [verbose] > │ else │
00:05:06 #20716 [verbose] > │ false │
00:05:06 #20717 [verbose] > │ else │
00:05:06 #20718 [verbose] > │ true │
00:05:06 #20719 [verbose] > │ and method10 (v0 : uint64, v1 : Mut2) : bool = │
00:05:06 #20720 [verbose] > │ let v2 : uint64 = v1.l0 │
00:05:06 #20721 [verbose] > │ let v3 : bool = v2 < v0 │
00:05:06 #20722 [verbose] > │ v3 │
00:05:06 #20723 [verbose] > │ and method11 (v0 : UH3, v1 : UH3) : UH3 = │
00:05:06 #20724 [verbose] > │ match v0 with │
00:05:06 #20725 [verbose] > │ | UH3_1(v2, v3, v4) -> (* Cons *) │
00:05:06 #20726 [verbose] > │ let v5 : UH3 = UH3_1(v2, v3, v1) │
00:05:06 #20727 [verbose] > │ method11(v4, v5) │
00:05:06 #20728 [verbose] > │ | UH3_0 -> (* Nil *) │
00:05:06 #20729 [verbose] > │ v1 │
00:05:06 #20730 [verbose] > │ and method13 (v0 : UH3, v1 : int32) : int32 = │
00:05:06 #20731 [verbose] > │ match v0 with │
00:05:06 #20732 [verbose] > │ | UH3_1(v2, v3, v4) -> (* Cons *) │
00:05:06 #20733 [verbose] > │ let v5 : int32 = v1 + 1 │
00:05:06 #20734 [verbose] > │ method13(v4, v5) │
00:05:06 #20735 [verbose] > │ | UH3_0 -> (* Nil *) │
00:05:06 #20736 [verbose] > │ v1 │
00:05:06 #20737 [verbose] > │ and method14 (v0 : (struct (int64 * int64) []), v1 : UH3, v2 : int32) : │
00:05:06 #20738 [verbose] > │ int32 = │
00:05:06 #20739 [verbose] > │ match v1 with │
00:05:06 #20740 [verbose] > │ | UH3_1(v3, v4, v5) -> (* Cons *) │
00:05:06 #20741 [verbose] > │ v0.[int v2] <- struct (v3, v4) │
00:05:06 #20742 [verbose] > │ let v6 : int32 = v2 + 1 │
00:05:06 #20743 [verbose] > │ method14(v0, v5, v6) │
00:05:06 #20744 [verbose] > │ | UH3_0 -> (* Nil *) │
00:05:06 #20745 [verbose] > │ v2 │
00:05:06 #20746 [verbose] > │ and method12 (v0 : UH3) : (struct (int64 * int64) []) = │
00:05:06 #20747 [verbose] > │ let v1 : int32 = 0 │
00:05:06 #20748 [verbose] > │ let v2 : int32 = method13(v0, v1) │
00:05:06 #20749 [verbose] > │ let v3 : (struct (int64 * int64) []) = Array.zeroCreate<struct (int64 * │
00:05:06 #20750 [verbose] > │ int64)> (v2) │
00:05:06 #20751 [verbose] > │ let v4 : int32 = 0 │
00:05:06 #20752 [verbose] > │ let v5 : int32 = method14(v3, v0, v4) │
00:05:06 #20753 [verbose] > │ v3 │
00:05:06 #20754 [verbose] > │ and method15 (v0 : int32, v1 : Mut1) : bool = │
00:05:06 #20755 [verbose] > │ let v2 : int32 = v1.l0 │
00:05:06 #20756 [verbose] > │ let v3 : bool = v2 < v0 │
00:05:06 #20757 [verbose] > │ v3 │
00:05:06 #20758 [verbose] > │ and closure4 () struct (v0 : int64, v1 : int64) : int64 = │
00:05:06 #20759 [verbose] > │ v1 │
00:05:06 #20760 [verbose] > │ and method17 (v0 : UH4, v1 : uint64) : uint64 = │
00:05:06 #20761 [verbose] > │ match v0 with │
00:05:06 #20762 [verbose] > │ | UH4_1(v2, v3, v4) -> (* Cons *) │
00:05:06 #20763 [verbose] > │ let v5 : uint64 = v1 + 1UL │
00:05:06 #20764 [verbose] > │ method17(v4, v5) │
00:05:06 #20765 [verbose] > │ | UH4_0 -> (* Nil *) │
00:05:06 #20766 [verbose] > │ v1 │
00:05:06 #20767 [verbose] > │ and method18 (v0 : (struct (UH2 * US0) []), v1 : UH4, v2 : uint64) : uint64 │
00:05:06 #20768 [verbose] > │ = │
00:05:06 #20769 [verbose] > │ match v1 with │
00:05:06 #20770 [verbose] > │ | UH4_1(v3, v4, v5) -> (* Cons *) │
00:05:06 #20771 [verbose] > │ v0.[int v2] <- struct (v3, v4) │
00:05:06 #20772 [verbose] > │ let v6 : uint64 = v2 + 1UL │
00:05:06 #20773 [verbose] > │ method18(v0, v5, v6) │
00:05:06 #20774 [verbose] > │ | UH4_0 -> (* Nil *) │
00:05:06 #20775 [verbose] > │ v2 │
00:05:06 #20776 [verbose] > │ and method16 (v0 : UH4) : (struct (UH2 * US0) []) = │
00:05:06 #20777 [verbose] > │ let v1 : uint64 = 0UL │
00:05:06 #20778 [verbose] > │ let v2 : uint64 = method17(v0, v1) │
00:05:06 #20779 [verbose] > │ let v3 : (struct (UH2 * US0) []) = Array.zeroCreate<struct (UH2 * US0)> │
00:05:06 #20780 [verbose] > │ (System.Convert.ToInt32(v2)) │
00:05:06 #20781 [verbose] > │ let v4 : uint64 = 0UL │
00:05:06 #20782 [verbose] > │ let v5 : uint64 = method18(v3, v0, v4) │
00:05:06 #20783 [verbose] > │ v3 │
00:05:06 #20784 [verbose] > │ and method20 (v0 : UH2, v1 : uint64) : uint64 = │
00:05:06 #20785 [verbose] > │ match v0 with │
00:05:06 #20786 [verbose] > │ | UH2_1(v2, v3) -> (* Cons *) │
00:05:06 #20787 [verbose] > │ let v4 : uint64 = v1 + 1UL │
00:05:06 #20788 [verbose] > │ method20(v3, v4) │
00:05:06 #20789 [verbose] > │ | UH2_0 -> (* Nil *) │
00:05:06 #20790 [verbose] > │ v1 │
00:05:06 #20791 [verbose] > │ and method21 (v0 : (string []), v1 : UH2, v2 : uint64) : uint64 = │
00:05:06 #20792 [verbose] > │ match v1 with │
00:05:06 #20793 [verbose] > │ | UH2_1(v3, v4) -> (* Cons *) │
00:05:06 #20794 [verbose] > │ v0.[int v2] <- v3 │
00:05:06 #20795 [verbose] > │ let v5 : uint64 = v2 + 1UL │
00:05:06 #20796 [verbose] > │ method21(v0, v4, v5) │
00:05:06 #20797 [verbose] > │ | UH2_0 -> (* Nil *) │
00:05:06 #20798 [verbose] > │ v2 │
00:05:06 #20799 [verbose] > │ and method19 (v0 : UH2) : (string []) = │
00:05:06 #20800 [verbose] > │ let v1 : uint64 = 0UL │
00:05:06 #20801 [verbose] > │ let v2 : uint64 = method20(v0, v1) │
00:05:06 #20802 [verbose] > │ let v3 : (string []) = Array.zeroCreate<string> │
00:05:06 #20803 [verbose] > │ (System.Convert.ToInt32(v2)) │
00:05:06 #20804 [verbose] > │ let v4 : uint64 = 0UL │
00:05:06 #20805 [verbose] > │ let v5 : uint64 = method21(v3, v0, v4) │
00:05:06 #20806 [verbose] > │ v3 │
00:05:06 #20807 [verbose] > │ and closure5 () (v0 : int64) : US1 = │
00:05:06 #20808 [verbose] > │ US1_0(v0) │
00:05:06 #20809 [verbose] > │ and method22 () : (int64 -> US1) = │
00:05:06 #20810 [verbose] > │ closure5() │
00:05:06 #20811 [verbose] > │ and method23 (v0 : uint64, v1 : Mut3) : bool = │
00:05:06 #20812 [verbose] > │ let v2 : uint64 = v1.l0 │
00:05:06 #20813 [verbose] > │ let v3 : bool = v2 < v0 │
00:05:06 #20814 [verbose] > │ v3 │
00:05:06 #20815 [verbose] > │ and method24 (v0 : UH5, v1 : UH5) : UH5 = │
00:05:06 #20816 [verbose] > │ match v0 with │
00:05:06 #20817 [verbose] > │ | UH5_1(v2, v3, v4) -> (* Cons *) │
00:05:06 #20818 [verbose] > │ let v5 : UH5 = UH5_1(v2, v3, v1) │
00:05:06 #20819 [verbose] > │ method24(v4, v5) │
00:05:06 #20820 [verbose] > │ | UH5_0 -> (* Nil *) │
00:05:06 #20821 [verbose] > │ v1 │
00:05:06 #20822 [verbose] > │ and method26 (v0 : UH5, v1 : int32) : int32 = │
00:05:06 #20823 [verbose] > │ match v0 with │
00:05:06 #20824 [verbose] > │ | UH5_1(v2, v3, v4) -> (* Cons *) │
00:05:06 #20825 [verbose] > │ let v5 : int32 = v1 + 1 │
00:05:06 #20826 [verbose] > │ method26(v4, v5) │
00:05:06 #20827 [verbose] > │ | UH5_0 -> (* Nil *) │
00:05:06 #20828 [verbose] > │ v1 │
00:05:06 #20829 [verbose] > │ and method27 (v0 : (struct (int32 * int64) []), v1 : UH5, v2 : int32) : │
00:05:06 #20830 [verbose] > │ int32 = │
00:05:06 #20831 [verbose] > │ match v1 with │
00:05:06 #20832 [verbose] > │ | UH5_1(v3, v4, v5) -> (* Cons *) │
00:05:06 #20833 [verbose] > │ v0.[int v2] <- struct (v3, v4) │
00:05:06 #20834 [verbose] > │ let v6 : int32 = v2 + 1 │
00:05:06 #20835 [verbose] > │ method27(v0, v5, v6) │
00:05:06 #20836 [verbose] > │ | UH5_0 -> (* Nil *) │
00:05:06 #20837 [verbose] > │ v2 │
00:05:06 #20838 [verbose] > │ and method25 (v0 : UH5) : (struct (int32 * int64) []) = │
00:05:06 #20839 [verbose] > │ let v1 : int32 = 0 │
00:05:06 #20840 [verbose] > │ let v2 : int32 = method26(v0, v1) │
00:05:06 #20841 [verbose] > │ let v3 : (struct (int32 * int64) []) = Array.zeroCreate<struct (int32 * │
00:05:06 #20842 [verbose] > │ int64)> (v2) │
00:05:06 #20843 [verbose] > │ let v4 : int32 = 0 │
00:05:06 #20844 [verbose] > │ let v5 : int32 = method27(v3, v0, v4) │
00:05:06 #20845 [verbose] > │ v3 │
00:05:06 #20846 [verbose] > │ and method28 (v0 : UH2, v1 : UH6, v2 : int32) : struct (UH6 * int32) = │
00:05:06 #20847 [verbose] > │ match v0 with │
00:05:06 #20848 [verbose] > │ | UH2_1(v3, v4) -> (* Cons *) │
00:05:06 #20849 [verbose] > │ let v5 : int32 = v2 + 1 │
00:05:06 #20850 [verbose] > │ let v6 : UH6 = UH6_1(v2, v3, v1) │
00:05:06 #20851 [verbose] > │ method28(v4, v6, v5) │
00:05:06 #20852 [verbose] > │ | UH2_0 -> (* Nil *) │
00:05:06 #20853 [verbose] > │ struct (v1, v2) │
00:05:06 #20854 [verbose] > │ and method29 (v0 : UH6, v1 : UH6) : UH6 = │
00:05:06 #20855 [verbose] > │ match v0 with │
00:05:06 #20856 [verbose] > │ | UH6_1(v2, v3, v4) -> (* Cons *) │
00:05:06 #20857 [verbose] > │ let v5 : UH6 = UH6_1(v2, v3, v1) │
00:05:06 #20858 [verbose] > │ method29(v4, v5) │
00:05:06 #20859 [verbose] > │ | UH6_0 -> (* Nil *) │
00:05:06 #20860 [verbose] > │ v1 │
00:05:06 #20861 [verbose] > │ and method30 (v0 : Map<int32, int64>, v1 : UH6, v2 : UH2) : UH2 = │
00:05:06 #20862 [verbose] > │ match v1 with │
00:05:06 #20863 [verbose] > │ | UH6_1(v3, v4, v5) -> (* Cons *) │
00:05:06 #20864 [verbose] > │ let v6 : UH2 = method30(v0, v5, v2) │
00:05:06 #20865 [verbose] > │ let v7 : int64 = v0.[v3] │
00:05:06 #20866 [verbose] > │ let v8 : int32 = int32 v7 │
00:05:06 #20867 [verbose] > │ let v9 : string = v4.PadRight v8 │
00:05:06 #20868 [verbose] > │ UH2_1(v9, v6) │
00:05:06 #20869 [verbose] > │ | UH6_0 -> (* Nil *) │
00:05:06 #20870 [verbose] > │ v2 │
00:05:06 #20871 [verbose] > │ and method32 (v0 : UH2, v1 : int32) : int32 = │
00:05:06 #20872 [verbose] > │ match v0 with │
00:05:06 #20873 [verbose] > │ | UH2_1(v2, v3) -> (* Cons *) │
00:05:06 #20874 [verbose] > │ let v4 : int32 = v1 + 1 │
00:05:06 #20875 [verbose] > │ method32(v3, v4) │
00:05:06 #20876 [verbose] > │ | UH2_0 -> (* Nil *) │
00:05:06 #20877 [verbose] > │ v1 │
00:05:06 #20878 [verbose] > │ and method33 (v0 : (string []), v1 : UH2, v2 : int32) : int32 = │
00:05:06 #20879 [verbose] > │ match v1 with │
00:05:06 #20880 [verbose] > │ | UH2_1(v3, v4) -> (* Cons *) │
00:05:06 #20881 [verbose] > │ v0.[int v2] <- v3 │
00:05:06 #20882 [verbose] > │ let v5 : int32 = v2 + 1 │
00:05:06 #20883 [verbose] > │ method33(v0, v4, v5) │
00:05:06 #20884 [verbose] > │ | UH2_0 -> (* Nil *) │
00:05:06 #20885 [verbose] > │ v2 │
00:05:06 #20886 [verbose] > │ and method31 (v0 : UH2) : (string []) = │
00:05:06 #20887 [verbose] > │ let v1 : int32 = 0 │
00:05:06 #20888 [verbose] > │ let v2 : int32 = method32(v0, v1) │
00:05:06 #20889 [verbose] > │ let v3 : (string []) = Array.zeroCreate<string> (v2) │
00:05:06 #20890 [verbose] > │ let v4 : int32 = 0 │
00:05:06 #20891 [verbose] > │ let v5 : int32 = method33(v3, v0, v4) │
00:05:06 #20892 [verbose] > │ v3 │
00:05:06 #20893 [verbose] > │ and method35 (v0 : UH5, v1 : uint64) : uint64 = │
00:05:06 #20894 [verbose] > │ match v0 with │
00:05:06 #20895 [verbose] > │ | UH5_1(v2, v3, v4) -> (* Cons *) │
00:05:06 #20896 [verbose] > │ let v5 : uint64 = v1 + 1UL │
00:05:06 #20897 [verbose] > │ method35(v4, v5) │
00:05:06 #20898 [verbose] > │ | UH5_0 -> (* Nil *) │
00:05:06 #20899 [verbose] > │ v1 │
00:05:06 #20900 [verbose] > │ and method36 (v0 : (struct (int32 * int64) []), v1 : UH5, v2 : uint64) : │
00:05:06 #20901 [verbose] > │ uint64 = │
00:05:06 #20902 [verbose] > │ match v1 with │
00:05:06 #20903 [verbose] > │ | UH5_1(v3, v4, v5) -> (* Cons *) │
00:05:06 #20904 [verbose] > │ v0.[int v2] <- struct (v3, v4) │
00:05:06 #20905 [verbose] > │ let v6 : uint64 = v2 + 1UL │
00:05:06 #20906 [verbose] > │ method36(v0, v5, v6) │
00:05:06 #20907 [verbose] > │ | UH5_0 -> (* Nil *) │
00:05:06 #20908 [verbose] > │ v2 │
00:05:06 #20909 [verbose] > │ and method34 (v0 : UH5) : (struct (int32 * int64) []) = │
00:05:06 #20910 [verbose] > │ let v1 : uint64 = 0UL │
00:05:06 #20911 [verbose] > │ let v2 : uint64 = method35(v0, v1) │
00:05:06 #20912 [verbose] > │ let v3 : (struct (int32 * int64) []) = Array.zeroCreate<struct (int32 * │
00:05:06 #20913 [verbose] > │ int64)> (System.Convert.ToInt32(v2)) │
00:05:06 #20914 [verbose] > │ let v4 : uint64 = 0UL │
00:05:06 #20915 [verbose] > │ let v5 : uint64 = method36(v3, v0, v4) │
00:05:06 #20916 [verbose] > │ v3 │
00:05:06 #20917 [verbose] > │ and closure6 () struct (v0 : int32, v1 : int64) : int64 = │
00:05:06 #20918 [verbose] > │ v1 │
00:05:06 #20919 [verbose] > │ and closure0 () () : unit = │
00:05:06 #20920 [verbose] > │ let v0 : (unit -> unit) = closure0() │
00:05:06 #20921 [verbose] > │ let v1 : string = nameof v0 │
00:05:06 #20922 [verbose] > │ let v2 : string = "" │
00:05:06 #20923 [verbose] > │ System.Console.WriteLine v2 │
00:05:06 #20924 [verbose] > │ System.Console.WriteLine v2 │
00:05:06 #20925 [verbose] > │ let v3 : string = $"Test: {v1}" │
00:05:06 #20926 [verbose] > │ System.Console.WriteLine v3 │
00:05:06 #20927 [verbose] > │ let v4 : string = "a" │
00:05:06 #20928 [verbose] > │ let v5 : string = "b" │
00:05:06 #20929 [verbose] > │ let v6 : UH0 = UH0_0 │
00:05:06 #20930 [verbose] > │ let v7 : UH0 = UH0_1(v5, v5, v5, v6) │
00:05:06 #20931 [verbose] > │ let v8 : UH0 = UH0_1(v4, v4, v4, v7) │
00:05:06 #20932 [verbose] > │ let v9 : (struct (string * string * string) []) = method1(v8) │
00:05:06 #20933 [verbose] > │ let v10 : uint64 = System.Convert.ToUInt64 v9.Length │
00:05:06 #20934 [verbose] > │ let v11 : (struct (string * string * string * (int64 [])) []) = │
00:05:06 #20935 [verbose] > │ Array.zeroCreate<struct (string * string * string * (int64 []))> │
00:05:06 #20936 [verbose] > │ (System.Convert.ToInt32(v10)) │
00:05:06 #20937 [verbose] > │ let v12 : Mut0 = {l0 = 0UL} : Mut0 │
00:05:06 #20938 [verbose] > │ while method4(v10, v12) do │
00:05:06 #20939 [verbose] > │ let v14 : uint64 = v12.l0 │
00:05:06 #20940 [verbose] > │ let struct (v15 : string, v16 : string, v17 : string) = v9.[int v14] │
00:05:06 #20941 [verbose] > │ let v18 : string = $"%A{struct (v15, v16)}" │
00:05:06 #20942 [verbose] > │ System.Console.WriteLine v2 │
00:05:06 #20943 [verbose] > │ let v19 : string = $"Solution: {v18} " │
00:05:06 #20944 [verbose] > │ System.Console.WriteLine v19 │
00:05:06 #20945 [verbose] > │ let v20 : int32 = 0 │
00:05:06 #20946 [verbose] > │ let v21 : string = "A" │
00:05:06 #20947 [verbose] > │ let v22 : (struct (string * string) -> string) = closure1() │
00:05:06 #20948 [verbose] > │ let v23 : int32 = 1 │
00:05:06 #20949 [verbose] > │ let v24 : string = "B" │
00:05:06 #20950 [verbose] > │ let v25 : (struct (string * string) -> string) = closure2() │
00:05:06 #20951 [verbose] > │ let v26 : UH1 = UH1_0 │
00:05:06 #20952 [verbose] > │ let v27 : UH1 = UH1_1(v23, v24, v25, v26) │
00:05:06 #20953 [verbose] > │ let v28 : UH1 = UH1_1(v20, v21, v22, v27) │
00:05:06 #20954 [verbose] > │ let v29 : (struct (int32 * string * (struct (string * string) -> │
00:05:06 #20955 [verbose] > │ string)) []) = method5(v28) │
00:05:06 #20956 [verbose] > │ let v30 : uint64 = System.Convert.ToUInt64 v29.Length │
00:05:06 #20957 [verbose] > │ let v31 : (struct (string * int64) []) = Array.zeroCreate<struct │
00:05:06 #20958 [verbose] > │ (string * int64)> (System.Convert.ToInt32(v30)) │
00:05:06 #20959 [verbose] > │ let v32 : Mut0 = {l0 = 0UL} : Mut0 │
00:05:06 #20960 [verbose] > │ while method4(v30, v32) do │
00:05:06 #20961 [verbose] > │ let v34 : uint64 = v32.l0 │
00:05:06 #20962 [verbose] > │ let struct (v35 : int32, v36 : string, v37 : (struct (string * │
00:05:06 #20963 [verbose] > │ string) -> string)) = v29.[int v34] │
00:05:06 #20964 [verbose] > │ let v38 : unit option = None │
00:05:06 #20965 [verbose] > │ let mutable _v38 = v38 │
00:05:06 #20966 [verbose] > │ #if FABLE_COMPILER_RUST && !WASM && !CONTRACT │
00:05:06 #20967 [verbose] > │ () │
00:05:06 #20968 [verbose] > │ #endif │
00:05:06 #20969 [verbose] > │ #if FABLE_COMPILER_RUST && WASM │
00:05:06 #20970 [verbose] > │ () │
00:05:06 #20971 [verbose] > │ #endif │
00:05:06 #20972 [verbose] > │ #if FABLE_COMPILER_RUST && CONTRACT │
00:05:06 #20973 [verbose] > │ () │
00:05:06 #20974 [verbose] > │ #endif │
00:05:06 #20975 [verbose] > │ #if !FABLE_COMPILER && !FABLE_COMPILER_RUST && │
00:05:06 #20976 [verbose] > │ !FABLE_COMPILER_TYPESCRIPT && !WASM && !CONTRACT │
00:05:06 #20977 [verbose] > │ System.GC.Collect () │
00:05:06 #20978 [verbose] > │ () │
00:05:06 #20979 [verbose] > │ #endif │
00:05:06 #20980 [verbose] > │ #if FABLE_COMPILER_TYPESCRIPT │
00:05:06 #20981 [verbose] > │ () │
00:05:06 #20982 [verbose] > │ #endif │
00:05:06 #20983 [verbose] > │ #if FABLE_COMPILER_PYTHON || FABLE_COMPILER_PHP || │
00:05:06 #20984 [verbose] > │ FABLE_COMPILER_DART │
00:05:06 #20985 [verbose] > │ Unchecked.defaultof<unit> │
00:05:06 #20986 [verbose] > │ () │
00:05:06 #20987 [verbose] > │ #endif │
00:05:06 #20988 [verbose] > │ |> fun x -> _v38 <- Some x │
00:05:06 #20989 [verbose] > │ _v38.Value │
00:05:06 #20990 [verbose] > │ let v39 : (unit -> System.Diagnostics.Stopwatch) = │
00:05:06 #20991 [verbose] > │ System.Diagnostics.Stopwatch │
00:05:06 #20992 [verbose] > │ let v40 : System.Diagnostics.Stopwatch = v39 () │
00:05:06 #20993 [verbose] > │ v40.Start () │
00:05:06 #20994 [verbose] > │ let v41 : int64 = v40.ElapsedMilliseconds │
00:05:06 #20995 [verbose] > │ let v42 : (int32 []) = Array.zeroCreate<int32> (2000001) │
00:05:06 #20996 [verbose] > │ let v43 : Mut1 = {l0 = 0} : Mut1 │
00:05:06 #20997 [verbose] > │ while method8(v43) do │
00:05:06 #20998 [verbose] > │ let v45 : int32 = v43.l0 │
00:05:06 #20999 [verbose] > │ v42.[int v45] <- v45 │
00:05:06 #21000 [verbose] > │ let v46 : int32 = v45 + 1 │
00:05:06 #21001 [verbose] > │ v43.l0 <- v46 │
00:05:06 #21002 [verbose] > │ () │
00:05:06 #21003 [verbose] > │ let v47 : ((int32 -> string) -> ((int32 []) -> (string []))) = │
00:05:06 #21004 [verbose] > │ Array.Parallel.map │
00:05:06 #21005 [verbose] > │ let v48 : (int32 -> string) = closure3(v15, v16, v37) │
00:05:06 #21006 [verbose] > │ let v49 : ((int32 []) -> (string [])) = v47 v48 │
00:05:06 #21007 [verbose] > │ let v50 : (string []) = v49 v42 │
00:05:06 #21008 [verbose] > │ let v51 : int32 = v50.Length │
00:05:06 #21009 [verbose] > │ let v52 : int32 = v51 - 1 │
00:05:06 #21010 [verbose] > │ let v53 : string = v50.[int v52] │
00:05:06 #21011 [verbose] > │ let v54 : int64 = v40.ElapsedMilliseconds │
00:05:06 #21012 [verbose] > │ let v55 : int64 = v54 - v41 │
00:05:06 #21013 [verbose] > │ let v56 : string = $"Test case {v35 + 1}. {v36}. Time: {v55} " │
00:05:06 #21014 [verbose] > │ System.Console.WriteLine v56 │
00:05:06 #21015 [verbose] > │ v31.[int v34] <- struct (v53, v55) │
00:05:06 #21016 [verbose] > │ let v57 : uint64 = v34 + 1UL │
00:05:06 #21017 [verbose] > │ v32.l0 <- v57 │
00:05:06 #21018 [verbose] > │ () │
00:05:06 #21019 [verbose] > │ let v58 : uint64 = System.Convert.ToUInt64 v31.Length │
00:05:06 #21020 [verbose] > │ let v59 : (string []) = Array.zeroCreate<string> │
00:05:06 #21021 [verbose] > │ (System.Convert.ToInt32(v58)) │
00:05:06 #21022 [verbose] > │ let v60 : Mut0 = {l0 = 0UL} : Mut0 │
00:05:06 #21023 [verbose] > │ while method4(v58, v60) do │
00:05:06 #21024 [verbose] > │ let v62 : uint64 = v60.l0 │
00:05:06 #21025 [verbose] > │ let struct (v63 : string, v64 : int64) = v31.[int v62] │
00:05:06 #21026 [verbose] > │ v59.[int v62] <- v63 │
00:05:06 #21027 [verbose] > │ let v65 : uint64 = v62 + 1UL │
00:05:06 #21028 [verbose] > │ v60.l0 <- v65 │
00:05:06 #21029 [verbose] > │ () │
00:05:06 #21030 [verbose] > │ let v66 : uint64 = System.Convert.ToUInt64 v59.Length │
00:05:06 #21031 [verbose] > │ let v67 : bool = v66 <= 1UL │
00:05:06 #21032 [verbose] > │ if v67 then │
00:05:06 #21033 [verbose] > │ () │
00:05:06 #21034 [verbose] > │ else │
00:05:06 #21035 [verbose] > │ let v68 : string = v59.[int 0UL] │
00:05:06 #21036 [verbose] > │ let v69 : uint64 = 0UL │
00:05:06 #21037 [verbose] > │ let v70 : bool = method9(v68, v59, v69) │
00:05:06 #21038 [verbose] > │ if v70 then │
00:05:06 #21039 [verbose] > │ () │
00:05:06 #21040 [verbose] > │ else │
00:05:06 #21041 [verbose] > │ let v71 : string = $"Challenge error: {v59}" │
00:05:06 #21042 [verbose] > │ failwith<unit> v71 │
00:05:06 #21043 [verbose] > │ let v72 : string = $"%A{v17}" │
00:05:06 #21044 [verbose] > │ let v73 : (string []) = Array.zeroCreate<string> │
00:05:06 #21045 [verbose] > │ (System.Convert.ToInt32(v58)) │
00:05:06 #21046 [verbose] > │ let v74 : Mut0 = {l0 = 0UL} : Mut0 │
00:05:06 #21047 [verbose] > │ while method4(v58, v74) do │
00:05:06 #21048 [verbose] > │ let v76 : uint64 = v74.l0 │
00:05:06 #21049 [verbose] > │ let struct (v77 : string, v78 : int64) = v31.[int v76] │
00:05:06 #21050 [verbose] > │ v73.[int v76] <- v77 │
00:05:06 #21051 [verbose] > │ let v79 : uint64 = v76 + 1UL │
00:05:06 #21052 [verbose] > │ v74.l0 <- v79 │
00:05:06 #21053 [verbose] > │ () │
00:05:06 #21054 [verbose] > │ let v80 : string = v73.[int 0UL] │
00:05:06 #21055 [verbose] > │ let v81 : string = $"%A{v80}" │
00:05:06 #21056 [verbose] > │ let v82 : (int64 []) = Array.zeroCreate<int64> │
00:05:06 #21057 [verbose] > │ (System.Convert.ToInt32(v58)) │
00:05:06 #21058 [verbose] > │ let v83 : Mut0 = {l0 = 0UL} : Mut0 │
00:05:06 #21059 [verbose] > │ while method4(v58, v83) do │
00:05:06 #21060 [verbose] > │ let v85 : uint64 = v83.l0 │
00:05:06 #21061 [verbose] > │ let struct (v86 : string, v87 : int64) = v31.[int v85] │
00:05:06 #21062 [verbose] > │ v82.[int v85] <- v87 │
00:05:06 #21063 [verbose] > │ let v88 : uint64 = v85 + 1UL │
00:05:06 #21064 [verbose] > │ v83.l0 <- v88 │
00:05:06 #21065 [verbose] > │ () │
00:05:06 #21066 [verbose] > │ v11.[int v14] <- struct (v72, v18, v81, v82) │
00:05:06 #21067 [verbose] > │ let v89 : uint64 = v14 + 1UL │
00:05:06 #21068 [verbose] > │ v12.l0 <- v89 │
00:05:06 #21069 [verbose] > │ () │
00:05:06 #21070 [verbose] > │ let v90 : uint64 = System.Convert.ToUInt64 v11.Length │
00:05:06 #21071 [verbose] > │ let v91 : (struct (UH2 * US0) []) = Array.zeroCreate<struct (UH2 * US0)> │
00:05:06 #21072 [verbose] > │ (System.Convert.ToInt32(v90)) │
00:05:06 #21073 [verbose] > │ let v92 : Mut0 = {l0 = 0UL} : Mut0 │
00:05:06 #21074 [verbose] > │ while method4(v90, v92) do │
00:05:06 #21075 [verbose] > │ let v94 : uint64 = v92.l0 │
00:05:06 #21076 [verbose] > │ let struct (v95 : string, v96 : string, v97 : string, v98 : (int64 [ │
00:05:06 #21077 [verbose] > │ ])) = v11.[int v94] │
00:05:06 #21078 [verbose] > │ let v99 : uint64 = System.Convert.ToUInt64 v98.Length │
00:05:06 #21079 [verbose] > │ let v100 : UH3 = UH3_0 │
00:05:06 #21080 [verbose] > │ let v101 : Mut2 = {l0 = 0UL; l1 = v100; l2 = 0L} : Mut2 │
00:05:06 #21081 [verbose] > │ while method10(v99, v101) do │
00:05:06 #21082 [verbose] > │ let v103 : uint64 = v101.l0 │
00:05:06 #21083 [verbose] > │ let struct (v104 : UH3, v105 : int64) = v101.l1, v101.l2 │
00:05:06 #21084 [verbose] > │ let v106 : int64 = v98.[int v103] │
00:05:06 #21085 [verbose] > │ let v107 : int64 = v105 + 1L │
00:05:06 #21086 [verbose] > │ let v108 : uint64 = v103 + 1UL │
00:05:06 #21087 [verbose] > │ let v109 : UH3 = UH3_1(v105, v106, v104) │
00:05:06 #21088 [verbose] > │ v101.l0 <- v108 │
00:05:06 #21089 [verbose] > │ v101.l1 <- v109 │
00:05:06 #21090 [verbose] > │ v101.l2 <- v107 │
00:05:06 #21091 [verbose] > │ () │
00:05:06 #21092 [verbose] > │ let struct (v110 : UH3, v111 : int64) = v101.l1, v101.l2 │
00:05:06 #21093 [verbose] > │ let v112 : UH3 = UH3_0 │
00:05:06 #21094 [verbose] > │ let v113 : UH3 = method11(v110, v112) │
00:05:06 #21095 [verbose] > │ let v114 : (struct (int64 * int64) []) = method12(v113) │
00:05:06 #21096 [verbose] > │ let v115 : int32 = v114.Length │
00:05:06 #21097 [verbose] > │ let v116 : (struct (int64 * int64) []) = Array.zeroCreate<struct │
00:05:06 #21098 [verbose] > │ (int64 * int64)> (v115) │
00:05:06 #21099 [verbose] > │ let v117 : Mut1 = {l0 = 0} : Mut1 │
00:05:06 #21100 [verbose] > │ while method15(v115, v117) do │
00:05:06 #21101 [verbose] > │ let v119 : int32 = v117.l0 │
00:05:06 #21102 [verbose] > │ let struct (v120 : int64, v121 : int64) = v114.[int v119] │
00:05:06 #21103 [verbose] > │ let v122 : int64 = v120 + 1L │
00:05:06 #21104 [verbose] > │ v116.[int v119] <- struct (v122, v121) │
00:05:06 #21105 [verbose] > │ let v123 : int32 = v119 + 1 │
00:05:06 #21106 [verbose] > │ v117.l0 <- v123 │
00:05:06 #21107 [verbose] > │ () │
00:05:06 #21108 [verbose] > │ let v124 : ((struct (int64 * int64) -> int64) -> ((struct (int64 * │
00:05:06 #21109 [verbose] > │ int64) []) -> (struct (int64 * int64) []))) = Array.sortBy │
00:05:06 #21110 [verbose] > │ let v125 : (struct (int64 * int64) -> int64) = closure4() │
00:05:06 #21111 [verbose] > │ let v126 : ((struct (int64 * int64) []) -> (struct (int64 * int64) [ │
00:05:06 #21112 [verbose] > │ ])) = v124 v125 │
00:05:06 #21113 [verbose] > │ let v127 : (struct (int64 * int64) []) = v126 v116 │
00:05:06 #21114 [verbose] > │ let struct (v128 : int64, v129 : int64) = v127.[int 0] │
00:05:06 #21115 [verbose] > │ let v130 : string = $"%A{struct (v128, v129)}" │
00:05:06 #21116 [verbose] > │ let v131 : bool = v95 = v97 │
00:05:06 #21117 [verbose] > │ let v136 : US0 = │
00:05:06 #21118 [verbose] > │ if v131 then │
00:05:06 #21119 [verbose] > │ let v132 : System.ConsoleColor = │
00:05:06 #21120 [verbose] > │ System.ConsoleColor.DarkGreen │
00:05:06 #21121 [verbose] > │ US0_0(v132) │
00:05:06 #21122 [verbose] > │ else │
00:05:06 #21123 [verbose] > │ let v134 : System.ConsoleColor = System.ConsoleColor.DarkRed │
00:05:06 #21124 [verbose] > │ US0_0(v134) │
00:05:06 #21125 [verbose] > │ let v137 : UH2 = UH2_0 │
00:05:06 #21126 [verbose] > │ let v138 : UH2 = UH2_1(v130, v137) │
00:05:06 #21127 [verbose] > │ let v139 : UH2 = UH2_1(v97, v138) │
00:05:06 #21128 [verbose] > │ let v140 : UH2 = UH2_1(v95, v139) │
00:05:06 #21129 [verbose] > │ let v141 : UH2 = UH2_1(v96, v140) │
00:05:06 #21130 [verbose] > │ v91.[int v94] <- struct (v141, v136) │
00:05:06 #21131 [verbose] > │ let v142 : uint64 = v94 + 1UL │
00:05:06 #21132 [verbose] > │ v92.l0 <- v142 │
00:05:06 #21133 [verbose] > │ () │
00:05:06 #21134 [verbose] > │ let v143 : string = "Input" │
00:05:06 #21135 [verbose] > │ let v144 : string = "Expected" │
00:05:06 #21136 [verbose] > │ let v145 : string = "Result" │
00:05:06 #21137 [verbose] > │ let v146 : string = "Best" │
00:05:06 #21138 [verbose] > │ let v147 : UH2 = UH2_0 │
00:05:06 #21139 [verbose] > │ let v148 : UH2 = UH2_1(v146, v147) │
00:05:06 #21140 [verbose] > │ let v149 : UH2 = UH2_1(v145, v148) │
00:05:06 #21141 [verbose] > │ let v150 : UH2 = UH2_1(v144, v149) │
00:05:06 #21142 [verbose] > │ let v151 : UH2 = UH2_1(v143, v150) │
00:05:06 #21143 [verbose] > │ let v152 : US0 = US0_1 │
00:05:06 #21144 [verbose] > │ let v153 : string = "---" │
00:05:06 #21145 [verbose] > │ let v154 : UH2 = UH2_0 │
00:05:06 #21146 [verbose] > │ let v155 : UH2 = UH2_1(v153, v154) │
00:05:06 #21147 [verbose] > │ let v156 : UH2 = UH2_1(v153, v155) │
00:05:06 #21148 [verbose] > │ let v157 : UH2 = UH2_1(v153, v156) │
00:05:06 #21149 [verbose] > │ let v158 : UH2 = UH2_1(v153, v157) │
00:05:06 #21150 [verbose] > │ let v159 : US0 = US0_1 │
00:05:06 #21151 [verbose] > │ let v160 : UH4 = UH4_0 │
00:05:06 #21152 [verbose] > │ let v161 : UH4 = UH4_1(v158, v159, v160) │
00:05:06 #21153 [verbose] > │ let v162 : UH4 = UH4_1(v151, v152, v161) │
00:05:06 #21154 [verbose] > │ let v163 : (struct (UH2 * US0) []) = method16(v162) │
00:05:06 #21155 [verbose] > │ let v164 : uint64 = System.Convert.ToUInt64 v163.Length │
00:05:06 #21156 [verbose] > │ let v165 : uint64 = System.Convert.ToUInt64 v91.Length │
00:05:06 #21157 [verbose] > │ let v166 : uint64 = v164 + v165 │
00:05:06 #21158 [verbose] > │ let v167 : (struct (UH2 * US0) []) = Array.zeroCreate<struct (UH2 * │
00:05:06 #21159 [verbose] > │ US0)> (System.Convert.ToInt32(v166)) │
00:05:06 #21160 [verbose] > │ let v168 : Mut0 = {l0 = 0UL} : Mut0 │
00:05:06 #21161 [verbose] > │ while method4(v166, v168) do │
00:05:06 #21162 [verbose] > │ let v170 : uint64 = v168.l0 │
00:05:06 #21163 [verbose] > │ let v171 : bool = v170 < v164 │
00:05:06 #21164 [verbose] > │ let struct (v177 : UH2, v178 : US0) = │
00:05:06 #21165 [verbose] > │ if v171 then │
00:05:06 #21166 [verbose] > │ let struct (v172 : UH2, v173 : US0) = v163.[int v170] │
00:05:06 #21167 [verbose] > │ struct (v172, v173) │
00:05:06 #21168 [verbose] > │ else │
00:05:06 #21169 [verbose] > │ let v174 : uint64 = v170 - v164 │
00:05:06 #21170 [verbose] > │ let struct (v175 : UH2, v176 : US0) = v91.[int v174] │
00:05:06 #21171 [verbose] > │ struct (v175, v176) │
00:05:06 #21172 [verbose] > │ v167.[int v170] <- struct (v177, v178) │
00:05:06 #21173 [verbose] > │ let v179 : uint64 = v170 + 1UL │
00:05:06 #21174 [verbose] > │ v168.l0 <- v179 │
00:05:06 #21175 [verbose] > │ () │
00:05:06 #21176 [verbose] > │ let v180 : uint64 = System.Convert.ToUInt64 v167.Length │
00:05:06 #21177 [verbose] > │ let v181 : ((string []) []) = Array.zeroCreate<(string [])> │
00:05:06 #21178 [verbose] > │ (System.Convert.ToInt32(v180)) │
00:05:06 #21179 [verbose] > │ let v182 : Mut0 = {l0 = 0UL} : Mut0 │
00:05:06 #21180 [verbose] > │ while method4(v180, v182) do │
00:05:06 #21181 [verbose] > │ let v184 : uint64 = v182.l0 │
00:05:06 #21182 [verbose] > │ let struct (v185 : UH2, v186 : US0) = v167.[int v184] │
00:05:06 #21183 [verbose] > │ let v187 : (string []) = method19(v185) │
00:05:06 #21184 [verbose] > │ v181.[int v184] <- v187 │
00:05:06 #21185 [verbose] > │ let v188 : uint64 = v184 + 1UL │
00:05:06 #21186 [verbose] > │ v182.l0 <- v188 │
00:05:06 #21187 [verbose] > │ () │
00:05:06 #21188 [verbose] > │ let v189 : (((string []) []) -> ((string []) [])) = Array.transpose │
00:05:06 #21189 [verbose] > │ let v190 : ((string []) []) = v189 v181 │
00:05:06 #21190 [verbose] > │ let v191 : uint64 = System.Convert.ToUInt64 v190.Length │
00:05:06 #21191 [verbose] > │ let v192 : (int64 []) = Array.zeroCreate<int64> │
00:05:06 #21192 [verbose] > │ (System.Convert.ToInt32(v191)) │
00:05:06 #21193 [verbose] > │ let v193 : Mut0 = {l0 = 0UL} : Mut0 │
00:05:06 #21194 [verbose] > │ while method4(v191, v193) do │
00:05:06 #21195 [verbose] > │ let v195 : uint64 = v193.l0 │
00:05:06 #21196 [verbose] > │ let v196 : (string []) = v190.[int v195] │
00:05:06 #21197 [verbose] > │ let v197 : uint64 = System.Convert.ToUInt64 v196.Length │
00:05:06 #21198 [verbose] > │ let v198 : (int64 []) = Array.zeroCreate<int64> │
00:05:06 #21199 [verbose] > │ (System.Convert.ToInt32(v197)) │
00:05:06 #21200 [verbose] > │ let v199 : Mut0 = {l0 = 0UL} : Mut0 │
00:05:06 #21201 [verbose] > │ while method4(v197, v199) do │
00:05:06 #21202 [verbose] > │ let v201 : uint64 = v199.l0 │
00:05:06 #21203 [verbose] > │ let v202 : string = v196.[int v201] │
00:05:06 #21204 [verbose] > │ let v203 : int64 = System.Convert.ToInt64 v202.Length │
00:05:06 #21205 [verbose] > │ v198.[int v201] <- v203 │
00:05:06 #21206 [verbose] > │ let v204 : uint64 = v201 + 1UL │
00:05:06 #21207 [verbose] > │ v199.l0 <- v204 │
00:05:06 #21208 [verbose] > │ () │
00:05:06 #21209 [verbose] > │ let v205 : ((int64 []) -> (int64 [])) = Array.sortDescending │
00:05:06 #21210 [verbose] > │ let v206 : (int64 []) = v205 v198 │
00:05:06 #21211 [verbose] > │ let v207 : (int32 -> ((int64 []) -> int64 option)) = Array.tryItem │
00:05:06 #21212 [verbose] > │ let v208 : ((int64 []) -> int64 option) = v207 0 │
00:05:06 #21213 [verbose] > │ let v209 : int64 option = v208 v206 │
00:05:06 #21214 [verbose] > │ let v210 : (int64 -> US1) = method22() │
00:05:06 #21215 [verbose] > │ let v211 : US1 = US1_1 │
00:05:06 #21216 [verbose] > │ let v212 : US1 = v209 |> Option.map v210 |> Option.defaultValue v211 │
00:05:06 #21217 [verbose] > │ let v215 : int64 = │
00:05:06 #21218 [verbose] > │ match v212 with │
00:05:06 #21219 [verbose] > │ | US1_1 -> (* None *) │
00:05:06 #21220 [verbose] > │ 0L │
00:05:06 #21221 [verbose] > │ | US1_0(v213) -> (* Some *) │
00:05:06 #21222 [verbose] > │ v213 │
00:05:06 #21223 [verbose] > │ v192.[int v195] <- v215 │
00:05:06 #21224 [verbose] > │ let v216 : uint64 = v195 + 1UL │
00:05:06 #21225 [verbose] > │ v193.l0 <- v216 │
00:05:06 #21226 [verbose] > │ () │
00:05:06 #21227 [verbose] > │ let v217 : uint64 = System.Convert.ToUInt64 v192.Length │
00:05:06 #21228 [verbose] > │ let v218 : UH5 = UH5_0 │
00:05:06 #21229 [verbose] > │ let v219 : Mut3 = {l0 = 0UL; l1 = v218; l2 = 0} : Mut3 │
00:05:06 #21230 [verbose] > │ while method23(v217, v219) do │
00:05:06 #21231 [verbose] > │ let v221 : uint64 = v219.l0 │
00:05:06 #21232 [verbose] > │ let struct (v222 : UH5, v223 : int32) = v219.l1, v219.l2 │
00:05:06 #21233 [verbose] > │ let v224 : int64 = v192.[int v221] │
00:05:06 #21234 [verbose] > │ let v225 : int32 = v223 + 1 │
00:05:06 #21235 [verbose] > │ let v226 : uint64 = v221 + 1UL │
00:05:06 #21236 [verbose] > │ let v227 : UH5 = UH5_1(v223, v224, v222) │
00:05:06 #21237 [verbose] > │ v219.l0 <- v226 │
00:05:06 #21238 [verbose] > │ v219.l1 <- v227 │
00:05:06 #21239 [verbose] > │ v219.l2 <- v225 │
00:05:06 #21240 [verbose] > │ () │
00:05:06 #21241 [verbose] > │ let struct (v228 : UH5, v229 : int32) = v219.l1, v219.l2 │
00:05:06 #21242 [verbose] > │ let v230 : UH5 = UH5_0 │
00:05:06 #21243 [verbose] > │ let v231 : UH5 = method24(v228, v230) │
00:05:06 #21244 [verbose] > │ let v232 : (struct (int32 * int64) []) = method25(v231) │
00:05:06 #21245 [verbose] > │ let v233 : Map<int32, int64> = v232 |> Array.map (fun (struct (a, b)) -> │
00:05:06 #21246 [verbose] > │ a, b) |> Map.ofArray │
00:05:06 #21247 [verbose] > │ let v234 : (struct ((string []) * US0) []) = Array.zeroCreate<struct │
00:05:06 #21248 [verbose] > │ ((string []) * US0)> (System.Convert.ToInt32(v180)) │
00:05:06 #21249 [verbose] > │ let v235 : Mut0 = {l0 = 0UL} : Mut0 │
00:05:06 #21250 [verbose] > │ while method4(v180, v235) do │
00:05:06 #21251 [verbose] > │ let v237 : uint64 = v235.l0 │
00:05:06 #21252 [verbose] > │ let struct (v238 : UH2, v239 : US0) = v167.[int v237] │
00:05:06 #21253 [verbose] > │ let v240 : UH6 = UH6_0 │
00:05:06 #21254 [verbose] > │ let v241 : int32 = 0 │
00:05:06 #21255 [verbose] > │ let struct (v242 : UH6, v243 : int32) = method28(v238, v240, v241) │
00:05:06 #21256 [verbose] > │ let v244 : UH6 = UH6_0 │
00:05:06 #21257 [verbose] > │ let v245 : UH6 = method29(v242, v244) │
00:05:06 #21258 [verbose] > │ let v246 : UH2 = UH2_0 │
00:05:06 #21259 [verbose] > │ let v247 : UH2 = method30(v233, v245, v246) │
00:05:06 #21260 [verbose] > │ let v248 : (string []) = method31(v247) │
00:05:06 #21261 [verbose] > │ v234.[int v237] <- struct (v248, v239) │
00:05:06 #21262 [verbose] > │ let v249 : uint64 = v237 + 1UL │
00:05:06 #21263 [verbose] > │ v235.l0 <- v249 │
00:05:06 #21264 [verbose] > │ () │
00:05:06 #21265 [verbose] > │ System.Console.WriteLine v2 │
00:05:06 #21266 [verbose] > │ let v250 : uint64 = System.Convert.ToUInt64 v234.Length │
00:05:06 #21267 [verbose] > │ let v251 : Mut0 = {l0 = 0UL} : Mut0 │
00:05:06 #21268 [verbose] > │ while method4(v250, v251) do │
00:05:06 #21269 [verbose] > │ let v253 : uint64 = v251.l0 │
00:05:06 #21270 [verbose] > │ let struct (v254 : (string []), v255 : US0) = v234.[int v253] │
00:05:06 #21271 [verbose] > │ match v255 with │
00:05:06 #21272 [verbose] > │ | US0_1 -> (* None *) │
00:05:06 #21273 [verbose] > │ let v258 : unit option = None │
00:05:06 #21274 [verbose] > │ let mutable _v258 = v258 │
00:05:06 #21275 [verbose] > │ #if FABLE_COMPILER_RUST && !WASM && !CONTRACT │
00:05:06 #21276 [verbose] > │ () │
00:05:06 #21277 [verbose] > │ #endif │
00:05:06 #21278 [verbose] > │ #if FABLE_COMPILER_RUST && WASM │
00:05:06 #21279 [verbose] > │ () │
00:05:06 #21280 [verbose] > │ #endif │
00:05:06 #21281 [verbose] > │ #if FABLE_COMPILER_RUST && CONTRACT │
00:05:06 #21282 [verbose] > │ () │
00:05:06 #21283 [verbose] > │ #endif │
00:05:06 #21284 [verbose] > │ #if !FABLE_COMPILER && !FABLE_COMPILER_RUST && │
00:05:06 #21285 [verbose] > │ !FABLE_COMPILER_TYPESCRIPT && !WASM && !CONTRACT │
00:05:06 #21286 [verbose] > │ System.Console.ResetColor () │
00:05:06 #21287 [verbose] > │ () │
00:05:06 #21288 [verbose] > │ #endif │
00:05:06 #21289 [verbose] > │ #if FABLE_COMPILER_TYPESCRIPT │
00:05:06 #21290 [verbose] > │ () │
00:05:06 #21291 [verbose] > │ #endif │
00:05:06 #21292 [verbose] > │ #if FABLE_COMPILER_PYTHON || FABLE_COMPILER_PHP || │
00:05:06 #21293 [verbose] > │ FABLE_COMPILER_DART │
00:05:06 #21294 [verbose] > │ Unchecked.defaultof<unit> │
00:05:06 #21295 [verbose] > │ () │
00:05:06 #21296 [verbose] > │ #endif │
00:05:06 #21297 [verbose] > │ |> fun x -> _v258 <- Some x │
00:05:06 #21298 [verbose] > │ _v258.Value │
00:05:06 #21299 [verbose] > │ () │
00:05:06 #21300 [verbose] > │ | US0_0(v256) -> (* Some *) │
00:05:06 #21301 [verbose] > │ let v257 : unit option = None │
00:05:06 #21302 [verbose] > │ let mutable _v257 = v257 │
00:05:06 #21303 [verbose] > │ #if FABLE_COMPILER_RUST && !WASM && !CONTRACT │
00:05:06 #21304 [verbose] > │ () │
00:05:06 #21305 [verbose] > │ #endif │
00:05:06 #21306 [verbose] > │ #if FABLE_COMPILER_RUST && WASM │
00:05:06 #21307 [verbose] > │ () │
00:05:06 #21308 [verbose] > │ #endif │
00:05:06 #21309 [verbose] > │ #if FABLE_COMPILER_RUST && CONTRACT │
00:05:06 #21310 [verbose] > │ () │
00:05:06 #21311 [verbose] > │ #endif │
00:05:06 #21312 [verbose] > │ #if !FABLE_COMPILER && !FABLE_COMPILER_RUST && │
00:05:06 #21313 [verbose] > │ !FABLE_COMPILER_TYPESCRIPT && !WASM && !CONTRACT │
00:05:06 #21314 [verbose] > │ System.Console.ForegroundColor <- v256 │
00:05:06 #21315 [verbose] > │ () │
00:05:06 #21316 [verbose] > │ #endif │
00:05:06 #21317 [verbose] > │ #if FABLE_COMPILER_TYPESCRIPT │
00:05:06 #21318 [verbose] > │ () │
00:05:06 #21319 [verbose] > │ #endif │
00:05:06 #21320 [verbose] > │ #if FABLE_COMPILER_PYTHON || FABLE_COMPILER_PHP || │
00:05:06 #21321 [verbose] > │ FABLE_COMPILER_DART │
00:05:06 #21322 [verbose] > │ Unchecked.defaultof<unit> │
00:05:06 #21323 [verbose] > │ () │
00:05:06 #21324 [verbose] > │ #endif │
00:05:06 #21325 [verbose] > │ |> fun x -> _v257 <- Some x │
00:05:06 #21326 [verbose] > │ _v257.Value │
00:05:06 #21327 [verbose] > │ () │
00:05:06 #21328 [verbose] > │ let v259 : string = "\t| " │
00:05:06 #21329 [verbose] > │ let v260 : string = System.String.Join (v259, v254) │
00:05:06 #21330 [verbose] > │ System.Console.WriteLine v260 │
00:05:06 #21331 [verbose] > │ let v261 : unit option = None │
00:05:06 #21332 [verbose] > │ let mutable _v261 = v261 │
00:05:06 #21333 [verbose] > │ #if FABLE_COMPILER_RUST && !WASM && !CONTRACT │
00:05:06 #21334 [verbose] > │ () │
00:05:06 #21335 [verbose] > │ #endif │
00:05:06 #21336 [verbose] > │ #if FABLE_COMPILER_RUST && WASM │
00:05:06 #21337 [verbose] > │ () │
00:05:06 #21338 [verbose] > │ #endif │
00:05:06 #21339 [verbose] > │ #if FABLE_COMPILER_RUST && CONTRACT │
00:05:06 #21340 [verbose] > │ () │
00:05:06 #21341 [verbose] > │ #endif │
00:05:06 #21342 [verbose] > │ #if !FABLE_COMPILER && !FABLE_COMPILER_RUST && │
00:05:06 #21343 [verbose] > │ !FABLE_COMPILER_TYPESCRIPT && !WASM && !CONTRACT │
00:05:06 #21344 [verbose] > │ System.Console.ResetColor () │
00:05:06 #21345 [verbose] > │ () │
00:05:06 #21346 [verbose] > │ #endif │
00:05:06 #21347 [verbose] > │ #if FABLE_COMPILER_TYPESCRIPT │
00:05:06 #21348 [verbose] > │ () │
00:05:06 #21349 [verbose] > │ #endif │
00:05:06 #21350 [verbose] > │ #if FABLE_COMPILER_PYTHON || FABLE_COMPILER_PHP || │
00:05:06 #21351 [verbose] > │ FABLE_COMPILER_DART │
00:05:06 #21352 [verbose] > │ Unchecked.defaultof<unit> │
00:05:06 #21353 [verbose] > │ () │
00:05:06 #21354 [verbose] > │ #endif │
00:05:06 #21355 [verbose] > │ |> fun x -> _v261 <- Some x │
00:05:06 #21356 [verbose] > │ _v261.Value │
00:05:06 #21357 [verbose] > │ let v262 : uint64 = v253 + 1UL │
00:05:06 #21358 [verbose] > │ v251.l0 <- v262 │
00:05:06 #21359 [verbose] > │ () │
00:05:06 #21360 [verbose] > │ let v263 : ((float []) []) = Array.zeroCreate<(float [])> │
00:05:06 #21361 [verbose] > │ (System.Convert.ToInt32(v90)) │
00:05:06 #21362 [verbose] > │ let v264 : Mut0 = {l0 = 0UL} : Mut0 │
00:05:06 #21363 [verbose] > │ while method4(v90, v264) do │
00:05:06 #21364 [verbose] > │ let v266 : uint64 = v264.l0 │
00:05:06 #21365 [verbose] > │ let struct (v267 : string, v268 : string, v269 : string, v270 : │
00:05:06 #21366 [verbose] > │ (int64 [])) = v11.[int v266] │
00:05:06 #21367 [verbose] > │ let v271 : (int64 -> float) = float │
00:05:06 #21368 [verbose] > │ let v272 : uint64 = System.Convert.ToUInt64 v270.Length │
00:05:06 #21369 [verbose] > │ let v273 : (float []) = Array.zeroCreate<float> │
00:05:06 #21370 [verbose] > │ (System.Convert.ToInt32(v272)) │
00:05:06 #21371 [verbose] > │ let v274 : Mut0 = {l0 = 0UL} : Mut0 │
00:05:06 #21372 [verbose] > │ while method4(v272, v274) do │
00:05:06 #21373 [verbose] > │ let v276 : uint64 = v274.l0 │
00:05:06 #21374 [verbose] > │ let v277 : int64 = v270.[int v276] │
00:05:06 #21375 [verbose] > │ let v278 : float = v271 v277 │
00:05:06 #21376 [verbose] > │ v273.[int v276] <- v278 │
00:05:06 #21377 [verbose] > │ let v279 : uint64 = v276 + 1UL │
00:05:06 #21378 [verbose] > │ v274.l0 <- v279 │
00:05:06 #21379 [verbose] > │ () │
00:05:06 #21380 [verbose] > │ v263.[int v266] <- v273 │
00:05:06 #21381 [verbose] > │ let v280 : uint64 = v266 + 1UL │
00:05:06 #21382 [verbose] > │ v264.l0 <- v280 │
00:05:06 #21383 [verbose] > │ () │
00:05:06 #21384 [verbose] > │ let v281 : (((float []) []) -> ((float []) [])) = Array.transpose │
00:05:06 #21385 [verbose] > │ let v282 : ((float []) []) = v281 v263 │
00:05:06 #21386 [verbose] > │ let v283 : uint64 = System.Convert.ToUInt64 v282.Length │
00:05:06 #21387 [verbose] > │ let v284 : (float []) = Array.zeroCreate<float> │
00:05:06 #21388 [verbose] > │ (System.Convert.ToInt32(v283)) │
00:05:06 #21389 [verbose] > │ let v285 : Mut0 = {l0 = 0UL} : Mut0 │
00:05:06 #21390 [verbose] > │ while method4(v283, v285) do │
00:05:06 #21391 [verbose] > │ let v287 : uint64 = v285.l0 │
00:05:06 #21392 [verbose] > │ let v288 : (float []) = v282.[int v287] │
00:05:06 #21393 [verbose] > │ let v289 : ((float []) -> float) = Array.average │
00:05:06 #21394 [verbose] > │ let v290 : float = v289 v288 │
00:05:06 #21395 [verbose] > │ v284.[int v287] <- v290 │
00:05:06 #21396 [verbose] > │ let v291 : uint64 = v287 + 1UL │
00:05:06 #21397 [verbose] > │ v285.l0 <- v291 │
00:05:06 #21398 [verbose] > │ () │
00:05:06 #21399 [verbose] > │ let v292 : (float -> int64) = int64 │
00:05:06 #21400 [verbose] > │ let v293 : uint64 = System.Convert.ToUInt64 v284.Length │
00:05:06 #21401 [verbose] > │ let v294 : (int64 []) = Array.zeroCreate<int64> │
00:05:06 #21402 [verbose] > │ (System.Convert.ToInt32(v293)) │
00:05:06 #21403 [verbose] > │ let v295 : Mut0 = {l0 = 0UL} : Mut0 │
00:05:06 #21404 [verbose] > │ while method4(v293, v295) do │
00:05:06 #21405 [verbose] > │ let v297 : uint64 = v295.l0 │
00:05:06 #21406 [verbose] > │ let v298 : float = v284.[int v297] │
00:05:06 #21407 [verbose] > │ let v299 : int64 = v292 v298 │
00:05:06 #21408 [verbose] > │ v294.[int v297] <- v299 │
00:05:06 #21409 [verbose] > │ let v300 : uint64 = v297 + 1UL │
00:05:06 #21410 [verbose] > │ v295.l0 <- v300 │
00:05:06 #21411 [verbose] > │ () │
00:05:06 #21412 [verbose] > │ let v301 : uint64 = System.Convert.ToUInt64 v294.Length │
00:05:06 #21413 [verbose] > │ let v302 : UH5 = UH5_0 │
00:05:06 #21414 [verbose] > │ let v303 : Mut3 = {l0 = 0UL; l1 = v302; l2 = 0} : Mut3 │
00:05:06 #21415 [verbose] > │ while method23(v301, v303) do │
00:05:06 #21416 [verbose] > │ let v305 : uint64 = v303.l0 │
00:05:06 #21417 [verbose] > │ let struct (v306 : UH5, v307 : int32) = v303.l1, v303.l2 │
00:05:06 #21418 [verbose] > │ let v308 : int64 = v294.[int v305] │
00:05:06 #21419 [verbose] > │ let v309 : int32 = v307 + 1 │
00:05:06 #21420 [verbose] > │ let v310 : uint64 = v305 + 1UL │
00:05:06 #21421 [verbose] > │ let v311 : UH5 = UH5_1(v307, v308, v306) │
00:05:06 #21422 [verbose] > │ v303.l0 <- v310 │
00:05:06 #21423 [verbose] > │ v303.l1 <- v311 │
00:05:06 #21424 [verbose] > │ v303.l2 <- v309 │
00:05:06 #21425 [verbose] > │ () │
00:05:06 #21426 [verbose] > │ let struct (v312 : UH5, v313 : int32) = v303.l1, v303.l2 │
00:05:06 #21427 [verbose] > │ let v314 : UH5 = UH5_0 │
00:05:06 #21428 [verbose] > │ let v315 : UH5 = method24(v312, v314) │
00:05:06 #21429 [verbose] > │ let v316 : (struct (int32 * int64) []) = method34(v315) │
00:05:06 #21430 [verbose] > │ System.Console.WriteLine v2 │
00:05:06 #21431 [verbose] > │ let v317 : string = "Average Ranking " │
00:05:06 #21432 [verbose] > │ System.Console.WriteLine v317 │
00:05:06 #21433 [verbose] > │ let v318 : ((struct (int32 * int64) -> int64) -> ((struct (int32 * │
00:05:06 #21434 [verbose] > │ int64) []) -> (struct (int32 * int64) []))) = Array.sortBy │
00:05:06 #21435 [verbose] > │ let v319 : (struct (int32 * int64) -> int64) = closure6() │
00:05:06 #21436 [verbose] > │ let v320 : ((struct (int32 * int64) []) -> (struct (int32 * int64) [])) │
00:05:06 #21437 [verbose] > │ = v318 v319 │
00:05:06 #21438 [verbose] > │ let v321 : (struct (int32 * int64) []) = v320 v316 │
00:05:06 #21439 [verbose] > │ let v322 : uint64 = System.Convert.ToUInt64 v321.Length │
00:05:06 #21440 [verbose] > │ let v323 : Mut0 = {l0 = 0UL} : Mut0 │
00:05:06 #21441 [verbose] > │ while method4(v322, v323) do │
00:05:06 #21442 [verbose] > │ let v325 : uint64 = v323.l0 │
00:05:06 #21443 [verbose] > │ let struct (v326 : int32, v327 : int64) = v321.[int v325] │
00:05:06 #21444 [verbose] > │ let v328 : string = $"Test case %d{v326 + 1}. Average Time: %A{v327} │
00:05:06 #21445 [verbose] > │ " │
00:05:06 #21446 [verbose] > │ System.Console.WriteLine v328 │
00:05:06 #21447 [verbose] > │ let v329 : uint64 = v325 + 1UL │
00:05:06 #21448 [verbose] > │ v323.l0 <- v329 │
00:05:06 #21449 [verbose] > │ () │
00:05:06 #21450 [verbose] > │ () │
00:05:06 #21451 [verbose] > │ and method0 () : unit = │
00:05:06 #21452 [verbose] > │ let v0 : (unit -> unit) = closure0() │
00:05:06 #21453 [verbose] > │ let v1 : string = nameof v0 │
00:05:06 #21454 [verbose] > │ let v2 : string = "" │
00:05:06 #21455 [verbose] > │ System.Console.WriteLine v2 │
00:05:06 #21456 [verbose] > │ System.Console.WriteLine v2 │
00:05:06 #21457 [verbose] > │ let v3 : string = $"Test: {v1}" │
00:05:06 #21458 [verbose] > │ System.Console.WriteLine v3 │
00:05:06 #21459 [verbose] > │ let v4 : string = "a" │
00:05:06 #21460 [verbose] > │ let v5 : string = "b" │
00:05:06 #21461 [verbose] > │ let v6 : UH0 = UH0_0 │
00:05:06 #21462 [verbose] > │ let v7 : UH0 = UH0_1(v5, v5, v5, v6) │
00:05:06 #21463 [verbose] > │ let v8 : UH0 = UH0_1(v4, v4, v4, v7) │
00:05:06 #21464 [verbose] > │ let v9 : (struct (string * string * string) []) = method1(v8) │
00:05:06 #21465 [verbose] > │ let v10 : uint64 = System.Convert.ToUInt64 v9.Length │
00:05:06 #21466 [verbose] > │ let v11 : (struct (string * string * string * (int64 [])) []) = │
00:05:06 #21467 [verbose] > │ Array.zeroCreate<struct (string * string * string * (int64 []))> │
00:05:06 #21468 [verbose] > │ (System.Convert.ToInt32(v10)) │
00:05:06 #21469 [verbose] > │ let v12 : Mut0 = {l0 = 0UL} : Mut0 │
00:05:06 #21470 [verbose] > │ while method4(v10, v12) do │
00:05:06 #21471 [verbose] > │ let v14 : uint64 = v12.l0 │
00:05:06 #21472 [verbose] > │ let struct (v15 : string, v16 : string, v17 : string) = v9.[int v14] │
00:05:06 #21473 [verbose] > │ let v18 : string = $"%A{struct (v15, v16)}" │
00:05:06 #21474 [verbose] > │ System.Console.WriteLine v2 │
00:05:06 #21475 [verbose] > │ let v19 : string = $"Solution: {v18} " │
00:05:06 #21476 [verbose] > │ System.Console.WriteLine v19 │
00:05:06 #21477 [verbose] > │ let v20 : int32 = 0 │
00:05:06 #21478 [verbose] > │ let v21 : string = "A" │
00:05:06 #21479 [verbose] > │ let v22 : (struct (string * string) -> string) = closure1() │
00:05:06 #21480 [verbose] > │ let v23 : int32 = 1 │
00:05:06 #21481 [verbose] > │ let v24 : string = "B" │
00:05:06 #21482 [verbose] > │ let v25 : (struct (string * string) -> string) = closure2() │
00:05:06 #21483 [verbose] > │ let v26 : UH1 = UH1_0 │
00:05:06 #21484 [verbose] > │ let v27 : UH1 = UH1_1(v23, v24, v25, v26) │
00:05:06 #21485 [verbose] > │ let v28 : UH1 = UH1_1(v20, v21, v22, v27) │
00:05:06 #21486 [verbose] > │ let v29 : (struct (int32 * string * (struct (string * string) -> │
00:05:06 #21487 [verbose] > │ string)) []) = method5(v28) │
00:05:06 #21488 [verbose] > │ let v30 : uint64 = System.Convert.ToUInt64 v29.Length │
00:05:06 #21489 [verbose] > │ let v31 : (struct (string * int64) []) = Array.zeroCreate<struct │
00:05:06 #21490 [verbose] > │ (string * int64)> (System.Convert.ToInt32(v30)) │
00:05:06 #21491 [verbose] > │ let v32 : Mut0 = {l0 = 0UL} : Mut0 │
00:05:06 #21492 [verbose] > │ while method4(v30, v32) do │
00:05:06 #21493 [verbose] > │ let v34 : uint64 = v32.l0 │
00:05:06 #21494 [verbose] > │ let struct (v35 : int32, v36 : string, v37 : (struct (string * │
00:05:06 #21495 [verbose] > │ string) -> string)) = v29.[int v34] │
00:05:06 #21496 [verbose] > │ let v38 : unit option = None │
00:05:06 #21497 [verbose] > │ let mutable _v38 = v38 │
00:05:06 #21498 [verbose] > │ #if FABLE_COMPILER_RUST && !WASM && !CONTRACT │
00:05:06 #21499 [verbose] > │ () │
00:05:06 #21500 [verbose] > │ #endif │
00:05:06 #21501 [verbose] > │ #if FABLE_COMPILER_RUST && WASM │
00:05:06 #21502 [verbose] > │ () │
00:05:06 #21503 [verbose] > │ #endif │
00:05:06 #21504 [verbose] > │ #if FABLE_COMPILER_RUST && CONTRACT │
00:05:06 #21505 [verbose] > │ () │
00:05:06 #21506 [verbose] > │ #endif │
00:05:06 #21507 [verbose] > │ #if !FABLE_COMPILER && !FABLE_COMPILER_RUST && │
00:05:06 #21508 [verbose] > │ !FABLE_COMPILER_TYPESCRIPT && !WASM && !CONTRACT │
00:05:06 #21509 [verbose] > │ System.GC.Collect () │
00:05:06 #21510 [verbose] > │ () │
00:05:06 #21511 [verbose] > │ #endif │
00:05:06 #21512 [verbose] > │ #if FABLE_COMPILER_TYPESCRIPT │
00:05:06 #21513 [verbose] > │ () │
00:05:06 #21514 [verbose] > │ #endif │
00:05:06 #21515 [verbose] > │ #if FABLE_COMPILER_PYTHON || FABLE_COMPILER_PHP || │
00:05:06 #21516 [verbose] > │ FABLE_COMPILER_DART │
00:05:06 #21517 [verbose] > │ Unchecked.defaultof<unit> │
00:05:06 #21518 [verbose] > │ () │
00:05:06 #21519 [verbose] > │ #endif │
00:05:06 #21520 [verbose] > │ |> fun x -> _v38 <- Some x │
00:05:06 #21521 [verbose] > │ _v38.Value │
00:05:06 #21522 [verbose] > │ let v39 : (unit -> System.Diagnostics.Stopwatch) = │
00:05:06 #21523 [verbose] > │ System.Diagnostics.Stopwatch │
00:05:06 #21524 [verbose] > │ let v40 : System.Diagnostics.Stopwatch = v39 () │
00:05:06 #21525 [verbose] > │ v40.Start () │
00:05:06 #21526 [verbose] > │ let v41 : int64 = v40.ElapsedMilliseconds │
00:05:06 #21527 [verbose] > │ let v42 : (int32 []) = Array.zeroCreate<int32> (2000001) │
00:05:06 #21528 [verbose] > │ let v43 : Mut1 = {l0 = 0} : Mut1 │
00:05:06 #21529 [verbose] > │ while method8(v43) do │
00:05:06 #21530 [verbose] > │ let v45 : int32 = v43.l0 │
00:05:06 #21531 [verbose] > │ v42.[int v45] <- v45 │
00:05:06 #21532 [verbose] > │ let v46 : int32 = v45 + 1 │
00:05:06 #21533 [verbose] > │ v43.l0 <- v46 │
00:05:06 #21534 [verbose] > │ () │
00:05:06 #21535 [verbose] > │ let v47 : ((int32 -> string) -> ((int32 []) -> (string []))) = │
00:05:06 #21536 [verbose] > │ Array.Parallel.map │
00:05:06 #21537 [verbose] > │ let v48 : (int32 -> string) = closure3(v15, v16, v37) │
00:05:06 #21538 [verbose] > │ let v49 : ((int32 []) -> (string [])) = v47 v48 │
00:05:06 #21539 [verbose] > │ let v50 : (string []) = v49 v42 │
00:05:06 #21540 [verbose] > │ let v51 : int32 = v50.Length │
00:05:06 #21541 [verbose] > │ let v52 : int32 = v51 - 1 │
00:05:06 #21542 [verbose] > │ let v53 : string = v50.[int v52] │
00:05:06 #21543 [verbose] > │ let v54 : int64 = v40.ElapsedMilliseconds │
00:05:06 #21544 [verbose] > │ let v55 : int64 = v54 - v41 │
00:05:06 #21545 [verbose] > │ let v56 : string = $"Test case {v35 + 1}. {v36}. Time: {v55} " │
00:05:06 #21546 [verbose] > │ System.Console.WriteLine v56 │
00:05:06 #21547 [verbose] > │ v31.[int v34] <- struct (v53, v55) │
00:05:06 #21548 [verbose] > │ let v57 : uint64 = v34 + 1UL │
00:05:06 #21549 [verbose] > │ v32.l0 <- v57 │
00:05:06 #21550 [verbose] > │ () │
00:05:06 #21551 [verbose] > │ let v58 : uint64 = System.Convert.ToUInt64 v31.Length │
00:05:06 #21552 [verbose] > │ let v59 : (string []) = Array.zeroCreate<string> │
00:05:06 #21553 [verbose] > │ (System.Convert.ToInt32(v58)) │
00:05:06 #21554 [verbose] > │ let v60 : Mut0 = {l0 = 0UL} : Mut0 │
00:05:06 #21555 [verbose] > │ while method4(v58, v60) do │
00:05:06 #21556 [verbose] > │ let v62 : uint64 = v60.l0 │
00:05:06 #21557 [verbose] > │ let struct (v63 : string, v64 : int64) = v31.[int v62] │
00:05:06 #21558 [verbose] > │ v59.[int v62] <- v63 │
00:05:06 #21559 [verbose] > │ let v65 : uint64 = v62 + 1UL │
00:05:06 #21560 [verbose] > │ v60.l0 <- v65 │
00:05:06 #21561 [verbose] > │ () │
00:05:06 #21562 [verbose] > │ let v66 : uint64 = System.Convert.ToUInt64 v59.Length │
00:05:06 #21563 [verbose] > │ let v67 : bool = v66 <= 1UL │
00:05:06 #21564 [verbose] > │ if v67 then │
00:05:06 #21565 [verbose] > │ () │
00:05:06 #21566 [verbose] > │ else │
00:05:06 #21567 [verbose] > │ let v68 : string = v59.[int 0UL] │
00:05:06 #21568 [verbose] > │ let v69 : uint64 = 0UL │
00:05:06 #21569 [verbose] > │ let v70 : bool = method9(v68, v59, v69) │
00:05:06 #21570 [verbose] > │ if v70 then │
00:05:06 #21571 [verbose] > │ () │
00:05:06 #21572 [verbose] > │ else │
00:05:06 #21573 [verbose] > │ let v71 : string = $"Challenge error: {v59}" │
00:05:06 #21574 [verbose] > │ failwith<unit> v71 │
00:05:06 #21575 [verbose] > │ let v72 : string = $"%A{v17}" │
00:05:06 #21576 [verbose] > │ let v73 : (string []) = Array.zeroCreate<string> │
00:05:06 #21577 [verbose] > │ (System.Convert.ToInt32(v58)) │
00:05:06 #21578 [verbose] > │ let v74 : Mut0 = {l0 = 0UL} : Mut0 │
00:05:06 #21579 [verbose] > │ while method4(v58, v74) do │
00:05:06 #21580 [verbose] > │ let v76 : uint64 = v74.l0 │
00:05:06 #21581 [verbose] > │ let struct (v77 : string, v78 : int64) = v31.[int v76] │
00:05:06 #21582 [verbose] > │ v73.[int v76] <- v77 │
00:05:06 #21583 [verbose] > │ let v79 : uint64 = v76 + 1UL │
00:05:06 #21584 [verbose] > │ v74.l0 <- v79 │
00:05:06 #21585 [verbose] > │ () │
00:05:06 #21586 [verbose] > │ let v80 : string = v73.[int 0UL] │
00:05:06 #21587 [verbose] > │ let v81 : string = $"%A{v80}" │
00:05:06 #21588 [verbose] > │ let v82 : (int64 []) = Array.zeroCreate<int64> │
00:05:06 #21589 [verbose] > │ (System.Convert.ToInt32(v58)) │
00:05:06 #21590 [verbose] > │ let v83 : Mut0 = {l0 = 0UL} : Mut0 │
00:05:06 #21591 [verbose] > │ while method4(v58, v83) do │
00:05:06 #21592 [verbose] > │ let v85 : uint64 = v83.l0 │
00:05:06 #21593 [verbose] > │ let struct (v86 : string, v87 : int64) = v31.[int v85] │
00:05:06 #21594 [verbose] > │ v82.[int v85] <- v87 │
00:05:06 #21595 [verbose] > │ let v88 : uint64 = v85 + 1UL │
00:05:06 #21596 [verbose] > │ v83.l0 <- v88 │
00:05:06 #21597 [verbose] > │ () │
00:05:06 #21598 [verbose] > │ v11.[int v14] <- struct (v72, v18, v81, v82) │
00:05:06 #21599 [verbose] > │ let v89 : uint64 = v14 + 1UL │
00:05:06 #21600 [verbose] > │ v12.l0 <- v89 │
00:05:06 #21601 [verbose] > │ () │
00:05:06 #21602 [verbose] > │ let v90 : uint64 = System.Convert.ToUInt64 v11.Length │
00:05:06 #21603 [verbose] > │ let v91 : (struct (UH2 * US0) []) = Array.zeroCreate<struct (UH2 * US0)> │
00:05:06 #21604 [verbose] > │ (System.Convert.ToInt32(v90)) │
00:05:06 #21605 [verbose] > │ let v92 : Mut0 = {l0 = 0UL} : Mut0 │
00:05:06 #21606 [verbose] > │ while method4(v90, v92) do │
00:05:06 #21607 [verbose] > │ let v94 : uint64 = v92.l0 │
00:05:06 #21608 [verbose] > │ let struct (v95 : string, v96 : string, v97 : string, v98 : (int64 [ │
00:05:06 #21609 [verbose] > │ ])) = v11.[int v94] │
00:05:06 #21610 [verbose] > │ let v99 : uint64 = System.Convert.ToUInt64 v98.Length │
00:05:06 #21611 [verbose] > │ let v100 : UH3 = UH3_0 │
00:05:06 #21612 [verbose] > │ let v101 : Mut2 = {l0 = 0UL; l1 = v100; l2 = 0L} : Mut2 │
00:05:06 #21613 [verbose] > │ while method10(v99, v101) do │
00:05:06 #21614 [verbose] > │ let v103 : uint64 = v101.l0 │
00:05:06 #21615 [verbose] > │ let struct (v104 : UH3, v105 : int64) = v101.l1, v101.l2 │
00:05:06 #21616 [verbose] > │ let v106 : int64 = v98.[int v103] │
00:05:06 #21617 [verbose] > │ let v107 : int64 = v105 + 1L │
00:05:06 #21618 [verbose] > │ let v108 : uint64 = v103 + 1UL │
00:05:06 #21619 [verbose] > │ let v109 : UH3 = UH3_1(v105, v106, v104) │
00:05:06 #21620 [verbose] > │ v101.l0 <- v108 │
00:05:06 #21621 [verbose] > │ v101.l1 <- v109 │
00:05:06 #21622 [verbose] > │ v101.l2 <- v107 │
00:05:06 #21623 [verbose] > │ () │
00:05:06 #21624 [verbose] > │ let struct (v110 : UH3, v111 : int64) = v101.l1, v101.l2 │
00:05:06 #21625 [verbose] > │ let v112 : UH3 = UH3_0 │
00:05:06 #21626 [verbose] > │ let v113 : UH3 = method11(v110, v112) │
00:05:06 #21627 [verbose] > │ let v114 : (struct (int64 * int64) []) = method12(v113) │
00:05:06 #21628 [verbose] > │ let v115 : int32 = v114.Length │
00:05:06 #21629 [verbose] > │ let v116 : (struct (int64 * int64) []) = Array.zeroCreate<struct │
00:05:06 #21630 [verbose] > │ (int64 * int64)> (v115) │
00:05:06 #21631 [verbose] > │ let v117 : Mut1 = {l0 = 0} : Mut1 │
00:05:06 #21632 [verbose] > │ while method15(v115, v117) do │
00:05:06 #21633 [verbose] > │ let v119 : int32 = v117.l0 │
00:05:06 #21634 [verbose] > │ let struct (v120 : int64, v121 : int64) = v114.[int v119] │
00:05:06 #21635 [verbose] > │ let v122 : int64 = v120 + 1L │
00:05:06 #21636 [verbose] > │ v116.[int v119] <- struct (v122, v121) │
00:05:06 #21637 [verbose] > │ let v123 : int32 = v119 + 1 │
00:05:06 #21638 [verbose] > │ v117.l0 <- v123 │
00:05:06 #21639 [verbose] > │ () │
00:05:06 #21640 [verbose] > │ let v124 : ((struct (int64 * int64) -> int64) -> ((struct (int64 * │
00:05:06 #21641 [verbose] > │ int64) []) -> (struct (int64 * int64) []))) = Array.sortBy │
00:05:06 #21642 [verbose] > │ let v125 : (struct (int64 * int64) -> int64) = closure4() │
00:05:06 #21643 [verbose] > │ let v126 : ((struct (int64 * int64) []) -> (struct (int64 * int64) [ │
00:05:06 #21644 [verbose] > │ ])) = v124 v125 │
00:05:06 #21645 [verbose] > │ let v127 : (struct (int64 * int64) []) = v126 v116 │
00:05:06 #21646 [verbose] > │ let struct (v128 : int64, v129 : int64) = v127.[int 0] │
00:05:06 #21647 [verbose] > │ let v130 : string = $"%A{struct (v128, v129)}" │
00:05:06 #21648 [verbose] > │ let v131 : bool = v95 = v97 │
00:05:06 #21649 [verbose] > │ let v136 : US0 = │
00:05:06 #21650 [verbose] > │ if v131 then │
00:05:06 #21651 [verbose] > │ let v132 : System.ConsoleColor = │
00:05:06 #21652 [verbose] > │ System.ConsoleColor.DarkGreen │
00:05:06 #21653 [verbose] > │ US0_0(v132) │
00:05:06 #21654 [verbose] > │ else │
00:05:06 #21655 [verbose] > │ let v134 : System.ConsoleColor = System.ConsoleColor.DarkRed │
00:05:06 #21656 [verbose] > │ US0_0(v134) │
00:05:06 #21657 [verbose] > │ let v137 : UH2 = UH2_0 │
00:05:06 #21658 [verbose] > │ let v138 : UH2 = UH2_1(v130, v137) │
00:05:06 #21659 [verbose] > │ let v139 : UH2 = UH2_1(v97, v138) │
00:05:06 #21660 [verbose] > │ let v140 : UH2 = UH2_1(v95, v139) │
00:05:06 #21661 [verbose] > │ let v141 : UH2 = UH2_1(v96, v140) │
00:05:06 #21662 [verbose] > │ v91.[int v94] <- struct (v141, v136) │
00:05:06 #21663 [verbose] > │ let v142 : uint64 = v94 + 1UL │
00:05:06 #21664 [verbose] > │ v92.l0 <- v142 │
00:05:06 #21665 [verbose] > │ () │
00:05:06 #21666 [verbose] > │ let v143 : string = "Input" │
00:05:06 #21667 [verbose] > │ let v144 : string = "Expected" │
00:05:06 #21668 [verbose] > │ let v145 : string = "Result" │
00:05:06 #21669 [verbose] > │ let v146 : string = "Best" │
00:05:06 #21670 [verbose] > │ let v147 : UH2 = UH2_0 │
00:05:06 #21671 [verbose] > │ let v148 : UH2 = UH2_1(v146, v147) │
00:05:06 #21672 [verbose] > │ let v149 : UH2 = UH2_1(v145, v148) │
00:05:06 #21673 [verbose] > │ let v150 : UH2 = UH2_1(v144, v149) │
00:05:06 #21674 [verbose] > │ let v151 : UH2 = UH2_1(v143, v150) │
00:05:06 #21675 [verbose] > │ let v152 : US0 = US0_1 │
00:05:06 #21676 [verbose] > │ let v153 : string = "---" │
00:05:06 #21677 [verbose] > │ let v154 : UH2 = UH2_0 │
00:05:06 #21678 [verbose] > │ let v155 : UH2 = UH2_1(v153, v154) │
00:05:06 #21679 [verbose] > │ let v156 : UH2 = UH2_1(v153, v155) │
00:05:06 #21680 [verbose] > │ let v157 : UH2 = UH2_1(v153, v156) │
00:05:06 #21681 [verbose] > │ let v158 : UH2 = UH2_1(v153, v157) │
00:05:06 #21682 [verbose] > │ let v159 : US0 = US0_1 │
00:05:06 #21683 [verbose] > │ let v160 : UH4 = UH4_0 │
00:05:06 #21684 [verbose] > │ let v161 : UH4 = UH4_1(v158, v159, v160) │
00:05:06 #21685 [verbose] > │ let v162 : UH4 = UH4_1(v151, v152, v161) │
00:05:06 #21686 [verbose] > │ let v163 : (struct (UH2 * US0) []) = method16(v162) │
00:05:06 #21687 [verbose] > │ let v164 : uint64 = System.Convert.ToUInt64 v163.Length │
00:05:06 #21688 [verbose] > │ let v165 : uint64 = System.Convert.ToUInt64 v91.Length │
00:05:06 #21689 [verbose] > │ let v166 : uint64 = v164 + v165 │
00:05:06 #21690 [verbose] > │ let v167 : (struct (UH2 * US0) []) = Array.zeroCreate<struct (UH2 * │
00:05:06 #21691 [verbose] > │ US0)> (System.Convert.ToInt32(v166)) │
00:05:06 #21692 [verbose] > │ let v168 : Mut0 = {l0 = 0UL} : Mut0 │
00:05:06 #21693 [verbose] > │ while method4(v166, v168) do │
00:05:06 #21694 [verbose] > │ let v170 : uint64 = v168.l0 │
00:05:06 #21695 [verbose] > │ let v171 : bool = v170 < v164 │
00:05:06 #21696 [verbose] > │ let struct (v177 : UH2, v178 : US0) = │
00:05:06 #21697 [verbose] > │ if v171 then │
00:05:06 #21698 [verbose] > │ let struct (v172 : UH2, v173 : US0) = v163.[int v170] │
00:05:06 #21699 [verbose] > │ struct (v172, v173) │
00:05:06 #21700 [verbose] > │ else │
00:05:06 #21701 [verbose] > │ let v174 : uint64 = v170 - v164 │
00:05:06 #21702 [verbose] > │ let struct (v175 : UH2, v176 : US0) = v91.[int v174] │
00:05:06 #21703 [verbose] > │ struct (v175, v176) │
00:05:06 #21704 [verbose] > │ v167.[int v170] <- struct (v177, v178) │
00:05:06 #21705 [verbose] > │ let v179 : uint64 = v170 + 1UL │
00:05:06 #21706 [verbose] > │ v168.l0 <- v179 │
00:05:06 #21707 [verbose] > │ () │
00:05:06 #21708 [verbose] > │ let v180 : uint64 = System.Convert.ToUInt64 v167.Length │
00:05:06 #21709 [verbose] > │ let v181 : ((string []) []) = Array.zeroCreate<(string [])> │
00:05:06 #21710 [verbose] > │ (System.Convert.ToInt32(v180)) │
00:05:06 #21711 [verbose] > │ let v182 : Mut0 = {l0 = 0UL} : Mut0 │
00:05:06 #21712 [verbose] > │ while method4(v180, v182) do │
00:05:06 #21713 [verbose] > │ let v184 : uint64 = v182.l0 │
00:05:06 #21714 [verbose] > │ let struct (v185 : UH2, v186 : US0) = v167.[int v184] │
00:05:06 #21715 [verbose] > │ let v187 : (string []) = method19(v185) │
00:05:06 #21716 [verbose] > │ v181.[int v184] <- v187 │
00:05:06 #21717 [verbose] > │ let v188 : uint64 = v184 + 1UL │
00:05:06 #21718 [verbose] > │ v182.l0 <- v188 │
00:05:06 #21719 [verbose] > │ () │
00:05:06 #21720 [verbose] > │ let v189 : (((string []) []) -> ((string []) [])) = Array.transpose │
00:05:06 #21721 [verbose] > │ let v190 : ((string []) []) = v189 v181 │
00:05:06 #21722 [verbose] > │ let v191 : uint64 = System.Convert.ToUInt64 v190.Length │
00:05:06 #21723 [verbose] > │ let v192 : (int64 []) = Array.zeroCreate<int64> │
00:05:06 #21724 [verbose] > │ (System.Convert.ToInt32(v191)) │
00:05:06 #21725 [verbose] > │ let v193 : Mut0 = {l0 = 0UL} : Mut0 │
00:05:06 #21726 [verbose] > │ while method4(v191, v193) do │
00:05:06 #21727 [verbose] > │ let v195 : uint64 = v193.l0 │
00:05:06 #21728 [verbose] > │ let v196 : (string []) = v190.[int v195] │
00:05:06 #21729 [verbose] > │ let v197 : uint64 = System.Convert.ToUInt64 v196.Length │
00:05:06 #21730 [verbose] > │ let v198 : (int64 []) = Array.zeroCreate<int64> │
00:05:06 #21731 [verbose] > │ (System.Convert.ToInt32(v197)) │
00:05:06 #21732 [verbose] > │ let v199 : Mut0 = {l0 = 0UL} : Mut0 │
00:05:06 #21733 [verbose] > │ while method4(v197, v199) do │
00:05:06 #21734 [verbose] > │ let v201 : uint64 = v199.l0 │
00:05:06 #21735 [verbose] > │ let v202 : string = v196.[int v201] │
00:05:06 #21736 [verbose] > │ let v203 : int64 = System.Convert.ToInt64 v202.Length │
00:05:06 #21737 [verbose] > │ v198.[int v201] <- v203 │
00:05:06 #21738 [verbose] > │ let v204 : uint64 = v201 + 1UL │
00:05:06 #21739 [verbose] > │ v199.l0 <- v204 │
00:05:06 #21740 [verbose] > │ () │
00:05:06 #21741 [verbose] > │ let v205 : ((int64 []) -> (int64 [])) = Array.sortDescending │
00:05:06 #21742 [verbose] > │ let v206 : (int64 []) = v205 v198 │
00:05:06 #21743 [verbose] > │ let v207 : (int32 -> ((int64 []) -> int64 option)) = Array.tryItem │
00:05:06 #21744 [verbose] > │ let v208 : ((int64 []) -> int64 option) = v207 0 │
00:05:06 #21745 [verbose] > │ let v209 : int64 option = v208 v206 │
00:05:06 #21746 [verbose] > │ let v210 : (int64 -> US1) = method22() │
00:05:06 #21747 [verbose] > │ let v211 : US1 = US1_1 │
00:05:06 #21748 [verbose] > │ let v212 : US1 = v209 |> Option.map v210 |> Option.defaultValue v211 │
00:05:06 #21749 [verbose] > │ let v215 : int64 = │
00:05:06 #21750 [verbose] > │ match v212 with │
00:05:06 #21751 [verbose] > │ | US1_1 -> (* None *) │
00:05:06 #21752 [verbose] > │ 0L │
00:05:06 #21753 [verbose] > │ | US1_0(v213) -> (* Some *) │
00:05:06 #21754 [verbose] > │ v213 │
00:05:06 #21755 [verbose] > │ v192.[int v195] <- v215 │
00:05:06 #21756 [verbose] > │ let v216 : uint64 = v195 + 1UL │
00:05:06 #21757 [verbose] > │ v193.l0 <- v216 │
00:05:06 #21758 [verbose] > │ () │
00:05:06 #21759 [verbose] > │ let v217 : uint64 = System.Convert.ToUInt64 v192.Length │
00:05:06 #21760 [verbose] > │ let v218 : UH5 = UH5_0 │
00:05:06 #21761 [verbose] > │ let v219 : Mut3 = {l0 = 0UL; l1 = v218; l2 = 0} : Mut3 │
00:05:06 #21762 [verbose] > │ while method23(v217, v219) do │
00:05:06 #21763 [verbose] > │ let v221 : uint64 = v219.l0 │
00:05:06 #21764 [verbose] > │ let struct (v222 : UH5, v223 : int32) = v219.l1, v219.l2 │
00:05:06 #21765 [verbose] > │ let v224 : int64 = v192.[int v221] │
00:05:06 #21766 [verbose] > │ let v225 : int32 = v223 + 1 │
00:05:06 #21767 [verbose] > │ let v226 : uint64 = v221 + 1UL │
00:05:06 #21768 [verbose] > │ let v227 : UH5 = UH5_1(v223, v224, v222) │
00:05:06 #21769 [verbose] > │ v219.l0 <- v226 │
00:05:06 #21770 [verbose] > │ v219.l1 <- v227 │
00:05:06 #21771 [verbose] > │ v219.l2 <- v225 │
00:05:06 #21772 [verbose] > │ () │
00:05:06 #21773 [verbose] > │ let struct (v228 : UH5, v229 : int32) = v219.l1, v219.l2 │
00:05:06 #21774 [verbose] > │ let v230 : UH5 = UH5_0 │
00:05:06 #21775 [verbose] > │ let v231 : UH5 = method24(v228, v230) │
00:05:06 #21776 [verbose] > │ let v232 : (struct (int32 * int64) []) = method25(v231) │
00:05:06 #21777 [verbose] > │ let v233 : Map<int32, int64> = v232 |> Array.map (fun (struct (a, b)) -> │
00:05:06 #21778 [verbose] > │ a, b) |> Map.ofArray │
00:05:06 #21779 [verbose] > │ let v234 : (struct ((string []) * US0) []) = Array.zeroCreate<struct │
00:05:06 #21780 [verbose] > │ ((string []) * US0)> (System.Convert.ToInt32(v180)) │
00:05:06 #21781 [verbose] > │ let v235 : Mut0 = {l0 = 0UL} : Mut0 │
00:05:06 #21782 [verbose] > │ while method4(v180, v235) do │
00:05:06 #21783 [verbose] > │ let v237 : uint64 = v235.l0 │
00:05:06 #21784 [verbose] > │ let struct (v238 : UH2, v239 : US0) = v167.[int v237] │
00:05:06 #21785 [verbose] > │ let v240 : UH6 = UH6_0 │
00:05:06 #21786 [verbose] > │ let v241 : int32 = 0 │
00:05:06 #21787 [verbose] > │ let struct (v242 : UH6, v243 : int32) = method28(v238, v240, v241) │
00:05:06 #21788 [verbose] > │ let v244 : UH6 = UH6_0 │
00:05:06 #21789 [verbose] > │ let v245 : UH6 = method29(v242, v244) │
00:05:06 #21790 [verbose] > │ let v246 : UH2 = UH2_0 │
00:05:06 #21791 [verbose] > │ let v247 : UH2 = method30(v233, v245, v246) │
00:05:06 #21792 [verbose] > │ let v248 : (string []) = method31(v247) │
00:05:06 #21793 [verbose] > │ v234.[int v237] <- struct (v248, v239) │
00:05:06 #21794 [verbose] > │ let v249 : uint64 = v237 + 1UL │
00:05:06 #21795 [verbose] > │ v235.l0 <- v249 │
00:05:06 #21796 [verbose] > │ () │
00:05:06 #21797 [verbose] > │ System.Console.WriteLine v2 │
00:05:06 #21798 [verbose] > │ let v250 : uint64 = System.Convert.ToUInt64 v234.Length │
00:05:06 #21799 [verbose] > │ let v251 : Mut0 = {l0 = 0UL} : Mut0 │
00:05:06 #21800 [verbose] > │ while method4(v250, v251) do │
00:05:06 #21801 [verbose] > │ let v253 : uint64 = v251.l0 │
00:05:06 #21802 [verbose] > │ let struct (v254 : (string []), v255 : US0) = v234.[int v253] │
00:05:06 #21803 [verbose] > │ match v255 with │
00:05:06 #21804 [verbose] > │ | US0_1 -> (* None *) │
00:05:06 #21805 [verbose] > │ let v258 : unit option = None │
00:05:06 #21806 [verbose] > │ let mutable _v258 = v258 │
00:05:06 #21807 [verbose] > │ #if FABLE_COMPILER_RUST && !WASM && !CONTRACT │
00:05:06 #21808 [verbose] > │ () │
00:05:06 #21809 [verbose] > │ #endif │
00:05:06 #21810 [verbose] > │ #if FABLE_COMPILER_RUST && WASM │
00:05:06 #21811 [verbose] > │ () │
00:05:06 #21812 [verbose] > │ #endif │
00:05:06 #21813 [verbose] > │ #if FABLE_COMPILER_RUST && CONTRACT │
00:05:06 #21814 [verbose] > │ () │
00:05:06 #21815 [verbose] > │ #endif │
00:05:06 #21816 [verbose] > │ #if !FABLE_COMPILER && !FABLE_COMPILER_RUST && │
00:05:06 #21817 [verbose] > │ !FABLE_COMPILER_TYPESCRIPT && !WASM && !CONTRACT │
00:05:06 #21818 [verbose] > │ System.Console.ResetColor () │
00:05:06 #21819 [verbose] > │ () │
00:05:06 #21820 [verbose] > │ #endif │
00:05:06 #21821 [verbose] > │ #if FABLE_COMPILER_TYPESCRIPT │
00:05:06 #21822 [verbose] > │ () │
00:05:06 #21823 [verbose] > │ #endif │
00:05:06 #21824 [verbose] > │ #if FABLE_COMPILER_PYTHON || FABLE_COMPILER_PHP || │
00:05:06 #21825 [verbose] > │ FABLE_COMPILER_DART │
00:05:06 #21826 [verbose] > │ Unchecked.defaultof<unit> │
00:05:06 #21827 [verbose] > │ () │
00:05:06 #21828 [verbose] > │ #endif │
00:05:06 #21829 [verbose] > │ |> fun x -> _v258 <- Some x │
00:05:06 #21830 [verbose] > │ _v258.Value │
00:05:06 #21831 [verbose] > │ () │
00:05:06 #21832 [verbose] > │ | US0_0(v256) -> (* Some *) │
00:05:06 #21833 [verbose] > │ let v257 : unit option = None │
00:05:06 #21834 [verbose] > │ let mutable _v257 = v257 │
00:05:06 #21835 [verbose] > │ #if FABLE_COMPILER_RUST && !WASM && !CONTRACT │
00:05:06 #21836 [verbose] > │ () │
00:05:06 #21837 [verbose] > │ #endif │
00:05:06 #21838 [verbose] > │ #if FABLE_COMPILER_RUST && WASM │
00:05:06 #21839 [verbose] > │ () │
00:05:06 #21840 [verbose] > │ #endif │
00:05:06 #21841 [verbose] > │ #if FABLE_COMPILER_RUST && CONTRACT │
00:05:06 #21842 [verbose] > │ () │
00:05:06 #21843 [verbose] > │ #endif │
00:05:06 #21844 [verbose] > │ #if !FABLE_COMPILER && !FABLE_COMPILER_RUST && │
00:05:06 #21845 [verbose] > │ !FABLE_COMPILER_TYPESCRIPT && !WASM && !CONTRACT │
00:05:06 #21846 [verbose] > │ System.Console.ForegroundColor <- v256 │
00:05:06 #21847 [verbose] > │ () │
00:05:06 #21848 [verbose] > │ #endif │
00:05:06 #21849 [verbose] > │ #if FABLE_COMPILER_TYPESCRIPT │
00:05:06 #21850 [verbose] > │ () │
00:05:06 #21851 [verbose] > │ #endif │
00:05:06 #21852 [verbose] > │ #if FABLE_COMPILER_PYTHON || FABLE_COMPILER_PHP || │
00:05:06 #21853 [verbose] > │ FABLE_COMPILER_DART │
00:05:06 #21854 [verbose] > │ Unchecked.defaultof<unit> │
00:05:06 #21855 [verbose] > │ () │
00:05:06 #21856 [verbose] > │ #endif │
00:05:06 #21857 [verbose] > │ |> fun x -> _v257 <- Some x │
00:05:06 #21858 [verbose] > │ _v257.Value │
00:05:06 #21859 [verbose] > │ () │
00:05:06 #21860 [verbose] > │ let v259 : string = "\t| " │
00:05:06 #21861 [verbose] > │ let v260 : string = System.String.Join (v259, v254) │
00:05:06 #21862 [verbose] > │ System.Console.WriteLine v260 │
00:05:06 #21863 [verbose] > │ let v261 : unit option = None │
00:05:06 #21864 [verbose] > │ let mutable _v261 = v261 │
00:05:06 #21865 [verbose] > │ #if FABLE_COMPILER_RUST && !WASM && !CONTRACT │
00:05:06 #21866 [verbose] > │ () │
00:05:06 #21867 [verbose] > │ #endif │
00:05:06 #21868 [verbose] > │ #if FABLE_COMPILER_RUST && WASM │
00:05:06 #21869 [verbose] > │ () │
00:05:06 #21870 [verbose] > │ #endif │
00:05:06 #21871 [verbose] > │ #if FABLE_COMPILER_RUST && CONTRACT │
00:05:06 #21872 [verbose] > │ () │
00:05:06 #21873 [verbose] > │ #endif │
00:05:06 #21874 [verbose] > │ #if !FABLE_COMPILER && !FABLE_COMPILER_RUST && │
00:05:06 #21875 [verbose] > │ !FABLE_COMPILER_TYPESCRIPT && !WASM && !CONTRACT │
00:05:06 #21876 [verbose] > │ System.Console.ResetColor () │
00:05:06 #21877 [verbose] > │ () │
00:05:06 #21878 [verbose] > │ #endif │
00:05:06 #21879 [verbose] > │ #if FABLE_COMPILER_TYPESCRIPT │
00:05:06 #21880 [verbose] > │ () │
00:05:06 #21881 [verbose] > │ #endif │
00:05:06 #21882 [verbose] > │ #if FABLE_COMPILER_PYTHON || FABLE_COMPILER_PHP || │
00:05:06 #21883 [verbose] > │ FABLE_COMPILER_DART │
00:05:06 #21884 [verbose] > │ Unchecked.defaultof<unit> │
00:05:06 #21885 [verbose] > │ () │
00:05:06 #21886 [verbose] > │ #endif │
00:05:06 #21887 [verbose] > │ |> fun x -> _v261 <- Some x │
00:05:06 #21888 [verbose] > │ _v261.Value │
00:05:06 #21889 [verbose] > │ let v262 : uint64 = v253 + 1UL │
00:05:06 #21890 [verbose] > │ v251.l0 <- v262 │
00:05:06 #21891 [verbose] > │ () │
00:05:06 #21892 [verbose] > │ let v263 : ((float []) []) = Array.zeroCreate<(float [])> │
00:05:06 #21893 [verbose] > │ (System.Convert.ToInt32(v90)) │
00:05:06 #21894 [verbose] > │ let v264 : Mut0 = {l0 = 0UL} : Mut0 │
00:05:06 #21895 [verbose] > │ while method4(v90, v264) do │
00:05:06 #21896 [verbose] > │ let v266 : uint64 = v264.l0 │
00:05:06 #21897 [verbose] > │ let struct (v267 : string, v268 : string, v269 : string, v270 : │
00:05:06 #21898 [verbose] > │ (int64 [])) = v11.[int v266] │
00:05:06 #21899 [verbose] > │ let v271 : (int64 -> float) = float │
00:05:06 #21900 [verbose] > │ let v272 : uint64 = System.Convert.ToUInt64 v270.Length │
00:05:06 #21901 [verbose] > │ let v273 : (float []) = Array.zeroCreate<float> │
00:05:06 #21902 [verbose] > │ (System.Convert.ToInt32(v272)) │
00:05:06 #21903 [verbose] > │ let v274 : Mut0 = {l0 = 0UL} : Mut0 │
00:05:06 #21904 [verbose] > │ while method4(v272, v274) do │
00:05:06 #21905 [verbose] > │ let v276 : uint64 = v274.l0 │
00:05:06 #21906 [verbose] > │ let v277 : int64 = v270.[int v276] │
00:05:06 #21907 [verbose] > │ let v278 : float = v271 v277 │
00:05:06 #21908 [verbose] > │ v273.[int v276] <- v278 │
00:05:06 #21909 [verbose] > │ let v279 : uint64 = v276 + 1UL │
00:05:06 #21910 [verbose] > │ v274.l0 <- v279 │
00:05:06 #21911 [verbose] > │ () │
00:05:06 #21912 [verbose] > │ v263.[int v266] <- v273 │
00:05:06 #21913 [verbose] > │ let v280 : uint64 = v266 + 1UL │
00:05:06 #21914 [verbose] > │ v264.l0 <- v280 │
00:05:06 #21915 [verbose] > │ () │
00:05:06 #21916 [verbose] > │ let v281 : (((float []) []) -> ((float []) [])) = Array.transpose │
00:05:06 #21917 [verbose] > │ let v282 : ((float []) []) = v281 v263 │
00:05:06 #21918 [verbose] > │ let v283 : uint64 = System.Convert.ToUInt64 v282.Length │
00:05:06 #21919 [verbose] > │ let v284 : (float []) = Array.zeroCreate<float> │
00:05:06 #21920 [verbose] > │ (System.Convert.ToInt32(v283)) │
00:05:06 #21921 [verbose] > │ let v285 : Mut0 = {l0 = 0UL} : Mut0 │
00:05:06 #21922 [verbose] > │ while method4(v283, v285) do │
00:05:06 #21923 [verbose] > │ let v287 : uint64 = v285.l0 │
00:05:06 #21924 [verbose] > │ let v288 : (float []) = v282.[int v287] │
00:05:06 #21925 [verbose] > │ let v289 : ((float []) -> float) = Array.average │
00:05:06 #21926 [verbose] > │ let v290 : float = v289 v288 │
00:05:06 #21927 [verbose] > │ v284.[int v287] <- v290 │
00:05:06 #21928 [verbose] > │ let v291 : uint64 = v287 + 1UL │
00:05:06 #21929 [verbose] > │ v285.l0 <- v291 │
00:05:06 #21930 [verbose] > │ () │
00:05:06 #21931 [verbose] > │ let v292 : (float -> int64) = int64 │
00:05:06 #21932 [verbose] > │ let v293 : uint64 = System.Convert.ToUInt64 v284.Length │
00:05:06 #21933 [verbose] > │ let v294 : (int64 []) = Array.zeroCreate<int64> │
00:05:06 #21934 [verbose] > │ (System.Convert.ToInt32(v293)) │
00:05:06 #21935 [verbose] > │ let v295 : Mut0 = {l0 = 0UL} : Mut0 │
00:05:06 #21936 [verbose] > │ while method4(v293, v295) do │
00:05:06 #21937 [verbose] > │ let v297 : uint64 = v295.l0 │
00:05:06 #21938 [verbose] > │ let v298 : float = v284.[int v297] │
00:05:06 #21939 [verbose] > │ let v299 : int64 = v292 v298 │
00:05:06 #21940 [verbose] > │ v294.[int v297] <- v299 │
00:05:06 #21941 [verbose] > │ let v300 : uint64 = v297 + 1UL │
00:05:06 #21942 [verbose] > │ v295.l0 <- v300 │
00:05:06 #21943 [verbose] > │ () │
00:05:06 #21944 [verbose] > │ let v301 : uint64 = System.Convert.ToUInt64 v294.Length │
00:05:06 #21945 [verbose] > │ let v302 : UH5 = UH5_0 │
00:05:06 #21946 [verbose] > │ let v303 : Mut3 = {l0 = 0UL; l1 = v302; l2 = 0} : Mut3 │
00:05:06 #21947 [verbose] > │ while method23(v301, v303) do │
00:05:06 #21948 [verbose] > │ let v305 : uint64 = v303.l0 │
00:05:06 #21949 [verbose] > │ let struct (v306 : UH5, v307 : int32) = v303.l1, v303.l2 │
00:05:06 #21950 [verbose] > │ let v308 : int64 = v294.[int v305] │
00:05:06 #21951 [verbose] > │ let v309 : int32 = v307 + 1 │
00:05:06 #21952 [verbose] > │ let v310 : uint64 = v305 + 1UL │
00:05:06 #21953 [verbose] > │ let v311 : UH5 = UH5_1(v307, v308, v306) │
00:05:06 #21954 [verbose] > │ v303.l0 <- v310 │
00:05:06 #21955 [verbose] > │ v303.l1 <- v311 │
00:05:06 #21956 [verbose] > │ v303.l2 <- v309 │
00:05:06 #21957 [verbose] > │ () │
00:05:06 #21958 [verbose] > │ let struct (v312 : UH5, v313 : int32) = v303.l1, v303.l2 │
00:05:06 #21959 [verbose] > │ let v314 : UH5 = UH5_0 │
00:05:06 #21960 [verbose] > │ let v315 : UH5 = method24(v312, v314) │
00:05:06 #21961 [verbose] > │ let v316 : (struct (int32 * int64) []) = method34(v315) │
00:05:06 #21962 [verbose] > │ System.Console.WriteLine v2 │
00:05:06 #21963 [verbose] > │ let v317 : string = "Average Ranking " │
00:05:06 #21964 [verbose] > │ System.Console.WriteLine v317 │
00:05:06 #21965 [verbose] > │ let v318 : ((struct (int32 * int64) -> int64) -> ((struct (int32 * │
00:05:06 #21966 [verbose] > │ int64) []) -> (struct (int32 * int64) []))) = Array.sortBy │
00:05:06 #21967 [verbose] > │ let v319 : (struct (int32 * int64) -> int64) = closure6() │
00:05:06 #21968 [verbose] > │ let v320 : ((struct (int32 * int64) []) -> (struct (int32 * int64) [])) │
00:05:06 #21969 [verbose] > │ = v318 v319 │
00:05:06 #21970 [verbose] > │ let v321 : (struct (int32 * int64) []) = v320 v316 │
00:05:06 #21971 [verbose] > │ let v322 : uint64 = System.Convert.ToUInt64 v321.Length │
00:05:06 #21972 [verbose] > │ let v323 : Mut0 = {l0 = 0UL} : Mut0 │
00:05:06 #21973 [verbose] > │ while method4(v322, v323) do │
00:05:06 #21974 [verbose] > │ let v325 : uint64 = v323.l0 │
00:05:06 #21975 [verbose] > │ let struct (v326 : int32, v327 : int64) = v321.[int v325] │
00:05:06 #21976 [verbose] > │ let v328 : string = $"Test case %d{v326 + 1}. Average Time: %A{v327} │
00:05:06 #21977 [verbose] > │ " │
00:05:06 #21978 [verbose] > │ System.Console.WriteLine v328 │
00:05:06 #21979 [verbose] > │ let v329 : uint64 = v325 + 1UL │
00:05:06 #21980 [verbose] > │ v323.l0 <- v329 │
00:05:06 #21981 [verbose] > │ () │
00:05:06 #21982 [verbose] > │ () │
00:05:06 #21983 [verbose] > │ method0() │
00:05:06 #21984 [verbose] > │ │
00:05:06 #21985 [verbose] > │ │
00:05:06 #21986 [verbose] > │ │
00:05:06 #21987 [verbose] > │ Test: v0 │
00:05:06 #21988 [verbose] > │ │
00:05:06 #21989 [verbose] > │ Solution: struct ("a", "a") │
00:05:06 #21990 [verbose] > │ Test case 1. A. Time: 101 │
00:05:06 #21991 [verbose] > │ Test case 2. B. Time: 94 │
00:05:06 #21992 [verbose] > │ │
00:05:06 #21993 [verbose] > │ Solution: struct ("b", "b") │
00:05:06 #21994 [verbose] > │ Test case 1. A. Time: 91 │
00:05:06 #21995 [verbose] > │ Test case 2. B. Time: 93 │
00:05:06 #21996 [verbose] > │ │
00:05:06 #21997 [verbose] > │ Input | Expected | Result | Best │
00:05:06 #21998 [verbose] > │ --- | --- | --- | --- │
00:05:06 #21999 [verbose] > │ struct ("a", "a") | "a" | "a" | struct (2L, 94L) │
00:05:06 #22000 [verbose] > │ struct ("b", "b") | "b" | "b" | struct (1L, 91L) │
00:05:06 #22001 [verbose] > │ │
00:05:06 #22002 [verbose] > │ Average Ranking │
00:05:06 #22003 [verbose] > │ Test case 2. Average Time: 93L │
00:05:06 #22004 [verbose] > │ Test case 1. Average Time: 96L │
00:05:06 #22005 [verbose] > │ │
00:05:06 #22006 [verbose] > ╰──────────────────────────────────────────────────────────────────────────────╯
00:05:06 #22007 [verbose] >
00:05:06 #22008 [verbose] > ── markdown ────────────────────────────────────────────────────────────────────
00:05:06 #22009 [verbose] > ╭──────────────────────────────────────────────────────────────────────────────╮
00:05:06 #22010 [verbose] > │ ## emptyTests │
00:05:06 #22011 [verbose] > ╰──────────────────────────────────────────────────────────────────────────────╯
00:05:06 #22012 [verbose] >
00:05:06 #22013 [verbose] > ── markdown ────────────────────────────────────────────────────────────────────
00:05:06 #22014 [verbose] > ╭──────────────────────────────────────────────────────────────────────────────╮
00:05:06 #22015 [verbose] > │ Test: Empty │
00:05:06 #22016 [verbose] > │ │
00:05:06 #22017 [verbose] > │ Solution: 0 │
00:05:06 #22018 [verbose] > │ Test case 1. A. Time: 61L │
00:05:06 #22019 [verbose] > │ │
00:05:06 #22020 [verbose] > │ Solution: 2 │
00:05:06 #22021 [verbose] > │ Test case 1. A. Time: 62L │
00:05:06 #22022 [verbose] > │ │
00:05:06 #22023 [verbose] > │ Solution: 5 │
00:05:06 #22024 [verbose] > │ Test case 1. A. Time: 70L │
00:05:06 #22025 [verbose] > │ │
00:05:06 #22026 [verbose] > │ Input | Expected | Result | Best │
00:05:06 #22027 [verbose] > │ --- | --- | --- | --- │
00:05:06 #22028 [verbose] > │ 0 | 0 | 0 | (1, 61) │
00:05:06 #22029 [verbose] > │ 2 | 2 | 2 | (1, 62) │
00:05:06 #22030 [verbose] > │ 5 | 5 | 5 | (1, 70) │
00:05:06 #22031 [verbose] > │ │
00:05:06 #22032 [verbose] > │ Averages │
00:05:06 #22033 [verbose] > │ Test case 1. Average Time: 64L │
00:05:06 #22034 [verbose] > │ │
00:05:06 #22035 [verbose] > │ Ranking │
00:05:06 #22036 [verbose] > │ Test case 1. Average Time: 64L │
00:05:06 #22037 [verbose] > ╰──────────────────────────────────────────────────────────────────────────────╯
00:05:06 #22038 [verbose] >
00:05:06 #22039 [verbose] > ── spiral ──────────────────────────────────────────────────────────────────────
00:05:06 #22040 [verbose] > // // test
00:05:06 #22041 [verbose] >
00:05:06 #22042 [verbose] > inl get_solutions () =
00:05:06 #22043 [verbose] > [[
00:05:06 #22044 [verbose] > "A",
00:05:06 #22045 [verbose] > fun n =>
00:05:06 #22046 [verbose] > n + 1f64
00:05:06 #22047 [verbose] > ]]
00:05:06 #22048 [verbose] >
00:05:06 #22049 [verbose] > inl rec empty_1_tests () =
00:05:06 #22050 [verbose] > inl test_cases = [[
00:05:06 #22051 [verbose] > 0, 1
00:05:06 #22052 [verbose] > 2, 3
00:05:06 #22053 [verbose] > 5, 6
00:05:06 #22054 [verbose] > ]]
00:05:06 #22055 [verbose] >
00:05:06 #22056 [verbose] > inl solutions = get_solutions ()
00:05:06 #22057 [verbose] >
00:05:06 #22058 [verbose] > // inl is_fast () = true
00:05:06 #22059 [verbose] >
00:05:06 #22060 [verbose] > inl count =
00:05:06 #22061 [verbose] > if is_fast ()
00:05:06 #22062 [verbose] > then 1000i32
00:05:06 #22063 [verbose] > else 2000000i32
00:05:06 #22064 [verbose] >
00:05:06 #22065 [verbose] > run_all (nameof empty_1_tests) count solutions test_cases
00:05:06 #22066 [verbose] > |> sort_result_list
00:05:06 #22067 [verbose] >
00:05:06 #22068 [verbose] > empty_1_tests ()
00:05:06 #22069 [verbose] > Building c:\home\git\polyglot\target\polyglot\spiral_eval\packages\add20fff0f27a8abe1411796e3c8df50eddcafd4e78f8d42c4f62ae6367103c9\main.spi
00:05:11 #22070 [verbose] >
00:05:11 #22071 [verbose] > ╭─[ 4.88s - stdout ]───────────────────────────────────────────────────────────╮
00:05:11 #22072 [verbose] > │ type UH0 = │
00:05:11 #22073 [verbose] > │ | UH0_0 │
00:05:11 #22074 [verbose] > │ | UH0_1 of float * float * UH0 │
00:05:11 #22075 [verbose] > │ and Mut0 = {mutable l0 : uint64} │
00:05:11 #22076 [verbose] > │ and UH1 = │
00:05:11 #22077 [verbose] > │ | UH1_0 │
00:05:11 #22078 [verbose] > │ | UH1_1 of int32 * string * (float -> float) * UH1 │
00:05:11 #22079 [verbose] > │ and Mut1 = {mutable l0 : int32} │
00:05:11 #22080 [verbose] > │ and UH2 = │
00:05:11 #22081 [verbose] > │ | UH2_0 │
00:05:11 #22082 [verbose] > │ | UH2_1 of string * UH2 │
00:05:11 #22083 [verbose] > │ and [<Struct>] US0 = │
00:05:11 #22084 [verbose] > │ | US0_0 of f0_0 : System.ConsoleColor │
00:05:11 #22085 [verbose] > │ | US0_1 │
00:05:11 #22086 [verbose] > │ and UH3 = │
00:05:11 #22087 [verbose] > │ | UH3_0 │
00:05:11 #22088 [verbose] > │ | UH3_1 of int64 * int64 * UH3 │
00:05:11 #22089 [verbose] > │ and Mut2 = {mutable l0 : uint64; mutable l1 : UH3; mutable l2 : int64} │
00:05:11 #22090 [verbose] > │ and UH4 = │
00:05:11 #22091 [verbose] > │ | UH4_0 │
00:05:11 #22092 [verbose] > │ | UH4_1 of UH2 * US0 * UH4 │
00:05:11 #22093 [verbose] > │ and [<Struct>] US1 = │
00:05:11 #22094 [verbose] > │ | US1_0 of f0_0 : int64 │
00:05:11 #22095 [verbose] > │ | US1_1 │
00:05:11 #22096 [verbose] > │ and UH5 = │
00:05:11 #22097 [verbose] > │ | UH5_0 │
00:05:11 #22098 [verbose] > │ | UH5_1 of int32 * int64 * UH5 │
00:05:11 #22099 [verbose] > │ and Mut3 = {mutable l0 : uint64; mutable l1 : UH5; mutable l2 : int32} │
00:05:11 #22100 [verbose] > │ and UH6 = │
00:05:11 #22101 [verbose] > │ | UH6_0 │
00:05:11 #22102 [verbose] > │ | UH6_1 of int32 * string * UH6 │
00:05:11 #22103 [verbose] > │ let rec method2 (v0 : UH0, v1 : uint64) : uint64 = │
00:05:11 #22104 [verbose] > │ match v0 with │
00:05:11 #22105 [verbose] > │ | UH0_1(v2, v3, v4) -> (* Cons *) │
00:05:11 #22106 [verbose] > │ let v5 : uint64 = v1 + 1UL │
00:05:11 #22107 [verbose] > │ method2(v4, v5) │
00:05:11 #22108 [verbose] > │ | UH0_0 -> (* Nil *) │
00:05:11 #22109 [verbose] > │ v1 │
00:05:11 #22110 [verbose] > │ and method3 (v0 : (struct (float * float) []), v1 : UH0, v2 : uint64) : │
00:05:11 #22111 [verbose] > │ uint64 = │
00:05:11 #22112 [verbose] > │ match v1 with │
00:05:11 #22113 [verbose] > │ | UH0_1(v3, v4, v5) -> (* Cons *) │
00:05:11 #22114 [verbose] > │ v0.[int v2] <- struct (v3, v4) │
00:05:11 #22115 [verbose] > │ let v6 : uint64 = v2 + 1UL │
00:05:11 #22116 [verbose] > │ method3(v0, v5, v6) │
00:05:11 #22117 [verbose] > │ | UH0_0 -> (* Nil *) │
00:05:11 #22118 [verbose] > │ v2 │
00:05:11 #22119 [verbose] > │ and method1 (v0 : UH0) : (struct (float * float) []) = │
00:05:11 #22120 [verbose] > │ let v1 : uint64 = 0UL │
00:05:11 #22121 [verbose] > │ let v2 : uint64 = method2(v0, v1) │
00:05:11 #22122 [verbose] > │ let v3 : (struct (float * float) []) = Array.zeroCreate<struct (float * │
00:05:11 #22123 [verbose] > │ float)> (System.Convert.ToInt32(v2)) │
00:05:11 #22124 [verbose] > │ let v4 : uint64 = 0UL │
00:05:11 #22125 [verbose] > │ let v5 : uint64 = method3(v3, v0, v4) │
00:05:11 #22126 [verbose] > │ v3 │
00:05:11 #22127 [verbose] > │ and method4 (v0 : uint64, v1 : Mut0) : bool = │
00:05:11 #22128 [verbose] > │ let v2 : uint64 = v1.l0 │
00:05:11 #22129 [verbose] > │ let v3 : bool = v2 < v0 │
00:05:11 #22130 [verbose] > │ v3 │
00:05:11 #22131 [verbose] > │ and closure1 () (v0 : float) : float = │
00:05:11 #22132 [verbose] > │ let v1 : float = v0 + 1.0 │
00:05:11 #22133 [verbose] > │ v1 │
00:05:11 #22134 [verbose] > │ and method6 (v0 : UH1, v1 : uint64) : uint64 = │
00:05:11 #22135 [verbose] > │ match v0 with │
00:05:11 #22136 [verbose] > │ | UH1_1(v2, v3, v4, v5) -> (* Cons *) │
00:05:11 #22137 [verbose] > │ let v6 : uint64 = v1 + 1UL │
00:05:11 #22138 [verbose] > │ method6(v5, v6) │
00:05:11 #22139 [verbose] > │ | UH1_0 -> (* Nil *) │
00:05:11 #22140 [verbose] > │ v1 │
00:05:11 #22141 [verbose] > │ and method7 (v0 : (struct (int32 * string * (float -> float)) []), v1 : UH1, │
00:05:11 #22142 [verbose] > │ v2 : uint64) : uint64 = │
00:05:11 #22143 [verbose] > │ match v1 with │
00:05:11 #22144 [verbose] > │ | UH1_1(v3, v4, v5, v6) -> (* Cons *) │
00:05:11 #22145 [verbose] > │ v0.[int v2] <- struct (v3, v4, v5) │
00:05:11 #22146 [verbose] > │ let v7 : uint64 = v2 + 1UL │
00:05:11 #22147 [verbose] > │ method7(v0, v6, v7) │
00:05:11 #22148 [verbose] > │ | UH1_0 -> (* Nil *) │
00:05:11 #22149 [verbose] > │ v2 │
00:05:11 #22150 [verbose] > │ and method5 (v0 : UH1) : (struct (int32 * string * (float -> float)) []) = │
00:05:11 #22151 [verbose] > │ let v1 : uint64 = 0UL │
00:05:11 #22152 [verbose] > │ let v2 : uint64 = method6(v0, v1) │
00:05:11 #22153 [verbose] > │ let v3 : (struct (int32 * string * (float -> float)) []) = │
00:05:11 #22154 [verbose] > │ Array.zeroCreate<struct (int32 * string * (float -> float))> │
00:05:11 #22155 [verbose] > │ (System.Convert.ToInt32(v2)) │
00:05:11 #22156 [verbose] > │ let v4 : uint64 = 0UL │
00:05:11 #22157 [verbose] > │ let v5 : uint64 = method7(v3, v0, v4) │
00:05:11 #22158 [verbose] > │ v3 │
00:05:11 #22159 [verbose] > │ and method8 (v0 : Mut1) : bool = │
00:05:11 #22160 [verbose] > │ let v1 : int32 = v0.l0 │
00:05:11 #22161 [verbose] > │ let v2 : bool = v1 < 2000001 │
00:05:11 #22162 [verbose] > │ v2 │
00:05:11 #22163 [verbose] > │ and closure2 (v0 : float, v1 : (float -> float)) (v2 : int32) : float = │
00:05:11 #22164 [verbose] > │ v1 v0 │
00:05:11 #22165 [verbose] > │ and method9 (v0 : float, v1 : (float []), v2 : uint64) : bool = │
00:05:11 #22166 [verbose] > │ let v3 : uint64 = System.Convert.ToUInt64 v1.Length │
00:05:11 #22167 [verbose] > │ let v4 : bool = v2 < v3 │
00:05:11 #22168 [verbose] > │ if v4 then │
00:05:11 #22169 [verbose] > │ let v5 : float = v1.[int v2] │
00:05:11 #22170 [verbose] > │ let v6 : bool = v0 = v5 │
00:05:11 #22171 [verbose] > │ if v6 then │
00:05:11 #22172 [verbose] > │ let v7 : uint64 = v2 + 1UL │
00:05:11 #22173 [verbose] > │ method9(v0, v1, v7) │
00:05:11 #22174 [verbose] > │ else │
00:05:11 #22175 [verbose] > │ false │
00:05:11 #22176 [verbose] > │ else │
00:05:11 #22177 [verbose] > │ true │
00:05:11 #22178 [verbose] > │ and method10 (v0 : uint64, v1 : Mut2) : bool = │
00:05:11 #22179 [verbose] > │ let v2 : uint64 = v1.l0 │
00:05:11 #22180 [verbose] > │ let v3 : bool = v2 < v0 │
00:05:11 #22181 [verbose] > │ v3 │
00:05:11 #22182 [verbose] > │ and method11 (v0 : UH3, v1 : UH3) : UH3 = │
00:05:11 #22183 [verbose] > │ match v0 with │
00:05:11 #22184 [verbose] > │ | UH3_1(v2, v3, v4) -> (* Cons *) │
00:05:11 #22185 [verbose] > │ let v5 : UH3 = UH3_1(v2, v3, v1) │
00:05:11 #22186 [verbose] > │ method11(v4, v5) │
00:05:11 #22187 [verbose] > │ | UH3_0 -> (* Nil *) │
00:05:11 #22188 [verbose] > │ v1 │
00:05:11 #22189 [verbose] > │ and method13 (v0 : UH3, v1 : int32) : int32 = │
00:05:11 #22190 [verbose] > │ match v0 with │
00:05:11 #22191 [verbose] > │ | UH3_1(v2, v3, v4) -> (* Cons *) │
00:05:11 #22192 [verbose] > │ let v5 : int32 = v1 + 1 │
00:05:11 #22193 [verbose] > │ method13(v4, v5) │
00:05:11 #22194 [verbose] > │ | UH3_0 -> (* Nil *) │
00:05:11 #22195 [verbose] > │ v1 │
00:05:11 #22196 [verbose] > │ and method14 (v0 : (struct (int64 * int64) []), v1 : UH3, v2 : int32) : │
00:05:11 #22197 [verbose] > │ int32 = │
00:05:11 #22198 [verbose] > │ match v1 with │
00:05:11 #22199 [verbose] > │ | UH3_1(v3, v4, v5) -> (* Cons *) │
00:05:11 #22200 [verbose] > │ v0.[int v2] <- struct (v3, v4) │
00:05:11 #22201 [verbose] > │ let v6 : int32 = v2 + 1 │
00:05:11 #22202 [verbose] > │ method14(v0, v5, v6) │
00:05:11 #22203 [verbose] > │ | UH3_0 -> (* Nil *) │
00:05:11 #22204 [verbose] > │ v2 │
00:05:11 #22205 [verbose] > │ and method12 (v0 : UH3) : (struct (int64 * int64) []) = │
00:05:11 #22206 [verbose] > │ let v1 : int32 = 0 │
00:05:11 #22207 [verbose] > │ let v2 : int32 = method13(v0, v1) │
00:05:11 #22208 [verbose] > │ let v3 : (struct (int64 * int64) []) = Array.zeroCreate<struct (int64 * │
00:05:11 #22209 [verbose] > │ int64)> (v2) │
00:05:11 #22210 [verbose] > │ let v4 : int32 = 0 │
00:05:11 #22211 [verbose] > │ let v5 : int32 = method14(v3, v0, v4) │
00:05:11 #22212 [verbose] > │ v3 │
00:05:11 #22213 [verbose] > │ and method15 (v0 : int32, v1 : Mut1) : bool = │
00:05:11 #22214 [verbose] > │ let v2 : int32 = v1.l0 │
00:05:11 #22215 [verbose] > │ let v3 : bool = v2 < v0 │
00:05:11 #22216 [verbose] > │ v3 │
00:05:11 #22217 [verbose] > │ and closure3 () struct (v0 : int64, v1 : int64) : int64 = │
00:05:11 #22218 [verbose] > │ v1 │
00:05:11 #22219 [verbose] > │ and method17 (v0 : UH4, v1 : uint64) : uint64 = │
00:05:11 #22220 [verbose] > │ match v0 with │
00:05:11 #22221 [verbose] > │ | UH4_1(v2, v3, v4) -> (* Cons *) │
00:05:11 #22222 [verbose] > │ let v5 : uint64 = v1 + 1UL │
00:05:11 #22223 [verbose] > │ method17(v4, v5) │
00:05:11 #22224 [verbose] > │ | UH4_0 -> (* Nil *) │
00:05:11 #22225 [verbose] > │ v1 │
00:05:11 #22226 [verbose] > │ and method18 (v0 : (struct (UH2 * US0) []), v1 : UH4, v2 : uint64) : uint64 │
00:05:11 #22227 [verbose] > │ = │
00:05:11 #22228 [verbose] > │ match v1 with │
00:05:11 #22229 [verbose] > │ | UH4_1(v3, v4, v5) -> (* Cons *) │
00:05:11 #22230 [verbose] > │ v0.[int v2] <- struct (v3, v4) │
00:05:11 #22231 [verbose] > │ let v6 : uint64 = v2 + 1UL │
00:05:11 #22232 [verbose] > │ method18(v0, v5, v6) │
00:05:11 #22233 [verbose] > │ | UH4_0 -> (* Nil *) │
00:05:11 #22234 [verbose] > │ v2 │
00:05:11 #22235 [verbose] > │ and method16 (v0 : UH4) : (struct (UH2 * US0) []) = │
00:05:11 #22236 [verbose] > │ let v1 : uint64 = 0UL │
00:05:11 #22237 [verbose] > │ let v2 : uint64 = method17(v0, v1) │
00:05:11 #22238 [verbose] > │ let v3 : (struct (UH2 * US0) []) = Array.zeroCreate<struct (UH2 * US0)> │
00:05:11 #22239 [verbose] > │ (System.Convert.ToInt32(v2)) │
00:05:11 #22240 [verbose] > │ let v4 : uint64 = 0UL │
00:05:11 #22241 [verbose] > │ let v5 : uint64 = method18(v3, v0, v4) │
00:05:11 #22242 [verbose] > │ v3 │
00:05:11 #22243 [verbose] > │ and method20 (v0 : UH2, v1 : uint64) : uint64 = │
00:05:11 #22244 [verbose] > │ match v0 with │
00:05:11 #22245 [verbose] > │ | UH2_1(v2, v3) -> (* Cons *) │
00:05:11 #22246 [verbose] > │ let v4 : uint64 = v1 + 1UL │
00:05:11 #22247 [verbose] > │ method20(v3, v4) │
00:05:11 #22248 [verbose] > │ | UH2_0 -> (* Nil *) │
00:05:11 #22249 [verbose] > │ v1 │
00:05:11 #22250 [verbose] > │ and method21 (v0 : (string []), v1 : UH2, v2 : uint64) : uint64 = │
00:05:11 #22251 [verbose] > │ match v1 with │
00:05:11 #22252 [verbose] > │ | UH2_1(v3, v4) -> (* Cons *) │
00:05:11 #22253 [verbose] > │ v0.[int v2] <- v3 │
00:05:11 #22254 [verbose] > │ let v5 : uint64 = v2 + 1UL │
00:05:11 #22255 [verbose] > │ method21(v0, v4, v5) │
00:05:11 #22256 [verbose] > │ | UH2_0 -> (* Nil *) │
00:05:11 #22257 [verbose] > │ v2 │
00:05:11 #22258 [verbose] > │ and method19 (v0 : UH2) : (string []) = │
00:05:11 #22259 [verbose] > │ let v1 : uint64 = 0UL │
00:05:11 #22260 [verbose] > │ let v2 : uint64 = method20(v0, v1) │
00:05:11 #22261 [verbose] > │ let v3 : (string []) = Array.zeroCreate<string> │
00:05:11 #22262 [verbose] > │ (System.Convert.ToInt32(v2)) │
00:05:11 #22263 [verbose] > │ let v4 : uint64 = 0UL │
00:05:11 #22264 [verbose] > │ let v5 : uint64 = method21(v3, v0, v4) │
00:05:11 #22265 [verbose] > │ v3 │
00:05:11 #22266 [verbose] > │ and closure4 () (v0 : int64) : US1 = │
00:05:11 #22267 [verbose] > │ US1_0(v0) │
00:05:11 #22268 [verbose] > │ and method22 () : (int64 -> US1) = │
00:05:11 #22269 [verbose] > │ closure4() │
00:05:11 #22270 [verbose] > │ and method23 (v0 : uint64, v1 : Mut3) : bool = │
00:05:11 #22271 [verbose] > │ let v2 : uint64 = v1.l0 │
00:05:11 #22272 [verbose] > │ let v3 : bool = v2 < v0 │
00:05:11 #22273 [verbose] > │ v3 │
00:05:11 #22274 [verbose] > │ and method24 (v0 : UH5, v1 : UH5) : UH5 = │
00:05:11 #22275 [verbose] > │ match v0 with │
00:05:11 #22276 [verbose] > │ | UH5_1(v2, v3, v4) -> (* Cons *) │
00:05:11 #22277 [verbose] > │ let v5 : UH5 = UH5_1(v2, v3, v1) │
00:05:11 #22278 [verbose] > │ method24(v4, v5) │
00:05:11 #22279 [verbose] > │ | UH5_0 -> (* Nil *) │
00:05:11 #22280 [verbose] > │ v1 │
00:05:11 #22281 [verbose] > │ and method26 (v0 : UH5, v1 : int32) : int32 = │
00:05:11 #22282 [verbose] > │ match v0 with │
00:05:11 #22283 [verbose] > │ | UH5_1(v2, v3, v4) -> (* Cons *) │
00:05:11 #22284 [verbose] > │ let v5 : int32 = v1 + 1 │
00:05:11 #22285 [verbose] > │ method26(v4, v5) │
00:05:11 #22286 [verbose] > │ | UH5_0 -> (* Nil *) │
00:05:11 #22287 [verbose] > │ v1 │
00:05:11 #22288 [verbose] > │ and method27 (v0 : (struct (int32 * int64) []), v1 : UH5, v2 : int32) : │
00:05:11 #22289 [verbose] > │ int32 = │
00:05:11 #22290 [verbose] > │ match v1 with │
00:05:11 #22291 [verbose] > │ | UH5_1(v3, v4, v5) -> (* Cons *) │
00:05:11 #22292 [verbose] > │ v0.[int v2] <- struct (v3, v4) │
00:05:11 #22293 [verbose] > │ let v6 : int32 = v2 + 1 │
00:05:11 #22294 [verbose] > │ method27(v0, v5, v6) │
00:05:11 #22295 [verbose] > │ | UH5_0 -> (* Nil *) │
00:05:11 #22296 [verbose] > │ v2 │
00:05:11 #22297 [verbose] > │ and method25 (v0 : UH5) : (struct (int32 * int64) []) = │
00:05:11 #22298 [verbose] > │ let v1 : int32 = 0 │
00:05:11 #22299 [verbose] > │ let v2 : int32 = method26(v0, v1) │
00:05:11 #22300 [verbose] > │ let v3 : (struct (int32 * int64) []) = Array.zeroCreate<struct (int32 * │
00:05:11 #22301 [verbose] > │ int64)> (v2) │
00:05:11 #22302 [verbose] > │ let v4 : int32 = 0 │
00:05:11 #22303 [verbose] > │ let v5 : int32 = method27(v3, v0, v4) │
00:05:11 #22304 [verbose] > │ v3 │
00:05:11 #22305 [verbose] > │ and method28 (v0 : UH2, v1 : UH6, v2 : int32) : struct (UH6 * int32) = │
00:05:11 #22306 [verbose] > │ match v0 with │
00:05:11 #22307 [verbose] > │ | UH2_1(v3, v4) -> (* Cons *) │
00:05:11 #22308 [verbose] > │ let v5 : int32 = v2 + 1 │
00:05:11 #22309 [verbose] > │ let v6 : UH6 = UH6_1(v2, v3, v1) │
00:05:11 #22310 [verbose] > │ method28(v4, v6, v5) │
00:05:11 #22311 [verbose] > │ | UH2_0 -> (* Nil *) │
00:05:11 #22312 [verbose] > │ struct (v1, v2) │
00:05:11 #22313 [verbose] > │ and method29 (v0 : UH6, v1 : UH6) : UH6 = │
00:05:11 #22314 [verbose] > │ match v0 with │
00:05:11 #22315 [verbose] > │ | UH6_1(v2, v3, v4) -> (* Cons *) │
00:05:11 #22316 [verbose] > │ let v5 : UH6 = UH6_1(v2, v3, v1) │
00:05:11 #22317 [verbose] > │ method29(v4, v5) │
00:05:11 #22318 [verbose] > │ | UH6_0 -> (* Nil *) │
00:05:11 #22319 [verbose] > │ v1 │
00:05:11 #22320 [verbose] > │ and method30 (v0 : Map<int32, int64>, v1 : UH6, v2 : UH2) : UH2 = │
00:05:11 #22321 [verbose] > │ match v1 with │
00:05:11 #22322 [verbose] > │ | UH6_1(v3, v4, v5) -> (* Cons *) │
00:05:11 #22323 [verbose] > │ let v6 : UH2 = method30(v0, v5, v2) │
00:05:11 #22324 [verbose] > │ let v7 : int64 = v0.[v3] │
00:05:11 #22325 [verbose] > │ let v8 : int32 = int32 v7 │
00:05:11 #22326 [verbose] > │ let v9 : string = v4.PadRight v8 │
00:05:11 #22327 [verbose] > │ UH2_1(v9, v6) │
00:05:11 #22328 [verbose] > │ | UH6_0 -> (* Nil *) │
00:05:11 #22329 [verbose] > │ v2 │
00:05:11 #22330 [verbose] > │ and method32 (v0 : UH2, v1 : int32) : int32 = │
00:05:11 #22331 [verbose] > │ match v0 with │
00:05:11 #22332 [verbose] > │ | UH2_1(v2, v3) -> (* Cons *) │
00:05:11 #22333 [verbose] > │ let v4 : int32 = v1 + 1 │
00:05:11 #22334 [verbose] > │ method32(v3, v4) │
00:05:11 #22335 [verbose] > │ | UH2_0 -> (* Nil *) │
00:05:11 #22336 [verbose] > │ v1 │
00:05:11 #22337 [verbose] > │ and method33 (v0 : (string []), v1 : UH2, v2 : int32) : int32 = │
00:05:11 #22338 [verbose] > │ match v1 with │
00:05:11 #22339 [verbose] > │ | UH2_1(v3, v4) -> (* Cons *) │
00:05:11 #22340 [verbose] > │ v0.[int v2] <- v3 │
00:05:11 #22341 [verbose] > │ let v5 : int32 = v2 + 1 │
00:05:11 #22342 [verbose] > │ method33(v0, v4, v5) │
00:05:11 #22343 [verbose] > │ | UH2_0 -> (* Nil *) │
00:05:11 #22344 [verbose] > │ v2 │
00:05:11 #22345 [verbose] > │ and method31 (v0 : UH2) : (string []) = │
00:05:11 #22346 [verbose] > │ let v1 : int32 = 0 │
00:05:11 #22347 [verbose] > │ let v2 : int32 = method32(v0, v1) │
00:05:11 #22348 [verbose] > │ let v3 : (string []) = Array.zeroCreate<string> (v2) │
00:05:11 #22349 [verbose] > │ let v4 : int32 = 0 │
00:05:11 #22350 [verbose] > │ let v5 : int32 = method33(v3, v0, v4) │
00:05:11 #22351 [verbose] > │ v3 │
00:05:11 #22352 [verbose] > │ and method35 (v0 : UH5, v1 : uint64) : uint64 = │
00:05:11 #22353 [verbose] > │ match v0 with │
00:05:11 #22354 [verbose] > │ | UH5_1(v2, v3, v4) -> (* Cons *) │
00:05:11 #22355 [verbose] > │ let v5 : uint64 = v1 + 1UL │
00:05:11 #22356 [verbose] > │ method35(v4, v5) │
00:05:11 #22357 [verbose] > │ | UH5_0 -> (* Nil *) │
00:05:11 #22358 [verbose] > │ v1 │
00:05:11 #22359 [verbose] > │ and method36 (v0 : (struct (int32 * int64) []), v1 : UH5, v2 : uint64) : │
00:05:11 #22360 [verbose] > │ uint64 = │
00:05:11 #22361 [verbose] > │ match v1 with │
00:05:11 #22362 [verbose] > │ | UH5_1(v3, v4, v5) -> (* Cons *) │
00:05:11 #22363 [verbose] > │ v0.[int v2] <- struct (v3, v4) │
00:05:11 #22364 [verbose] > │ let v6 : uint64 = v2 + 1UL │
00:05:11 #22365 [verbose] > │ method36(v0, v5, v6) │
00:05:11 #22366 [verbose] > │ | UH5_0 -> (* Nil *) │
00:05:11 #22367 [verbose] > │ v2 │
00:05:11 #22368 [verbose] > │ and method34 (v0 : UH5) : (struct (int32 * int64) []) = │
00:05:11 #22369 [verbose] > │ let v1 : uint64 = 0UL │
00:05:11 #22370 [verbose] > │ let v2 : uint64 = method35(v0, v1) │
00:05:11 #22371 [verbose] > │ let v3 : (struct (int32 * int64) []) = Array.zeroCreate<struct (int32 * │
00:05:11 #22372 [verbose] > │ int64)> (System.Convert.ToInt32(v2)) │
00:05:11 #22373 [verbose] > │ let v4 : uint64 = 0UL │
00:05:11 #22374 [verbose] > │ let v5 : uint64 = method36(v3, v0, v4) │
00:05:11 #22375 [verbose] > │ v3 │
00:05:11 #22376 [verbose] > │ and closure5 () struct (v0 : int32, v1 : int64) : int64 = │
00:05:11 #22377 [verbose] > │ v1 │
00:05:11 #22378 [verbose] > │ and closure0 () () : unit = │
00:05:11 #22379 [verbose] > │ let v0 : (unit -> unit) = closure0() │
00:05:11 #22380 [verbose] > │ let v1 : string = nameof v0 │
00:05:11 #22381 [verbose] > │ let v2 : string = "" │
00:05:11 #22382 [verbose] > │ System.Console.WriteLine v2 │
00:05:11 #22383 [verbose] > │ System.Console.WriteLine v2 │
00:05:11 #22384 [verbose] > │ let v3 : string = $"Test: {v1}" │
00:05:11 #22385 [verbose] > │ System.Console.WriteLine v3 │
00:05:11 #22386 [verbose] > │ let v4 : float = 0.0 │
00:05:11 #22387 [verbose] > │ let v5 : float = 1.0 │
00:05:11 #22388 [verbose] > │ let v6 : float = 2.0 │
00:05:11 #22389 [verbose] > │ let v7 : float = 3.0 │
00:05:11 #22390 [verbose] > │ let v8 : float = 5.0 │
00:05:11 #22391 [verbose] > │ let v9 : float = 6.0 │
00:05:11 #22392 [verbose] > │ let v10 : UH0 = UH0_0 │
00:05:11 #22393 [verbose] > │ let v11 : UH0 = UH0_1(v8, v9, v10) │
00:05:11 #22394 [verbose] > │ let v12 : UH0 = UH0_1(v6, v7, v11) │
00:05:11 #22395 [verbose] > │ let v13 : UH0 = UH0_1(v4, v5, v12) │
00:05:11 #22396 [verbose] > │ let v14 : (struct (float * float) []) = method1(v13) │
00:05:11 #22397 [verbose] > │ let v15 : uint64 = System.Convert.ToUInt64 v14.Length │
00:05:11 #22398 [verbose] > │ let v16 : (struct (string * string * string * (int64 [])) []) = │
00:05:11 #22399 [verbose] > │ Array.zeroCreate<struct (string * string * string * (int64 []))> │
00:05:11 #22400 [verbose] > │ (System.Convert.ToInt32(v15)) │
00:05:11 #22401 [verbose] > │ let v17 : Mut0 = {l0 = 0UL} : Mut0 │
00:05:11 #22402 [verbose] > │ while method4(v15, v17) do │
00:05:11 #22403 [verbose] > │ let v19 : uint64 = v17.l0 │
00:05:11 #22404 [verbose] > │ let struct (v20 : float, v21 : float) = v14.[int v19] │
00:05:11 #22405 [verbose] > │ let v22 : string = $"%A{v20}" │
00:05:11 #22406 [verbose] > │ System.Console.WriteLine v2 │
00:05:11 #22407 [verbose] > │ let v23 : string = $"Solution: {v22} " │
00:05:11 #22408 [verbose] > │ System.Console.WriteLine v23 │
00:05:11 #22409 [verbose] > │ let v24 : int32 = 0 │
00:05:11 #22410 [verbose] > │ let v25 : string = "A" │
00:05:11 #22411 [verbose] > │ let v26 : (float -> float) = closure1() │
00:05:11 #22412 [verbose] > │ let v27 : UH1 = UH1_0 │
00:05:11 #22413 [verbose] > │ let v28 : UH1 = UH1_1(v24, v25, v26, v27) │
00:05:11 #22414 [verbose] > │ let v29 : (struct (int32 * string * (float -> float)) []) = │
00:05:11 #22415 [verbose] > │ method5(v28) │
00:05:11 #22416 [verbose] > │ let v30 : uint64 = System.Convert.ToUInt64 v29.Length │
00:05:11 #22417 [verbose] > │ let v31 : (struct (float * int64) []) = Array.zeroCreate<struct │
00:05:11 #22418 [verbose] > │ (float * int64)> (System.Convert.ToInt32(v30)) │
00:05:11 #22419 [verbose] > │ let v32 : Mut0 = {l0 = 0UL} : Mut0 │
00:05:11 #22420 [verbose] > │ while method4(v30, v32) do │
00:05:11 #22421 [verbose] > │ let v34 : uint64 = v32.l0 │
00:05:11 #22422 [verbose] > │ let struct (v35 : int32, v36 : string, v37 : (float -> float)) = │
00:05:11 #22423 [verbose] > │ v29.[int v34] │
00:05:11 #22424 [verbose] > │ let v38 : unit option = None │
00:05:11 #22425 [verbose] > │ let mutable _v38 = v38 │
00:05:11 #22426 [verbose] > │ #if FABLE_COMPILER_RUST && !WASM && !CONTRACT │
00:05:11 #22427 [verbose] > │ () │
00:05:11 #22428 [verbose] > │ #endif │
00:05:11 #22429 [verbose] > │ #if FABLE_COMPILER_RUST && WASM │
00:05:11 #22430 [verbose] > │ () │
00:05:11 #22431 [verbose] > │ #endif │
00:05:11 #22432 [verbose] > │ #if FABLE_COMPILER_RUST && CONTRACT │
00:05:11 #22433 [verbose] > │ () │
00:05:11 #22434 [verbose] > │ #endif │
00:05:11 #22435 [verbose] > │ #if !FABLE_COMPILER && !FABLE_COMPILER_RUST && │
00:05:11 #22436 [verbose] > │ !FABLE_COMPILER_TYPESCRIPT && !WASM && !CONTRACT │
00:05:11 #22437 [verbose] > │ System.GC.Collect () │
00:05:11 #22438 [verbose] > │ () │
00:05:11 #22439 [verbose] > │ #endif │
00:05:11 #22440 [verbose] > │ #if FABLE_COMPILER_TYPESCRIPT │
00:05:11 #22441 [verbose] > │ () │
00:05:11 #22442 [verbose] > │ #endif │
00:05:11 #22443 [verbose] > │ #if FABLE_COMPILER_PYTHON || FABLE_COMPILER_PHP || │
00:05:11 #22444 [verbose] > │ FABLE_COMPILER_DART │
00:05:11 #22445 [verbose] > │ Unchecked.defaultof<unit> │
00:05:11 #22446 [verbose] > │ () │
00:05:11 #22447 [verbose] > │ #endif │
00:05:11 #22448 [verbose] > │ |> fun x -> _v38 <- Some x │
00:05:11 #22449 [verbose] > │ _v38.Value │
00:05:11 #22450 [verbose] > │ let v39 : (unit -> System.Diagnostics.Stopwatch) = │
00:05:11 #22451 [verbose] > │ System.Diagnostics.Stopwatch │
00:05:11 #22452 [verbose] > │ let v40 : System.Diagnostics.Stopwatch = v39 () │
00:05:11 #22453 [verbose] > │ v40.Start () │
00:05:11 #22454 [verbose] > │ let v41 : int64 = v40.ElapsedMilliseconds │
00:05:11 #22455 [verbose] > │ let v42 : (int32 []) = Array.zeroCreate<int32> (2000001) │
00:05:11 #22456 [verbose] > │ let v43 : Mut1 = {l0 = 0} : Mut1 │
00:05:11 #22457 [verbose] > │ while method8(v43) do │
00:05:11 #22458 [verbose] > │ let v45 : int32 = v43.l0 │
00:05:11 #22459 [verbose] > │ v42.[int v45] <- v45 │
00:05:11 #22460 [verbose] > │ let v46 : int32 = v45 + 1 │
00:05:11 #22461 [verbose] > │ v43.l0 <- v46 │
00:05:11 #22462 [verbose] > │ () │
00:05:11 #22463 [verbose] > │ let v47 : ((int32 -> float) -> ((int32 []) -> (float []))) = │
00:05:11 #22464 [verbose] > │ Array.Parallel.map │
00:05:11 #22465 [verbose] > │ let v48 : (int32 -> float) = closure2(v20, v37) │
00:05:11 #22466 [verbose] > │ let v49 : ((int32 []) -> (float [])) = v47 v48 │
00:05:11 #22467 [verbose] > │ let v50 : (float []) = v49 v42 │
00:05:11 #22468 [verbose] > │ let v51 : int32 = v50.Length │
00:05:11 #22469 [verbose] > │ let v52 : int32 = v51 - 1 │
00:05:11 #22470 [verbose] > │ let v53 : float = v50.[int v52] │
00:05:11 #22471 [verbose] > │ let v54 : int64 = v40.ElapsedMilliseconds │
00:05:11 #22472 [verbose] > │ let v55 : int64 = v54 - v41 │
00:05:11 #22473 [verbose] > │ let v56 : string = $"Test case {v35 + 1}. {v36}. Time: {v55} " │
00:05:11 #22474 [verbose] > │ System.Console.WriteLine v56 │
00:05:11 #22475 [verbose] > │ v31.[int v34] <- struct (v53, v55) │
00:05:11 #22476 [verbose] > │ let v57 : uint64 = v34 + 1UL │
00:05:11 #22477 [verbose] > │ v32.l0 <- v57 │
00:05:11 #22478 [verbose] > │ () │
00:05:11 #22479 [verbose] > │ let v58 : uint64 = System.Convert.ToUInt64 v31.Length │
00:05:11 #22480 [verbose] > │ let v59 : (float []) = Array.zeroCreate<float> │
00:05:11 #22481 [verbose] > │ (System.Convert.ToInt32(v58)) │
00:05:11 #22482 [verbose] > │ let v60 : Mut0 = {l0 = 0UL} : Mut0 │
00:05:11 #22483 [verbose] > │ while method4(v58, v60) do │
00:05:11 #22484 [verbose] > │ let v62 : uint64 = v60.l0 │
00:05:11 #22485 [verbose] > │ let struct (v63 : float, v64 : int64) = v31.[int v62] │
00:05:11 #22486 [verbose] > │ v59.[int v62] <- v63 │
00:05:11 #22487 [verbose] > │ let v65 : uint64 = v62 + 1UL │
00:05:11 #22488 [verbose] > │ v60.l0 <- v65 │
00:05:11 #22489 [verbose] > │ () │
00:05:11 #22490 [verbose] > │ let v66 : uint64 = System.Convert.ToUInt64 v59.Length │
00:05:11 #22491 [verbose] > │ let v67 : bool = v66 <= 1UL │
00:05:11 #22492 [verbose] > │ if v67 then │
00:05:11 #22493 [verbose] > │ () │
00:05:11 #22494 [verbose] > │ else │
00:05:11 #22495 [verbose] > │ let v68 : float = v59.[int 0UL] │
00:05:11 #22496 [verbose] > │ let v69 : uint64 = 0UL │
00:05:11 #22497 [verbose] > │ let v70 : bool = method9(v68, v59, v69) │
00:05:11 #22498 [verbose] > │ if v70 then │
00:05:11 #22499 [verbose] > │ () │
00:05:11 #22500 [verbose] > │ else │
00:05:11 #22501 [verbose] > │ let v71 : string = $"Challenge error: {v59}" │
00:05:11 #22502 [verbose] > │ failwith<unit> v71 │
00:05:11 #22503 [verbose] > │ let v72 : string = $"%A{v21}" │
00:05:11 #22504 [verbose] > │ let v73 : (float []) = Array.zeroCreate<float> │
00:05:11 #22505 [verbose] > │ (System.Convert.ToInt32(v58)) │
00:05:11 #22506 [verbose] > │ let v74 : Mut0 = {l0 = 0UL} : Mut0 │
00:05:11 #22507 [verbose] > │ while method4(v58, v74) do │
00:05:11 #22508 [verbose] > │ let v76 : uint64 = v74.l0 │
00:05:11 #22509 [verbose] > │ let struct (v77 : float, v78 : int64) = v31.[int v76] │
00:05:11 #22510 [verbose] > │ v73.[int v76] <- v77 │
00:05:11 #22511 [verbose] > │ let v79 : uint64 = v76 + 1UL │
00:05:11 #22512 [verbose] > │ v74.l0 <- v79 │
00:05:11 #22513 [verbose] > │ () │
00:05:11 #22514 [verbose] > │ let v80 : float = v73.[int 0UL] │
00:05:11 #22515 [verbose] > │ let v81 : string = $"%A{v80}" │
00:05:11 #22516 [verbose] > │ let v82 : (int64 []) = Array.zeroCreate<int64> │
00:05:11 #22517 [verbose] > │ (System.Convert.ToInt32(v58)) │
00:05:11 #22518 [verbose] > │ let v83 : Mut0 = {l0 = 0UL} : Mut0 │
00:05:11 #22519 [verbose] > │ while method4(v58, v83) do │
00:05:11 #22520 [verbose] > │ let v85 : uint64 = v83.l0 │
00:05:11 #22521 [verbose] > │ let struct (v86 : float, v87 : int64) = v31.[int v85] │
00:05:11 #22522 [verbose] > │ v82.[int v85] <- v87 │
00:05:11 #22523 [verbose] > │ let v88 : uint64 = v85 + 1UL │
00:05:11 #22524 [verbose] > │ v83.l0 <- v88 │
00:05:11 #22525 [verbose] > │ () │
00:05:11 #22526 [verbose] > │ v16.[int v19] <- struct (v72, v22, v81, v82) │
00:05:11 #22527 [verbose] > │ let v89 : uint64 = v19 + 1UL │
00:05:11 #22528 [verbose] > │ v17.l0 <- v89 │
00:05:11 #22529 [verbose] > │ () │
00:05:11 #22530 [verbose] > │ let v90 : uint64 = System.Convert.ToUInt64 v16.Length │
00:05:11 #22531 [verbose] > │ let v91 : (struct (UH2 * US0) []) = Array.zeroCreate<struct (UH2 * US0)> │
00:05:11 #22532 [verbose] > │ (System.Convert.ToInt32(v90)) │
00:05:11 #22533 [verbose] > │ let v92 : Mut0 = {l0 = 0UL} : Mut0 │
00:05:11 #22534 [verbose] > │ while method4(v90, v92) do │
00:05:11 #22535 [verbose] > │ let v94 : uint64 = v92.l0 │
00:05:11 #22536 [verbose] > │ let struct (v95 : string, v96 : string, v97 : string, v98 : (int64 [ │
00:05:11 #22537 [verbose] > │ ])) = v16.[int v94] │
00:05:11 #22538 [verbose] > │ let v99 : uint64 = System.Convert.ToUInt64 v98.Length │
00:05:11 #22539 [verbose] > │ let v100 : UH3 = UH3_0 │
00:05:11 #22540 [verbose] > │ let v101 : Mut2 = {l0 = 0UL; l1 = v100; l2 = 0L} : Mut2 │
00:05:11 #22541 [verbose] > │ while method10(v99, v101) do │
00:05:11 #22542 [verbose] > │ let v103 : uint64 = v101.l0 │
00:05:11 #22543 [verbose] > │ let struct (v104 : UH3, v105 : int64) = v101.l1, v101.l2 │
00:05:11 #22544 [verbose] > │ let v106 : int64 = v98.[int v103] │
00:05:11 #22545 [verbose] > │ let v107 : int64 = v105 + 1L │
00:05:11 #22546 [verbose] > │ let v108 : uint64 = v103 + 1UL │
00:05:11 #22547 [verbose] > │ let v109 : UH3 = UH3_1(v105, v106, v104) │
00:05:11 #22548 [verbose] > │ v101.l0 <- v108 │
00:05:11 #22549 [verbose] > │ v101.l1 <- v109 │
00:05:11 #22550 [verbose] > │ v101.l2 <- v107 │
00:05:11 #22551 [verbose] > │ () │
00:05:11 #22552 [verbose] > │ let struct (v110 : UH3, v111 : int64) = v101.l1, v101.l2 │
00:05:11 #22553 [verbose] > │ let v112 : UH3 = UH3_0 │
00:05:11 #22554 [verbose] > │ let v113 : UH3 = method11(v110, v112) │
00:05:11 #22555 [verbose] > │ let v114 : (struct (int64 * int64) []) = method12(v113) │
00:05:11 #22556 [verbose] > │ let v115 : int32 = v114.Length │
00:05:11 #22557 [verbose] > │ let v116 : (struct (int64 * int64) []) = Array.zeroCreate<struct │
00:05:11 #22558 [verbose] > │ (int64 * int64)> (v115) │
00:05:11 #22559 [verbose] > │ let v117 : Mut1 = {l0 = 0} : Mut1 │
00:05:11 #22560 [verbose] > │ while method15(v115, v117) do │
00:05:11 #22561 [verbose] > │ let v119 : int32 = v117.l0 │
00:05:11 #22562 [verbose] > │ let struct (v120 : int64, v121 : int64) = v114.[int v119] │
00:05:11 #22563 [verbose] > │ let v122 : int64 = v120 + 1L │
00:05:11 #22564 [verbose] > │ v116.[int v119] <- struct (v122, v121) │
00:05:11 #22565 [verbose] > │ let v123 : int32 = v119 + 1 │
00:05:11 #22566 [verbose] > │ v117.l0 <- v123 │
00:05:11 #22567 [verbose] > │ () │
00:05:11 #22568 [verbose] > │ let v124 : ((struct (int64 * int64) -> int64) -> ((struct (int64 * │
00:05:11 #22569 [verbose] > │ int64) []) -> (struct (int64 * int64) []))) = Array.sortBy │
00:05:11 #22570 [verbose] > │ let v125 : (struct (int64 * int64) -> int64) = closure3() │
00:05:11 #22571 [verbose] > │ let v126 : ((struct (int64 * int64) []) -> (struct (int64 * int64) [ │
00:05:11 #22572 [verbose] > │ ])) = v124 v125 │
00:05:11 #22573 [verbose] > │ let v127 : (struct (int64 * int64) []) = v126 v116 │
00:05:11 #22574 [verbose] > │ let struct (v128 : int64, v129 : int64) = v127.[int 0] │
00:05:11 #22575 [verbose] > │ let v130 : string = $"%A{struct (v128, v129)}" │
00:05:11 #22576 [verbose] > │ let v131 : bool = v95 = v97 │
00:05:11 #22577 [verbose] > │ let v136 : US0 = │
00:05:11 #22578 [verbose] > │ if v131 then │
00:05:11 #22579 [verbose] > │ let v132 : System.ConsoleColor = │
00:05:11 #22580 [verbose] > │ System.ConsoleColor.DarkGreen │
00:05:11 #22581 [verbose] > │ US0_0(v132) │
00:05:11 #22582 [verbose] > │ else │
00:05:11 #22583 [verbose] > │ let v134 : System.ConsoleColor = System.ConsoleColor.DarkRed │
00:05:11 #22584 [verbose] > │ US0_0(v134) │
00:05:11 #22585 [verbose] > │ let v137 : UH2 = UH2_0 │
00:05:11 #22586 [verbose] > │ let v138 : UH2 = UH2_1(v130, v137) │
00:05:11 #22587 [verbose] > │ let v139 : UH2 = UH2_1(v97, v138) │
00:05:11 #22588 [verbose] > │ let v140 : UH2 = UH2_1(v95, v139) │
00:05:11 #22589 [verbose] > │ let v141 : UH2 = UH2_1(v96, v140) │
00:05:11 #22590 [verbose] > │ v91.[int v94] <- struct (v141, v136) │
00:05:11 #22591 [verbose] > │ let v142 : uint64 = v94 + 1UL │
00:05:11 #22592 [verbose] > │ v92.l0 <- v142 │
00:05:11 #22593 [verbose] > │ () │
00:05:11 #22594 [verbose] > │ let v143 : string = "Input" │
00:05:11 #22595 [verbose] > │ let v144 : string = "Expected" │
00:05:11 #22596 [verbose] > │ let v145 : string = "Result" │
00:05:11 #22597 [verbose] > │ let v146 : string = "Best" │
00:05:11 #22598 [verbose] > │ let v147 : UH2 = UH2_0 │
00:05:11 #22599 [verbose] > │ let v148 : UH2 = UH2_1(v146, v147) │
00:05:11 #22600 [verbose] > │ let v149 : UH2 = UH2_1(v145, v148) │
00:05:11 #22601 [verbose] > │ let v150 : UH2 = UH2_1(v144, v149) │
00:05:11 #22602 [verbose] > │ let v151 : UH2 = UH2_1(v143, v150) │
00:05:11 #22603 [verbose] > │ let v152 : US0 = US0_1 │
00:05:11 #22604 [verbose] > │ let v153 : string = "---" │
00:05:11 #22605 [verbose] > │ let v154 : UH2 = UH2_0 │
00:05:11 #22606 [verbose] > │ let v155 : UH2 = UH2_1(v153, v154) │
00:05:11 #22607 [verbose] > │ let v156 : UH2 = UH2_1(v153, v155) │
00:05:11 #22608 [verbose] > │ let v157 : UH2 = UH2_1(v153, v156) │
00:05:11 #22609 [verbose] > │ let v158 : UH2 = UH2_1(v153, v157) │
00:05:11 #22610 [verbose] > │ let v159 : US0 = US0_1 │
00:05:11 #22611 [verbose] > │ let v160 : UH4 = UH4_0 │
00:05:11 #22612 [verbose] > │ let v161 : UH4 = UH4_1(v158, v159, v160) │
00:05:11 #22613 [verbose] > │ let v162 : UH4 = UH4_1(v151, v152, v161) │
00:05:11 #22614 [verbose] > │ let v163 : (struct (UH2 * US0) []) = method16(v162) │
00:05:11 #22615 [verbose] > │ let v164 : uint64 = System.Convert.ToUInt64 v163.Length │
00:05:11 #22616 [verbose] > │ let v165 : uint64 = System.Convert.ToUInt64 v91.Length │
00:05:11 #22617 [verbose] > │ let v166 : uint64 = v164 + v165 │
00:05:11 #22618 [verbose] > │ let v167 : (struct (UH2 * US0) []) = Array.zeroCreate<struct (UH2 * │
00:05:11 #22619 [verbose] > │ US0)> (System.Convert.ToInt32(v166)) │
00:05:11 #22620 [verbose] > │ let v168 : Mut0 = {l0 = 0UL} : Mut0 │
00:05:11 #22621 [verbose] > │ while method4(v166, v168) do │
00:05:11 #22622 [verbose] > │ let v170 : uint64 = v168.l0 │
00:05:11 #22623 [verbose] > │ let v171 : bool = v170 < v164 │
00:05:11 #22624 [verbose] > │ let struct (v177 : UH2, v178 : US0) = │
00:05:11 #22625 [verbose] > │ if v171 then │
00:05:11 #22626 [verbose] > │ let struct (v172 : UH2, v173 : US0) = v163.[int v170] │
00:05:11 #22627 [verbose] > │ struct (v172, v173) │
00:05:11 #22628 [verbose] > │ else │
00:05:11 #22629 [verbose] > │ let v174 : uint64 = v170 - v164 │
00:05:11 #22630 [verbose] > │ let struct (v175 : UH2, v176 : US0) = v91.[int v174] │
00:05:11 #22631 [verbose] > │ struct (v175, v176) │
00:05:11 #22632 [verbose] > │ v167.[int v170] <- struct (v177, v178) │
00:05:11 #22633 [verbose] > │ let v179 : uint64 = v170 + 1UL │
00:05:11 #22634 [verbose] > │ v168.l0 <- v179 │
00:05:11 #22635 [verbose] > │ () │
00:05:11 #22636 [verbose] > │ let v180 : uint64 = System.Convert.ToUInt64 v167.Length │
00:05:11 #22637 [verbose] > │ let v181 : ((string []) []) = Array.zeroCreate<(string [])> │
00:05:11 #22638 [verbose] > │ (System.Convert.ToInt32(v180)) │
00:05:11 #22639 [verbose] > │ let v182 : Mut0 = {l0 = 0UL} : Mut0 │
00:05:11 #22640 [verbose] > │ while method4(v180, v182) do │
00:05:11 #22641 [verbose] > │ let v184 : uint64 = v182.l0 │
00:05:11 #22642 [verbose] > │ let struct (v185 : UH2, v186 : US0) = v167.[int v184] │
00:05:11 #22643 [verbose] > │ let v187 : (string []) = method19(v185) │
00:05:11 #22644 [verbose] > │ v181.[int v184] <- v187 │
00:05:11 #22645 [verbose] > │ let v188 : uint64 = v184 + 1UL │
00:05:11 #22646 [verbose] > │ v182.l0 <- v188 │
00:05:11 #22647 [verbose] > │ () │
00:05:11 #22648 [verbose] > │ let v189 : (((string []) []) -> ((string []) [])) = Array.transpose │
00:05:11 #22649 [verbose] > │ let v190 : ((string []) []) = v189 v181 │
00:05:11 #22650 [verbose] > │ let v191 : uint64 = System.Convert.ToUInt64 v190.Length │
00:05:11 #22651 [verbose] > │ let v192 : (int64 []) = Array.zeroCreate<int64> │
00:05:11 #22652 [verbose] > │ (System.Convert.ToInt32(v191)) │
00:05:11 #22653 [verbose] > │ let v193 : Mut0 = {l0 = 0UL} : Mut0 │
00:05:11 #22654 [verbose] > │ while method4(v191, v193) do │
00:05:11 #22655 [verbose] > │ let v195 : uint64 = v193.l0 │
00:05:11 #22656 [verbose] > │ let v196 : (string []) = v190.[int v195] │
00:05:11 #22657 [verbose] > │ let v197 : uint64 = System.Convert.ToUInt64 v196.Length │
00:05:11 #22658 [verbose] > │ let v198 : (int64 []) = Array.zeroCreate<int64> │
00:05:11 #22659 [verbose] > │ (System.Convert.ToInt32(v197)) │
00:05:11 #22660 [verbose] > │ let v199 : Mut0 = {l0 = 0UL} : Mut0 │
00:05:11 #22661 [verbose] > │ while method4(v197, v199) do │
00:05:11 #22662 [verbose] > │ let v201 : uint64 = v199.l0 │
00:05:11 #22663 [verbose] > │ let v202 : string = v196.[int v201] │
00:05:11 #22664 [verbose] > │ let v203 : int64 = System.Convert.ToInt64 v202.Length │
00:05:11 #22665 [verbose] > │ v198.[int v201] <- v203 │
00:05:11 #22666 [verbose] > │ let v204 : uint64 = v201 + 1UL │
00:05:11 #22667 [verbose] > │ v199.l0 <- v204 │
00:05:11 #22668 [verbose] > │ () │
00:05:11 #22669 [verbose] > │ let v205 : ((int64 []) -> (int64 [])) = Array.sortDescending │
00:05:11 #22670 [verbose] > │ let v206 : (int64 []) = v205 v198 │
00:05:11 #22671 [verbose] > │ let v207 : (int32 -> ((int64 []) -> int64 option)) = Array.tryItem │
00:05:11 #22672 [verbose] > │ let v208 : ((int64 []) -> int64 option) = v207 0 │
00:05:11 #22673 [verbose] > │ let v209 : int64 option = v208 v206 │
00:05:11 #22674 [verbose] > │ let v210 : (int64 -> US1) = method22() │
00:05:11 #22675 [verbose] > │ let v211 : US1 = US1_1 │
00:05:11 #22676 [verbose] > │ let v212 : US1 = v209 |> Option.map v210 |> Option.defaultValue v211 │
00:05:11 #22677 [verbose] > │ let v215 : int64 = │
00:05:11 #22678 [verbose] > │ match v212 with │
00:05:11 #22679 [verbose] > │ | US1_1 -> (* None *) │
00:05:11 #22680 [verbose] > │ 0L │
00:05:11 #22681 [verbose] > │ | US1_0(v213) -> (* Some *) │
00:05:11 #22682 [verbose] > │ v213 │
00:05:11 #22683 [verbose] > │ v192.[int v195] <- v215 │
00:05:11 #22684 [verbose] > │ let v216 : uint64 = v195 + 1UL │
00:05:11 #22685 [verbose] > │ v193.l0 <- v216 │
00:05:11 #22686 [verbose] > │ () │
00:05:11 #22687 [verbose] > │ let v217 : uint64 = System.Convert.ToUInt64 v192.Length │
00:05:11 #22688 [verbose] > │ let v218 : UH5 = UH5_0 │
00:05:11 #22689 [verbose] > │ let v219 : Mut3 = {l0 = 0UL; l1 = v218; l2 = 0} : Mut3 │
00:05:11 #22690 [verbose] > │ while method23(v217, v219) do │
00:05:11 #22691 [verbose] > │ let v221 : uint64 = v219.l0 │
00:05:11 #22692 [verbose] > │ let struct (v222 : UH5, v223 : int32) = v219.l1, v219.l2 │
00:05:11 #22693 [verbose] > │ let v224 : int64 = v192.[int v221] │
00:05:11 #22694 [verbose] > │ let v225 : int32 = v223 + 1 │
00:05:11 #22695 [verbose] > │ let v226 : uint64 = v221 + 1UL │
00:05:11 #22696 [verbose] > │ let v227 : UH5 = UH5_1(v223, v224, v222) │
00:05:11 #22697 [verbose] > │ v219.l0 <- v226 │
00:05:11 #22698 [verbose] > │ v219.l1 <- v227 │
00:05:11 #22699 [verbose] > │ v219.l2 <- v225 │
00:05:11 #22700 [verbose] > │ () │
00:05:11 #22701 [verbose] > │ let struct (v228 : UH5, v229 : int32) = v219.l1, v219.l2 │
00:05:11 #22702 [verbose] > │ let v230 : UH5 = UH5_0 │
00:05:11 #22703 [verbose] > │ let v231 : UH5 = method24(v228, v230) │
00:05:11 #22704 [verbose] > │ let v232 : (struct (int32 * int64) []) = method25(v231) │
00:05:11 #22705 [verbose] > │ let v233 : Map<int32, int64> = v232 |> Array.map (fun (struct (a, b)) -> │
00:05:11 #22706 [verbose] > │ a, b) |> Map.ofArray │
00:05:11 #22707 [verbose] > │ let v234 : (struct ((string []) * US0) []) = Array.zeroCreate<struct │
00:05:11 #22708 [verbose] > │ ((string []) * US0)> (System.Convert.ToInt32(v180)) │
00:05:11 #22709 [verbose] > │ let v235 : Mut0 = {l0 = 0UL} : Mut0 │
00:05:11 #22710 [verbose] > │ while method4(v180, v235) do │
00:05:11 #22711 [verbose] > │ let v237 : uint64 = v235.l0 │
00:05:11 #22712 [verbose] > │ let struct (v238 : UH2, v239 : US0) = v167.[int v237] │
00:05:11 #22713 [verbose] > │ let v240 : UH6 = UH6_0 │
00:05:11 #22714 [verbose] > │ let v241 : int32 = 0 │
00:05:11 #22715 [verbose] > │ let struct (v242 : UH6, v243 : int32) = method28(v238, v240, v241) │
00:05:11 #22716 [verbose] > │ let v244 : UH6 = UH6_0 │
00:05:11 #22717 [verbose] > │ let v245 : UH6 = method29(v242, v244) │
00:05:11 #22718 [verbose] > │ let v246 : UH2 = UH2_0 │
00:05:11 #22719 [verbose] > │ let v247 : UH2 = method30(v233, v245, v246) │
00:05:11 #22720 [verbose] > │ let v248 : (string []) = method31(v247) │
00:05:11 #22721 [verbose] > │ v234.[int v237] <- struct (v248, v239) │
00:05:11 #22722 [verbose] > │ let v249 : uint64 = v237 + 1UL │
00:05:11 #22723 [verbose] > │ v235.l0 <- v249 │
00:05:11 #22724 [verbose] > │ () │
00:05:11 #22725 [verbose] > │ System.Console.WriteLine v2 │
00:05:11 #22726 [verbose] > │ let v250 : uint64 = System.Convert.ToUInt64 v234.Length │
00:05:11 #22727 [verbose] > │ let v251 : Mut0 = {l0 = 0UL} : Mut0 │
00:05:11 #22728 [verbose] > │ while method4(v250, v251) do │
00:05:11 #22729 [verbose] > │ let v253 : uint64 = v251.l0 │
00:05:11 #22730 [verbose] > │ let struct (v254 : (string []), v255 : US0) = v234.[int v253] │
00:05:11 #22731 [verbose] > │ match v255 with │
00:05:11 #22732 [verbose] > │ | US0_1 -> (* None *) │
00:05:11 #22733 [verbose] > │ let v258 : unit option = None │
00:05:11 #22734 [verbose] > │ let mutable _v258 = v258 │
00:05:11 #22735 [verbose] > │ #if FABLE_COMPILER_RUST && !WASM && !CONTRACT │
00:05:11 #22736 [verbose] > │ () │
00:05:11 #22737 [verbose] > │ #endif │
00:05:11 #22738 [verbose] > │ #if FABLE_COMPILER_RUST && WASM │
00:05:11 #22739 [verbose] > │ () │
00:05:11 #22740 [verbose] > │ #endif │
00:05:11 #22741 [verbose] > │ #if FABLE_COMPILER_RUST && CONTRACT │
00:05:11 #22742 [verbose] > │ () │
00:05:11 #22743 [verbose] > │ #endif │
00:05:11 #22744 [verbose] > │ #if !FABLE_COMPILER && !FABLE_COMPILER_RUST && │
00:05:11 #22745 [verbose] > │ !FABLE_COMPILER_TYPESCRIPT && !WASM && !CONTRACT │
00:05:11 #22746 [verbose] > │ System.Console.ResetColor () │
00:05:11 #22747 [verbose] > │ () │
00:05:11 #22748 [verbose] > │ #endif │
00:05:11 #22749 [verbose] > │ #if FABLE_COMPILER_TYPESCRIPT │
00:05:11 #22750 [verbose] > │ () │
00:05:11 #22751 [verbose] > │ #endif │
00:05:11 #22752 [verbose] > │ #if FABLE_COMPILER_PYTHON || FABLE_COMPILER_PHP || │
00:05:11 #22753 [verbose] > │ FABLE_COMPILER_DART │
00:05:11 #22754 [verbose] > │ Unchecked.defaultof<unit> │
00:05:11 #22755 [verbose] > │ () │
00:05:11 #22756 [verbose] > │ #endif │
00:05:11 #22757 [verbose] > │ |> fun x -> _v258 <- Some x │
00:05:11 #22758 [verbose] > │ _v258.Value │
00:05:11 #22759 [verbose] > │ () │
00:05:11 #22760 [verbose] > │ | US0_0(v256) -> (* Some *) │
00:05:11 #22761 [verbose] > │ let v257 : unit option = None │
00:05:11 #22762 [verbose] > │ let mutable _v257 = v257 │
00:05:11 #22763 [verbose] > │ #if FABLE_COMPILER_RUST && !WASM && !CONTRACT │
00:05:11 #22764 [verbose] > │ () │
00:05:11 #22765 [verbose] > │ #endif │
00:05:11 #22766 [verbose] > │ #if FABLE_COMPILER_RUST && WASM │
00:05:11 #22767 [verbose] > │ () │
00:05:11 #22768 [verbose] > │ #endif │
00:05:11 #22769 [verbose] > │ #if FABLE_COMPILER_RUST && CONTRACT │
00:05:11 #22770 [verbose] > │ () │
00:05:11 #22771 [verbose] > │ #endif │
00:05:11 #22772 [verbose] > │ #if !FABLE_COMPILER && !FABLE_COMPILER_RUST && │
00:05:11 #22773 [verbose] > │ !FABLE_COMPILER_TYPESCRIPT && !WASM && !CONTRACT │
00:05:11 #22774 [verbose] > │ System.Console.ForegroundColor <- v256 │
00:05:11 #22775 [verbose] > │ () │
00:05:11 #22776 [verbose] > │ #endif │
00:05:11 #22777 [verbose] > │ #if FABLE_COMPILER_TYPESCRIPT │
00:05:11 #22778 [verbose] > │ () │
00:05:11 #22779 [verbose] > │ #endif │
00:05:11 #22780 [verbose] > │ #if FABLE_COMPILER_PYTHON || FABLE_COMPILER_PHP || │
00:05:11 #22781 [verbose] > │ FABLE_COMPILER_DART │
00:05:11 #22782 [verbose] > │ Unchecked.defaultof<unit> │
00:05:11 #22783 [verbose] > │ () │
00:05:11 #22784 [verbose] > │ #endif │
00:05:11 #22785 [verbose] > │ |> fun x -> _v257 <- Some x │
00:05:11 #22786 [verbose] > │ _v257.Value │
00:05:11 #22787 [verbose] > │ () │
00:05:11 #22788 [verbose] > │ let v259 : string = "\t| " │
00:05:11 #22789 [verbose] > │ let v260 : string = System.String.Join (v259, v254) │
00:05:11 #22790 [verbose] > │ System.Console.WriteLine v260 │
00:05:11 #22791 [verbose] > │ let v261 : unit option = None │
00:05:11 #22792 [verbose] > │ let mutable _v261 = v261 │
00:05:11 #22793 [verbose] > │ #if FABLE_COMPILER_RUST && !WASM && !CONTRACT │
00:05:11 #22794 [verbose] > │ () │
00:05:11 #22795 [verbose] > │ #endif │
00:05:11 #22796 [verbose] > │ #if FABLE_COMPILER_RUST && WASM │
00:05:11 #22797 [verbose] > │ () │
00:05:11 #22798 [verbose] > │ #endif │
00:05:11 #22799 [verbose] > │ #if FABLE_COMPILER_RUST && CONTRACT │
00:05:11 #22800 [verbose] > │ () │
00:05:11 #22801 [verbose] > │ #endif │
00:05:11 #22802 [verbose] > │ #if !FABLE_COMPILER && !FABLE_COMPILER_RUST && │
00:05:11 #22803 [verbose] > │ !FABLE_COMPILER_TYPESCRIPT && !WASM && !CONTRACT │
00:05:11 #22804 [verbose] > │ System.Console.ResetColor () │
00:05:11 #22805 [verbose] > │ () │
00:05:11 #22806 [verbose] > │ #endif │
00:05:11 #22807 [verbose] > │ #if FABLE_COMPILER_TYPESCRIPT │
00:05:11 #22808 [verbose] > │ () │
00:05:11 #22809 [verbose] > │ #endif │
00:05:11 #22810 [verbose] > │ #if FABLE_COMPILER_PYTHON || FABLE_COMPILER_PHP || │
00:05:11 #22811 [verbose] > │ FABLE_COMPILER_DART │
00:05:11 #22812 [verbose] > │ Unchecked.defaultof<unit> │
00:05:11 #22813 [verbose] > │ () │
00:05:11 #22814 [verbose] > │ #endif │
00:05:11 #22815 [verbose] > │ |> fun x -> _v261 <- Some x │
00:05:11 #22816 [verbose] > │ _v261.Value │
00:05:11 #22817 [verbose] > │ let v262 : uint64 = v253 + 1UL │
00:05:11 #22818 [verbose] > │ v251.l0 <- v262 │
00:05:11 #22819 [verbose] > │ () │
00:05:11 #22820 [verbose] > │ let v263 : ((float []) []) = Array.zeroCreate<(float [])> │
00:05:11 #22821 [verbose] > │ (System.Convert.ToInt32(v90)) │
00:05:11 #22822 [verbose] > │ let v264 : Mut0 = {l0 = 0UL} : Mut0 │
00:05:11 #22823 [verbose] > │ while method4(v90, v264) do │
00:05:11 #22824 [verbose] > │ let v266 : uint64 = v264.l0 │
00:05:11 #22825 [verbose] > │ let struct (v267 : string, v268 : string, v269 : string, v270 : │
00:05:11 #22826 [verbose] > │ (int64 [])) = v16.[int v266] │
00:05:11 #22827 [verbose] > │ let v271 : (int64 -> float) = float │
00:05:11 #22828 [verbose] > │ let v272 : uint64 = System.Convert.ToUInt64 v270.Length │
00:05:11 #22829 [verbose] > │ let v273 : (float []) = Array.zeroCreate<float> │
00:05:11 #22830 [verbose] > │ (System.Convert.ToInt32(v272)) │
00:05:11 #22831 [verbose] > │ let v274 : Mut0 = {l0 = 0UL} : Mut0 │
00:05:11 #22832 [verbose] > │ while method4(v272, v274) do │
00:05:11 #22833 [verbose] > │ let v276 : uint64 = v274.l0 │
00:05:11 #22834 [verbose] > │ let v277 : int64 = v270.[int v276] │
00:05:11 #22835 [verbose] > │ let v278 : float = v271 v277 │
00:05:11 #22836 [verbose] > │ v273.[int v276] <- v278 │
00:05:11 #22837 [verbose] > │ let v279 : uint64 = v276 + 1UL │
00:05:11 #22838 [verbose] > │ v274.l0 <- v279 │
00:05:11 #22839 [verbose] > │ () │
00:05:11 #22840 [verbose] > │ v263.[int v266] <- v273 │
00:05:11 #22841 [verbose] > │ let v280 : uint64 = v266 + 1UL │
00:05:11 #22842 [verbose] > │ v264.l0 <- v280 │
00:05:11 #22843 [verbose] > │ () │
00:05:11 #22844 [verbose] > │ let v281 : (((float []) []) -> ((float []) [])) = Array.transpose │
00:05:11 #22845 [verbose] > │ let v282 : ((float []) []) = v281 v263 │
00:05:11 #22846 [verbose] > │ let v283 : uint64 = System.Convert.ToUInt64 v282.Length │
00:05:11 #22847 [verbose] > │ let v284 : (float []) = Array.zeroCreate<float> │
00:05:11 #22848 [verbose] > │ (System.Convert.ToInt32(v283)) │
00:05:11 #22849 [verbose] > │ let v285 : Mut0 = {l0 = 0UL} : Mut0 │
00:05:11 #22850 [verbose] > │ while method4(v283, v285) do │
00:05:11 #22851 [verbose] > │ let v287 : uint64 = v285.l0 │
00:05:11 #22852 [verbose] > │ let v288 : (float []) = v282.[int v287] │
00:05:11 #22853 [verbose] > │ let v289 : ((float []) -> float) = Array.average │
00:05:11 #22854 [verbose] > │ let v290 : float = v289 v288 │
00:05:11 #22855 [verbose] > │ v284.[int v287] <- v290 │
00:05:11 #22856 [verbose] > │ let v291 : uint64 = v287 + 1UL │
00:05:11 #22857 [verbose] > │ v285.l0 <- v291 │
00:05:11 #22858 [verbose] > │ () │
00:05:11 #22859 [verbose] > │ let v292 : (float -> int64) = int64 │
00:05:11 #22860 [verbose] > │ let v293 : uint64 = System.Convert.ToUInt64 v284.Length │
00:05:11 #22861 [verbose] > │ let v294 : (int64 []) = Array.zeroCreate<int64> │
00:05:11 #22862 [verbose] > │ (System.Convert.ToInt32(v293)) │
00:05:11 #22863 [verbose] > │ let v295 : Mut0 = {l0 = 0UL} : Mut0 │
00:05:11 #22864 [verbose] > │ while method4(v293, v295) do │
00:05:11 #22865 [verbose] > │ let v297 : uint64 = v295.l0 │
00:05:11 #22866 [verbose] > │ let v298 : float = v284.[int v297] │
00:05:11 #22867 [verbose] > │ let v299 : int64 = v292 v298 │
00:05:11 #22868 [verbose] > │ v294.[int v297] <- v299 │
00:05:11 #22869 [verbose] > │ let v300 : uint64 = v297 + 1UL │
00:05:11 #22870 [verbose] > │ v295.l0 <- v300 │
00:05:11 #22871 [verbose] > │ () │
00:05:11 #22872 [verbose] > │ let v301 : uint64 = System.Convert.ToUInt64 v294.Length │
00:05:11 #22873 [verbose] > │ let v302 : UH5 = UH5_0 │
00:05:11 #22874 [verbose] > │ let v303 : Mut3 = {l0 = 0UL; l1 = v302; l2 = 0} : Mut3 │
00:05:11 #22875 [verbose] > │ while method23(v301, v303) do │
00:05:11 #22876 [verbose] > │ let v305 : uint64 = v303.l0 │
00:05:11 #22877 [verbose] > │ let struct (v306 : UH5, v307 : int32) = v303.l1, v303.l2 │
00:05:11 #22878 [verbose] > │ let v308 : int64 = v294.[int v305] │
00:05:11 #22879 [verbose] > │ let v309 : int32 = v307 + 1 │
00:05:11 #22880 [verbose] > │ let v310 : uint64 = v305 + 1UL │
00:05:11 #22881 [verbose] > │ let v311 : UH5 = UH5_1(v307, v308, v306) │
00:05:11 #22882 [verbose] > │ v303.l0 <- v310 │
00:05:11 #22883 [verbose] > │ v303.l1 <- v311 │
00:05:11 #22884 [verbose] > │ v303.l2 <- v309 │
00:05:11 #22885 [verbose] > │ () │
00:05:11 #22886 [verbose] > │ let struct (v312 : UH5, v313 : int32) = v303.l1, v303.l2 │
00:05:11 #22887 [verbose] > │ let v314 : UH5 = UH5_0 │
00:05:11 #22888 [verbose] > │ let v315 : UH5 = method24(v312, v314) │
00:05:11 #22889 [verbose] > │ let v316 : (struct (int32 * int64) []) = method34(v315) │
00:05:11 #22890 [verbose] > │ System.Console.WriteLine v2 │
00:05:11 #22891 [verbose] > │ let v317 : string = "Average Ranking " │
00:05:11 #22892 [verbose] > │ System.Console.WriteLine v317 │
00:05:11 #22893 [verbose] > │ let v318 : ((struct (int32 * int64) -> int64) -> ((struct (int32 * │
00:05:11 #22894 [verbose] > │ int64) []) -> (struct (int32 * int64) []))) = Array.sortBy │
00:05:11 #22895 [verbose] > │ let v319 : (struct (int32 * int64) -> int64) = closure5() │
00:05:11 #22896 [verbose] > │ let v320 : ((struct (int32 * int64) []) -> (struct (int32 * int64) [])) │
00:05:11 #22897 [verbose] > │ = v318 v319 │
00:05:11 #22898 [verbose] > │ let v321 : (struct (int32 * int64) []) = v320 v316 │
00:05:11 #22899 [verbose] > │ let v322 : uint64 = System.Convert.ToUInt64 v321.Length │
00:05:11 #22900 [verbose] > │ let v323 : Mut0 = {l0 = 0UL} : Mut0 │
00:05:11 #22901 [verbose] > │ while method4(v322, v323) do │
00:05:11 #22902 [verbose] > │ let v325 : uint64 = v323.l0 │
00:05:11 #22903 [verbose] > │ let struct (v326 : int32, v327 : int64) = v321.[int v325] │
00:05:11 #22904 [verbose] > │ let v328 : string = $"Test case %d{v326 + 1}. Average Time: %A{v327} │
00:05:11 #22905 [verbose] > │ " │
00:05:11 #22906 [verbose] > │ System.Console.WriteLine v328 │
00:05:11 #22907 [verbose] > │ let v329 : uint64 = v325 + 1UL │
00:05:11 #22908 [verbose] > │ v323.l0 <- v329 │
00:05:11 #22909 [verbose] > │ () │
00:05:11 #22910 [verbose] > │ () │
00:05:11 #22911 [verbose] > │ and method0 () : unit = │
00:05:11 #22912 [verbose] > │ let v0 : (unit -> unit) = closure0() │
00:05:11 #22913 [verbose] > │ let v1 : string = nameof v0 │
00:05:11 #22914 [verbose] > │ let v2 : string = "" │
00:05:11 #22915 [verbose] > │ System.Console.WriteLine v2 │
00:05:11 #22916 [verbose] > │ System.Console.WriteLine v2 │
00:05:11 #22917 [verbose] > │ let v3 : string = $"Test: {v1}" │
00:05:11 #22918 [verbose] > │ System.Console.WriteLine v3 │
00:05:11 #22919 [verbose] > │ let v4 : float = 0.0 │
00:05:11 #22920 [verbose] > │ let v5 : float = 1.0 │
00:05:11 #22921 [verbose] > │ let v6 : float = 2.0 │
00:05:11 #22922 [verbose] > │ let v7 : float = 3.0 │
00:05:11 #22923 [verbose] > │ let v8 : float = 5.0 │
00:05:11 #22924 [verbose] > │ let v9 : float = 6.0 │
00:05:11 #22925 [verbose] > │ let v10 : UH0 = UH0_0 │
00:05:11 #22926 [verbose] > │ let v11 : UH0 = UH0_1(v8, v9, v10) │
00:05:11 #22927 [verbose] > │ let v12 : UH0 = UH0_1(v6, v7, v11) │
00:05:11 #22928 [verbose] > │ let v13 : UH0 = UH0_1(v4, v5, v12) │
00:05:11 #22929 [verbose] > │ let v14 : (struct (float * float) []) = method1(v13) │
00:05:11 #22930 [verbose] > │ let v15 : uint64 = System.Convert.ToUInt64 v14.Length │
00:05:11 #22931 [verbose] > │ let v16 : (struct (string * string * string * (int64 [])) []) = │
00:05:11 #22932 [verbose] > │ Array.zeroCreate<struct (string * string * string * (int64 []))> │
00:05:11 #22933 [verbose] > │ (System.Convert.ToInt32(v15)) │
00:05:11 #22934 [verbose] > │ let v17 : Mut0 = {l0 = 0UL} : Mut0 │
00:05:11 #22935 [verbose] > │ while method4(v15, v17) do │
00:05:11 #22936 [verbose] > │ let v19 : uint64 = v17.l0 │
00:05:11 #22937 [verbose] > │ let struct (v20 : float, v21 : float) = v14.[int v19] │
00:05:11 #22938 [verbose] > │ let v22 : string = $"%A{v20}" │
00:05:11 #22939 [verbose] > │ System.Console.WriteLine v2 │
00:05:11 #22940 [verbose] > │ let v23 : string = $"Solution: {v22} " │
00:05:11 #22941 [verbose] > │ System.Console.WriteLine v23 │
00:05:11 #22942 [verbose] > │ let v24 : int32 = 0 │
00:05:11 #22943 [verbose] > │ let v25 : string = "A" │
00:05:11 #22944 [verbose] > │ let v26 : (float -> float) = closure1() │
00:05:11 #22945 [verbose] > │ let v27 : UH1 = UH1_0 │
00:05:11 #22946 [verbose] > │ let v28 : UH1 = UH1_1(v24, v25, v26, v27) │
00:05:11 #22947 [verbose] > │ let v29 : (struct (int32 * string * (float -> float)) []) = │
00:05:11 #22948 [verbose] > │ method5(v28) │
00:05:11 #22949 [verbose] > │ let v30 : uint64 = System.Convert.ToUInt64 v29.Length │
00:05:11 #22950 [verbose] > │ let v31 : (struct (float * int64) []) = Array.zeroCreate<struct │
00:05:11 #22951 [verbose] > │ (float * int64)> (System.Convert.ToInt32(v30)) │
00:05:11 #22952 [verbose] > │ let v32 : Mut0 = {l0 = 0UL} : Mut0 │
00:05:11 #22953 [verbose] > │ while method4(v30, v32) do │
00:05:11 #22954 [verbose] > │ let v34 : uint64 = v32.l0 │
00:05:11 #22955 [verbose] > │ let struct (v35 : int32, v36 : string, v37 : (float -> float)) = │
00:05:11 #22956 [verbose] > │ v29.[int v34] │
00:05:11 #22957 [verbose] > │ let v38 : unit option = None │
00:05:11 #22958 [verbose] > │ let mutable _v38 = v38 │
00:05:11 #22959 [verbose] > │ #if FABLE_COMPILER_RUST && !WASM && !CONTRACT │
00:05:11 #22960 [verbose] > │ () │
00:05:11 #22961 [verbose] > │ #endif │
00:05:11 #22962 [verbose] > │ #if FABLE_COMPILER_RUST && WASM │
00:05:11 #22963 [verbose] > │ () │
00:05:11 #22964 [verbose] > │ #endif │
00:05:11 #22965 [verbose] > │ #if FABLE_COMPILER_RUST && CONTRACT │
00:05:11 #22966 [verbose] > │ () │
00:05:11 #22967 [verbose] > │ #endif │
00:05:11 #22968 [verbose] > │ #if !FABLE_COMPILER && !FABLE_COMPILER_RUST && │
00:05:11 #22969 [verbose] > │ !FABLE_COMPILER_TYPESCRIPT && !WASM && !CONTRACT │
00:05:11 #22970 [verbose] > │ System.GC.Collect () │
00:05:11 #22971 [verbose] > │ () │
00:05:11 #22972 [verbose] > │ #endif │
00:05:11 #22973 [verbose] > │ #if FABLE_COMPILER_TYPESCRIPT │
00:05:11 #22974 [verbose] > │ () │
00:05:11 #22975 [verbose] > │ #endif │
00:05:11 #22976 [verbose] > │ #if FABLE_COMPILER_PYTHON || FABLE_COMPILER_PHP || │
00:05:11 #22977 [verbose] > │ FABLE_COMPILER_DART │
00:05:11 #22978 [verbose] > │ Unchecked.defaultof<unit> │
00:05:11 #22979 [verbose] > │ () │
00:05:11 #22980 [verbose] > │ #endif │
00:05:11 #22981 [verbose] > │ |> fun x -> _v38 <- Some x │
00:05:11 #22982 [verbose] > │ _v38.Value │
00:05:11 #22983 [verbose] > │ let v39 : (unit -> System.Diagnostics.Stopwatch) = │
00:05:11 #22984 [verbose] > │ System.Diagnostics.Stopwatch │
00:05:11 #22985 [verbose] > │ let v40 : System.Diagnostics.Stopwatch = v39 () │
00:05:11 #22986 [verbose] > │ v40.Start () │
00:05:11 #22987 [verbose] > │ let v41 : int64 = v40.ElapsedMilliseconds │
00:05:11 #22988 [verbose] > │ let v42 : (int32 []) = Array.zeroCreate<int32> (2000001) │
00:05:11 #22989 [verbose] > │ let v43 : Mut1 = {l0 = 0} : Mut1 │
00:05:11 #22990 [verbose] > │ while method8(v43) do │
00:05:11 #22991 [verbose] > │ let v45 : int32 = v43.l0 │
00:05:11 #22992 [verbose] > │ v42.[int v45] <- v45 │
00:05:11 #22993 [verbose] > │ let v46 : int32 = v45 + 1 │
00:05:11 #22994 [verbose] > │ v43.l0 <- v46 │
00:05:11 #22995 [verbose] > │ () │
00:05:11 #22996 [verbose] > │ let v47 : ((int32 -> float) -> ((int32 []) -> (float []))) = │
00:05:11 #22997 [verbose] > │ Array.Parallel.map │
00:05:11 #22998 [verbose] > │ let v48 : (int32 -> float) = closure2(v20, v37) │
00:05:11 #22999 [verbose] > │ let v49 : ((int32 []) -> (float [])) = v47 v48 │
00:05:11 #23000 [verbose] > │ let v50 : (float []) = v49 v42 │
00:05:11 #23001 [verbose] > │ let v51 : int32 = v50.Length │
00:05:11 #23002 [verbose] > │ let v52 : int32 = v51 - 1 │
00:05:11 #23003 [verbose] > │ let v53 : float = v50.[int v52] │
00:05:11 #23004 [verbose] > │ let v54 : int64 = v40.ElapsedMilliseconds │
00:05:11 #23005 [verbose] > │ let v55 : int64 = v54 - v41 │
00:05:11 #23006 [verbose] > │ let v56 : string = $"Test case {v35 + 1}. {v36}. Time: {v55} " │
00:05:11 #23007 [verbose] > │ System.Console.WriteLine v56 │
00:05:11 #23008 [verbose] > │ v31.[int v34] <- struct (v53, v55) │
00:05:11 #23009 [verbose] > │ let v57 : uint64 = v34 + 1UL │
00:05:11 #23010 [verbose] > │ v32.l0 <- v57 │
00:05:11 #23011 [verbose] > │ () │
00:05:11 #23012 [verbose] > │ let v58 : uint64 = System.Convert.ToUInt64 v31.Length │
00:05:11 #23013 [verbose] > │ let v59 : (float []) = Array.zeroCreate<float> │
00:05:11 #23014 [verbose] > │ (System.Convert.ToInt32(v58)) │
00:05:11 #23015 [verbose] > │ let v60 : Mut0 = {l0 = 0UL} : Mut0 │
00:05:11 #23016 [verbose] > │ while method4(v58, v60) do │
00:05:11 #23017 [verbose] > │ let v62 : uint64 = v60.l0 │
00:05:11 #23018 [verbose] > │ let struct (v63 : float, v64 : int64) = v31.[int v62] │
00:05:11 #23019 [verbose] > │ v59.[int v62] <- v63 │
00:05:11 #23020 [verbose] > │ let v65 : uint64 = v62 + 1UL │
00:05:11 #23021 [verbose] > │ v60.l0 <- v65 │
00:05:11 #23022 [verbose] > │ () │
00:05:11 #23023 [verbose] > │ let v66 : uint64 = System.Convert.ToUInt64 v59.Length │
00:05:11 #23024 [verbose] > │ let v67 : bool = v66 <= 1UL │
00:05:11 #23025 [verbose] > │ if v67 then │
00:05:11 #23026 [verbose] > │ () │
00:05:11 #23027 [verbose] > │ else │
00:05:11 #23028 [verbose] > │ let v68 : float = v59.[int 0UL] │
00:05:11 #23029 [verbose] > │ let v69 : uint64 = 0UL │
00:05:11 #23030 [verbose] > │ let v70 : bool = method9(v68, v59, v69) │
00:05:11 #23031 [verbose] > │ if v70 then │
00:05:11 #23032 [verbose] > │ () │
00:05:11 #23033 [verbose] > │ else │
00:05:11 #23034 [verbose] > │ let v71 : string = $"Challenge error: {v59}" │
00:05:11 #23035 [verbose] > │ failwith<unit> v71 │
00:05:11 #23036 [verbose] > │ let v72 : string = $"%A{v21}" │
00:05:11 #23037 [verbose] > │ let v73 : (float []) = Array.zeroCreate<float> │
00:05:11 #23038 [verbose] > │ (System.Convert.ToInt32(v58)) │
00:05:11 #23039 [verbose] > │ let v74 : Mut0 = {l0 = 0UL} : Mut0 │
00:05:11 #23040 [verbose] > │ while method4(v58, v74) do │
00:05:11 #23041 [verbose] > │ let v76 : uint64 = v74.l0 │
00:05:11 #23042 [verbose] > │ let struct (v77 : float, v78 : int64) = v31.[int v76] │
00:05:11 #23043 [verbose] > │ v73.[int v76] <- v77 │
00:05:11 #23044 [verbose] > │ let v79 : uint64 = v76 + 1UL │
00:05:11 #23045 [verbose] > │ v74.l0 <- v79 │
00:05:11 #23046 [verbose] > │ () │
00:05:11 #23047 [verbose] > │ let v80 : float = v73.[int 0UL] │
00:05:11 #23048 [verbose] > │ let v81 : string = $"%A{v80}" │
00:05:11 #23049 [verbose] > │ let v82 : (int64 []) = Array.zeroCreate<int64> │
00:05:11 #23050 [verbose] > │ (System.Convert.ToInt32(v58)) │
00:05:11 #23051 [verbose] > │ let v83 : Mut0 = {l0 = 0UL} : Mut0 │
00:05:11 #23052 [verbose] > │ while method4(v58, v83) do │
00:05:11 #23053 [verbose] > │ let v85 : uint64 = v83.l0 │
00:05:11 #23054 [verbose] > │ let struct (v86 : float, v87 : int64) = v31.[int v85] │
00:05:11 #23055 [verbose] > │ v82.[int v85] <- v87 │
00:05:11 #23056 [verbose] > │ let v88 : uint64 = v85 + 1UL │
00:05:11 #23057 [verbose] > │ v83.l0 <- v88 │
00:05:11 #23058 [verbose] > │ () │
00:05:11 #23059 [verbose] > │ v16.[int v19] <- struct (v72, v22, v81, v82) │
00:05:11 #23060 [verbose] > │ let v89 : uint64 = v19 + 1UL │
00:05:11 #23061 [verbose] > │ v17.l0 <- v89 │
00:05:11 #23062 [verbose] > │ () │
00:05:11 #23063 [verbose] > │ let v90 : uint64 = System.Convert.ToUInt64 v16.Length │
00:05:11 #23064 [verbose] > │ let v91 : (struct (UH2 * US0) []) = Array.zeroCreate<struct (UH2 * US0)> │
00:05:11 #23065 [verbose] > │ (System.Convert.ToInt32(v90)) │
00:05:11 #23066 [verbose] > │ let v92 : Mut0 = {l0 = 0UL} : Mut0 │
00:05:11 #23067 [verbose] > │ while method4(v90, v92) do │
00:05:11 #23068 [verbose] > │ let v94 : uint64 = v92.l0 │
00:05:11 #23069 [verbose] > │ let struct (v95 : string, v96 : string, v97 : string, v98 : (int64 [ │
00:05:11 #23070 [verbose] > │ ])) = v16.[int v94] │
00:05:11 #23071 [verbose] > │ let v99 : uint64 = System.Convert.ToUInt64 v98.Length │
00:05:11 #23072 [verbose] > │ let v100 : UH3 = UH3_0 │
00:05:11 #23073 [verbose] > │ let v101 : Mut2 = {l0 = 0UL; l1 = v100; l2 = 0L} : Mut2 │
00:05:11 #23074 [verbose] > │ while method10(v99, v101) do │
00:05:11 #23075 [verbose] > │ let v103 : uint64 = v101.l0 │
00:05:11 #23076 [verbose] > │ let struct (v104 : UH3, v105 : int64) = v101.l1, v101.l2 │
00:05:11 #23077 [verbose] > │ let v106 : int64 = v98.[int v103] │
00:05:11 #23078 [verbose] > │ let v107 : int64 = v105 + 1L │
00:05:11 #23079 [verbose] > │ let v108 : uint64 = v103 + 1UL │
00:05:11 #23080 [verbose] > │ let v109 : UH3 = UH3_1(v105, v106, v104) │
00:05:11 #23081 [verbose] > │ v101.l0 <- v108 │
00:05:11 #23082 [verbose] > │ v101.l1 <- v109 │
00:05:11 #23083 [verbose] > │ v101.l2 <- v107 │
00:05:11 #23084 [verbose] > │ () │
00:05:11 #23085 [verbose] > │ let struct (v110 : UH3, v111 : int64) = v101.l1, v101.l2 │
00:05:11 #23086 [verbose] > │ let v112 : UH3 = UH3_0 │
00:05:11 #23087 [verbose] > │ let v113 : UH3 = method11(v110, v112) │
00:05:11 #23088 [verbose] > │ let v114 : (struct (int64 * int64) []) = method12(v113) │
00:05:11 #23089 [verbose] > │ let v115 : int32 = v114.Length │
00:05:11 #23090 [verbose] > │ let v116 : (struct (int64 * int64) []) = Array.zeroCreate<struct │
00:05:11 #23091 [verbose] > │ (int64 * int64)> (v115) │
00:05:11 #23092 [verbose] > │ let v117 : Mut1 = {l0 = 0} : Mut1 │
00:05:11 #23093 [verbose] > │ while method15(v115, v117) do │
00:05:11 #23094 [verbose] > │ let v119 : int32 = v117.l0 │
00:05:11 #23095 [verbose] > │ let struct (v120 : int64, v121 : int64) = v114.[int v119] │
00:05:11 #23096 [verbose] > │ let v122 : int64 = v120 + 1L │
00:05:11 #23097 [verbose] > │ v116.[int v119] <- struct (v122, v121) │
00:05:11 #23098 [verbose] > │ let v123 : int32 = v119 + 1 │
00:05:11 #23099 [verbose] > │ v117.l0 <- v123 │
00:05:11 #23100 [verbose] > │ () │
00:05:11 #23101 [verbose] > │ let v124 : ((struct (int64 * int64) -> int64) -> ((struct (int64 * │
00:05:11 #23102 [verbose] > │ int64) []) -> (struct (int64 * int64) []))) = Array.sortBy │
00:05:11 #23103 [verbose] > │ let v125 : (struct (int64 * int64) -> int64) = closure3() │
00:05:11 #23104 [verbose] > │ let v126 : ((struct (int64 * int64) []) -> (struct (int64 * int64) [ │
00:05:11 #23105 [verbose] > │ ])) = v124 v125 │
00:05:11 #23106 [verbose] > │ let v127 : (struct (int64 * int64) []) = v126 v116 │
00:05:11 #23107 [verbose] > │ let struct (v128 : int64, v129 : int64) = v127.[int 0] │
00:05:11 #23108 [verbose] > │ let v130 : string = $"%A{struct (v128, v129)}" │
00:05:11 #23109 [verbose] > │ let v131 : bool = v95 = v97 │
00:05:11 #23110 [verbose] > │ let v136 : US0 = │
00:05:11 #23111 [verbose] > │ if v131 then │
00:05:11 #23112 [verbose] > │ let v132 : System.ConsoleColor = │
00:05:11 #23113 [verbose] > │ System.ConsoleColor.DarkGreen │
00:05:11 #23114 [verbose] > │ US0_0(v132) │
00:05:11 #23115 [verbose] > │ else │
00:05:11 #23116 [verbose] > │ let v134 : System.ConsoleColor = System.ConsoleColor.DarkRed │
00:05:11 #23117 [verbose] > │ US0_0(v134) │
00:05:11 #23118 [verbose] > │ let v137 : UH2 = UH2_0 │
00:05:11 #23119 [verbose] > │ let v138 : UH2 = UH2_1(v130, v137) │
00:05:11 #23120 [verbose] > │ let v139 : UH2 = UH2_1(v97, v138) │
00:05:11 #23121 [verbose] > │ let v140 : UH2 = UH2_1(v95, v139) │
00:05:11 #23122 [verbose] > │ let v141 : UH2 = UH2_1(v96, v140) │
00:05:11 #23123 [verbose] > │ v91.[int v94] <- struct (v141, v136) │
00:05:11 #23124 [verbose] > │ let v142 : uint64 = v94 + 1UL │
00:05:11 #23125 [verbose] > │ v92.l0 <- v142 │
00:05:11 #23126 [verbose] > │ () │
00:05:11 #23127 [verbose] > │ let v143 : string = "Input" │
00:05:11 #23128 [verbose] > │ let v144 : string = "Expected" │
00:05:11 #23129 [verbose] > │ let v145 : string = "Result" │
00:05:11 #23130 [verbose] > │ let v146 : string = "Best" │
00:05:11 #23131 [verbose] > │ let v147 : UH2 = UH2_0 │
00:05:11 #23132 [verbose] > │ let v148 : UH2 = UH2_1(v146, v147) │
00:05:11 #23133 [verbose] > │ let v149 : UH2 = UH2_1(v145, v148) │
00:05:11 #23134 [verbose] > │ let v150 : UH2 = UH2_1(v144, v149) │
00:05:11 #23135 [verbose] > │ let v151 : UH2 = UH2_1(v143, v150) │
00:05:11 #23136 [verbose] > │ let v152 : US0 = US0_1 │
00:05:11 #23137 [verbose] > │ let v153 : string = "---" │
00:05:11 #23138 [verbose] > │ let v154 : UH2 = UH2_0 │
00:05:11 #23139 [verbose] > │ let v155 : UH2 = UH2_1(v153, v154) │
00:05:11 #23140 [verbose] > │ let v156 : UH2 = UH2_1(v153, v155) │
00:05:11 #23141 [verbose] > │ let v157 : UH2 = UH2_1(v153, v156) │
00:05:11 #23142 [verbose] > │ let v158 : UH2 = UH2_1(v153, v157) │
00:05:11 #23143 [verbose] > │ let v159 : US0 = US0_1 │
00:05:11 #23144 [verbose] > │ let v160 : UH4 = UH4_0 │
00:05:11 #23145 [verbose] > │ let v161 : UH4 = UH4_1(v158, v159, v160) │
00:05:11 #23146 [verbose] > │ let v162 : UH4 = UH4_1(v151, v152, v161) │
00:05:11 #23147 [verbose] > │ let v163 : (struct (UH2 * US0) []) = method16(v162) │
00:05:11 #23148 [verbose] > │ let v164 : uint64 = System.Convert.ToUInt64 v163.Length │
00:05:11 #23149 [verbose] > │ let v165 : uint64 = System.Convert.ToUInt64 v91.Length │
00:05:11 #23150 [verbose] > │ let v166 : uint64 = v164 + v165 │
00:05:11 #23151 [verbose] > │ let v167 : (struct (UH2 * US0) []) = Array.zeroCreate<struct (UH2 * │
00:05:11 #23152 [verbose] > │ US0)> (System.Convert.ToInt32(v166)) │
00:05:11 #23153 [verbose] > │ let v168 : Mut0 = {l0 = 0UL} : Mut0 │
00:05:11 #23154 [verbose] > │ while method4(v166, v168) do │
00:05:11 #23155 [verbose] > │ let v170 : uint64 = v168.l0 │
00:05:11 #23156 [verbose] > │ let v171 : bool = v170 < v164 │
00:05:11 #23157 [verbose] > │ let struct (v177 : UH2, v178 : US0) = │
00:05:11 #23158 [verbose] > │ if v171 then │
00:05:11 #23159 [verbose] > │ let struct (v172 : UH2, v173 : US0) = v163.[int v170] │
00:05:11 #23160 [verbose] > │ struct (v172, v173) │
00:05:11 #23161 [verbose] > │ else │
00:05:11 #23162 [verbose] > │ let v174 : uint64 = v170 - v164 │
00:05:11 #23163 [verbose] > │ let struct (v175 : UH2, v176 : US0) = v91.[int v174] │
00:05:11 #23164 [verbose] > │ struct (v175, v176) │
00:05:11 #23165 [verbose] > │ v167.[int v170] <- struct (v177, v178) │
00:05:11 #23166 [verbose] > │ let v179 : uint64 = v170 + 1UL │
00:05:11 #23167 [verbose] > │ v168.l0 <- v179 │
00:05:11 #23168 [verbose] > │ () │
00:05:11 #23169 [verbose] > │ let v180 : uint64 = System.Convert.ToUInt64 v167.Length │
00:05:11 #23170 [verbose] > │ let v181 : ((string []) []) = Array.zeroCreate<(string [])> │
00:05:11 #23171 [verbose] > │ (System.Convert.ToInt32(v180)) │
00:05:11 #23172 [verbose] > │ let v182 : Mut0 = {l0 = 0UL} : Mut0 │
00:05:11 #23173 [verbose] > │ while method4(v180, v182) do │
00:05:11 #23174 [verbose] > │ let v184 : uint64 = v182.l0 │
00:05:11 #23175 [verbose] > │ let struct (v185 : UH2, v186 : US0) = v167.[int v184] │
00:05:11 #23176 [verbose] > │ let v187 : (string []) = method19(v185) │
00:05:11 #23177 [verbose] > │ v181.[int v184] <- v187 │
00:05:11 #23178 [verbose] > │ let v188 : uint64 = v184 + 1UL │
00:05:11 #23179 [verbose] > │ v182.l0 <- v188 │
00:05:11 #23180 [verbose] > │ () │
00:05:11 #23181 [verbose] > │ let v189 : (((string []) []) -> ((string []) [])) = Array.transpose │
00:05:11 #23182 [verbose] > │ let v190 : ((string []) []) = v189 v181 │
00:05:11 #23183 [verbose] > │ let v191 : uint64 = System.Convert.ToUInt64 v190.Length │
00:05:11 #23184 [verbose] > │ let v192 : (int64 []) = Array.zeroCreate<int64> │
00:05:11 #23185 [verbose] > │ (System.Convert.ToInt32(v191)) │
00:05:11 #23186 [verbose] > │ let v193 : Mut0 = {l0 = 0UL} : Mut0 │
00:05:11 #23187 [verbose] > │ while method4(v191, v193) do │
00:05:11 #23188 [verbose] > │ let v195 : uint64 = v193.l0 │
00:05:11 #23189 [verbose] > │ let v196 : (string []) = v190.[int v195] │
00:05:11 #23190 [verbose] > │ let v197 : uint64 = System.Convert.ToUInt64 v196.Length │
00:05:11 #23191 [verbose] > │ let v198 : (int64 []) = Array.zeroCreate<int64> │
00:05:11 #23192 [verbose] > │ (System.Convert.ToInt32(v197)) │
00:05:11 #23193 [verbose] > │ let v199 : Mut0 = {l0 = 0UL} : Mut0 │
00:05:11 #23194 [verbose] > │ while method4(v197, v199) do │
00:05:11 #23195 [verbose] > │ let v201 : uint64 = v199.l0 │
00:05:11 #23196 [verbose] > │ let v202 : string = v196.[int v201] │
00:05:11 #23197 [verbose] > │ let v203 : int64 = System.Convert.ToInt64 v202.Length │
00:05:11 #23198 [verbose] > │ v198.[int v201] <- v203 │
00:05:11 #23199 [verbose] > │ let v204 : uint64 = v201 + 1UL │
00:05:11 #23200 [verbose] > │ v199.l0 <- v204 │
00:05:11 #23201 [verbose] > │ () │
00:05:11 #23202 [verbose] > │ let v205 : ((int64 []) -> (int64 [])) = Array.sortDescending │
00:05:11 #23203 [verbose] > │ let v206 : (int64 []) = v205 v198 │
00:05:11 #23204 [verbose] > │ let v207 : (int32 -> ((int64 []) -> int64 option)) = Array.tryItem │
00:05:11 #23205 [verbose] > │ let v208 : ((int64 []) -> int64 option) = v207 0 │
00:05:11 #23206 [verbose] > │ let v209 : int64 option = v208 v206 │
00:05:11 #23207 [verbose] > │ let v210 : (int64 -> US1) = method22() │
00:05:11 #23208 [verbose] > │ let v211 : US1 = US1_1 │
00:05:11 #23209 [verbose] > │ let v212 : US1 = v209 |> Option.map v210 |> Option.defaultValue v211 │
00:05:11 #23210 [verbose] > │ let v215 : int64 = │
00:05:11 #23211 [verbose] > │ match v212 with │
00:05:11 #23212 [verbose] > │ | US1_1 -> (* None *) │
00:05:11 #23213 [verbose] > │ 0L │
00:05:11 #23214 [verbose] > │ | US1_0(v213) -> (* Some *) │
00:05:11 #23215 [verbose] > │ v213 │
00:05:11 #23216 [verbose] > │ v192.[int v195] <- v215 │
00:05:11 #23217 [verbose] > │ let v216 : uint64 = v195 + 1UL │
00:05:11 #23218 [verbose] > │ v193.l0 <- v216 │
00:05:11 #23219 [verbose] > │ () │
00:05:11 #23220 [verbose] > │ let v217 : uint64 = System.Convert.ToUInt64 v192.Length │
00:05:11 #23221 [verbose] > │ let v218 : UH5 = UH5_0 │
00:05:11 #23222 [verbose] > │ let v219 : Mut3 = {l0 = 0UL; l1 = v218; l2 = 0} : Mut3 │
00:05:11 #23223 [verbose] > │ while method23(v217, v219) do │
00:05:11 #23224 [verbose] > │ let v221 : uint64 = v219.l0 │
00:05:11 #23225 [verbose] > │ let struct (v222 : UH5, v223 : int32) = v219.l1, v219.l2 │
00:05:11 #23226 [verbose] > │ let v224 : int64 = v192.[int v221] │
00:05:11 #23227 [verbose] > │ let v225 : int32 = v223 + 1 │
00:05:11 #23228 [verbose] > │ let v226 : uint64 = v221 + 1UL │
00:05:11 #23229 [verbose] > │ let v227 : UH5 = UH5_1(v223, v224, v222) │
00:05:11 #23230 [verbose] > │ v219.l0 <- v226 │
00:05:11 #23231 [verbose] > │ v219.l1 <- v227 │
00:05:11 #23232 [verbose] > │ v219.l2 <- v225 │
00:05:11 #23233 [verbose] > │ () │
00:05:11 #23234 [verbose] > │ let struct (v228 : UH5, v229 : int32) = v219.l1, v219.l2 │
00:05:11 #23235 [verbose] > │ let v230 : UH5 = UH5_0 │
00:05:11 #23236 [verbose] > │ let v231 : UH5 = method24(v228, v230) │
00:05:11 #23237 [verbose] > │ let v232 : (struct (int32 * int64) []) = method25(v231) │
00:05:11 #23238 [verbose] > │ let v233 : Map<int32, int64> = v232 |> Array.map (fun (struct (a, b)) -> │
00:05:11 #23239 [verbose] > │ a, b) |> Map.ofArray │
00:05:11 #23240 [verbose] > │ let v234 : (struct ((string []) * US0) []) = Array.zeroCreate<struct │
00:05:11 #23241 [verbose] > │ ((string []) * US0)> (System.Convert.ToInt32(v180)) │
00:05:11 #23242 [verbose] > │ let v235 : Mut0 = {l0 = 0UL} : Mut0 │
00:05:11 #23243 [verbose] > │ while method4(v180, v235) do │
00:05:11 #23244 [verbose] > │ let v237 : uint64 = v235.l0 │
00:05:11 #23245 [verbose] > │ let struct (v238 : UH2, v239 : US0) = v167.[int v237] │
00:05:11 #23246 [verbose] > │ let v240 : UH6 = UH6_0 │
00:05:11 #23247 [verbose] > │ let v241 : int32 = 0 │
00:05:11 #23248 [verbose] > │ let struct (v242 : UH6, v243 : int32) = method28(v238, v240, v241) │
00:05:11 #23249 [verbose] > │ let v244 : UH6 = UH6_0 │
00:05:11 #23250 [verbose] > │ let v245 : UH6 = method29(v242, v244) │
00:05:11 #23251 [verbose] > │ let v246 : UH2 = UH2_0 │
00:05:11 #23252 [verbose] > │ let v247 : UH2 = method30(v233, v245, v246) │
00:05:11 #23253 [verbose] > │ let v248 : (string []) = method31(v247) │
00:05:11 #23254 [verbose] > │ v234.[int v237] <- struct (v248, v239) │
00:05:11 #23255 [verbose] > │ let v249 : uint64 = v237 + 1UL │
00:05:11 #23256 [verbose] > │ v235.l0 <- v249 │
00:05:11 #23257 [verbose] > │ () │
00:05:11 #23258 [verbose] > │ System.Console.WriteLine v2 │
00:05:11 #23259 [verbose] > │ let v250 : uint64 = System.Convert.ToUInt64 v234.Length │
00:05:11 #23260 [verbose] > │ let v251 : Mut0 = {l0 = 0UL} : Mut0 │
00:05:11 #23261 [verbose] > │ while method4(v250, v251) do │
00:05:11 #23262 [verbose] > │ let v253 : uint64 = v251.l0 │
00:05:11 #23263 [verbose] > │ let struct (v254 : (string []), v255 : US0) = v234.[int v253] │
00:05:11 #23264 [verbose] > │ match v255 with │
00:05:11 #23265 [verbose] > │ | US0_1 -> (* None *) │
00:05:11 #23266 [verbose] > │ let v258 : unit option = None │
00:05:11 #23267 [verbose] > │ let mutable _v258 = v258 │
00:05:11 #23268 [verbose] > │ #if FABLE_COMPILER_RUST && !WASM && !CONTRACT │
00:05:11 #23269 [verbose] > │ () │
00:05:11 #23270 [verbose] > │ #endif │
00:05:11 #23271 [verbose] > │ #if FABLE_COMPILER_RUST && WASM │
00:05:11 #23272 [verbose] > │ () │
00:05:11 #23273 [verbose] > │ #endif │
00:05:11 #23274 [verbose] > │ #if FABLE_COMPILER_RUST && CONTRACT │
00:05:11 #23275 [verbose] > │ () │
00:05:11 #23276 [verbose] > │ #endif │
00:05:11 #23277 [verbose] > │ #if !FABLE_COMPILER && !FABLE_COMPILER_RUST && │
00:05:11 #23278 [verbose] > │ !FABLE_COMPILER_TYPESCRIPT && !WASM && !CONTRACT │
00:05:11 #23279 [verbose] > │ System.Console.ResetColor () │
00:05:11 #23280 [verbose] > │ () │
00:05:11 #23281 [verbose] > │ #endif │
00:05:11 #23282 [verbose] > │ #if FABLE_COMPILER_TYPESCRIPT │
00:05:11 #23283 [verbose] > │ () │
00:05:11 #23284 [verbose] > │ #endif │
00:05:11 #23285 [verbose] > │ #if FABLE_COMPILER_PYTHON || FABLE_COMPILER_PHP || │
00:05:11 #23286 [verbose] > │ FABLE_COMPILER_DART │
00:05:11 #23287 [verbose] > │ Unchecked.defaultof<unit> │
00:05:11 #23288 [verbose] > │ () │
00:05:11 #23289 [verbose] > │ #endif │
00:05:11 #23290 [verbose] > │ |> fun x -> _v258 <- Some x │
00:05:11 #23291 [verbose] > │ _v258.Value │
00:05:11 #23292 [verbose] > │ () │
00:05:12 #23293 [verbose] > │ | US0_0(v256) -> (* Some *) │
00:05:12 #23294 [verbose] > │ let v257 : unit option = None │
00:05:12 #23295 [verbose] > │ let mutable _v257 = v257 │
00:05:12 #23296 [verbose] > │ #if FABLE_COMPILER_RUST && !WASM && !CONTRACT │
00:05:12 #23297 [verbose] > │ () │
00:05:12 #23298 [verbose] > │ #endif │
00:05:12 #23299 [verbose] > │ #if FABLE_COMPILER_RUST && WASM │
00:05:12 #23300 [verbose] > │ () │
00:05:12 #23301 [verbose] > │ #endif │
00:05:12 #23302 [verbose] > │ #if FABLE_COMPILER_RUST && CONTRACT │
00:05:12 #23303 [verbose] > │ () │
00:05:12 #23304 [verbose] > │ #endif │
00:05:12 #23305 [verbose] > │ #if !FABLE_COMPILER && !FABLE_COMPILER_RUST && │
00:05:12 #23306 [verbose] > │ !FABLE_COMPILER_TYPESCRIPT && !WASM && !CONTRACT │
00:05:12 #23307 [verbose] > │ System.Console.ForegroundColor <- v256 │
00:05:12 #23308 [verbose] > │ () │
00:05:12 #23309 [verbose] > │ #endif │
00:05:12 #23310 [verbose] > │ #if FABLE_COMPILER_TYPESCRIPT │
00:05:12 #23311 [verbose] > │ () │
00:05:12 #23312 [verbose] > │ #endif │
00:05:12 #23313 [verbose] > │ #if FABLE_COMPILER_PYTHON || FABLE_COMPILER_PHP || │
00:05:12 #23314 [verbose] > │ FABLE_COMPILER_DART │
00:05:12 #23315 [verbose] > │ Unchecked.defaultof<unit> │
00:05:12 #23316 [verbose] > │ () │
00:05:12 #23317 [verbose] > │ #endif │
00:05:12 #23318 [verbose] > │ |> fun x -> _v257 <- Some x │
00:05:12 #23319 [verbose] > │ _v257.Value │
00:05:12 #23320 [verbose] > │ () │
00:05:12 #23321 [verbose] > │ let v259 : string = "\t| " │
00:05:12 #23322 [verbose] > │ let v260 : string = System.String.Join (v259, v254) │
00:05:12 #23323 [verbose] > │ System.Console.WriteLine v260 │
00:05:12 #23324 [verbose] > │ let v261 : unit option = None │
00:05:12 #23325 [verbose] > │ let mutable _v261 = v261 │
00:05:12 #23326 [verbose] > │ #if FABLE_COMPILER_RUST && !WASM && !CONTRACT │
00:05:12 #23327 [verbose] > │ () │
00:05:12 #23328 [verbose] > │ #endif │
00:05:12 #23329 [verbose] > │ #if FABLE_COMPILER_RUST && WASM │
00:05:12 #23330 [verbose] > │ () │
00:05:12 #23331 [verbose] > │ #endif │
00:05:12 #23332 [verbose] > │ #if FABLE_COMPILER_RUST && CONTRACT │
00:05:12 #23333 [verbose] > │ () │
00:05:12 #23334 [verbose] > │ #endif │
00:05:12 #23335 [verbose] > │ #if !FABLE_COMPILER && !FABLE_COMPILER_RUST && │
00:05:12 #23336 [verbose] > │ !FABLE_COMPILER_TYPESCRIPT && !WASM && !CONTRACT │
00:05:12 #23337 [verbose] > │ System.Console.ResetColor () │
00:05:12 #23338 [verbose] > │ () │
00:05:12 #23339 [verbose] > │ #endif │
00:05:12 #23340 [verbose] > │ #if FABLE_COMPILER_TYPESCRIPT │
00:05:12 #23341 [verbose] > │ () │
00:05:12 #23342 [verbose] > │ #endif │
00:05:12 #23343 [verbose] > │ #if FABLE_COMPILER_PYTHON || FABLE_COMPILER_PHP || │
00:05:12 #23344 [verbose] > │ FABLE_COMPILER_DART │
00:05:12 #23345 [verbose] > │ Unchecked.defaultof<unit> │
00:05:12 #23346 [verbose] > │ () │
00:05:12 #23347 [verbose] > │ #endif │
00:05:12 #23348 [verbose] > │ |> fun x -> _v261 <- Some x │
00:05:12 #23349 [verbose] > │ _v261.Value │
00:05:12 #23350 [verbose] > │ let v262 : uint64 = v253 + 1UL │
00:05:12 #23351 [verbose] > │ v251.l0 <- v262 │
00:05:12 #23352 [verbose] > │ () │
00:05:12 #23353 [verbose] > │ let v263 : ((float []) []) = Array.zeroCreate<(float [])> │
00:05:12 #23354 [verbose] > │ (System.Convert.ToInt32(v90)) │
00:05:12 #23355 [verbose] > │ let v264 : Mut0 = {l0 = 0UL} : Mut0 │
00:05:12 #23356 [verbose] > │ while method4(v90, v264) do │
00:05:12 #23357 [verbose] > │ let v266 : uint64 = v264.l0 │
00:05:12 #23358 [verbose] > │ let struct (v267 : string, v268 : string, v269 : string, v270 : │
00:05:12 #23359 [verbose] > │ (int64 [])) = v16.[int v266] │
00:05:12 #23360 [verbose] > │ let v271 : (int64 -> float) = float │
00:05:12 #23361 [verbose] > │ let v272 : uint64 = System.Convert.ToUInt64 v270.Length │
00:05:12 #23362 [verbose] > │ let v273 : (float []) = Array.zeroCreate<float> │
00:05:12 #23363 [verbose] > │ (System.Convert.ToInt32(v272)) │
00:05:12 #23364 [verbose] > │ let v274 : Mut0 = {l0 = 0UL} : Mut0 │
00:05:12 #23365 [verbose] > │ while method4(v272, v274) do │
00:05:12 #23366 [verbose] > │ let v276 : uint64 = v274.l0 │
00:05:12 #23367 [verbose] > │ let v277 : int64 = v270.[int v276] │
00:05:12 #23368 [verbose] > │ let v278 : float = v271 v277 │
00:05:12 #23369 [verbose] > │ v273.[int v276] <- v278 │
00:05:12 #23370 [verbose] > │ let v279 : uint64 = v276 + 1UL │
00:05:12 #23371 [verbose] > │ v274.l0 <- v279 │
00:05:12 #23372 [verbose] > │ () │
00:05:12 #23373 [verbose] > │ v263.[int v266] <- v273 │
00:05:12 #23374 [verbose] > │ let v280 : uint64 = v266 + 1UL │
00:05:12 #23375 [verbose] > │ v264.l0 <- v280 │
00:05:12 #23376 [verbose] > │ () │
00:05:12 #23377 [verbose] > │ let v281 : (((float []) []) -> ((float []) [])) = Array.transpose │
00:05:12 #23378 [verbose] > │ let v282 : ((float []) []) = v281 v263 │
00:05:12 #23379 [verbose] > │ let v283 : uint64 = System.Convert.ToUInt64 v282.Length │
00:05:12 #23380 [verbose] > │ let v284 : (float []) = Array.zeroCreate<float> │
00:05:12 #23381 [verbose] > │ (System.Convert.ToInt32(v283)) │
00:05:12 #23382 [verbose] > │ let v285 : Mut0 = {l0 = 0UL} : Mut0 │
00:05:12 #23383 [verbose] > │ while method4(v283, v285) do │
00:05:12 #23384 [verbose] > │ let v287 : uint64 = v285.l0 │
00:05:12 #23385 [verbose] > │ let v288 : (float []) = v282.[int v287] │
00:05:12 #23386 [verbose] > │ let v289 : ((float []) -> float) = Array.average │
00:05:12 #23387 [verbose] > │ let v290 : float = v289 v288 │
00:05:12 #23388 [verbose] > │ v284.[int v287] <- v290 │
00:05:12 #23389 [verbose] > │ let v291 : uint64 = v287 + 1UL │
00:05:12 #23390 [verbose] > │ v285.l0 <- v291 │
00:05:12 #23391 [verbose] > │ () │
00:05:12 #23392 [verbose] > │ let v292 : (float -> int64) = int64 │
00:05:12 #23393 [verbose] > │ let v293 : uint64 = System.Convert.ToUInt64 v284.Length │
00:05:12 #23394 [verbose] > │ let v294 : (int64 []) = Array.zeroCreate<int64> │
00:05:12 #23395 [verbose] > │ (System.Convert.ToInt32(v293)) │
00:05:12 #23396 [verbose] > │ let v295 : Mut0 = {l0 = 0UL} : Mut0 │
00:05:12 #23397 [verbose] > │ while method4(v293, v295) do │
00:05:12 #23398 [verbose] > │ let v297 : uint64 = v295.l0 │
00:05:12 #23399 [verbose] > │ let v298 : float = v284.[int v297] │
00:05:12 #23400 [verbose] > │ let v299 : int64 = v292 v298 │
00:05:12 #23401 [verbose] > │ v294.[int v297] <- v299 │
00:05:12 #23402 [verbose] > │ let v300 : uint64 = v297 + 1UL │
00:05:12 #23403 [verbose] > │ v295.l0 <- v300 │
00:05:12 #23404 [verbose] > │ () │
00:05:12 #23405 [verbose] > │ let v301 : uint64 = System.Convert.ToUInt64 v294.Length │
00:05:12 #23406 [verbose] > │ let v302 : UH5 = UH5_0 │
00:05:12 #23407 [verbose] > │ let v303 : Mut3 = {l0 = 0UL; l1 = v302; l2 = 0} : Mut3 │
00:05:12 #23408 [verbose] > │ while method23(v301, v303) do │
00:05:12 #23409 [verbose] > │ let v305 : uint64 = v303.l0 │
00:05:12 #23410 [verbose] > │ let struct (v306 : UH5, v307 : int32) = v303.l1, v303.l2 │
00:05:12 #23411 [verbose] > │ let v308 : int64 = v294.[int v305] │
00:05:12 #23412 [verbose] > │ let v309 : int32 = v307 + 1 │
00:05:12 #23413 [verbose] > │ let v310 : uint64 = v305 + 1UL │
00:05:12 #23414 [verbose] > │ let v311 : UH5 = UH5_1(v307, v308, v306) │
00:05:12 #23415 [verbose] > │ v303.l0 <- v310 │
00:05:12 #23416 [verbose] > │ v303.l1 <- v311 │
00:05:12 #23417 [verbose] > │ v303.l2 <- v309 │
00:05:12 #23418 [verbose] > │ () │
00:05:12 #23419 [verbose] > │ let struct (v312 : UH5, v313 : int32) = v303.l1, v303.l2 │
00:05:12 #23420 [verbose] > │ let v314 : UH5 = UH5_0 │
00:05:12 #23421 [verbose] > │ let v315 : UH5 = method24(v312, v314) │
00:05:12 #23422 [verbose] > │ let v316 : (struct (int32 * int64) []) = method34(v315) │
00:05:12 #23423 [verbose] > │ System.Console.WriteLine v2 │
00:05:12 #23424 [verbose] > │ let v317 : string = "Average Ranking " │
00:05:12 #23425 [verbose] > │ System.Console.WriteLine v317 │
00:05:12 #23426 [verbose] > │ let v318 : ((struct (int32 * int64) -> int64) -> ((struct (int32 * │
00:05:12 #23427 [verbose] > │ int64) []) -> (struct (int32 * int64) []))) = Array.sortBy │
00:05:12 #23428 [verbose] > │ let v319 : (struct (int32 * int64) -> int64) = closure5() │
00:05:12 #23429 [verbose] > │ let v320 : ((struct (int32 * int64) []) -> (struct (int32 * int64) [])) │
00:05:12 #23430 [verbose] > │ = v318 v319 │
00:05:12 #23431 [verbose] > │ let v321 : (struct (int32 * int64) []) = v320 v316 │
00:05:12 #23432 [verbose] > │ let v322 : uint64 = System.Convert.ToUInt64 v321.Length │
00:05:12 #23433 [verbose] > │ let v323 : Mut0 = {l0 = 0UL} : Mut0 │
00:05:12 #23434 [verbose] > │ while method4(v322, v323) do │
00:05:12 #23435 [verbose] > │ let v325 : uint64 = v323.l0 │
00:05:12 #23436 [verbose] > │ let struct (v326 : int32, v327 : int64) = v321.[int v325] │
00:05:12 #23437 [verbose] > │ let v328 : string = $"Test case %d{v326 + 1}. Average Time: %A{v327} │
00:05:12 #23438 [verbose] > │ " │
00:05:12 #23439 [verbose] > │ System.Console.WriteLine v328 │
00:05:12 #23440 [verbose] > │ let v329 : uint64 = v325 + 1UL │
00:05:12 #23441 [verbose] > │ v323.l0 <- v329 │
00:05:12 #23442 [verbose] > │ () │
00:05:12 #23443 [verbose] > │ () │
00:05:12 #23444 [verbose] > │ method0() │
00:05:12 #23445 [verbose] > │ │
00:05:12 #23446 [verbose] > │ │
00:05:12 #23447 [verbose] > │ │
00:05:12 #23448 [verbose] > │ Test: v0 │
00:05:12 #23449 [verbose] > │ │
00:05:12 #23450 [verbose] > │ Solution: 0.0 │
00:05:12 #23451 [verbose] > │ Test case 1. A. Time: 24 │
00:05:12 #23452 [verbose] > │ │
00:05:12 #23453 [verbose] > │ Solution: 2.0 │
00:05:12 #23454 [verbose] > │ Test case 1. A. Time: 12 │
00:05:12 #23455 [verbose] > │ │
00:05:12 #23456 [verbose] > │ Solution: 5.0 │
00:05:12 #23457 [verbose] > │ Test case 1. A. Time: 31 │
00:05:12 #23458 [verbose] > │ │
00:05:12 #23459 [verbose] > │ Input | Expected | Result | Best │
00:05:12 #23460 [verbose] > │ --- | --- | --- | --- │
00:05:12 #23461 [verbose] > │ 0.0 | 1.0 | 1.0 | struct (1L, 24L) │
00:05:12 #23462 [verbose] > │ 2.0 | 3.0 | 3.0 | struct (1L, 12L) │
00:05:12 #23463 [verbose] > │ 5.0 | 6.0 | 6.0 | struct (1L, 31L) │
00:05:12 #23464 [verbose] > │ │
00:05:12 #23465 [verbose] > │ Average Ranking │
00:05:12 #23466 [verbose] > │ Test case 1. Average Time: 22L │
00:05:12 #23467 [verbose] > │ │
00:05:12 #23468 [verbose] > ╰──────────────────────────────────────────────────────────────────────────────╯
00:05:13 #23469 [verbose] > [NbConvertApp] Converting notebook benchmark.dib.ipynb to html
00:05:13 #23470 [verbose] > C:\Users\i574n\scoop\apps\python\current\Lib\site-packages\nbformat\__init__.py:93: MissingIDFieldWarning: Code cell is missing an id field, this will become a hard error in future nbformat versions. You may want to use `normalize()` on your notebooks before validations (available since nbformat 5.1.4). Previous versions of nbformat are fixing this issue transparently, and will stop doing so in the future.
00:05:13 #23471 [verbose] > validate(nb)
00:05:14 #23472 [verbose] > C:\Users\i574n\scoop\apps\python\current\Lib\site-packages\nbconvert\filters\highlight.py:71: UserWarning: IPython3 lexer unavailable, falling back on Python 3
00:05:14 #23473 [verbose] > return _pygments_highlight(
00:05:14 #23474 [verbose] > [NbConvertApp] Writing 418648 bytes to benchmark.dib.html
00:05:15 #23475 [debug] execute_with_options_async / exit_code: 0 / output.Length: 243937
00:05:15 #20 [debug] main / executeCommand / exitCode: 0
00:05:15 #23476 [debug] execute_with_options_async / options: struct (Some System.Threading.CancellationToken,
"pwsh -c "../../scripts/invoke-dib.ps1 stream.dib" -Retries 3", None,
None, None)
00:05:17 #23477 [verbose] >
00:05:17 #23478 [verbose] > ── markdown ────────────────────────────────────────────────────────────────────
00:05:17 #23479 [verbose] > ╭──────────────────────────────────────────────────────────────────────────────╮
00:05:17 #23480 [verbose] > │ # stream │
00:05:17 #23481 [verbose] > ╰──────────────────────────────────────────────────────────────────────────────╯
00:05:17 #23482 [verbose] >
00:05:17 #23483 [verbose] > ── spiral ──────────────────────────────────────────────────────────────────────
00:05:17 #23484 [verbose] > // // test
00:05:17 #23485 [verbose] >
00:05:17 #23486 [verbose] > open testing
00:05:20 #23487 [verbose] > Building c:\home\git\polyglot\target\polyglot\spiral_eval\packages\8837341da068f4ef4271045b3ef1c89d209237bf74b4f11596b6ee2d484becb0\main.spi
00:05:21 #23488 [verbose] >
00:05:21 #23489 [verbose] > ╭─[ 3.56s - stdout ]───────────────────────────────────────────────────────────╮
00:05:21 #23490 [verbose] > │ () │
00:05:21 #23491 [verbose] > │ │
00:05:21 #23492 [verbose] > │ │
00:05:21 #23493 [verbose] > ╰──────────────────────────────────────────────────────────────────────────────╯
00:05:21 #23494 [verbose] >
00:05:21 #23495 [verbose] > ── spiral ──────────────────────────────────────────────────────────────────────
00:05:21 #23496 [verbose] > union rec stream t =
00:05:21 #23497 [verbose] > | StreamCons : t * (() -> stream t)
00:05:21 #23498 [verbose] > | StreamNil
00:05:21 #23499 [verbose] > Building c:\home\git\polyglot\target\polyglot\spiral_eval\packages\ec5e164ac07366f183dc76ef1b51602a0defc05ad4435dba9375a5275a4ed76a\main.spi
00:05:21 #23500 [verbose] >
00:05:21 #23501 [verbose] > ╭─[ 246.68ms - stdout ]────────────────────────────────────────────────────────╮
00:05:21 #23502 [verbose] > │ () │
00:05:21 #23503 [verbose] > │ │
00:05:21 #23504 [verbose] > │ │
00:05:21 #23505 [verbose] > ╰──────────────────────────────────────────────────────────────────────────────╯
00:05:21 #23506 [verbose] >
00:05:21 #23507 [verbose] > ── markdown ────────────────────────────────────────────────────────────────────
00:05:21 #23508 [verbose] > ╭──────────────────────────────────────────────────────────────────────────────╮
00:05:21 #23509 [verbose] > │ ## fold │
00:05:21 #23510 [verbose] > ╰──────────────────────────────────────────────────────────────────────────────╯
00:05:21 #23511 [verbose] >
00:05:21 #23512 [verbose] > ── spiral ──────────────────────────────────────────────────────────────────────
00:05:21 #23513 [verbose] > inl fold fn init s =
00:05:21 #23514 [verbose] > inl rec body acc = function
00:05:21 #23515 [verbose] > | StreamCons (st, fn') => loop (fn acc st) (fn' ())
00:05:21 #23516 [verbose] > | StreamNil => acc
00:05:21 #23517 [verbose] > and inl loop acc = join_body body acc
00:05:21 #23518 [verbose] > loop init s
00:05:21 #23519 [verbose] > Building c:\home\git\polyglot\target\polyglot\spiral_eval\packages\46d11b2427280a474479a75472c7fc6e27a423c40d13b933ba5fce989df2b52e\main.spi
00:05:21 #23520 [verbose] >
00:05:21 #23521 [verbose] > ╭─[ 285.65ms - stdout ]────────────────────────────────────────────────────────╮
00:05:21 #23522 [verbose] > │ () │
00:05:21 #23523 [verbose] > │ │
00:05:21 #23524 [verbose] > │ │
00:05:21 #23525 [verbose] > ╰──────────────────────────────────────────────────────────────────────────────╯
00:05:21 #23526 [verbose] >
00:05:21 #23527 [verbose] > ── markdown ────────────────────────────────────────────────────────────────────
00:05:21 #23528 [verbose] > ╭──────────────────────────────────────────────────────────────────────────────╮
00:05:21 #23529 [verbose] > │ ## fold_back │
00:05:21 #23530 [verbose] > ╰──────────────────────────────────────────────────────────────────────────────╯
00:05:21 #23531 [verbose] >
00:05:21 #23532 [verbose] > ── spiral ──────────────────────────────────────────────────────────────────────
00:05:21 #23533 [verbose] > inl fold_back fn s init =
00:05:21 #23534 [verbose] > inl rec body acc = function
00:05:21 #23535 [verbose] > | StreamCons (st, fn') => fn st (loop acc (fn' ()))
00:05:21 #23536 [verbose] > | StreamNil => acc
00:05:21 #23537 [verbose] > and inl loop acc = join_body body acc
00:05:21 #23538 [verbose] > loop init s
00:05:21 #23539 [verbose] > Building c:\home\git\polyglot\target\polyglot\spiral_eval\packages\0164ff90265037c7589e8fb7b9ecacd0811f8b6de14de3a315624b9e0305f2e5\main.spi
00:05:22 #23540 [verbose] >
00:05:22 #23541 [verbose] > ╭─[ 259.50ms - stdout ]────────────────────────────────────────────────────────╮
00:05:22 #23542 [verbose] > │ () │
00:05:22 #23543 [verbose] > │ │
00:05:22 #23544 [verbose] > │ │
00:05:22 #23545 [verbose] > ╰──────────────────────────────────────────────────────────────────────────────╯
00:05:22 #23546 [verbose] >
00:05:22 #23547 [verbose] > ── markdown ────────────────────────────────────────────────────────────────────
00:05:22 #23548 [verbose] > ╭──────────────────────────────────────────────────────────────────────────────╮
00:05:22 #23549 [verbose] > │ ## to_list │
00:05:22 #23550 [verbose] > ╰──────────────────────────────────────────────────────────────────────────────╯
00:05:22 #23551 [verbose] >
00:05:22 #23552 [verbose] > ── spiral ──────────────────────────────────────────────────────────────────────
00:05:22 #23553 [verbose] > inl to_list s =
00:05:22 #23554 [verbose] > (s, [[]])
00:05:22 #23555 [verbose] > ||> fold_back fun x acc =>
00:05:22 #23556 [verbose] > x :: acc
00:05:22 #23557 [verbose] > Building c:\home\git\polyglot\target\polyglot\spiral_eval\packages\b299ef3fbaa1ffb974df90dd8151b724f60ad923f7ea83a73164fc2e8cbfd85f\main.spi
00:05:22 #23558 [verbose] >
00:05:22 #23559 [verbose] > ╭─[ 267.97ms - stdout ]────────────────────────────────────────────────────────╮
00:05:22 #23560 [verbose] > │ () │
00:05:22 #23561 [verbose] > │ │
00:05:22 #23562 [verbose] > │ │
00:05:22 #23563 [verbose] > ╰──────────────────────────────────────────────────────────────────────────────╯
00:05:22 #23564 [verbose] >
00:05:22 #23565 [verbose] > ── markdown ────────────────────────────────────────────────────────────────────
00:05:22 #23566 [verbose] > ╭──────────────────────────────────────────────────────────────────────────────╮
00:05:22 #23567 [verbose] > │ ## rev │
00:05:22 #23568 [verbose] > ╰──────────────────────────────────────────────────────────────────────────────╯
00:05:22 #23569 [verbose] >
00:05:22 #23570 [verbose] > ── spiral ──────────────────────────────────────────────────────────────────────
00:05:22 #23571 [verbose] > inl rev s =
00:05:22 #23572 [verbose] > (StreamNil, s)
00:05:22 #23573 [verbose] > ||> fold fun s x =>
00:05:22 #23574 [verbose] > StreamCons (x, fun () => s)
00:05:22 #23575 [verbose] > Building c:\home\git\polyglot\target\polyglot\spiral_eval\packages\25e9fd50c5fbb3fadff28cedd6034e4c93894e8f5fb85b52feee0a0002645954\main.spi
00:05:22 #23576 [verbose] >
00:05:22 #23577 [verbose] > ╭─[ 233.27ms - stdout ]────────────────────────────────────────────────────────╮
00:05:22 #23578 [verbose] > │ () │
00:05:22 #23579 [verbose] > │ │
00:05:22 #23580 [verbose] > │ │
00:05:22 #23581 [verbose] > ╰──────────────────────────────────────────────────────────────────────────────╯
00:05:22 #23582 [verbose] >
00:05:22 #23583 [verbose] > ── markdown ────────────────────────────────────────────────────────────────────
00:05:22 #23584 [verbose] > ╭──────────────────────────────────────────────────────────────────────────────╮
00:05:22 #23585 [verbose] > │ ## from_list │
00:05:22 #23586 [verbose] > ╰──────────────────────────────────────────────────────────────────────────────╯
00:05:22 #23587 [verbose] >
00:05:22 #23588 [verbose] > ── spiral ──────────────────────────────────────────────────────────────────────
00:05:22 #23589 [verbose] > inl from_list list =
00:05:22 #23590 [verbose] > (list, StreamNil)
00:05:22 #23591 [verbose] > ||> listm.foldBack fun x acc =>
00:05:22 #23592 [verbose] > StreamCons (x, fun () => acc)
00:05:22 #23593 [verbose] > Building c:\home\git\polyglot\target\polyglot\spiral_eval\packages\eb18c021fc2ea3a3b4a122fd6696ae180d843f1e42519b73ddbce3f2b0689847\main.spi
00:05:22 #23594 [verbose] >
00:05:22 #23595 [verbose] > ╭─[ 242.81ms - stdout ]────────────────────────────────────────────────────────╮
00:05:22 #23596 [verbose] > │ () │
00:05:22 #23597 [verbose] > │ │
00:05:22 #23598 [verbose] > │ │
00:05:22 #23599 [verbose] > ╰──────────────────────────────────────────────────────────────────────────────╯
00:05:22 #23600 [verbose] >
00:05:22 #23601 [verbose] > ── spiral ──────────────────────────────────────────────────────────────────────
00:05:22 #23602 [verbose] > // // test
00:05:22 #23603 [verbose] >
00:05:22 #23604 [verbose] > listm.init 3i32 id
00:05:22 #23605 [verbose] > |> from_list
00:05:22 #23606 [verbose] > |> rev
00:05:22 #23607 [verbose] > |> to_list
00:05:22 #23608 [verbose] > |> _assert_eq [[ 2; 1; 0 ]]
00:05:23 #23609 [verbose] > Building c:\home\git\polyglot\target\polyglot\spiral_eval\packages\d4cdff881161d287ef2dae58c2a2a48a4ac818bfbde735b8868b449ef6d3095b\main.spi
00:05:24 #23610 [verbose] >
00:05:24 #23611 [verbose] > ╭─[ 1.56s - stdout ]───────────────────────────────────────────────────────────╮
00:05:24 #23612 [verbose] > │ type UH0 = │
00:05:24 #23613 [verbose] > │ | UH0_0 │
00:05:24 #23614 [verbose] > │ | UH0_1 of int32 * UH0 │
00:05:24 #23615 [verbose] > │ let rec method0 () : unit = │
00:05:24 #23616 [verbose] > │ let v0 : UH0 = UH0_0 │
00:05:24 #23617 [verbose] > │ let v1 : UH0 = UH0_1(0, v0) │
00:05:24 #23618 [verbose] > │ let v2 : UH0 = UH0_1(1, v1) │
00:05:24 #23619 [verbose] > │ let v3 : UH0 = UH0_1(2, v2) │
00:05:24 #23620 [verbose] > │ let v4 : string = $"%A{v3}" │
00:05:24 #23621 [verbose] > │ System.Console.WriteLine v4 │
00:05:24 #23622 [verbose] > │ let v23 : UH0 = UH0_0 │
00:05:24 #23623 [verbose] > │ let v24 : UH0 = UH0_1(0, v23) │
00:05:24 #23624 [verbose] > │ let v25 : UH0 = UH0_1(1, v24) │
00:05:24 #23625 [verbose] > │ let v26 : UH0 = UH0_1(2, v25) │
00:05:24 #23626 [verbose] > │ let v27 : UH0 = UH0_0 │
00:05:24 #23627 [verbose] > │ let v28 : UH0 = UH0_1(0, v27) │
00:05:24 #23628 [verbose] > │ let v29 : UH0 = UH0_1(1, v28) │
00:05:24 #23629 [verbose] > │ let v30 : UH0 = UH0_1(2, v29) │
00:05:24 #23630 [verbose] > │ let v31 : string = $"__expect / actual: %A{v26} / expected: %A{v30}" │
00:05:24 #23631 [verbose] > │ () │
00:05:24 #23632 [verbose] > │ method0() │
00:05:24 #23633 [verbose] > │ │
00:05:24 #23634 [verbose] > │ UH0_1 (2, UH0_1 (1, UH0_1 (0, UH0_0))) │
00:05:24 #23635 [verbose] > │ │
00:05:24 #23636 [verbose] > ╰──────────────────────────────────────────────────────────────────────────────╯
00:05:24 #23637 [verbose] >
00:05:24 #23638 [verbose] > ── markdown ────────────────────────────────────────────────────────────────────
00:05:24 #23639 [verbose] > ╭──────────────────────────────────────────────────────────────────────────────╮
00:05:24 #23640 [verbose] > │ ## try_item │
00:05:24 #23641 [verbose] > ╰──────────────────────────────────────────────────────────────────────────────╯
00:05:24 #23642 [verbose] >
00:05:24 #23643 [verbose] > ── spiral ──────────────────────────────────────────────────────────────────────
00:05:24 #23644 [verbose] > inl try_item i s =
00:05:24 #23645 [verbose] > inl rec body i = function
00:05:24 #23646 [verbose] > | StreamCons (x, _) when i <= 0 => Some x
00:05:24 #23647 [verbose] > | StreamCons (_, fn) => loop (i - 1) (fn ())
00:05:24 #23648 [verbose] > | StreamNil => None
00:05:24 #23649 [verbose] > and inl loop acc s' =
00:05:24 #23650 [verbose] > match var_is acc, var_is s' with
00:05:24 #23651 [verbose] > | false, false => body acc s'
00:05:24 #23652 [verbose] > | _ =>
00:05:24 #23653 [verbose] > inl acc = dyn acc
00:05:24 #23654 [verbose] > inl s' = dyn s'
00:05:24 #23655 [verbose] > join body acc s'
00:05:24 #23656 [verbose] > loop i s
00:05:24 #23657 [verbose] >
00:05:24 #23658 [verbose] > inl item i =
00:05:24 #23659 [verbose] > try_item i >> optionm.value
00:05:24 #23660 [verbose] > Building c:\home\git\polyglot\target\polyglot\spiral_eval\packages\ea7fbf904784eb86dc9f830fab62fcf1b636a2e693f7e86963e088ab53b86c27\main.spi
00:05:24 #23661 [verbose] >
00:05:24 #23662 [verbose] > ╭─[ 232.39ms - stdout ]────────────────────────────────────────────────────────╮
00:05:24 #23663 [verbose] > │ () │
00:05:24 #23664 [verbose] > │ │
00:05:24 #23665 [verbose] > │ │
00:05:24 #23666 [verbose] > ╰──────────────────────────────────────────────────────────────────────────────╯
00:05:24 #23667 [verbose] >
00:05:24 #23668 [verbose] > ── spiral ──────────────────────────────────────────────────────────────────────
00:05:24 #23669 [verbose] > // // test
00:05:24 #23670 [verbose] >
00:05:24 #23671 [verbose] > listm.init 10i32 id
00:05:24 #23672 [verbose] > |> from_list
00:05:24 #23673 [verbose] > |> item 9i32
00:05:24 #23674 [verbose] > |> _assert_eq 9
00:05:24 #23675 [verbose] > Building c:\home\git\polyglot\target\polyglot\spiral_eval\packages\639af1cf7869250282ea44349c3271e8e9114f7c9fe7038785d3f490ea78a775\main.spi
00:05:24 #23676 [verbose] >
00:05:24 #23677 [verbose] > ╭─[ 262.18ms - stdout ]────────────────────────────────────────────────────────╮
00:05:24 #23678 [verbose] > │ let rec method0 () : unit = │
00:05:24 #23679 [verbose] > │ let v0 : string = $"%A{9}" │
00:05:24 #23680 [verbose] > │ System.Console.WriteLine v0 │
00:05:24 #23681 [verbose] > │ let v1 : string = $"__expect / actual: %A{9} / expected: %A{9}" │
00:05:24 #23682 [verbose] > │ () │
00:05:24 #23683 [verbose] > │ method0() │
00:05:24 #23684 [verbose] > │ │
00:05:24 #23685 [verbose] > │ 9 │
00:05:24 #23686 [verbose] > │ │
00:05:24 #23687 [verbose] > ╰──────────────────────────────────────────────────────────────────────────────╯
00:05:24 #23688 [verbose] >
00:05:24 #23689 [verbose] > ── markdown ────────────────────────────────────────────────────────────────────
00:05:24 #23690 [verbose] > ╭──────────────────────────────────────────────────────────────────────────────╮
00:05:24 #23691 [verbose] > │ ## new_infinite_stream │
00:05:24 #23692 [verbose] > ╰──────────────────────────────────────────────────────────────────────────────╯
00:05:24 #23693 [verbose] >
00:05:24 #23694 [verbose] > ── spiral ──────────────────────────────────────────────────────────────────────
00:05:24 #23695 [verbose] > inl new_infinite_stream fn =
00:05:24 #23696 [verbose] > inl rec loop n =
00:05:24 #23697 [verbose] > StreamCons (fn n, fun () => loop (n + 1))
00:05:24 #23698 [verbose] > loop 0
00:05:24 #23699 [verbose] >
00:05:24 #23700 [verbose] > inl new_infinite_stream_ fn =
00:05:24 #23701 [verbose] > let rec loop n =
00:05:24 #23702 [verbose] > StreamCons (fn n, fun () => loop (n + 1))
00:05:24 #23703 [verbose] > loop 0
00:05:25 #23704 [verbose] > Building c:\home\git\polyglot\target\polyglot\spiral_eval\packages\7cb1e7b6a82f7df548f42f0a1026996e2529db405f972ecd4f2ddcdde8316a2f\main.spi
00:05:25 #23705 [verbose] >
00:05:25 #23706 [verbose] > ╭─[ 240.09ms - stdout ]────────────────────────────────────────────────────────╮
00:05:25 #23707 [verbose] > │ () │
00:05:25 #23708 [verbose] > │ │
00:05:25 #23709 [verbose] > │ │
00:05:25 #23710 [verbose] > ╰──────────────────────────────────────────────────────────────────────────────╯
00:05:25 #23711 [verbose] >
00:05:25 #23712 [verbose] > ── spiral ──────────────────────────────────────────────────────────────────────
00:05:25 #23713 [verbose] > // // test
00:05:25 #23714 [verbose] >
00:05:25 #23715 [verbose] > new_infinite_stream print_and_return
00:05:25 #23716 [verbose] > |> item 4i32
00:05:25 #23717 [verbose] > |> _assert_eq 4i32
00:05:25 #23718 [verbose] > Building c:\home\git\polyglot\target\polyglot\spiral_eval\packages\cd124474f0fc7c55758f9f3563c4f792dd1e2f51f1d019b539e00df4cce8448d\main.spi
00:05:25 #23719 [verbose] >
00:05:25 #23720 [verbose] > ╭─[ 267.36ms - stdout ]────────────────────────────────────────────────────────╮
00:05:25 #23721 [verbose] > │ let rec method0 () : unit = │
00:05:25 #23722 [verbose] > │ printfn $"print_and_return / x: {0}" │
00:05:25 #23723 [verbose] > │ printfn $"print_and_return / x: {1}" │
00:05:25 #23724 [verbose] > │ printfn $"print_and_return / x: {2}" │
00:05:25 #23725 [verbose] > │ printfn $"print_and_return / x: {3}" │
00:05:25 #23726 [verbose] > │ printfn $"print_and_return / x: {4}" │
00:05:25 #23727 [verbose] > │ let v0 : string = $"%A{4}" │
00:05:25 #23728 [verbose] > │ System.Console.WriteLine v0 │
00:05:25 #23729 [verbose] > │ let v1 : string = $"__expect / actual: %A{4} / expected: %A{4}" │
00:05:25 #23730 [verbose] > │ () │
00:05:25 #23731 [verbose] > │ method0() │
00:05:25 #23732 [verbose] > │ │
00:05:25 #23733 [verbose] > │ print_and_return / x: 0 │
00:05:25 #23734 [verbose] > │ print_and_return / x: 1 │
00:05:25 #23735 [verbose] > │ print_and_return / x: 2 │
00:05:25 #23736 [verbose] > │ print_and_return / x: 3 │
00:05:25 #23737 [verbose] > │ print_and_return / x: 4 │
00:05:25 #23738 [verbose] > │ 4 │
00:05:25 #23739 [verbose] > │ │
00:05:25 #23740 [verbose] > ╰──────────────────────────────────────────────────────────────────────────────╯
00:05:25 #23741 [verbose] >
00:05:25 #23742 [verbose] > ── markdown ────────────────────────────────────────────────────────────────────
00:05:25 #23743 [verbose] > ╭──────────────────────────────────────────────────────────────────────────────╮
00:05:25 #23744 [verbose] > │ ## new_finite_stream │
00:05:25 #23745 [verbose] > ╰──────────────────────────────────────────────────────────────────────────────╯
00:05:25 #23746 [verbose] >
00:05:25 #23747 [verbose] > ── spiral ──────────────────────────────────────────────────────────────────────
00:05:25 #23748 [verbose] > inl new_finite_stream fn max =
00:05:25 #23749 [verbose] > inl rec loop n =
00:05:25 #23750 [verbose] > if n >= max
00:05:25 #23751 [verbose] > then StreamNil
00:05:25 #23752 [verbose] > else StreamCons (fn n, fun () => loop (n + 1))
00:05:25 #23753 [verbose] > loop 0
00:05:25 #23754 [verbose] > Building c:\home\git\polyglot\target\polyglot\spiral_eval\packages\e322a9835bb539466a32722801f79e3b1a068747b7ae8d308f941a95a9319ee6\main.spi
00:05:25 #23755 [verbose] >
00:05:25 #23756 [verbose] > ╭─[ 261.08ms - stdout ]────────────────────────────────────────────────────────╮
00:05:25 #23757 [verbose] > │ () │
00:05:25 #23758 [verbose] > │ │
00:05:25 #23759 [verbose] > │ │
00:05:25 #23760 [verbose] > ╰──────────────────────────────────────────────────────────────────────────────╯
00:05:25 #23761 [verbose] >
00:05:25 #23762 [verbose] > ── markdown ────────────────────────────────────────────────────────────────────
00:05:25 #23763 [verbose] > ╭──────────────────────────────────────────────────────────────────────────────╮
00:05:25 #23764 [verbose] > │ ## memoize │
00:05:25 #23765 [verbose] > ╰──────────────────────────────────────────────────────────────────────────────╯
00:05:25 #23766 [verbose] >
00:05:25 #23767 [verbose] > ── spiral ──────────────────────────────────────────────────────────────────────
00:05:25 #23768 [verbose] > union memoized_stream t =
00:05:25 #23769 [verbose] > | NotComputed : () -> stream t
00:05:25 #23770 [verbose] > | Computed : stream t
00:05:25 #23771 [verbose] >
00:05:25 #23772 [verbose] > inl memoize s =
00:05:25 #23773 [verbose] > inl rec body s =
00:05:25 #23774 [verbose] > inl state = mut (NotComputed s)
00:05:25 #23775 [verbose] > fun () =>
00:05:25 #23776 [verbose] > match *state with
00:05:25 #23777 [verbose] > | Computed x => x
00:05:25 #23778 [verbose] > | NotComputed fn =>
00:05:25 #23779 [verbose] > inl new_state =
00:05:25 #23780 [verbose] > match fn () with
00:05:25 #23781 [verbose] > | StreamNil => StreamNil
00:05:25 #23782 [verbose] > | StreamCons (x, fn) => StreamCons (x, loop fn)
00:05:25 #23783 [verbose] > state <- Computed new_state
00:05:25 #23784 [verbose] > new_state
00:05:25 #23785 [verbose] > and inl loop s' = join_body_unit body s s'
00:05:25 #23786 [verbose] > loop (fun () => s)
00:05:25 #23787 [verbose] > Building c:\home\git\polyglot\target\polyglot\spiral_eval\packages\a87a0d438a85f99ed29debb238f8a219ab4bedc1e327efe646a031e2281d507e\main.spi
00:05:25 #23788 [verbose] >
00:05:25 #23789 [verbose] > ╭─[ 249.32ms - stdout ]────────────────────────────────────────────────────────╮
00:05:25 #23790 [verbose] > │ () │
00:05:25 #23791 [verbose] > │ │
00:05:25 #23792 [verbose] > │ │
00:05:25 #23793 [verbose] > ╰──────────────────────────────────────────────────────────────────────────────╯
00:05:25 #23794 [verbose] >
00:05:25 #23795 [verbose] > ── spiral ──────────────────────────────────────────────────────────────────────
00:05:25 #23796 [verbose] > // // test
00:05:25 #23797 [verbose] >
00:05:25 #23798 [verbose] > inl memo_stream = new_finite_stream print_and_return 10 |> memoize
00:05:25 #23799 [verbose] >
00:05:25 #23800 [verbose] > memo_stream ()
00:05:25 #23801 [verbose] > |> item 3i32
00:05:25 #23802 [verbose] > |> _assert_eq 3i32
00:05:25 #23803 [verbose] >
00:05:25 #23804 [verbose] > memo_stream ()
00:05:25 #23805 [verbose] > |> item 5i32
00:05:25 #23806 [verbose] > |> _assert_eq 5i32
00:05:26 #23807 [verbose] > Building c:\home\git\polyglot\target\polyglot\spiral_eval\packages\1d79ef58c19a796aede33305401f553e0b65733855a18ab95b2513c9ed417fcf\main.spi
00:05:26 #23808 [verbose] >
00:05:26 #23809 [verbose] > ╭─[ 690.85ms - stdout ]────────────────────────────────────────────────────────╮
00:05:26 #23810 [verbose] > │ type UH0 = │
00:05:26 #23811 [verbose] > │ | UH0_0 of int32 * (unit -> UH0) │
00:05:26 #23812 [verbose] > │ | UH0_1 │
00:05:26 #23813 [verbose] > │ and [<Struct>] US0 = │
00:05:26 #23814 [verbose] > │ | US0_0 of f0_0 : (unit -> UH0) │
00:05:26 #23815 [verbose] > │ | US0_1 of f1_0 : UH0 │
00:05:26 #23816 [verbose] > │ and Mut0 = {mutable l0 : US0} │
00:05:26 #23817 [verbose] > │ and [<Struct>] US1 = │
00:05:26 #23818 [verbose] > │ | US1_0 of f0_0 : int32 │
00:05:26 #23819 [verbose] > │ | US1_1 │
00:05:26 #23820 [verbose] > │ let rec closure10 () () : UH0 = │
00:05:26 #23821 [verbose] > │ UH0_1 │
00:05:26 #23822 [verbose] > │ and closure9 () () : UH0 = │
00:05:26 #23823 [verbose] > │ printfn $"print_and_return / x: {9}" │
00:05:26 #23824 [verbose] > │ let v0 : (unit -> UH0) = closure10() │
00:05:26 #23825 [verbose] > │ UH0_0(9, v0) │
00:05:26 #23826 [verbose] > │ and closure8 () () : UH0 = │
00:05:26 #23827 [verbose] > │ printfn $"print_and_return / x: {8}" │
00:05:26 #23828 [verbose] > │ let v0 : (unit -> UH0) = closure9() │
00:05:26 #23829 [verbose] > │ UH0_0(8, v0) │
00:05:26 #23830 [verbose] > │ and closure7 () () : UH0 = │
00:05:26 #23831 [verbose] > │ printfn $"print_and_return / x: {7}" │
00:05:26 #23832 [verbose] > │ let v0 : (unit -> UH0) = closure8() │
00:05:26 #23833 [verbose] > │ UH0_0(7, v0) │
00:05:26 #23834 [verbose] > │ and closure6 () () : UH0 = │
00:05:26 #23835 [verbose] > │ printfn $"print_and_return / x: {6}" │
00:05:26 #23836 [verbose] > │ let v0 : (unit -> UH0) = closure7() │
00:05:26 #23837 [verbose] > │ UH0_0(6, v0) │
00:05:26 #23838 [verbose] > │ and closure5 () () : UH0 = │
00:05:26 #23839 [verbose] > │ printfn $"print_and_return / x: {5}" │
00:05:26 #23840 [verbose] > │ let v0 : (unit -> UH0) = closure6() │
00:05:26 #23841 [verbose] > │ UH0_0(5, v0) │
00:05:26 #23842 [verbose] > │ and closure4 () () : UH0 = │
00:05:26 #23843 [verbose] > │ printfn $"print_and_return / x: {4}" │
00:05:26 #23844 [verbose] > │ let v0 : (unit -> UH0) = closure5() │
00:05:26 #23845 [verbose] > │ UH0_0(4, v0) │
00:05:26 #23846 [verbose] > │ and closure3 () () : UH0 = │
00:05:26 #23847 [verbose] > │ printfn $"print_and_return / x: {3}" │
00:05:26 #23848 [verbose] > │ let v0 : (unit -> UH0) = closure4() │
00:05:26 #23849 [verbose] > │ UH0_0(3, v0) │
00:05:26 #23850 [verbose] > │ and closure2 () () : UH0 = │
00:05:26 #23851 [verbose] > │ printfn $"print_and_return / x: {2}" │
00:05:26 #23852 [verbose] > │ let v0 : (unit -> UH0) = closure3() │
00:05:26 #23853 [verbose] > │ UH0_0(2, v0) │
00:05:26 #23854 [verbose] > │ and closure1 () () : UH0 = │
00:05:26 #23855 [verbose] > │ printfn $"print_and_return / x: {1}" │
00:05:26 #23856 [verbose] > │ let v0 : (unit -> UH0) = closure2() │
00:05:26 #23857 [verbose] > │ UH0_0(1, v0) │
00:05:26 #23858 [verbose] > │ and closure0 () () : UH0 = │
00:05:26 #23859 [verbose] > │ let v0 : (unit -> UH0) = closure1() │
00:05:26 #23860 [verbose] > │ UH0_0(0, v0) │
00:05:26 #23861 [verbose] > │ and closure11 (v0 : Mut0) () : UH0 = │
00:05:26 #23862 [verbose] > │ let v1 : US0 = v0.l0 │
00:05:26 #23863 [verbose] > │ match v1 with │
00:05:26 #23864 [verbose] > │ | US0_1(v2) -> (* Computed *) │
00:05:26 #23865 [verbose] > │ v2 │
00:05:26 #23866 [verbose] > │ | US0_0(v3) -> (* NotComputed *) │
00:05:26 #23867 [verbose] > │ let v4 : UH0 = v3 () │
00:05:26 #23868 [verbose] > │ let v13 : UH0 = │
00:05:26 #23869 [verbose] > │ match v4 with │
00:05:26 #23870 [verbose] > │ | UH0_0(v6, v7) -> (* StreamCons *) │
00:05:26 #23871 [verbose] > │ let v8 : US0 = US0_0(v7) │
00:05:26 #23872 [verbose] > │ let v9 : Mut0 = {l0 = v8} : Mut0 │
00:05:26 #23873 [verbose] > │ let v10 : (unit -> UH0) = closure11(v9) │
00:05:26 #23874 [verbose] > │ UH0_0(v6, v10) │
00:05:26 #23875 [verbose] > │ | UH0_1 -> (* StreamNil *) │
00:05:26 #23876 [verbose] > │ UH0_1 │
00:05:26 #23877 [verbose] > │ let v14 : US0 = US0_1(v13) │
00:05:26 #23878 [verbose] > │ v0.l0 <- v14 │
00:05:26 #23879 [verbose] > │ v13 │
00:05:26 #23880 [verbose] > │ and method1 (v0 : int32, v1 : UH0) : US1 = │
00:05:26 #23881 [verbose] > │ match v1 with │
00:05:26 #23882 [verbose] > │ | UH0_0(v2, v3) -> (* StreamCons *) │
00:05:26 #23883 [verbose] > │ let v4 : bool = v0 <= 0 │
00:05:26 #23884 [verbose] > │ if v4 then │
00:05:26 #23885 [verbose] > │ US1_0(v2) │
00:05:26 #23886 [verbose] > │ else │
00:05:26 #23887 [verbose] > │ let v6 : int32 = v0 - 1 │
00:05:26 #23888 [verbose] > │ let v7 : UH0 = v3 () │
00:05:26 #23889 [verbose] > │ method1(v6, v7) │
00:05:26 #23890 [verbose] > │ | UH0_1 -> (* StreamNil *) │
00:05:26 #23891 [verbose] > │ US1_1 │
00:05:26 #23892 [verbose] > │ and method2 (v0 : bool) : bool = │
00:05:26 #23893 [verbose] > │ v0 │
00:05:26 #23894 [verbose] > │ and method0 () : unit = │
00:05:26 #23895 [verbose] > │ printfn $"print_and_return / x: {0}" │
00:05:26 #23896 [verbose] > │ let v0 : (unit -> UH0) = closure0() │
00:05:26 #23897 [verbose] > │ let v1 : US0 = US0_0(v0) │
00:05:26 #23898 [verbose] > │ let v2 : Mut0 = {l0 = v1} : Mut0 │
00:05:26 #23899 [verbose] > │ let v3 : US0 = v2.l0 │
00:05:26 #23900 [verbose] > │ let v18 : UH0 = │
00:05:26 #23901 [verbose] > │ match v3 with │
00:05:26 #23902 [verbose] > │ | US0_1(v4) -> (* Computed *) │
00:05:26 #23903 [verbose] > │ v4 │
00:05:26 #23904 [verbose] > │ | US0_0(v5) -> (* NotComputed *) │
00:05:26 #23905 [verbose] > │ let v6 : UH0 = v5 () │
00:05:26 #23906 [verbose] > │ let v15 : UH0 = │
00:05:26 #23907 [verbose] > │ match v6 with │
00:05:26 #23908 [verbose] > │ | UH0_0(v8, v9) -> (* StreamCons *) │
00:05:26 #23909 [verbose] > │ let v10 : US0 = US0_0(v9) │
00:05:26 #23910 [verbose] > │ let v11 : Mut0 = {l0 = v10} : Mut0 │
00:05:26 #23911 [verbose] > │ let v12 : (unit -> UH0) = closure11(v11) │
00:05:26 #23912 [verbose] > │ UH0_0(v8, v12) │
00:05:26 #23913 [verbose] > │ | UH0_1 -> (* StreamNil *) │
00:05:26 #23914 [verbose] > │ UH0_1 │
00:05:26 #23915 [verbose] > │ let v16 : US0 = US0_1(v15) │
00:05:26 #23916 [verbose] > │ v2.l0 <- v16 │
00:05:26 #23917 [verbose] > │ v15 │
00:05:26 #23918 [verbose] > │ let v19 : int32 = 3 │
00:05:26 #23919 [verbose] > │ let v20 : US1 = method1(v19, v18) │
00:05:26 #23920 [verbose] > │ let v24 : int32 = │
00:05:26 #23921 [verbose] > │ match v20 with │
00:05:26 #23922 [verbose] > │ | US1_1 -> (* None *) │
00:05:26 #23923 [verbose] > │ failwith<int32> "Option does not have a value." │
00:05:26 #23924 [verbose] > │ | US1_0(v21) -> (* Some *) │
00:05:26 #23925 [verbose] > │ v21 │
00:05:26 #23926 [verbose] > │ let v25 : string = $"%A{v24}" │
00:05:26 #23927 [verbose] > │ System.Console.WriteLine v25 │
00:05:26 #23928 [verbose] > │ let v26 : bool = v24 = 3 │
00:05:26 #23929 [verbose] > │ let v28 : bool = │
00:05:26 #23930 [verbose] > │ if v26 then │
00:05:26 #23931 [verbose] > │ true │
00:05:26 #23932 [verbose] > │ else │
00:05:26 #23933 [verbose] > │ method2(v26) │
00:05:26 #23934 [verbose] > │ let v29 : string = $"__expect / actual: %A{v24} / expected: %A{3}" │
00:05:26 #23935 [verbose] > │ let v30 : bool = v28 = false │
00:05:26 #23936 [verbose] > │ if v30 then │
00:05:26 #23937 [verbose] > │ failwith<unit> v29 │
00:05:26 #23938 [verbose] > │ let v31 : US0 = v2.l0 │
00:05:26 #23939 [verbose] > │ let v46 : UH0 = │
00:05:26 #23940 [verbose] > │ match v31 with │
00:05:26 #23941 [verbose] > │ | US0_1(v32) -> (* Computed *) │
00:05:26 #23942 [verbose] > │ v32 │
00:05:26 #23943 [verbose] > │ | US0_0(v33) -> (* NotComputed *) │
00:05:26 #23944 [verbose] > │ let v34 : UH0 = v33 () │
00:05:26 #23945 [verbose] > │ let v43 : UH0 = │
00:05:26 #23946 [verbose] > │ match v34 with │
00:05:26 #23947 [verbose] > │ | UH0_0(v36, v37) -> (* StreamCons *) │
00:05:26 #23948 [verbose] > │ let v38 : US0 = US0_0(v37) │
00:05:26 #23949 [verbose] > │ let v39 : Mut0 = {l0 = v38} : Mut0 │
00:05:26 #23950 [verbose] > │ let v40 : (unit -> UH0) = closure11(v39) │
00:05:26 #23951 [verbose] > │ UH0_0(v36, v40) │
00:05:26 #23952 [verbose] > │ | UH0_1 -> (* StreamNil *) │
00:05:26 #23953 [verbose] > │ UH0_1 │
00:05:26 #23954 [verbose] > │ let v44 : US0 = US0_1(v43) │
00:05:26 #23955 [verbose] > │ v2.l0 <- v44 │
00:05:26 #23956 [verbose] > │ v43 │
00:05:26 #23957 [verbose] > │ let v47 : int32 = 5 │
00:05:26 #23958 [verbose] > │ let v48 : US1 = method1(v47, v46) │
00:05:26 #23959 [verbose] > │ let v52 : int32 = │
00:05:26 #23960 [verbose] > │ match v48 with │
00:05:26 #23961 [verbose] > │ | US1_1 -> (* None *) │
00:05:26 #23962 [verbose] > │ failwith<int32> "Option does not have a value." │
00:05:26 #23963 [verbose] > │ | US1_0(v49) -> (* Some *) │
00:05:26 #23964 [verbose] > │ v49 │
00:05:26 #23965 [verbose] > │ let v53 : string = $"%A{v52}" │
00:05:26 #23966 [verbose] > │ System.Console.WriteLine v53 │
00:05:26 #23967 [verbose] > │ let v54 : bool = v52 = 5 │
00:05:26 #23968 [verbose] > │ let v56 : bool = │
00:05:26 #23969 [verbose] > │ if v54 then │
00:05:26 #23970 [verbose] > │ true │
00:05:26 #23971 [verbose] > │ else │
00:05:26 #23972 [verbose] > │ method2(v54) │
00:05:26 #23973 [verbose] > │ let v57 : string = $"__expect / actual: %A{v52} / expected: %A{5}" │
00:05:26 #23974 [verbose] > │ let v58 : bool = v56 = false │
00:05:26 #23975 [verbose] > │ if v58 then │
00:05:26 #23976 [verbose] > │ failwith<unit> v57 │
00:05:26 #23977 [verbose] > │ method0() │
00:05:26 #23978 [verbose] > │ │
00:05:26 #23979 [verbose] > │ print_and_return / x: 0 │
00:05:26 #23980 [verbose] > │ print_and_return / x: 1 │
00:05:26 #23981 [verbose] > │ print_and_return / x: 2 │
00:05:26 #23982 [verbose] > │ print_and_return / x: 3 │
00:05:26 #23983 [verbose] > │ 3 │
00:05:26 #23984 [verbose] > │ print_and_return / x: 4 │
00:05:26 #23985 [verbose] > │ print_and_return / x: 5 │
00:05:26 #23986 [verbose] > │ 5 │
00:05:26 #23987 [verbose] > │ │
00:05:26 #23988 [verbose] > ╰──────────────────────────────────────────────────────────────────────────────╯
00:05:26 #23989 [verbose] >
00:05:26 #23990 [verbose] > ── spiral ──────────────────────────────────────────────────────────────────────
00:05:26 #23991 [verbose] > // // test
00:05:26 #23992 [verbose] >
00:05:26 #23993 [verbose] > inl memo_stream = new_infinite_stream_ print_and_return |> memoize
00:05:26 #23994 [verbose] >
00:05:26 #23995 [verbose] > memo_stream ()
00:05:26 #23996 [verbose] > |> item 3i32
00:05:26 #23997 [verbose] > |> _assert_eq 3i32
00:05:26 #23998 [verbose] >
00:05:26 #23999 [verbose] > memo_stream ()
00:05:26 #24000 [verbose] > |> item 5i32
00:05:26 #24001 [verbose] > |> _assert_eq 5i32
00:05:26 #24002 [verbose] > Building c:\home\git\polyglot\target\polyglot\spiral_eval\packages\0126cb97375c4b8db393cd683add61325ad24a7a7409b24fcca3b862b8267b42\main.spi
00:05:27 #24003 [verbose] >
00:05:27 #24004 [verbose] > ╭─[ 284.59ms - stdout ]────────────────────────────────────────────────────────╮
00:05:27 #24005 [verbose] > │ type UH0 = │
00:05:27 #24006 [verbose] > │ | UH0_0 of int32 * (unit -> UH0) │
00:05:27 #24007 [verbose] > │ | UH0_1 │
00:05:27 #24008 [verbose] > │ and [<Struct>] US0 = │
00:05:27 #24009 [verbose] > │ | US0_0 of f0_0 : (unit -> UH0) │
00:05:27 #24010 [verbose] > │ | US0_1 of f1_0 : UH0 │
00:05:27 #24011 [verbose] > │ and Mut0 = {mutable l0 : US0} │
00:05:27 #24012 [verbose] > │ and [<Struct>] US1 = │
00:05:27 #24013 [verbose] > │ | US1_0 of f0_0 : int32 │
00:05:27 #24014 [verbose] > │ | US1_1 │
00:05:27 #24015 [verbose] > │ let rec closure0 (v0 : int32) () : UH0 = │
00:05:27 #24016 [verbose] > │ let v1 : int32 = v0 + 1 │
00:05:27 #24017 [verbose] > │ method1(v1) │
00:05:27 #24018 [verbose] > │ and method1 (v0 : int32) : UH0 = │
00:05:27 #24019 [verbose] > │ printfn $"print_and_return / x: {v0}" │
00:05:27 #24020 [verbose] > │ let v1 : (unit -> UH0) = closure0(v0) │
00:05:27 #24021 [verbose] > │ UH0_0(v0, v1) │
00:05:27 #24022 [verbose] > │ and closure1 (v0 : UH0) () : UH0 = │
00:05:27 #24023 [verbose] > │ v0 │
00:05:27 #24024 [verbose] > │ and closure2 (v0 : UH0, v1 : Mut0) () : UH0 = │
00:05:27 #24025 [verbose] > │ let v2 : US0 = v1.l0 │
00:05:27 #24026 [verbose] > │ match v2 with │
00:05:27 #24027 [verbose] > │ | US0_1(v3) -> (* Computed *) │
00:05:27 #24028 [verbose] > │ v3 │
00:05:27 #24029 [verbose] > │ | US0_0(v4) -> (* NotComputed *) │
00:05:27 #24030 [verbose] > │ let v5 : UH0 = v4 () │
00:05:27 #24031 [verbose] > │ let v12 : UH0 = │
00:05:27 #24032 [verbose] > │ match v5 with │
00:05:27 #24033 [verbose] > │ | UH0_0(v7, v8) -> (* StreamCons *) │
00:05:27 #24034 [verbose] > │ let v9 : (unit -> UH0) = method2(v0, v8) │
00:05:27 #24035 [verbose] > │ UH0_0(v7, v9) │
00:05:27 #24036 [verbose] > │ | UH0_1 -> (* StreamNil *) │
00:05:27 #24037 [verbose] > │ UH0_1 │
00:05:27 #24038 [verbose] > │ let v13 : US0 = US0_1(v12) │
00:05:27 #24039 [verbose] > │ v1.l0 <- v13 │
00:05:27 #24040 [verbose] > │ v12 │
00:05:27 #24041 [verbose] > │ and method2 (v0 : UH0, v1 : (unit -> UH0)) : (unit -> UH0) = │
00:05:27 #24042 [verbose] > │ let v2 : US0 = US0_0(v1) │
00:05:27 #24043 [verbose] > │ let v3 : Mut0 = {l0 = v2} : Mut0 │
00:05:27 #24044 [verbose] > │ closure2(v0, v3) │
00:05:27 #24045 [verbose] > │ and method3 (v0 : int32, v1 : UH0) : US1 = │
00:05:27 #24046 [verbose] > │ match v1 with │
00:05:27 #24047 [verbose] > │ | UH0_0(v2, v3) -> (* StreamCons *) │
00:05:27 #24048 [verbose] > │ let v4 : bool = v0 <= 0 │
00:05:27 #24049 [verbose] > │ if v4 then │
00:05:27 #24050 [verbose] > │ US1_0(v2) │
00:05:27 #24051 [verbose] > │ else │
00:05:27 #24052 [verbose] > │ let v6 : int32 = v0 - 1 │
00:05:27 #24053 [verbose] > │ let v7 : UH0 = v3 () │
00:05:27 #24054 [verbose] > │ method3(v6, v7) │
00:05:27 #24055 [verbose] > │ | UH0_1 -> (* StreamNil *) │
00:05:27 #24056 [verbose] > │ US1_1 │
00:05:27 #24057 [verbose] > │ and method4 (v0 : bool) : bool = │
00:05:27 #24058 [verbose] > │ v0 │
00:05:27 #24059 [verbose] > │ and method0 () : unit = │
00:05:27 #24060 [verbose] > │ let v0 : int32 = 0 │
00:05:27 #24061 [verbose] > │ let v1 : UH0 = method1(v0) │
00:05:27 #24062 [verbose] > │ let v2 : (unit -> UH0) = closure1(v1) │
00:05:27 #24063 [verbose] > │ let v3 : (unit -> UH0) = method2(v1, v2) │
00:05:27 #24064 [verbose] > │ let v4 : UH0 = v3 () │
00:05:27 #24065 [verbose] > │ let v5 : int32 = 3 │
00:05:27 #24066 [verbose] > │ let v6 : US1 = method3(v5, v4) │
00:05:27 #24067 [verbose] > │ let v10 : int32 = │
00:05:27 #24068 [verbose] > │ match v6 with │
00:05:27 #24069 [verbose] > │ | US1_1 -> (* None *) │
00:05:27 #24070 [verbose] > │ failwith<int32> "Option does not have a value." │
00:05:27 #24071 [verbose] > │ | US1_0(v7) -> (* Some *) │
00:05:27 #24072 [verbose] > │ v7 │
00:05:27 #24073 [verbose] > │ let v11 : string = $"%A{v10}" │
00:05:27 #24074 [verbose] > │ System.Console.WriteLine v11 │
00:05:27 #24075 [verbose] > │ let v12 : bool = v10 = 3 │
00:05:27 #24076 [verbose] > │ let v14 : bool = │
00:05:27 #24077 [verbose] > │ if v12 then │
00:05:27 #24078 [verbose] > │ true │
00:05:27 #24079 [verbose] > │ else │
00:05:27 #24080 [verbose] > │ method4(v12) │
00:05:27 #24081 [verbose] > │ let v15 : string = $"__expect / actual: %A{v10} / expected: %A{3}" │
00:05:27 #24082 [verbose] > │ let v16 : bool = v14 = false │
00:05:27 #24083 [verbose] > │ if v16 then │
00:05:27 #24084 [verbose] > │ failwith<unit> v15 │
00:05:27 #24085 [verbose] > │ let v17 : UH0 = v3 () │
00:05:27 #24086 [verbose] > │ let v18 : int32 = 5 │
00:05:27 #24087 [verbose] > │ let v19 : US1 = method3(v18, v17) │
00:05:27 #24088 [verbose] > │ let v23 : int32 = │
00:05:27 #24089 [verbose] > │ match v19 with │
00:05:27 #24090 [verbose] > │ | US1_1 -> (* None *) │
00:05:27 #24091 [verbose] > │ failwith<int32> "Option does not have a value." │
00:05:27 #24092 [verbose] > │ | US1_0(v20) -> (* Some *) │
00:05:27 #24093 [verbose] > │ v20 │
00:05:27 #24094 [verbose] > │ let v24 : string = $"%A{v23}" │
00:05:27 #24095 [verbose] > │ System.Console.WriteLine v24 │
00:05:27 #24096 [verbose] > │ let v25 : bool = v23 = 5 │
00:05:27 #24097 [verbose] > │ let v27 : bool = │
00:05:27 #24098 [verbose] > │ if v25 then │
00:05:27 #24099 [verbose] > │ true │
00:05:27 #24100 [verbose] > │ else │
00:05:27 #24101 [verbose] > │ method4(v25) │
00:05:27 #24102 [verbose] > │ let v28 : string = $"__expect / actual: %A{v23} / expected: %A{5}" │
00:05:27 #24103 [verbose] > │ let v29 : bool = v27 = false │
00:05:27 #24104 [verbose] > │ if v29 then │
00:05:27 #24105 [verbose] > │ failwith<unit> v28 │
00:05:27 #24106 [verbose] > │ method0() │
00:05:27 #24107 [verbose] > │ │
00:05:27 #24108 [verbose] > │ print_and_return / x: 0 │
00:05:27 #24109 [verbose] > │ print_and_return / x: 1 │
00:05:27 #24110 [verbose] > │ print_and_return / x: 2 │
00:05:27 #24111 [verbose] > │ print_and_return / x: 3 │
00:05:27 #24112 [verbose] > │ 3 │
00:05:27 #24113 [verbose] > │ print_and_return / x: 4 │
00:05:27 #24114 [verbose] > │ print_and_return / x: 5 │
00:05:27 #24115 [verbose] > │ 5 │
00:05:27 #24116 [verbose] > │ │
00:05:27 #24117 [verbose] > ╰──────────────────────────────────────────────────────────────────────────────╯
00:05:27 #24118 [verbose] >
00:05:27 #24119 [verbose] > ── markdown ────────────────────────────────────────────────────────────────────
00:05:27 #24120 [verbose] > ╭──────────────────────────────────────────────────────────────────────────────╮
00:05:27 #24121 [verbose] > │ ## unfold │
00:05:27 #24122 [verbose] > ╰──────────────────────────────────────────────────────────────────────────────╯
00:05:27 #24123 [verbose] >
00:05:27 #24124 [verbose] > ── spiral ──────────────────────────────────────────────────────────────────────
00:05:27 #24125 [verbose] > inl unfold f x0 =
00:05:27 #24126 [verbose] > inl rec body x =
00:05:27 #24127 [verbose] > match f x with
00:05:27 #24128 [verbose] > | Some (x', y) => StreamCons (x', fun () => loop y)
00:05:27 #24129 [verbose] > | None => StreamNil
00:05:27 #24130 [verbose] > and inl loop x = join_body_unit body x0 x
00:05:27 #24131 [verbose] > loop x0
00:05:27 #24132 [verbose] > Building c:\home\git\polyglot\target\polyglot\spiral_eval\packages\a718839f7e25674ae9006d1adf73ab7e38370db6ec655d3044b8a8d9a909d62f\main.spi
00:05:27 #24133 [verbose] >
00:05:27 #24134 [verbose] > ╭─[ 214.65ms - stdout ]────────────────────────────────────────────────────────╮
00:05:27 #24135 [verbose] > │ () │
00:05:27 #24136 [verbose] > │ │
00:05:27 #24137 [verbose] > │ │
00:05:27 #24138 [verbose] > ╰──────────────────────────────────────────────────────────────────────────────╯
00:05:27 #24139 [verbose] >
00:05:27 #24140 [verbose] > ── markdown ────────────────────────────────────────────────────────────────────
00:05:27 #24141 [verbose] > ╭──────────────────────────────────────────────────────────────────────────────╮
00:05:27 #24142 [verbose] > │ ## iterate │
00:05:27 #24143 [verbose] > ╰──────────────────────────────────────────────────────────────────────────────╯
00:05:27 #24144 [verbose] >
00:05:27 #24145 [verbose] > ── spiral ──────────────────────────────────────────────────────────────────────
00:05:27 #24146 [verbose] > inl iterate f =
00:05:27 #24147 [verbose] > unfold (fun x => Some (x, f x))
00:05:27 #24148 [verbose] > Building c:\home\git\polyglot\target\polyglot\spiral_eval\packages\05612d30f66338f5fc973470abb32611fad46a6306f252ee064ae815df3fccf4\main.spi
00:05:27 #24149 [verbose] >
00:05:27 #24150 [verbose] > ╭─[ 239.63ms - stdout ]────────────────────────────────────────────────────────╮
00:05:27 #24151 [verbose] > │ () │
00:05:27 #24152 [verbose] > │ │
00:05:27 #24153 [verbose] > │ │
00:05:27 #24154 [verbose] > ╰──────────────────────────────────────────────────────────────────────────────╯
00:05:27 #24155 [verbose] >
00:05:27 #24156 [verbose] > ── spiral ──────────────────────────────────────────────────────────────────────
00:05:27 #24157 [verbose] > // // test
00:05:27 #24158 [verbose] >
00:05:27 #24159 [verbose] > iterate ((*) 2) 1i32
00:05:27 #24160 [verbose] > |> item 10i32
00:05:27 #24161 [verbose] > |> _assert_eq 1024
00:05:27 #24162 [verbose] > Building c:\home\git\polyglot\target\polyglot\spiral_eval\packages\9ecedaa8f53b2b35210e0cdb261560c5ecb3fb87d3ddf7174c76fc208c5c1dd9\main.spi
00:05:27 #24163 [verbose] >
00:05:27 #24164 [verbose] > ╭─[ 235.96ms - stdout ]────────────────────────────────────────────────────────╮
00:05:27 #24165 [verbose] > │ let rec method0 () : unit = │
00:05:27 #24166 [verbose] > │ let v0 : string = $"%A{1024}" │
00:05:27 #24167 [verbose] > │ System.Console.WriteLine v0 │
00:05:27 #24168 [verbose] > │ let v1 : string = $"__expect / actual: %A{1024} / expected: %A{1024}" │
00:05:27 #24169 [verbose] > │ () │
00:05:27 #24170 [verbose] > │ method0() │
00:05:27 #24171 [verbose] > │ │
00:05:27 #24172 [verbose] > │ 1024 │
00:05:27 #24173 [verbose] > │ │
00:05:27 #24174 [verbose] > ╰──────────────────────────────────────────────────────────────────────────────╯
00:05:27 #24175 [verbose] >
00:05:27 #24176 [verbose] > ── markdown ────────────────────────────────────────────────────────────────────
00:05:27 #24177 [verbose] > ╭──────────────────────────────────────────────────────────────────────────────╮
00:05:27 #24178 [verbose] > │ ## take_while │
00:05:27 #24179 [verbose] > ╰──────────────────────────────────────────────────────────────────────────────╯
00:05:27 #24180 [verbose] >
00:05:27 #24181 [verbose] > ── spiral ──────────────────────────────────────────────────────────────────────
00:05:27 #24182 [verbose] > inl take_while cond s =
00:05:27 #24183 [verbose] > inl rec body i = function
00:05:27 #24184 [verbose] > | StreamCons (st, fn) when cond st i => StreamCons (st, fun () => loop
00:05:27 #24185 [verbose] > (i + 1) (fn ()))
00:05:27 #24186 [verbose] > | _ => StreamNil
00:05:27 #24187 [verbose] > and inl loop i = join_body body i
00:05:27 #24188 [verbose] > loop 0 s
00:05:27 #24189 [verbose] > Building c:\home\git\polyglot\target\polyglot\spiral_eval\packages\ffc67de91c64b757adfaecbe5a45c04b151bd865410c71d928529bdf9b2881e5\main.spi
00:05:27 #24190 [verbose] >
00:05:27 #24191 [verbose] > ╭─[ 220.54ms - stdout ]────────────────────────────────────────────────────────╮
00:05:27 #24192 [verbose] > │ () │
00:05:27 #24193 [verbose] > │ │
00:05:27 #24194 [verbose] > │ │
00:05:27 #24195 [verbose] > ╰──────────────────────────────────────────────────────────────────────────────╯
00:05:27 #24196 [verbose] >
00:05:27 #24197 [verbose] > ── markdown ────────────────────────────────────────────────────────────────────
00:05:27 #24198 [verbose] > ╭──────────────────────────────────────────────────────────────────────────────╮
00:05:27 #24199 [verbose] > │ ## sum │
00:05:27 #24200 [verbose] > ╰──────────────────────────────────────────────────────────────────────────────╯
00:05:28 #24201 [verbose] >
00:05:28 #24202 [verbose] > ── spiral ──────────────────────────────────────────────────────────────────────
00:05:28 #24203 [verbose] > inl sum seq =
00:05:28 #24204 [verbose] > seq |> fold (+) 0
00:05:28 #24205 [verbose] > Building c:\home\git\polyglot\target\polyglot\spiral_eval\packages\31b197d1538966e0e95d8e2273019ff9404eec16acfd8b1a283154828e1a22d3\main.spi
00:05:28 #24206 [verbose] >
00:05:28 #24207 [verbose] > ╭─[ 220.68ms - stdout ]────────────────────────────────────────────────────────╮
00:05:28 #24208 [verbose] > │ () │
00:05:28 #24209 [verbose] > │ │
00:05:28 #24210 [verbose] > │ │
00:05:28 #24211 [verbose] > ╰──────────────────────────────────────────────────────────────────────────────╯
00:05:28 #24212 [verbose] >
00:05:28 #24213 [verbose] > ── spiral ──────────────────────────────────────────────────────────────────────
00:05:28 #24214 [verbose] > // // test
00:05:28 #24215 [verbose] >
00:05:28 #24216 [verbose] > listm.init 10i32 id
00:05:28 #24217 [verbose] > |> from_list
00:05:28 #24218 [verbose] > |> sum
00:05:28 #24219 [verbose] > |> _assert_eq 45
00:05:28 #24220 [verbose] > Building c:\home\git\polyglot\target\polyglot\spiral_eval\packages\a1059cdd2883e583c2c7efe84ffd1ee558e4999f7ee54795b75e5b46253cf359\main.spi
00:05:28 #24221 [verbose] >
00:05:28 #24222 [verbose] > ╭─[ 253.21ms - stdout ]────────────────────────────────────────────────────────╮
00:05:28 #24223 [verbose] > │ let rec method0 () : unit = │
00:05:28 #24224 [verbose] > │ let v0 : string = $"%A{45}" │
00:05:28 #24225 [verbose] > │ System.Console.WriteLine v0 │
00:05:28 #24226 [verbose] > │ let v1 : string = $"__expect / actual: %A{45} / expected: %A{45}" │
00:05:28 #24227 [verbose] > │ () │
00:05:28 #24228 [verbose] > │ method0() │
00:05:28 #24229 [verbose] > │ │
00:05:28 #24230 [verbose] > │ 45 │
00:05:28 #24231 [verbose] > │ │
00:05:28 #24232 [verbose] > ╰──────────────────────────────────────────────────────────────────────────────╯
00:05:28 #24233 [verbose] >
00:05:28 #24234 [verbose] > ── spiral ──────────────────────────────────────────────────────────────────────
00:05:28 #24235 [verbose] > // // test
00:05:28 #24236 [verbose] >
00:05:28 #24237 [verbose] > new_finite_stream print_and_return 10i32
00:05:28 #24238 [verbose] > |> take_while (fun n (_ : i32) => n < 5)
00:05:28 #24239 [verbose] > |> sum
00:05:28 #24240 [verbose] > |> _assert_eq 10
00:05:28 #24241 [verbose] > Building c:\home\git\polyglot\target\polyglot\spiral_eval\packages\f2a097ca7b8159171c62f1422577672fa7296e30b8c27eec1f2edc788fb08974\main.spi
00:05:28 #24242 [verbose] >
00:05:28 #24243 [verbose] > ╭─[ 265.89ms - stdout ]────────────────────────────────────────────────────────╮
00:05:28 #24244 [verbose] > │ let rec method0 () : unit = │
00:05:28 #24245 [verbose] > │ printfn $"print_and_return / x: {0}" │
00:05:28 #24246 [verbose] > │ printfn $"print_and_return / x: {1}" │
00:05:28 #24247 [verbose] > │ printfn $"print_and_return / x: {2}" │
00:05:28 #24248 [verbose] > │ printfn $"print_and_return / x: {3}" │
00:05:28 #24249 [verbose] > │ printfn $"print_and_return / x: {4}" │
00:05:28 #24250 [verbose] > │ printfn $"print_and_return / x: {5}" │
00:05:28 #24251 [verbose] > │ let v0 : string = $"%A{10}" │
00:05:28 #24252 [verbose] > │ System.Console.WriteLine v0 │
00:05:28 #24253 [verbose] > │ let v1 : string = $"__expect / actual: %A{10} / expected: %A{10}" │
00:05:28 #24254 [verbose] > │ () │
00:05:28 #24255 [verbose] > │ method0() │
00:05:28 #24256 [verbose] > │ │
00:05:28 #24257 [verbose] > │ print_and_return / x: 0 │
00:05:28 #24258 [verbose] > │ print_and_return / x: 1 │
00:05:28 #24259 [verbose] > │ print_and_return / x: 2 │
00:05:28 #24260 [verbose] > │ print_and_return / x: 3 │
00:05:28 #24261 [verbose] > │ print_and_return / x: 4 │
00:05:28 #24262 [verbose] > │ print_and_return / x: 5 │
00:05:28 #24263 [verbose] > │ 10 │
00:05:28 #24264 [verbose] > │ │
00:05:28 #24265 [verbose] > ╰──────────────────────────────────────────────────────────────────────────────╯
00:05:28 #24266 [verbose] >
00:05:28 #24267 [verbose] > ── spiral ──────────────────────────────────────────────────────────────────────
00:05:28 #24268 [verbose] > // // test
00:05:28 #24269 [verbose] >
00:05:28 #24270 [verbose] > new_infinite_stream print_and_return
00:05:28 #24271 [verbose] > |> take_while (fun n (_ : i32) => n < 5i32)
00:05:28 #24272 [verbose] > |> sum
00:05:28 #24273 [verbose] > |> _assert_eq 10
00:05:28 #24274 [verbose] > Building c:\home\git\polyglot\target\polyglot\spiral_eval\packages\96447ddb722e12274cb1b24533ded3eb83fbcfb617e8b53c41211ccba18ab14a\main.spi
00:05:29 #24275 [verbose] >
00:05:29 #24276 [verbose] > ╭─[ 287.92ms - stdout ]────────────────────────────────────────────────────────╮
00:05:29 #24277 [verbose] > │ let rec method0 () : unit = │
00:05:29 #24278 [verbose] > │ printfn $"print_and_return / x: {0}" │
00:05:29 #24279 [verbose] > │ printfn $"print_and_return / x: {1}" │
00:05:29 #24280 [verbose] > │ printfn $"print_and_return / x: {2}" │
00:05:29 #24281 [verbose] > │ printfn $"print_and_return / x: {3}" │
00:05:29 #24282 [verbose] > │ printfn $"print_and_return / x: {4}" │
00:05:29 #24283 [verbose] > │ printfn $"print_and_return / x: {5}" │
00:05:29 #24284 [verbose] > │ let v0 : string = $"%A{10}" │
00:05:29 #24285 [verbose] > │ System.Console.WriteLine v0 │
00:05:29 #24286 [verbose] > │ let v1 : string = $"__expect / actual: %A{10} / expected: %A{10}" │
00:05:29 #24287 [verbose] > │ () │
00:05:29 #24288 [verbose] > │ method0() │
00:05:29 #24289 [verbose] > │ │
00:05:29 #24290 [verbose] > │ print_and_return / x: 0 │
00:05:29 #24291 [verbose] > │ print_and_return / x: 1 │
00:05:29 #24292 [verbose] > │ print_and_return / x: 2 │
00:05:29 #24293 [verbose] > │ print_and_return / x: 3 │
00:05:29 #24294 [verbose] > │ print_and_return / x: 4 │
00:05:29 #24295 [verbose] > │ print_and_return / x: 5 │
00:05:29 #24296 [verbose] > │ 10 │
00:05:29 #24297 [verbose] > │ │
00:05:29 #24298 [verbose] > ╰──────────────────────────────────────────────────────────────────────────────╯
00:05:29 #24299 [verbose] >
00:05:29 #24300 [verbose] > ── spiral ──────────────────────────────────────────────────────────────────────
00:05:29 #24301 [verbose] > // // test
00:05:29 #24302 [verbose] >
00:05:29 #24303 [verbose] > iterate ((*) 6) 1i32
00:05:29 #24304 [verbose] > |> take_while (fun _ i => i <= 7i32)
00:05:29 #24305 [verbose] > |> to_list
00:05:29 #24306 [verbose] > |> _assert_eq [[ 1i32; 6; 36; 216; 1296; 7776; 46656; 279936 ]]
00:05:29 #24307 [verbose] > Building c:\home\git\polyglot\target\polyglot\spiral_eval\packages\73e7f8bbfbc626bb832a8d31282285ea7438ec3797ba8dae543ab95f4707af92\main.spi
00:05:29 #24308 [verbose] >
00:05:29 #24309 [verbose] > ╭─[ 316.42ms - stdout ]────────────────────────────────────────────────────────╮
00:05:29 #24310 [verbose] > │ type UH0 = │
00:05:29 #24311 [verbose] > │ | UH0_0 │
00:05:29 #24312 [verbose] > │ | UH0_1 of int32 * UH0 │
00:05:29 #24313 [verbose] > │ let rec method0 () : unit = │
00:05:29 #24314 [verbose] > │ let v0 : UH0 = UH0_0 │
00:05:29 #24315 [verbose] > │ let v1 : UH0 = UH0_1(279936, v0) │
00:05:29 #24316 [verbose] > │ let v2 : UH0 = UH0_1(46656, v1) │
00:05:29 #24317 [verbose] > │ let v3 : UH0 = UH0_1(7776, v2) │
00:05:29 #24318 [verbose] > │ let v4 : UH0 = UH0_1(1296, v3) │
00:05:29 #24319 [verbose] > │ let v5 : UH0 = UH0_1(216, v4) │
00:05:29 #24320 [verbose] > │ let v6 : UH0 = UH0_1(36, v5) │
00:05:29 #24321 [verbose] > │ let v7 : UH0 = UH0_1(6, v6) │
00:05:29 #24322 [verbose] > │ let v8 : UH0 = UH0_1(1, v7) │
00:05:29 #24323 [verbose] > │ let v9 : string = $"%A{v8}" │
00:05:29 #24324 [verbose] > │ System.Console.WriteLine v9 │
00:05:29 #24325 [verbose] > │ let v73 : UH0 = UH0_0 │
00:05:29 #24326 [verbose] > │ let v74 : UH0 = UH0_1(279936, v73) │
00:05:29 #24327 [verbose] > │ let v75 : UH0 = UH0_1(46656, v74) │
00:05:29 #24328 [verbose] > │ let v76 : UH0 = UH0_1(7776, v75) │
00:05:29 #24329 [verbose] > │ let v77 : UH0 = UH0_1(1296, v76) │
00:05:29 #24330 [verbose] > │ let v78 : UH0 = UH0_1(216, v77) │
00:05:29 #24331 [verbose] > │ let v79 : UH0 = UH0_1(36, v78) │
00:05:29 #24332 [verbose] > │ let v80 : UH0 = UH0_1(6, v79) │
00:05:29 #24333 [verbose] > │ let v81 : UH0 = UH0_1(1, v80) │
00:05:29 #24334 [verbose] > │ let v82 : UH0 = UH0_0 │
00:05:29 #24335 [verbose] > │ let v83 : UH0 = UH0_1(279936, v82) │
00:05:29 #24336 [verbose] > │ let v84 : UH0 = UH0_1(46656, v83) │
00:05:29 #24337 [verbose] > │ let v85 : UH0 = UH0_1(7776, v84) │
00:05:29 #24338 [verbose] > │ let v86 : UH0 = UH0_1(1296, v85) │
00:05:29 #24339 [verbose] > │ let v87 : UH0 = UH0_1(216, v86) │
00:05:29 #24340 [verbose] > │ let v88 : UH0 = UH0_1(36, v87) │
00:05:29 #24341 [verbose] > │ let v89 : UH0 = UH0_1(6, v88) │
00:05:29 #24342 [verbose] > │ let v90 : UH0 = UH0_1(1, v89) │
00:05:29 #24343 [verbose] > │ let v91 : string = $"__expect / actual: %A{v81} / expected: %A{v90}" │
00:05:29 #24344 [verbose] > │ () │
00:05:29 #24345 [verbose] > │ method0() │
00:05:29 #24346 [verbose] > │ │
00:05:29 #24347 [verbose] > │ UH0_1 │
00:05:29 #24348 [verbose] > │ (1, │
00:05:29 #24349 [verbose] > │ UH0_1 │
00:05:29 #24350 [verbose] > │ (6, │
00:05:29 #24351 [verbose] > │ UH0_1 │
00:05:29 #24352 [verbose] > │ (36, │
00:05:29 #24353 [verbose] > │ UH0_1 │
00:05:29 #24354 [verbose] > │ (216, │
00:05:29 #24355 [verbose] > │ UH0_1 (1296, UH0_1 (7776, UH0_1 (46656, UH0_1 (279936, │
00:05:29 #24356 [verbose] > │ UH0_0)))))))) │
00:05:29 #24357 [verbose] > │ │
00:05:29 #24358 [verbose] > ╰──────────────────────────────────────────────────────────────────────────────╯
00:05:29 #24359 [verbose] >
00:05:29 #24360 [verbose] > ── markdown ────────────────────────────────────────────────────────────────────
00:05:29 #24361 [verbose] > ╭──────────────────────────────────────────────────────────────────────────────╮
00:05:29 #24362 [verbose] > │ ## indexed │
00:05:29 #24363 [verbose] > ╰──────────────────────────────────────────────────────────────────────────────╯
00:05:29 #24364 [verbose] >
00:05:29 #24365 [verbose] > ── spiral ──────────────────────────────────────────────────────────────────────
00:05:29 #24366 [verbose] > inl indexed s =
00:05:29 #24367 [verbose] > ((StreamNil, 0), s)
00:05:29 #24368 [verbose] > ||> fold fun (acc, i) x =>
00:05:29 #24369 [verbose] > StreamCons ((i, x), fun () => acc), i + 1
00:05:29 #24370 [verbose] > |> fst
00:05:29 #24371 [verbose] > |> rev
00:05:29 #24372 [verbose] > Building c:\home\git\polyglot\target\polyglot\spiral_eval\packages\d01f46a1d9abcd27a5717c0a7c3039938a80c74cdb4be49f5ed8457c09c8ec61\main.spi
00:05:29 #24373 [verbose] >
00:05:29 #24374 [verbose] > ╭─[ 235.56ms - stdout ]────────────────────────────────────────────────────────╮
00:05:29 #24375 [verbose] > │ () │
00:05:29 #24376 [verbose] > │ │
00:05:29 #24377 [verbose] > │ │
00:05:29 #24378 [verbose] > ╰──────────────────────────────────────────────────────────────────────────────╯
00:05:29 #24379 [verbose] >
00:05:29 #24380 [verbose] > ── spiral ──────────────────────────────────────────────────────────────────────
00:05:29 #24381 [verbose] > // // test
00:05:29 #24382 [verbose] >
00:05:29 #24383 [verbose] > listm.init 10i32 ((*) 2)
00:05:29 #24384 [verbose] > |> from_list
00:05:29 #24385 [verbose] > |> indexed
00:05:29 #24386 [verbose] > |> item 5i32
00:05:29 #24387 [verbose] > |> _assert_eq (5i32, 10i32)
00:05:29 #24388 [verbose] > Building c:\home\git\polyglot\target\polyglot\spiral_eval\packages\0cb9bb9f048d08b327a70e9dc3dfe56138aecd98255398d1f2d583749ba66f05\main.spi
00:05:29 #24389 [verbose] >
00:05:29 #24390 [verbose] > ╭─[ 354.87ms - stdout ]────────────────────────────────────────────────────────╮
00:05:29 #24391 [verbose] > │ let rec method0 () : unit = │
00:05:29 #24392 [verbose] > │ let v0 : string = $"%A{struct (5, 10)}" │
00:05:29 #24393 [verbose] > │ System.Console.WriteLine v0 │
00:05:29 #24394 [verbose] > │ let v1 : string = $"__expect / actual: %A{struct (5, 10)} / expected: │
00:05:29 #24395 [verbose] > │ %A{struct (5, 10)}" │
00:05:29 #24396 [verbose] > │ () │
00:05:29 #24397 [verbose] > │ method0() │
00:05:29 #24398 [verbose] > │ │
00:05:29 #24399 [verbose] > │ struct (5, 10) │
00:05:29 #24400 [verbose] > │ │
00:05:29 #24401 [verbose] > ╰──────────────────────────────────────────────────────────────────────────────╯
00:05:29 #24402 [verbose] >
00:05:29 #24403 [verbose] > ── markdown ────────────────────────────────────────────────────────────────────
00:05:29 #24404 [verbose] > ╭──────────────────────────────────────────────────────────────────────────────╮
00:05:29 #24405 [verbose] > │ ## map │
00:05:29 #24406 [verbose] > ╰──────────────────────────────────────────────────────────────────────────────╯
00:05:29 #24407 [verbose] >
00:05:29 #24408 [verbose] > ── spiral ──────────────────────────────────────────────────────────────────────
00:05:29 #24409 [verbose] > inl map fn s =
00:05:29 #24410 [verbose] > (s, StreamNil)
00:05:29 #24411 [verbose] > ||> fold_back fun x acc =>
00:05:29 #24412 [verbose] > StreamCons (fn x, fun () => acc)
00:05:30 #24413 [verbose] > Building c:\home\git\polyglot\target\polyglot\spiral_eval\packages\2ebc890e941a6bdf3ae3771aa98e6781f27596877ca74fae54d05fb28ac78d3e\main.spi
00:05:30 #24414 [verbose] >
00:05:30 #24415 [verbose] > ╭─[ 210.96ms - stdout ]────────────────────────────────────────────────────────╮
00:05:30 #24416 [verbose] > │ () │
00:05:30 #24417 [verbose] > │ │
00:05:30 #24418 [verbose] > │ │
00:05:30 #24419 [verbose] > ╰──────────────────────────────────────────────────────────────────────────────╯
00:05:30 #24420 [verbose] >
00:05:30 #24421 [verbose] > ── spiral ──────────────────────────────────────────────────────────────────────
00:05:30 #24422 [verbose] > // // test
00:05:30 #24423 [verbose] >
00:05:30 #24424 [verbose] > listm.init 10i32 id
00:05:30 #24425 [verbose] > |> from_list
00:05:30 #24426 [verbose] > |> map ((*) 2)
00:05:30 #24427 [verbose] > |> item 5i32
00:05:30 #24428 [verbose] > |> _assert_eq 10i32
00:05:30 #24429 [verbose] > Building c:\home\git\polyglot\target\polyglot\spiral_eval\packages\6215b42265ea20612a82cd302ef00b8c19d0f659b0ce4910956e50dd9aee3f5d\main.spi
00:05:30 #24430 [verbose] >
00:05:30 #24431 [verbose] > ╭─[ 281.34ms - stdout ]────────────────────────────────────────────────────────╮
00:05:30 #24432 [verbose] > │ let rec method0 () : unit = │
00:05:30 #24433 [verbose] > │ let v0 : string = $"%A{10}" │
00:05:30 #24434 [verbose] > │ System.Console.WriteLine v0 │
00:05:30 #24435 [verbose] > │ let v1 : string = $"__expect / actual: %A{10} / expected: %A{10}" │
00:05:30 #24436 [verbose] > │ () │
00:05:30 #24437 [verbose] > │ method0() │
00:05:30 #24438 [verbose] > │ │
00:05:30 #24439 [verbose] > │ 10 │
00:05:30 #24440 [verbose] > │ │
00:05:30 #24441 [verbose] > ╰──────────────────────────────────────────────────────────────────────────────╯
00:05:30 #24442 [verbose] >
00:05:30 #24443 [verbose] > ── markdown ────────────────────────────────────────────────────────────────────
00:05:30 #24444 [verbose] > ╭──────────────────────────────────────────────────────────────────────────────╮
00:05:30 #24445 [verbose] > │ ## zip_with │
00:05:30 #24446 [verbose] > ╰──────────────────────────────────────────────────────────────────────────────╯
00:05:30 #24447 [verbose] >
00:05:30 #24448 [verbose] > ── spiral ──────────────────────────────────────────────────────────────────────
00:05:30 #24449 [verbose] > inl zip_with fn s1 s2 =
00:05:30 #24450 [verbose] > inl rec loop s1 s2 =
00:05:30 #24451 [verbose] > match s1, s2 with
00:05:30 #24452 [verbose] > | StreamCons (st1, fn1), StreamCons (st2, fn2) =>
00:05:30 #24453 [verbose] > StreamCons (fn st1 st2, fun () => loop (fn1 ()) (fn2 ()))
00:05:30 #24454 [verbose] > | StreamNil, _ | _, StreamNil => StreamNil
00:05:30 #24455 [verbose] > loop s1 s2
00:05:30 #24456 [verbose] >
00:05:30 #24457 [verbose] > inl zip_with_ fn s1 s2 =
00:05:30 #24458 [verbose] > let rec loop s1 s2 =
00:05:30 #24459 [verbose] > match s1, s2 with
00:05:30 #24460 [verbose] > | StreamCons (st1, fn1), StreamCons (st2, fn2) =>
00:05:30 #24461 [verbose] > StreamCons (fn st1 st2, fun () => loop (fn1 ()) (fn2 ()))
00:05:30 #24462 [verbose] > | StreamNil, _ | _, StreamNil => StreamNil
00:05:30 #24463 [verbose] > loop s1 s2
00:05:30 #24464 [verbose] > Building c:\home\git\polyglot\target\polyglot\spiral_eval\packages\30e35ffcaf96268d61fb7cc4639dd93937c234cd381253b442977083e8b19694\main.spi
00:05:30 #24465 [verbose] >
00:05:30 #24466 [verbose] > ╭─[ 270.18ms - stdout ]────────────────────────────────────────────────────────╮
00:05:30 #24467 [verbose] > │ () │
00:05:30 #24468 [verbose] > │ │
00:05:30 #24469 [verbose] > │ │
00:05:30 #24470 [verbose] > ╰──────────────────────────────────────────────────────────────────────────────╯
00:05:30 #24471 [verbose] >
00:05:30 #24472 [verbose] > ── spiral ──────────────────────────────────────────────────────────────────────
00:05:30 #24473 [verbose] > // // test
00:05:30 #24474 [verbose] >
00:05:30 #24475 [verbose] > ((listm.init 10i32 id |> from_list), (listm.init 10i32 ((*) 2) |> from_list))
00:05:30 #24476 [verbose] > ||> zip_with (+)
00:05:30 #24477 [verbose] > |> item 2i32
00:05:30 #24478 [verbose] > |> _assert_eq 6
00:05:30 #24479 [verbose] > Building c:\home\git\polyglot\target\polyglot\spiral_eval\packages\d31bce54a07bdd17b7b532e94718c36f0d8932378fefdf9a143dc083e6615b4e\main.spi
00:05:31 #24480 [verbose] >
00:05:31 #24481 [verbose] > ╭─[ 263.60ms - stdout ]────────────────────────────────────────────────────────╮
00:05:31 #24482 [verbose] > │ let rec method0 () : unit = │
00:05:31 #24483 [verbose] > │ let v0 : string = $"%A{6}" │
00:05:31 #24484 [verbose] > │ System.Console.WriteLine v0 │
00:05:31 #24485 [verbose] > │ let v1 : string = $"__expect / actual: %A{6} / expected: %A{6}" │
00:05:31 #24486 [verbose] > │ () │
00:05:31 #24487 [verbose] > │ method0() │
00:05:31 #24488 [verbose] > │ │
00:05:31 #24489 [verbose] > │ 6 │
00:05:31 #24490 [verbose] > │ │
00:05:31 #24491 [verbose] > ╰──────────────────────────────────────────────────────────────────────────────╯
00:05:31 #24492 [verbose] >
00:05:31 #24493 [verbose] > ── markdown ────────────────────────────────────────────────────────────────────
00:05:31 #24494 [verbose] > ╭──────────────────────────────────────────────────────────────────────────────╮
00:05:31 #24495 [verbose] > │ ## zip │
00:05:31 #24496 [verbose] > ╰──────────────────────────────────────────────────────────────────────────────╯
00:05:31 #24497 [verbose] >
00:05:31 #24498 [verbose] > ── spiral ──────────────────────────────────────────────────────────────────────
00:05:31 #24499 [verbose] > inl zip s1 s2 =
00:05:31 #24500 [verbose] > zip_with pair s1 s2
00:05:31 #24501 [verbose] >
00:05:31 #24502 [verbose] > inl zip_ s1 s2 =
00:05:31 #24503 [verbose] > zip_with_ pair s1 s2
00:05:31 #24504 [verbose] > Building c:\home\git\polyglot\target\polyglot\spiral_eval\packages\930462e229d4272c50aa477634abd3f7396c9d5b1bf5df59b4b965b88686b22d\main.spi
00:05:31 #24505 [verbose] >
00:05:31 #24506 [verbose] > ╭─[ 265.31ms - stdout ]────────────────────────────────────────────────────────╮
00:05:31 #24507 [verbose] > │ () │
00:05:31 #24508 [verbose] > │ │
00:05:31 #24509 [verbose] > │ │
00:05:31 #24510 [verbose] > ╰──────────────────────────────────────────────────────────────────────────────╯
00:05:31 #24511 [verbose] >
00:05:31 #24512 [verbose] > ── spiral ──────────────────────────────────────────────────────────────────────
00:05:31 #24513 [verbose] > // // test
00:05:31 #24514 [verbose] >
00:05:31 #24515 [verbose] > ((listm.init 10i32 id |> from_list), (listm.init 10i32 ((*) 2) |> from_list))
00:05:31 #24516 [verbose] > ||> zip
00:05:31 #24517 [verbose] > |> item 5i32
00:05:31 #24518 [verbose] > |> _assert_eq (5, 10)
00:05:31 #24519 [verbose] > Building c:\home\git\polyglot\target\polyglot\spiral_eval\packages\e6be40564a7d4466a77f4c9ac2f483af1345472c347035db71e4cf01e1c76468\main.spi
00:05:31 #24520 [verbose] >
00:05:31 #24521 [verbose] > ╭─[ 517.30ms - stdout ]────────────────────────────────────────────────────────╮
00:05:31 #24522 [verbose] > │ let rec method0 () : unit = │
00:05:31 #24523 [verbose] > │ let v0 : string = $"%A{struct (5, 10)}" │
00:05:31 #24524 [verbose] > │ System.Console.WriteLine v0 │
00:05:31 #24525 [verbose] > │ let v1 : string = $"__expect / actual: %A{struct (5, 10)} / expected: │
00:05:31 #24526 [verbose] > │ %A{struct (5, 10)}" │
00:05:31 #24527 [verbose] > │ () │
00:05:31 #24528 [verbose] > │ method0() │
00:05:31 #24529 [verbose] > │ │
00:05:31 #24530 [verbose] > │ struct (5, 10) │
00:05:31 #24531 [verbose] > │ │
00:05:31 #24532 [verbose] > ╰──────────────────────────────────────────────────────────────────────────────╯
00:05:31 #24533 [verbose] >
00:05:31 #24534 [verbose] > ── markdown ────────────────────────────────────────────────────────────────────
00:05:31 #24535 [verbose] > ╭──────────────────────────────────────────────────────────────────────────────╮
00:05:31 #24536 [verbose] > │ ## unzip │
00:05:31 #24537 [verbose] > ╰──────────────────────────────────────────────────────────────────────────────╯
00:05:31 #24538 [verbose] >
00:05:31 #24539 [verbose] > ── spiral ──────────────────────────────────────────────────────────────────────
00:05:31 #24540 [verbose] > inl unzip s =
00:05:31 #24541 [verbose] > inl rec body s =
00:05:31 #24542 [verbose] > match s with
00:05:31 #24543 [verbose] > | StreamCons ((x, y), fn) =>
00:05:31 #24544 [verbose] > inl xs, ys = loop (fn ())
00:05:31 #24545 [verbose] > StreamCons (x, fun () => xs), StreamCons (y, fun () => ys)
00:05:31 #24546 [verbose] > | StreamNil => pair StreamNil StreamNil
00:05:31 #24547 [verbose] > and inl loop x =
00:05:31 #24548 [verbose] > if var_is x |> not
00:05:31 #24549 [verbose] > then body x
00:05:31 #24550 [verbose] > else
00:05:31 #24551 [verbose] > inl x = dyn x
00:05:31 #24552 [verbose] > join body x
00:05:31 #24553 [verbose] > loop s
00:05:31 #24554 [verbose] > Building c:\home\git\polyglot\target\polyglot\spiral_eval\packages\886600499881ee6985109e44f7d7ad5445d39668c382dd86a5f7ab39e6bb9d3d\main.spi
00:05:32 #24555 [verbose] >
00:05:32 #24556 [verbose] > ╭─[ 250.07ms - stdout ]────────────────────────────────────────────────────────╮
00:05:32 #24557 [verbose] > │ () │
00:05:32 #24558 [verbose] > │ │
00:05:32 #24559 [verbose] > │ │
00:05:32 #24560 [verbose] > ╰──────────────────────────────────────────────────────────────────────────────╯
00:05:32 #24561 [verbose] >
00:05:32 #24562 [verbose] > ── spiral ──────────────────────────────────────────────────────────────────────
00:05:32 #24563 [verbose] > // // test
00:05:32 #24564 [verbose] >
00:05:32 #24565 [verbose] > listm.init 10i32 id
00:05:32 #24566 [verbose] > |> listm.map (fun x => x, x)
00:05:32 #24567 [verbose] > |> from_list
00:05:32 #24568 [verbose] > |> unzip
00:05:32 #24569 [verbose] > |> fun x, y =>
00:05:32 #24570 [verbose] > x |> sum
00:05:32 #24571 [verbose] > |> _assert_eq 45
00:05:32 #24572 [verbose] >
00:05:32 #24573 [verbose] > y |> sum
00:05:32 #24574 [verbose] > |> _assert_eq 45
00:05:32 #24575 [verbose] > Building c:\home\git\polyglot\target\polyglot\spiral_eval\packages\276177dc1fb468ae47f51052b5efea3531e7e7076306fd11812b07cd39315430\main.spi
00:05:32 #24576 [verbose] >
00:05:32 #24577 [verbose] > ╭─[ 231.06ms - stdout ]────────────────────────────────────────────────────────╮
00:05:32 #24578 [verbose] > │ let rec method0 () : unit = │
00:05:32 #24579 [verbose] > │ let v0 : string = $"%A{45}" │
00:05:32 #24580 [verbose] > │ System.Console.WriteLine v0 │
00:05:32 #24581 [verbose] > │ let v1 : string = $"__expect / actual: %A{45} / expected: %A{45}" │
00:05:32 #24582 [verbose] > │ let v2 : string = $"%A{45}" │
00:05:32 #24583 [verbose] > │ System.Console.WriteLine v2 │
00:05:32 #24584 [verbose] > │ let v3 : string = $"__expect / actual: %A{45} / expected: %A{45}" │
00:05:32 #24585 [verbose] > │ () │
00:05:32 #24586 [verbose] > │ method0() │
00:05:32 #24587 [verbose] > │ │
00:05:32 #24588 [verbose] > │ 45 │
00:05:32 #24589 [verbose] > │ 45 │
00:05:32 #24590 [verbose] > │ │
00:05:32 #24591 [verbose] > ╰──────────────────────────────────────────────────────────────────────────────╯
00:05:32 #24592 [verbose] >
00:05:32 #24593 [verbose] > ── markdown ────────────────────────────────────────────────────────────────────
00:05:32 #24594 [verbose] > ╭──────────────────────────────────────────────────────────────────────────────╮
00:05:32 #24595 [verbose] > │ ## enumerate │
00:05:32 #24596 [verbose] > ╰──────────────────────────────────────────────────────────────────────────────╯
00:05:32 #24597 [verbose] >
00:05:32 #24598 [verbose] > ── spiral ──────────────────────────────────────────────────────────────────────
00:05:32 #24599 [verbose] > inl enumerate forall dim {int; number} t. (ar : a dim t) : a dim (unativeint *
00:05:32 #24600 [verbose] > t) =
00:05:32 #24601 [verbose] > open rust_operators
00:05:32 #24602 [verbose] > inl (a ar) = ar
00:05:32 #24603 [verbose] > inl ar = ar |> am'.to_vec
00:05:32 #24604 [verbose] > !\($'"!ar.into_iter().enumerate().map(std::rc::Rc::new).collect()"')
00:05:32 #24605 [verbose] > |> am'.vec_map from_pair
00:05:32 #24606 [verbose] > |> am'.from_vec
00:05:32 #24607 [verbose] > Building c:\home\git\polyglot\target\polyglot\spiral_eval\packages\23aecec0f91d981613244110ab8329c369016bfb20a7ff5aff693884df6de7c8\main.spi
00:05:32 #24608 [verbose] >
00:05:32 #24609 [verbose] > ╭─[ 220.05ms - stdout ]────────────────────────────────────────────────────────╮
00:05:32 #24610 [verbose] > │ () │
00:05:32 #24611 [verbose] > │ │
00:05:32 #24612 [verbose] > │ │
00:05:32 #24613 [verbose] > ╰──────────────────────────────────────────────────────────────────────────────╯
00:05:34 #24614 [verbose] > [NbConvertApp] Converting notebook stream.dib.ipynb to html
00:05:34 #24615 [verbose] > C:\Users\i574n\scoop\apps\python\current\Lib\site-packages\nbformat\__init__.py:93: MissingIDFieldWarning: Code cell is missing an id field, this will become a hard error in future nbformat versions. You may want to use `normalize()` on your notebooks before validations (available since nbformat 5.1.4). Previous versions of nbformat are fixing this issue transparently, and will stop doing so in the future.
00:05:34 #24616 [verbose] > validate(nb)
00:05:34 #24617 [verbose] > C:\Users\i574n\scoop\apps\python\current\Lib\site-packages\nbconvert\filters\highlight.py:71: UserWarning: IPython3 lexer unavailable, falling back on Python 3
00:05:34 #24618 [verbose] > return _pygments_highlight(
00:05:35 #24619 [verbose] > [NbConvertApp] Writing 363552 bytes to stream.dib.html
00:05:35 #24620 [debug] execute_with_options_async / exit_code: 0 / output.Length: 67771
00:05:35 #21 [debug] main / executeCommand / exitCode: 0
00:05:35 #24621 [debug] execute_with_options_async / options: struct (Some System.Threading.CancellationToken,
"pwsh -c "../../scripts/invoke-dib.ps1 seq.dib" -Retries 3", None, None,
None)
00:05:38 #24622 [verbose] >
00:05:38 #24623 [verbose] > ── markdown ────────────────────────────────────────────────────────────────────
00:05:38 #24624 [verbose] > ╭──────────────────────────────────────────────────────────────────────────────╮
00:05:38 #24625 [verbose] > │ # seq │
00:05:38 #24626 [verbose] > ╰──────────────────────────────────────────────────────────────────────────────╯
00:05:38 #24627 [verbose] >
00:05:38 #24628 [verbose] > ── spiral ──────────────────────────────────────────────────────────────────────
00:05:38 #24629 [verbose] > // // test
00:05:38 #24630 [verbose] >
00:05:38 #24631 [verbose] > open testing
00:05:40 #24632 [verbose] > Building c:\home\git\polyglot\target\polyglot\spiral_eval\packages\8837341da068f4ef4271045b3ef1c89d209237bf74b4f11596b6ee2d484becb0\main.spi
00:05:41 #24633 [verbose] >
00:05:41 #24634 [verbose] > ╭─[ 3.44s - stdout ]───────────────────────────────────────────────────────────╮
00:05:41 #24635 [verbose] > │ () │
00:05:41 #24636 [verbose] > │ │
00:05:41 #24637 [verbose] > │ │
00:05:41 #24638 [verbose] > ╰──────────────────────────────────────────────────────────────────────────────╯
00:05:41 #24639 [verbose] >
00:05:41 #24640 [verbose] > ── markdown ────────────────────────────────────────────────────────────────────
00:05:41 #24641 [verbose] > ╭──────────────────────────────────────────────────────────────────────────────╮
00:05:41 #24642 [verbose] > │ ## seq' │
00:05:41 #24643 [verbose] > ╰──────────────────────────────────────────────────────────────────────────────╯
00:05:41 #24644 [verbose] >
00:05:41 #24645 [verbose] > ── spiral ──────────────────────────────────────────────────────────────────────
00:05:41 #24646 [verbose] > nominal seq' t = $"`t seq"
00:05:41 #24647 [verbose] > Building c:\home\git\polyglot\target\polyglot\spiral_eval\packages\64cc398702829f61c764196b770edb6e8a65cb275a34cdaf80f0a8a4e8adaf46\main.spi
00:05:41 #24648 [verbose] >
00:05:41 #24649 [verbose] > ╭─[ 269.92ms - stdout ]────────────────────────────────────────────────────────╮
00:05:41 #24650 [verbose] > │ () │
00:05:41 #24651 [verbose] > │ │
00:05:41 #24652 [verbose] > │ │
00:05:41 #24653 [verbose] > ╰──────────────────────────────────────────────────────────────────────────────╯
00:05:41 #24654 [verbose] >
00:05:41 #24655 [verbose] > ── markdown ────────────────────────────────────────────────────────────────────
00:05:41 #24656 [verbose] > ╭──────────────────────────────────────────────────────────────────────────────╮
00:05:41 #24657 [verbose] > │ ## of_array' │
00:05:41 #24658 [verbose] > ╰──────────────────────────────────────────────────────────────────────────────╯
00:05:41 #24659 [verbose] >
00:05:41 #24660 [verbose] > ── spiral ──────────────────────────────────────────────────────────────────────
00:05:41 #24661 [verbose] > inl of_array' forall dim t. (items : a dim t) : seq' t =
00:05:41 #24662 [verbose] > $'seq { for i = 0 to !items.Length - 1 do yield !items.[[i]] }'
00:05:42 #24663 [verbose] > Building c:\home\git\polyglot\target\polyglot\spiral_eval\packages\718ecd66e25aaacda3a4a59875e2ebd55b2002499abe671adcb48dc839ee7ea2\main.spi
00:05:42 #24664 [verbose] >
00:05:42 #24665 [verbose] > ╭─[ 287.53ms - stdout ]────────────────────────────────────────────────────────╮
00:05:42 #24666 [verbose] > │ () │
00:05:42 #24667 [verbose] > │ │
00:05:42 #24668 [verbose] > │ │
00:05:42 #24669 [verbose] > ╰──────────────────────────────────────────────────────────────────────────────╯
00:05:42 #24670 [verbose] >
00:05:42 #24671 [verbose] > ── spiral ──────────────────────────────────────────────────────────────────────
00:05:42 #24672 [verbose] > // // test
00:05:42 #24673 [verbose] >
00:05:42 #24674 [verbose] > (a ;[[ "a"; "b" ]] : _ i32 _)
00:05:42 #24675 [verbose] > |> of_array'
00:05:42 #24676 [verbose] > Building c:\home\git\polyglot\target\polyglot\spiral_eval\packages\acb98cdf7f4e2ab258f2356365aae77900b3ea921df1085fa46fed042bd088d2\main.spi
00:05:43 #24677 [verbose] >
00:05:43 #24678 [verbose] > ╭─[ 1.02s - return value ]─────────────────────────────────────────────────────╮
00:05:43 #24679 [verbose] > │ <details open="open" class="dni-treeview"><summary><span │
00:05:43 #24680 [verbose] > │ class="dni-code-hint"><code>[ a, b │
00:05:43 #24681 [verbose] > │ ]</code></span></summary><div><table><thead><tr></tr></thead><tbody><tr><td> │
00:05:43 #24682 [verbose] > │ CheckClose</td><td><div │
00:05:43 #24683 [verbose] > │ class="dni-plaintext"><pre>False</pre></div></td></tr><tr><td>LastGenerated< │
00:05:43 #24684 [verbose] > │ /td><td><div │
00:05:43 #24685 [verbose] > │ class="dni-plaintext"><pre><null></pre></div></td></tr><tr><td>v2</td> │
00:05:43 #24686 [verbose] > │ <td><div class="dni-plaintext"><pre>[ a, b │
00:05:43 #24687 [verbose] > │ ]</pre></div></td></tr><tr><td>enum</td><td><div │
00:05:43 #24688 [verbose] > │ class="dni-plaintext"><pre><null></pre></div></td></tr><tr><td>pc</td> │
00:05:43 #24689 [verbose] > │ <td><div │
00:05:43 #24690 [verbose] > │ class="dni-plaintext"><pre>0</pre></div></td></tr><tr><td>current</td><td><d │
00:05:43 #24691 [verbose] > │ iv │
00:05:43 #24692 [verbose] > │ class="dni-plaintext"><pre><null></pre></div></td></tr><tr><td><i>(val │
00:05:43 #24693 [verbose] > │ ues)</i></td><td><div class="dni-plaintext"><pre>[ a, b ]</pr... │
00:05:43 #24694 [verbose] > ╰──────────────────────────────────────────────────────────────────────────────╯
00:05:43 #24695 [verbose] >
00:05:43 #24696 [verbose] > ╭─[ 1.04s - stdout ]───────────────────────────────────────────────────────────╮
00:05:43 #24697 [verbose] > │ let rec method0 () : string seq = │
00:05:43 #24698 [verbose] > │ let v0 : string = "a" │
00:05:43 #24699 [verbose] > │ let v1 : string = "b" │
00:05:43 #24700 [verbose] > │ let v2 : (string []) = [|v0; v1|] │
00:05:43 #24701 [verbose] > │ let v3 : string seq = seq { for i = 0 to v2.Length - 1 do yield v2.[i] } │
00:05:43 #24702 [verbose] > │ v3 │
00:05:43 #24703 [verbose] > │ method0() │
00:05:43 #24704 [verbose] > │ │
00:05:43 #24705 [verbose] > │ │
00:05:43 #24706 [verbose] > ╰──────────────────────────────────────────────────────────────────────────────╯
00:05:43 #24707 [verbose] >
00:05:43 #24708 [verbose] > ── spiral ──────────────────────────────────────────────────────────────────────
00:05:43 #24709 [verbose] > inl of_array forall dim t. (items : a dim t) : seq' t =
00:05:43 #24710 [verbose] > items |> $'Seq.ofArray'
00:05:43 #24711 [verbose] > Building c:\home\git\polyglot\target\polyglot\spiral_eval\packages\fd427663f6eb6751f4f0f955a1632825b2c7cd8596c47a9d73e6e5bd3378442c\main.spi
00:05:43 #24712 [verbose] >
00:05:43 #24713 [verbose] > ╭─[ 280.46ms - stdout ]────────────────────────────────────────────────────────╮
00:05:43 #24714 [verbose] > │ () │
00:05:43 #24715 [verbose] > │ │
00:05:43 #24716 [verbose] > │ │
00:05:43 #24717 [verbose] > ╰──────────────────────────────────────────────────────────────────────────────╯
00:05:43 #24718 [verbose] >
00:05:43 #24719 [verbose] > ── spiral ──────────────────────────────────────────────────────────────────────
00:05:43 #24720 [verbose] > // // test
00:05:43 #24721 [verbose] >
00:05:43 #24722 [verbose] > (a ;[[ "a"; "b" ]] : _ i32 _)
00:05:43 #24723 [verbose] > |> of_array
00:05:43 #24724 [verbose] > Building c:\home\git\polyglot\target\polyglot\spiral_eval\packages\76e1618d801894c9a5e32f18cd73422bc9fea2684d5447cec02335122197ba87\main.spi
00:05:43 #24725 [verbose] >
00:05:43 #24726 [verbose] > ╭─[ 304.91ms - return value ]──────────────────────────────────────────────────╮
00:05:43 #24727 [verbose] > │ <details open="open" class="dni-treeview"><summary><span │
00:05:43 #24728 [verbose] > │ class="dni-code-hint"><code>[ a, b │
00:05:43 #24729 [verbose] > │ ]</code></span></summary><div><table><thead><tr></tr></thead><tbody><tr><td> │
00:05:43 #24730 [verbose] > │ f</td><td><details class="dni-treeview"><summary><span │
00:05:43 #24731 [verbose] > │ class="dni-code-hint"><code>Microsoft.FSharp.Collections.SeqModule+OfArray@1 │
00:05:43 #24732 [verbose] > │ 010[ │
00:05:43 #24733 [verbose] > │ System.String]</code></span></summary><div><table><thead><tr></tr></thead><t │
00:05:43 #24734 [verbose] > │ body><tr><td>source</td><td><div class="dni-plaintext"><pre>[ a, b │
00:05:43 #24735 [verbose] > │ ]</pre></div></td></tr></tbody></table></div></details></td></tr><tr><td><i> │
00:05:43 #24736 [verbose] > │ (values)</i></td><td><div class="dni-plaintext"><pre>[ a, b │
00:05:43 #24737 [verbose] > │ ]</pre></div></td></tr></tbody></table></div></details><style> │
00:05:43 #24738 [verbose] > │ .dni-code-hint { │
00:05:43 #24739 [verbose] > │ font-style: italic; │
00:05:43 #24740 [verbose] > │ overflow: hidden; │
00:05:43 #24741 [verbose] > │ white-space: nowrap; │
00:05:43 #24742 [verbose] > │ } │
00:05:43 #24743 [verbose] > │ .dni-tree... │
00:05:43 #24744 [verbose] > ╰──────────────────────────────────────────────────────────────────────────────╯
00:05:43 #24745 [verbose] >
00:05:43 #24746 [verbose] > ╭─[ 313.59ms - stdout ]────────────────────────────────────────────────────────╮
00:05:43 #24747 [verbose] > │ let rec method0 () : string seq = │
00:05:43 #24748 [verbose] > │ let v0 : string = "a" │
00:05:43 #24749 [verbose] > │ let v1 : string = "b" │
00:05:43 #24750 [verbose] > │ let v2 : (string []) = [|v0; v1|] │
00:05:43 #24751 [verbose] > │ let v3 : ((string []) -> string seq) = Seq.ofArray │
00:05:43 #24752 [verbose] > │ v3 v2 │
00:05:43 #24753 [verbose] > │ method0() │
00:05:43 #24754 [verbose] > │ │
00:05:43 #24755 [verbose] > │ │
00:05:43 #24756 [verbose] > ╰──────────────────────────────────────────────────────────────────────────────╯
00:05:43 #24757 [verbose] >
00:05:43 #24758 [verbose] > ── markdown ────────────────────────────────────────────────────────────────────
00:05:43 #24759 [verbose] > ╭──────────────────────────────────────────────────────────────────────────────╮
00:05:43 #24760 [verbose] > │ ## of_string │
00:05:43 #24761 [verbose] > ╰──────────────────────────────────────────────────────────────────────────────╯
00:05:43 #24762 [verbose] >
00:05:43 #24763 [verbose] > ── spiral ──────────────────────────────────────────────────────────────────────
00:05:43 #24764 [verbose] > inl of_string (s : string) : seq' char =
00:05:43 #24765 [verbose] > s |> unbox
00:05:44 #24766 [verbose] > Building c:\home\git\polyglot\target\polyglot\spiral_eval\packages\de2fb64bf8dec7a2fba8906aced96b1e1be87de82cc0ac4616554e4717feb65d\main.spi
00:05:44 #24767 [verbose] >
00:05:44 #24768 [verbose] > ╭─[ 224.40ms - stdout ]────────────────────────────────────────────────────────╮
00:05:44 #24769 [verbose] > │ () │
00:05:44 #24770 [verbose] > │ │
00:05:44 #24771 [verbose] > │ │
00:05:44 #24772 [verbose] > ╰──────────────────────────────────────────────────────────────────────────────╯
00:05:44 #24773 [verbose] >
00:05:44 #24774 [verbose] > ── spiral ──────────────────────────────────────────────────────────────────────
00:05:44 #24775 [verbose] > // // test
00:05:44 #24776 [verbose] >
00:05:44 #24777 [verbose] > "ab"
00:05:44 #24778 [verbose] > |> of_string
00:05:44 #24779 [verbose] > Building c:\home\git\polyglot\target\polyglot\spiral_eval\packages\d24be9fb801ef18fa04d4e1801f27ccffdb0687176265b1dc4d5123d89f00514\main.spi
00:05:44 #24780 [verbose] >
00:05:44 #24781 [verbose] > ╭─[ 266.75ms - return value ]──────────────────────────────────────────────────╮
00:05:44 #24782 [verbose] > │ ab │
00:05:44 #24783 [verbose] > ╰──────────────────────────────────────────────────────────────────────────────╯
00:05:44 #24784 [verbose] >
00:05:44 #24785 [verbose] > ╭─[ 268.55ms - stdout ]────────────────────────────────────────────────────────╮
00:05:44 #24786 [verbose] > │ let rec method0 () : char seq = │
00:05:44 #24787 [verbose] > │ let v0 : string = "ab" │
00:05:44 #24788 [verbose] > │ let v1 : char seq = v0 |> unbox<char seq> │
00:05:44 #24789 [verbose] > │ v1 │
00:05:44 #24790 [verbose] > │ method0() │
00:05:44 #24791 [verbose] > │ │
00:05:44 #24792 [verbose] > │ │
00:05:44 #24793 [verbose] > ╰──────────────────────────────────────────────────────────────────────────────╯
00:05:44 #24794 [verbose] >
00:05:44 #24795 [verbose] > ── markdown ────────────────────────────────────────────────────────────────────
00:05:44 #24796 [verbose] > ╭──────────────────────────────────────────────────────────────────────────────╮
00:05:44 #24797 [verbose] > │ ## to_array' │
00:05:44 #24798 [verbose] > ╰──────────────────────────────────────────────────────────────────────────────╯
00:05:44 #24799 [verbose] >
00:05:44 #24800 [verbose] > ── spiral ──────────────────────────────────────────────────────────────────────
00:05:44 #24801 [verbose] > inl to_array' forall dim t. (items : seq' t) : a dim t =
00:05:44 #24802 [verbose] > items |> $'Seq.toArray'
00:05:44 #24803 [verbose] > Building c:\home\git\polyglot\target\polyglot\spiral_eval\packages\6e870ce17ba69f49be78cd3d647e52f48166aca1c9ca821b8fbc563b5e18389e\main.spi
00:05:44 #24804 [verbose] >
00:05:44 #24805 [verbose] > ╭─[ 262.84ms - stdout ]────────────────────────────────────────────────────────╮
00:05:44 #24806 [verbose] > │ () │
00:05:44 #24807 [verbose] > │ │
00:05:44 #24808 [verbose] > │ │
00:05:44 #24809 [verbose] > ╰──────────────────────────────────────────────────────────────────────────────╯
00:05:44 #24810 [verbose] >
00:05:44 #24811 [verbose] > ── spiral ──────────────────────────────────────────────────────────────────────
00:05:44 #24812 [verbose] > // // test
00:05:44 #24813 [verbose] >
00:05:44 #24814 [verbose] > (a ;[[ "a"; "b" ]] : _ i32 _)
00:05:44 #24815 [verbose] > |> of_array'
00:05:44 #24816 [verbose] > |> to_array'
00:05:44 #24817 [verbose] > |> _assert_eq (a ;[[ "a"; "b" ]] : _ i32 _)
00:05:44 #24818 [verbose] > Building c:\home\git\polyglot\target\polyglot\spiral_eval\packages\d406a0d6d370557b459c2d1637c369a153d9bf506fdd15ba50c638f6b6129262\main.spi
00:05:45 #24819 [verbose] >
00:05:45 #24820 [verbose] > ╭─[ 459.40ms - stdout ]────────────────────────────────────────────────────────╮
00:05:45 #24821 [verbose] > │ let rec method1 (v0 : (string []), v1 : (string []), v2 : int32) : bool = │
00:05:45 #24822 [verbose] > │ let v3 : int32 = v0.Length │
00:05:45 #24823 [verbose] > │ let v4 : bool = v2 < v3 │
00:05:45 #24824 [verbose] > │ if v4 then │
00:05:45 #24825 [verbose] > │ let v5 : string = v0.[int v2] │
00:05:45 #24826 [verbose] > │ let v6 : string = v1.[int v2] │
00:05:45 #24827 [verbose] > │ let v7 : bool = v5 = v6 │
00:05:45 #24828 [verbose] > │ if v7 then │
00:05:45 #24829 [verbose] > │ let v8 : int32 = v2 + 1 │
00:05:45 #24830 [verbose] > │ method1(v0, v1, v8) │
00:05:45 #24831 [verbose] > │ else │
00:05:45 #24832 [verbose] > │ false │
00:05:45 #24833 [verbose] > │ else │
00:05:45 #24834 [verbose] > │ true │
00:05:45 #24835 [verbose] > │ and method2 (v0 : bool) : bool = │
00:05:45 #24836 [verbose] > │ v0 │
00:05:45 #24837 [verbose] > │ and method0 () : unit = │
00:05:45 #24838 [verbose] > │ let v0 : string = "a" │
00:05:45 #24839 [verbose] > │ let v1 : string = "b" │
00:05:45 #24840 [verbose] > │ let v2 : (string []) = [|v0; v1|] │
00:05:45 #24841 [verbose] > │ let v3 : string seq = seq { for i = 0 to v2.Length - 1 do yield v2.[i] } │
00:05:45 #24842 [verbose] > │ let v4 : (string seq -> (string [])) = Seq.toArray │
00:05:45 #24843 [verbose] > │ let v5 : (string []) = v4 v3 │
00:05:45 #24844 [verbose] > │ let v6 : (string []) = [|v0; v1|] │
00:05:45 #24845 [verbose] > │ let v7 : string = $"%A{v5}" │
00:05:45 #24846 [verbose] > │ System.Console.WriteLine v7 │
00:05:45 #24847 [verbose] > │ let v8 : int32 = v5.Length │
00:05:45 #24848 [verbose] > │ let v9 : int32 = v6.Length │
00:05:45 #24849 [verbose] > │ let v10 : bool = v8 = v9 │
00:05:45 #24850 [verbose] > │ let v11 : bool = v10 <> true │
00:05:45 #24851 [verbose] > │ let v14 : bool = │
00:05:45 #24852 [verbose] > │ if v11 then │
00:05:45 #24853 [verbose] > │ false │
00:05:45 #24854 [verbose] > │ else │
00:05:45 #24855 [verbose] > │ let v12 : int32 = 0 │
00:05:45 #24856 [verbose] > │ method1(v5, v6, v12) │
00:05:45 #24857 [verbose] > │ let v16 : bool = │
00:05:45 #24858 [verbose] > │ if v14 then │
00:05:45 #24859 [verbose] > │ true │
00:05:45 #24860 [verbose] > │ else │
00:05:45 #24861 [verbose] > │ method2(v14) │
00:05:45 #24862 [verbose] > │ let v17 : string = $"__expect / actual: %A{v5} / expected: %A{v6}" │
00:05:45 #24863 [verbose] > │ let v18 : bool = v16 = false │
00:05:45 #24864 [verbose] > │ if v18 then │
00:05:45 #24865 [verbose] > │ failwith<unit> v17 │
00:05:45 #24866 [verbose] > │ method0() │
00:05:45 #24867 [verbose] > │ │
00:05:45 #24868 [verbose] > │ [|"a"; "b"|] │
00:05:45 #24869 [verbose] > │ │
00:05:45 #24870 [verbose] > ╰──────────────────────────────────────────────────────────────────────────────╯
00:05:45 #24871 [verbose] >
00:05:45 #24872 [verbose] > ── markdown ────────────────────────────────────────────────────────────────────
00:05:45 #24873 [verbose] > ╭──────────────────────────────────────────────────────────────────────────────╮
00:05:45 #24874 [verbose] > │ ## to_list' │
00:05:45 #24875 [verbose] > ╰──────────────────────────────────────────────────────────────────────────────╯
00:05:45 #24876 [verbose] >
00:05:45 #24877 [verbose] > ── spiral ──────────────────────────────────────────────────────────────────────
00:05:45 #24878 [verbose] > inl to_list' forall t. (items : seq' t) : listm'.list' t =
00:05:45 #24879 [verbose] > items |> $'Seq.toList'
00:05:45 #24880 [verbose] > Building c:\home\git\polyglot\target\polyglot\spiral_eval\packages\fd0d5662dd641b7990a01f36f160cc6527638d4915b32a46427f7d91af111ddf\main.spi
00:05:45 #24881 [verbose] >
00:05:45 #24882 [verbose] > ╭─[ 229.81ms - stdout ]────────────────────────────────────────────────────────╮
00:05:45 #24883 [verbose] > │ () │
00:05:45 #24884 [verbose] > │ │
00:05:45 #24885 [verbose] > │ │
00:05:45 #24886 [verbose] > ╰──────────────────────────────────────────────────────────────────────────────╯
00:05:45 #24887 [verbose] >
00:05:45 #24888 [verbose] > ── spiral ──────────────────────────────────────────────────────────────────────
00:05:45 #24889 [verbose] > // // test
00:05:45 #24890 [verbose] >
00:05:45 #24891 [verbose] > "ab"
00:05:45 #24892 [verbose] > |> of_string
00:05:45 #24893 [verbose] > |> to_list'
00:05:45 #24894 [verbose] > |> listm'.unbox
00:05:45 #24895 [verbose] > |> _assert_eq ([[ 'a'; 'b' ]])
00:05:45 #24896 [verbose] > Building c:\home\git\polyglot\target\polyglot\spiral_eval\packages\1e657f0c44b21527d68b1c98a7a393d7277c746d460352fac514cdec1116b534\main.spi
00:05:45 #24897 [verbose] >
00:05:45 #24898 [verbose] > ╭─[ 632.63ms - stdout ]────────────────────────────────────────────────────────╮
00:05:45 #24899 [verbose] > │ type UH0 = │
00:05:45 #24900 [verbose] > │ | UH0_0 │
00:05:45 #24901 [verbose] > │ | UH0_1 of char * UH0 │
00:05:45 #24902 [verbose] > │ let rec closure1 (v0 : char) (v1 : UH0) : UH0 = │
00:05:45 #24903 [verbose] > │ UH0_1(v0, v1) │
00:05:45 #24904 [verbose] > │ and closure0 () (v0 : char) : (UH0 -> UH0) = │
00:05:45 #24905 [verbose] > │ closure1(v0) │
00:05:45 #24906 [verbose] > │ and method1 () : (char -> (UH0 -> UH0)) = │
00:05:45 #24907 [verbose] > │ closure0() │
00:05:45 #24908 [verbose] > │ and method2 (v0 : bool) : bool = │
00:05:45 #24909 [verbose] > │ v0 │
00:05:45 #24910 [verbose] > │ and method0 () : unit = │
00:05:45 #24911 [verbose] > │ let v0 : string = "ab" │
00:05:45 #24912 [verbose] > │ let v1 : char seq = v0 |> unbox<char seq> │
00:05:45 #24913 [verbose] > │ let v2 : (char seq -> char list) = Seq.toList │
00:05:45 #24914 [verbose] > │ let v3 : char list = v2 v1 │
00:05:45 #24915 [verbose] > │ let v4 : ((char -> (UH0 -> UH0)) -> (char list -> (UH0 -> UH0))) = │
00:05:45 #24916 [verbose] > │ List.foldBack │
00:05:45 #24917 [verbose] > │ let v5 : (char -> (UH0 -> UH0)) = method1() │
00:05:45 #24918 [verbose] > │ let v6 : (char list -> (UH0 -> UH0)) = v4 v5 │
00:05:45 #24919 [verbose] > │ let v7 : (UH0 -> UH0) = v6 v3 │
00:05:45 #24920 [verbose] > │ let v8 : UH0 = UH0_0 │
00:05:45 #24921 [verbose] > │ let v9 : UH0 = v7 v8 │
00:05:45 #24922 [verbose] > │ let v10 : string = $"%A{v9}" │
00:05:45 #24923 [verbose] > │ System.Console.WriteLine v10 │
00:05:45 #24924 [verbose] > │ let v24 : bool = │
00:05:45 #24925 [verbose] > │ match v9 with │
00:05:45 #24926 [verbose] > │ | UH0_1(v14, v15) -> (* Cons *) │
00:05:45 #24927 [verbose] > │ let v16 : bool = v14 = 'a' │
00:05:45 #24928 [verbose] > │ if v16 then │
00:05:45 #24929 [verbose] > │ match v15 with │
00:05:45 #24930 [verbose] > │ | UH0_1(v17, v18) -> (* Cons *) │
00:05:45 #24931 [verbose] > │ let v19 : bool = v17 = 'b' │
00:05:45 #24932 [verbose] > │ if v19 then │
00:05:45 #24933 [verbose] > │ match v18 with │
00:05:45 #24934 [verbose] > │ | UH0_0 -> (* Nil *) │
00:05:45 #24935 [verbose] > │ true │
00:05:45 #24936 [verbose] > │ | _ -> │
00:05:45 #24937 [verbose] > │ false │
00:05:45 #24938 [verbose] > │ else │
00:05:45 #24939 [verbose] > │ false │
00:05:45 #24940 [verbose] > │ | _ -> │
00:05:45 #24941 [verbose] > │ false │
00:05:45 #24942 [verbose] > │ else │
00:05:45 #24943 [verbose] > │ false │
00:05:45 #24944 [verbose] > │ | _ -> │
00:05:46 #24945 [verbose] > │ false │
00:05:46 #24946 [verbose] > │ let v26 : bool = │
00:05:46 #24947 [verbose] > │ if v24 then │
00:05:46 #24948 [verbose] > │ true │
00:05:46 #24949 [verbose] > │ else │
00:05:46 #24950 [verbose] > │ method2(v24) │
00:05:46 #24951 [verbose] > │ let v27 : UH0 = UH0_0 │
00:05:46 #24952 [verbose] > │ let v28 : UH0 = UH0_1('b', v27) │
00:05:46 #24953 [verbose] > │ let v29 : UH0 = UH0_1('a', v28) │
00:05:46 #24954 [verbose] > │ let v30 : string = $"__expect / actual: %A{v9} / expected: %A{v29}" │
00:05:46 #24955 [verbose] > │ let v31 : bool = v26 = false │
00:05:46 #24956 [verbose] > │ if v31 then │
00:05:46 #24957 [verbose] > │ failwith<unit> v30 │
00:05:46 #24958 [verbose] > │ method0() │
00:05:46 #24959 [verbose] > │ │
00:05:46 #24960 [verbose] > │ UH0_1 ('a', UH0_1 ('b', UH0_0)) │
00:05:46 #24961 [verbose] > │ │
00:05:46 #24962 [verbose] > ╰──────────────────────────────────────────────────────────────────────────────╯
00:05:46 #24963 [verbose] >
00:05:46 #24964 [verbose] > ── markdown ────────────────────────────────────────────────────────────────────
00:05:46 #24965 [verbose] > ╭──────────────────────────────────────────────────────────────────────────────╮
00:05:46 #24966 [verbose] > │ ## rev' │
00:05:46 #24967 [verbose] > ╰──────────────────────────────────────────────────────────────────────────────╯
00:05:46 #24968 [verbose] >
00:05:46 #24969 [verbose] > ── spiral ──────────────────────────────────────────────────────────────────────
00:05:46 #24970 [verbose] > inl rev'' forall t u. (items : t) : seq' u =
00:05:46 #24971 [verbose] > items |> $'Seq.rev'
00:05:46 #24972 [verbose] > Building c:\home\git\polyglot\target\polyglot\spiral_eval\packages\f6f7f836ee54c2696380c698d175600787ae9066b9aff69ebf1aa65c34a76574\main.spi
00:05:46 #24973 [verbose] >
00:05:46 #24974 [verbose] > ╭─[ 238.51ms - stdout ]────────────────────────────────────────────────────────╮
00:05:46 #24975 [verbose] > │ () │
00:05:46 #24976 [verbose] > │ │
00:05:46 #24977 [verbose] > │ │
00:05:46 #24978 [verbose] > ╰──────────────────────────────────────────────────────────────────────────────╯
00:05:46 #24979 [verbose] >
00:05:46 #24980 [verbose] > ── markdown ────────────────────────────────────────────────────────────────────
00:05:46 #24981 [verbose] > ╭──────────────────────────────────────────────────────────────────────────────╮
00:05:46 #24982 [verbose] > │ ## seq │
00:05:46 #24983 [verbose] > ╰──────────────────────────────────────────────────────────────────────────────╯
00:05:46 #24984 [verbose] >
00:05:46 #24985 [verbose] > ── spiral ──────────────────────────────────────────────────────────────────────
00:05:46 #24986 [verbose] > type seq dim el = dim -> option el
00:05:46 #24987 [verbose] > Building c:\home\git\polyglot\target\polyglot\spiral_eval\packages\d28e142c0c67d2d784445c3a3666f2e62216edd48066625651dc6fb1f3e0d94f\main.spi
00:05:46 #24988 [verbose] >
00:05:46 #24989 [verbose] > ╭─[ 267.02ms - stdout ]────────────────────────────────────────────────────────╮
00:05:46 #24990 [verbose] > │ () │
00:05:46 #24991 [verbose] > │ │
00:05:46 #24992 [verbose] > │ │
00:05:46 #24993 [verbose] > ╰──────────────────────────────────────────────────────────────────────────────╯
00:05:46 #24994 [verbose] >
00:05:46 #24995 [verbose] > ── markdown ────────────────────────────────────────────────────────────────────
00:05:46 #24996 [verbose] > ╭──────────────────────────────────────────────────────────────────────────────╮
00:05:46 #24997 [verbose] > │ ## try_item │
00:05:46 #24998 [verbose] > ╰──────────────────────────────────────────────────────────────────────────────╯
00:05:46 #24999 [verbose] >
00:05:46 #25000 [verbose] > ── spiral ──────────────────────────────────────────────────────────────────────
00:05:46 #25001 [verbose] > inl try_item n s =
00:05:46 #25002 [verbose] > n |> s
00:05:46 #25003 [verbose] > Building c:\home\git\polyglot\target\polyglot\spiral_eval\packages\74cc7a6a17bc03b345a292c4a43799b8af35ca371f558bad4b8f506b0b1b8d93\main.spi
00:05:46 #25004 [verbose] >
00:05:46 #25005 [verbose] > ╭─[ 237.67ms - stdout ]────────────────────────────────────────────────────────╮
00:05:46 #25006 [verbose] > │ () │
00:05:46 #25007 [verbose] > │ │
00:05:46 #25008 [verbose] > │ │
00:05:46 #25009 [verbose] > ╰──────────────────────────────────────────────────────────────────────────────╯
00:05:46 #25010 [verbose] >
00:05:46 #25011 [verbose] > ── markdown ────────────────────────────────────────────────────────────────────
00:05:46 #25012 [verbose] > ╭──────────────────────────────────────────────────────────────────────────────╮
00:05:46 #25013 [verbose] > │ ## from_list │
00:05:46 #25014 [verbose] > ╰──────────────────────────────────────────────────────────────────────────────╯
00:05:46 #25015 [verbose] >
00:05:46 #25016 [verbose] > ── spiral ──────────────────────────────────────────────────────────────────────
00:05:46 #25017 [verbose] > inl from_list list =
00:05:46 #25018 [verbose] > fun n =>
00:05:46 #25019 [verbose] > list
00:05:46 #25020 [verbose] > |> listm'.try_item n
00:05:46 #25021 [verbose] > Building c:\home\git\polyglot\target\polyglot\spiral_eval\packages\ef7982e57fc8c800cc212f84268811863569a5ed648c1603457b2392a3e59918\main.spi
00:05:46 #25022 [verbose] >
00:05:46 #25023 [verbose] > ╭─[ 222.30ms - stdout ]────────────────────────────────────────────────────────╮
00:05:46 #25024 [verbose] > │ () │
00:05:46 #25025 [verbose] > │ │
00:05:46 #25026 [verbose] > │ │
00:05:46 #25027 [verbose] > ╰──────────────────────────────────────────────────────────────────────────────╯
00:05:46 #25028 [verbose] >
00:05:46 #25029 [verbose] > ── spiral ──────────────────────────────────────────────────────────────────────
00:05:46 #25030 [verbose] > // // test
00:05:46 #25031 [verbose] >
00:05:46 #25032 [verbose] > listm.init 10i32 print_and_return
00:05:46 #25033 [verbose] > |> from_list
00:05:46 #25034 [verbose] > |> try_item 5i32
00:05:46 #25035 [verbose] > |> _assert_eq (Some 5i32)
00:05:47 #25036 [verbose] > Building c:\home\git\polyglot\target\polyglot\spiral_eval\packages\4d90157121cb02b06cf28d0aef7bc4280de969c578797d7de30b135b26967e39\main.spi
00:05:47 #25037 [verbose] >
00:05:47 #25038 [verbose] > ╭─[ 613.06ms - stdout ]────────────────────────────────────────────────────────╮
00:05:47 #25039 [verbose] > │ type [<Struct>] US0 = │
00:05:47 #25040 [verbose] > │ | US0_0 of f0_0 : int32 │
00:05:47 #25041 [verbose] > │ | US0_1 │
00:05:47 #25042 [verbose] > │ let rec method0 () : unit = │
00:05:47 #25043 [verbose] > │ printfn $"print_and_return / x: {0}" │
00:05:47 #25044 [verbose] > │ printfn $"print_and_return / x: {1}" │
00:05:47 #25045 [verbose] > │ printfn $"print_and_return / x: {2}" │
00:05:47 #25046 [verbose] > │ printfn $"print_and_return / x: {3}" │
00:05:47 #25047 [verbose] > │ printfn $"print_and_return / x: {4}" │
00:05:47 #25048 [verbose] > │ printfn $"print_and_return / x: {5}" │
00:05:47 #25049 [verbose] > │ printfn $"print_and_return / x: {6}" │
00:05:47 #25050 [verbose] > │ printfn $"print_and_return / x: {7}" │
00:05:47 #25051 [verbose] > │ printfn $"print_and_return / x: {8}" │
00:05:47 #25052 [verbose] > │ printfn $"print_and_return / x: {9}" │
00:05:47 #25053 [verbose] > │ let v0 : US0 = US0_0(5) │
00:05:47 #25054 [verbose] > │ let v1 : string = $"%A{v0}" │
00:05:47 #25055 [verbose] > │ System.Console.WriteLine v1 │
00:05:47 #25056 [verbose] > │ let v5 : US0 = US0_0(5) │
00:05:47 #25057 [verbose] > │ let v6 : US0 = US0_0(5) │
00:05:47 #25058 [verbose] > │ let v7 : string = $"__expect / actual: %A{v5} / expected: %A{v6}" │
00:05:47 #25059 [verbose] > │ () │
00:05:47 #25060 [verbose] > │ method0() │
00:05:47 #25061 [verbose] > │ │
00:05:47 #25062 [verbose] > │ print_and_return / x: 0 │
00:05:47 #25063 [verbose] > │ print_and_return / x: 1 │
00:05:47 #25064 [verbose] > │ print_and_return / x: 2 │
00:05:47 #25065 [verbose] > │ print_and_return / x: 3 │
00:05:47 #25066 [verbose] > │ print_and_return / x: 4 │
00:05:47 #25067 [verbose] > │ print_and_return / x: 5 │
00:05:47 #25068 [verbose] > │ print_and_return / x: 6 │
00:05:47 #25069 [verbose] > │ print_and_return / x: 7 │
00:05:47 #25070 [verbose] > │ print_and_return / x: 8 │
00:05:47 #25071 [verbose] > │ print_and_return / x: 9 │
00:05:47 #25072 [verbose] > │ US0_0 5 │
00:05:47 #25073 [verbose] > │ │
00:05:47 #25074 [verbose] > ╰──────────────────────────────────────────────────────────────────────────────╯
00:05:47 #25075 [verbose] >
00:05:47 #25076 [verbose] > ── markdown ────────────────────────────────────────────────────────────────────
00:05:47 #25077 [verbose] > ╭──────────────────────────────────────────────────────────────────────────────╮
00:05:47 #25078 [verbose] > │ ## map │
00:05:47 #25079 [verbose] > ╰──────────────────────────────────────────────────────────────────────────────╯
00:05:47 #25080 [verbose] >
00:05:47 #25081 [verbose] > ── spiral ──────────────────────────────────────────────────────────────────────
00:05:47 #25082 [verbose] > inl map fn s =
00:05:47 #25083 [verbose] > fun n =>
00:05:47 #25084 [verbose] > n
00:05:47 #25085 [verbose] > |> s
00:05:47 #25086 [verbose] > |> optionm.map fn
00:05:47 #25087 [verbose] > Building c:\home\git\polyglot\target\polyglot\spiral_eval\packages\46ab2433f635379c8ba546312190594ec5a3093c5613cdc5c94b6ab36593950a\main.spi
00:05:47 #25088 [verbose] >
00:05:47 #25089 [verbose] > ╭─[ 253.28ms - stdout ]────────────────────────────────────────────────────────╮
00:05:47 #25090 [verbose] > │ () │
00:05:47 #25091 [verbose] > │ │
00:05:47 #25092 [verbose] > │ │
00:05:47 #25093 [verbose] > ╰──────────────────────────────────────────────────────────────────────────────╯
00:05:47 #25094 [verbose] >
00:05:47 #25095 [verbose] > ── spiral ──────────────────────────────────────────────────────────────────────
00:05:47 #25096 [verbose] > // // test
00:05:47 #25097 [verbose] >
00:05:47 #25098 [verbose] > listm.init 10i32 id
00:05:47 #25099 [verbose] > |> from_list
00:05:47 #25100 [verbose] > |> map ((*) 2)
00:05:47 #25101 [verbose] > |> try_item 5i32
00:05:47 #25102 [verbose] > |> _assert_eq (Some 10i32)
00:05:48 #25103 [verbose] > Building c:\home\git\polyglot\target\polyglot\spiral_eval\packages\5206f72d2e32263d446b66a9aba80fa96644ef79d7266f2af51dc2cac5daa8af\main.spi
00:05:48 #25104 [verbose] >
00:05:48 #25105 [verbose] > ╭─[ 290.70ms - stdout ]────────────────────────────────────────────────────────╮
00:05:48 #25106 [verbose] > │ type [<Struct>] US0 = │
00:05:48 #25107 [verbose] > │ | US0_0 of f0_0 : int32 │
00:05:48 #25108 [verbose] > │ | US0_1 │
00:05:48 #25109 [verbose] > │ let rec method0 () : unit = │
00:05:48 #25110 [verbose] > │ let v0 : US0 = US0_0(10) │
00:05:48 #25111 [verbose] > │ let v1 : string = $"%A{v0}" │
00:05:48 #25112 [verbose] > │ System.Console.WriteLine v1 │
00:05:48 #25113 [verbose] > │ let v5 : US0 = US0_0(10) │
00:05:48 #25114 [verbose] > │ let v6 : US0 = US0_0(10) │
00:05:48 #25115 [verbose] > │ let v7 : string = $"__expect / actual: %A{v5} / expected: %A{v6}" │
00:05:48 #25116 [verbose] > │ () │
00:05:48 #25117 [verbose] > │ method0() │
00:05:48 #25118 [verbose] > │ │
00:05:48 #25119 [verbose] > │ US0_0 10 │
00:05:48 #25120 [verbose] > │ │
00:05:48 #25121 [verbose] > ╰──────────────────────────────────────────────────────────────────────────────╯
00:05:48 #25122 [verbose] >
00:05:48 #25123 [verbose] > ── markdown ────────────────────────────────────────────────────────────────────
00:05:48 #25124 [verbose] > ╭──────────────────────────────────────────────────────────────────────────────╮
00:05:48 #25125 [verbose] > │ ## mapi │
00:05:48 #25126 [verbose] > ╰──────────────────────────────────────────────────────────────────────────────╯
00:05:48 #25127 [verbose] >
00:05:48 #25128 [verbose] > ── spiral ──────────────────────────────────────────────────────────────────────
00:05:48 #25129 [verbose] > inl mapi fn s =
00:05:48 #25130 [verbose] > fun n =>
00:05:48 #25131 [verbose] > n
00:05:48 #25132 [verbose] > |> s
00:05:48 #25133 [verbose] > |> optionm.map (fn n)
00:05:48 #25134 [verbose] > Building c:\home\git\polyglot\target\polyglot\spiral_eval\packages\fc094533aacd3d1ca29d8b4e1ca4871d81053c6ae032739dfb318159b5202630\main.spi
00:05:48 #25135 [verbose] >
00:05:48 #25136 [verbose] > ╭─[ 238.08ms - stdout ]────────────────────────────────────────────────────────╮
00:05:48 #25137 [verbose] > │ () │
00:05:48 #25138 [verbose] > │ │
00:05:48 #25139 [verbose] > │ │
00:05:48 #25140 [verbose] > ╰──────────────────────────────────────────────────────────────────────────────╯
00:05:48 #25141 [verbose] >
00:05:48 #25142 [verbose] > ── spiral ──────────────────────────────────────────────────────────────────────
00:05:48 #25143 [verbose] > // // test
00:05:48 #25144 [verbose] >
00:05:48 #25145 [verbose] > listm.init 10i32 print_and_return
00:05:48 #25146 [verbose] > |> from_list
00:05:48 #25147 [verbose] > |> mapi fun i x => i + x
00:05:48 #25148 [verbose] > |> try_item 5i32
00:05:48 #25149 [verbose] > |> _assert_eq (Some 10i32)
00:05:48 #25150 [verbose] > Building c:\home\git\polyglot\target\polyglot\spiral_eval\packages\8c8dd6c354f43a336616a0d760d5148e4fe276493a76265a9c63a072632eb6be\main.spi
00:05:48 #25151 [verbose] >
00:05:48 #25152 [verbose] > ╭─[ 310.17ms - stdout ]────────────────────────────────────────────────────────╮
00:05:48 #25153 [verbose] > │ type [<Struct>] US0 = │
00:05:48 #25154 [verbose] > │ | US0_0 of f0_0 : int32 │
00:05:48 #25155 [verbose] > │ | US0_1 │
00:05:48 #25156 [verbose] > │ let rec method0 () : unit = │
00:05:48 #25157 [verbose] > │ printfn $"print_and_return / x: {0}" │
00:05:48 #25158 [verbose] > │ printfn $"print_and_return / x: {1}" │
00:05:48 #25159 [verbose] > │ printfn $"print_and_return / x: {2}" │
00:05:48 #25160 [verbose] > │ printfn $"print_and_return / x: {3}" │
00:05:48 #25161 [verbose] > │ printfn $"print_and_return / x: {4}" │
00:05:48 #25162 [verbose] > │ printfn $"print_and_return / x: {5}" │
00:05:48 #25163 [verbose] > │ printfn $"print_and_return / x: {6}" │
00:05:48 #25164 [verbose] > │ printfn $"print_and_return / x: {7}" │
00:05:48 #25165 [verbose] > │ printfn $"print_and_return / x: {8}" │
00:05:48 #25166 [verbose] > │ printfn $"print_and_return / x: {9}" │
00:05:48 #25167 [verbose] > │ let v0 : US0 = US0_0(10) │
00:05:48 #25168 [verbose] > │ let v1 : string = $"%A{v0}" │
00:05:48 #25169 [verbose] > │ System.Console.WriteLine v1 │
00:05:48 #25170 [verbose] > │ let v5 : US0 = US0_0(10) │
00:05:48 #25171 [verbose] > │ let v6 : US0 = US0_0(10) │
00:05:48 #25172 [verbose] > │ let v7 : string = $"__expect / actual: %A{v5} / expected: %A{v6}" │
00:05:48 #25173 [verbose] > │ () │
00:05:48 #25174 [verbose] > │ method0() │
00:05:48 #25175 [verbose] > │ │
00:05:48 #25176 [verbose] > │ print_and_return / x: 0 │
00:05:48 #25177 [verbose] > │ print_and_return / x: 1 │
00:05:48 #25178 [verbose] > │ print_and_return / x: 2 │
00:05:48 #25179 [verbose] > │ print_and_return / x: 3 │
00:05:48 #25180 [verbose] > │ print_and_return / x: 4 │
00:05:48 #25181 [verbose] > │ print_and_return / x: 5 │
00:05:48 #25182 [verbose] > │ print_and_return / x: 6 │
00:05:48 #25183 [verbose] > │ print_and_return / x: 7 │
00:05:48 #25184 [verbose] > │ print_and_return / x: 8 │
00:05:48 #25185 [verbose] > │ print_and_return / x: 9 │
00:05:48 #25186 [verbose] > │ US0_0 10 │
00:05:48 #25187 [verbose] > │ │
00:05:48 #25188 [verbose] > ╰──────────────────────────────────────────────────────────────────────────────╯
00:05:48 #25189 [verbose] >
00:05:48 #25190 [verbose] > ── markdown ────────────────────────────────────────────────────────────────────
00:05:48 #25191 [verbose] > ╭──────────────────────────────────────────────────────────────────────────────╮
00:05:48 #25192 [verbose] > │ ## choose │
00:05:48 #25193 [verbose] > ╰──────────────────────────────────────────────────────────────────────────────╯
00:05:48 #25194 [verbose] >
00:05:48 #25195 [verbose] > ── spiral ──────────────────────────────────────────────────────────────────────
00:05:48 #25196 [verbose] > inl choose forall dim {number} t u. (fn : t -> option u) (s : seq dim t) : seq
00:05:48 #25197 [verbose] > dim u =
00:05:48 #25198 [verbose] > fun n =>
00:05:48 #25199 [verbose] > inl rec body fn s i i' =
00:05:48 #25200 [verbose] > match i |> s with
00:05:48 #25201 [verbose] > | None => None
00:05:48 #25202 [verbose] > | Some x =>
00:05:48 #25203 [verbose] > match x |> fn with
00:05:48 #25204 [verbose] > | Some x when n = i' => Some x
00:05:48 #25205 [verbose] > | Some _ => loop (i + 1) (i' + 1)
00:05:48 #25206 [verbose] > | _ => loop (i + 1) i'
00:05:48 #25207 [verbose] > and inl loop i i' =
00:05:48 #25208 [verbose] > if n |> var_is |> not
00:05:48 #25209 [verbose] > then body fn s i i'
00:05:48 #25210 [verbose] > else
00:05:48 #25211 [verbose] > inl fn = join fn
00:05:48 #25212 [verbose] > inl s = join s
00:05:48 #25213 [verbose] > join body fn s i i'
00:05:48 #25214 [verbose] > loop 0 0
00:05:48 #25215 [verbose] > Building c:\home\git\polyglot\target\polyglot\spiral_eval\packages\f3eccaf303324e3b46bd25adcd9183a5c220e3a78141bf89f95be3957e4195f5\main.spi
00:05:48 #25216 [verbose] >
00:05:48 #25217 [verbose] > ╭─[ 237.04ms - stdout ]────────────────────────────────────────────────────────╮
00:05:48 #25218 [verbose] > │ () │
00:05:48 #25219 [verbose] > │ │
00:05:48 #25220 [verbose] > │ │
00:05:48 #25221 [verbose] > ╰──────────────────────────────────────────────────────────────────────────────╯
00:05:48 #25222 [verbose] >
00:05:48 #25223 [verbose] > ── spiral ──────────────────────────────────────────────────────────────────────
00:05:48 #25224 [verbose] > // // test
00:05:48 #25225 [verbose] >
00:05:48 #25226 [verbose] > listm.init 10i32 print_and_return
00:05:48 #25227 [verbose] > |> from_list
00:05:48 #25228 [verbose] > |> choose (fun x => if x % 2 = 0 then Some x else None)
00:05:48 #25229 [verbose] > |> try_item 1i32
00:05:48 #25230 [verbose] > |> _assert_eq (Some 2i32)
00:05:49 #25231 [verbose] > Building c:\home\git\polyglot\target\polyglot\spiral_eval\packages\4037391c8476a0c3638f1377f9445147f261319b52363b1a70275474f945b30d\main.spi
00:05:49 #25232 [verbose] >
00:05:49 #25233 [verbose] > ╭─[ 291.83ms - stdout ]────────────────────────────────────────────────────────╮
00:05:49 #25234 [verbose] > │ type [<Struct>] US0 = │
00:05:49 #25235 [verbose] > │ | US0_0 of f0_0 : int32 │
00:05:49 #25236 [verbose] > │ | US0_1 │
00:05:49 #25237 [verbose] > │ let rec method0 () : unit = │
00:05:49 #25238 [verbose] > │ printfn $"print_and_return / x: {0}" │
00:05:49 #25239 [verbose] > │ printfn $"print_and_return / x: {1}" │
00:05:49 #25240 [verbose] > │ printfn $"print_and_return / x: {2}" │
00:05:49 #25241 [verbose] > │ printfn $"print_and_return / x: {3}" │
00:05:49 #25242 [verbose] > │ printfn $"print_and_return / x: {4}" │
00:05:49 #25243 [verbose] > │ printfn $"print_and_return / x: {5}" │
00:05:49 #25244 [verbose] > │ printfn $"print_and_return / x: {6}" │
00:05:49 #25245 [verbose] > │ printfn $"print_and_return / x: {7}" │
00:05:49 #25246 [verbose] > │ printfn $"print_and_return / x: {8}" │
00:05:49 #25247 [verbose] > │ printfn $"print_and_return / x: {9}" │
00:05:49 #25248 [verbose] > │ let v0 : US0 = US0_0(2) │
00:05:49 #25249 [verbose] > │ let v1 : string = $"%A{v0}" │
00:05:49 #25250 [verbose] > │ System.Console.WriteLine v1 │
00:05:49 #25251 [verbose] > │ let v5 : US0 = US0_0(2) │
00:05:49 #25252 [verbose] > │ let v6 : US0 = US0_0(2) │
00:05:49 #25253 [verbose] > │ let v7 : string = $"__expect / actual: %A{v5} / expected: %A{v6}" │
00:05:49 #25254 [verbose] > │ () │
00:05:49 #25255 [verbose] > │ method0() │
00:05:49 #25256 [verbose] > │ │
00:05:49 #25257 [verbose] > │ print_and_return / x: 0 │
00:05:49 #25258 [verbose] > │ print_and_return / x: 1 │
00:05:49 #25259 [verbose] > │ print_and_return / x: 2 │
00:05:49 #25260 [verbose] > │ print_and_return / x: 3 │
00:05:49 #25261 [verbose] > │ print_and_return / x: 4 │
00:05:49 #25262 [verbose] > │ print_and_return / x: 5 │
00:05:49 #25263 [verbose] > │ print_and_return / x: 6 │
00:05:49 #25264 [verbose] > │ print_and_return / x: 7 │
00:05:49 #25265 [verbose] > │ print_and_return / x: 8 │
00:05:49 #25266 [verbose] > │ print_and_return / x: 9 │
00:05:49 #25267 [verbose] > │ US0_0 2 │
00:05:49 #25268 [verbose] > │ │
00:05:49 #25269 [verbose] > ╰──────────────────────────────────────────────────────────────────────────────╯
00:05:49 #25270 [verbose] >
00:05:49 #25271 [verbose] > ── markdown ────────────────────────────────────────────────────────────────────
00:05:49 #25272 [verbose] > ╭──────────────────────────────────────────────────────────────────────────────╮
00:05:49 #25273 [verbose] > │ ## indexed │
00:05:49 #25274 [verbose] > ╰──────────────────────────────────────────────────────────────────────────────╯
00:05:49 #25275 [verbose] >
00:05:49 #25276 [verbose] > ── spiral ──────────────────────────────────────────────────────────────────────
00:05:49 #25277 [verbose] > inl indexed s =
00:05:49 #25278 [verbose] > s
00:05:49 #25279 [verbose] > |> mapi fun i x =>
00:05:49 #25280 [verbose] > i, x
00:05:49 #25281 [verbose] > Building c:\home\git\polyglot\target\polyglot\spiral_eval\packages\4b9e5eeb6997dbdaf1b28dd1ec542ab3947bc92b97d8bf66f4c054ebee5c38cd\main.spi
00:05:49 #25282 [verbose] >
00:05:49 #25283 [verbose] > ╭─[ 241.44ms - stdout ]────────────────────────────────────────────────────────╮
00:05:49 #25284 [verbose] > │ () │
00:05:49 #25285 [verbose] > │ │
00:05:49 #25286 [verbose] > │ │
00:05:49 #25287 [verbose] > ╰──────────────────────────────────────────────────────────────────────────────╯
00:05:49 #25288 [verbose] >
00:05:49 #25289 [verbose] > ── spiral ──────────────────────────────────────────────────────────────────────
00:05:49 #25290 [verbose] > // // test
00:05:49 #25291 [verbose] >
00:05:49 #25292 [verbose] > listm.init 10i32 ((*) 2)
00:05:49 #25293 [verbose] > |> from_list
00:05:49 #25294 [verbose] > |> indexed
00:05:49 #25295 [verbose] > |> try_item 5i32
00:05:49 #25296 [verbose] > |> _assert_eq (Some (5i32, 10i32))
00:05:49 #25297 [verbose] > Building c:\home\git\polyglot\target\polyglot\spiral_eval\packages\f348b4160daffc5b0ace839b64d2cd306beca79426454431d7e8690cdf4440ac\main.spi
00:05:49 #25298 [verbose] >
00:05:49 #25299 [verbose] > ╭─[ 277.77ms - stdout ]────────────────────────────────────────────────────────╮
00:05:49 #25300 [verbose] > │ type [<Struct>] US0 = │
00:05:49 #25301 [verbose] > │ | US0_0 of f0_0 : int32 * f0_1 : int32 │
00:05:49 #25302 [verbose] > │ | US0_1 │
00:05:49 #25303 [verbose] > │ let rec method0 () : unit = │
00:05:49 #25304 [verbose] > │ let v0 : US0 = US0_0(5, 10) │
00:05:49 #25305 [verbose] > │ let v1 : string = $"%A{v0}" │
00:05:49 #25306 [verbose] > │ System.Console.WriteLine v1 │
00:05:49 #25307 [verbose] > │ let v5 : US0 = US0_0(5, 10) │
00:05:49 #25308 [verbose] > │ let v6 : US0 = US0_0(5, 10) │
00:05:49 #25309 [verbose] > │ let v7 : string = $"__expect / actual: %A{v5} / expected: %A{v6}" │
00:05:49 #25310 [verbose] > │ () │
00:05:49 #25311 [verbose] > │ method0() │
00:05:49 #25312 [verbose] > │ │
00:05:49 #25313 [verbose] > │ US0_0 (5, 10) │
00:05:49 #25314 [verbose] > │ │
00:05:49 #25315 [verbose] > ╰──────────────────────────────────────────────────────────────────────────────╯
00:05:49 #25316 [verbose] >
00:05:49 #25317 [verbose] > ── markdown ────────────────────────────────────────────────────────────────────
00:05:49 #25318 [verbose] > ╭──────────────────────────────────────────────────────────────────────────────╮
00:05:49 #25319 [verbose] > │ ## zip │
00:05:49 #25320 [verbose] > ╰──────────────────────────────────────────────────────────────────────────────╯
00:05:49 #25321 [verbose] >
00:05:49 #25322 [verbose] > ── spiral ──────────────────────────────────────────────────────────────────────
00:05:49 #25323 [verbose] > inl zip n seq1 seq2 =
00:05:49 #25324 [verbose] > seq1 n, seq2 n
00:05:49 #25325 [verbose] > Building c:\home\git\polyglot\target\polyglot\spiral_eval\packages\ea8e4fac4e2cb428c297c082679abda36eb84eadd6b25bf9978234359ab4e687\main.spi
00:05:50 #25326 [verbose] >
00:05:50 #25327 [verbose] > ╭─[ 274.85ms - stdout ]────────────────────────────────────────────────────────╮
00:05:50 #25328 [verbose] > │ () │
00:05:50 #25329 [verbose] > │ │
00:05:50 #25330 [verbose] > │ │
00:05:50 #25331 [verbose] > ╰──────────────────────────────────────────────────────────────────────────────╯
00:05:50 #25332 [verbose] >
00:05:50 #25333 [verbose] > ── spiral ──────────────────────────────────────────────────────────────────────
00:05:50 #25334 [verbose] > // // test
00:05:50 #25335 [verbose] >
00:05:50 #25336 [verbose] > ((listm.init 10i32 id |> from_list), (listm.init 10i32 ((*) 2) |> from_list))
00:05:50 #25337 [verbose] > ||> zip 5i32
00:05:50 #25338 [verbose] > |> _assert_eq (Some 5, Some 10)
00:05:50 #25339 [verbose] > Building c:\home\git\polyglot\target\polyglot\spiral_eval\packages\d63ba229cb13332267e2d0295ce58e6d81464a730f38398247ab15d04a5cc75e\main.spi
00:05:50 #25340 [verbose] >
00:05:50 #25341 [verbose] > ╭─[ 294.84ms - stdout ]────────────────────────────────────────────────────────╮
00:05:50 #25342 [verbose] > │ type [<Struct>] US0 = │
00:05:50 #25343 [verbose] > │ | US0_0 of f0_0 : int32 │
00:05:50 #25344 [verbose] > │ | US0_1 │
00:05:50 #25345 [verbose] > │ let rec method0 () : unit = │
00:05:50 #25346 [verbose] > │ let v0 : US0 = US0_0(5) │
00:05:50 #25347 [verbose] > │ let v1 : US0 = US0_0(10) │
00:05:50 #25348 [verbose] > │ let v2 : string = $"%A{struct (v0, v1)}" │
00:05:50 #25349 [verbose] > │ System.Console.WriteLine v2 │
00:05:50 #25350 [verbose] > │ let v9 : US0 = US0_0(5) │
00:05:50 #25351 [verbose] > │ let v10 : US0 = US0_0(10) │
00:05:50 #25352 [verbose] > │ let v11 : US0 = US0_0(5) │
00:05:50 #25353 [verbose] > │ let v12 : US0 = US0_0(10) │
00:05:50 #25354 [verbose] > │ let v13 : string = $"__expect / actual: %A{struct (v9, v10)} / expected: │
00:05:50 #25355 [verbose] > │ %A{struct (v11, v12)}" │
00:05:50 #25356 [verbose] > │ () │
00:05:50 #25357 [verbose] > │ method0() │
00:05:50 #25358 [verbose] > │ │
00:05:50 #25359 [verbose] > │ struct (US0_0 5, US0_0 10) │
00:05:50 #25360 [verbose] > │ │
00:05:50 #25361 [verbose] > ╰──────────────────────────────────────────────────────────────────────────────╯
00:05:50 #25362 [verbose] >
00:05:50 #25363 [verbose] > ── markdown ────────────────────────────────────────────────────────────────────
00:05:50 #25364 [verbose] > ╭──────────────────────────────────────────────────────────────────────────────╮
00:05:50 #25365 [verbose] > │ ## zip_with │
00:05:50 #25366 [verbose] > ╰──────────────────────────────────────────────────────────────────────────────╯
00:05:50 #25367 [verbose] >
00:05:50 #25368 [verbose] > ── spiral ──────────────────────────────────────────────────────────────────────
00:05:50 #25369 [verbose] > inl zip_with fn seq1 seq2 =
00:05:50 #25370 [verbose] > fun n =>
00:05:50 #25371 [verbose] > fn (seq1 n) (seq2 n)
00:05:50 #25372 [verbose] > Building c:\home\git\polyglot\target\polyglot\spiral_eval\packages\cb584afbf6ed3f823136717ef95de29ff8b61542fbb76f6677597d7c7635aab0\main.spi
00:05:50 #25373 [verbose] >
00:05:50 #25374 [verbose] > ╭─[ 249.04ms - stdout ]────────────────────────────────────────────────────────╮
00:05:50 #25375 [verbose] > │ () │
00:05:50 #25376 [verbose] > │ │
00:05:50 #25377 [verbose] > │ │
00:05:50 #25378 [verbose] > ╰──────────────────────────────────────────────────────────────────────────────╯
00:05:50 #25379 [verbose] >
00:05:50 #25380 [verbose] > ── spiral ──────────────────────────────────────────────────────────────────────
00:05:50 #25381 [verbose] > // // test
00:05:50 #25382 [verbose] >
00:05:50 #25383 [verbose] > ((listm.init 10i32 id |> from_list), (listm.init 10i32 ((*) 2) |> from_list))
00:05:50 #25384 [verbose] > ||> zip_with (optionm'.choose (+))
00:05:50 #25385 [verbose] > |> try_item 2i32
00:05:50 #25386 [verbose] > |> _assert_eq (Some 6)
00:05:50 #25387 [verbose] > Building c:\home\git\polyglot\target\polyglot\spiral_eval\packages\db78113fc1d2ee0eca0565adb3b0f933efa80d88726fa6e53d42c5db7c6b808f\main.spi
00:05:50 #25388 [verbose] >
00:05:50 #25389 [verbose] > ╭─[ 296.17ms - stdout ]────────────────────────────────────────────────────────╮
00:05:50 #25390 [verbose] > │ type [<Struct>] US0 = │
00:05:50 #25391 [verbose] > │ | US0_0 of f0_0 : int32 │
00:05:50 #25392 [verbose] > │ | US0_1 │
00:05:50 #25393 [verbose] > │ let rec method0 () : unit = │
00:05:50 #25394 [verbose] > │ let v0 : US0 = US0_0(6) │
00:05:50 #25395 [verbose] > │ let v1 : string = $"%A{v0}" │
00:05:50 #25396 [verbose] > │ System.Console.WriteLine v1 │
00:05:50 #25397 [verbose] > │ let v5 : US0 = US0_0(6) │
00:05:50 #25398 [verbose] > │ let v6 : US0 = US0_0(6) │
00:05:50 #25399 [verbose] > │ let v7 : string = $"__expect / actual: %A{v5} / expected: %A{v6}" │
00:05:50 #25400 [verbose] > │ () │
00:05:50 #25401 [verbose] > │ method0() │
00:05:50 #25402 [verbose] > │ │
00:05:50 #25403 [verbose] > │ US0_0 6 │
00:05:50 #25404 [verbose] > │ │
00:05:50 #25405 [verbose] > ╰──────────────────────────────────────────────────────────────────────────────╯
00:05:50 #25406 [verbose] >
00:05:50 #25407 [verbose] > ── markdown ────────────────────────────────────────────────────────────────────
00:05:50 #25408 [verbose] > ╭──────────────────────────────────────────────────────────────────────────────╮
00:05:50 #25409 [verbose] > │ ## fold │
00:05:50 #25410 [verbose] > ╰──────────────────────────────────────────────────────────────────────────────╯
00:05:50 #25411 [verbose] >
00:05:50 #25412 [verbose] > ── spiral ──────────────────────────────────────────────────────────────────────
00:05:50 #25413 [verbose] > inl fold fn init seq =
00:05:50 #25414 [verbose] > inl rec loop acc n =
00:05:50 #25415 [verbose] > match seq n with
00:05:50 #25416 [verbose] > | Some x => loop (fn acc x) (n + 1)
00:05:50 #25417 [verbose] > | None => acc
00:05:50 #25418 [verbose] > loop init 0
00:05:50 #25419 [verbose] >
00:05:50 #25420 [verbose] > inl fold_ fn init seq =
00:05:50 #25421 [verbose] > let rec loop acc n =
00:05:50 #25422 [verbose] > match seq n with
00:05:50 #25423 [verbose] > | Some x => loop (fn acc x) (n + 1)
00:05:50 #25424 [verbose] > | None => acc
00:05:50 #25425 [verbose] > loop init 0
00:05:51 #25426 [verbose] > Building c:\home\git\polyglot\target\polyglot\spiral_eval\packages\6f0f7f7ec1690c069cf7f1d9cef618d9156301726464d8c048b9ab778a0fde46\main.spi
00:05:51 #25427 [verbose] >
00:05:51 #25428 [verbose] > ╭─[ 223.36ms - stdout ]────────────────────────────────────────────────────────╮
00:05:51 #25429 [verbose] > │ () │
00:05:51 #25430 [verbose] > │ │
00:05:51 #25431 [verbose] > │ │
00:05:51 #25432 [verbose] > ╰──────────────────────────────────────────────────────────────────────────────╯
00:05:51 #25433 [verbose] >
00:05:51 #25434 [verbose] > ── markdown ────────────────────────────────────────────────────────────────────
00:05:51 #25435 [verbose] > ╭──────────────────────────────────────────────────────────────────────────────╮
00:05:51 #25436 [verbose] > │ ## sum │
00:05:51 #25437 [verbose] > ╰──────────────────────────────────────────────────────────────────────────────╯
00:05:51 #25438 [verbose] >
00:05:51 #25439 [verbose] > ── spiral ──────────────────────────────────────────────────────────────────────
00:05:51 #25440 [verbose] > inl sum seq =
00:05:51 #25441 [verbose] > seq |> fold (+) 0
00:05:51 #25442 [verbose] >
00:05:51 #25443 [verbose] > inl sum_ seq =
00:05:51 #25444 [verbose] > seq |> fold_ (+) 0
00:05:51 #25445 [verbose] > Building c:\home\git\polyglot\target\polyglot\spiral_eval\packages\8c03dc61c2b48485222432ae8051281586d57ca8ec1e8bf9144c13ea9e9f0845\main.spi
00:05:51 #25446 [verbose] >
00:05:51 #25447 [verbose] > ╭─[ 247.61ms - stdout ]────────────────────────────────────────────────────────╮
00:05:51 #25448 [verbose] > │ () │
00:05:51 #25449 [verbose] > │ │
00:05:51 #25450 [verbose] > │ │
00:05:51 #25451 [verbose] > ╰──────────────────────────────────────────────────────────────────────────────╯
00:05:51 #25452 [verbose] >
00:05:51 #25453 [verbose] > ── spiral ──────────────────────────────────────────────────────────────────────
00:05:51 #25454 [verbose] > // // test
00:05:51 #25455 [verbose] >
00:05:51 #25456 [verbose] > listm.init 10i32 id
00:05:51 #25457 [verbose] > |> from_list
00:05:51 #25458 [verbose] > |> fun f (n : i32) => f n
00:05:51 #25459 [verbose] > |> sum
00:05:51 #25460 [verbose] > |> _assert_eq 45
00:05:51 #25461 [verbose] > Building c:\home\git\polyglot\target\polyglot\spiral_eval\packages\da449eb49f5a970ccbdbcbea6fb34c9100e13d9dae13d08391d0fbca4d613f71\main.spi
00:05:51 #25462 [verbose] >
00:05:51 #25463 [verbose] > ╭─[ 271.32ms - stdout ]────────────────────────────────────────────────────────╮
00:05:51 #25464 [verbose] > │ let rec method0 () : unit = │
00:05:51 #25465 [verbose] > │ let v0 : string = $"%A{45}" │
00:05:51 #25466 [verbose] > │ System.Console.WriteLine v0 │
00:05:51 #25467 [verbose] > │ let v1 : string = $"__expect / actual: %A{45} / expected: %A{45}" │
00:05:51 #25468 [verbose] > │ () │
00:05:51 #25469 [verbose] > │ method0() │
00:05:51 #25470 [verbose] > │ │
00:05:51 #25471 [verbose] > │ 45 │
00:05:51 #25472 [verbose] > │ │
00:05:51 #25473 [verbose] > ╰──────────────────────────────────────────────────────────────────────────────╯
00:05:51 #25474 [verbose] >
00:05:51 #25475 [verbose] > ── markdown ────────────────────────────────────────────────────────────────────
00:05:51 #25476 [verbose] > ╭──────────────────────────────────────────────────────────────────────────────╮
00:05:51 #25477 [verbose] > │ ## to_list │
00:05:51 #25478 [verbose] > ╰──────────────────────────────────────────────────────────────────────────────╯
00:05:51 #25479 [verbose] >
00:05:51 #25480 [verbose] > ── spiral ──────────────────────────────────────────────────────────────────────
00:05:51 #25481 [verbose] > inl to_list seq =
00:05:51 #25482 [verbose] > seq
00:05:51 #25483 [verbose] > |> fold (fun acc x => x :: acc) [[]]
00:05:51 #25484 [verbose] > |> listm.rev
00:05:51 #25485 [verbose] >
00:05:51 #25486 [verbose] > inl to_list_ seq =
00:05:51 #25487 [verbose] > seq
00:05:51 #25488 [verbose] > |> fold_ (fun acc x => x :: acc) [[]]
00:05:51 #25489 [verbose] > |> listm.rev
00:05:51 #25490 [verbose] > Building c:\home\git\polyglot\target\polyglot\spiral_eval\packages\2ea4b4e9e748f52ee9d6f647e108ea6c83261aeb3b9336a3a805033bfa9ce1f8\main.spi
00:05:51 #25491 [verbose] >
00:05:51 #25492 [verbose] > ╭─[ 233.55ms - stdout ]────────────────────────────────────────────────────────╮
00:05:51 #25493 [verbose] > │ () │
00:05:51 #25494 [verbose] > │ │
00:05:51 #25495 [verbose] > │ │
00:05:51 #25496 [verbose] > ╰──────────────────────────────────────────────────────────────────────────────╯
00:05:51 #25497 [verbose] >
00:05:51 #25498 [verbose] > ── spiral ──────────────────────────────────────────────────────────────────────
00:05:51 #25499 [verbose] > // // test
00:05:51 #25500 [verbose] >
00:05:51 #25501 [verbose] > listm.init 10i32 id
00:05:51 #25502 [verbose] > |> from_list
00:05:51 #25503 [verbose] > |> fun f (n : i32) => f n
00:05:51 #25504 [verbose] > |> to_list
00:05:51 #25505 [verbose] > |> _assert_eq (listm.init 10i32 id)
00:05:52 #25506 [verbose] > Building c:\home\git\polyglot\target\polyglot\spiral_eval\packages\58620ffdcd944193ed9b7ce2583e05bfd153d2bcf241a3983ab5287e30b4c6d3\main.spi
00:05:52 #25507 [verbose] >
00:05:52 #25508 [verbose] > ╭─[ 306.41ms - stdout ]────────────────────────────────────────────────────────╮
00:05:52 #25509 [verbose] > │ type UH0 = │
00:05:52 #25510 [verbose] > │ | UH0_0 │
00:05:52 #25511 [verbose] > │ | UH0_1 of int32 * UH0 │
00:05:52 #25512 [verbose] > │ let rec method0 () : unit = │
00:05:52 #25513 [verbose] > │ let v0 : UH0 = UH0_0 │
00:05:52 #25514 [verbose] > │ let v1 : UH0 = UH0_1(9, v0) │
00:05:52 #25515 [verbose] > │ let v2 : UH0 = UH0_1(8, v1) │
00:05:52 #25516 [verbose] > │ let v3 : UH0 = UH0_1(7, v2) │
00:05:52 #25517 [verbose] > │ let v4 : UH0 = UH0_1(6, v3) │
00:05:52 #25518 [verbose] > │ let v5 : UH0 = UH0_1(5, v4) │
00:05:52 #25519 [verbose] > │ let v6 : UH0 = UH0_1(4, v5) │
00:05:52 #25520 [verbose] > │ let v7 : UH0 = UH0_1(3, v6) │
00:05:52 #25521 [verbose] > │ let v8 : UH0 = UH0_1(2, v7) │
00:05:52 #25522 [verbose] > │ let v9 : UH0 = UH0_1(1, v8) │
00:05:52 #25523 [verbose] > │ let v10 : UH0 = UH0_1(0, v9) │
00:05:52 #25524 [verbose] > │ let v11 : string = $"%A{v10}" │
00:05:52 #25525 [verbose] > │ System.Console.WriteLine v11 │
00:05:52 #25526 [verbose] > │ let v100 : UH0 = UH0_0 │
00:05:52 #25527 [verbose] > │ let v101 : UH0 = UH0_1(9, v100) │
00:05:52 #25528 [verbose] > │ let v102 : UH0 = UH0_1(8, v101) │
00:05:52 #25529 [verbose] > │ let v103 : UH0 = UH0_1(7, v102) │
00:05:52 #25530 [verbose] > │ let v104 : UH0 = UH0_1(6, v103) │
00:05:52 #25531 [verbose] > │ let v105 : UH0 = UH0_1(5, v104) │
00:05:52 #25532 [verbose] > │ let v106 : UH0 = UH0_1(4, v105) │
00:05:52 #25533 [verbose] > │ let v107 : UH0 = UH0_1(3, v106) │
00:05:52 #25534 [verbose] > │ let v108 : UH0 = UH0_1(2, v107) │
00:05:52 #25535 [verbose] > │ let v109 : UH0 = UH0_1(1, v108) │
00:05:52 #25536 [verbose] > │ let v110 : UH0 = UH0_1(0, v109) │
00:05:52 #25537 [verbose] > │ let v111 : UH0 = UH0_0 │
00:05:52 #25538 [verbose] > │ let v112 : UH0 = UH0_1(9, v111) │
00:05:52 #25539 [verbose] > │ let v113 : UH0 = UH0_1(8, v112) │
00:05:52 #25540 [verbose] > │ let v114 : UH0 = UH0_1(7, v113) │
00:05:52 #25541 [verbose] > │ let v115 : UH0 = UH0_1(6, v114) │
00:05:52 #25542 [verbose] > │ let v116 : UH0 = UH0_1(5, v115) │
00:05:52 #25543 [verbose] > │ let v117 : UH0 = UH0_1(4, v116) │
00:05:52 #25544 [verbose] > │ let v118 : UH0 = UH0_1(3, v117) │
00:05:52 #25545 [verbose] > │ let v119 : UH0 = UH0_1(2, v118) │
00:05:52 #25546 [verbose] > │ let v120 : UH0 = UH0_1(1, v119) │
00:05:52 #25547 [verbose] > │ let v121 : UH0 = UH0_1(0, v120) │
00:05:52 #25548 [verbose] > │ let v122 : string = $"__expect / actual: %A{v110} / expected: %A{v121}" │
00:05:52 #25549 [verbose] > │ () │
00:05:52 #25550 [verbose] > │ method0() │
00:05:52 #25551 [verbose] > │ │
00:05:52 #25552 [verbose] > │ UH0_1 │
00:05:52 #25553 [verbose] > │ (0, │
00:05:52 #25554 [verbose] > │ UH0_1 │
00:05:52 #25555 [verbose] > │ (1, │
00:05:52 #25556 [verbose] > │ UH0_1 │
00:05:52 #25557 [verbose] > │ (2, │
00:05:52 #25558 [verbose] > │ UH0_1 │
00:05:52 #25559 [verbose] > │ (3, │
00:05:52 #25560 [verbose] > │ UH0_1 │
00:05:52 #25561 [verbose] > │ (4, UH0_1 (5, UH0_1 (6, UH0_1 (7, UH0_1 (8, UH0_1 (9, │
00:05:52 #25562 [verbose] > │ UH0_0)))))))))) │
00:05:52 #25563 [verbose] > │ │
00:05:52 #25564 [verbose] > ╰──────────────────────────────────────────────────────────────────────────────╯
00:05:52 #25565 [verbose] >
00:05:52 #25566 [verbose] > ── markdown ────────────────────────────────────────────────────────────────────
00:05:52 #25567 [verbose] > ╭──────────────────────────────────────────────────────────────────────────────╮
00:05:52 #25568 [verbose] > │ ## from_array │
00:05:52 #25569 [verbose] > ╰──────────────────────────────────────────────────────────────────────────────╯
00:05:52 #25570 [verbose] >
00:05:52 #25571 [verbose] > ── spiral ──────────────────────────────────────────────────────────────────────
00:05:52 #25572 [verbose] > inl from_array forall dim {number; int} el. (array : a dim el) : seq dim el =
00:05:52 #25573 [verbose] > fun n =>
00:05:52 #25574 [verbose] > if n >= length array
00:05:52 #25575 [verbose] > then None
00:05:52 #25576 [verbose] > else index array n |> Some
00:05:52 #25577 [verbose] > Building c:\home\git\polyglot\target\polyglot\spiral_eval\packages\819f1917f5c4d7bcbbf0186421bb4120f996a65ab39d0893f02dfc162f2a74ad\main.spi
00:05:52 #25578 [verbose] >
00:05:52 #25579 [verbose] > ╭─[ 223.05ms - stdout ]────────────────────────────────────────────────────────╮
00:05:52 #25580 [verbose] > │ () │
00:05:52 #25581 [verbose] > │ │
00:05:52 #25582 [verbose] > │ │
00:05:52 #25583 [verbose] > ╰──────────────────────────────────────────────────────────────────────────────╯
00:05:52 #25584 [verbose] >
00:05:52 #25585 [verbose] > ── spiral ──────────────────────────────────────────────────────────────────────
00:05:52 #25586 [verbose] > // // test
00:05:52 #25587 [verbose] >
00:05:52 #25588 [verbose] > a ;[[ 1; 2; 3 ]]
00:05:52 #25589 [verbose] > |> from_array
00:05:52 #25590 [verbose] > |> try_item 1i32
00:05:52 #25591 [verbose] > |> _assert_eq (Some 2i32)
00:05:52 #25592 [verbose] > Building c:\home\git\polyglot\target\polyglot\spiral_eval\packages\612ca4f0b68ad504f6e2762bb012893e3e5d1205bd27e8b5497098b4f6e675c0\main.spi
00:05:53 #25593 [verbose] >
00:05:53 #25594 [verbose] > ╭─[ 551.10ms - stdout ]────────────────────────────────────────────────────────╮
00:05:53 #25595 [verbose] > │ type [<Struct>] US0 = │
00:05:53 #25596 [verbose] > │ | US0_0 of f0_0 : int32 │
00:05:53 #25597 [verbose] > │ | US0_1 │
00:05:53 #25598 [verbose] > │ let rec method1 (v0 : bool) : bool = │
00:05:53 #25599 [verbose] > │ v0 │
00:05:53 #25600 [verbose] > │ and method0 () : unit = │
00:05:53 #25601 [verbose] > │ let v0 : (int32 []) = [|1; 2; 3|] │
00:05:53 #25602 [verbose] > │ let v1 : int32 = v0.Length │
00:05:53 #25603 [verbose] > │ let v2 : bool = 1 >= v1 │
00:05:53 #25604 [verbose] > │ let v6 : US0 = │
00:05:53 #25605 [verbose] > │ if v2 then │
00:05:53 #25606 [verbose] > │ US0_1 │
00:05:53 #25607 [verbose] > │ else │
00:05:53 #25608 [verbose] > │ let v4 : int32 = v0.[int 1] │
00:05:53 #25609 [verbose] > │ US0_0(v4) │
00:05:53 #25610 [verbose] > │ let v7 : string = $"%A{v6}" │
00:05:53 #25611 [verbose] > │ System.Console.WriteLine v7 │
00:05:53 #25612 [verbose] > │ let v11 : bool = │
00:05:53 #25613 [verbose] > │ match v6 with │
00:05:53 #25614 [verbose] > │ | US0_0(v9) -> (* Some *) │
00:05:53 #25615 [verbose] > │ let v10 : bool = v9 = 2 │
00:05:53 #25616 [verbose] > │ v10 │
00:05:53 #25617 [verbose] > │ | _ -> │
00:05:53 #25618 [verbose] > │ false │
00:05:53 #25619 [verbose] > │ let v13 : bool = │
00:05:53 #25620 [verbose] > │ if v11 then │
00:05:53 #25621 [verbose] > │ true │
00:05:53 #25622 [verbose] > │ else │
00:05:53 #25623 [verbose] > │ method1(v11) │
00:05:53 #25624 [verbose] > │ let v14 : US0 = US0_0(2) │
00:05:53 #25625 [verbose] > │ let v15 : string = $"__expect / actual: %A{v6} / expected: %A{v14}" │
00:05:53 #25626 [verbose] > │ let v16 : bool = v13 = false │
00:05:53 #25627 [verbose] > │ if v16 then │
00:05:53 #25628 [verbose] > │ failwith<unit> v15 │
00:05:53 #25629 [verbose] > │ method0() │
00:05:53 #25630 [verbose] > │ │
00:05:53 #25631 [verbose] > │ US0_0 2 │
00:05:53 #25632 [verbose] > │ │
00:05:53 #25633 [verbose] > ╰──────────────────────────────────────────────────────────────────────────────╯
00:05:53 #25634 [verbose] >
00:05:53 #25635 [verbose] > ── markdown ────────────────────────────────────────────────────────────────────
00:05:53 #25636 [verbose] > ╭──────────────────────────────────────────────────────────────────────────────╮
00:05:53 #25637 [verbose] > │ ## to_array │
00:05:53 #25638 [verbose] > ╰──────────────────────────────────────────────────────────────────────────────╯
00:05:53 #25639 [verbose] >
00:05:53 #25640 [verbose] > ── spiral ──────────────────────────────────────────────────────────────────────
00:05:53 #25641 [verbose] > inl to_array seq =
00:05:53 #25642 [verbose] > inl ar = a ;[[]] |> mut
00:05:53 #25643 [verbose] > ((), seq)
00:05:53 #25644 [verbose] > ||> fold fun _ x =>
00:05:53 #25645 [verbose] > ar <- *ar /@ a ;[[x]]
00:05:53 #25646 [verbose] > *ar
00:05:53 #25647 [verbose] >
00:05:53 #25648 [verbose] > inl to_array_ seq =
00:05:53 #25649 [verbose] > inl ar = a ;[[]] |> mut
00:05:53 #25650 [verbose] > ((), seq)
00:05:53 #25651 [verbose] > ||> fold_ fun _ x =>
00:05:53 #25652 [verbose] > ar <- *ar /@ a ;[[x]]
00:05:53 #25653 [verbose] > *ar
00:05:53 #25654 [verbose] > Building c:\home\git\polyglot\target\polyglot\spiral_eval\packages\60634d173d673bfa88c2b680a8c9ce1fe1b6cf92361136a4d1a0df334ff311a0\main.spi
00:05:53 #25655 [verbose] >
00:05:53 #25656 [verbose] > ╭─[ 252.80ms - stdout ]────────────────────────────────────────────────────────╮
00:05:53 #25657 [verbose] > │ () │
00:05:53 #25658 [verbose] > │ │
00:05:53 #25659 [verbose] > │ │
00:05:53 #25660 [verbose] > ╰──────────────────────────────────────────────────────────────────────────────╯
00:05:53 #25661 [verbose] >
00:05:53 #25662 [verbose] > ── spiral ──────────────────────────────────────────────────────────────────────
00:05:53 #25663 [verbose] > // // test
00:05:53 #25664 [verbose] >
00:05:53 #25665 [verbose] > listm.init 10i32 id
00:05:53 #25666 [verbose] > |> from_list
00:05:53 #25667 [verbose] > |> fun (x : i32 -> _) => x
00:05:53 #25668 [verbose] > |> to_array
00:05:53 #25669 [verbose] > |> _assert_eq (a ;[[ 0; 1; 2; 3; 4; 5; 6; 7; 8; 9 ]] : _ i32 _)
00:05:53 #25670 [verbose] > Building c:\home\git\polyglot\target\polyglot\spiral_eval\packages\f9f7963ba7a93269ddd52fb10c1027bc827912ed1db7fe9669f34d0a1a1f80f9\main.spi
00:05:53 #25671 [verbose] >
00:05:53 #25672 [verbose] > ╭─[ 492.66ms - stdout ]────────────────────────────────────────────────────────╮
00:05:53 #25673 [verbose] > │ type Mut0 = {mutable l0 : (int32 [])} │
00:05:53 #25674 [verbose] > │ and Mut1 = {mutable l0 : int32} │
00:05:53 #25675 [verbose] > │ let rec method1 (v0 : int32, v1 : Mut1) : bool = │
00:05:53 #25676 [verbose] > │ let v2 : int32 = v1.l0 │
00:05:53 #25677 [verbose] > │ let v3 : bool = v2 < v0 │
00:05:53 #25678 [verbose] > │ v3 │
00:05:53 #25679 [verbose] > │ and method2 (v0 : (int32 []), v1 : (int32 []), v2 : int32) : bool = │
00:05:53 #25680 [verbose] > │ let v3 : int32 = v0.Length │
00:05:53 #25681 [verbose] > │ let v4 : bool = v2 < v3 │
00:05:53 #25682 [verbose] > │ if v4 then │
00:05:53 #25683 [verbose] > │ let v5 : int32 = v0.[int v2] │
00:05:53 #25684 [verbose] > │ let v6 : int32 = v1.[int v2] │
00:05:53 #25685 [verbose] > │ let v7 : bool = v5 = v6 │
00:05:53 #25686 [verbose] > │ if v7 then │
00:05:53 #25687 [verbose] > │ let v8 : int32 = v2 + 1 │
00:05:53 #25688 [verbose] > │ method2(v0, v1, v8) │
00:05:53 #25689 [verbose] > │ else │
00:05:53 #25690 [verbose] > │ false │
00:05:53 #25691 [verbose] > │ else │
00:05:53 #25692 [verbose] > │ true │
00:05:53 #25693 [verbose] > │ and method3 (v0 : bool) : bool = │
00:05:53 #25694 [verbose] > │ v0 │
00:05:53 #25695 [verbose] > │ and method0 () : unit = │
00:05:53 #25696 [verbose] > │ let v0 : (int32 []) = [||] │
00:05:53 #25697 [verbose] > │ let v1 : Mut0 = {l0 = v0} : Mut0 │
00:05:53 #25698 [verbose] > │ let v2 : (int32 []) = v1.l0 │
00:05:53 #25699 [verbose] > │ let v3 : (int32 []) = [|0|] │
00:05:53 #25700 [verbose] > │ let v4 : int32 = v2.Length │
00:05:53 #25701 [verbose] > │ let v5 : int32 = v3.Length │
00:05:53 #25702 [verbose] > │ let v6 : int32 = v4 + v5 │
00:05:53 #25703 [verbose] > │ let v7 : (int32 []) = Array.zeroCreate<int32> (v6) │
00:05:53 #25704 [verbose] > │ let v8 : Mut1 = {l0 = 0} : Mut1 │
00:05:53 #25705 [verbose] > │ while method1(v6, v8) do │
00:05:53 #25706 [verbose] > │ let v10 : int32 = v8.l0 │
00:05:53 #25707 [verbose] > │ let v11 : bool = v10 < v4 │
00:05:53 #25708 [verbose] > │ let v15 : int32 = │
00:05:53 #25709 [verbose] > │ if v11 then │
00:05:53 #25710 [verbose] > │ let v12 : int32 = v2.[int v10] │
00:05:53 #25711 [verbose] > │ v12 │
00:05:53 #25712 [verbose] > │ else │
00:05:53 #25713 [verbose] > │ let v13 : int32 = v10 - v4 │
00:05:53 #25714 [verbose] > │ let v14 : int32 = v3.[int v13] │
00:05:53 #25715 [verbose] > │ v14 │
00:05:53 #25716 [verbose] > │ v7.[int v10] <- v15 │
00:05:53 #25717 [verbose] > │ let v16 : int32 = v10 + 1 │
00:05:53 #25718 [verbose] > │ v8.l0 <- v16 │
00:05:53 #25719 [verbose] > │ () │
00:05:53 #25720 [verbose] > │ v1.l0 <- v7 │
00:05:53 #25721 [verbose] > │ let v17 : (int32 []) = v1.l0 │
00:05:53 #25722 [verbose] > │ let v18 : (int32 []) = [|1|] │
00:05:53 #25723 [verbose] > │ let v19 : int32 = v17.Length │
00:05:53 #25724 [verbose] > │ let v20 : int32 = v18.Length │
00:05:53 #25725 [verbose] > │ let v21 : int32 = v19 + v20 │
00:05:53 #25726 [verbose] > │ let v22 : (int32 []) = Array.zeroCreate<int32> (v21) │
00:05:53 #25727 [verbose] > │ let v23 : Mut1 = {l0 = 0} : Mut1 │
00:05:53 #25728 [verbose] > │ while method1(v21, v23) do │
00:05:53 #25729 [verbose] > │ let v25 : int32 = v23.l0 │
00:05:53 #25730 [verbose] > │ let v26 : bool = v25 < v19 │
00:05:53 #25731 [verbose] > │ let v30 : int32 = │
00:05:53 #25732 [verbose] > │ if v26 then │
00:05:53 #25733 [verbose] > │ let v27 : int32 = v17.[int v25] │
00:05:53 #25734 [verbose] > │ v27 │
00:05:53 #25735 [verbose] > │ else │
00:05:53 #25736 [verbose] > │ let v28 : int32 = v25 - v19 │
00:05:53 #25737 [verbose] > │ let v29 : int32 = v18.[int v28] │
00:05:53 #25738 [verbose] > │ v29 │
00:05:53 #25739 [verbose] > │ v22.[int v25] <- v30 │
00:05:53 #25740 [verbose] > │ let v31 : int32 = v25 + 1 │
00:05:53 #25741 [verbose] > │ v23.l0 <- v31 │
00:05:53 #25742 [verbose] > │ () │
00:05:53 #25743 [verbose] > │ v1.l0 <- v22 │
00:05:53 #25744 [verbose] > │ let v32 : (int32 []) = v1.l0 │
00:05:53 #25745 [verbose] > │ let v33 : (int32 []) = [|2|] │
00:05:53 #25746 [verbose] > │ let v34 : int32 = v32.Length │
00:05:53 #25747 [verbose] > │ let v35 : int32 = v33.Length │
00:05:53 #25748 [verbose] > │ let v36 : int32 = v34 + v35 │
00:05:53 #25749 [verbose] > │ let v37 : (int32 []) = Array.zeroCreate<int32> (v36) │
00:05:53 #25750 [verbose] > │ let v38 : Mut1 = {l0 = 0} : Mut1 │
00:05:53 #25751 [verbose] > │ while method1(v36, v38) do │
00:05:53 #25752 [verbose] > │ let v40 : int32 = v38.l0 │
00:05:53 #25753 [verbose] > │ let v41 : bool = v40 < v34 │
00:05:53 #25754 [verbose] > │ let v45 : int32 = │
00:05:53 #25755 [verbose] > │ if v41 then │
00:05:53 #25756 [verbose] > │ let v42 : int32 = v32.[int v40] │
00:05:53 #25757 [verbose] > │ v42 │
00:05:53 #25758 [verbose] > │ else │
00:05:53 #25759 [verbose] > │ let v43 : int32 = v40 - v34 │
00:05:53 #25760 [verbose] > │ let v44 : int32 = v33.[int v43] │
00:05:53 #25761 [verbose] > │ v44 │
00:05:53 #25762 [verbose] > │ v37.[int v40] <- v45 │
00:05:53 #25763 [verbose] > │ let v46 : int32 = v40 + 1 │
00:05:53 #25764 [verbose] > │ v38.l0 <- v46 │
00:05:53 #25765 [verbose] > │ () │
00:05:53 #25766 [verbose] > │ v1.l0 <- v37 │
00:05:53 #25767 [verbose] > │ let v47 : (int32 []) = v1.l0 │
00:05:53 #25768 [verbose] > │ let v48 : (int32 []) = [|3|] │
00:05:53 #25769 [verbose] > │ let v49 : int32 = v47.Length │
00:05:53 #25770 [verbose] > │ let v50 : int32 = v48.Length │
00:05:53 #25771 [verbose] > │ let v51 : int32 = v49 + v50 │
00:05:53 #25772 [verbose] > │ let v52 : (int32 []) = Array.zeroCreate<int32> (v51) │
00:05:53 #25773 [verbose] > │ let v53 : Mut1 = {l0 = 0} : Mut1 │
00:05:53 #25774 [verbose] > │ while method1(v51, v53) do │
00:05:53 #25775 [verbose] > │ let v55 : int32 = v53.l0 │
00:05:53 #25776 [verbose] > │ let v56 : bool = v55 < v49 │
00:05:53 #25777 [verbose] > │ let v60 : int32 = │
00:05:53 #25778 [verbose] > │ if v56 then │
00:05:53 #25779 [verbose] > │ let v57 : int32 = v47.[int v55] │
00:05:53 #25780 [verbose] > │ v57 │
00:05:53 #25781 [verbose] > │ else │
00:05:53 #25782 [verbose] > │ let v58 : int32 = v55 - v49 │
00:05:53 #25783 [verbose] > │ let v59 : int32 = v48.[int v58] │
00:05:53 #25784 [verbose] > │ v59 │
00:05:53 #25785 [verbose] > │ v52.[int v55] <- v60 │
00:05:53 #25786 [verbose] > │ let v61 : int32 = v55 + 1 │
00:05:53 #25787 [verbose] > │ v53.l0 <- v61 │
00:05:53 #25788 [verbose] > │ () │
00:05:53 #25789 [verbose] > │ v1.l0 <- v52 │
00:05:53 #25790 [verbose] > │ let v62 : (int32 []) = v1.l0 │
00:05:53 #25791 [verbose] > │ let v63 : (int32 []) = [|4|] │
00:05:53 #25792 [verbose] > │ let v64 : int32 = v62.Length │
00:05:53 #25793 [verbose] > │ let v65 : int32 = v63.Length │
00:05:53 #25794 [verbose] > │ let v66 : int32 = v64 + v65 │
00:05:53 #25795 [verbose] > │ let v67 : (int32 []) = Array.zeroCreate<int32> (v66) │
00:05:53 #25796 [verbose] > │ let v68 : Mut1 = {l0 = 0} : Mut1 │
00:05:53 #25797 [verbose] > │ while method1(v66, v68) do │
00:05:53 #25798 [verbose] > │ let v70 : int32 = v68.l0 │
00:05:53 #25799 [verbose] > │ let v71 : bool = v70 < v64 │
00:05:53 #25800 [verbose] > │ let v75 : int32 = │
00:05:53 #25801 [verbose] > │ if v71 then │
00:05:53 #25802 [verbose] > │ let v72 : int32 = v62.[int v70] │
00:05:53 #25803 [verbose] > │ v72 │
00:05:53 #25804 [verbose] > │ else │
00:05:53 #25805 [verbose] > │ let v73 : int32 = v70 - v64 │
00:05:53 #25806 [verbose] > │ let v74 : int32 = v63.[int v73] │
00:05:53 #25807 [verbose] > │ v74 │
00:05:53 #25808 [verbose] > │ v67.[int v70] <- v75 │
00:05:53 #25809 [verbose] > │ let v76 : int32 = v70 + 1 │
00:05:53 #25810 [verbose] > │ v68.l0 <- v76 │
00:05:53 #25811 [verbose] > │ () │
00:05:53 #25812 [verbose] > │ v1.l0 <- v67 │
00:05:53 #25813 [verbose] > │ let v77 : (int32 []) = v1.l0 │
00:05:53 #25814 [verbose] > │ let v78 : (int32 []) = [|5|] │
00:05:53 #25815 [verbose] > │ let v79 : int32 = v77.Length │
00:05:53 #25816 [verbose] > │ let v80 : int32 = v78.Length │
00:05:53 #25817 [verbose] > │ let v81 : int32 = v79 + v80 │
00:05:53 #25818 [verbose] > │ let v82 : (int32 []) = Array.zeroCreate<int32> (v81) │
00:05:53 #25819 [verbose] > │ let v83 : Mut1 = {l0 = 0} : Mut1 │
00:05:53 #25820 [verbose] > │ while method1(v81, v83) do │
00:05:53 #25821 [verbose] > │ let v85 : int32 = v83.l0 │
00:05:53 #25822 [verbose] > │ let v86 : bool = v85 < v79 │
00:05:53 #25823 [verbose] > │ let v90 : int32 = │
00:05:53 #25824 [verbose] > │ if v86 then │
00:05:53 #25825 [verbose] > │ let v87 : int32 = v77.[int v85] │
00:05:53 #25826 [verbose] > │ v87 │
00:05:53 #25827 [verbose] > │ else │
00:05:53 #25828 [verbose] > │ let v88 : int32 = v85 - v79 │
00:05:53 #25829 [verbose] > │ let v89 : int32 = v78.[int v88] │
00:05:53 #25830 [verbose] > │ v89 │
00:05:53 #25831 [verbose] > │ v82.[int v85] <- v90 │
00:05:53 #25832 [verbose] > │ let v91 : int32 = v85 + 1 │
00:05:53 #25833 [verbose] > │ v83.l0 <- v91 │
00:05:53 #25834 [verbose] > │ () │
00:05:53 #25835 [verbose] > │ v1.l0 <- v82 │
00:05:53 #25836 [verbose] > │ let v92 : (int32 []) = v1.l0 │
00:05:53 #25837 [verbose] > │ let v93 : (int32 []) = [|6|] │
00:05:53 #25838 [verbose] > │ let v94 : int32 = v92.Length │
00:05:53 #25839 [verbose] > │ let v95 : int32 = v93.Length │
00:05:53 #25840 [verbose] > │ let v96 : int32 = v94 + v95 │
00:05:53 #25841 [verbose] > │ let v97 : (int32 []) = Array.zeroCreate<int32> (v96) │
00:05:53 #25842 [verbose] > │ let v98 : Mut1 = {l0 = 0} : Mut1 │
00:05:53 #25843 [verbose] > │ while method1(v96, v98) do │
00:05:53 #25844 [verbose] > │ let v100 : int32 = v98.l0 │
00:05:53 #25845 [verbose] > │ let v101 : bool = v100 < v94 │
00:05:53 #25846 [verbose] > │ let v105 : int32 = │
00:05:53 #25847 [verbose] > │ if v101 then │
00:05:53 #25848 [verbose] > │ let v102 : int32 = v92.[int v100] │
00:05:53 #25849 [verbose] > │ v102 │
00:05:53 #25850 [verbose] > │ else │
00:05:53 #25851 [verbose] > │ let v103 : int32 = v100 - v94 │
00:05:53 #25852 [verbose] > │ let v104 : int32 = v93.[int v103] │
00:05:53 #25853 [verbose] > │ v104 │
00:05:53 #25854 [verbose] > │ v97.[int v100] <- v105 │
00:05:53 #25855 [verbose] > │ let v106 : int32 = v100 + 1 │
00:05:53 #25856 [verbose] > │ v98.l0 <- v106 │
00:05:53 #25857 [verbose] > │ () │
00:05:53 #25858 [verbose] > │ v1.l0 <- v97 │
00:05:53 #25859 [verbose] > │ let v107 : (int32 []) = v1.l0 │
00:05:53 #25860 [verbose] > │ let v108 : (int32 []) = [|7|] │
00:05:53 #25861 [verbose] > │ let v109 : int32 = v107.Length │
00:05:53 #25862 [verbose] > │ let v110 : int32 = v108.Length │
00:05:53 #25863 [verbose] > │ let v111 : int32 = v109 + v110 │
00:05:53 #25864 [verbose] > │ let v112 : (int32 []) = Array.zeroCreate<int32> (v111) │
00:05:53 #25865 [verbose] > │ let v113 : Mut1 = {l0 = 0} : Mut1 │
00:05:53 #25866 [verbose] > │ while method1(v111, v113) do │
00:05:53 #25867 [verbose] > │ let v115 : int32 = v113.l0 │
00:05:53 #25868 [verbose] > │ let v116 : bool = v115 < v109 │
00:05:53 #25869 [verbose] > │ let v120 : int32 = │
00:05:53 #25870 [verbose] > │ if v116 then │
00:05:53 #25871 [verbose] > │ let v117 : int32 = v107.[int v115] │
00:05:53 #25872 [verbose] > │ v117 │
00:05:53 #25873 [verbose] > │ else │
00:05:53 #25874 [verbose] > │ let v118 : int32 = v115 - v109 │
00:05:53 #25875 [verbose] > │ let v119 : int32 = v108.[int v118] │
00:05:53 #25876 [verbose] > │ v119 │
00:05:53 #25877 [verbose] > │ v112.[int v115] <- v120 │
00:05:53 #25878 [verbose] > │ let v121 : int32 = v115 + 1 │
00:05:53 #25879 [verbose] > │ v113.l0 <- v121 │
00:05:53 #25880 [verbose] > │ () │
00:05:53 #25881 [verbose] > │ v1.l0 <- v112 │
00:05:53 #25882 [verbose] > │ let v122 : (int32 []) = v1.l0 │
00:05:53 #25883 [verbose] > │ let v123 : (int32 []) = [|8|] │
00:05:53 #25884 [verbose] > │ let v124 : int32 = v122.Length │
00:05:53 #25885 [verbose] > │ let v125 : int32 = v123.Length │
00:05:53 #25886 [verbose] > │ let v126 : int32 = v124 + v125 │
00:05:53 #25887 [verbose] > │ let v127 : (int32 []) = Array.zeroCreate<int32> (v126) │
00:05:53 #25888 [verbose] > │ let v128 : Mut1 = {l0 = 0} : Mut1 │
00:05:53 #25889 [verbose] > │ while method1(v126, v128) do │
00:05:53 #25890 [verbose] > │ let v130 : int32 = v128.l0 │
00:05:53 #25891 [verbose] > │ let v131 : bool = v130 < v124 │
00:05:53 #25892 [verbose] > │ let v135 : int32 = │
00:05:53 #25893 [verbose] > │ if v131 then │
00:05:53 #25894 [verbose] > │ let v132 : int32 = v122.[int v130] │
00:05:53 #25895 [verbose] > │ v132 │
00:05:53 #25896 [verbose] > │ else │
00:05:53 #25897 [verbose] > │ let v133 : int32 = v130 - v124 │
00:05:53 #25898 [verbose] > │ let v134 : int32 = v123.[int v133] │
00:05:53 #25899 [verbose] > │ v134 │
00:05:53 #25900 [verbose] > │ v127.[int v130] <- v135 │
00:05:53 #25901 [verbose] > │ let v136 : int32 = v130 + 1 │
00:05:53 #25902 [verbose] > │ v128.l0 <- v136 │
00:05:53 #25903 [verbose] > │ () │
00:05:53 #25904 [verbose] > │ v1.l0 <- v127 │
00:05:53 #25905 [verbose] > │ let v137 : (int32 []) = v1.l0 │
00:05:53 #25906 [verbose] > │ let v138 : (int32 []) = [|9|] │
00:05:53 #25907 [verbose] > │ let v139 : int32 = v137.Length │
00:05:53 #25908 [verbose] > │ let v140 : int32 = v138.Length │
00:05:53 #25909 [verbose] > │ let v141 : int32 = v139 + v140 │
00:05:53 #25910 [verbose] > │ let v142 : (int32 []) = Array.zeroCreate<int32> (v141) │
00:05:53 #25911 [verbose] > │ let v143 : Mut1 = {l0 = 0} : Mut1 │
00:05:53 #25912 [verbose] > │ while method1(v141, v143) do │
00:05:53 #25913 [verbose] > │ let v145 : int32 = v143.l0 │
00:05:53 #25914 [verbose] > │ let v146 : bool = v145 < v139 │
00:05:53 #25915 [verbose] > │ let v150 : int32 = │
00:05:53 #25916 [verbose] > │ if v146 then │
00:05:53 #25917 [verbose] > │ let v147 : int32 = v137.[int v145] │
00:05:53 #25918 [verbose] > │ v147 │
00:05:53 #25919 [verbose] > │ else │
00:05:53 #25920 [verbose] > │ let v148 : int32 = v145 - v139 │
00:05:53 #25921 [verbose] > │ let v149 : int32 = v138.[int v148] │
00:05:53 #25922 [verbose] > │ v149 │
00:05:53 #25923 [verbose] > │ v142.[int v145] <- v150 │
00:05:53 #25924 [verbose] > │ let v151 : int32 = v145 + 1 │
00:05:53 #25925 [verbose] > │ v143.l0 <- v151 │
00:05:53 #25926 [verbose] > │ () │
00:05:53 #25927 [verbose] > │ v1.l0 <- v142 │
00:05:53 #25928 [verbose] > │ let v152 : (int32 []) = v1.l0 │
00:05:53 #25929 [verbose] > │ let v153 : (int32 []) = [|0; 1; 2; 3; 4; 5; 6; 7; 8; 9|] │
00:05:53 #25930 [verbose] > │ let v154 : string = $"%A{v152}" │
00:05:53 #25931 [verbose] > │ System.Console.WriteLine v154 │
00:05:53 #25932 [verbose] > │ let v155 : int32 = v152.Length │
00:05:53 #25933 [verbose] > │ let v156 : int32 = v153.Length │
00:05:53 #25934 [verbose] > │ let v157 : bool = v155 = v156 │
00:05:53 #25935 [verbose] > │ let v158 : bool = v157 <> true │
00:05:53 #25936 [verbose] > │ let v161 : bool = │
00:05:53 #25937 [verbose] > │ if v158 then │
00:05:53 #25938 [verbose] > │ false │
00:05:53 #25939 [verbose] > │ else │
00:05:53 #25940 [verbose] > │ let v159 : int32 = 0 │
00:05:53 #25941 [verbose] > │ method2(v152, v153, v159) │
00:05:53 #25942 [verbose] > │ let v163 : bool = │
00:05:53 #25943 [verbose] > │ if v161 then │
00:05:53 #25944 [verbose] > │ true │
00:05:53 #25945 [verbose] > │ else │
00:05:53 #25946 [verbose] > │ method3(v161) │
00:05:53 #25947 [verbose] > │ let v164 : string = $"__expect / actual: %A{v152} / expected: %A{v153}" │
00:05:53 #25948 [verbose] > │ let v165 : bool = v163 = false │
00:05:53 #25949 [verbose] > │ if v165 then │
00:05:53 #25950 [verbose] > │ failwith<unit> v164 │
00:05:53 #25951 [verbose] > │ method0() │
00:05:53 #25952 [verbose] > │ │
00:05:53 #25953 [verbose] > │ [|0; 1; 2; 3; 4; 5; 6; 7; 8; 9|] │
00:05:53 #25954 [verbose] > │ │
00:05:53 #25955 [verbose] > ╰──────────────────────────────────────────────────────────────────────────────╯
00:05:53 #25956 [verbose] >
00:05:53 #25957 [verbose] > ── markdown ────────────────────────────────────────────────────────────────────
00:05:53 #25958 [verbose] > ╭──────────────────────────────────────────────────────────────────────────────╮
00:05:53 #25959 [verbose] > │ ## take_while │
00:05:53 #25960 [verbose] > ╰──────────────────────────────────────────────────────────────────────────────╯
00:05:53 #25961 [verbose] >
00:05:53 #25962 [verbose] > ── spiral ──────────────────────────────────────────────────────────────────────
00:05:53 #25963 [verbose] > inl take_while cond seq =
00:05:53 #25964 [verbose] > inl rec loop acc i =
00:05:53 #25965 [verbose] > match seq i with
00:05:53 #25966 [verbose] > | Some st when cond st i => loop (st :: acc) (i + 1)
00:05:53 #25967 [verbose] > | _ => acc |> listm.rev
00:05:53 #25968 [verbose] > loop [[]] 0
00:05:54 #25969 [verbose] > Building c:\home\git\polyglot\target\polyglot\spiral_eval\packages\303d227dc28b5cd5bd03c92608c6ef1122851999bf91478bc1a093d1abfed1d2\main.spi
00:05:54 #25970 [verbose] >
00:05:54 #25971 [verbose] > ╭─[ 277.29ms - stdout ]────────────────────────────────────────────────────────╮
00:05:54 #25972 [verbose] > │ () │
00:05:54 #25973 [verbose] > │ │
00:05:54 #25974 [verbose] > │ │
00:05:54 #25975 [verbose] > ╰──────────────────────────────────────────────────────────────────────────────╯
00:05:54 #25976 [verbose] >
00:05:54 #25977 [verbose] > ── spiral ──────────────────────────────────────────────────────────────────────
00:05:54 #25978 [verbose] > // // test
00:05:54 #25979 [verbose] >
00:05:54 #25980 [verbose] > listm.init 10i32 id
00:05:54 #25981 [verbose] > |> from_list
00:05:54 #25982 [verbose] > |> take_while (fun n (_ : i32) => n < 5)
00:05:54 #25983 [verbose] > |> listm'.sum
00:05:54 #25984 [verbose] > |> _assert_eq 10
00:05:54 #25985 [verbose] > Building c:\home\git\polyglot\target\polyglot\spiral_eval\packages\9218a150990190f3470d4cba1798dd9f69f428e5875f83a69616ac2e8d8d690f\main.spi
00:05:54 #25986 [verbose] >
00:05:54 #25987 [verbose] > ╭─[ 233.46ms - stdout ]────────────────────────────────────────────────────────╮
00:05:54 #25988 [verbose] > │ let rec method0 () : unit = │
00:05:54 #25989 [verbose] > │ let v0 : string = $"%A{10}" │
00:05:54 #25990 [verbose] > │ System.Console.WriteLine v0 │
00:05:54 #25991 [verbose] > │ let v1 : string = $"__expect / actual: %A{10} / expected: %A{10}" │
00:05:54 #25992 [verbose] > │ () │
00:05:54 #25993 [verbose] > │ method0() │
00:05:54 #25994 [verbose] > │ │
00:05:54 #25995 [verbose] > │ 10 │
00:05:54 #25996 [verbose] > │ │
00:05:54 #25997 [verbose] > ╰──────────────────────────────────────────────────────────────────────────────╯
00:05:54 #25998 [verbose] >
00:05:54 #25999 [verbose] > ── spiral ──────────────────────────────────────────────────────────────────────
00:05:54 #26000 [verbose] > // // test
00:05:54 #26001 [verbose] >
00:05:54 #26002 [verbose] > stream.new_finite_stream print_and_return 10i32
00:05:54 #26003 [verbose] > |> flip stream.try_item
00:05:54 #26004 [verbose] > |> take_while (fun n (_ : i32) => n < 5)
00:05:54 #26005 [verbose] > |> listm'.sum
00:05:54 #26006 [verbose] > |> _assert_eq 10
00:05:54 #26007 [verbose] > Building c:\home\git\polyglot\target\polyglot\spiral_eval\packages\106ef95cdf7946811acaa8bbcbb4a3d54ccf95f7e1a8e27fde5b1a433648d7d6\main.spi
00:05:54 #26008 [verbose] >
00:05:54 #26009 [verbose] > ╭─[ 317.59ms - stdout ]────────────────────────────────────────────────────────╮
00:05:54 #26010 [verbose] > │ let rec method0 () : unit = │
00:05:54 #26011 [verbose] > │ printfn $"print_and_return / x: {0}" │
00:05:54 #26012 [verbose] > │ printfn $"print_and_return / x: {1}" │
00:05:54 #26013 [verbose] > │ printfn $"print_and_return / x: {1}" │
00:05:54 #26014 [verbose] > │ printfn $"print_and_return / x: {2}" │
00:05:54 #26015 [verbose] > │ printfn $"print_and_return / x: {1}" │
00:05:54 #26016 [verbose] > │ printfn $"print_and_return / x: {2}" │
00:05:54 #26017 [verbose] > │ printfn $"print_and_return / x: {3}" │
00:05:54 #26018 [verbose] > │ printfn $"print_and_return / x: {1}" │
00:05:54 #26019 [verbose] > │ printfn $"print_and_return / x: {2}" │
00:05:54 #26020 [verbose] > │ printfn $"print_and_return / x: {3}" │
00:05:54 #26021 [verbose] > │ printfn $"print_and_return / x: {4}" │
00:05:54 #26022 [verbose] > │ printfn $"print_and_return / x: {1}" │
00:05:54 #26023 [verbose] > │ printfn $"print_and_return / x: {2}" │
00:05:54 #26024 [verbose] > │ printfn $"print_and_return / x: {3}" │
00:05:54 #26025 [verbose] > │ printfn $"print_and_return / x: {4}" │
00:05:54 #26026 [verbose] > │ printfn $"print_and_return / x: {5}" │
00:05:54 #26027 [verbose] > │ let v0 : string = $"%A{10}" │
00:05:54 #26028 [verbose] > │ System.Console.WriteLine v0 │
00:05:54 #26029 [verbose] > │ let v1 : string = $"__expect / actual: %A{10} / expected: %A{10}" │
00:05:54 #26030 [verbose] > │ () │
00:05:54 #26031 [verbose] > │ method0() │
00:05:54 #26032 [verbose] > │ │
00:05:54 #26033 [verbose] > │ print_and_return / x: 0 │
00:05:54 #26034 [verbose] > │ print_and_return / x: 1 │
00:05:54 #26035 [verbose] > │ print_and_return / x: 1 │
00:05:54 #26036 [verbose] > │ print_and_return / x: 2 │
00:05:54 #26037 [verbose] > │ print_and_return / x: 1 │
00:05:54 #26038 [verbose] > │ print_and_return / x: 2 │
00:05:54 #26039 [verbose] > │ print_and_return / x: 3 │
00:05:54 #26040 [verbose] > │ print_and_return / x: 1 │
00:05:54 #26041 [verbose] > │ print_and_return / x: 2 │
00:05:54 #26042 [verbose] > │ print_and_return / x: 3 │
00:05:54 #26043 [verbose] > │ print_and_return / x: 4 │
00:05:54 #26044 [verbose] > │ print_and_return / x: 1 │
00:05:54 #26045 [verbose] > │ print_and_return / x: 2 │
00:05:54 #26046 [verbose] > │ print_and_return / x: 3 │
00:05:54 #26047 [verbose] > │ print_and_return / x: 4 │
00:05:54 #26048 [verbose] > │ print_and_return / x: 5 │
00:05:54 #26049 [verbose] > │ 10 │
00:05:54 #26050 [verbose] > │ │
00:05:54 #26051 [verbose] > ╰──────────────────────────────────────────────────────────────────────────────╯
00:05:54 #26052 [verbose] >
00:05:54 #26053 [verbose] > ── markdown ────────────────────────────────────────────────────────────────────
00:05:54 #26054 [verbose] > ╭──────────────────────────────────────────────────────────────────────────────╮
00:05:54 #26055 [verbose] > │ ## take_while_ │
00:05:54 #26056 [verbose] > ╰──────────────────────────────────────────────────────────────────────────────╯
00:05:54 #26057 [verbose] >
00:05:54 #26058 [verbose] > ── spiral ──────────────────────────────────────────────────────────────────────
00:05:54 #26059 [verbose] > inl take_while_ cond seq =
00:05:54 #26060 [verbose] > let rec loop acc i =
00:05:54 #26061 [verbose] > match seq i with
00:05:54 #26062 [verbose] > | Some st when cond st i => loop (st :: acc) (i + 1)
00:05:54 #26063 [verbose] > | _ => acc |> listm.rev
00:05:54 #26064 [verbose] > loop [[]] 0
00:05:54 #26065 [verbose] > Building c:\home\git\polyglot\target\polyglot\spiral_eval\packages\62267144ac31537f5a9db4521a01f908a0ad4a0050223de16a8800cdaff6696a\main.spi
00:05:55 #26066 [verbose] >
00:05:55 #26067 [verbose] > ╭─[ 206.86ms - stdout ]────────────────────────────────────────────────────────╮
00:05:55 #26068 [verbose] > │ () │
00:05:55 #26069 [verbose] > │ │
00:05:55 #26070 [verbose] > │ │
00:05:55 #26071 [verbose] > ╰──────────────────────────────────────────────────────────────────────────────╯
00:05:55 #26072 [verbose] >
00:05:55 #26073 [verbose] > ── spiral ──────────────────────────────────────────────────────────────────────
00:05:55 #26074 [verbose] > // // test
00:05:55 #26075 [verbose] >
00:05:55 #26076 [verbose] > stream.new_infinite_stream_ print_and_return
00:05:55 #26077 [verbose] > |> flip stream.try_item
00:05:55 #26078 [verbose] > |> take_while_ (fun n (_ : i32) => n < 5i32)
00:05:55 #26079 [verbose] > |> listm'.sum
00:05:55 #26080 [verbose] > |> _assert_eq 10
00:05:55 #26081 [verbose] > Building c:\home\git\polyglot\target\polyglot\spiral_eval\packages\2be4085890d17510c7df35a6661d05c9dc8d6360e1022b189f325b0719e3e5ed\main.spi
00:05:55 #26082 [verbose] >
00:05:55 #26083 [verbose] > ╭─[ 353.90ms - stdout ]────────────────────────────────────────────────────────╮
00:05:55 #26084 [verbose] > │ type UH0 = │
00:05:55 #26085 [verbose] > │ | UH0_0 of int32 * (unit -> UH0) │
00:05:55 #26086 [verbose] > │ | UH0_1 │
00:05:55 #26087 [verbose] > │ and UH1 = │
00:05:55 #26088 [verbose] > │ | UH1_0 │
00:05:55 #26089 [verbose] > │ | UH1_1 of int32 * UH1 │
00:05:55 #26090 [verbose] > │ and [<Struct>] US0 = │
00:05:55 #26091 [verbose] > │ | US0_0 of f0_0 : int32 │
00:05:55 #26092 [verbose] > │ | US0_1 │
00:05:55 #26093 [verbose] > │ let rec closure0 (v0 : int32) () : UH0 = │
00:05:55 #26094 [verbose] > │ let v1 : int32 = v0 + 1 │
00:05:55 #26095 [verbose] > │ method1(v1) │
00:05:55 #26096 [verbose] > │ and method1 (v0 : int32) : UH0 = │
00:05:55 #26097 [verbose] > │ printfn $"print_and_return / x: {v0}" │
00:05:55 #26098 [verbose] > │ let v1 : (unit -> UH0) = closure0(v0) │
00:05:55 #26099 [verbose] > │ UH0_0(v0, v1) │
00:05:55 #26100 [verbose] > │ and method3 (v0 : int32, v1 : UH0) : US0 = │
00:05:55 #26101 [verbose] > │ match v1 with │
00:05:55 #26102 [verbose] > │ | UH0_0(v2, v3) -> (* StreamCons *) │
00:05:55 #26103 [verbose] > │ let v4 : bool = v0 <= 0 │
00:05:55 #26104 [verbose] > │ if v4 then │
00:05:55 #26105 [verbose] > │ US0_0(v2) │
00:05:55 #26106 [verbose] > │ else │
00:05:55 #26107 [verbose] > │ let v6 : int32 = v0 - 1 │
00:05:55 #26108 [verbose] > │ let v7 : UH0 = v3 () │
00:05:55 #26109 [verbose] > │ method3(v6, v7) │
00:05:55 #26110 [verbose] > │ | UH0_1 -> (* StreamNil *) │
00:05:55 #26111 [verbose] > │ US0_1 │
00:05:55 #26112 [verbose] > │ and method4 (v0 : UH1, v1 : UH1) : UH1 = │
00:05:55 #26113 [verbose] > │ match v0 with │
00:05:55 #26114 [verbose] > │ | UH1_1(v2, v3) -> (* Cons *) │
00:05:55 #26115 [verbose] > │ let v4 : UH1 = UH1_1(v2, v1) │
00:05:55 #26116 [verbose] > │ method4(v3, v4) │
00:05:55 #26117 [verbose] > │ | UH1_0 -> (* Nil *) │
00:05:55 #26118 [verbose] > │ v1 │
00:05:55 #26119 [verbose] > │ and method2 (v0 : UH0, v1 : UH1, v2 : int32) : UH1 = │
00:05:55 #26120 [verbose] > │ let v3 : US0 = method3(v2, v0) │
00:05:55 #26121 [verbose] > │ match v3 with │
00:05:55 #26122 [verbose] > │ | US0_0(v4) -> (* Some *) │
00:05:55 #26123 [verbose] > │ let v5 : bool = v4 < 5 │
00:05:55 #26124 [verbose] > │ if v5 then │
00:05:55 #26125 [verbose] > │ let v6 : UH1 = UH1_1(v4, v1) │
00:05:55 #26126 [verbose] > │ let v7 : int32 = v2 + 1 │
00:05:55 #26127 [verbose] > │ method2(v0, v6, v7) │
00:05:55 #26128 [verbose] > │ else │
00:05:55 #26129 [verbose] > │ let v9 : UH1 = UH1_0 │
00:05:55 #26130 [verbose] > │ method4(v1, v9) │
00:05:55 #26131 [verbose] > │ | _ -> │
00:05:55 #26132 [verbose] > │ let v12 : UH1 = UH1_0 │
00:05:55 #26133 [verbose] > │ method4(v1, v12) │
00:05:55 #26134 [verbose] > │ and method5 (v0 : UH1, v1 : int32) : int32 = │
00:05:55 #26135 [verbose] > │ match v0 with │
00:05:55 #26136 [verbose] > │ | UH1_1(v2, v3) -> (* Cons *) │
00:05:55 #26137 [verbose] > │ let v4 : int32 = v1 + v2 │
00:05:55 #26138 [verbose] > │ method5(v3, v4) │
00:05:55 #26139 [verbose] > │ | UH1_0 -> (* Nil *) │
00:05:55 #26140 [verbose] > │ v1 │
00:05:55 #26141 [verbose] > │ and method6 (v0 : bool) : bool = │
00:05:55 #26142 [verbose] > │ v0 │
00:05:55 #26143 [verbose] > │ and method0 () : unit = │
00:05:55 #26144 [verbose] > │ let v0 : int32 = 0 │
00:05:55 #26145 [verbose] > │ let v1 : UH0 = method1(v0) │
00:05:55 #26146 [verbose] > │ let v2 : UH1 = UH1_0 │
00:05:55 #26147 [verbose] > │ let v3 : int32 = 0 │
00:05:55 #26148 [verbose] > │ let v4 : UH1 = method2(v1, v2, v3) │
00:05:55 #26149 [verbose] > │ let v5 : int32 = 0 │
00:05:55 #26150 [verbose] > │ let v6 : int32 = method5(v4, v5) │
00:05:55 #26151 [verbose] > │ let v7 : string = $"%A{v6}" │
00:05:55 #26152 [verbose] > │ System.Console.WriteLine v7 │
00:05:55 #26153 [verbose] > │ let v8 : bool = v6 = 10 │
00:05:55 #26154 [verbose] > │ let v10 : bool = │
00:05:55 #26155 [verbose] > │ if v8 then │
00:05:55 #26156 [verbose] > │ true │
00:05:55 #26157 [verbose] > │ else │
00:05:55 #26158 [verbose] > │ method6(v8) │
00:05:55 #26159 [verbose] > │ let v11 : string = $"__expect / actual: %A{v6} / expected: %A{10}" │
00:05:55 #26160 [verbose] > │ let v12 : bool = v10 = false │
00:05:55 #26161 [verbose] > │ if v12 then │
00:05:55 #26162 [verbose] > │ failwith<unit> v11 │
00:05:55 #26163 [verbose] > │ method0() │
00:05:55 #26164 [verbose] > │ │
00:05:55 #26165 [verbose] > │ print_and_return / x: 0 │
00:05:55 #26166 [verbose] > │ print_and_return / x: 1 │
00:05:55 #26167 [verbose] > │ print_and_return / x: 1 │
00:05:55 #26168 [verbose] > │ print_and_return / x: 2 │
00:05:55 #26169 [verbose] > │ print_and_return / x: 1 │
00:05:55 #26170 [verbose] > │ print_and_return / x: 2 │
00:05:55 #26171 [verbose] > │ print_and_return / x: 3 │
00:05:55 #26172 [verbose] > │ print_and_return / x: 1 │
00:05:55 #26173 [verbose] > │ print_and_return / x: 2 │
00:05:55 #26174 [verbose] > │ print_and_return / x: 3 │
00:05:55 #26175 [verbose] > │ print_and_return / x: 4 │
00:05:55 #26176 [verbose] > │ print_and_return / x: 1 │
00:05:55 #26177 [verbose] > │ print_and_return / x: 2 │
00:05:55 #26178 [verbose] > │ print_and_return / x: 3 │
00:05:55 #26179 [verbose] > │ print_and_return / x: 4 │
00:05:55 #26180 [verbose] > │ print_and_return / x: 5 │
00:05:55 #26181 [verbose] > │ 10 │
00:05:55 #26182 [verbose] > │ │
00:05:55 #26183 [verbose] > ╰──────────────────────────────────────────────────────────────────────────────╯
00:05:55 #26184 [verbose] >
00:05:55 #26185 [verbose] > ── spiral ──────────────────────────────────────────────────────────────────────
00:05:55 #26186 [verbose] > // // test
00:05:55 #26187 [verbose] >
00:05:55 #26188 [verbose] > stream.new_infinite_stream_ print_and_return
00:05:55 #26189 [verbose] > |> stream.memoize
00:05:55 #26190 [verbose] > |> fun list =>
00:05:55 #26191 [verbose] > inl list = list ()
00:05:55 #26192 [verbose] > fun n =>
00:05:55 #26193 [verbose] > list |> stream.try_item n
00:05:55 #26194 [verbose] > |> take_while_ (fun n (_ : i32) => n < 5i32)
00:05:55 #26195 [verbose] > |> listm'.sum
00:05:55 #26196 [verbose] > |> _assert_eq 10
00:05:55 #26197 [verbose] > Building c:\home\git\polyglot\target\polyglot\spiral_eval\packages\803b0f2b25b388611d41acb6fbae56ecde9397b1e858a53e3d2168574d684ae6\main.spi
00:05:55 #26198 [verbose] >
00:05:55 #26199 [verbose] > ╭─[ 396.17ms - stdout ]────────────────────────────────────────────────────────╮
00:05:55 #26200 [verbose] > │ type UH0 = │
00:05:55 #26201 [verbose] > │ | UH0_0 of int32 * (unit -> UH0) │
00:05:55 #26202 [verbose] > │ | UH0_1 │
00:05:55 #26203 [verbose] > │ and [<Struct>] US0 = │
00:05:55 #26204 [verbose] > │ | US0_0 of f0_0 : (unit -> UH0) │
00:05:55 #26205 [verbose] > │ | US0_1 of f1_0 : UH0 │
00:05:55 #26206 [verbose] > │ and Mut0 = {mutable l0 : US0} │
00:05:55 #26207 [verbose] > │ and UH1 = │
00:05:55 #26208 [verbose] > │ | UH1_0 │
00:05:55 #26209 [verbose] > │ | UH1_1 of int32 * UH1 │
00:05:55 #26210 [verbose] > │ and [<Struct>] US1 = │
00:05:55 #26211 [verbose] > │ | US1_0 of f0_0 : int32 │
00:05:55 #26212 [verbose] > │ | US1_1 │
00:05:55 #26213 [verbose] > │ let rec closure0 (v0 : int32) () : UH0 = │
00:05:55 #26214 [verbose] > │ let v1 : int32 = v0 + 1 │
00:05:55 #26215 [verbose] > │ method1(v1) │
00:05:55 #26216 [verbose] > │ and method1 (v0 : int32) : UH0 = │
00:05:55 #26217 [verbose] > │ printfn $"print_and_return / x: {v0}" │
00:05:55 #26218 [verbose] > │ let v1 : (unit -> UH0) = closure0(v0) │
00:05:55 #26219 [verbose] > │ UH0_0(v0, v1) │
00:05:55 #26220 [verbose] > │ and closure1 (v0 : UH0) () : UH0 = │
00:05:55 #26221 [verbose] > │ v0 │
00:05:55 #26222 [verbose] > │ and closure2 (v0 : UH0, v1 : Mut0) () : UH0 = │
00:05:55 #26223 [verbose] > │ let v2 : US0 = v1.l0 │
00:05:55 #26224 [verbose] > │ match v2 with │
00:05:55 #26225 [verbose] > │ | US0_1(v3) -> (* Computed *) │
00:05:55 #26226 [verbose] > │ v3 │
00:05:55 #26227 [verbose] > │ | US0_0(v4) -> (* NotComputed *) │
00:05:55 #26228 [verbose] > │ let v5 : UH0 = v4 () │
00:05:55 #26229 [verbose] > │ let v12 : UH0 = │
00:05:55 #26230 [verbose] > │ match v5 with │
00:05:55 #26231 [verbose] > │ | UH0_0(v7, v8) -> (* StreamCons *) │
00:05:55 #26232 [verbose] > │ let v9 : (unit -> UH0) = method2(v0, v8) │
00:05:55 #26233 [verbose] > │ UH0_0(v7, v9) │
00:05:55 #26234 [verbose] > │ | UH0_1 -> (* StreamNil *) │
00:05:55 #26235 [verbose] > │ UH0_1 │
00:05:55 #26236 [verbose] > │ let v13 : US0 = US0_1(v12) │
00:05:55 #26237 [verbose] > │ v1.l0 <- v13 │
00:05:55 #26238 [verbose] > │ v12 │
00:05:55 #26239 [verbose] > │ and method2 (v0 : UH0, v1 : (unit -> UH0)) : (unit -> UH0) = │
00:05:55 #26240 [verbose] > │ let v2 : US0 = US0_0(v1) │
00:05:55 #26241 [verbose] > │ let v3 : Mut0 = {l0 = v2} : Mut0 │
00:05:55 #26242 [verbose] > │ closure2(v0, v3) │
00:05:55 #26243 [verbose] > │ and method4 (v0 : int32, v1 : UH0) : US1 = │
00:05:55 #26244 [verbose] > │ match v1 with │
00:05:55 #26245 [verbose] > │ | UH0_0(v2, v3) -> (* StreamCons *) │
00:05:55 #26246 [verbose] > │ let v4 : bool = v0 <= 0 │
00:05:55 #26247 [verbose] > │ if v4 then │
00:05:55 #26248 [verbose] > │ US1_0(v2) │
00:05:55 #26249 [verbose] > │ else │
00:05:55 #26250 [verbose] > │ let v6 : int32 = v0 - 1 │
00:05:55 #26251 [verbose] > │ let v7 : UH0 = v3 () │
00:05:55 #26252 [verbose] > │ method4(v6, v7) │
00:05:55 #26253 [verbose] > │ | UH0_1 -> (* StreamNil *) │
00:05:55 #26254 [verbose] > │ US1_1 │
00:05:55 #26255 [verbose] > │ and method5 (v0 : UH1, v1 : UH1) : UH1 = │
00:05:55 #26256 [verbose] > │ match v0 with │
00:05:55 #26257 [verbose] > │ | UH1_1(v2, v3) -> (* Cons *) │
00:05:55 #26258 [verbose] > │ let v4 : UH1 = UH1_1(v2, v1) │
00:05:55 #26259 [verbose] > │ method5(v3, v4) │
00:05:55 #26260 [verbose] > │ | UH1_0 -> (* Nil *) │
00:05:55 #26261 [verbose] > │ v1 │
00:05:55 #26262 [verbose] > │ and method3 (v0 : UH0, v1 : UH1, v2 : int32) : UH1 = │
00:05:55 #26263 [verbose] > │ let v3 : US1 = method4(v2, v0) │
00:05:55 #26264 [verbose] > │ match v3 with │
00:05:55 #26265 [verbose] > │ | US1_0(v4) -> (* Some *) │
00:05:55 #26266 [verbose] > │ let v5 : bool = v4 < 5 │
00:05:55 #26267 [verbose] > │ if v5 then │
00:05:55 #26268 [verbose] > │ let v6 : UH1 = UH1_1(v4, v1) │
00:05:55 #26269 [verbose] > │ let v7 : int32 = v2 + 1 │
00:05:55 #26270 [verbose] > │ method3(v0, v6, v7) │
00:05:55 #26271 [verbose] > │ else │
00:05:55 #26272 [verbose] > │ let v9 : UH1 = UH1_0 │
00:05:55 #26273 [verbose] > │ method5(v1, v9) │
00:05:55 #26274 [verbose] > │ | _ -> │
00:05:55 #26275 [verbose] > │ let v12 : UH1 = UH1_0 │
00:05:55 #26276 [verbose] > │ method5(v1, v12) │
00:05:55 #26277 [verbose] > │ and method6 (v0 : UH1, v1 : int32) : int32 = │
00:05:55 #26278 [verbose] > │ match v0 with │
00:05:55 #26279 [verbose] > │ | UH1_1(v2, v3) -> (* Cons *) │
00:05:55 #26280 [verbose] > │ let v4 : int32 = v1 + v2 │
00:05:55 #26281 [verbose] > │ method6(v3, v4) │
00:05:55 #26282 [verbose] > │ | UH1_0 -> (* Nil *) │
00:05:55 #26283 [verbose] > │ v1 │
00:05:55 #26284 [verbose] > │ and method7 (v0 : bool) : bool = │
00:05:55 #26285 [verbose] > │ v0 │
00:05:55 #26286 [verbose] > │ and method0 () : unit = │
00:05:55 #26287 [verbose] > │ let v0 : int32 = 0 │
00:05:55 #26288 [verbose] > │ let v1 : UH0 = method1(v0) │
00:05:55 #26289 [verbose] > │ let v2 : (unit -> UH0) = closure1(v1) │
00:05:55 #26290 [verbose] > │ let v3 : (unit -> UH0) = method2(v1, v2) │
00:05:55 #26291 [verbose] > │ let v4 : UH0 = v3 () │
00:05:55 #26292 [verbose] > │ let v5 : UH1 = UH1_0 │
00:05:55 #26293 [verbose] > │ let v6 : int32 = 0 │
00:05:55 #26294 [verbose] > │ let v7 : UH1 = method3(v4, v5, v6) │
00:05:55 #26295 [verbose] > │ let v8 : int32 = 0 │
00:05:55 #26296 [verbose] > │ let v9 : int32 = method6(v7, v8) │
00:05:55 #26297 [verbose] > │ let v10 : string = $"%A{v9}" │
00:05:55 #26298 [verbose] > │ System.Console.WriteLine v10 │
00:05:55 #26299 [verbose] > │ let v11 : bool = v9 = 10 │
00:05:55 #26300 [verbose] > │ let v13 : bool = │
00:05:55 #26301 [verbose] > │ if v11 then │
00:05:55 #26302 [verbose] > │ true │
00:05:55 #26303 [verbose] > │ else │
00:05:55 #26304 [verbose] > │ method7(v11) │
00:05:55 #26305 [verbose] > │ let v14 : string = $"__expect / actual: %A{v9} / expected: %A{10}" │
00:05:55 #26306 [verbose] > │ let v15 : bool = v13 = false │
00:05:55 #26307 [verbose] > │ if v15 then │
00:05:55 #26308 [verbose] > │ failwith<unit> v14 │
00:05:55 #26309 [verbose] > │ method0() │
00:05:55 #26310 [verbose] > │ │
00:05:55 #26311 [verbose] > │ print_and_return / x: 0 │
00:05:55 #26312 [verbose] > │ print_and_return / x: 1 │
00:05:55 #26313 [verbose] > │ print_and_return / x: 2 │
00:05:55 #26314 [verbose] > │ print_and_return / x: 3 │
00:05:55 #26315 [verbose] > │ print_and_return / x: 4 │
00:05:55 #26316 [verbose] > │ print_and_return / x: 5 │
00:05:55 #26317 [verbose] > │ 10 │
00:05:55 #26318 [verbose] > │ │
00:05:55 #26319 [verbose] > ╰──────────────────────────────────────────────────────────────────────────────╯
00:05:55 #26320 [verbose] >
00:05:55 #26321 [verbose] > ── spiral ──────────────────────────────────────────────────────────────────────
00:05:55 #26322 [verbose] > // // test
00:05:55 #26323 [verbose] >
00:05:55 #26324 [verbose] > stream.new_finite_stream print_and_return 10i32
00:05:55 #26325 [verbose] > |> stream.memoize
00:05:55 #26326 [verbose] > |> fun list =>
00:05:55 #26327 [verbose] > inl list = list ()
00:05:55 #26328 [verbose] > fun n =>
00:05:55 #26329 [verbose] > list |> stream.try_item n
00:05:55 #26330 [verbose] > |> take_while_ (fun n (_ : i32) => n < 5)
00:05:55 #26331 [verbose] > |> listm'.sum
00:05:55 #26332 [verbose] > |> _assert_eq 10
00:05:56 #26333 [verbose] > Building c:\home\git\polyglot\target\polyglot\spiral_eval\packages\d6111150be682f088eca11c51c6a99d6b20f1a227c68b88be344157e1deeb7cd\main.spi
00:05:56 #26334 [verbose] >
00:05:56 #26335 [verbose] > ╭─[ 390.30ms - stdout ]────────────────────────────────────────────────────────╮
00:05:56 #26336 [verbose] > │ type UH0 = │
00:05:56 #26337 [verbose] > │ | UH0_0 of int32 * (unit -> UH0) │
00:05:56 #26338 [verbose] > │ | UH0_1 │
00:05:56 #26339 [verbose] > │ and [<Struct>] US0 = │
00:05:56 #26340 [verbose] > │ | US0_0 of f0_0 : (unit -> UH0) │
00:05:56 #26341 [verbose] > │ | US0_1 of f1_0 : UH0 │
00:05:56 #26342 [verbose] > │ and Mut0 = {mutable l0 : US0} │
00:05:56 #26343 [verbose] > │ and UH1 = │
00:05:56 #26344 [verbose] > │ | UH1_0 │
00:05:56 #26345 [verbose] > │ | UH1_1 of int32 * UH1 │
00:05:56 #26346 [verbose] > │ and [<Struct>] US1 = │
00:05:56 #26347 [verbose] > │ | US1_0 of f0_0 : int32 │
00:05:56 #26348 [verbose] > │ | US1_1 │
00:05:56 #26349 [verbose] > │ let rec closure10 () () : UH0 = │
00:05:56 #26350 [verbose] > │ UH0_1 │
00:05:56 #26351 [verbose] > │ and closure9 () () : UH0 = │
00:05:56 #26352 [verbose] > │ printfn $"print_and_return / x: {9}" │
00:05:56 #26353 [verbose] > │ let v0 : (unit -> UH0) = closure10() │
00:05:56 #26354 [verbose] > │ UH0_0(9, v0) │
00:05:56 #26355 [verbose] > │ and closure8 () () : UH0 = │
00:05:56 #26356 [verbose] > │ printfn $"print_and_return / x: {8}" │
00:05:56 #26357 [verbose] > │ let v0 : (unit -> UH0) = closure9() │
00:05:56 #26358 [verbose] > │ UH0_0(8, v0) │
00:05:56 #26359 [verbose] > │ and closure7 () () : UH0 = │
00:05:56 #26360 [verbose] > │ printfn $"print_and_return / x: {7}" │
00:05:56 #26361 [verbose] > │ let v0 : (unit -> UH0) = closure8() │
00:05:56 #26362 [verbose] > │ UH0_0(7, v0) │
00:05:56 #26363 [verbose] > │ and closure6 () () : UH0 = │
00:05:56 #26364 [verbose] > │ printfn $"print_and_return / x: {6}" │
00:05:56 #26365 [verbose] > │ let v0 : (unit -> UH0) = closure7() │
00:05:56 #26366 [verbose] > │ UH0_0(6, v0) │
00:05:56 #26367 [verbose] > │ and closure5 () () : UH0 = │
00:05:56 #26368 [verbose] > │ printfn $"print_and_return / x: {5}" │
00:05:56 #26369 [verbose] > │ let v0 : (unit -> UH0) = closure6() │
00:05:56 #26370 [verbose] > │ UH0_0(5, v0) │
00:05:56 #26371 [verbose] > │ and closure4 () () : UH0 = │
00:05:56 #26372 [verbose] > │ printfn $"print_and_return / x: {4}" │
00:05:56 #26373 [verbose] > │ let v0 : (unit -> UH0) = closure5() │
00:05:56 #26374 [verbose] > │ UH0_0(4, v0) │
00:05:56 #26375 [verbose] > │ and closure3 () () : UH0 = │
00:05:56 #26376 [verbose] > │ printfn $"print_and_return / x: {3}" │
00:05:56 #26377 [verbose] > │ let v0 : (unit -> UH0) = closure4() │
00:05:56 #26378 [verbose] > │ UH0_0(3, v0) │
00:05:56 #26379 [verbose] > │ and closure2 () () : UH0 = │
00:05:56 #26380 [verbose] > │ printfn $"print_and_return / x: {2}" │
00:05:56 #26381 [verbose] > │ let v0 : (unit -> UH0) = closure3() │
00:05:56 #26382 [verbose] > │ UH0_0(2, v0) │
00:05:56 #26383 [verbose] > │ and closure1 () () : UH0 = │
00:05:56 #26384 [verbose] > │ printfn $"print_and_return / x: {1}" │
00:05:56 #26385 [verbose] > │ let v0 : (unit -> UH0) = closure2() │
00:05:56 #26386 [verbose] > │ UH0_0(1, v0) │
00:05:56 #26387 [verbose] > │ and closure0 () () : UH0 = │
00:05:56 #26388 [verbose] > │ let v0 : (unit -> UH0) = closure1() │
00:05:56 #26389 [verbose] > │ UH0_0(0, v0) │
00:05:56 #26390 [verbose] > │ and closure11 (v0 : Mut0) () : UH0 = │
00:05:56 #26391 [verbose] > │ let v1 : US0 = v0.l0 │
00:05:56 #26392 [verbose] > │ match v1 with │
00:05:56 #26393 [verbose] > │ | US0_1(v2) -> (* Computed *) │
00:05:56 #26394 [verbose] > │ v2 │
00:05:56 #26395 [verbose] > │ | US0_0(v3) -> (* NotComputed *) │
00:05:56 #26396 [verbose] > │ let v4 : UH0 = v3 () │
00:05:56 #26397 [verbose] > │ let v13 : UH0 = │
00:05:56 #26398 [verbose] > │ match v4 with │
00:05:56 #26399 [verbose] > │ | UH0_0(v6, v7) -> (* StreamCons *) │
00:05:56 #26400 [verbose] > │ let v8 : US0 = US0_0(v7) │
00:05:56 #26401 [verbose] > │ let v9 : Mut0 = {l0 = v8} : Mut0 │
00:05:56 #26402 [verbose] > │ let v10 : (unit -> UH0) = closure11(v9) │
00:05:56 #26403 [verbose] > │ UH0_0(v6, v10) │
00:05:56 #26404 [verbose] > │ | UH0_1 -> (* StreamNil *) │
00:05:56 #26405 [verbose] > │ UH0_1 │
00:05:56 #26406 [verbose] > │ let v14 : US0 = US0_1(v13) │
00:05:56 #26407 [verbose] > │ v0.l0 <- v14 │
00:05:56 #26408 [verbose] > │ v13 │
00:05:56 #26409 [verbose] > │ and method2 (v0 : int32, v1 : UH0) : US1 = │
00:05:56 #26410 [verbose] > │ match v1 with │
00:05:56 #26411 [verbose] > │ | UH0_0(v2, v3) -> (* StreamCons *) │
00:05:56 #26412 [verbose] > │ let v4 : bool = v0 <= 0 │
00:05:56 #26413 [verbose] > │ if v4 then │
00:05:56 #26414 [verbose] > │ US1_0(v2) │
00:05:56 #26415 [verbose] > │ else │
00:05:56 #26416 [verbose] > │ let v6 : int32 = v0 - 1 │
00:05:56 #26417 [verbose] > │ let v7 : UH0 = v3 () │
00:05:56 #26418 [verbose] > │ method2(v6, v7) │
00:05:56 #26419 [verbose] > │ | UH0_1 -> (* StreamNil *) │
00:05:56 #26420 [verbose] > │ US1_1 │
00:05:56 #26421 [verbose] > │ and method3 (v0 : UH1, v1 : UH1) : UH1 = │
00:05:56 #26422 [verbose] > │ match v0 with │
00:05:56 #26423 [verbose] > │ | UH1_1(v2, v3) -> (* Cons *) │
00:05:56 #26424 [verbose] > │ let v4 : UH1 = UH1_1(v2, v1) │
00:05:56 #26425 [verbose] > │ method3(v3, v4) │
00:05:56 #26426 [verbose] > │ | UH1_0 -> (* Nil *) │
00:05:56 #26427 [verbose] > │ v1 │
00:05:56 #26428 [verbose] > │ and method1 (v0 : UH0, v1 : UH1, v2 : int32) : UH1 = │
00:05:56 #26429 [verbose] > │ let v3 : US1 = method2(v2, v0) │
00:05:56 #26430 [verbose] > │ match v3 with │
00:05:56 #26431 [verbose] > │ | US1_0(v4) -> (* Some *) │
00:05:56 #26432 [verbose] > │ let v5 : bool = v4 < 5 │
00:05:56 #26433 [verbose] > │ if v5 then │
00:05:56 #26434 [verbose] > │ let v6 : UH1 = UH1_1(v4, v1) │
00:05:56 #26435 [verbose] > │ let v7 : int32 = v2 + 1 │
00:05:56 #26436 [verbose] > │ method1(v0, v6, v7) │
00:05:56 #26437 [verbose] > │ else │
00:05:56 #26438 [verbose] > │ let v9 : UH1 = UH1_0 │
00:05:56 #26439 [verbose] > │ method3(v1, v9) │
00:05:56 #26440 [verbose] > │ | _ -> │
00:05:56 #26441 [verbose] > │ let v12 : UH1 = UH1_0 │
00:05:56 #26442 [verbose] > │ method3(v1, v12) │
00:05:56 #26443 [verbose] > │ and method4 (v0 : UH1, v1 : int32) : int32 = │
00:05:56 #26444 [verbose] > │ match v0 with │
00:05:56 #26445 [verbose] > │ | UH1_1(v2, v3) -> (* Cons *) │
00:05:56 #26446 [verbose] > │ let v4 : int32 = v1 + v2 │
00:05:56 #26447 [verbose] > │ method4(v3, v4) │
00:05:56 #26448 [verbose] > │ | UH1_0 -> (* Nil *) │
00:05:56 #26449 [verbose] > │ v1 │
00:05:56 #26450 [verbose] > │ and method5 (v0 : bool) : bool = │
00:05:56 #26451 [verbose] > │ v0 │
00:05:56 #26452 [verbose] > │ and method0 () : unit = │
00:05:56 #26453 [verbose] > │ printfn $"print_and_return / x: {0}" │
00:05:56 #26454 [verbose] > │ let v0 : (unit -> UH0) = closure0() │
00:05:56 #26455 [verbose] > │ let v1 : US0 = US0_0(v0) │
00:05:56 #26456 [verbose] > │ let v2 : Mut0 = {l0 = v1} : Mut0 │
00:05:56 #26457 [verbose] > │ let v3 : US0 = v2.l0 │
00:05:56 #26458 [verbose] > │ let v18 : UH0 = │
00:05:56 #26459 [verbose] > │ match v3 with │
00:05:56 #26460 [verbose] > │ | US0_1(v4) -> (* Computed *) │
00:05:56 #26461 [verbose] > │ v4 │
00:05:56 #26462 [verbose] > │ | US0_0(v5) -> (* NotComputed *) │
00:05:56 #26463 [verbose] > │ let v6 : UH0 = v5 () │
00:05:56 #26464 [verbose] > │ let v15 : UH0 = │
00:05:56 #26465 [verbose] > │ match v6 with │
00:05:56 #26466 [verbose] > │ | UH0_0(v8, v9) -> (* StreamCons *) │
00:05:56 #26467 [verbose] > │ let v10 : US0 = US0_0(v9) │
00:05:56 #26468 [verbose] > │ let v11 : Mut0 = {l0 = v10} : Mut0 │
00:05:56 #26469 [verbose] > │ let v12 : (unit -> UH0) = closure11(v11) │
00:05:56 #26470 [verbose] > │ UH0_0(v8, v12) │
00:05:56 #26471 [verbose] > │ | UH0_1 -> (* StreamNil *) │
00:05:56 #26472 [verbose] > │ UH0_1 │
00:05:56 #26473 [verbose] > │ let v16 : US0 = US0_1(v15) │
00:05:56 #26474 [verbose] > │ v2.l0 <- v16 │
00:05:56 #26475 [verbose] > │ v15 │
00:05:56 #26476 [verbose] > │ let v19 : UH1 = UH1_0 │
00:05:56 #26477 [verbose] > │ let v20 : int32 = 0 │
00:05:56 #26478 [verbose] > │ let v21 : UH1 = method1(v18, v19, v20) │
00:05:56 #26479 [verbose] > │ let v22 : int32 = 0 │
00:05:56 #26480 [verbose] > │ let v23 : int32 = method4(v21, v22) │
00:05:56 #26481 [verbose] > │ let v24 : string = $"%A{v23}" │
00:05:56 #26482 [verbose] > │ System.Console.WriteLine v24 │
00:05:56 #26483 [verbose] > │ let v25 : bool = v23 = 10 │
00:05:56 #26484 [verbose] > │ let v27 : bool = │
00:05:56 #26485 [verbose] > │ if v25 then │
00:05:56 #26486 [verbose] > │ true │
00:05:56 #26487 [verbose] > │ else │
00:05:56 #26488 [verbose] > │ method5(v25) │
00:05:56 #26489 [verbose] > │ let v28 : string = $"__expect / actual: %A{v23} / expected: %A{10}" │
00:05:56 #26490 [verbose] > │ let v29 : bool = v27 = false │
00:05:56 #26491 [verbose] > │ if v29 then │
00:05:56 #26492 [verbose] > │ failwith<unit> v28 │
00:05:56 #26493 [verbose] > │ method0() │
00:05:56 #26494 [verbose] > │ │
00:05:56 #26495 [verbose] > │ print_and_return / x: 0 │
00:05:56 #26496 [verbose] > │ print_and_return / x: 1 │
00:05:56 #26497 [verbose] > │ print_and_return / x: 2 │
00:05:56 #26498 [verbose] > │ print_and_return / x: 3 │
00:05:56 #26499 [verbose] > │ print_and_return / x: 4 │
00:05:56 #26500 [verbose] > │ print_and_return / x: 5 │
00:05:56 #26501 [verbose] > │ 10 │
00:05:56 #26502 [verbose] > │ │
00:05:56 #26503 [verbose] > ╰──────────────────────────────────────────────────────────────────────────────╯
00:05:56 #26504 [verbose] >
00:05:56 #26505 [verbose] > ── markdown ────────────────────────────────────────────────────────────────────
00:05:56 #26506 [verbose] > ╭──────────────────────────────────────────────────────────────────────────────╮
00:05:56 #26507 [verbose] > │ ## memoize │
00:05:56 #26508 [verbose] > ╰──────────────────────────────────────────────────────────────────────────────╯
00:05:56 #26509 [verbose] >
00:05:56 #26510 [verbose] > ── spiral ──────────────────────────────────────────────────────────────────────
00:05:56 #26511 [verbose] > inl memoize seq =
00:05:56 #26512 [verbose] > inl state = mut [[]]
00:05:56 #26513 [verbose] > fun n =>
00:05:56 #26514 [verbose] > match *state |> listm'.try_find (fun (n', _) => n' = n) with
00:05:56 #26515 [verbose] > | Some (_, v) => v
00:05:56 #26516 [verbose] > | None =>
00:05:56 #26517 [verbose] > inl new_state = seq n
00:05:56 #26518 [verbose] > state <- (n, new_state) :: *state
00:05:56 #26519 [verbose] > new_state
00:05:56 #26520 [verbose] >
00:05:56 #26521 [verbose] > inl memoize_ seq =
00:05:56 #26522 [verbose] > inl state = mut [[]]
00:05:56 #26523 [verbose] > fun n =>
00:05:56 #26524 [verbose] > match *state |> listm'.try_find_ (fun (n', _) => n' = n) with
00:05:56 #26525 [verbose] > | Some (_, v) => v
00:05:56 #26526 [verbose] > | None =>
00:05:56 #26527 [verbose] > inl new_state = seq n
00:05:56 #26528 [verbose] > state <- (n, new_state) :: *state
00:05:56 #26529 [verbose] > new_state
00:05:56 #26530 [verbose] > Building c:\home\git\polyglot\target\polyglot\spiral_eval\packages\28c44fec5020eace48acf70337a40500a222d7e7778e31b31018414bc5b46e76\main.spi
00:05:56 #26531 [verbose] >
00:05:56 #26532 [verbose] > ╭─[ 219.39ms - stdout ]────────────────────────────────────────────────────────╮
00:05:56 #26533 [verbose] > │ () │
00:05:56 #26534 [verbose] > │ │
00:05:56 #26535 [verbose] > │ │
00:05:56 #26536 [verbose] > ╰──────────────────────────────────────────────────────────────────────────────╯
00:05:56 #26537 [verbose] >
00:05:56 #26538 [verbose] > ── spiral ──────────────────────────────────────────────────────────────────────
00:05:56 #26539 [verbose] > // // test
00:05:56 #26540 [verbose] >
00:05:56 #26541 [verbose] > inl seq =
00:05:56 #26542 [verbose] > fun n =>
00:05:56 #26543 [verbose] > n |> print_and_return |> Some
00:05:56 #26544 [verbose] > |> memoize_
00:05:56 #26545 [verbose] >
00:05:56 #26546 [verbose] > seq
00:05:56 #26547 [verbose] > |> take_while_ (fun n (_ : i32) => n < 5)
00:05:56 #26548 [verbose] > |> listm'.sum
00:05:56 #26549 [verbose] > |> _assert_eq 10
00:05:56 #26550 [verbose] >
00:05:56 #26551 [verbose] > seq
00:05:56 #26552 [verbose] > |> take_while_ (fun n _ => n < 5)
00:05:56 #26553 [verbose] > |> listm'.sum
00:05:56 #26554 [verbose] > |> _assert_eq 10
00:05:56 #26555 [verbose] > Building c:\home\git\polyglot\target\polyglot\spiral_eval\packages\1a92aa0e259ada6ab010699bdd32289227d0a4093bef45b73d64889b182aa58e\main.spi
00:05:56 #26556 [verbose] >
00:05:56 #26557 [verbose] > ╭─[ 433.54ms - stdout ]────────────────────────────────────────────────────────╮
00:05:56 #26558 [verbose] > │ type [<Struct>] US0 = │
00:05:56 #26559 [verbose] > │ | US0_0 of f0_0 : int32 │
00:05:56 #26560 [verbose] > │ | US0_1 │
00:05:56 #26561 [verbose] > │ and UH0 = │
00:05:56 #26562 [verbose] > │ | UH0_0 │
00:05:56 #26563 [verbose] > │ | UH0_1 of int32 * US0 * UH0 │
00:05:56 #26564 [verbose] > │ and Mut0 = {mutable l0 : UH0} │
00:05:56 #26565 [verbose] > │ and UH1 = │
00:05:56 #26566 [verbose] > │ | UH1_0 │
00:05:56 #26567 [verbose] > │ | UH1_1 of int32 * UH1 │
00:05:56 #26568 [verbose] > │ and [<Struct>] US1 = │
00:05:56 #26569 [verbose] > │ | US1_0 of f0_0 : int32 * f0_1 : US0 │
00:05:56 #26570 [verbose] > │ | US1_1 │
00:05:56 #26571 [verbose] > │ let rec method2 (v0 : int32, v1 : UH0) : US1 = │
00:05:56 #26572 [verbose] > │ match v1 with │
00:05:56 #26573 [verbose] > │ | UH0_1(v3, v4, v5) -> (* Cons *) │
00:05:56 #26574 [verbose] > │ let v6 : bool = v3 = v0 │
00:05:56 #26575 [verbose] > │ if v6 then │
00:05:56 #26576 [verbose] > │ US1_0(v3, v4) │
00:05:56 #26577 [verbose] > │ else │
00:05:56 #26578 [verbose] > │ method2(v0, v5) │
00:05:56 #26579 [verbose] > │ | UH0_0 -> (* Nil *) │
00:05:56 #26580 [verbose] > │ US1_1 │
00:05:56 #26581 [verbose] > │ and method3 (v0 : UH1, v1 : UH1) : UH1 = │
00:05:56 #26582 [verbose] > │ match v0 with │
00:05:56 #26583 [verbose] > │ | UH1_1(v2, v3) -> (* Cons *) │
00:05:56 #26584 [verbose] > │ let v4 : UH1 = UH1_1(v2, v1) │
00:05:56 #26585 [verbose] > │ method3(v3, v4) │
00:05:56 #26586 [verbose] > │ | UH1_0 -> (* Nil *) │
00:05:56 #26587 [verbose] > │ v1 │
00:05:56 #26588 [verbose] > │ and method1 (v0 : Mut0, v1 : UH1, v2 : int32) : UH1 = │
00:05:56 #26589 [verbose] > │ let v3 : UH0 = v0.l0 │
00:05:56 #26590 [verbose] > │ let v4 : US1 = method2(v2, v3) │
00:05:56 #26591 [verbose] > │ let v12 : US0 = │
00:05:56 #26592 [verbose] > │ match v4 with │
00:05:56 #26593 [verbose] > │ | US1_1 -> (* None *) │
00:05:56 #26594 [verbose] > │ printfn $"print_and_return / x: {v2}" │
00:05:56 #26595 [verbose] > │ let v7 : UH0 = v0.l0 │
00:05:56 #26596 [verbose] > │ let v8 : US0 = US0_0(v2) │
00:05:56 #26597 [verbose] > │ let v9 : UH0 = UH0_1(v2, v8, v7) │
00:05:56 #26598 [verbose] > │ v0.l0 <- v9 │
00:05:56 #26599 [verbose] > │ US0_0(v2) │
00:05:56 #26600 [verbose] > │ | US1_0(v5, v6) -> (* Some *) │
00:05:56 #26601 [verbose] > │ v6 │
00:05:56 #26602 [verbose] > │ match v12 with │
00:05:56 #26603 [verbose] > │ | US0_0(v13) -> (* Some *) │
00:05:56 #26604 [verbose] > │ let v14 : bool = v13 < 5 │
00:05:56 #26605 [verbose] > │ if v14 then │
00:05:56 #26606 [verbose] > │ let v15 : UH1 = UH1_1(v13, v1) │
00:05:56 #26607 [verbose] > │ let v16 : int32 = v2 + 1 │
00:05:56 #26608 [verbose] > │ method1(v0, v15, v16) │
00:05:56 #26609 [verbose] > │ else │
00:05:56 #26610 [verbose] > │ let v18 : UH1 = UH1_0 │
00:05:56 #26611 [verbose] > │ method3(v1, v18) │
00:05:56 #26612 [verbose] > │ | _ -> │
00:05:56 #26613 [verbose] > │ let v21 : UH1 = UH1_0 │
00:05:56 #26614 [verbose] > │ method3(v1, v21) │
00:05:56 #26615 [verbose] > │ and method4 (v0 : UH1, v1 : int32) : int32 = │
00:05:56 #26616 [verbose] > │ match v0 with │
00:05:56 #26617 [verbose] > │ | UH1_1(v2, v3) -> (* Cons *) │
00:05:56 #26618 [verbose] > │ let v4 : int32 = v1 + v2 │
00:05:56 #26619 [verbose] > │ method4(v3, v4) │
00:05:56 #26620 [verbose] > │ | UH1_0 -> (* Nil *) │
00:05:56 #26621 [verbose] > │ v1 │
00:05:56 #26622 [verbose] > │ and method5 (v0 : bool) : bool = │
00:05:56 #26623 [verbose] > │ v0 │
00:05:56 #26624 [verbose] > │ and method6 (v0 : Mut0, v1 : UH1, v2 : int32) : UH1 = │
00:05:56 #26625 [verbose] > │ let v3 : UH0 = v0.l0 │
00:05:56 #26626 [verbose] > │ let v4 : US1 = method2(v2, v3) │
00:05:56 #26627 [verbose] > │ let v12 : US0 = │
00:05:56 #26628 [verbose] > │ match v4 with │
00:05:56 #26629 [verbose] > │ | US1_1 -> (* None *) │
00:05:56 #26630 [verbose] > │ printfn $"print_and_return / x: {v2}" │
00:05:56 #26631 [verbose] > │ let v7 : UH0 = v0.l0 │
00:05:56 #26632 [verbose] > │ let v8 : US0 = US0_0(v2) │
00:05:56 #26633 [verbose] > │ let v9 : UH0 = UH0_1(v2, v8, v7) │
00:05:56 #26634 [verbose] > │ v0.l0 <- v9 │
00:05:56 #26635 [verbose] > │ US0_0(v2) │
00:05:56 #26636 [verbose] > │ | US1_0(v5, v6) -> (* Some *) │
00:05:56 #26637 [verbose] > │ v6 │
00:05:56 #26638 [verbose] > │ match v12 with │
00:05:56 #26639 [verbose] > │ | US0_0(v13) -> (* Some *) │
00:05:56 #26640 [verbose] > │ let v14 : bool = v13 < 5 │
00:05:56 #26641 [verbose] > │ if v14 then │
00:05:57 #26642 [verbose] > │ let v15 : UH1 = UH1_1(v13, v1) │
00:05:57 #26643 [verbose] > │ let v16 : int32 = v2 + 1 │
00:05:57 #26644 [verbose] > │ method6(v0, v15, v16) │
00:05:57 #26645 [verbose] > │ else │
00:05:57 #26646 [verbose] > │ let v18 : UH1 = UH1_0 │
00:05:57 #26647 [verbose] > │ method3(v1, v18) │
00:05:57 #26648 [verbose] > │ | _ -> │
00:05:57 #26649 [verbose] > │ let v21 : UH1 = UH1_0 │
00:05:57 #26650 [verbose] > │ method3(v1, v21) │
00:05:57 #26651 [verbose] > │ and method0 () : unit = │
00:05:57 #26652 [verbose] > │ let v0 : UH0 = UH0_0 │
00:05:57 #26653 [verbose] > │ let v1 : Mut0 = {l0 = v0} : Mut0 │
00:05:57 #26654 [verbose] > │ let v2 : UH1 = UH1_0 │
00:05:57 #26655 [verbose] > │ let v3 : int32 = 0 │
00:05:57 #26656 [verbose] > │ let v4 : UH1 = method1(v1, v2, v3) │
00:05:57 #26657 [verbose] > │ let v5 : int32 = 0 │
00:05:57 #26658 [verbose] > │ let v6 : int32 = method4(v4, v5) │
00:05:57 #26659 [verbose] > │ let v7 : string = $"%A{v6}" │
00:05:57 #26660 [verbose] > │ System.Console.WriteLine v7 │
00:05:57 #26661 [verbose] > │ let v8 : bool = v6 = 10 │
00:05:57 #26662 [verbose] > │ let v10 : bool = │
00:05:57 #26663 [verbose] > │ if v8 then │
00:05:57 #26664 [verbose] > │ true │
00:05:57 #26665 [verbose] > │ else │
00:05:57 #26666 [verbose] > │ method5(v8) │
00:05:57 #26667 [verbose] > │ let v11 : string = $"__expect / actual: %A{v6} / expected: %A{10}" │
00:05:57 #26668 [verbose] > │ let v12 : bool = v10 = false │
00:05:57 #26669 [verbose] > │ if v12 then │
00:05:57 #26670 [verbose] > │ failwith<unit> v11 │
00:05:57 #26671 [verbose] > │ let v13 : UH1 = UH1_0 │
00:05:57 #26672 [verbose] > │ let v14 : int32 = 0 │
00:05:57 #26673 [verbose] > │ let v15 : UH1 = method6(v1, v13, v14) │
00:05:57 #26674 [verbose] > │ let v16 : int32 = 0 │
00:05:57 #26675 [verbose] > │ let v17 : int32 = method4(v15, v16) │
00:05:57 #26676 [verbose] > │ let v18 : string = $"%A{v17}" │
00:05:57 #26677 [verbose] > │ System.Console.WriteLine v18 │
00:05:57 #26678 [verbose] > │ let v19 : bool = v17 = 10 │
00:05:57 #26679 [verbose] > │ let v21 : bool = │
00:05:57 #26680 [verbose] > │ if v19 then │
00:05:57 #26681 [verbose] > │ true │
00:05:57 #26682 [verbose] > │ else │
00:05:57 #26683 [verbose] > │ method5(v19) │
00:05:57 #26684 [verbose] > │ let v22 : string = $"__expect / actual: %A{v17} / expected: %A{10}" │
00:05:57 #26685 [verbose] > │ let v23 : bool = v21 = false │
00:05:57 #26686 [verbose] > │ if v23 then │
00:05:57 #26687 [verbose] > │ failwith<unit> v22 │
00:05:57 #26688 [verbose] > │ method0() │
00:05:57 #26689 [verbose] > │ │
00:05:57 #26690 [verbose] > │ print_and_return / x: 0 │
00:05:57 #26691 [verbose] > │ print_and_return / x: 1 │
00:05:57 #26692 [verbose] > │ print_and_return / x: 2 │
00:05:57 #26693 [verbose] > │ print_and_return / x: 3 │
00:05:57 #26694 [verbose] > │ print_and_return / x: 4 │
00:05:57 #26695 [verbose] > │ print_and_return / x: 5 │
00:05:57 #26696 [verbose] > │ 10 │
00:05:57 #26697 [verbose] > │ 10 │
00:05:57 #26698 [verbose] > │ │
00:05:57 #26699 [verbose] > ╰──────────────────────────────────────────────────────────────────────────────╯
00:05:57 #26700 [verbose] >
00:05:57 #26701 [verbose] > ── markdown ────────────────────────────────────────────────────────────────────
00:05:57 #26702 [verbose] > ╭──────────────────────────────────────────────────────────────────────────────╮
00:05:57 #26703 [verbose] > │ ## iterate │
00:05:57 #26704 [verbose] > ╰──────────────────────────────────────────────────────────────────────────────╯
00:05:57 #26705 [verbose] >
00:05:57 #26706 [verbose] > ── spiral ──────────────────────────────────────────────────────────────────────
00:05:57 #26707 [verbose] > inl iterate f x0 num_steps =
00:05:57 #26708 [verbose] > inl rec loop x n =
00:05:57 #26709 [verbose] > if n <= 0
00:05:57 #26710 [verbose] > then x
00:05:57 #26711 [verbose] > else loop (f x) (n - 1)
00:05:57 #26712 [verbose] > loop x0 num_steps
00:05:57 #26713 [verbose] > Building c:\home\git\polyglot\target\polyglot\spiral_eval\packages\aca72ac77cd6b2093bec75afa7798320958be2ec92065460c257275b51ba8642\main.spi
00:05:57 #26714 [verbose] >
00:05:57 #26715 [verbose] > ╭─[ 229.43ms - stdout ]────────────────────────────────────────────────────────╮
00:05:57 #26716 [verbose] > │ () │
00:05:57 #26717 [verbose] > │ │
00:05:57 #26718 [verbose] > │ │
00:05:57 #26719 [verbose] > ╰──────────────────────────────────────────────────────────────────────────────╯
00:05:57 #26720 [verbose] >
00:05:57 #26721 [verbose] > ── spiral ──────────────────────────────────────────────────────────────────────
00:05:57 #26722 [verbose] > // // test
00:05:57 #26723 [verbose] >
00:05:57 #26724 [verbose] > 10i32 |> iterate ((*) 2) 1i32
00:05:57 #26725 [verbose] > |> _assert_eq 1024
00:05:57 #26726 [verbose] > Building c:\home\git\polyglot\target\polyglot\spiral_eval\packages\1a2062d9cb78bef5c04ea6e43de53643ec24d1148c9cb84557752f299f7438d4\main.spi
00:05:57 #26727 [verbose] >
00:05:57 #26728 [verbose] > ╭─[ 240.09ms - stdout ]────────────────────────────────────────────────────────╮
00:05:57 #26729 [verbose] > │ let rec method0 () : unit = │
00:05:57 #26730 [verbose] > │ let v0 : string = $"%A{1024}" │
00:05:57 #26731 [verbose] > │ System.Console.WriteLine v0 │
00:05:57 #26732 [verbose] > │ let v1 : string = $"__expect / actual: %A{1024} / expected: %A{1024}" │
00:05:57 #26733 [verbose] > │ () │
00:05:57 #26734 [verbose] > │ method0() │
00:05:57 #26735 [verbose] > │ │
00:05:57 #26736 [verbose] > │ 1024 │
00:05:57 #26737 [verbose] > │ │
00:05:57 #26738 [verbose] > ╰──────────────────────────────────────────────────────────────────────────────╯
00:05:57 #26739 [verbose] >
00:05:57 #26740 [verbose] > ── spiral ──────────────────────────────────────────────────────────────────────
00:05:57 #26741 [verbose] > inl iterate_ f x0 num_steps =
00:05:57 #26742 [verbose] > let rec loop x n =
00:05:57 #26743 [verbose] > if n <= 0
00:05:57 #26744 [verbose] > then x
00:05:57 #26745 [verbose] > else loop (f x) (n - 1)
00:05:57 #26746 [verbose] > loop x0 num_steps
00:05:57 #26747 [verbose] > Building c:\home\git\polyglot\target\polyglot\spiral_eval\packages\b2b6cc49404dfd8d8893646690277bef15d52357463e19633c3448c7020eb916\main.spi
00:05:57 #26748 [verbose] >
00:05:57 #26749 [verbose] > ╭─[ 219.08ms - stdout ]────────────────────────────────────────────────────────╮
00:05:57 #26750 [verbose] > │ () │
00:05:57 #26751 [verbose] > │ │
00:05:57 #26752 [verbose] > │ │
00:05:57 #26753 [verbose] > ╰──────────────────────────────────────────────────────────────────────────────╯
00:05:57 #26754 [verbose] >
00:05:57 #26755 [verbose] > ── spiral ──────────────────────────────────────────────────────────────────────
00:05:57 #26756 [verbose] > // // test
00:05:57 #26757 [verbose] >
00:05:57 #26758 [verbose] > 10i32 |> iterate_ ((*) 2) 1i32
00:05:57 #26759 [verbose] > |> _assert_eq 1024
00:05:57 #26760 [verbose] > Building c:\home\git\polyglot\target\polyglot\spiral_eval\packages\488a1c698ca08eee72c0120c91f212c22516518ee0641d2c8d84edba238b8775\main.spi
00:05:57 #26761 [verbose] >
00:05:57 #26762 [verbose] > ╭─[ 233.61ms - stdout ]────────────────────────────────────────────────────────╮
00:05:57 #26763 [verbose] > │ let rec method1 (v0 : int32, v1 : int32) : int32 = │
00:05:57 #26764 [verbose] > │ let v2 : bool = v1 <= 0 │
00:05:57 #26765 [verbose] > │ if v2 then │
00:05:57 #26766 [verbose] > │ v0 │
00:05:57 #26767 [verbose] > │ else │
00:05:57 #26768 [verbose] > │ let v3 : int32 = 2 * v0 │
00:05:57 #26769 [verbose] > │ let v4 : int32 = v1 - 1 │
00:05:57 #26770 [verbose] > │ method1(v3, v4) │
00:05:57 #26771 [verbose] > │ and method2 (v0 : bool) : bool = │
00:05:57 #26772 [verbose] > │ v0 │
00:05:57 #26773 [verbose] > │ and method0 () : unit = │
00:05:57 #26774 [verbose] > │ let v0 : int32 = 1 │
00:05:57 #26775 [verbose] > │ let v1 : int32 = 10 │
00:05:57 #26776 [verbose] > │ let v2 : int32 = method1(v0, v1) │
00:05:57 #26777 [verbose] > │ let v3 : string = $"%A{v2}" │
00:05:57 #26778 [verbose] > │ System.Console.WriteLine v3 │
00:05:57 #26779 [verbose] > │ let v4 : bool = v2 = 1024 │
00:05:57 #26780 [verbose] > │ let v6 : bool = │
00:05:57 #26781 [verbose] > │ if v4 then │
00:05:57 #26782 [verbose] > │ true │
00:05:57 #26783 [verbose] > │ else │
00:05:57 #26784 [verbose] > │ method2(v4) │
00:05:57 #26785 [verbose] > │ let v7 : string = $"__expect / actual: %A{v2} / expected: %A{1024}" │
00:05:57 #26786 [verbose] > │ let v8 : bool = v6 = false │
00:05:57 #26787 [verbose] > │ if v8 then │
00:05:57 #26788 [verbose] > │ failwith<unit> v7 │
00:05:57 #26789 [verbose] > │ method0() │
00:05:57 #26790 [verbose] > │ │
00:05:57 #26791 [verbose] > │ 1024 │
00:05:57 #26792 [verbose] > │ │
00:05:57 #26793 [verbose] > ╰──────────────────────────────────────────────────────────────────────────────╯
00:05:57 #26794 [verbose] >
00:05:57 #26795 [verbose] > ── spiral ──────────────────────────────────────────────────────────────────────
00:05:57 #26796 [verbose] > inl iterate' f x0 num_steps =
00:05:57 #26797 [verbose] > listm.init num_steps id
00:05:57 #26798 [verbose] > |> listm.fold (fun x _ => f x) x0
00:05:58 #26799 [verbose] > Building c:\home\git\polyglot\target\polyglot\spiral_eval\packages\ca8a1984d5a05e48f034657d5bb8cebed2ec6152362ea85b71e5d588cf288bcc\main.spi
00:05:58 #26800 [verbose] >
00:05:58 #26801 [verbose] > ╭─[ 453.59ms - stdout ]────────────────────────────────────────────────────────╮
00:05:58 #26802 [verbose] > │ () │
00:05:58 #26803 [verbose] > │ │
00:05:58 #26804 [verbose] > │ │
00:05:58 #26805 [verbose] > ╰──────────────────────────────────────────────────────────────────────────────╯
00:05:58 #26806 [verbose] >
00:05:58 #26807 [verbose] > ── spiral ──────────────────────────────────────────────────────────────────────
00:05:58 #26808 [verbose] > // // test
00:05:58 #26809 [verbose] >
00:05:58 #26810 [verbose] > 10i32 |> iterate' ((*) 2) 1i32
00:05:58 #26811 [verbose] > |> _assert_eq 1024
00:05:58 #26812 [verbose] > Building c:\home\git\polyglot\target\polyglot\spiral_eval\packages\e54233d494fe95fbdf55657067069aa9bf9ee7368b8afad71bbc07e8968fc3f3\main.spi
00:05:58 #26813 [verbose] >
00:05:58 #26814 [verbose] > ╭─[ 225.05ms - stdout ]────────────────────────────────────────────────────────╮
00:05:58 #26815 [verbose] > │ let rec method0 () : unit = │
00:05:58 #26816 [verbose] > │ let v0 : string = $"%A{1024}" │
00:05:58 #26817 [verbose] > │ System.Console.WriteLine v0 │
00:05:58 #26818 [verbose] > │ let v1 : string = $"__expect / actual: %A{1024} / expected: %A{1024}" │
00:05:58 #26819 [verbose] > │ () │
00:05:58 #26820 [verbose] > │ method0() │
00:05:58 #26821 [verbose] > │ │
00:05:58 #26822 [verbose] > │ 1024 │
00:05:58 #26823 [verbose] > │ │
00:05:58 #26824 [verbose] > ╰──────────────────────────────────────────────────────────────────────────────╯
00:05:58 #26825 [verbose] >
00:05:58 #26826 [verbose] > ── markdown ────────────────────────────────────────────────────────────────────
00:05:58 #26827 [verbose] > ╭──────────────────────────────────────────────────────────────────────────────╮
00:05:58 #26828 [verbose] > │ ## find_last │
00:05:58 #26829 [verbose] > ╰──────────────────────────────────────────────────────────────────────────────╯
00:05:58 #26830 [verbose] >
00:05:58 #26831 [verbose] > ── spiral ──────────────────────────────────────────────────────────────────────
00:05:58 #26832 [verbose] > inl find_last forall item result. fold_fn fn target : option result =
00:05:58 #26833 [verbose] > fold_fn (fun (item : item) (result : option result) =>
00:05:58 #26834 [verbose] > match result with
00:05:58 #26835 [verbose] > | None => fn item
00:05:58 #26836 [verbose] > | result => result
00:05:58 #26837 [verbose] > ) target (None : option result)
00:05:58 #26838 [verbose] >
00:05:58 #26839 [verbose] > inl array_find_last forall item result. (fn : item -> option result) (target : a
00:05:58 #26840 [verbose] > i32 item) : option result =
00:05:58 #26841 [verbose] > find_last am.foldBack fn target
00:05:58 #26842 [verbose] >
00:05:58 #26843 [verbose] > inl list_find_last forall item result. (fn : item -> option result) (target :
00:05:58 #26844 [verbose] > list item) : option result =
00:05:58 #26845 [verbose] > find_last listm.foldBack fn target
00:05:58 #26846 [verbose] > Building c:\home\git\polyglot\target\polyglot\spiral_eval\packages\cbb6bf355764273953cf2ebad06fad8212fce0af12e1c722d504c6b4174e161f\main.spi
00:05:58 #26847 [verbose] >
00:05:58 #26848 [verbose] > ╭─[ 219.07ms - stdout ]────────────────────────────────────────────────────────╮
00:05:58 #26849 [verbose] > │ () │
00:05:58 #26850 [verbose] > │ │
00:05:58 #26851 [verbose] > │ │
00:05:58 #26852 [verbose] > ╰──────────────────────────────────────────────────────────────────────────────╯
00:06:00 #26853 [verbose] > [NbConvertApp] Converting notebook seq.dib.ipynb to html
00:06:00 #26854 [verbose] > C:\Users\i574n\scoop\apps\python\current\Lib\site-packages\nbformat\__init__.py:93: MissingIDFieldWarning: Code cell is missing an id field, this will become a hard error in future nbformat versions. You may want to use `normalize()` on your notebooks before validations (available since nbformat 5.1.4). Previous versions of nbformat are fixing this issue transparently, and will stop doing so in the future.
00:06:00 #26855 [verbose] > validate(nb)
00:06:01 #26856 [verbose] > C:\Users\i574n\scoop\apps\python\current\Lib\site-packages\nbconvert\filters\highlight.py:71: UserWarning: IPython3 lexer unavailable, falling back on Python 3
00:06:01 #26857 [verbose] > return _pygments_highlight(
00:06:01 #26858 [verbose] > [NbConvertApp] Writing 420598 bytes to seq.dib.html
00:06:02 #26859 [debug] execute_with_options_async / exit_code: 0 / output.Length: 146525
00:06:02 #22 [debug] main / executeCommand / exitCode: 0
00:06:02 #26860 [debug] execute_with_options_async / options: struct (Some System.Threading.CancellationToken,
"pwsh -c "../../scripts/invoke-dib.ps1 util.dib" -Retries 3", None, None,
None)
00:06:04 #26861 [verbose] >
00:06:04 #26862 [verbose] > ── markdown ────────────────────────────────────────────────────────────────────
00:06:04 #26863 [verbose] > ╭──────────────────────────────────────────────────────────────────────────────╮
00:06:04 #26864 [verbose] > │ # util │
00:06:04 #26865 [verbose] > ╰──────────────────────────────────────────────────────────────────────────────╯
00:06:04 #26866 [verbose] >
00:06:04 #26867 [verbose] > ── spiral ──────────────────────────────────────────────────────────────────────
00:06:04 #26868 [verbose] > // // test
00:06:04 #26869 [verbose] >
00:06:04 #26870 [verbose] > open testing
00:06:07 #26871 [verbose] > Building c:\home\git\polyglot\target\polyglot\spiral_eval\packages\8837341da068f4ef4271045b3ef1c89d209237bf74b4f11596b6ee2d484becb0\main.spi
00:06:08 #26872 [verbose] >
00:06:08 #26873 [verbose] > ╭─[ 3.56s - stdout ]───────────────────────────────────────────────────────────╮
00:06:08 #26874 [verbose] > │ () │
00:06:08 #26875 [verbose] > │ │
00:06:08 #26876 [verbose] > │ │
00:06:08 #26877 [verbose] > ╰──────────────────────────────────────────────────────────────────────────────╯
00:06:08 #26878 [verbose] >
00:06:08 #26879 [verbose] > ── markdown ────────────────────────────────────────────────────────────────────
00:06:08 #26880 [verbose] > ╭──────────────────────────────────────────────────────────────────────────────╮
00:06:08 #26881 [verbose] > │ ## ski │
00:06:08 #26882 [verbose] > ╰──────────────────────────────────────────────────────────────────────────────╯
00:06:08 #26883 [verbose] >
00:06:08 #26884 [verbose] > ── spiral ──────────────────────────────────────────────────────────────────────
00:06:08 #26885 [verbose] > union rec ski =
00:06:08 #26886 [verbose] > | I
00:06:08 #26887 [verbose] > | K
00:06:08 #26888 [verbose] > | S
00:06:08 #26889 [verbose] > | App : ski * ski
00:06:08 #26890 [verbose] >
00:06:08 #26891 [verbose] > inl rec eval ski =
00:06:08 #26892 [verbose] > match ski with
00:06:08 #26893 [verbose] > | App (App (K, x), y) => eval x
00:06:08 #26894 [verbose] > | App (App (App (S, x), y), z) => eval (App (App (x, z), App (y, z)))
00:06:08 #26895 [verbose] > | App (I, x) => eval x
00:06:08 #26896 [verbose] > | App (K, x) => App (K, eval x)
00:06:08 #26897 [verbose] > | App (f, x) => eval (App (eval f, x))
00:06:08 #26898 [verbose] > | _ => ski
00:06:08 #26899 [verbose] > Building c:\home\git\polyglot\target\polyglot\spiral_eval\packages\72e6282f3300e6d54314019decc9350b1ca0492fcff018c717ad3e91103f2421\main.spi
00:06:08 #26900 [verbose] >
00:06:08 #26901 [verbose] > ╭─[ 265.64ms - stdout ]────────────────────────────────────────────────────────╮
00:06:08 #26902 [verbose] > │ () │
00:06:08 #26903 [verbose] > │ │
00:06:08 #26904 [verbose] > │ │
00:06:08 #26905 [verbose] > ╰──────────────────────────────────────────────────────────────────────────────╯
00:06:08 #26906 [verbose] >
00:06:08 #26907 [verbose] > ── spiral ──────────────────────────────────────────────────────────────────────
00:06:08 #26908 [verbose] > // // test
00:06:08 #26909 [verbose] >
00:06:08 #26910 [verbose] > eval I
00:06:08 #26911 [verbose] > |> _assert_eq I
00:06:08 #26912 [verbose] >
00:06:08 #26913 [verbose] > eval (App (I, I))
00:06:08 #26914 [verbose] > |> _assert_eq I
00:06:08 #26915 [verbose] >
00:06:08 #26916 [verbose] > eval (App (I, App (I, I)))
00:06:08 #26917 [verbose] > |> _assert_eq I
00:06:08 #26918 [verbose] >
00:06:08 #26919 [verbose] > eval (App (App (I, I), I))
00:06:08 #26920 [verbose] > |> _assert_eq I
00:06:08 #26921 [verbose] >
00:06:08 #26922 [verbose] > eval (App (App (App (I, I), I), I))
00:06:08 #26923 [verbose] > |> _assert_eq I
00:06:08 #26924 [verbose] >
00:06:08 #26925 [verbose] > eval K
00:06:08 #26926 [verbose] > |> _assert_eq K
00:06:08 #26927 [verbose] >
00:06:08 #26928 [verbose] > eval (App (K, I))
00:06:08 #26929 [verbose] > |> _assert_eq (App (K, I))
00:06:08 #26930 [verbose] >
00:06:08 #26931 [verbose] > eval (App (K, K))
00:06:08 #26932 [verbose] > |> _assert_eq (App (K, K))
00:06:08 #26933 [verbose] >
00:06:08 #26934 [verbose] > eval (App (App (K, I), K))
00:06:08 #26935 [verbose] > |> _assert_eq I
00:06:08 #26936 [verbose] >
00:06:08 #26937 [verbose] > eval (App (App (K, K), I))
00:06:08 #26938 [verbose] > |> _assert_eq K
00:06:08 #26939 [verbose] >
00:06:08 #26940 [verbose] > eval (App (App (App (App (K, K), I), S), K))
00:06:08 #26941 [verbose] > |> _assert_eq S
00:06:08 #26942 [verbose] >
00:06:08 #26943 [verbose] > eval S
00:06:08 #26944 [verbose] > |> _assert_eq S
00:06:08 #26945 [verbose] >
00:06:08 #26946 [verbose] > eval (App (App (App (S, I), I), I))
00:06:08 #26947 [verbose] > |> _assert_eq I
00:06:08 #26948 [verbose] >
00:06:08 #26949 [verbose] > eval (App (App (App (S, K), K), I))
00:06:08 #26950 [verbose] > |> _assert_eq I
00:06:08 #26951 [verbose] >
00:06:08 #26952 [verbose] > eval (App (App (App (S, K), I), (App (App (K, I), S))))
00:06:08 #26953 [verbose] > |> _assert_eq I
00:06:08 #26954 [verbose] >
00:06:08 #26955 [verbose] > eval (App (App (K, S), App (I, App (App (App (S, K), S), I))))
00:06:08 #26956 [verbose] > |> _assert_eq S
00:06:08 #26957 [verbose] >
00:06:08 #26958 [verbose] > eval (App (App (App (S, K), I), K))
00:06:08 #26959 [verbose] > |> _assert_eq K
00:06:08 #26960 [verbose] > Building c:\home\git\polyglot\target\polyglot\spiral_eval\packages\93b710d30ef6a9d1c3b60387f41126d8e9e8cbd255a200d566eb617c05907b76\main.spi
00:06:09 #26961 [verbose] >
00:06:09 #26962 [verbose] > ╭─[ 1.44s - stdout ]───────────────────────────────────────────────────────────╮
00:06:09 #26963 [verbose] > │ type UH0 = │
00:06:09 #26964 [verbose] > │ | UH0_0 │
00:06:09 #26965 [verbose] > │ | UH0_1 │
00:06:09 #26966 [verbose] > │ | UH0_2 │
00:06:09 #26967 [verbose] > │ | UH0_3 of UH0 * UH0 │
00:06:09 #26968 [verbose] > │ let rec method0 () : unit = │
00:06:09 #26969 [verbose] > │ let v0 : UH0 = UH0_0 │
00:06:09 #26970 [verbose] > │ let v1 : string = $"%A{v0}" │
00:06:09 #26971 [verbose] > │ System.Console.WriteLine v1 │
00:06:09 #26972 [verbose] > │ let v5 : UH0 = UH0_0 │
00:06:09 #26973 [verbose] > │ let v6 : UH0 = UH0_0 │
00:06:09 #26974 [verbose] > │ let v7 : string = $"__expect / actual: %A{v5} / expected: %A{v6}" │
00:06:09 #26975 [verbose] > │ let v8 : UH0 = UH0_0 │
00:06:09 #26976 [verbose] > │ let v9 : string = $"%A{v8}" │
00:06:09 #26977 [verbose] > │ System.Console.WriteLine v9 │
00:06:09 #26978 [verbose] > │ let v13 : UH0 = UH0_0 │
00:06:09 #26979 [verbose] > │ let v14 : UH0 = UH0_0 │
00:06:09 #26980 [verbose] > │ let v15 : string = $"__expect / actual: %A{v13} / expected: %A{v14}" │
00:06:09 #26981 [verbose] > │ let v16 : UH0 = UH0_0 │
00:06:09 #26982 [verbose] > │ let v17 : string = $"%A{v16}" │
00:06:09 #26983 [verbose] > │ System.Console.WriteLine v17 │
00:06:09 #26984 [verbose] > │ let v21 : UH0 = UH0_0 │
00:06:09 #26985 [verbose] > │ let v22 : UH0 = UH0_0 │
00:06:09 #26986 [verbose] > │ let v23 : string = $"__expect / actual: %A{v21} / expected: %A{v22}" │
00:06:09 #26987 [verbose] > │ let v24 : UH0 = UH0_0 │
00:06:09 #26988 [verbose] > │ let v25 : string = $"%A{v24}" │
00:06:09 #26989 [verbose] > │ System.Console.WriteLine v25 │
00:06:10 #26990 [verbose] > │ let v29 : UH0 = UH0_0 │
00:06:10 #26991 [verbose] > │ let v30 : UH0 = UH0_0 │
00:06:10 #26992 [verbose] > │ let v31 : string = $"__expect / actual: %A{v29} / expected: %A{v30}" │
00:06:10 #26993 [verbose] > │ let v32 : UH0 = UH0_0 │
00:06:10 #26994 [verbose] > │ let v33 : string = $"%A{v32}" │
00:06:10 #26995 [verbose] > │ System.Console.WriteLine v33 │
00:06:10 #26996 [verbose] > │ let v37 : UH0 = UH0_0 │
00:06:10 #26997 [verbose] > │ let v38 : UH0 = UH0_0 │
00:06:10 #26998 [verbose] > │ let v39 : string = $"__expect / actual: %A{v37} / expected: %A{v38}" │
00:06:10 #26999 [verbose] > │ let v40 : UH0 = UH0_1 │
00:06:10 #27000 [verbose] > │ let v41 : string = $"%A{v40}" │
00:06:10 #27001 [verbose] > │ System.Console.WriteLine v41 │
00:06:10 #27002 [verbose] > │ let v45 : UH0 = UH0_1 │
00:06:10 #27003 [verbose] > │ let v46 : UH0 = UH0_1 │
00:06:10 #27004 [verbose] > │ let v47 : string = $"__expect / actual: %A{v45} / expected: %A{v46}" │
00:06:10 #27005 [verbose] > │ let v48 : UH0 = UH0_1 │
00:06:10 #27006 [verbose] > │ let v49 : UH0 = UH0_0 │
00:06:10 #27007 [verbose] > │ let v50 : UH0 = UH0_3(v48, v49) │
00:06:10 #27008 [verbose] > │ let v51 : string = $"%A{v50}" │
00:06:10 #27009 [verbose] > │ System.Console.WriteLine v51 │
00:06:10 #27010 [verbose] > │ let v63 : UH0 = UH0_1 │
00:06:10 #27011 [verbose] > │ let v64 : UH0 = UH0_0 │
00:06:10 #27012 [verbose] > │ let v65 : UH0 = UH0_3(v63, v64) │
00:06:10 #27013 [verbose] > │ let v66 : UH0 = UH0_1 │
00:06:10 #27014 [verbose] > │ let v67 : UH0 = UH0_0 │
00:06:10 #27015 [verbose] > │ let v68 : UH0 = UH0_3(v66, v67) │
00:06:10 #27016 [verbose] > │ let v69 : string = $"__expect / actual: %A{v65} / expected: %A{v68}" │
00:06:10 #27017 [verbose] > │ let v70 : UH0 = UH0_1 │
00:06:10 #27018 [verbose] > │ let v71 : UH0 = UH0_1 │
00:06:10 #27019 [verbose] > │ let v72 : UH0 = UH0_3(v70, v71) │
00:06:10 #27020 [verbose] > │ let v73 : string = $"%A{v72}" │
00:06:10 #27021 [verbose] > │ System.Console.WriteLine v73 │
00:06:10 #27022 [verbose] > │ let v85 : UH0 = UH0_1 │
00:06:10 #27023 [verbose] > │ let v86 : UH0 = UH0_1 │
00:06:10 #27024 [verbose] > │ let v87 : UH0 = UH0_3(v85, v86) │
00:06:10 #27025 [verbose] > │ let v88 : UH0 = UH0_1 │
00:06:10 #27026 [verbose] > │ let v89 : UH0 = UH0_1 │
00:06:10 #27027 [verbose] > │ let v90 : UH0 = UH0_3(v88, v89) │
00:06:10 #27028 [verbose] > │ let v91 : string = $"__expect / actual: %A{v87} / expected: %A{v90}" │
00:06:10 #27029 [verbose] > │ let v92 : UH0 = UH0_0 │
00:06:10 #27030 [verbose] > │ let v93 : string = $"%A{v92}" │
00:06:10 #27031 [verbose] > │ System.Console.WriteLine v93 │
00:06:10 #27032 [verbose] > │ let v97 : UH0 = UH0_0 │
00:06:10 #27033 [verbose] > │ let v98 : UH0 = UH0_0 │
00:06:10 #27034 [verbose] > │ let v99 : string = $"__expect / actual: %A{v97} / expected: %A{v98}" │
00:06:10 #27035 [verbose] > │ let v100 : UH0 = UH0_1 │
00:06:10 #27036 [verbose] > │ let v101 : string = $"%A{v100}" │
00:06:10 #27037 [verbose] > │ System.Console.WriteLine v101 │
00:06:10 #27038 [verbose] > │ let v105 : UH0 = UH0_1 │
00:06:10 #27039 [verbose] > │ let v106 : UH0 = UH0_1 │
00:06:10 #27040 [verbose] > │ let v107 : string = $"__expect / actual: %A{v105} / expected: %A{v106}" │
00:06:10 #27041 [verbose] > │ let v108 : UH0 = UH0_2 │
00:06:10 #27042 [verbose] > │ let v109 : string = $"%A{v108}" │
00:06:10 #27043 [verbose] > │ System.Console.WriteLine v109 │
00:06:10 #27044 [verbose] > │ let v113 : UH0 = UH0_2 │
00:06:10 #27045 [verbose] > │ let v114 : UH0 = UH0_2 │
00:06:10 #27046 [verbose] > │ let v115 : string = $"__expect / actual: %A{v113} / expected: %A{v114}" │
00:06:10 #27047 [verbose] > │ let v116 : UH0 = UH0_2 │
00:06:10 #27048 [verbose] > │ let v117 : string = $"%A{v116}" │
00:06:10 #27049 [verbose] > │ System.Console.WriteLine v117 │
00:06:10 #27050 [verbose] > │ let v121 : UH0 = UH0_2 │
00:06:10 #27051 [verbose] > │ let v122 : UH0 = UH0_2 │
00:06:10 #27052 [verbose] > │ let v123 : string = $"__expect / actual: %A{v121} / expected: %A{v122}" │
00:06:10 #27053 [verbose] > │ let v124 : UH0 = UH0_0 │
00:06:10 #27054 [verbose] > │ let v125 : string = $"%A{v124}" │
00:06:10 #27055 [verbose] > │ System.Console.WriteLine v125 │
00:06:10 #27056 [verbose] > │ let v129 : UH0 = UH0_0 │
00:06:10 #27057 [verbose] > │ let v130 : UH0 = UH0_0 │
00:06:10 #27058 [verbose] > │ let v131 : string = $"__expect / actual: %A{v129} / expected: %A{v130}" │
00:06:10 #27059 [verbose] > │ let v132 : UH0 = UH0_0 │
00:06:10 #27060 [verbose] > │ let v133 : string = $"%A{v132}" │
00:06:10 #27061 [verbose] > │ System.Console.WriteLine v133 │
00:06:10 #27062 [verbose] > │ let v137 : UH0 = UH0_0 │
00:06:10 #27063 [verbose] > │ let v138 : UH0 = UH0_0 │
00:06:10 #27064 [verbose] > │ let v139 : string = $"__expect / actual: %A{v137} / expected: %A{v138}" │
00:06:10 #27065 [verbose] > │ let v140 : UH0 = UH0_0 │
00:06:10 #27066 [verbose] > │ let v141 : string = $"%A{v140}" │
00:06:10 #27067 [verbose] > │ System.Console.WriteLine v141 │
00:06:10 #27068 [verbose] > │ let v145 : UH0 = UH0_0 │
00:06:10 #27069 [verbose] > │ let v146 : UH0 = UH0_0 │
00:06:10 #27070 [verbose] > │ let v147 : string = $"__expect / actual: %A{v145} / expected: %A{v146}" │
00:06:10 #27071 [verbose] > │ let v148 : UH0 = UH0_2 │
00:06:10 #27072 [verbose] > │ let v149 : string = $"%A{v148}" │
00:06:10 #27073 [verbose] > │ System.Console.WriteLine v149 │
00:06:10 #27074 [verbose] > │ let v153 : UH0 = UH0_2 │
00:06:10 #27075 [verbose] > │ let v154 : UH0 = UH0_2 │
00:06:10 #27076 [verbose] > │ let v155 : string = $"__expect / actual: %A{v153} / expected: %A{v154}" │
00:06:10 #27077 [verbose] > │ let v156 : UH0 = UH0_1 │
00:06:10 #27078 [verbose] > │ let v157 : string = $"%A{v156}" │
00:06:10 #27079 [verbose] > │ System.Console.WriteLine v157 │
00:06:10 #27080 [verbose] > │ let v161 : UH0 = UH0_1 │
00:06:10 #27081 [verbose] > │ let v162 : UH0 = UH0_1 │
00:06:10 #27082 [verbose] > │ let v163 : string = $"__expect / actual: %A{v161} / expected: %A{v162}" │
00:06:10 #27083 [verbose] > │ () │
00:06:10 #27084 [verbose] > │ method0() │
00:06:10 #27085 [verbose] > │ │
00:06:10 #27086 [verbose] > │ UH0_0 │
00:06:10 #27087 [verbose] > │ UH0_0 │
00:06:10 #27088 [verbose] > │ UH0_0 │
00:06:10 #27089 [verbose] > │ UH0_0 │
00:06:10 #27090 [verbose] > │ UH0_0 │
00:06:10 #27091 [verbose] > │ UH0_1 │
00:06:10 #27092 [verbose] > │ UH0_3 (UH0_1, UH0_0) │
00:06:10 #27093 [verbose] > │ UH0_3 (UH0_1, UH0_1) │
00:06:10 #27094 [verbose] > │ UH0_0 │
00:06:10 #27095 [verbose] > │ UH0_1 │
00:06:10 #27096 [verbose] > │ UH0_2 │
00:06:10 #27097 [verbose] > │ UH0_2 │
00:06:10 #27098 [verbose] > │ UH0_0 │
00:06:10 #27099 [verbose] > │ UH0_0 │
00:06:10 #27100 [verbose] > │ UH0_0 │
00:06:10 #27101 [verbose] > │ UH0_2 │
00:06:10 #27102 [verbose] > │ UH0_1 │
00:06:10 #27103 [verbose] > │ │
00:06:10 #27104 [verbose] > ╰──────────────────────────────────────────────────────────────────────────────╯
00:06:11 #27105 [verbose] > [NbConvertApp] Converting notebook util.dib.ipynb to html
00:06:11 #27106 [verbose] > C:\Users\i574n\scoop\apps\python\current\Lib\site-packages\nbformat\__init__.py:93: MissingIDFieldWarning: Code cell is missing an id field, this will become a hard error in future nbformat versions. You may want to use `normalize()` on your notebooks before validations (available since nbformat 5.1.4). Previous versions of nbformat are fixing this issue transparently, and will stop doing so in the future.
00:06:11 #27107 [verbose] > validate(nb)
00:06:12 #27108 [verbose] > C:\Users\i574n\scoop\apps\python\current\Lib\site-packages\nbconvert\filters\highlight.py:71: UserWarning: IPython3 lexer unavailable, falling back on Python 3
00:06:12 #27109 [verbose] > return _pygments_highlight(
00:06:12 #27110 [verbose] > [NbConvertApp] Writing 288561 bytes to util.dib.html
00:06:13 #27111 [debug] execute_with_options_async / exit_code: 0 / output.Length: 15199
00:06:13 #23 [debug] main / executeCommand / exitCode: 0
00:06:13 #27112 [debug] execute_with_options_async / options: struct (Some System.Threading.CancellationToken,
"pwsh -c "../../scripts/invoke-dib.ps1 file_system.dib" -Retries 3",
None, None, None)
00:06:15 #27113 [verbose] >
00:06:15 #27114 [verbose] > ── markdown ────────────────────────────────────────────────────────────────────
00:06:15 #27115 [verbose] > ╭──────────────────────────────────────────────────────────────────────────────╮
00:06:15 #27116 [verbose] > │ # file_system │
00:06:15 #27117 [verbose] > ╰──────────────────────────────────────────────────────────────────────────────╯
00:06:15 #27118 [verbose] >
00:06:15 #27119 [verbose] > ── spiral ──────────────────────────────────────────────────────────────────────
00:06:15 #27120 [verbose] > open sm'_operators
00:06:18 #27121 [verbose] > Building c:\home\git\polyglot\target\polyglot\spiral_eval\packages\8e0f0354561b2c97df06acd4c3ea95f2daf6895158af8361de97c13866799744\main.spi
00:06:19 #27122 [verbose] >
00:06:19 #27123 [verbose] > ╭─[ 3.70s - stdout ]───────────────────────────────────────────────────────────╮
00:06:19 #27124 [verbose] > │ () │
00:06:19 #27125 [verbose] > │ │
00:06:19 #27126 [verbose] > │ │
00:06:19 #27127 [verbose] > ╰──────────────────────────────────────────────────────────────────────────────╯
00:06:19 #27128 [verbose] >
00:06:19 #27129 [verbose] > ── spiral ──────────────────────────────────────────────────────────────────────
00:06:19 #27130 [verbose] > // // test
00:06:19 #27131 [verbose] >
00:06:19 #27132 [verbose] > open testing
00:06:19 #27133 [verbose] > Building c:\home\git\polyglot\target\polyglot\spiral_eval\packages\c45f56626e445f341847e116c2e90b4cc6ff29f96977dd2788a732457b25f1a7\main.spi
00:06:19 #27134 [verbose] >
00:06:19 #27135 [verbose] > ╭─[ 271.55ms - stdout ]────────────────────────────────────────────────────────╮
00:06:19 #27136 [verbose] > │ () │
00:06:19 #27137 [verbose] > │ │
00:06:19 #27138 [verbose] > │ │
00:06:19 #27139 [verbose] > ╰──────────────────────────────────────────────────────────────────────────────╯
00:06:19 #27140 [verbose] >
00:06:19 #27141 [verbose] > ── markdown ────────────────────────────────────────────────────────────────────
00:06:19 #27142 [verbose] > ╭──────────────────────────────────────────────────────────────────────────────╮
00:06:19 #27143 [verbose] > │ ## types │
00:06:19 #27144 [verbose] > ╰──────────────────────────────────────────────────────────────────────────────╯
00:06:19 #27145 [verbose] >
00:06:19 #27146 [verbose] > ── spiral ──────────────────────────────────────────────────────────────────────
00:06:19 #27147 [verbose] > inl types () =
00:06:19 #27148 [verbose] > global "[[<Fable.Core.Erase; Fable.Core.Emit(\"std::path::Path\")>]] type
00:06:19 #27149 [verbose] > std_path_Path = class end"
00:06:19 #27150 [verbose] > global "[[<Fable.Core.Erase; Fable.Core.Emit(\"std::path::PathBuf\")>]] type
00:06:19 #27151 [verbose] > std_path_PathBuf = class end"
00:06:19 #27152 [verbose] > Building c:\home\git\polyglot\target\polyglot\spiral_eval\packages\10e8d825215ddc433d9762663b783a1a3757de9b8d655e4d2f20a471bf28b89c\main.spi
00:06:19 #27153 [verbose] >
00:06:19 #27154 [verbose] > ╭─[ 301.91ms - stdout ]────────────────────────────────────────────────────────╮
00:06:19 #27155 [verbose] > │ () │
00:06:19 #27156 [verbose] > │ │
00:06:19 #27157 [verbose] > │ │
00:06:19 #27158 [verbose] > ╰──────────────────────────────────────────────────────────────────────────────╯
00:06:19 #27159 [verbose] >
00:06:19 #27160 [verbose] > ── spiral ──────────────────────────────────────────────────────────────────────
00:06:19 #27161 [verbose] > inl types () =
00:06:19 #27162 [verbose] > global "#if FABLE_COMPILER // file_system.types"
00:06:19 #27163 [verbose] > sm'.types ()
00:06:19 #27164 [verbose] > rust.types ()
00:06:19 #27165 [verbose] > types ()
00:06:19 #27166 [verbose] > global "#endif // file_system.types"
00:06:19 #27167 [verbose] > Building c:\home\git\polyglot\target\polyglot\spiral_eval\packages\e68733e68b764134f711ae7d46dbdbcc484436512d26d92371ce0b1a40f96191\main.spi
00:06:19 #27168 [verbose] >
00:06:19 #27169 [verbose] > ╭─[ 237.86ms - stdout ]────────────────────────────────────────────────────────╮
00:06:19 #27170 [verbose] > │ () │
00:06:19 #27171 [verbose] > │ │
00:06:19 #27172 [verbose] > │ │
00:06:19 #27173 [verbose] > ╰──────────────────────────────────────────────────────────────────────────────╯
00:06:19 #27174 [verbose] >
00:06:19 #27175 [verbose] > ── markdown ────────────────────────────────────────────────────────────────────
00:06:19 #27176 [verbose] > ╭──────────────────────────────────────────────────────────────────────────────╮
00:06:19 #27177 [verbose] > │ ## file_mode │
00:06:19 #27178 [verbose] > ╰──────────────────────────────────────────────────────────────────────────────╯
00:06:19 #27179 [verbose] >
00:06:19 #27180 [verbose] > ── spiral ──────────────────────────────────────────────────────────────────────
00:06:19 #27181 [verbose] > nominal file_mode' = $'System.IO.FileMode'
00:06:19 #27182 [verbose] >
00:06:19 #27183 [verbose] > union file_mode =
00:06:19 #27184 [verbose] > | ModeCreateNew
00:06:19 #27185 [verbose] > | ModeCreate
00:06:19 #27186 [verbose] > | ModeOpen
00:06:19 #27187 [verbose] > | ModeOpenOrCreate
00:06:19 #27188 [verbose] > | Truncate
00:06:19 #27189 [verbose] > | Append
00:06:19 #27190 [verbose] >
00:06:19 #27191 [verbose] > inl file_mode = function
00:06:19 #27192 [verbose] > | ModeCreateNew => $'System.IO.FileMode.CreateNew' : file_mode'
00:06:19 #27193 [verbose] > | ModeCreate => $'System.IO.FileMode.Create' : file_mode'
00:06:19 #27194 [verbose] > | ModeOpen => $'System.IO.FileMode.Open' : file_mode'
00:06:19 #27195 [verbose] > | ModeOpenOrCreate => $'System.IO.FileMode.OpenOrCreate' : file_mode'
00:06:19 #27196 [verbose] > | Truncate => $'System.IO.FileMode.Truncate' : file_mode'
00:06:19 #27197 [verbose] > | Append => $'System.IO.FileMode.Append' : file_mode'
00:06:20 #27198 [verbose] > Building c:\home\git\polyglot\target\polyglot\spiral_eval\packages\484b87615fe68fdb707b0bed291f001da522ed3f56cff1f5947f2854467a753d\main.spi
00:06:20 #27199 [verbose] >
00:06:20 #27200 [verbose] > ╭─[ 241.41ms - stdout ]────────────────────────────────────────────────────────╮
00:06:20 #27201 [verbose] > │ () │
00:06:20 #27202 [verbose] > │ │
00:06:20 #27203 [verbose] > │ │
00:06:20 #27204 [verbose] > ╰──────────────────────────────────────────────────────────────────────────────╯
00:06:20 #27205 [verbose] >
00:06:20 #27206 [verbose] > ── markdown ────────────────────────────────────────────────────────────────────
00:06:20 #27207 [verbose] > ╭──────────────────────────────────────────────────────────────────────────────╮
00:06:20 #27208 [verbose] > │ ## file_access │
00:06:20 #27209 [verbose] > ╰──────────────────────────────────────────────────────────────────────────────╯
00:06:20 #27210 [verbose] >
00:06:20 #27211 [verbose] > ── spiral ──────────────────────────────────────────────────────────────────────
00:06:20 #27212 [verbose] > nominal file_access' = $'System.IO.FileAccess'
00:06:20 #27213 [verbose] >
00:06:20 #27214 [verbose] > union file_access =
00:06:20 #27215 [verbose] > | AccessRead
00:06:20 #27216 [verbose] > | AccessWrite
00:06:20 #27217 [verbose] > | AccessReadWrite
00:06:20 #27218 [verbose] >
00:06:20 #27219 [verbose] > inl file_access = function
00:06:20 #27220 [verbose] > | AccessRead => $'System.IO.FileAccess.Read' : file_access'
00:06:20 #27221 [verbose] > | AccessWrite => $'System.IO.FileAccess.ReadWrite' : file_access'
00:06:20 #27222 [verbose] > | AccessReadWrite => $'System.IO.FileAccess.ReadWrite' : file_access'
00:06:20 #27223 [verbose] > Building c:\home\git\polyglot\target\polyglot\spiral_eval\packages\f1897c2318d589b3806ec362f586c664f962d48abef7663ed441c5187cb92dc5\main.spi
00:06:20 #27224 [verbose] >
00:06:20 #27225 [verbose] > ╭─[ 289.62ms - stdout ]────────────────────────────────────────────────────────╮
00:06:20 #27226 [verbose] > │ () │
00:06:20 #27227 [verbose] > │ │
00:06:20 #27228 [verbose] > │ │
00:06:20 #27229 [verbose] > ╰──────────────────────────────────────────────────────────────────────────────╯
00:06:20 #27230 [verbose] >
00:06:20 #27231 [verbose] > ── markdown ────────────────────────────────────────────────────────────────────
00:06:20 #27232 [verbose] > ╭──────────────────────────────────────────────────────────────────────────────╮
00:06:20 #27233 [verbose] > │ ## file_share │
00:06:20 #27234 [verbose] > ╰──────────────────────────────────────────────────────────────────────────────╯
00:06:20 #27235 [verbose] >
00:06:20 #27236 [verbose] > ── spiral ──────────────────────────────────────────────────────────────────────
00:06:20 #27237 [verbose] > nominal file_share' = $'System.IO.FileShare'
00:06:20 #27238 [verbose] >
00:06:20 #27239 [verbose] > union file_share =
00:06:20 #27240 [verbose] > | ShareNone
00:06:20 #27241 [verbose] > | ShareRead
00:06:20 #27242 [verbose] > | ShareWrite
00:06:20 #27243 [verbose] > | ShareReadWrite
00:06:20 #27244 [verbose] > | ShareDelete
00:06:20 #27245 [verbose] >
00:06:20 #27246 [verbose] > inl file_share = function
00:06:20 #27247 [verbose] > | ShareNone => $'System.IO.FileShare.None' : file_share'
00:06:20 #27248 [verbose] > | ShareRead => $'System.IO.FileShare.Read' : file_share'
00:06:20 #27249 [verbose] > | ShareWrite => $'System.IO.FileShare.Write' : file_share'
00:06:20 #27250 [verbose] > | ShareReadWrite => $'System.IO.FileShare.ReadWrite' : file_share'
00:06:20 #27251 [verbose] > | ShareDelete => $'System.IO.FileShare.Delete' : file_share'
00:06:20 #27252 [verbose] > Building c:\home\git\polyglot\target\polyglot\spiral_eval\packages\f4599e5fe72536acc1c1ba15d6cb145f3fb9d7147a52b31a38215cd4be3326ae\main.spi
00:06:20 #27253 [verbose] >
00:06:20 #27254 [verbose] > ╭─[ 218.57ms - stdout ]────────────────────────────────────────────────────────╮
00:06:20 #27255 [verbose] > │ () │
00:06:20 #27256 [verbose] > │ │
00:06:20 #27257 [verbose] > │ │
00:06:20 #27258 [verbose] > ╰──────────────────────────────────────────────────────────────────────────────╯
00:06:20 #27259 [verbose] >
00:06:20 #27260 [verbose] > ── markdown ────────────────────────────────────────────────────────────────────
00:06:20 #27261 [verbose] > ╭──────────────────────────────────────────────────────────────────────────────╮
00:06:20 #27262 [verbose] > │ ## file_stream │
00:06:20 #27263 [verbose] > ╰──────────────────────────────────────────────────────────────────────────────╯
00:06:20 #27264 [verbose] >
00:06:20 #27265 [verbose] > ── spiral ──────────────────────────────────────────────────────────────────────
00:06:20 #27266 [verbose] > nominal file_stream' = $'System.IO.FileStream'
00:06:20 #27267 [verbose] >
00:06:20 #27268 [verbose] > inl file_stream (path : string) mode access share : file_stream' =
00:06:20 #27269 [verbose] > run_target function
00:06:20 #27270 [verbose] > | Fsharp (Native) => fun () =>
00:06:20 #27271 [verbose] > inl mode = mode |> file_mode
00:06:20 #27272 [verbose] > inl access = access |> file_access
00:06:20 #27273 [verbose] > inl share = share |> file_share
00:06:20 #27274 [verbose] > $'new System.IO.FileStream (!path, !mode, !access, !share)'
00:06:20 #27275 [verbose] > | _ => fun () => null ()
00:06:20 #27276 [verbose] > Building c:\home\git\polyglot\target\polyglot\spiral_eval\packages\e9d00de34f54cd5950a679147d9884b659b41b666d3e05df0f3fd64514d863c5\main.spi
00:06:20 #27277 [verbose] >
00:06:20 #27278 [verbose] > ╭─[ 258.25ms - stdout ]────────────────────────────────────────────────────────╮
00:06:20 #27279 [verbose] > │ () │
00:06:20 #27280 [verbose] > │ │
00:06:20 #27281 [verbose] > │ │
00:06:20 #27282 [verbose] > ╰──────────────────────────────────────────────────────────────────────────────╯
00:06:20 #27283 [verbose] >
00:06:20 #27284 [verbose] > ── markdown ────────────────────────────────────────────────────────────────────
00:06:20 #27285 [verbose] > ╭──────────────────────────────────────────────────────────────────────────────╮
00:06:20 #27286 [verbose] > │ ## path │
00:06:20 #27287 [verbose] > ╰──────────────────────────────────────────────────────────────────────────────╯
00:06:20 #27288 [verbose] >
00:06:20 #27289 [verbose] > ── spiral ──────────────────────────────────────────────────────────────────────
00:06:20 #27290 [verbose] > nominal path = $'std_path_Path'
00:06:20 #27291 [verbose] > nominal path_buf = $'std_path_PathBuf'
00:06:21 #27292 [verbose] > Building c:\home\git\polyglot\target\polyglot\spiral_eval\packages\35d79212916f6890c31315266bbf13ac3a8f374727ea00859a67e269414521e5\main.spi
00:06:21 #27293 [verbose] >
00:06:21 #27294 [verbose] > ╭─[ 252.02ms - stdout ]────────────────────────────────────────────────────────╮
00:06:21 #27295 [verbose] > │ () │
00:06:21 #27296 [verbose] > │ │
00:06:21 #27297 [verbose] > │ │
00:06:21 #27298 [verbose] > ╰──────────────────────────────────────────────────────────────────────────────╯
00:06:21 #27299 [verbose] >
00:06:21 #27300 [verbose] > ── markdown ────────────────────────────────────────────────────────────────────
00:06:21 #27301 [verbose] > ╭──────────────────────────────────────────────────────────────────────────────╮
00:06:21 #27302 [verbose] > │ ## new_path_buf │
00:06:21 #27303 [verbose] > ╰──────────────────────────────────────────────────────────────────────────────╯
00:06:21 #27304 [verbose] >
00:06:21 #27305 [verbose] > ── spiral ──────────────────────────────────────────────────────────────────────
00:06:21 #27306 [verbose] > inl new_path_buf (path : string) : path_buf =
00:06:21 #27307 [verbose] > open rust_operators
00:06:21 #27308 [verbose] > inl path = path |> sm'.to_std_string
00:06:21 #27309 [verbose] > !\\(path, $'"std::path::PathBuf::from($0)"')
00:06:21 #27310 [verbose] > Building c:\home\git\polyglot\target\polyglot\spiral_eval\packages\7baad357bc03e35ecda7f8cf53cedf9ee6132b1eff380a0956f226835da5ba91\main.spi
00:06:21 #27311 [verbose] >
00:06:21 #27312 [verbose] > ╭─[ 225.00ms - stdout ]────────────────────────────────────────────────────────╮
00:06:21 #27313 [verbose] > │ () │
00:06:21 #27314 [verbose] > │ │
00:06:21 #27315 [verbose] > │ │
00:06:21 #27316 [verbose] > ╰──────────────────────────────────────────────────────────────────────────────╯
00:06:21 #27317 [verbose] >
00:06:21 #27318 [verbose] > ── markdown ────────────────────────────────────────────────────────────────────
00:06:21 #27319 [verbose] > ╭──────────────────────────────────────────────────────────────────────────────╮
00:06:21 #27320 [verbose] > │ ## path_buf_from │
00:06:21 #27321 [verbose] > ╰──────────────────────────────────────────────────────────────────────────────╯
00:06:21 #27322 [verbose] >
00:06:21 #27323 [verbose] > ── spiral ──────────────────────────────────────────────────────────────────────
00:06:21 #27324 [verbose] > inl path_buf_from (path : rust.box path) : path_buf =
00:06:21 #27325 [verbose] > open rust_operators
00:06:21 #27326 [verbose] > !\\(path, $'"std::path::PathBuf::from($0)"')
00:06:21 #27327 [verbose] > Building c:\home\git\polyglot\target\polyglot\spiral_eval\packages\d928a0ce805e6e889177d873f242e9845297cc61910809a039c8ab5dd6bfe924\main.spi
00:06:21 #27328 [verbose] >
00:06:21 #27329 [verbose] > ╭─[ 246.04ms - stdout ]────────────────────────────────────────────────────────╮
00:06:21 #27330 [verbose] > │ () │
00:06:21 #27331 [verbose] > │ │
00:06:21 #27332 [verbose] > │ │
00:06:21 #27333 [verbose] > ╰──────────────────────────────────────────────────────────────────────────────╯
00:06:21 #27334 [verbose] >
00:06:21 #27335 [verbose] > ── markdown ────────────────────────────────────────────────────────────────────
00:06:21 #27336 [verbose] > ╭──────────────────────────────────────────────────────────────────────────────╮
00:06:21 #27337 [verbose] > │ ## path_join │
00:06:21 #27338 [verbose] > ╰──────────────────────────────────────────────────────────────────────────────╯
00:06:21 #27339 [verbose] >
00:06:21 #27340 [verbose] > ── spiral ──────────────────────────────────────────────────────────────────────
00:06:21 #27341 [verbose] > inl path_join (s : string) (path_buf : path_buf) : path_buf =
00:06:21 #27342 [verbose] > open rust_operators
00:06:21 #27343 [verbose] > !\\((path_buf, s |> sm'.to_std_string), $'"$0.join($1)"')
00:06:21 #27344 [verbose] > Building c:\home\git\polyglot\target\polyglot\spiral_eval\packages\5638cc72691b554ae2d57be04679caa80415feaacb826e81ccc0359db518eeb5\main.spi
00:06:21 #27345 [verbose] >
00:06:21 #27346 [verbose] > ╭─[ 268.62ms - stdout ]────────────────────────────────────────────────────────╮
00:06:21 #27347 [verbose] > │ () │
00:06:21 #27348 [verbose] > │ │
00:06:21 #27349 [verbose] > │ │
00:06:21 #27350 [verbose] > ╰──────────────────────────────────────────────────────────────────────────────╯
00:06:21 #27351 [verbose] >
00:06:21 #27352 [verbose] > ── markdown ────────────────────────────────────────────────────────────────────
00:06:21 #27353 [verbose] > ╭──────────────────────────────────────────────────────────────────────────────╮
00:06:21 #27354 [verbose] > │ ## path_display │
00:06:21 #27355 [verbose] > ╰──────────────────────────────────────────────────────────────────────────────╯
00:06:21 #27356 [verbose] >
00:06:21 #27357 [verbose] > ── spiral ──────────────────────────────────────────────────────────────────────
00:06:21 #27358 [verbose] > inl path_display (path : rust.ref' path) : sm'.std_string =
00:06:21 #27359 [verbose] > open rust_operators
00:06:21 #27360 [verbose] > !\\(path, $'"$0.display().to_string()"')
00:06:22 #27361 [verbose] > Building c:\home\git\polyglot\target\polyglot\spiral_eval\packages\e27324cfedf3791b19b1931b7ae55a321f14b96fcd0ae76666afd4c8d17f58d3\main.spi
00:06:22 #27362 [verbose] >
00:06:22 #27363 [verbose] > ╭─[ 253.27ms - stdout ]────────────────────────────────────────────────────────╮
00:06:22 #27364 [verbose] > │ () │
00:06:22 #27365 [verbose] > │ │
00:06:22 #27366 [verbose] > │ │
00:06:22 #27367 [verbose] > ╰──────────────────────────────────────────────────────────────────────────────╯
00:06:22 #27368 [verbose] >
00:06:22 #27369 [verbose] > ── markdown ────────────────────────────────────────────────────────────────────
00:06:22 #27370 [verbose] > ╭──────────────────────────────────────────────────────────────────────────────╮
00:06:22 #27371 [verbose] > │ ## path_buf_file_name │
00:06:22 #27372 [verbose] > ╰──────────────────────────────────────────────────────────────────────────────╯
00:06:22 #27373 [verbose] >
00:06:22 #27374 [verbose] > ── spiral ──────────────────────────────────────────────────────────────────────
00:06:22 #27375 [verbose] > inl path_buf_file_name (path : path_buf) : optionm'.option' (rust.ref'
00:06:22 #27376 [verbose] > sm'.os_str) =
00:06:22 #27377 [verbose] > open rust_operators
00:06:22 #27378 [verbose] > !\($'"!path.file_name()"')
00:06:22 #27379 [verbose] > Building c:\home\git\polyglot\target\polyglot\spiral_eval\packages\609e6d2b938374c38bb307c0b969035066cb89ffcebc3d2cbc8ad338b3f4c110\main.spi
00:06:22 #27380 [verbose] >
00:06:22 #27381 [verbose] > ╭─[ 250.01ms - stdout ]────────────────────────────────────────────────────────╮
00:06:22 #27382 [verbose] > │ () │
00:06:22 #27383 [verbose] > │ │
00:06:22 #27384 [verbose] > │ │
00:06:22 #27385 [verbose] > ╰──────────────────────────────────────────────────────────────────────────────╯
00:06:22 #27386 [verbose] >
00:06:22 #27387 [verbose] > ── markdown ────────────────────────────────────────────────────────────────────
00:06:22 #27388 [verbose] > ╭──────────────────────────────────────────────────────────────────────────────╮
00:06:22 #27389 [verbose] > │ ## path_buf_display │
00:06:22 #27390 [verbose] > ╰──────────────────────────────────────────────────────────────────────────────╯
00:06:22 #27391 [verbose] >
00:06:22 #27392 [verbose] > ── spiral ──────────────────────────────────────────────────────────────────────
00:06:22 #27393 [verbose] > inl path_buf_display (path_buf : path_buf) : sm'.std_string =
00:06:22 #27394 [verbose] > open rust_operators
00:06:22 #27395 [verbose] > !\\(path_buf, $'"$0.display().to_string()"')
00:06:22 #27396 [verbose] > Building c:\home\git\polyglot\target\polyglot\spiral_eval\packages\c97bfb19456f1fe0a20519ebb24ac28ebf121575bb202ef5b7721d7e51417a74\main.spi
00:06:22 #27397 [verbose] >
00:06:22 #27398 [verbose] > ╭─[ 293.61ms - stdout ]────────────────────────────────────────────────────────╮
00:06:22 #27399 [verbose] > │ () │
00:06:22 #27400 [verbose] > │ │
00:06:22 #27401 [verbose] > │ │
00:06:22 #27402 [verbose] > ╰──────────────────────────────────────────────────────────────────────────────╯
00:06:22 #27403 [verbose] >
00:06:22 #27404 [verbose] > ── markdown ────────────────────────────────────────────────────────────────────
00:06:22 #27405 [verbose] > ╭──────────────────────────────────────────────────────────────────────────────╮
00:06:22 #27406 [verbose] > │ ## path_exists │
00:06:22 #27407 [verbose] > ╰──────────────────────────────────────────────────────────────────────────────╯
00:06:22 #27408 [verbose] >
00:06:22 #27409 [verbose] > ── spiral ──────────────────────────────────────────────────────────────────────
00:06:22 #27410 [verbose] > inl path_buf_exists (path_buf : path_buf) : bool =
00:06:22 #27411 [verbose] > open rust_operators
00:06:22 #27412 [verbose] > !\\(path_buf, $'"$0.exists()"')
00:06:22 #27413 [verbose] > Building c:\home\git\polyglot\target\polyglot\spiral_eval\packages\21d60e80919d6c096058e7f6419f02c121b9b8ed9b4a754cf9313fd560baf912\main.spi
00:06:23 #27414 [verbose] >
00:06:23 #27415 [verbose] > ╭─[ 517.64ms - stdout ]────────────────────────────────────────────────────────╮
00:06:23 #27416 [verbose] > │ () │
00:06:23 #27417 [verbose] > │ │
00:06:23 #27418 [verbose] > │ │
00:06:23 #27419 [verbose] > ╰──────────────────────────────────────────────────────────────────────────────╯
00:06:23 #27420 [verbose] >
00:06:23 #27421 [verbose] > ── markdown ────────────────────────────────────────────────────────────────────
00:06:23 #27422 [verbose] > ╭──────────────────────────────────────────────────────────────────────────────╮
00:06:23 #27423 [verbose] > │ ## path_is_dir │
00:06:23 #27424 [verbose] > ╰──────────────────────────────────────────────────────────────────────────────╯
00:06:23 #27425 [verbose] >
00:06:23 #27426 [verbose] > ── spiral ──────────────────────────────────────────────────────────────────────
00:06:23 #27427 [verbose] > inl path_buf_is_dir (path_buf : path_buf) : bool =
00:06:23 #27428 [verbose] > open rust_operators
00:06:23 #27429 [verbose] > !\\(path_buf, $'"$0.is_dir()"')
00:06:23 #27430 [verbose] > Building c:\home\git\polyglot\target\polyglot\spiral_eval\packages\69140b3077799c33c915a3c4f4d9820c1aa2af10ba1574ab69c295c8e90fce56\main.spi
00:06:23 #27431 [verbose] >
00:06:23 #27432 [verbose] > ╭─[ 279.75ms - stdout ]────────────────────────────────────────────────────────╮
00:06:23 #27433 [verbose] > │ () │
00:06:23 #27434 [verbose] > │ │
00:06:23 #27435 [verbose] > │ │
00:06:23 #27436 [verbose] > ╰──────────────────────────────────────────────────────────────────────────────╯
00:06:23 #27437 [verbose] >
00:06:23 #27438 [verbose] > ── markdown ────────────────────────────────────────────────────────────────────
00:06:23 #27439 [verbose] > ╭──────────────────────────────────────────────────────────────────────────────╮
00:06:23 #27440 [verbose] > │ ## path_is_file │
00:06:23 #27441 [verbose] > ╰──────────────────────────────────────────────────────────────────────────────╯
00:06:23 #27442 [verbose] >
00:06:23 #27443 [verbose] > ── spiral ──────────────────────────────────────────────────────────────────────
00:06:23 #27444 [verbose] > inl path_buf_is_file (path_buf : path_buf) : bool =
00:06:23 #27445 [verbose] > open rust_operators
00:06:23 #27446 [verbose] > !\\(path_buf, $'"$0.is_file()"')
00:06:23 #27447 [verbose] > Building c:\home\git\polyglot\target\polyglot\spiral_eval\packages\8ec59c7174d31994c0eb3ef68d083c8d80076eb0fe6c4841b3d0c01cc7463677\main.spi
00:06:23 #27448 [verbose] >
00:06:23 #27449 [verbose] > ╭─[ 283.55ms - stdout ]────────────────────────────────────────────────────────╮
00:06:23 #27450 [verbose] > │ () │
00:06:23 #27451 [verbose] > │ │
00:06:23 #27452 [verbose] > │ │
00:06:23 #27453 [verbose] > ╰──────────────────────────────────────────────────────────────────────────────╯
00:06:23 #27454 [verbose] >
00:06:23 #27455 [verbose] > ── markdown ────────────────────────────────────────────────────────────────────
00:06:23 #27456 [verbose] > ╭──────────────────────────────────────────────────────────────────────────────╮
00:06:23 #27457 [verbose] > │ ## path_buf_parent │
00:06:23 #27458 [verbose] > ╰──────────────────────────────────────────────────────────────────────────────╯
00:06:23 #27459 [verbose] >
00:06:23 #27460 [verbose] > ── spiral ──────────────────────────────────────────────────────────────────────
00:06:23 #27461 [verbose] > inl path_buf_parent (path_buf : path_buf) : optionm'.option' path_buf =
00:06:23 #27462 [verbose] > open rust_operators
00:06:23 #27463 [verbose] > !\\(path_buf, $'"$0.parent().map(std::path::PathBuf::from)"')
00:06:24 #27464 [verbose] > Building c:\home\git\polyglot\target\polyglot\spiral_eval\packages\9319952f747666870eee57be97ce9cc870ef9599f5c07c43a9416d0813f7b20d\main.spi
00:06:24 #27465 [verbose] >
00:06:24 #27466 [verbose] > ╭─[ 250.29ms - stdout ]────────────────────────────────────────────────────────╮
00:06:24 #27467 [verbose] > │ () │
00:06:24 #27468 [verbose] > │ │
00:06:24 #27469 [verbose] > │ │
00:06:24 #27470 [verbose] > ╰──────────────────────────────────────────────────────────────────────────────╯
00:06:24 #27471 [verbose] >
00:06:24 #27472 [verbose] > ── markdown ────────────────────────────────────────────────────────────────────
00:06:24 #27473 [verbose] > ╭──────────────────────────────────────────────────────────────────────────────╮
00:06:24 #27474 [verbose] > │ ## ts_path_join │
00:06:24 #27475 [verbose] > ╰──────────────────────────────────────────────────────────────────────────────╯
00:06:24 #27476 [verbose] >
00:06:24 #27477 [verbose] > ── spiral ──────────────────────────────────────────────────────────────────────
00:06:24 #27478 [verbose] > inl ts_path_join (b : string) (a : string) : string =
00:06:24 #27479 [verbose] > open ts_operators
00:06:24 #27480 [verbose] > global "type IPathJoin = abstract join: [[<System.ParamArray>]] paths:
00:06:24 #27481 [verbose] > string[[]] -> string"
00:06:24 #27482 [verbose] > inl path : $'IPathJoin' = ts.import_all "path"
00:06:24 #27483 [verbose] > !\\((a, b), $'"!path.join($0, $1)"')
00:06:24 #27484 [verbose] > Building c:\home\git\polyglot\target\polyglot\spiral_eval\packages\e4358c1b996e341f9adabad7687775c6b568823f6faef49d2fd054805b10ade9\main.spi
00:06:24 #27485 [verbose] >
00:06:24 #27486 [verbose] > ╭─[ 272.44ms - stdout ]────────────────────────────────────────────────────────╮
00:06:24 #27487 [verbose] > │ () │
00:06:24 #27488 [verbose] > │ │
00:06:24 #27489 [verbose] > │ │
00:06:24 #27490 [verbose] > ╰──────────────────────────────────────────────────────────────────────────────╯
00:06:24 #27491 [verbose] >
00:06:24 #27492 [verbose] > ── markdown ────────────────────────────────────────────────────────────────────
00:06:24 #27493 [verbose] > ╭──────────────────────────────────────────────────────────────────────────────╮
00:06:24 #27494 [verbose] > │ ## (< />) │
00:06:24 #27495 [verbose] > ╰──────────────────────────────────────────────────────────────────────────────╯
00:06:24 #27496 [verbose] >
00:06:24 #27497 [verbose] > ── spiral ──────────────────────────────────────────────────────────────────────
00:06:24 #27498 [verbose] > inl (</>) (a : string) (b : string) : string =
00:06:24 #27499 [verbose] > run_target function
00:06:24 #27500 [verbose] > | Rust (Native) => fun () =>
00:06:24 #27501 [verbose] > a |> new_path_buf |> path_join b |> path_buf_display |>
00:06:24 #27502 [verbose] > sm'.from_std_string
00:06:24 #27503 [verbose] > | Fsharp (Native) => fun () =>
00:06:24 #27504 [verbose] > $'System.IO.Path.Combine (!a, !b)'
00:06:24 #27505 [verbose] > | TypeScript _ => fun () =>
00:06:24 #27506 [verbose] > a |> ts_path_join b
00:06:24 #27507 [verbose] > | _ => fun () => null ()
00:06:24 #27508 [verbose] > Building c:\home\git\polyglot\target\polyglot\spiral_eval\packages\007ad635c9661a2cec0a2c5c2208dc4646ce88e42f1ef63cc6c9a2b95cde2953\main.spi
00:06:24 #27509 [verbose] >
00:06:24 #27510 [verbose] > ╭─[ 224.40ms - stdout ]────────────────────────────────────────────────────────╮
00:06:24 #27511 [verbose] > │ () │
00:06:24 #27512 [verbose] > │ │
00:06:24 #27513 [verbose] > │ │
00:06:24 #27514 [verbose] > ╰──────────────────────────────────────────────────────────────────────────────╯
00:06:24 #27515 [verbose] >
00:06:24 #27516 [verbose] > ── markdown ────────────────────────────────────────────────────────────────────
00:06:24 #27517 [verbose] > ╭──────────────────────────────────────────────────────────────────────────────╮
00:06:24 #27518 [verbose] > │ ## get_temp_path │
00:06:24 #27519 [verbose] > ╰──────────────────────────────────────────────────────────────────────────────╯
00:06:24 #27520 [verbose] >
00:06:24 #27521 [verbose] > ── spiral ──────────────────────────────────────────────────────────────────────
00:06:24 #27522 [verbose] > inl get_temp_path () : string =
00:06:24 #27523 [verbose] > $'System.IO.Path.GetTempPath' ()
00:06:24 #27524 [verbose] > Building c:\home\git\polyglot\target\polyglot\spiral_eval\packages\e84e15ef92cb8025f748044a7ea42476e0831601d649f8b383bd018eb08ab7d8\main.spi
00:06:24 #27525 [verbose] >
00:06:24 #27526 [verbose] > ╭─[ 255.12ms - stdout ]────────────────────────────────────────────────────────╮
00:06:24 #27527 [verbose] > │ () │
00:06:24 #27528 [verbose] > │ │
00:06:24 #27529 [verbose] > │ │
00:06:24 #27530 [verbose] > ╰──────────────────────────────────────────────────────────────────────────────╯
00:06:24 #27531 [verbose] >
00:06:24 #27532 [verbose] > ── markdown ────────────────────────────────────────────────────────────────────
00:06:24 #27533 [verbose] > ╭──────────────────────────────────────────────────────────────────────────────╮
00:06:24 #27534 [verbose] > │ ## get_file_name │
00:06:24 #27535 [verbose] > ╰──────────────────────────────────────────────────────────────────────────────╯
00:06:24 #27536 [verbose] >
00:06:24 #27537 [verbose] > ── spiral ──────────────────────────────────────────────────────────────────────
00:06:24 #27538 [verbose] > inl get_file_name (path : string) : string =
00:06:24 #27539 [verbose] > run_target function
00:06:24 #27540 [verbose] > | Fsharp (Native) => fun () =>
00:06:24 #27541 [verbose] > path |> $'System.IO.Path.GetFileName'
00:06:24 #27542 [verbose] > | _ => fun () => null ()
00:06:25 #27543 [verbose] > Building c:\home\git\polyglot\target\polyglot\spiral_eval\packages\c47505e13b585b7f79e1c32c7b8bfcd0755836e7fa4cb84935fad5bdb210a64e\main.spi
00:06:25 #27544 [verbose] >
00:06:25 #27545 [verbose] > ╭─[ 256.69ms - stdout ]────────────────────────────────────────────────────────╮
00:06:25 #27546 [verbose] > │ () │
00:06:25 #27547 [verbose] > │ │
00:06:25 #27548 [verbose] > │ │
00:06:25 #27549 [verbose] > ╰──────────────────────────────────────────────────────────────────────────────╯
00:06:25 #27550 [verbose] >
00:06:25 #27551 [verbose] > ── markdown ────────────────────────────────────────────────────────────────────
00:06:25 #27552 [verbose] > ╭──────────────────────────────────────────────────────────────────────────────╮
00:06:25 #27553 [verbose] > │ ## create_temp_directory_name │
00:06:25 #27554 [verbose] > ╰──────────────────────────────────────────────────────────────────────────────╯
00:06:25 #27555 [verbose] >
00:06:25 #27556 [verbose] > ── spiral ──────────────────────────────────────────────────────────────────────
00:06:25 #27557 [verbose] > inl create_temp_directory_name () =
00:06:25 #27558 [verbose] > run_target function
00:06:25 #27559 [verbose] > | Fsharp (Native) => fun () =>
00:06:25 #27560 [verbose] > get_temp_path ()
00:06:25 #27561 [verbose] > </> ($'$"\!{!get_entry_assembly_name ()}"' : string)
00:06:25 #27562 [verbose] > </> (date_time.now () |> date_time.new_guid_from_date_time |>
00:06:25 #27563 [verbose] > sm'.obj_to_string)
00:06:25 #27564 [verbose] > | target => fun () => null ()
00:06:25 #27565 [verbose] > Building c:\home\git\polyglot\target\polyglot\spiral_eval\packages\3b9f9e25d4a8f9c7640425b49cf43b2be7f026718abfaf7e8ad4ef43fb845152\main.spi
00:06:25 #27566 [verbose] >
00:06:25 #27567 [verbose] > ╭─[ 220.34ms - stdout ]────────────────────────────────────────────────────────╮
00:06:25 #27568 [verbose] > │ () │
00:06:25 #27569 [verbose] > │ │
00:06:25 #27570 [verbose] > │ │
00:06:25 #27571 [verbose] > ╰──────────────────────────────────────────────────────────────────────────────╯
00:06:25 #27572 [verbose] >
00:06:25 #27573 [verbose] > ── spiral ──────────────────────────────────────────────────────────────────────
00:06:25 #27574 [verbose] > // // test
00:06:25 #27575 [verbose] >
00:06:25 #27576 [verbose] > create_temp_directory_name ()
00:06:25 #27577 [verbose] > |> _assert_contains ($'System.IO.Path.DirectorySeparatorChar' : char)
00:06:25 #27578 [verbose] > Building c:\home\git\polyglot\target\polyglot\spiral_eval\packages\b8fa5422a3a0f51d068b69c04450e05ee04f3c061341f5753aca34269d34d204\main.spi
00:06:26 #27579 [verbose] >
00:06:26 #27580 [verbose] > ╭─[ 1.57s - stdout ]───────────────────────────────────────────────────────────╮
00:06:26 #27581 [verbose] > │ type IPathJoin = abstract join: [<System.ParamArray>] paths: string[] -> │
00:06:26 #27582 [verbose] > │ string │
00:06:26 #27583 [verbose] > │ type [<Struct>] US0 = │
00:06:26 #27584 [verbose] > │ | US0_0 of f0_0 : char │
00:06:26 #27585 [verbose] > │ | US0_1 │
00:06:26 #27586 [verbose] > │ let rec closure0 () () : string = │
00:06:26 #27587 [verbose] > │ let v0 : string option = None │
00:06:26 #27588 [verbose] > │ let mutable _v0 = v0 │
00:06:26 #27589 [verbose] > │ #if FABLE_COMPILER_RUST && !WASM && !CONTRACT │
00:06:26 #27590 [verbose] > │ let v1 : string = null |> unbox<string> │
00:06:26 #27591 [verbose] > │ v1 │
00:06:26 #27592 [verbose] > │ #endif │
00:06:26 #27593 [verbose] > │ #if FABLE_COMPILER_RUST && WASM │
00:06:26 #27594 [verbose] > │ let v2 : string = null |> unbox<string> │
00:06:26 #27595 [verbose] > │ v2 │
00:06:26 #27596 [verbose] > │ #endif │
00:06:26 #27597 [verbose] > │ #if FABLE_COMPILER_RUST && CONTRACT │
00:06:26 #27598 [verbose] > │ let v3 : string = null |> unbox<string> │
00:06:26 #27599 [verbose] > │ v3 │
00:06:26 #27600 [verbose] > │ #endif │
00:06:26 #27601 [verbose] > │ #if !FABLE_COMPILER && !FABLE_COMPILER_RUST && │
00:06:26 #27602 [verbose] > │ !FABLE_COMPILER_TYPESCRIPT && !WASM && !CONTRACT │
00:06:26 #27603 [verbose] > │ let v4 : string = │
00:06:26 #27604 [verbose] > │ System.Reflection.Assembly.GetEntryAssembly().GetName().Name │
00:06:26 #27605 [verbose] > │ v4 │
00:06:26 #27606 [verbose] > │ #endif │
00:06:26 #27607 [verbose] > │ #if FABLE_COMPILER_TYPESCRIPT │
00:06:26 #27608 [verbose] > │ let v5 : string = null |> unbox<string> │
00:06:26 #27609 [verbose] > │ v5 │
00:06:26 #27610 [verbose] > │ #endif │
00:06:26 #27611 [verbose] > │ #if FABLE_COMPILER_PYTHON || FABLE_COMPILER_PHP || FABLE_COMPILER_DART │
00:06:26 #27612 [verbose] > │ let v6 : string = Unchecked.defaultof<string> │
00:06:26 #27613 [verbose] > │ v6 │
00:06:26 #27614 [verbose] > │ #endif │
00:06:26 #27615 [verbose] > │ |> fun x -> _v0 <- Some x │
00:06:26 #27616 [verbose] > │ let v7 : string = _v0.Value │
00:06:26 #27617 [verbose] > │ v7 │
00:06:26 #27618 [verbose] > │ and method1 (v0 : string) : string = │
00:06:26 #27619 [verbose] > │ v0 │
00:06:26 #27620 [verbose] > │ and closure1 (v0 : char) (v1 : char) : bool = │
00:06:26 #27621 [verbose] > │ let v2 : bool = v0 = v1 │
00:06:26 #27622 [verbose] > │ v2 │
00:06:26 #27623 [verbose] > │ and closure2 () (v0 : char) : US0 = │
00:06:26 #27624 [verbose] > │ US0_0(v0) │
00:06:26 #27625 [verbose] > │ and method2 () : (char -> US0) = │
00:06:26 #27626 [verbose] > │ closure2() │
00:06:26 #27627 [verbose] > │ and method3 (v0 : bool) : bool = │
00:06:26 #27628 [verbose] > │ v0 │
00:06:26 #27629 [verbose] > │ and method0 () : unit = │
00:06:26 #27630 [verbose] > │ let v0 : string option = None │
00:06:26 #27631 [verbose] > │ let mutable _v0 = v0 │
00:06:26 #27632 [verbose] > │ #if FABLE_COMPILER_RUST && !WASM && !CONTRACT │
00:06:26 #27633 [verbose] > │ let v1 : string = null |> unbox<string> │
00:06:26 #27634 [verbose] > │ v1 │
00:06:26 #27635 [verbose] > │ #endif │
00:06:26 #27636 [verbose] > │ #if FABLE_COMPILER_RUST && WASM │
00:06:26 #27637 [verbose] > │ let v2 : string = null |> unbox<string> │
00:06:26 #27638 [verbose] > │ v2 │
00:06:26 #27639 [verbose] > │ #endif │
00:06:26 #27640 [verbose] > │ #if FABLE_COMPILER_RUST && CONTRACT │
00:06:26 #27641 [verbose] > │ let v3 : string = null |> unbox<string> │
00:06:26 #27642 [verbose] > │ v3 │
00:06:26 #27643 [verbose] > │ #endif │
00:06:26 #27644 [verbose] > │ #if !FABLE_COMPILER && !FABLE_COMPILER_RUST && │
00:06:26 #27645 [verbose] > │ !FABLE_COMPILER_TYPESCRIPT && !WASM && !CONTRACT │
00:06:26 #27646 [verbose] > │ let v4 : (unit -> string) = System.IO.Path.GetTempPath │
00:06:26 #27647 [verbose] > │ let v5 : string = v4 () │
00:06:26 #27648 [verbose] > │ let v6 : (unit -> string) = closure0() │
00:06:26 #27649 [verbose] > │ let v7 : string = $"!{v6 ()}" │
00:06:26 #27650 [verbose] > │ let v8 : string option = None │
00:06:26 #27651 [verbose] > │ let mutable _v8 = v8 │
00:06:26 #27652 [verbose] > │ #if FABLE_COMPILER_RUST && !WASM && !CONTRACT │
00:06:26 #27653 [verbose] > │ let v9 : string = method1(v5) │
00:06:26 #27654 [verbose] > │ let v10 : string = "fable_library_rust::String_::LrcStr::as_str(&$0)" │
00:06:26 #27655 [verbose] > │ let v11 : Ref<Str> = Fable.Core.RustInterop.emitRustExpr v9 v10 │
00:06:26 #27656 [verbose] > │ let v12 : string = "String::from($0)" │
00:06:26 #27657 [verbose] > │ let v13 : std_string_String = Fable.Core.RustInterop.emitRustExpr v11 │
00:06:26 #27658 [verbose] > │ v12 │
00:06:26 #27659 [verbose] > │ let v14 : string = "std::path::PathBuf::from($0)" │
00:06:26 #27660 [verbose] > │ let v15 : std_path_PathBuf = Fable.Core.RustInterop.emitRustExpr v13 v14 │
00:06:26 #27661 [verbose] > │ let v16 : string = method1(v7) │
00:06:26 #27662 [verbose] > │ let v17 : string = "fable_library_rust::String_::LrcStr::as_str(&$0)" │
00:06:26 #27663 [verbose] > │ let v18 : Ref<Str> = Fable.Core.RustInterop.emitRustExpr v16 v17 │
00:06:26 #27664 [verbose] > │ let v19 : string = "String::from($0)" │
00:06:26 #27665 [verbose] > │ let v20 : std_string_String = Fable.Core.RustInterop.emitRustExpr v18 │
00:06:26 #27666 [verbose] > │ v19 │
00:06:26 #27667 [verbose] > │ let v21 : string = "$0.join($1)" │
00:06:26 #27668 [verbose] > │ let v22 : std_path_PathBuf = Fable.Core.RustInterop.emitRustExpr struct │
00:06:26 #27669 [verbose] > │ (v15, v20) v21 │
00:06:26 #27670 [verbose] > │ let v23 : string = "$0.display().to_string()" │
00:06:26 #27671 [verbose] > │ let v24 : std_string_String = Fable.Core.RustInterop.emitRustExpr v22 │
00:06:26 #27672 [verbose] > │ v23 │
00:06:26 #27673 [verbose] > │ let v25 : string = "fable_library_rust::String_::fromString($0)" │
00:06:26 #27674 [verbose] > │ let v26 : string = Fable.Core.RustInterop.emitRustExpr v24 v25 │
00:06:26 #27675 [verbose] > │ v26 │
00:06:26 #27676 [verbose] > │ #endif │
00:06:26 #27677 [verbose] > │ #if FABLE_COMPILER_RUST && WASM │
00:06:26 #27678 [verbose] > │ let v27 : string = null |> unbox<string> │
00:06:26 #27679 [verbose] > │ v27 │
00:06:26 #27680 [verbose] > │ #endif │
00:06:26 #27681 [verbose] > │ #if FABLE_COMPILER_RUST && CONTRACT │
00:06:26 #27682 [verbose] > │ let v28 : string = null |> unbox<string> │
00:06:26 #27683 [verbose] > │ v28 │
00:06:26 #27684 [verbose] > │ #endif │
00:06:26 #27685 [verbose] > │ #if !FABLE_COMPILER && !FABLE_COMPILER_RUST && │
00:06:27 #27686 [verbose] > │ !FABLE_COMPILER_TYPESCRIPT && !WASM && !CONTRACT │
00:06:27 #27687 [verbose] > │ let v29 : string = System.IO.Path.Combine (v5, v7) │
00:06:27 #27688 [verbose] > │ v29 │
00:06:27 #27689 [verbose] > │ #endif │
00:06:27 #27690 [verbose] > │ #if FABLE_COMPILER_TYPESCRIPT │
00:06:27 #27691 [verbose] > │ let v30 : string = "path" │
00:06:27 #27692 [verbose] > │ let v31 : IPathJoin = Fable.Core.JsInterop.importAll v30 │
00:06:27 #27693 [verbose] > │ let v32 : string = "v31.join($0, $1)" │
00:06:27 #27694 [verbose] > │ let v33 : string = Fable.Core.JsInterop.emitJsExpr struct (v5, v7) v32 │
00:06:27 #27695 [verbose] > │ v33 │
00:06:27 #27696 [verbose] > │ #endif │
00:06:27 #27697 [verbose] > │ #if FABLE_COMPILER_PYTHON || FABLE_COMPILER_PHP || FABLE_COMPILER_DART │
00:06:27 #27698 [verbose] > │ let v34 : string = Unchecked.defaultof<string> │
00:06:27 #27699 [verbose] > │ v34 │
00:06:27 #27700 [verbose] > │ #endif │
00:06:27 #27701 [verbose] > │ |> fun x -> _v8 <- Some x │
00:06:27 #27702 [verbose] > │ let v35 : string = _v8.Value │
00:06:27 #27703 [verbose] > │ let v36 : System.DateTime = System.DateTime.Now │
00:06:27 #27704 [verbose] > │ let v37 : System.Guid = System.Guid.NewGuid () │
00:06:27 #27705 [verbose] > │ let v38 : (System.Guid -> string) = _.ToString() │
00:06:27 #27706 [verbose] > │ let v39 : string = v38 v37 │
00:06:27 #27707 [verbose] > │ let v40 : string = v36.ToString "yyyyMMdd-HHmm-ssff-ffff-f" │
00:06:27 #27708 [verbose] > │ let v41 : System.Guid = System.Guid $"{v40}{v39.[v40.Length..]}" │
00:06:27 #27709 [verbose] > │ let v42 : (System.Guid -> string) = _.ToString() │
00:06:27 #27710 [verbose] > │ let v43 : string = v42 v41 │
00:06:27 #27711 [verbose] > │ let v44 : string option = None │
00:06:27 #27712 [verbose] > │ let mutable _v44 = v44 │
00:06:27 #27713 [verbose] > │ #if FABLE_COMPILER_RUST && !WASM && !CONTRACT │
00:06:27 #27714 [verbose] > │ let v45 : string = method1(v35) │
00:06:27 #27715 [verbose] > │ let v46 : string = "fable_library_rust::String_::LrcStr::as_str(&$0)" │
00:06:27 #27716 [verbose] > │ let v47 : Ref<Str> = Fable.Core.RustInterop.emitRustExpr v45 v46 │
00:06:27 #27717 [verbose] > │ let v48 : string = "String::from($0)" │
00:06:27 #27718 [verbose] > │ let v49 : std_string_String = Fable.Core.RustInterop.emitRustExpr v47 │
00:06:27 #27719 [verbose] > │ v48 │
00:06:27 #27720 [verbose] > │ let v50 : string = "std::path::PathBuf::from($0)" │
00:06:27 #27721 [verbose] > │ let v51 : std_path_PathBuf = Fable.Core.RustInterop.emitRustExpr v49 v50 │
00:06:27 #27722 [verbose] > │ let v52 : string = method1(v43) │
00:06:27 #27723 [verbose] > │ let v53 : string = "fable_library_rust::String_::LrcStr::as_str(&$0)" │
00:06:27 #27724 [verbose] > │ let v54 : Ref<Str> = Fable.Core.RustInterop.emitRustExpr v52 v53 │
00:06:27 #27725 [verbose] > │ let v55 : string = "String::from($0)" │
00:06:27 #27726 [verbose] > │ let v56 : std_string_String = Fable.Core.RustInterop.emitRustExpr v54 │
00:06:27 #27727 [verbose] > │ v55 │
00:06:27 #27728 [verbose] > │ let v57 : string = "$0.join($1)" │
00:06:27 #27729 [verbose] > │ let v58 : std_path_PathBuf = Fable.Core.RustInterop.emitRustExpr struct │
00:06:27 #27730 [verbose] > │ (v51, v56) v57 │
00:06:27 #27731 [verbose] > │ let v59 : string = "$0.display().to_string()" │
00:06:27 #27732 [verbose] > │ let v60 : std_string_String = Fable.Core.RustInterop.emitRustExpr v58 │
00:06:27 #27733 [verbose] > │ v59 │
00:06:27 #27734 [verbose] > │ let v61 : string = "fable_library_rust::String_::fromString($0)" │
00:06:27 #27735 [verbose] > │ let v62 : string = Fable.Core.RustInterop.emitRustExpr v60 v61 │
00:06:27 #27736 [verbose] > │ v62 │
00:06:27 #27737 [verbose] > │ #endif │
00:06:27 #27738 [verbose] > │ #if FABLE_COMPILER_RUST && WASM │
00:06:27 #27739 [verbose] > │ let v63 : string = null |> unbox<string> │
00:06:27 #27740 [verbose] > │ v63 │
00:06:27 #27741 [verbose] > │ #endif │
00:06:27 #27742 [verbose] > │ #if FABLE_COMPILER_RUST && CONTRACT │
00:06:27 #27743 [verbose] > │ let v64 : string = null |> unbox<string> │
00:06:27 #27744 [verbose] > │ v64 │
00:06:27 #27745 [verbose] > │ #endif │
00:06:27 #27746 [verbose] > │ #if !FABLE_COMPILER && !FABLE_COMPILER_RUST && │
00:06:27 #27747 [verbose] > │ !FABLE_COMPILER_TYPESCRIPT && !WASM && !CONTRACT │
00:06:27 #27748 [verbose] > │ let v65 : string = System.IO.Path.Combine (v35, v43) │
00:06:27 #27749 [verbose] > │ v65 │
00:06:27 #27750 [verbose] > │ #endif │
00:06:27 #27751 [verbose] > │ #if FABLE_COMPILER_TYPESCRIPT │
00:06:27 #27752 [verbose] > │ let v66 : IPathJoin = Fable.Core.JsInterop.importAll v30 │
00:06:27 #27753 [verbose] > │ let v67 : string = "v66.join($0, $1)" │
00:06:27 #27754 [verbose] > │ let v68 : string = Fable.Core.JsInterop.emitJsExpr struct (v35, v43) v67 │
00:06:27 #27755 [verbose] > │ v68 │
00:06:27 #27756 [verbose] > │ #endif │
00:06:27 #27757 [verbose] > │ #if FABLE_COMPILER_PYTHON || FABLE_COMPILER_PHP || FABLE_COMPILER_DART │
00:06:27 #27758 [verbose] > │ let v69 : string = Unchecked.defaultof<string> │
00:06:27 #27759 [verbose] > │ v69 │
00:06:27 #27760 [verbose] > │ #endif │
00:06:27 #27761 [verbose] > │ |> fun x -> _v44 <- Some x │
00:06:27 #27762 [verbose] > │ let v70 : string = _v44.Value │
00:06:27 #27763 [verbose] > │ v70 │
00:06:27 #27764 [verbose] > │ #endif │
00:06:27 #27765 [verbose] > │ #if FABLE_COMPILER_TYPESCRIPT │
00:06:27 #27766 [verbose] > │ let v71 : string = null |> unbox<string> │
00:06:27 #27767 [verbose] > │ v71 │
00:06:27 #27768 [verbose] > │ #endif │
00:06:27 #27769 [verbose] > │ #if FABLE_COMPILER_PYTHON || FABLE_COMPILER_PHP || FABLE_COMPILER_DART │
00:06:27 #27770 [verbose] > │ let v72 : string = Unchecked.defaultof<string> │
00:06:27 #27771 [verbose] > │ v72 │
00:06:27 #27772 [verbose] > │ #endif │
00:06:27 #27773 [verbose] > │ |> fun x -> _v0 <- Some x │
00:06:27 #27774 [verbose] > │ let v73 : string = _v0.Value │
00:06:27 #27775 [verbose] > │ let v74 : char = System.IO.Path.DirectorySeparatorChar │
00:06:27 #27776 [verbose] > │ let v75 : string = $"%A{v73}" │
00:06:27 #27777 [verbose] > │ System.Console.WriteLine v75 │
00:06:27 #27778 [verbose] > │ let v76 : (string -> char list) = List.ofSeq │
00:06:27 #27779 [verbose] > │ let v77 : char list = v76 v73 │
00:06:27 #27780 [verbose] > │ let v78 : ((char -> bool) -> (char list -> char option)) = List.tryFind │
00:06:27 #27781 [verbose] > │ let v79 : (char -> bool) = closure1(v74) │
00:06:27 #27782 [verbose] > │ let v80 : (char list -> char option) = v78 v79 │
00:06:27 #27783 [verbose] > │ let v81 : char option = v80 v77 │
00:06:27 #27784 [verbose] > │ let v82 : (char -> US0) = method2() │
00:06:27 #27785 [verbose] > │ let v83 : US0 = US0_1 │
00:06:27 #27786 [verbose] > │ let v84 : US0 = v81 |> Option.map v82 |> Option.defaultValue v83 │
00:06:27 #27787 [verbose] > │ let v86 : bool = │
00:06:27 #27788 [verbose] > │ match v84 with │
00:06:27 #27789 [verbose] > │ | US0_1 -> (* None *) │
00:06:27 #27790 [verbose] > │ true │
00:06:27 #27791 [verbose] > │ | _ -> │
00:06:27 #27792 [verbose] > │ false │
00:06:27 #27793 [verbose] > │ let v87 : bool = v86 <> true │
00:06:27 #27794 [verbose] > │ let v89 : bool = │
00:06:27 #27795 [verbose] > │ if v87 then │
00:06:27 #27796 [verbose] > │ true │
00:06:27 #27797 [verbose] > │ else │
00:06:27 #27798 [verbose] > │ method3(v87) │
00:06:27 #27799 [verbose] > │ let v90 : string = $"__expect / actual: %A{v73} / expected: %A{v74}" │
00:06:27 #27800 [verbose] > │ let v91 : bool = v89 = false │
00:06:27 #27801 [verbose] > │ if v91 then │
00:06:27 #27802 [verbose] > │ failwith<unit> v90 │
00:06:27 #27803 [verbose] > │ method0() │
00:06:27 #27804 [verbose] > │ │
00:06:27 #27805 [verbose] > │ "C:\Users\i574n\AppData\Local\Temp\!dotnet-repl\20240413-0458-3675-7545-7745 │
00:06:27 #27806 [verbose] > │ df5af61c" │
00:06:27 #27807 [verbose] > │ │
00:06:27 #27808 [verbose] > ╰──────────────────────────────────────────────────────────────────────────────╯
00:06:27 #27809 [verbose] >
00:06:27 #27810 [verbose] > ── markdown ────────────────────────────────────────────────────────────────────
00:06:27 #27811 [verbose] > ╭──────────────────────────────────────────────────────────────────────────────╮
00:06:27 #27812 [verbose] > │ ## directory_info │
00:06:27 #27813 [verbose] > ╰──────────────────────────────────────────────────────────────────────────────╯
00:06:27 #27814 [verbose] >
00:06:27 #27815 [verbose] > ── spiral ──────────────────────────────────────────────────────────────────────
00:06:27 #27816 [verbose] > nominal directory_info = $'System.IO.DirectoryInfo'
00:06:27 #27817 [verbose] >
00:06:27 #27818 [verbose] > inl directory_info (path : string) : directory_info =
00:06:27 #27819 [verbose] > path |> $'`directory_info '
00:06:27 #27820 [verbose] > Building c:\home\git\polyglot\target\polyglot\spiral_eval\packages\5466402083aea3dc26c9b1b4876f1778846baf79383e479b88a8836487b7e821\main.spi
00:06:27 #27821 [verbose] >
00:06:27 #27822 [verbose] > ╭─[ 275.31ms - stdout ]────────────────────────────────────────────────────────╮
00:06:27 #27823 [verbose] > │ () │
00:06:27 #27824 [verbose] > │ │
00:06:27 #27825 [verbose] > │ │
00:06:27 #27826 [verbose] > ╰──────────────────────────────────────────────────────────────────────────────╯
00:06:27 #27827 [verbose] >
00:06:27 #27828 [verbose] > ── markdown ────────────────────────────────────────────────────────────────────
00:06:27 #27829 [verbose] > ╭──────────────────────────────────────────────────────────────────────────────╮
00:06:27 #27830 [verbose] > │ ## directory_info_exists │
00:06:27 #27831 [verbose] > ╰──────────────────────────────────────────────────────────────────────────────╯
00:06:27 #27832 [verbose] >
00:06:27 #27833 [verbose] > ── spiral ──────────────────────────────────────────────────────────────────────
00:06:27 #27834 [verbose] > inl directory_info_exists (info : directory_info) : bool =
00:06:27 #27835 [verbose] > run_target function
00:06:27 #27836 [verbose] > | Fsharp (Native) => fun () =>
00:06:27 #27837 [verbose] > $'!info.Exists'
00:06:27 #27838 [verbose] > | _ => fun () => null ()
00:06:27 #27839 [verbose] > Building c:\home\git\polyglot\target\polyglot\spiral_eval\packages\d68c04ebda50d54a988fc8b0a91d92d14503d25de13ce8d191cdf9bcb1695ab3\main.spi
00:06:27 #27840 [verbose] >
00:06:27 #27841 [verbose] > ╭─[ 241.21ms - stdout ]────────────────────────────────────────────────────────╮
00:06:27 #27842 [verbose] > │ () │
00:06:27 #27843 [verbose] > │ │
00:06:27 #27844 [verbose] > │ │
00:06:27 #27845 [verbose] > ╰──────────────────────────────────────────────────────────────────────────────╯
00:06:27 #27846 [verbose] >
00:06:27 #27847 [verbose] > ── markdown ────────────────────────────────────────────────────────────────────
00:06:27 #27848 [verbose] > ╭──────────────────────────────────────────────────────────────────────────────╮
00:06:27 #27849 [verbose] > │ ## directory_info_creation_time │
00:06:27 #27850 [verbose] > ╰──────────────────────────────────────────────────────────────────────────────╯
00:06:27 #27851 [verbose] >
00:06:27 #27852 [verbose] > ── spiral ──────────────────────────────────────────────────────────────────────
00:06:27 #27853 [verbose] > inl directory_info_creation_time (info : directory_info) : date_time.date_time =
00:06:27 #27854 [verbose] > run_target function
00:06:27 #27855 [verbose] > | Fsharp (Native) => fun () =>
00:06:27 #27856 [verbose] > $'!info.CreationTime'
00:06:27 #27857 [verbose] > | _ => fun () => null ()
00:06:27 #27858 [verbose] > Building c:\home\git\polyglot\target\polyglot\spiral_eval\packages\7da088a91c81266592eca6af105ecb47c29efd74ac091ebb8a58f4e661bc6c30\main.spi
00:06:27 #27859 [verbose] >
00:06:27 #27860 [verbose] > ╭─[ 252.20ms - stdout ]────────────────────────────────────────────────────────╮
00:06:27 #27861 [verbose] > │ () │
00:06:27 #27862 [verbose] > │ │
00:06:27 #27863 [verbose] > │ │
00:06:27 #27864 [verbose] > ╰──────────────────────────────────────────────────────────────────────────────╯
00:06:27 #27865 [verbose] >
00:06:27 #27866 [verbose] > ── markdown ────────────────────────────────────────────────────────────────────
00:06:27 #27867 [verbose] > ╭──────────────────────────────────────────────────────────────────────────────╮
00:06:27 #27868 [verbose] > │ ## directory_info_name │
00:06:27 #27869 [verbose] > ╰──────────────────────────────────────────────────────────────────────────────╯
00:06:27 #27870 [verbose] >
00:06:27 #27871 [verbose] > ── spiral ──────────────────────────────────────────────────────────────────────
00:06:27 #27872 [verbose] > inl directory_info_name (info : directory_info) : string =
00:06:27 #27873 [verbose] > run_target function
00:06:27 #27874 [verbose] > | Fsharp (Native) => fun () =>
00:06:27 #27875 [verbose] > $'!info.Name'
00:06:27 #27876 [verbose] > | _ => fun () => null ()
00:06:27 #27877 [verbose] > Building c:\home\git\polyglot\target\polyglot\spiral_eval\packages\02ded3fb4ac663c21ae263254afea73e4b79d23b21790dc7adbb65b7b2606933\main.spi
00:06:28 #27878 [verbose] >
00:06:28 #27879 [verbose] > ╭─[ 215.12ms - stdout ]────────────────────────────────────────────────────────╮
00:06:28 #27880 [verbose] > │ () │
00:06:28 #27881 [verbose] > │ │
00:06:28 #27882 [verbose] > │ │
00:06:28 #27883 [verbose] > ╰──────────────────────────────────────────────────────────────────────────────╯
00:06:28 #27884 [verbose] >
00:06:28 #27885 [verbose] > ── markdown ────────────────────────────────────────────────────────────────────
00:06:28 #27886 [verbose] > ╭──────────────────────────────────────────────────────────────────────────────╮
00:06:28 #27887 [verbose] > │ ## directory_info_full_name │
00:06:28 #27888 [verbose] > ╰──────────────────────────────────────────────────────────────────────────────╯
00:06:28 #27889 [verbose] >
00:06:28 #27890 [verbose] > ── spiral ──────────────────────────────────────────────────────────────────────
00:06:28 #27891 [verbose] > inl directory_info_full_name (info : directory_info) : string =
00:06:28 #27892 [verbose] > run_target function
00:06:28 #27893 [verbose] > | Fsharp (Native) => fun () =>
00:06:28 #27894 [verbose] > $'!info.FullName'
00:06:28 #27895 [verbose] > | _ => fun () => null ()
00:06:28 #27896 [verbose] > Building c:\home\git\polyglot\target\polyglot\spiral_eval\packages\f33f48a1e0e53f9b2a7aa374be2ebdc3297314e1cd3a311ab69122d2e979ae2e\main.spi
00:06:28 #27897 [verbose] >
00:06:28 #27898 [verbose] > ╭─[ 218.93ms - stdout ]────────────────────────────────────────────────────────╮
00:06:28 #27899 [verbose] > │ () │
00:06:28 #27900 [verbose] > │ │
00:06:28 #27901 [verbose] > │ │
00:06:28 #27902 [verbose] > ╰──────────────────────────────────────────────────────────────────────────────╯
00:06:28 #27903 [verbose] >
00:06:28 #27904 [verbose] > ── markdown ────────────────────────────────────────────────────────────────────
00:06:28 #27905 [verbose] > ╭──────────────────────────────────────────────────────────────────────────────╮
00:06:28 #27906 [verbose] > │ ## get_source_directory │
00:06:28 #27907 [verbose] > ╰──────────────────────────────────────────────────────────────────────────────╯
00:06:28 #27908 [verbose] >
00:06:28 #27909 [verbose] > ── spiral ──────────────────────────────────────────────────────────────────────
00:06:28 #27910 [verbose] > inl get_source_directory () =
00:06:28 #27911 [verbose] > $'__SOURCE_DIRECTORY__' : string
00:06:28 #27912 [verbose] > Building c:\home\git\polyglot\target\polyglot\spiral_eval\packages\5e1ac56a7ac1c0051346307b84c5ad8ad4996d99ebfafb6b3a013208d106791e\main.spi
00:06:28 #27913 [verbose] >
00:06:28 #27914 [verbose] > ╭─[ 242.39ms - stdout ]────────────────────────────────────────────────────────╮
00:06:28 #27915 [verbose] > │ () │
00:06:28 #27916 [verbose] > │ │
00:06:28 #27917 [verbose] > │ │
00:06:28 #27918 [verbose] > ╰──────────────────────────────────────────────────────────────────────────────╯
00:06:28 #27919 [verbose] >
00:06:28 #27920 [verbose] > ── spiral ──────────────────────────────────────────────────────────────────────
00:06:28 #27921 [verbose] > // // test
00:06:28 #27922 [verbose] >
00:06:28 #27923 [verbose] > get_source_directory ()
00:06:28 #27924 [verbose] > |> directory_info
00:06:28 #27925 [verbose] > |> directory_info_name
00:06:28 #27926 [verbose] > |> _assert_eq "spiral"
00:06:28 #27927 [verbose] > Building c:\home\git\polyglot\target\polyglot\spiral_eval\packages\181a3e7fc4797a329b7900bfb753b38a5f8630b6da11347da236209cc94d15e9\main.spi
00:06:28 #27928 [verbose] >
00:06:28 #27929 [verbose] > ╭─[ 275.99ms - stdout ]────────────────────────────────────────────────────────╮
00:06:28 #27930 [verbose] > │ let rec method1 (v0 : bool) : bool = │
00:06:28 #27931 [verbose] > │ v0 │
00:06:28 #27932 [verbose] > │ and method0 () : unit = │
00:06:28 #27933 [verbose] > │ let v0 : string = __SOURCE_DIRECTORY__ │
00:06:28 #27934 [verbose] > │ let v1 : (string -> System.IO.DirectoryInfo) = System.IO.DirectoryInfo │
00:06:28 #27935 [verbose] > │ let v2 : System.IO.DirectoryInfo = v1 v0 │
00:06:28 #27936 [verbose] > │ let v3 : string option = None │
00:06:28 #27937 [verbose] > │ let mutable _v3 = v3 │
00:06:28 #27938 [verbose] > │ #if FABLE_COMPILER_RUST && !WASM && !CONTRACT │
00:06:28 #27939 [verbose] > │ let v4 : string = null |> unbox<string> │
00:06:28 #27940 [verbose] > │ v4 │
00:06:28 #27941 [verbose] > │ #endif │
00:06:28 #27942 [verbose] > │ #if FABLE_COMPILER_RUST && WASM │
00:06:28 #27943 [verbose] > │ let v5 : string = null |> unbox<string> │
00:06:28 #27944 [verbose] > │ v5 │
00:06:28 #27945 [verbose] > │ #endif │
00:06:28 #27946 [verbose] > │ #if FABLE_COMPILER_RUST && CONTRACT │
00:06:28 #27947 [verbose] > │ let v6 : string = null |> unbox<string> │
00:06:28 #27948 [verbose] > │ v6 │
00:06:28 #27949 [verbose] > │ #endif │
00:06:28 #27950 [verbose] > │ #if !FABLE_COMPILER && !FABLE_COMPILER_RUST && │
00:06:28 #27951 [verbose] > │ !FABLE_COMPILER_TYPESCRIPT && !WASM && !CONTRACT │
00:06:28 #27952 [verbose] > │ let v7 : string = v2.Name │
00:06:28 #27953 [verbose] > │ v7 │
00:06:28 #27954 [verbose] > │ #endif │
00:06:28 #27955 [verbose] > │ #if FABLE_COMPILER_TYPESCRIPT │
00:06:28 #27956 [verbose] > │ let v8 : string = null |> unbox<string> │
00:06:28 #27957 [verbose] > │ v8 │
00:06:28 #27958 [verbose] > │ #endif │
00:06:28 #27959 [verbose] > │ #if FABLE_COMPILER_PYTHON || FABLE_COMPILER_PHP || FABLE_COMPILER_DART │
00:06:28 #27960 [verbose] > │ let v9 : string = Unchecked.defaultof<string> │
00:06:28 #27961 [verbose] > │ v9 │
00:06:28 #27962 [verbose] > │ #endif │
00:06:28 #27963 [verbose] > │ |> fun x -> _v3 <- Some x │
00:06:28 #27964 [verbose] > │ let v10 : string = _v3.Value │
00:06:28 #27965 [verbose] > │ let v11 : string = $"%A{v10}" │
00:06:28 #27966 [verbose] > │ System.Console.WriteLine v11 │
00:06:28 #27967 [verbose] > │ let v13 : bool = v10 = "spiral" │
00:06:28 #27968 [verbose] > │ let v15 : bool = │
00:06:28 #27969 [verbose] > │ if v13 then │
00:06:28 #27970 [verbose] > │ true │
00:06:28 #27971 [verbose] > │ else │
00:06:28 #27972 [verbose] > │ method1(v13) │
00:06:28 #27973 [verbose] > │ let v16 : string = "spiral" │
00:06:28 #27974 [verbose] > │ let v17 : string = $"__expect / actual: %A{v10} / expected: %A{v16}" │
00:06:28 #27975 [verbose] > │ let v18 : bool = v15 = false │
00:06:28 #27976 [verbose] > │ if v18 then │
00:06:28 #27977 [verbose] > │ failwith<unit> v17 │
00:06:28 #27978 [verbose] > │ method0() │
00:06:28 #27979 [verbose] > │ │
00:06:28 #27980 [verbose] > │ "spiral" │
00:06:28 #27981 [verbose] > │ │
00:06:28 #27982 [verbose] > ╰──────────────────────────────────────────────────────────────────────────────╯
00:06:28 #27983 [verbose] >
00:06:28 #27984 [verbose] > ── markdown ────────────────────────────────────────────────────────────────────
00:06:28 #27985 [verbose] > ╭──────────────────────────────────────────────────────────────────────────────╮
00:06:28 #27986 [verbose] > │ ## create_directory │
00:06:28 #27987 [verbose] > ╰──────────────────────────────────────────────────────────────────────────────╯
00:06:28 #27988 [verbose] >
00:06:28 #27989 [verbose] > ── spiral ──────────────────────────────────────────────────────────────────────
00:06:28 #27990 [verbose] > inl create_directory (path : string) : directory_info =
00:06:28 #27991 [verbose] > run_target function
00:06:28 #27992 [verbose] > | Fsharp (Native) => fun () =>
00:06:28 #27993 [verbose] > path |> $'System.IO.Directory.CreateDirectory'
00:06:28 #27994 [verbose] > | _ => fun () => null ()
00:06:28 #27995 [verbose] > Building c:\home\git\polyglot\target\polyglot\spiral_eval\packages\0b3824446321b020fd0dfa251646c22db315f9ead0c8ce415544d57b5d6fcbc8\main.spi
00:06:29 #27996 [verbose] >
00:06:29 #27997 [verbose] > ╭─[ 242.54ms - stdout ]────────────────────────────────────────────────────────╮
00:06:29 #27998 [verbose] > │ () │
00:06:29 #27999 [verbose] > │ │
00:06:29 #28000 [verbose] > │ │
00:06:29 #28001 [verbose] > ╰──────────────────────────────────────────────────────────────────────────────╯
00:06:29 #28002 [verbose] >
00:06:29 #28003 [verbose] > ── markdown ────────────────────────────────────────────────────────────────────
00:06:29 #28004 [verbose] > ╭──────────────────────────────────────────────────────────────────────────────╮
00:06:29 #28005 [verbose] > │ ## directory_exists │
00:06:29 #28006 [verbose] > ╰──────────────────────────────────────────────────────────────────────────────╯
00:06:29 #28007 [verbose] >
00:06:29 #28008 [verbose] > ── spiral ──────────────────────────────────────────────────────────────────────
00:06:29 #28009 [verbose] > inl directory_exists (path : string) : bool =
00:06:29 #28010 [verbose] > run_target function
00:06:29 #28011 [verbose] > | Rust (Native) => fun () =>
00:06:29 #28012 [verbose] > inl path = path |> new_path_buf
00:06:29 #28013 [verbose] > (path |> path_buf_exists) && (path |> path_buf_is_dir)
00:06:29 #28014 [verbose] > | Fsharp (Native) => fun () =>
00:06:29 #28015 [verbose] > path |> $'System.IO.Directory.Exists'
00:06:29 #28016 [verbose] > | TypeScript (Native) => fun () =>
00:06:29 #28017 [verbose] > global "type IFsExistsSync = abstract existsSync: path: string ->
00:06:29 #28018 [verbose] > bool"
00:06:29 #28019 [verbose] > inl fs : $'IFsExistsSync' = ts.import_all "fs"
00:06:29 #28020 [verbose] > ts.emit_expr path $'"!fs.existsSync($0)"'
00:06:29 #28021 [verbose] > | _ => fun () => null ()
00:06:29 #28022 [verbose] > Building c:\home\git\polyglot\target\polyglot\spiral_eval\packages\40ae47aa17b6f6fc26907ecf2e785469ad7d25084e81f015eecbfdc13ea0e033\main.spi
00:06:29 #28023 [verbose] >
00:06:29 #28024 [verbose] > ╭─[ 249.73ms - stdout ]────────────────────────────────────────────────────────╮
00:06:29 #28025 [verbose] > │ () │
00:06:29 #28026 [verbose] > │ │
00:06:29 #28027 [verbose] > │ │
00:06:29 #28028 [verbose] > ╰──────────────────────────────────────────────────────────────────────────────╯
00:06:29 #28029 [verbose] >
00:06:29 #28030 [verbose] > ── markdown ────────────────────────────────────────────────────────────────────
00:06:29 #28031 [verbose] > ╭──────────────────────────────────────────────────────────────────────────────╮
00:06:29 #28032 [verbose] > │ ## directory_get_parent │
00:06:29 #28033 [verbose] > ╰──────────────────────────────────────────────────────────────────────────────╯
00:06:29 #28034 [verbose] >
00:06:29 #28035 [verbose] > ── spiral ──────────────────────────────────────────────────────────────────────
00:06:29 #28036 [verbose] > inl directory_get_parent (path : string) : optionm'.option' string =
00:06:29 #28037 [verbose] > run_target function
00:06:29 #28038 [verbose] > | Rust (Native) => fun () =>
00:06:29 #28039 [verbose] > path
00:06:29 #28040 [verbose] > |> new_path_buf
00:06:29 #28041 [verbose] > |> path_buf_parent
00:06:29 #28042 [verbose] > |> optionm'.try'
00:06:29 #28043 [verbose] > |> path_buf_display
00:06:29 #28044 [verbose] > |> sm'.from_std_string
00:06:29 #28045 [verbose] > |> Some
00:06:29 #28046 [verbose] > | Fsharp (Native) => fun () =>
00:06:29 #28047 [verbose] > inl parent : directory_info = path |>
00:06:29 #28048 [verbose] > $'System.IO.Directory.GetParent'
00:06:29 #28049 [verbose] > if parent =. null ()
00:06:29 #28050 [verbose] > then None
00:06:29 #28051 [verbose] > else parent |> directory_info_full_name |> Some
00:06:29 #28052 [verbose] > | TypeScript _ => fun () =>
00:06:29 #28053 [verbose] > global "type IPathDirname = abstract dirname: path: string ->
00:06:29 #28054 [verbose] > string"
00:06:29 #28055 [verbose] > inl fs : $'IPathDirname' = ts.import_all "path"
00:06:29 #28056 [verbose] > ts.emit_expr path $'"!fs.dirname($0)"' |> Some
00:06:29 #28057 [verbose] > | _ => fun () => null ()
00:06:29 #28058 [verbose] > |> optionm'.box
00:06:29 #28059 [verbose] > Building c:\home\git\polyglot\target\polyglot\spiral_eval\packages\ae12221c9cab3397fb872e84f4879eaf43d1cf3b699222035ac988407a271651\main.spi
00:06:29 #28060 [verbose] >
00:06:29 #28061 [verbose] > ╭─[ 507.34ms - stdout ]────────────────────────────────────────────────────────╮
00:06:29 #28062 [verbose] > │ () │
00:06:29 #28063 [verbose] > │ │
00:06:29 #28064 [verbose] > │ │
00:06:29 #28065 [verbose] > ╰──────────────────────────────────────────────────────────────────────────────╯
00:06:29 #28066 [verbose] >
00:06:29 #28067 [verbose] > ── markdown ────────────────────────────────────────────────────────────────────
00:06:29 #28068 [verbose] > ╭──────────────────────────────────────────────────────────────────────────────╮
00:06:29 #28069 [verbose] > │ ## file_delete │
00:06:29 #28070 [verbose] > ╰──────────────────────────────────────────────────────────────────────────────╯
00:06:29 #28071 [verbose] >
00:06:29 #28072 [verbose] > ── spiral ──────────────────────────────────────────────────────────────────────
00:06:29 #28073 [verbose] > inl file_delete (path : string) : () =
00:06:29 #28074 [verbose] > run_target function
00:06:29 #28075 [verbose] > | Fsharp (Native) => fun () =>
00:06:29 #28076 [verbose] > path |> $'System.IO.File.Delete'
00:06:29 #28077 [verbose] > | _ => fun () => null ()
00:06:29 #28078 [verbose] > Building c:\home\git\polyglot\target\polyglot\spiral_eval\packages\5306aa46322207ec81cbcaa207c76eb977ea6edd40aa4343e79fc2f5d851d040\main.spi
00:06:30 #28079 [verbose] >
00:06:30 #28080 [verbose] > ╭─[ 210.73ms - stdout ]────────────────────────────────────────────────────────╮
00:06:30 #28081 [verbose] > │ () │
00:06:30 #28082 [verbose] > │ │
00:06:30 #28083 [verbose] > │ │
00:06:30 #28084 [verbose] > ╰──────────────────────────────────────────────────────────────────────────────╯
00:06:30 #28085 [verbose] >
00:06:30 #28086 [verbose] > ── markdown ────────────────────────────────────────────────────────────────────
00:06:30 #28087 [verbose] > ╭──────────────────────────────────────────────────────────────────────────────╮
00:06:30 #28088 [verbose] > │ ## file_move │
00:06:30 #28089 [verbose] > ╰──────────────────────────────────────────────────────────────────────────────╯
00:06:30 #28090 [verbose] >
00:06:30 #28091 [verbose] > ── spiral ──────────────────────────────────────────────────────────────────────
00:06:30 #28092 [verbose] > inl file_move (old_path : string) (new_path : string) : () =
00:06:30 #28093 [verbose] > run_target function
00:06:30 #28094 [verbose] > | Fsharp (Native) => fun () =>
00:06:30 #28095 [verbose] > $'System.IO.File.Move (!old_path, !new_path)'
00:06:30 #28096 [verbose] > | _ => fun () => null ()
00:06:30 #28097 [verbose] > Building c:\home\git\polyglot\target\polyglot\spiral_eval\packages\3a0114adb85271345bd3c502a89ab481d85cd1c959f36206b4ca983e6a2e481d\main.spi
00:06:30 #28098 [verbose] >
00:06:30 #28099 [verbose] > ╭─[ 219.34ms - stdout ]────────────────────────────────────────────────────────╮
00:06:30 #28100 [verbose] > │ () │
00:06:30 #28101 [verbose] > │ │
00:06:30 #28102 [verbose] > │ │
00:06:30 #28103 [verbose] > ╰──────────────────────────────────────────────────────────────────────────────╯
00:06:30 #28104 [verbose] >
00:06:30 #28105 [verbose] > ── markdown ────────────────────────────────────────────────────────────────────
00:06:30 #28106 [verbose] > ╭──────────────────────────────────────────────────────────────────────────────╮
00:06:30 #28107 [verbose] > │ ## file_exists │
00:06:30 #28108 [verbose] > ╰──────────────────────────────────────────────────────────────────────────────╯
00:06:30 #28109 [verbose] >
00:06:30 #28110 [verbose] > ── spiral ──────────────────────────────────────────────────────────────────────
00:06:30 #28111 [verbose] > inl file_exists (path : string) : bool =
00:06:30 #28112 [verbose] > run_target function
00:06:30 #28113 [verbose] > | Rust (Native) => fun () =>
00:06:30 #28114 [verbose] > inl path_buf = path |> new_path_buf
00:06:30 #28115 [verbose] > (path_buf |> path_buf_exists) && (path_buf |> path_buf_is_file)
00:06:30 #28116 [verbose] > | Fsharp (Native) => fun () =>
00:06:30 #28117 [verbose] > path |> $'System.IO.File.Exists'
00:06:30 #28118 [verbose] > | TypeScript (Native) => fun () =>
00:06:30 #28119 [verbose] > global "type IFsExistsSync = abstract existsSync: path: string ->
00:06:30 #28120 [verbose] > bool"
00:06:30 #28121 [verbose] > inl fs : $'IFsExistsSync' = ts.import_all "fs"
00:06:30 #28122 [verbose] > ts.emit_expr path $'"!fs.existsSync($0)"'
00:06:30 #28123 [verbose] > | _ => fun () => null ()
00:06:30 #28124 [verbose] > Building c:\home\git\polyglot\target\polyglot\spiral_eval\packages\e11492c41308cf6e1b99f8ebdc8d37bbf2b2ff5ebcf4a250290ddb1887873007\main.spi
00:06:30 #28125 [verbose] >
00:06:30 #28126 [verbose] > ╭─[ 227.02ms - stdout ]────────────────────────────────────────────────────────╮
00:06:30 #28127 [verbose] > │ () │
00:06:30 #28128 [verbose] > │ │
00:06:30 #28129 [verbose] > │ │
00:06:30 #28130 [verbose] > ╰──────────────────────────────────────────────────────────────────────────────╯
00:06:30 #28131 [verbose] >
00:06:30 #28132 [verbose] > ── markdown ────────────────────────────────────────────────────────────────────
00:06:30 #28133 [verbose] > ╭──────────────────────────────────────────────────────────────────────────────╮
00:06:30 #28134 [verbose] > │ ## directory_delete │
00:06:30 #28135 [verbose] > ╰──────────────────────────────────────────────────────────────────────────────╯
00:06:30 #28136 [verbose] >
00:06:30 #28137 [verbose] > ── spiral ──────────────────────────────────────────────────────────────────────
00:06:30 #28138 [verbose] > inl directory_delete recursive (path : string) : () =
00:06:30 #28139 [verbose] > run_target function
00:06:30 #28140 [verbose] > | Fsharp (Native) => fun () =>
00:06:30 #28141 [verbose] > $'System.IO.Directory.Delete (!path, !recursive)'
00:06:30 #28142 [verbose] > | _ => fun () => null ()
00:06:30 #28143 [verbose] > Building c:\home\git\polyglot\target\polyglot\spiral_eval\packages\c54873952c739f5756cadd40bf3eda5694966bbe14a2927e2d7f2fd941bf08fa\main.spi
00:06:30 #28144 [verbose] >
00:06:30 #28145 [verbose] > ╭─[ 214.82ms - stdout ]────────────────────────────────────────────────────────╮
00:06:30 #28146 [verbose] > │ () │
00:06:30 #28147 [verbose] > │ │
00:06:30 #28148 [verbose] > │ │
00:06:30 #28149 [verbose] > ╰──────────────────────────────────────────────────────────────────────────────╯
00:06:30 #28150 [verbose] >
00:06:30 #28151 [verbose] > ── markdown ────────────────────────────────────────────────────────────────────
00:06:30 #28152 [verbose] > ╭──────────────────────────────────────────────────────────────────────────────╮
00:06:30 #28153 [verbose] > │ ## read_all_text_async │
00:06:30 #28154 [verbose] > ╰──────────────────────────────────────────────────────────────────────────────╯
00:06:30 #28155 [verbose] >
00:06:30 #28156 [verbose] > ── spiral ──────────────────────────────────────────────────────────────────────
00:06:30 #28157 [verbose] > inl read_all_text_async (path : string) : _ string =
00:06:30 #28158 [verbose] > run_target function
00:06:30 #28159 [verbose] > | Fsharp (Native) => fun () =>
00:06:30 #28160 [verbose] > path |> $'System.IO.File.ReadAllTextAsync' |> async.await_task
00:06:30 #28161 [verbose] > | _ => fun () => null ()
00:06:30 #28162 [verbose] > Building c:\home\git\polyglot\target\polyglot\spiral_eval\packages\a7b948b58dabef3ef1a80130b651791a0ab08a160dfde28f920754b7bdddd2f6\main.spi
00:06:30 #28163 [verbose] >
00:06:30 #28164 [verbose] > ╭─[ 210.74ms - stdout ]────────────────────────────────────────────────────────╮
00:06:30 #28165 [verbose] > │ () │
00:06:30 #28166 [verbose] > │ │
00:06:30 #28167 [verbose] > │ │
00:06:30 #28168 [verbose] > ╰──────────────────────────────────────────────────────────────────────────────╯
00:06:30 #28169 [verbose] >
00:06:30 #28170 [verbose] > ── markdown ────────────────────────────────────────────────────────────────────
00:06:30 #28171 [verbose] > ╭──────────────────────────────────────────────────────────────────────────────╮
00:06:30 #28172 [verbose] > │ ## file_exists_content │
00:06:30 #28173 [verbose] > ╰──────────────────────────────────────────────────────────────────────────────╯
00:06:30 #28174 [verbose] >
00:06:30 #28175 [verbose] > ── spiral ──────────────────────────────────────────────────────────────────────
00:06:30 #28176 [verbose] > inl file_exists_content path content : _ bool =
00:06:30 #28177 [verbose] > run_target function
00:06:30 #28178 [verbose] > | Fsharp (Native) => fun () =>
00:06:30 #28179 [verbose] > fun () =>
00:06:30 #28180 [verbose] > if path |> file_exists |> not
00:06:30 #28181 [verbose] > then false |> return |> fun x => $'(*' : ()
00:06:30 #28182 [verbose] > else
00:06:30 #28183 [verbose] > $'*) else' : ()
00:06:30 #28184 [verbose] > inl existing_content = path |> read_all_text_async |>
00:06:30 #28185 [verbose] > async.let'
00:06:30 #28186 [verbose] > content = existing_content |> return |> fun x => $'(*' : ()
00:06:30 #28187 [verbose] > |> fun x => $'*)' : ()
00:06:30 #28188 [verbose] > |> async.new_async_unit
00:06:30 #28189 [verbose] > | _ => fun () => null ()
00:06:31 #28190 [verbose] > Building c:\home\git\polyglot\target\polyglot\spiral_eval\packages\32740c64cd2f2a256530c58c6acbc42777c73a8591614d9366647ff41d26fbaf\main.spi
00:06:31 #28191 [verbose] >
00:06:31 #28192 [verbose] > ╭─[ 214.14ms - stdout ]────────────────────────────────────────────────────────╮
00:06:31 #28193 [verbose] > │ () │
00:06:31 #28194 [verbose] > │ │
00:06:31 #28195 [verbose] > │ │
00:06:31 #28196 [verbose] > ╰──────────────────────────────────────────────────────────────────────────────╯
00:06:31 #28197 [verbose] >
00:06:31 #28198 [verbose] > ── markdown ────────────────────────────────────────────────────────────────────
00:06:31 #28199 [verbose] > ╭──────────────────────────────────────────────────────────────────────────────╮
00:06:31 #28200 [verbose] > │ ## write_all_text │
00:06:31 #28201 [verbose] > ╰──────────────────────────────────────────────────────────────────────────────╯
00:06:31 #28202 [verbose] >
00:06:31 #28203 [verbose] > ── spiral ──────────────────────────────────────────────────────────────────────
00:06:31 #28204 [verbose] > inl write_all_text (path : string) (text : string) : () =
00:06:31 #28205 [verbose] > run_target function
00:06:31 #28206 [verbose] > | Fsharp (Native) => fun () =>
00:06:31 #28207 [verbose] > $'System.IO.File.WriteAllText (!path, !text)'
00:06:31 #28208 [verbose] > | _ => fun () => null ()
00:06:31 #28209 [verbose] > Building c:\home\git\polyglot\target\polyglot\spiral_eval\packages\715ed0d60688f58d15b38e180149d18cf5f055c038a816aa744bf17d0263748c\main.spi
00:06:31 #28210 [verbose] >
00:06:31 #28211 [verbose] > ╭─[ 261.60ms - stdout ]────────────────────────────────────────────────────────╮
00:06:31 #28212 [verbose] > │ () │
00:06:31 #28213 [verbose] > │ │
00:06:31 #28214 [verbose] > │ │
00:06:31 #28215 [verbose] > ╰──────────────────────────────────────────────────────────────────────────────╯
00:06:31 #28216 [verbose] >
00:06:31 #28217 [verbose] > ── markdown ────────────────────────────────────────────────────────────────────
00:06:31 #28218 [verbose] > ╭──────────────────────────────────────────────────────────────────────────────╮
00:06:31 #28219 [verbose] > │ ## write_all_text_async │
00:06:31 #28220 [verbose] > ╰──────────────────────────────────────────────────────────────────────────────╯
00:06:31 #28221 [verbose] >
00:06:31 #28222 [verbose] > ── spiral ──────────────────────────────────────────────────────────────────────
00:06:31 #28223 [verbose] > inl write_all_text_async (path : string) (text : string) : _ () =
00:06:31 #28224 [verbose] > run_target function
00:06:31 #28225 [verbose] > | Fsharp (Native) => fun () =>
00:06:31 #28226 [verbose] > $'System.IO.File.WriteAllTextAsync (!path, !text)' |>
00:06:31 #28227 [verbose] > async.await_task
00:06:31 #28228 [verbose] > | _ => fun () => null ()
00:06:31 #28229 [verbose] > Building c:\home\git\polyglot\target\polyglot\spiral_eval\packages\bc7ccaca373947724a436da27e53423e0d92ae3438fb4b27adde5cecb8f3bc6c\main.spi
00:06:31 #28230 [verbose] >
00:06:31 #28231 [verbose] > ╭─[ 210.45ms - stdout ]────────────────────────────────────────────────────────╮
00:06:31 #28232 [verbose] > │ () │
00:06:31 #28233 [verbose] > │ │
00:06:31 #28234 [verbose] > │ │
00:06:31 #28235 [verbose] > ╰──────────────────────────────────────────────────────────────────────────────╯
00:06:31 #28236 [verbose] >
00:06:31 #28237 [verbose] > ── markdown ────────────────────────────────────────────────────────────────────
00:06:31 #28238 [verbose] > ╭──────────────────────────────────────────────────────────────────────────────╮
00:06:31 #28239 [verbose] > │ ## write_all_text_exists │
00:06:31 #28240 [verbose] > ╰──────────────────────────────────────────────────────────────────────────────╯
00:06:31 #28241 [verbose] >
00:06:31 #28242 [verbose] > ── spiral ──────────────────────────────────────────────────────────────────────
00:06:31 #28243 [verbose] > inl write_all_text_exists path contents =
00:06:31 #28244 [verbose] > fun () =>
00:06:31 #28245 [verbose] > inl exists' = contents |> file_exists_content path |> async.let'
00:06:31 #28246 [verbose] > if not exists'
00:06:31 #28247 [verbose] > then contents |> write_all_text_async path |> async.do
00:06:31 #28248 [verbose] > |> async.new_async
00:06:31 #28249 [verbose] > Building c:\home\git\polyglot\target\polyglot\spiral_eval\packages\dfdcb0af56a76e1f5e3cfe865242c732fdfe85f1fb6fcff3238c1cbbc89297e3\main.spi
00:06:31 #28250 [verbose] >
00:06:31 #28251 [verbose] > ╭─[ 214.80ms - stdout ]────────────────────────────────────────────────────────╮
00:06:31 #28252 [verbose] > │ () │
00:06:31 #28253 [verbose] > │ │
00:06:31 #28254 [verbose] > │ │
00:06:31 #28255 [verbose] > ╰──────────────────────────────────────────────────────────────────────────────╯
00:06:31 #28256 [verbose] >
00:06:31 #28257 [verbose] > ── markdown ────────────────────────────────────────────────────────────────────
00:06:31 #28258 [verbose] > ╭──────────────────────────────────────────────────────────────────────────────╮
00:06:31 #28259 [verbose] > │ ## delete_directory_async │
00:06:31 #28260 [verbose] > ╰──────────────────────────────────────────────────────────────────────────────╯
00:06:31 #28261 [verbose] >
00:06:31 #28262 [verbose] > ── spiral ──────────────────────────────────────────────────────────────────────
00:06:31 #28263 [verbose] > inl delete_directory_async path : _ i64 =
00:06:31 #28264 [verbose] > run_target function
00:06:31 #28265 [verbose] > | Fsharp (Native) => fun () =>
00:06:31 #28266 [verbose] > let rec loop (retry : i64) =
00:06:31 #28267 [verbose] > fun () =>
00:06:31 #28268 [verbose] > try_unit
00:06:31 #28269 [verbose] > fun () =>
00:06:31 #28270 [verbose] > path |> directory_delete true
00:06:31 #28271 [verbose] > retry |> return
00:06:31 #28272 [verbose] > fun ex =>
00:06:31 #28273 [verbose] > if retry % 100i64 = 0 then
00:06:31 #28274 [verbose] > inl ex = ex |> sm'.format_exception
00:06:31 #28275 [verbose] > let get_locals () = $'$"path: {!path |>
00:06:31 #28276 [verbose] > !get_file_name} / ex: {!ex} / {!get_locals ()}"' : string
00:06:31 #28277 [verbose] > // trace Debug (fun () ->
00:06:31 #28278 [verbose] > "delete_directory_async") getLocals
00:06:31 #28279 [verbose] > console.write_line ($'$"delete_directory_async
00:06:31 #28280 [verbose] > {!get_locals ()}"' : string)
00:06:31 #28281 [verbose] > async.sleep 10i32 |> async.do
00:06:31 #28282 [verbose] > loop (retry + 1) |> async.return_await
00:06:31 #28283 [verbose] > |> async.new_async
00:06:31 #28284 [verbose] > loop 0
00:06:31 #28285 [verbose] > | _ => fun () => null ()
00:06:32 #28286 [verbose] > Building c:\home\git\polyglot\target\polyglot\spiral_eval\packages\8fd1ba2f183ac33c40bee7160f6deb138a363ebaa7cb1f09ad731e64e197f09d\main.spi
00:06:32 #28287 [verbose] >
00:06:32 #28288 [verbose] > ╭─[ 243.12ms - stdout ]────────────────────────────────────────────────────────╮
00:06:32 #28289 [verbose] > │ () │
00:06:32 #28290 [verbose] > │ │
00:06:32 #28291 [verbose] > │ │
00:06:32 #28292 [verbose] > ╰──────────────────────────────────────────────────────────────────────────────╯
00:06:32 #28293 [verbose] >
00:06:32 #28294 [verbose] > ── markdown ────────────────────────────────────────────────────────────────────
00:06:32 #28295 [verbose] > ╭──────────────────────────────────────────────────────────────────────────────╮
00:06:32 #28296 [verbose] > │ ## create_temp_directory │
00:06:32 #28297 [verbose] > ╰──────────────────────────────────────────────────────────────────────────────╯
00:06:32 #28298 [verbose] >
00:06:32 #28299 [verbose] > ── spiral ──────────────────────────────────────────────────────────────────────
00:06:32 #28300 [verbose] > inl create_temp_directory () =
00:06:32 #28301 [verbose] > run_target function
00:06:32 #28302 [verbose] > | Fsharp (Native) => fun () =>
00:06:32 #28303 [verbose] > inl temp_folder = create_temp_directory_name ()
00:06:32 #28304 [verbose] > inl result = temp_folder |> create_directory
00:06:32 #28305 [verbose] >
00:06:32 #28306 [verbose] > inl exists' = result |> directory_info_exists
00:06:32 #28307 [verbose] > if not exists' then
00:06:32 #28308 [verbose] > inl creation_time = result |> directory_info_creation_time
00:06:32 #28309 [verbose] > inl result = ($'{| Exists = !exists'; CreationTime =
00:06:32 #28310 [verbose] > !creation_time |}' : any) |> sm'.format_debug
00:06:32 #28311 [verbose] > inl get_locals () : string =
00:06:32 #28312 [verbose] > $'$"temp_folder: {!temp_folder} / result: {!result}
00:06:32 #28313 [verbose] > {!get_locals ()}"'
00:06:32 #28314 [verbose] > // trace Debug (fun () => "createTempDirectory") get_locals
00:06:32 #28315 [verbose] > console.write_line ($'$"create_temp_directory / {!get_locals
00:06:32 #28316 [verbose] > ()}"' : string)
00:06:32 #28317 [verbose] > inl disposable : _ () = new_disposable fun () =>
00:06:32 #28318 [verbose] > temp_folder
00:06:32 #28319 [verbose] > |> delete_directory_async
00:06:32 #28320 [verbose] > |> async.ignore
00:06:32 #28321 [verbose] > |> async.run_synchronously
00:06:32 #28322 [verbose] > temp_folder, disposable
00:06:32 #28323 [verbose] > | _ => fun () => null ()
00:06:32 #28324 [verbose] > Building c:\home\git\polyglot\target\polyglot\spiral_eval\packages\ec84f40cf1c325b18552f94d957c014f432462c26ecd5d2f7dcc8e5db6124528\main.spi
00:06:32 #28325 [verbose] >
00:06:32 #28326 [verbose] > ╭─[ 253.88ms - stdout ]────────────────────────────────────────────────────────╮
00:06:32 #28327 [verbose] > │ () │
00:06:32 #28328 [verbose] > │ │
00:06:32 #28329 [verbose] > │ │
00:06:32 #28330 [verbose] > ╰──────────────────────────────────────────────────────────────────────────────╯
00:06:32 #28331 [verbose] >
00:06:32 #28332 [verbose] > ── spiral ──────────────────────────────────────────────────────────────────────
00:06:32 #28333 [verbose] > // // test
00:06:32 #28334 [verbose] >
00:06:32 #28335 [verbose] > inl path, disposable = create_temp_directory ()
00:06:32 #28336 [verbose] > disposable |> use |> ignore
00:06:32 #28337 [verbose] > path
00:06:32 #28338 [verbose] > |> directory_exists
00:06:32 #28339 [verbose] > |> _assert_eq true
00:06:32 #28340 [verbose] > Building c:\home\git\polyglot\target\polyglot\spiral_eval\packages\6b9cc67ff5d0d8345bcdb16a075ac606918ad98c11e88e598beff738c5db1326\main.spi
00:06:32 #28341 [verbose] >
00:06:33 #28342 [verbose] > ╭─[ 627.31ms - stdout ]────────────────────────────────────────────────────────╮
00:06:33 #28343 [verbose] > │ type IPathJoin = abstract join: [<System.ParamArray>] paths: string[] -> │
00:06:33 #28344 [verbose] > │ string │
00:06:33 #28345 [verbose] > │ type IFsExistsSync = abstract existsSync: path: string -> bool │
00:06:33 #28346 [verbose] > │ let rec closure0 () () : string = │
00:06:33 #28347 [verbose] > │ let v0 : string option = None │
00:06:33 #28348 [verbose] > │ let mutable _v0 = v0 │
00:06:33 #28349 [verbose] > │ #if FABLE_COMPILER_RUST && !WASM && !CONTRACT │
00:06:33 #28350 [verbose] > │ let v1 : string = null |> unbox<string> │
00:06:33 #28351 [verbose] > │ v1 │
00:06:33 #28352 [verbose] > │ #endif │
00:06:33 #28353 [verbose] > │ #if FABLE_COMPILER_RUST && WASM │
00:06:33 #28354 [verbose] > │ let v2 : string = null |> unbox<string> │
00:06:33 #28355 [verbose] > │ v2 │
00:06:33 #28356 [verbose] > │ #endif │
00:06:33 #28357 [verbose] > │ #if FABLE_COMPILER_RUST && CONTRACT │
00:06:33 #28358 [verbose] > │ let v3 : string = null |> unbox<string> │
00:06:33 #28359 [verbose] > │ v3 │
00:06:33 #28360 [verbose] > │ #endif │
00:06:33 #28361 [verbose] > │ #if !FABLE_COMPILER && !FABLE_COMPILER_RUST && │
00:06:33 #28362 [verbose] > │ !FABLE_COMPILER_TYPESCRIPT && !WASM && !CONTRACT │
00:06:33 #28363 [verbose] > │ let v4 : string = │
00:06:33 #28364 [verbose] > │ System.Reflection.Assembly.GetEntryAssembly().GetName().Name │
00:06:33 #28365 [verbose] > │ v4 │
00:06:33 #28366 [verbose] > │ #endif │
00:06:33 #28367 [verbose] > │ #if FABLE_COMPILER_TYPESCRIPT │
00:06:33 #28368 [verbose] > │ let v5 : string = null |> unbox<string> │
00:06:33 #28369 [verbose] > │ v5 │
00:06:33 #28370 [verbose] > │ #endif │
00:06:33 #28371 [verbose] > │ #if FABLE_COMPILER_PYTHON || FABLE_COMPILER_PHP || FABLE_COMPILER_DART │
00:06:33 #28372 [verbose] > │ let v6 : string = Unchecked.defaultof<string> │
00:06:33 #28373 [verbose] > │ v6 │
00:06:33 #28374 [verbose] > │ #endif │
00:06:33 #28375 [verbose] > │ |> fun x -> _v0 <- Some x │
00:06:33 #28376 [verbose] > │ let v7 : string = _v0.Value │
00:06:33 #28377 [verbose] > │ v7 │
00:06:33 #28378 [verbose] > │ and method1 (v0 : string) : string = │
00:06:33 #28379 [verbose] > │ v0 │
00:06:33 #28380 [verbose] > │ and closure2 () () : string = │
00:06:33 #28381 [verbose] > │ let v0 : string = "" │
00:06:33 #28382 [verbose] > │ v0 │
00:06:33 #28383 [verbose] > │ and closure1 (v0 : string, v1 : string) () : string = │
00:06:33 #28384 [verbose] > │ let v2 : (unit -> string) = closure2() │
00:06:33 #28385 [verbose] > │ let v3 : string = $"temp_folder: {v0} / result: {v1} {v2 ()}" │
00:06:33 #28386 [verbose] > │ v3 │
00:06:33 #28387 [verbose] > │ and closure5 () (v0 : string) : string = │
00:06:33 #28388 [verbose] > │ let v1 : string option = None │
00:06:33 #28389 [verbose] > │ let mutable _v1 = v1 │
00:06:33 #28390 [verbose] > │ #if FABLE_COMPILER_RUST && !WASM && !CONTRACT │
00:06:33 #28391 [verbose] > │ let v2 : string = null |> unbox<string> │
00:06:33 #28392 [verbose] > │ v2 │
00:06:33 #28393 [verbose] > │ #endif │
00:06:33 #28394 [verbose] > │ #if FABLE_COMPILER_RUST && WASM │
00:06:33 #28395 [verbose] > │ let v3 : string = null |> unbox<string> │
00:06:33 #28396 [verbose] > │ v3 │
00:06:33 #28397 [verbose] > │ #endif │
00:06:33 #28398 [verbose] > │ #if FABLE_COMPILER_RUST && CONTRACT │
00:06:33 #28399 [verbose] > │ let v4 : string = null |> unbox<string> │
00:06:33 #28400 [verbose] > │ v4 │
00:06:33 #28401 [verbose] > │ #endif │
00:06:33 #28402 [verbose] > │ #if !FABLE_COMPILER && !FABLE_COMPILER_RUST && │
00:06:33 #28403 [verbose] > │ !FABLE_COMPILER_TYPESCRIPT && !WASM && !CONTRACT │
00:06:33 #28404 [verbose] > │ let v5 : (string -> string) = System.IO.Path.GetFileName │
00:06:33 #28405 [verbose] > │ let v6 : string = v5 v0 │
00:06:33 #28406 [verbose] > │ v6 │
00:06:33 #28407 [verbose] > │ #endif │
00:06:33 #28408 [verbose] > │ #if FABLE_COMPILER_TYPESCRIPT │
00:06:33 #28409 [verbose] > │ let v7 : string = null |> unbox<string> │
00:06:33 #28410 [verbose] > │ v7 │
00:06:33 #28411 [verbose] > │ #endif │
00:06:33 #28412 [verbose] > │ #if FABLE_COMPILER_PYTHON || FABLE_COMPILER_PHP || FABLE_COMPILER_DART │
00:06:33 #28413 [verbose] > │ let v8 : string = Unchecked.defaultof<string> │
00:06:33 #28414 [verbose] > │ v8 │
00:06:33 #28415 [verbose] > │ #endif │
00:06:33 #28416 [verbose] > │ |> fun x -> _v1 <- Some x │
00:06:33 #28417 [verbose] > │ let v9 : string = _v1.Value │
00:06:33 #28418 [verbose] > │ v9 │
00:06:33 #28419 [verbose] > │ and method3 (v0 : string, v1 : string) : string = │
00:06:33 #28420 [verbose] > │ let v2 : (string -> string) = closure5() │
00:06:33 #28421 [verbose] > │ let v3 : (unit -> string) = closure2() │
00:06:33 #28422 [verbose] > │ let v4 : string = $"path: {v0 |> v2} / ex: {v1} / {v3 ()}" │
00:06:33 #28423 [verbose] > │ v4 │
00:06:33 #28424 [verbose] > │ and closure4 (v0 : string, v1 : string) () : string = │
00:06:33 #28425 [verbose] > │ method3(v0, v1) │
00:06:33 #28426 [verbose] > │ and method2 (v0 : string, v1 : int64) : Async<int64> = │
00:06:33 #28427 [verbose] > │ let v2 : Async<int64> option = None │
00:06:33 #28428 [verbose] > │ let mutable _v2 = v2 │
00:06:33 #28429 [verbose] > │ #if FABLE_COMPILER_RUST && !WASM && !CONTRACT │
00:06:33 #28430 [verbose] > │ let v3 : Async<int64> = null |> unbox<Async<int64>> │
00:06:33 #28431 [verbose] > │ v3 │
00:06:33 #28432 [verbose] > │ #endif │
00:06:33 #28433 [verbose] > │ #if FABLE_COMPILER_RUST && WASM │
00:06:33 #28434 [verbose] > │ let v4 : Async<int64> = null |> unbox<Async<int64>> │
00:06:33 #28435 [verbose] > │ v4 │
00:06:33 #28436 [verbose] > │ #endif │
00:06:33 #28437 [verbose] > │ #if FABLE_COMPILER_RUST && CONTRACT │
00:06:33 #28438 [verbose] > │ let v5 : Async<int64> = null |> unbox<Async<int64>> │
00:06:33 #28439 [verbose] > │ v5 │
00:06:33 #28440 [verbose] > │ #endif │
00:06:33 #28441 [verbose] > │ #if !FABLE_COMPILER && !FABLE_COMPILER_RUST && │
00:06:33 #28442 [verbose] > │ !FABLE_COMPILER_TYPESCRIPT && !WASM && !CONTRACT │
00:06:33 #28443 [verbose] > │ let v6 : Async<int64> option = None │
00:06:33 #28444 [verbose] > │ let mutable _v6 = v6 │
00:06:33 #28445 [verbose] > │ async { │
00:06:33 #28446 [verbose] > │ try │
00:06:33 #28447 [verbose] > │ let v7 : unit option = None │
00:06:33 #28448 [verbose] > │ let mutable _v7 = v7 │
00:06:33 #28449 [verbose] > │ #if FABLE_COMPILER_RUST && !WASM && !CONTRACT │
00:06:33 #28450 [verbose] > │ null |> unbox<unit> │
00:06:33 #28451 [verbose] > │ () │
00:06:33 #28452 [verbose] > │ #endif │
00:06:33 #28453 [verbose] > │ #if FABLE_COMPILER_RUST && WASM │
00:06:33 #28454 [verbose] > │ null |> unbox<unit> │
00:06:33 #28455 [verbose] > │ () │
00:06:33 #28456 [verbose] > │ #endif │
00:06:33 #28457 [verbose] > │ #if FABLE_COMPILER_RUST && CONTRACT │
00:06:33 #28458 [verbose] > │ null |> unbox<unit> │
00:06:33 #28459 [verbose] > │ () │
00:06:33 #28460 [verbose] > │ #endif │
00:06:33 #28461 [verbose] > │ #if !FABLE_COMPILER && !FABLE_COMPILER_RUST && │
00:06:33 #28462 [verbose] > │ !FABLE_COMPILER_TYPESCRIPT && !WASM && !CONTRACT │
00:06:33 #28463 [verbose] > │ System.IO.Directory.Delete (v0, true) │
00:06:33 #28464 [verbose] > │ () │
00:06:33 #28465 [verbose] > │ #endif │
00:06:33 #28466 [verbose] > │ #if FABLE_COMPILER_TYPESCRIPT │
00:06:33 #28467 [verbose] > │ null |> unbox<unit> │
00:06:33 #28468 [verbose] > │ () │
00:06:33 #28469 [verbose] > │ #endif │
00:06:33 #28470 [verbose] > │ #if FABLE_COMPILER_PYTHON || FABLE_COMPILER_PHP || FABLE_COMPILER_DART │
00:06:33 #28471 [verbose] > │ Unchecked.defaultof<unit> │
00:06:33 #28472 [verbose] > │ () │
00:06:33 #28473 [verbose] > │ #endif │
00:06:33 #28474 [verbose] > │ |> fun x -> _v7 <- Some x │
00:06:33 #28475 [verbose] > │ _v7.Value │
00:06:33 #28476 [verbose] > │ return v1 │
00:06:33 #28477 [verbose] > │ with ex -> │
00:06:33 #28478 [verbose] > │ let v8 : exn = ex │
00:06:33 #28479 [verbose] > │ let v9 : int64 = v1 % 100L │
00:06:33 #28480 [verbose] > │ let v10 : bool = v9 = 0L │
00:06:33 #28481 [verbose] > │ if v10 then │
00:06:33 #28482 [verbose] > │ let v11 : string option = None │
00:06:33 #28483 [verbose] > │ let mutable _v11 = v11 │
00:06:33 #28484 [verbose] > │ #if FABLE_COMPILER_RUST && !WASM && !CONTRACT │
00:06:33 #28485 [verbose] > │ let v12 : string = $"%A{v8}" │
00:06:33 #28486 [verbose] > │ v12 │
00:06:33 #28487 [verbose] > │ #endif │
00:06:33 #28488 [verbose] > │ #if FABLE_COMPILER_RUST && WASM │
00:06:33 #28489 [verbose] > │ let v13 : string = $"%A{v8}" │
00:06:33 #28490 [verbose] > │ v13 │
00:06:33 #28491 [verbose] > │ #endif │
00:06:33 #28492 [verbose] > │ #if FABLE_COMPILER_RUST && CONTRACT │
00:06:33 #28493 [verbose] > │ let v14 : string = $"%A{v8}" │
00:06:33 #28494 [verbose] > │ v14 │
00:06:33 #28495 [verbose] > │ #endif │
00:06:33 #28496 [verbose] > │ #if !FABLE_COMPILER && !FABLE_COMPILER_RUST && │
00:06:33 #28497 [verbose] > │ !FABLE_COMPILER_TYPESCRIPT && !WASM && !CONTRACT │
00:06:33 #28498 [verbose] > │ let v15 : string = $"{v8.GetType ()}: {v8.Message}" │
00:06:33 #28499 [verbose] > │ v15 │
00:06:33 #28500 [verbose] > │ #endif │
00:06:33 #28501 [verbose] > │ #if FABLE_COMPILER_TYPESCRIPT │
00:06:33 #28502 [verbose] > │ let v16 : string = $"%A{v8}" │
00:06:33 #28503 [verbose] > │ v16 │
00:06:33 #28504 [verbose] > │ #endif │
00:06:33 #28505 [verbose] > │ #if FABLE_COMPILER_PYTHON || FABLE_COMPILER_PHP || │
00:06:33 #28506 [verbose] > │ FABLE_COMPILER_DART │
00:06:33 #28507 [verbose] > │ let v17 : string = Unchecked.defaultof<string> │
00:06:33 #28508 [verbose] > │ v17 │
00:06:33 #28509 [verbose] > │ #endif │
00:06:33 #28510 [verbose] > │ |> fun x -> _v11 <- Some x │
00:06:33 #28511 [verbose] > │ let v18 : string = _v11.Value │
00:06:33 #28512 [verbose] > │ let v19 : (unit -> string) = closure4(v0, v18) │
00:06:33 #28513 [verbose] > │ let v20 : string = $"delete_directory_async / {v19 ()}" │
00:06:33 #28514 [verbose] > │ System.Console.WriteLine v20 │
00:06:33 #28515 [verbose] > │ () │
00:06:33 #28516 [verbose] > │ let v21 : Async<unit> option = None │
00:06:33 #28517 [verbose] > │ let mutable _v21 = v21 │
00:06:33 #28518 [verbose] > │ #if FABLE_COMPILER_RUST && !WASM && !CONTRACT │
00:06:33 #28519 [verbose] > │ let v22 : Async<unit> = null |> unbox<Async<unit>> │
00:06:33 #28520 [verbose] > │ v22 │
00:06:33 #28521 [verbose] > │ #endif │
00:06:33 #28522 [verbose] > │ #if FABLE_COMPILER_RUST && WASM │
00:06:33 #28523 [verbose] > │ let v23 : Async<unit> = null |> unbox<Async<unit>> │
00:06:33 #28524 [verbose] > │ v23 │
00:06:33 #28525 [verbose] > │ #endif │
00:06:33 #28526 [verbose] > │ #if FABLE_COMPILER_RUST && CONTRACT │
00:06:33 #28527 [verbose] > │ let v24 : Async<unit> = null |> unbox<Async<unit>> │
00:06:33 #28528 [verbose] > │ v24 │
00:06:33 #28529 [verbose] > │ #endif │
00:06:33 #28530 [verbose] > │ #if !FABLE_COMPILER && !FABLE_COMPILER_RUST && │
00:06:33 #28531 [verbose] > │ !FABLE_COMPILER_TYPESCRIPT && !WASM && !CONTRACT │
00:06:33 #28532 [verbose] > │ let v25 : (int32 -> Async<unit>) = Async.Sleep │
00:06:33 #28533 [verbose] > │ let v26 : Async<unit> = v25 10 │
00:06:33 #28534 [verbose] > │ v26 │
00:06:33 #28535 [verbose] > │ #endif │
00:06:33 #28536 [verbose] > │ #if FABLE_COMPILER_TYPESCRIPT │
00:06:33 #28537 [verbose] > │ let v27 : Async<unit> = null |> unbox<Async<unit>> │
00:06:33 #28538 [verbose] > │ v27 │
00:06:33 #28539 [verbose] > │ #endif │
00:06:33 #28540 [verbose] > │ #if FABLE_COMPILER_PYTHON || FABLE_COMPILER_PHP || FABLE_COMPILER_DART │
00:06:33 #28541 [verbose] > │ let v28 : Async<unit> = Unchecked.defaultof<Async<unit>> │
00:06:33 #28542 [verbose] > │ v28 │
00:06:33 #28543 [verbose] > │ #endif │
00:06:33 #28544 [verbose] > │ |> fun x -> _v21 <- Some x │
00:06:33 #28545 [verbose] > │ let v29 : Async<unit> = _v21.Value │
00:06:33 #28546 [verbose] > │ do! v29 │
00:06:33 #28547 [verbose] > │ let v30 : int64 = v1 + 1L │
00:06:33 #28548 [verbose] > │ let v31 : Async<int64> = method2(v0, v30) │
00:06:33 #28549 [verbose] > │ return! v31 │
00:06:33 #28550 [verbose] > │ (* │
00:06:33 #28551 [verbose] > │ let v32 : int64 = *) │
00:06:33 #28552 [verbose] > │ } │
00:06:33 #28553 [verbose] > │ |> fun x -> _v6 <- Some x │
00:06:33 #28554 [verbose] > │ let v33 : Async<int64> = _v6 |> Option.get │
00:06:33 #28555 [verbose] > │ v33 │
00:06:33 #28556 [verbose] > │ #endif │
00:06:33 #28557 [verbose] > │ #if FABLE_COMPILER_TYPESCRIPT │
00:06:33 #28558 [verbose] > │ let v34 : Async<int64> = null |> unbox<Async<int64>> │
00:06:33 #28559 [verbose] > │ v34 │
00:06:33 #28560 [verbose] > │ #endif │
00:06:33 #28561 [verbose] > │ #if FABLE_COMPILER_PYTHON || FABLE_COMPILER_PHP || FABLE_COMPILER_DART │
00:06:33 #28562 [verbose] > │ let v35 : Async<int64> = Unchecked.defaultof<Async<int64>> │
00:06:33 #28563 [verbose] > │ v35 │
00:06:33 #28564 [verbose] > │ #endif │
00:06:33 #28565 [verbose] > │ |> fun x -> _v2 <- Some x │
00:06:33 #28566 [verbose] > │ let v36 : Async<int64> = _v2.Value │
00:06:33 #28567 [verbose] > │ v36 │
00:06:33 #28568 [verbose] > │ and closure3 (v0 : string) () : unit = │
00:06:33 #28569 [verbose] > │ let v1 : Async<int64> option = None │
00:06:33 #28570 [verbose] > │ let mutable _v1 = v1 │
00:06:33 #28571 [verbose] > │ #if FABLE_COMPILER_RUST && !WASM && !CONTRACT │
00:06:33 #28572 [verbose] > │ let v2 : Async<int64> = null |> unbox<Async<int64>> │
00:06:33 #28573 [verbose] > │ v2 │
00:06:33 #28574 [verbose] > │ #endif │
00:06:33 #28575 [verbose] > │ #if FABLE_COMPILER_RUST && WASM │
00:06:33 #28576 [verbose] > │ let v3 : Async<int64> = null |> unbox<Async<int64>> │
00:06:33 #28577 [verbose] > │ v3 │
00:06:33 #28578 [verbose] > │ #endif │
00:06:33 #28579 [verbose] > │ #if FABLE_COMPILER_RUST && CONTRACT │
00:06:33 #28580 [verbose] > │ let v4 : Async<int64> = null |> unbox<Async<int64>> │
00:06:33 #28581 [verbose] > │ v4 │
00:06:33 #28582 [verbose] > │ #endif │
00:06:33 #28583 [verbose] > │ #if !FABLE_COMPILER && !FABLE_COMPILER_RUST && │
00:06:33 #28584 [verbose] > │ !FABLE_COMPILER_TYPESCRIPT && !WASM && !CONTRACT │
00:06:33 #28585 [verbose] > │ let v5 : int64 = 0L │
00:06:33 #28586 [verbose] > │ let v6 : Async<int64> = method2(v0, v5) │
00:06:33 #28587 [verbose] > │ v6 │
00:06:33 #28588 [verbose] > │ #endif │
00:06:33 #28589 [verbose] > │ #if FABLE_COMPILER_TYPESCRIPT │
00:06:33 #28590 [verbose] > │ let v7 : Async<int64> = null |> unbox<Async<int64>> │
00:06:33 #28591 [verbose] > │ v7 │
00:06:33 #28592 [verbose] > │ #endif │
00:06:33 #28593 [verbose] > │ #if FABLE_COMPILER_PYTHON || FABLE_COMPILER_PHP || FABLE_COMPILER_DART │
00:06:33 #28594 [verbose] > │ let v8 : Async<int64> = Unchecked.defaultof<Async<int64>> │
00:06:33 #28595 [verbose] > │ v8 │
00:06:33 #28596 [verbose] > │ #endif │
00:06:33 #28597 [verbose] > │ |> fun x -> _v1 <- Some x │
00:06:33 #28598 [verbose] > │ let v9 : Async<int64> = _v1.Value │
00:06:33 #28599 [verbose] > │ let v10 : Async<unit> option = None │
00:06:33 #28600 [verbose] > │ let mutable _v10 = v10 │
00:06:33 #28601 [verbose] > │ #if FABLE_COMPILER_RUST && !WASM && !CONTRACT │
00:06:33 #28602 [verbose] > │ let v11 : Async<unit> = null |> unbox<Async<unit>> │
00:06:33 #28603 [verbose] > │ v11 │
00:06:33 #28604 [verbose] > │ #endif │
00:06:33 #28605 [verbose] > │ #if FABLE_COMPILER_RUST && WASM │
00:06:33 #28606 [verbose] > │ let v12 : Async<unit> = null |> unbox<Async<unit>> │
00:06:33 #28607 [verbose] > │ v12 │
00:06:33 #28608 [verbose] > │ #endif │
00:06:33 #28609 [verbose] > │ #if FABLE_COMPILER_RUST && CONTRACT │
00:06:33 #28610 [verbose] > │ let v13 : Async<unit> = null |> unbox<Async<unit>> │
00:06:33 #28611 [verbose] > │ v13 │
00:06:33 #28612 [verbose] > │ #endif │
00:06:33 #28613 [verbose] > │ #if !FABLE_COMPILER && !FABLE_COMPILER_RUST && │
00:06:33 #28614 [verbose] > │ !FABLE_COMPILER_TYPESCRIPT && !WASM && !CONTRACT │
00:06:33 #28615 [verbose] > │ let v14 : (Async<int64> -> Async<unit>) = Async.Ignore │
00:06:33 #28616 [verbose] > │ let v15 : Async<unit> = v14 v9 │
00:06:33 #28617 [verbose] > │ v15 │
00:06:33 #28618 [verbose] > │ #endif │
00:06:33 #28619 [verbose] > │ #if FABLE_COMPILER_TYPESCRIPT │
00:06:33 #28620 [verbose] > │ let v16 : Async<unit> = null |> unbox<Async<unit>> │
00:06:33 #28621 [verbose] > │ v16 │
00:06:33 #28622 [verbose] > │ #endif │
00:06:33 #28623 [verbose] > │ #if FABLE_COMPILER_PYTHON || FABLE_COMPILER_PHP || FABLE_COMPILER_DART │
00:06:33 #28624 [verbose] > │ let v17 : Async<unit> = Unchecked.defaultof<Async<unit>> │
00:06:33 #28625 [verbose] > │ v17 │
00:06:33 #28626 [verbose] > │ #endif │
00:06:33 #28627 [verbose] > │ |> fun x -> _v10 <- Some x │
00:06:33 #28628 [verbose] > │ let v18 : Async<unit> = _v10.Value │
00:06:33 #28629 [verbose] > │ let v19 : unit option = None │
00:06:33 #28630 [verbose] > │ let mutable _v19 = v19 │
00:06:33 #28631 [verbose] > │ #if FABLE_COMPILER_RUST && !WASM && !CONTRACT │
00:06:33 #28632 [verbose] > │ null |> unbox<unit> │
00:06:33 #28633 [verbose] > │ () │
00:06:33 #28634 [verbose] > │ #endif │
00:06:33 #28635 [verbose] > │ #if FABLE_COMPILER_RUST && WASM │
00:06:33 #28636 [verbose] > │ null |> unbox<unit> │
00:06:33 #28637 [verbose] > │ () │
00:06:33 #28638 [verbose] > │ #endif │
00:06:33 #28639 [verbose] > │ #if FABLE_COMPILER_RUST && CONTRACT │
00:06:33 #28640 [verbose] > │ null |> unbox<unit> │
00:06:33 #28641 [verbose] > │ () │
00:06:33 #28642 [verbose] > │ #endif │
00:06:33 #28643 [verbose] > │ #if !FABLE_COMPILER && !FABLE_COMPILER_RUST && │
00:06:33 #28644 [verbose] > │ !FABLE_COMPILER_TYPESCRIPT && !WASM && !CONTRACT │
00:06:33 #28645 [verbose] > │ let v20 : (Async<unit> -> unit) = Async.RunSynchronously │
00:06:33 #28646 [verbose] > │ v20 v18 │
00:06:33 #28647 [verbose] > │ () │
00:06:33 #28648 [verbose] > │ #endif │
00:06:33 #28649 [verbose] > │ #if FABLE_COMPILER_TYPESCRIPT │
00:06:33 #28650 [verbose] > │ null |> unbox<unit> │
00:06:33 #28651 [verbose] > │ () │
00:06:33 #28652 [verbose] > │ #endif │
00:06:33 #28653 [verbose] > │ #if FABLE_COMPILER_PYTHON || FABLE_COMPILER_PHP || FABLE_COMPILER_DART │
00:06:33 #28654 [verbose] > │ Unchecked.defaultof<unit> │
00:06:33 #28655 [verbose] > │ () │
00:06:33 #28656 [verbose] > │ #endif │
00:06:33 #28657 [verbose] > │ |> fun x -> _v19 <- Some x │
00:06:33 #28658 [verbose] > │ _v19.Value │
00:06:33 #28659 [verbose] > │ () │
00:06:33 #28660 [verbose] > │ and method4 (v0 : bool) : bool = │
00:06:33 #28661 [verbose] > │ v0 │
00:06:33 #28662 [verbose] > │ and method0 () : unit = │
00:06:33 #28663 [verbose] > │ let v0 : struct (string * System.IDisposable) option = None │
00:06:33 #28664 [verbose] > │ let mutable _v0 = v0 │
00:06:33 #28665 [verbose] > │ #if FABLE_COMPILER_RUST && !WASM && !CONTRACT │
00:06:33 #28666 [verbose] > │ let struct (v1 : string, v2 : System.IDisposable) = null |> unbox<struct │
00:06:33 #28667 [verbose] > │ (string * System.IDisposable)> │
00:06:33 #28668 [verbose] > │ struct (v1, v2) │
00:06:33 #28669 [verbose] > │ #endif │
00:06:33 #28670 [verbose] > │ #if FABLE_COMPILER_RUST && WASM │
00:06:33 #28671 [verbose] > │ let struct (v3 : string, v4 : System.IDisposable) = null |> unbox<struct │
00:06:33 #28672 [verbose] > │ (string * System.IDisposable)> │
00:06:33 #28673 [verbose] > │ struct (v3, v4) │
00:06:33 #28674 [verbose] > │ #endif │
00:06:33 #28675 [verbose] > │ #if FABLE_COMPILER_RUST && CONTRACT │
00:06:33 #28676 [verbose] > │ let struct (v5 : string, v6 : System.IDisposable) = null |> unbox<struct │
00:06:33 #28677 [verbose] > │ (string * System.IDisposable)> │
00:06:33 #28678 [verbose] > │ struct (v5, v6) │
00:06:33 #28679 [verbose] > │ #endif │
00:06:33 #28680 [verbose] > │ #if !FABLE_COMPILER && !FABLE_COMPILER_RUST && │
00:06:33 #28681 [verbose] > │ !FABLE_COMPILER_TYPESCRIPT && !WASM && !CONTRACT │
00:06:33 #28682 [verbose] > │ let v7 : string option = None │
00:06:33 #28683 [verbose] > │ let mutable _v7 = v7 │
00:06:33 #28684 [verbose] > │ #if FABLE_COMPILER_RUST && !WASM && !CONTRACT │
00:06:33 #28685 [verbose] > │ let v8 : string = null |> unbox<string> │
00:06:33 #28686 [verbose] > │ v8 │
00:06:33 #28687 [verbose] > │ #endif │
00:06:33 #28688 [verbose] > │ #if FABLE_COMPILER_RUST && WASM │
00:06:33 #28689 [verbose] > │ let v9 : string = null |> unbox<string> │
00:06:33 #28690 [verbose] > │ v9 │
00:06:33 #28691 [verbose] > │ #endif │
00:06:33 #28692 [verbose] > │ #if FABLE_COMPILER_RUST && CONTRACT │
00:06:33 #28693 [verbose] > │ let v10 : string = null |> unbox<string> │
00:06:33 #28694 [verbose] > │ v10 │
00:06:33 #28695 [verbose] > │ #endif │
00:06:33 #28696 [verbose] > │ #if !FABLE_COMPILER && !FABLE_COMPILER_RUST && │
00:06:33 #28697 [verbose] > │ !FABLE_COMPILER_TYPESCRIPT && !WASM && !CONTRACT │
00:06:33 #28698 [verbose] > │ let v11 : (unit -> string) = System.IO.Path.GetTempPath │
00:06:33 #28699 [verbose] > │ let v12 : string = v11 () │
00:06:33 #28700 [verbose] > │ let v13 : (unit -> string) = closure0() │
00:06:33 #28701 [verbose] > │ let v14 : string = $"!{v13 ()}" │
00:06:33 #28702 [verbose] > │ let v15 : string option = None │
00:06:33 #28703 [verbose] > │ let mutable _v15 = v15 │
00:06:33 #28704 [verbose] > │ #if FABLE_COMPILER_RUST && !WASM && !CONTRACT │
00:06:33 #28705 [verbose] > │ let v16 : string = method1(v12) │
00:06:33 #28706 [verbose] > │ let v17 : string = "fable_library_rust::String_::LrcStr::as_str(&$0)" │
00:06:33 #28707 [verbose] > │ let v18 : Ref<Str> = Fable.Core.RustInterop.emitRustExpr v16 v17 │
00:06:33 #28708 [verbose] > │ let v19 : string = "String::from($0)" │
00:06:33 #28709 [verbose] > │ let v20 : std_string_String = Fable.Core.RustInterop.emitRustExpr v18 │
00:06:33 #28710 [verbose] > │ v19 │
00:06:33 #28711 [verbose] > │ let v21 : string = "std::path::PathBuf::from($0)" │
00:06:33 #28712 [verbose] > │ let v22 : std_path_PathBuf = Fable.Core.RustInterop.emitRustExpr v20 v21 │
00:06:33 #28713 [verbose] > │ let v23 : string = method1(v14) │
00:06:33 #28714 [verbose] > │ let v24 : string = "fable_library_rust::String_::LrcStr::as_str(&$0)" │
00:06:33 #28715 [verbose] > │ let v25 : Ref<Str> = Fable.Core.RustInterop.emitRustExpr v23 v24 │
00:06:33 #28716 [verbose] > │ let v26 : string = "String::from($0)" │
00:06:33 #28717 [verbose] > │ let v27 : std_string_String = Fable.Core.RustInterop.emitRustExpr v25 │
00:06:33 #28718 [verbose] > │ v26 │
00:06:33 #28719 [verbose] > │ let v28 : string = "$0.join($1)" │
00:06:33 #28720 [verbose] > │ let v29 : std_path_PathBuf = Fable.Core.RustInterop.emitRustExpr struct │
00:06:33 #28721 [verbose] > │ (v22, v27) v28 │
00:06:33 #28722 [verbose] > │ let v30 : string = "$0.display().to_string()" │
00:06:33 #28723 [verbose] > │ let v31 : std_string_String = Fable.Core.RustInterop.emitRustExpr v29 │
00:06:33 #28724 [verbose] > │ v30 │
00:06:33 #28725 [verbose] > │ let v32 : string = "fable_library_rust::String_::fromString($0)" │
00:06:33 #28726 [verbose] > │ let v33 : string = Fable.Core.RustInterop.emitRustExpr v31 v32 │
00:06:33 #28727 [verbose] > │ v33 │
00:06:33 #28728 [verbose] > │ #endif │
00:06:33 #28729 [verbose] > │ #if FABLE_COMPILER_RUST && WASM │
00:06:33 #28730 [verbose] > │ let v34 : string = null |> unbox<string> │
00:06:33 #28731 [verbose] > │ v34 │
00:06:33 #28732 [verbose] > │ #endif │
00:06:33 #28733 [verbose] > │ #if FABLE_COMPILER_RUST && CONTRACT │
00:06:33 #28734 [verbose] > │ let v35 : string = null |> unbox<string> │
00:06:33 #28735 [verbose] > │ v35 │
00:06:33 #28736 [verbose] > │ #endif │
00:06:33 #28737 [verbose] > │ #if !FABLE_COMPILER && !FABLE_COMPILER_RUST && │
00:06:33 #28738 [verbose] > │ !FABLE_COMPILER_TYPESCRIPT && !WASM && !CONTRACT │
00:06:33 #28739 [verbose] > │ let v36 : string = System.IO.Path.Combine (v12, v14) │
00:06:33 #28740 [verbose] > │ v36 │
00:06:33 #28741 [verbose] > │ #endif │
00:06:33 #28742 [verbose] > │ #if FABLE_COMPILER_TYPESCRIPT │
00:06:33 #28743 [verbose] > │ let v37 : string = "path" │
00:06:33 #28744 [verbose] > │ let v38 : IPathJoin = Fable.Core.JsInterop.importAll v37 │
00:06:33 #28745 [verbose] > │ let v39 : string = "v38.join($0, $1)" │
00:06:33 #28746 [verbose] > │ let v40 : string = Fable.Core.JsInterop.emitJsExpr struct (v12, v14) v39 │
00:06:33 #28747 [verbose] > │ v40 │
00:06:33 #28748 [verbose] > │ #endif │
00:06:33 #28749 [verbose] > │ #if FABLE_COMPILER_PYTHON || FABLE_COMPILER_PHP || FABLE_COMPILER_DART │
00:06:33 #28750 [verbose] > │ let v41 : string = Unchecked.defaultof<string> │
00:06:33 #28751 [verbose] > │ v41 │
00:06:33 #28752 [verbose] > │ #endif │
00:06:33 #28753 [verbose] > │ |> fun x -> _v15 <- Some x │
00:06:33 #28754 [verbose] > │ let v42 : string = _v15.Value │
00:06:33 #28755 [verbose] > │ let v43 : System.DateTime = System.DateTime.Now │
00:06:33 #28756 [verbose] > │ let v44 : System.Guid = System.Guid.NewGuid () │
00:06:33 #28757 [verbose] > │ let v45 : (System.Guid -> string) = _.ToString() │
00:06:33 #28758 [verbose] > │ let v46 : string = v45 v44 │
00:06:33 #28759 [verbose] > │ let v47 : string = v43.ToString "yyyyMMdd-HHmm-ssff-ffff-f" │
00:06:33 #28760 [verbose] > │ let v48 : System.Guid = System.Guid $"{v47}{v46.[v47.Length..]}" │
00:06:33 #28761 [verbose] > │ let v49 : (System.Guid -> string) = _.ToString() │
00:06:33 #28762 [verbose] > │ let v50 : string = v49 v48 │
00:06:33 #28763 [verbose] > │ let v51 : string option = None │
00:06:33 #28764 [verbose] > │ let mutable _v51 = v51 │
00:06:33 #28765 [verbose] > │ #if FABLE_COMPILER_RUST && !WASM && !CONTRACT │
00:06:33 #28766 [verbose] > │ let v52 : string = method1(v42) │
00:06:33 #28767 [verbose] > │ let v53 : string = "fable_library_rust::String_::LrcStr::as_str(&$0)" │
00:06:33 #28768 [verbose] > │ let v54 : Ref<Str> = Fable.Core.RustInterop.emitRustExpr v52 v53 │
00:06:33 #28769 [verbose] > │ let v55 : string = "String::from($0)" │
00:06:33 #28770 [verbose] > │ let v56 : std_string_String = Fable.Core.RustInterop.emitRustExpr v54 │
00:06:33 #28771 [verbose] > │ v55 │
00:06:33 #28772 [verbose] > │ let v57 : string = "std::path::PathBuf::from($0)" │
00:06:33 #28773 [verbose] > │ let v58 : std_path_PathBuf = Fable.Core.RustInterop.emitRustExpr v56 v57 │
00:06:33 #28774 [verbose] > │ let v59 : string = method1(v50) │
00:06:33 #28775 [verbose] > │ let v60 : string = "fable_library_rust::String_::LrcStr::as_str(&$0)" │
00:06:33 #28776 [verbose] > │ let v61 : Ref<Str> = Fable.Core.RustInterop.emitRustExpr v59 v60 │
00:06:33 #28777 [verbose] > │ let v62 : string = "String::from($0)" │
00:06:33 #28778 [verbose] > │ let v63 : std_string_String = Fable.Core.RustInterop.emitRustExpr v61 │
00:06:33 #28779 [verbose] > │ v62 │
00:06:33 #28780 [verbose] > │ let v64 : string = "$0.join($1)" │
00:06:33 #28781 [verbose] > │ let v65 : std_path_PathBuf = Fable.Core.RustInterop.emitRustExpr struct │
00:06:33 #28782 [verbose] > │ (v58, v63) v64 │
00:06:33 #28783 [verbose] > │ let v66 : string = "$0.display().to_string()" │
00:06:33 #28784 [verbose] > │ let v67 : std_string_String = Fable.Core.RustInterop.emitRustExpr v65 │
00:06:33 #28785 [verbose] > │ v66 │
00:06:33 #28786 [verbose] > │ let v68 : string = "fable_library_rust::String_::fromString($0)" │
00:06:33 #28787 [verbose] > │ let v69 : string = Fable.Core.RustInterop.emitRustExpr v67 v68 │
00:06:33 #28788 [verbose] > │ v69 │
00:06:33 #28789 [verbose] > │ #endif │
00:06:33 #28790 [verbose] > │ #if FABLE_COMPILER_RUST && WASM │
00:06:33 #28791 [verbose] > │ let v70 : string = null |> unbox<string> │
00:06:33 #28792 [verbose] > │ v70 │
00:06:33 #28793 [verbose] > │ #endif │
00:06:33 #28794 [verbose] > │ #if FABLE_COMPILER_RUST && CONTRACT │
00:06:33 #28795 [verbose] > │ let v71 : string = null |> unbox<string> │
00:06:33 #28796 [verbose] > │ v71 │
00:06:33 #28797 [verbose] > │ #endif │
00:06:33 #28798 [verbose] > │ #if !FABLE_COMPILER && !FABLE_COMPILER_RUST && │
00:06:33 #28799 [verbose] > │ !FABLE_COMPILER_TYPESCRIPT && !WASM && !CONTRACT │
00:06:33 #28800 [verbose] > │ let v72 : string = System.IO.Path.Combine (v42, v50) │
00:06:33 #28801 [verbose] > │ v72 │
00:06:33 #28802 [verbose] > │ #endif │
00:06:33 #28803 [verbose] > │ #if FABLE_COMPILER_TYPESCRIPT │
00:06:33 #28804 [verbose] > │ let v73 : IPathJoin = Fable.Core.JsInterop.importAll v37 │
00:06:33 #28805 [verbose] > │ let v74 : string = "v73.join($0, $1)" │
00:06:33 #28806 [verbose] > │ let v75 : string = Fable.Core.JsInterop.emitJsExpr struct (v42, v50) v74 │
00:06:33 #28807 [verbose] > │ v75 │
00:06:33 #28808 [verbose] > │ #endif │
00:06:33 #28809 [verbose] > │ #if FABLE_COMPILER_PYTHON || FABLE_COMPILER_PHP || FABLE_COMPILER_DART │
00:06:33 #28810 [verbose] > │ let v76 : string = Unchecked.defaultof<string> │
00:06:33 #28811 [verbose] > │ v76 │
00:06:33 #28812 [verbose] > │ #endif │
00:06:33 #28813 [verbose] > │ |> fun x -> _v51 <- Some x │
00:06:33 #28814 [verbose] > │ let v77 : string = _v51.Value │
00:06:33 #28815 [verbose] > │ v77 │
00:06:33 #28816 [verbose] > │ #endif │
00:06:33 #28817 [verbose] > │ #if FABLE_COMPILER_TYPESCRIPT │
00:06:33 #28818 [verbose] > │ let v78 : string = null |> unbox<string> │
00:06:33 #28819 [verbose] > │ v78 │
00:06:33 #28820 [verbose] > │ #endif │
00:06:33 #28821 [verbose] > │ #if FABLE_COMPILER_PYTHON || FABLE_COMPILER_PHP || FABLE_COMPILER_DART │
00:06:33 #28822 [verbose] > │ let v79 : string = Unchecked.defaultof<string> │
00:06:33 #28823 [verbose] > │ v79 │
00:06:33 #28824 [verbose] > │ #endif │
00:06:33 #28825 [verbose] > │ |> fun x -> _v7 <- Some x │
00:06:33 #28826 [verbose] > │ let v80 : string = _v7.Value │
00:06:33 #28827 [verbose] > │ let v81 : System.IO.DirectoryInfo option = None │
00:06:33 #28828 [verbose] > │ let mutable _v81 = v81 │
00:06:33 #28829 [verbose] > │ #if FABLE_COMPILER_RUST && !WASM && !CONTRACT │
00:06:33 #28830 [verbose] > │ let v82 : System.IO.DirectoryInfo = null |> │
00:06:33 #28831 [verbose] > │ unbox<System.IO.DirectoryInfo> │
00:06:33 #28832 [verbose] > │ v82 │
00:06:33 #28833 [verbose] > │ #endif │
00:06:33 #28834 [verbose] > │ #if FABLE_COMPILER_RUST && WASM │
00:06:33 #28835 [verbose] > │ let v83 : System.IO.DirectoryInfo = null |> │
00:06:33 #28836 [verbose] > │ unbox<System.IO.DirectoryInfo> │
00:06:33 #28837 [verbose] > │ v83 │
00:06:33 #28838 [verbose] > │ #endif │
00:06:33 #28839 [verbose] > │ #if FABLE_COMPILER_RUST && CONTRACT │
00:06:33 #28840 [verbose] > │ let v84 : System.IO.DirectoryInfo = null |> │
00:06:33 #28841 [verbose] > │ unbox<System.IO.DirectoryInfo> │
00:06:33 #28842 [verbose] > │ v84 │
00:06:33 #28843 [verbose] > │ #endif │
00:06:33 #28844 [verbose] > │ #if !FABLE_COMPILER && !FABLE_COMPILER_RUST && │
00:06:33 #28845 [verbose] > │ !FABLE_COMPILER_TYPESCRIPT && !WASM && !CONTRACT │
00:06:33 #28846 [verbose] > │ let v85 : (string -> System.IO.DirectoryInfo) = │
00:06:33 #28847 [verbose] > │ System.IO.Directory.CreateDirectory │
00:06:33 #28848 [verbose] > │ let v86 : System.IO.DirectoryInfo = v85 v80 │
00:06:33 #28849 [verbose] > │ v86 │
00:06:33 #28850 [verbose] > │ #endif │
00:06:33 #28851 [verbose] > │ #if FABLE_COMPILER_TYPESCRIPT │
00:06:33 #28852 [verbose] > │ let v87 : System.IO.DirectoryInfo = null |> │
00:06:33 #28853 [verbose] > │ unbox<System.IO.DirectoryInfo> │
00:06:33 #28854 [verbose] > │ v87 │
00:06:33 #28855 [verbose] > │ #endif │
00:06:33 #28856 [verbose] > │ #if FABLE_COMPILER_PYTHON || FABLE_COMPILER_PHP || FABLE_COMPILER_DART │
00:06:33 #28857 [verbose] > │ let v88 : System.IO.DirectoryInfo = │
00:06:33 #28858 [verbose] > │ Unchecked.defaultof<System.IO.DirectoryInfo> │
00:06:33 #28859 [verbose] > │ v88 │
00:06:33 #28860 [verbose] > │ #endif │
00:06:33 #28861 [verbose] > │ |> fun x -> _v81 <- Some x │
00:06:33 #28862 [verbose] > │ let v89 : System.IO.DirectoryInfo = _v81.Value │
00:06:33 #28863 [verbose] > │ let v90 : bool option = None │
00:06:33 #28864 [verbose] > │ let mutable _v90 = v90 │
00:06:33 #28865 [verbose] > │ #if FABLE_COMPILER_RUST && !WASM && !CONTRACT │
00:06:33 #28866 [verbose] > │ let v91 : bool = null |> unbox<bool> │
00:06:33 #28867 [verbose] > │ v91 │
00:06:33 #28868 [verbose] > │ #endif │
00:06:33 #28869 [verbose] > │ #if FABLE_COMPILER_RUST && WASM │
00:06:33 #28870 [verbose] > │ let v92 : bool = null |> unbox<bool> │
00:06:33 #28871 [verbose] > │ v92 │
00:06:33 #28872 [verbose] > │ #endif │
00:06:33 #28873 [verbose] > │ #if FABLE_COMPILER_RUST && CONTRACT │
00:06:33 #28874 [verbose] > │ let v93 : bool = null |> unbox<bool> │
00:06:33 #28875 [verbose] > │ v93 │
00:06:33 #28876 [verbose] > │ #endif │
00:06:33 #28877 [verbose] > │ #if !FABLE_COMPILER && !FABLE_COMPILER_RUST && │
00:06:33 #28878 [verbose] > │ !FABLE_COMPILER_TYPESCRIPT && !WASM && !CONTRACT │
00:06:33 #28879 [verbose] > │ let v94 : bool = v89.Exists │
00:06:33 #28880 [verbose] > │ v94 │
00:06:33 #28881 [verbose] > │ #endif │
00:06:33 #28882 [verbose] > │ #if FABLE_COMPILER_TYPESCRIPT │
00:06:33 #28883 [verbose] > │ let v95 : bool = null |> unbox<bool> │
00:06:33 #28884 [verbose] > │ v95 │
00:06:33 #28885 [verbose] > │ #endif │
00:06:33 #28886 [verbose] > │ #if FABLE_COMPILER_PYTHON || FABLE_COMPILER_PHP || FABLE_COMPILER_DART │
00:06:33 #28887 [verbose] > │ let v96 : bool = Unchecked.defaultof<bool> │
00:06:33 #28888 [verbose] > │ v96 │
00:06:33 #28889 [verbose] > │ #endif │
00:06:33 #28890 [verbose] > │ |> fun x -> _v90 <- Some x │
00:06:33 #28891 [verbose] > │ let v97 : bool = _v90.Value │
00:06:33 #28892 [verbose] > │ let v98 : bool = v97 = false │
00:06:33 #28893 [verbose] > │ if v98 then │
00:06:33 #28894 [verbose] > │ let v99 : System.DateTime option = None │
00:06:33 #28895 [verbose] > │ let mutable _v99 = v99 │
00:06:33 #28896 [verbose] > │ #if FABLE_COMPILER_RUST && !WASM && !CONTRACT │
00:06:33 #28897 [verbose] > │ let v100 : System.DateTime = null |> unbox<System.DateTime> │
00:06:33 #28898 [verbose] > │ v100 │
00:06:33 #28899 [verbose] > │ #endif │
00:06:33 #28900 [verbose] > │ #if FABLE_COMPILER_RUST && WASM │
00:06:33 #28901 [verbose] > │ let v101 : System.DateTime = null |> unbox<System.DateTime> │
00:06:33 #28902 [verbose] > │ v101 │
00:06:33 #28903 [verbose] > │ #endif │
00:06:33 #28904 [verbose] > │ #if FABLE_COMPILER_RUST && CONTRACT │
00:06:33 #28905 [verbose] > │ let v102 : System.DateTime = null |> unbox<System.DateTime> │
00:06:33 #28906 [verbose] > │ v102 │
00:06:33 #28907 [verbose] > │ #endif │
00:06:33 #28908 [verbose] > │ #if !FABLE_COMPILER && !FABLE_COMPILER_RUST && │
00:06:33 #28909 [verbose] > │ !FABLE_COMPILER_TYPESCRIPT && !WASM && !CONTRACT │
00:06:33 #28910 [verbose] > │ let v103 : System.DateTime = v89.CreationTime │
00:06:33 #28911 [verbose] > │ v103 │
00:06:33 #28912 [verbose] > │ #endif │
00:06:33 #28913 [verbose] > │ #if FABLE_COMPILER_TYPESCRIPT │
00:06:33 #28914 [verbose] > │ let v104 : System.DateTime = null |> unbox<System.DateTime> │
00:06:33 #28915 [verbose] > │ v104 │
00:06:33 #28916 [verbose] > │ #endif │
00:06:33 #28917 [verbose] > │ #if FABLE_COMPILER_PYTHON || FABLE_COMPILER_PHP || │
00:06:33 #28918 [verbose] > │ FABLE_COMPILER_DART │
00:06:33 #28919 [verbose] > │ let v105 : System.DateTime = Unchecked.defaultof<System.DateTime> │
00:06:33 #28920 [verbose] > │ v105 │
00:06:33 #28921 [verbose] > │ #endif │
00:06:33 #28922 [verbose] > │ |> fun x -> _v99 <- Some x │
00:06:33 #28923 [verbose] > │ let v106 : System.DateTime = _v99.Value │
00:06:33 #28924 [verbose] > │ let v107 : obj = {| Exists = v97; CreationTime = v106 |} │
00:06:33 #28925 [verbose] > │ let v108 : string = $"%A{v107}" │
00:06:33 #28926 [verbose] > │ let v109 : (unit -> string) = closure1(v80, v108) │
00:06:33 #28927 [verbose] > │ let v110 : string = $"create_temp_directory / {v109 ()}" │
00:06:33 #28928 [verbose] > │ System.Console.WriteLine v110 │
00:06:33 #28929 [verbose] > │ () │
00:06:33 #28930 [verbose] > │ let v111 : System.IDisposable option = None │
00:06:33 #28931 [verbose] > │ let mutable _v111 = v111 │
00:06:33 #28932 [verbose] > │ #if FABLE_COMPILER_RUST && !WASM && !CONTRACT │
00:06:33 #28933 [verbose] > │ let v112 : System.IDisposable = null |> unbox<System.IDisposable> │
00:06:33 #28934 [verbose] > │ v112 │
00:06:33 #28935 [verbose] > │ #endif │
00:06:33 #28936 [verbose] > │ #if FABLE_COMPILER_RUST && WASM │
00:06:33 #28937 [verbose] > │ let v113 : System.IDisposable = null |> unbox<System.IDisposable> │
00:06:33 #28938 [verbose] > │ v113 │
00:06:33 #28939 [verbose] > │ #endif │
00:06:33 #28940 [verbose] > │ #if FABLE_COMPILER_RUST && CONTRACT │
00:06:33 #28941 [verbose] > │ let v114 : System.IDisposable = null |> unbox<System.IDisposable> │
00:06:33 #28942 [verbose] > │ v114 │
00:06:33 #28943 [verbose] > │ #endif │
00:06:33 #28944 [verbose] > │ #if !FABLE_COMPILER && !FABLE_COMPILER_RUST && │
00:06:33 #28945 [verbose] > │ !FABLE_COMPILER_TYPESCRIPT && !WASM && !CONTRACT │
00:06:33 #28946 [verbose] > │ let v115 : (unit -> unit) = closure3(v80) │
00:06:33 #28947 [verbose] > │ let v116 : System.IDisposable = { new System.IDisposable with member │
00:06:33 #28948 [verbose] > │ _.Dispose () = v115 () } │
00:06:33 #28949 [verbose] > │ v116 │
00:06:33 #28950 [verbose] > │ #endif │
00:06:33 #28951 [verbose] > │ #if FABLE_COMPILER_TYPESCRIPT │
00:06:33 #28952 [verbose] > │ let v117 : System.IDisposable = null |> unbox<System.IDisposable> │
00:06:33 #28953 [verbose] > │ v117 │
00:06:33 #28954 [verbose] > │ #endif │
00:06:33 #28955 [verbose] > │ #if FABLE_COMPILER_PYTHON || FABLE_COMPILER_PHP || FABLE_COMPILER_DART │
00:06:33 #28956 [verbose] > │ let v118 : System.IDisposable = Unchecked.defaultof<System.IDisposable> │
00:06:33 #28957 [verbose] > │ v118 │
00:06:33 #28958 [verbose] > │ #endif │
00:06:33 #28959 [verbose] > │ |> fun x -> _v111 <- Some x │
00:06:33 #28960 [verbose] > │ let v119 : System.IDisposable = _v111.Value │
00:06:33 #28961 [verbose] > │ struct (v80, v119) │
00:06:33 #28962 [verbose] > │ #endif │
00:06:33 #28963 [verbose] > │ #if FABLE_COMPILER_TYPESCRIPT │
00:06:33 #28964 [verbose] > │ let struct (v120 : string, v121 : System.IDisposable) = null |> │
00:06:33 #28965 [verbose] > │ unbox<struct (string * System.IDisposable)> │
00:06:33 #28966 [verbose] > │ struct (v120, v121) │
00:06:33 #28967 [verbose] > │ #endif │
00:06:33 #28968 [verbose] > │ #if FABLE_COMPILER_PYTHON || FABLE_COMPILER_PHP || FABLE_COMPILER_DART │
00:06:33 #28969 [verbose] > │ let struct (v122 : string, v123 : System.IDisposable) = │
00:06:33 #28970 [verbose] > │ Unchecked.defaultof<struct (string * System.IDisposable)> │
00:06:33 #28971 [verbose] > │ struct (v122, v123) │
00:06:33 #28972 [verbose] > │ #endif │
00:06:33 #28973 [verbose] > │ |> fun x -> _v0 <- Some x │
00:06:33 #28974 [verbose] > │ let struct (v124 : string, v125 : System.IDisposable) = _v0.Value │
00:06:33 #28975 [verbose] > │ use v125 = v125 │
00:06:33 #28976 [verbose] > │ let v126 : System.IDisposable = v125 │
00:06:33 #28977 [verbose] > │ let v127 : bool option = None │
00:06:33 #28978 [verbose] > │ let mutable _v127 = v127 │
00:06:33 #28979 [verbose] > │ #if FABLE_COMPILER_RUST && !WASM && !CONTRACT │
00:06:33 #28980 [verbose] > │ let v128 : string = method1(v124) │
00:06:33 #28981 [verbose] > │ let v129 : string = "fable_library_rust::String_::LrcStr::as_str(&$0)" │
00:06:33 #28982 [verbose] > │ let v130 : Ref<Str> = Fable.Core.RustInterop.emitRustExpr v128 v129 │
00:06:33 #28983 [verbose] > │ let v131 : string = "String::from($0)" │
00:06:33 #28984 [verbose] > │ let v132 : std_string_String = Fable.Core.RustInterop.emitRustExpr v130 │
00:06:33 #28985 [verbose] > │ v131 │
00:06:33 #28986 [verbose] > │ let v133 : string = "std::path::PathBuf::from($0)" │
00:06:33 #28987 [verbose] > │ let v134 : std_path_PathBuf = Fable.Core.RustInterop.emitRustExpr v132 │
00:06:33 #28988 [verbose] > │ v133 │
00:06:33 #28989 [verbose] > │ let v135 : string = "$0.exists()" │
00:06:33 #28990 [verbose] > │ let v136 : bool = Fable.Core.RustInterop.emitRustExpr v134 v135 │
00:06:33 #28991 [verbose] > │ let v139 : bool = │
00:06:33 #28992 [verbose] > │ if v136 then │
00:06:33 #28993 [verbose] > │ let v137 : string = "$0.is_dir()" │
00:06:33 #28994 [verbose] > │ let v138 : bool = Fable.Core.RustInterop.emitRustExpr v134 v137 │
00:06:33 #28995 [verbose] > │ v138 │
00:06:33 #28996 [verbose] > │ else │
00:06:33 #28997 [verbose] > │ false │
00:06:33 #28998 [verbose] > │ v139 │
00:06:33 #28999 [verbose] > │ #endif │
00:06:33 #29000 [verbose] > │ #if FABLE_COMPILER_RUST && WASM │
00:06:33 #29001 [verbose] > │ let v140 : bool = null |> unbox<bool> │
00:06:33 #29002 [verbose] > │ v140 │
00:06:33 #29003 [verbose] > │ #endif │
00:06:33 #29004 [verbose] > │ #if FABLE_COMPILER_RUST && CONTRACT │
00:06:33 #29005 [verbose] > │ let v141 : bool = null |> unbox<bool> │
00:06:33 #29006 [verbose] > │ v141 │
00:06:33 #29007 [verbose] > │ #endif │
00:06:33 #29008 [verbose] > │ #if !FABLE_COMPILER && !FABLE_COMPILER_RUST && │
00:06:33 #29009 [verbose] > │ !FABLE_COMPILER_TYPESCRIPT && !WASM && !CONTRACT │
00:06:33 #29010 [verbose] > │ let v142 : (string -> bool) = System.IO.Directory.Exists │
00:06:33 #29011 [verbose] > │ let v143 : bool = v142 v124 │
00:06:33 #29012 [verbose] > │ v143 │
00:06:33 #29013 [verbose] > │ #endif │
00:06:33 #29014 [verbose] > │ #if FABLE_COMPILER_TYPESCRIPT │
00:06:33 #29015 [verbose] > │ let v144 : string = "fs" │
00:06:33 #29016 [verbose] > │ let v145 : IFsExistsSync = Fable.Core.JsInterop.importAll v144 │
00:06:33 #29017 [verbose] > │ let v146 : string = "v145.existsSync($0)" │
00:06:33 #29018 [verbose] > │ let v147 : bool = Fable.Core.JsInterop.emitJsExpr v124 v146 │
00:06:33 #29019 [verbose] > │ v147 │
00:06:33 #29020 [verbose] > │ #endif │
00:06:33 #29021 [verbose] > │ #if FABLE_COMPILER_PYTHON || FABLE_COMPILER_PHP || FABLE_COMPILER_DART │
00:06:33 #29022 [verbose] > │ let v148 : bool = Unchecked.defaultof<bool> │
00:06:33 #29023 [verbose] > │ v148 │
00:06:33 #29024 [verbose] > │ #endif │
00:06:33 #29025 [verbose] > │ |> fun x -> _v127 <- Some x │
00:06:33 #29026 [verbose] > │ let v149 : bool = _v127.Value │
00:06:33 #29027 [verbose] > │ let v150 : string = $"%A{v149}" │
00:06:33 #29028 [verbose] > │ System.Console.WriteLine v150 │
00:06:33 #29029 [verbose] > │ let v152 : bool = │
00:06:33 #29030 [verbose] > │ if v149 then │
00:06:33 #29031 [verbose] > │ true │
00:06:33 #29032 [verbose] > │ else │
00:06:33 #29033 [verbose] > │ method4(v149) │
00:06:33 #29034 [verbose] > │ let v153 : string = $"__expect / actual: %A{v149} / expected: %A{true}" │
00:06:33 #29035 [verbose] > │ let v154 : bool = v152 = false │
00:06:33 #29036 [verbose] > │ if v154 then │
00:06:33 #29037 [verbose] > │ failwith<unit> v153 │
00:06:33 #29038 [verbose] > │ method0() │
00:06:33 #29039 [verbose] > │ │
00:06:33 #29040 [verbose] > │ true │
00:06:33 #29041 [verbose] > │ │
00:06:33 #29042 [verbose] > ╰──────────────────────────────────────────────────────────────────────────────╯
00:06:33 #29043 [verbose] >
00:06:33 #29044 [verbose] > ── spiral ──────────────────────────────────────────────────────────────────────
00:06:33 #29045 [verbose] > // // test
00:06:33 #29046 [verbose] >
00:06:33 #29047 [verbose] > inl lock_directory path =
00:06:33 #29048 [verbose] > fun () =>
00:06:33 #29049 [verbose] > trace Debug (fun () => "_1") get_locals
00:06:33 #29050 [verbose] > "0" |> write_all_text_async (path </> "test.txt") |> async.do
00:06:33 #29051 [verbose] > file_stream
00:06:33 #29052 [verbose] > (path </> "test.txt")
00:06:33 #29053 [verbose] > ModeOpen
00:06:33 #29054 [verbose] > AccessReadWrite
00:06:33 #29055 [verbose] > ShareNone
00:06:33 #29056 [verbose] > |> use
00:06:33 #29057 [verbose] > |> ignore
00:06:33 #29058 [verbose] > trace Debug (fun () => "_2") get_locals
00:06:33 #29059 [verbose] > async.sleep 2000 |> async.do
00:06:33 #29060 [verbose] > trace Debug (fun () => "_3") get_locals
00:06:33 #29061 [verbose] > () |> return
00:06:33 #29062 [verbose] > |> async.new_async
00:06:33 #29063 [verbose] >
00:06:33 #29064 [verbose] > inl temp_dir, disposable = create_temp_directory ()
00:06:33 #29065 [verbose] > disposable |> use |> ignore
00:06:33 #29066 [verbose] > inl path = temp_dir </> "test"
00:06:33 #29067 [verbose] >
00:06:33 #29068 [verbose] > fun () =>
00:06:33 #29069 [verbose] > trace Debug (fun () => "1") get_locals
00:06:33 #29070 [verbose] > path |> create_directory |> ignore
00:06:33 #29071 [verbose] > trace Debug (fun () => "2") get_locals
00:06:33 #29072 [verbose] > inl child = path |> lock_directory |> async.start_child |> async.let'
00:06:33 #29073 [verbose] > trace Debug (fun () => "3") get_locals
00:06:33 #29074 [verbose] > async.sleep 60 |> async.do
00:06:33 #29075 [verbose] > trace Debug (fun () => "4") get_locals
00:06:33 #29076 [verbose] > inl retries = path |> delete_directory_async |> async.let'
00:06:33 #29077 [verbose] > trace Debug (fun () => "5") get_locals
00:06:33 #29078 [verbose] > child |> async.do
00:06:33 #29079 [verbose] > trace Debug (fun () => "6") get_locals
00:06:33 #29080 [verbose] > retries |> return
00:06:33 #29081 [verbose] > |> async.new_async_unit
00:06:33 #29082 [verbose] > |> async.run_with_timeout 3000
00:06:33 #29083 [verbose] > |> fun x => x : _ i64
00:06:33 #29084 [verbose] > |> function
00:06:33 #29085 [verbose] > | Some (retries : i64) =>
00:06:33 #29086 [verbose] > retries
00:06:33 #29087 [verbose] > |> _assert_between
00:06:33 #29088 [verbose] > (if runtime.is_windows () then 50 else 0)
00:06:33 #29089 [verbose] > (if runtime.is_windows () then 150 else 0)
00:06:33 #29090 [verbose] >
00:06:33 #29091 [verbose] > true
00:06:33 #29092 [verbose] > | _ => false
00:06:33 #29093 [verbose] > |> _assert_eq true
00:06:33 #29094 [verbose] > Building c:\home\git\polyglot\target\polyglot\spiral_eval\packages\c21bcc2df7fb3255f0dc8814dc6ccffca58d5fa0f22b9a736a646db0f6300d34\main.spi
00:06:36 #29095 [verbose] >
00:06:36 #29096 [verbose] > ╭─[ 3.23s - stdout ]───────────────────────────────────────────────────────────╮
00:06:36 #29097 [verbose] > │ type IPathJoin = abstract join: [<System.ParamArray>] paths: string[] -> │
00:06:36 #29098 [verbose] > │ string │
00:06:36 #29099 [verbose] > │ module State = let mutable trace_state = None │
00:06:36 #29100 [verbose] > │ type [<Struct>] US0 = │
00:06:36 #29101 [verbose] > │ | US0_0 │
00:06:36 #29102 [verbose] > │ | US0_1 │
00:06:36 #29103 [verbose] > │ | US0_2 │
00:06:36 #29104 [verbose] > │ | US0_3 │
00:06:36 #29105 [verbose] > │ | US0_4 │
00:06:36 #29106 [verbose] > │ and Mut0 = {mutable l0 : int64} │
00:06:36 #29107 [verbose] > │ and Mut1 = {mutable l0 : bool} │
00:06:36 #29108 [verbose] > │ and Mut2 = {mutable l0 : US0} │
00:06:36 #29109 [verbose] > │ and [<Struct>] US1 = │
00:06:36 #29110 [verbose] > │ | US1_0 of f0_0 : int64 │
00:06:36 #29111 [verbose] > │ | US1_1 │
00:06:36 #29112 [verbose] > │ and [<Struct>] US2 = │
00:06:36 #29113 [verbose] > │ | US2_0 of f0_0 : int64 │
00:06:36 #29114 [verbose] > │ | US2_1 │
00:06:36 #29115 [verbose] > │ and [<Struct>] US3 = │
00:06:36 #29116 [verbose] > │ | US3_0 of f0_0 : int64 │
00:06:36 #29117 [verbose] > │ | US3_1 of f1_0 : exn │
00:06:36 #29118 [verbose] > │ and [<Struct>] US4 = │
00:06:36 #29119 [verbose] > │ | US4_0 of f0_0 : int64 │
00:06:36 #29120 [verbose] > │ | US4_1 of f1_0 : exn │
00:06:36 #29121 [verbose] > │ let rec closure0 () () : string = │
00:06:36 #29122 [verbose] > │ let v0 : string option = None │
00:06:36 #29123 [verbose] > │ let mutable _v0 = v0 │
00:06:36 #29124 [verbose] > │ #if FABLE_COMPILER_RUST && !WASM && !CONTRACT │
00:06:36 #29125 [verbose] > │ let v1 : string = null |> unbox<string> │
00:06:36 #29126 [verbose] > │ v1 │
00:06:36 #29127 [verbose] > │ #endif │
00:06:36 #29128 [verbose] > │ #if FABLE_COMPILER_RUST && WASM │
00:06:36 #29129 [verbose] > │ let v2 : string = null |> unbox<string> │
00:06:36 #29130 [verbose] > │ v2 │
00:06:36 #29131 [verbose] > │ #endif │
00:06:36 #29132 [verbose] > │ #if FABLE_COMPILER_RUST && CONTRACT │
00:06:36 #29133 [verbose] > │ let v3 : string = null |> unbox<string> │
00:06:36 #29134 [verbose] > │ v3 │
00:06:36 #29135 [verbose] > │ #endif │
00:06:36 #29136 [verbose] > │ #if !FABLE_COMPILER && !FABLE_COMPILER_RUST && │
00:06:36 #29137 [verbose] > │ !FABLE_COMPILER_TYPESCRIPT && !WASM && !CONTRACT │
00:06:36 #29138 [verbose] > │ let v4 : string = │
00:06:36 #29139 [verbose] > │ System.Reflection.Assembly.GetEntryAssembly().GetName().Name │
00:06:36 #29140 [verbose] > │ v4 │
00:06:36 #29141 [verbose] > │ #endif │
00:06:36 #29142 [verbose] > │ #if FABLE_COMPILER_TYPESCRIPT │
00:06:36 #29143 [verbose] > │ let v5 : string = null |> unbox<string> │
00:06:36 #29144 [verbose] > │ v5 │
00:06:36 #29145 [verbose] > │ #endif │
00:06:36 #29146 [verbose] > │ #if FABLE_COMPILER_PYTHON || FABLE_COMPILER_PHP || FABLE_COMPILER_DART │
00:06:36 #29147 [verbose] > │ let v6 : string = Unchecked.defaultof<string> │
00:06:36 #29148 [verbose] > │ v6 │
00:06:36 #29149 [verbose] > │ #endif │
00:06:36 #29150 [verbose] > │ |> fun x -> _v0 <- Some x │
00:06:36 #29151 [verbose] > │ let v7 : string = _v0.Value │
00:06:36 #29152 [verbose] > │ v7 │
00:06:36 #29153 [verbose] > │ and method1 (v0 : string) : string = │
00:06:36 #29154 [verbose] > │ v0 │
00:06:36 #29155 [verbose] > │ and closure2 () () : string = │
00:06:36 #29156 [verbose] > │ let v0 : string = "" │
00:06:36 #29157 [verbose] > │ v0 │
00:06:36 #29158 [verbose] > │ and closure1 (v0 : string, v1 : string) () : string = │
00:06:36 #29159 [verbose] > │ let v2 : (unit -> string) = closure2() │
00:06:36 #29160 [verbose] > │ let v3 : string = $"temp_folder: {v0} / result: {v1} {v2 ()}" │
00:06:36 #29161 [verbose] > │ v3 │
00:06:36 #29162 [verbose] > │ and closure5 () (v0 : string) : string = │
00:06:36 #29163 [verbose] > │ let v1 : string option = None │
00:06:36 #29164 [verbose] > │ let mutable _v1 = v1 │
00:06:36 #29165 [verbose] > │ #if FABLE_COMPILER_RUST && !WASM && !CONTRACT │
00:06:36 #29166 [verbose] > │ let v2 : string = null |> unbox<string> │
00:06:36 #29167 [verbose] > │ v2 │
00:06:36 #29168 [verbose] > │ #endif │
00:06:36 #29169 [verbose] > │ #if FABLE_COMPILER_RUST && WASM │
00:06:36 #29170 [verbose] > │ let v3 : string = null |> unbox<string> │
00:06:36 #29171 [verbose] > │ v3 │
00:06:36 #29172 [verbose] > │ #endif │
00:06:36 #29173 [verbose] > │ #if FABLE_COMPILER_RUST && CONTRACT │
00:06:36 #29174 [verbose] > │ let v4 : string = null |> unbox<string> │
00:06:36 #29175 [verbose] > │ v4 │
00:06:36 #29176 [verbose] > │ #endif │
00:06:36 #29177 [verbose] > │ #if !FABLE_COMPILER && !FABLE_COMPILER_RUST && │
00:06:36 #29178 [verbose] > │ !FABLE_COMPILER_TYPESCRIPT && !WASM && !CONTRACT │
00:06:36 #29179 [verbose] > │ let v5 : (string -> string) = System.IO.Path.GetFileName │
00:06:36 #29180 [verbose] > │ let v6 : string = v5 v0 │
00:06:36 #29181 [verbose] > │ v6 │
00:06:36 #29182 [verbose] > │ #endif │
00:06:36 #29183 [verbose] > │ #if FABLE_COMPILER_TYPESCRIPT │
00:06:36 #29184 [verbose] > │ let v7 : string = null |> unbox<string> │
00:06:36 #29185 [verbose] > │ v7 │
00:06:36 #29186 [verbose] > │ #endif │
00:06:36 #29187 [verbose] > │ #if FABLE_COMPILER_PYTHON || FABLE_COMPILER_PHP || FABLE_COMPILER_DART │
00:06:36 #29188 [verbose] > │ let v8 : string = Unchecked.defaultof<string> │
00:06:36 #29189 [verbose] > │ v8 │
00:06:36 #29190 [verbose] > │ #endif │
00:06:36 #29191 [verbose] > │ |> fun x -> _v1 <- Some x │
00:06:36 #29192 [verbose] > │ let v9 : string = _v1.Value │
00:06:36 #29193 [verbose] > │ v9 │
00:06:36 #29194 [verbose] > │ and method3 (v0 : string, v1 : string) : string = │
00:06:36 #29195 [verbose] > │ let v2 : (string -> string) = closure5() │
00:06:36 #29196 [verbose] > │ let v3 : (unit -> string) = closure2() │
00:06:36 #29197 [verbose] > │ let v4 : string = $"path: {v0 |> v2} / ex: {v1} / {v3 ()}" │
00:06:36 #29198 [verbose] > │ v4 │
00:06:36 #29199 [verbose] > │ and closure4 (v0 : string, v1 : string) () : string = │
00:06:36 #29200 [verbose] > │ method3(v0, v1) │
00:06:36 #29201 [verbose] > │ and method2 (v0 : string, v1 : int64) : Async<int64> = │
00:06:36 #29202 [verbose] > │ let v2 : Async<int64> option = None │
00:06:36 #29203 [verbose] > │ let mutable _v2 = v2 │
00:06:36 #29204 [verbose] > │ #if FABLE_COMPILER_RUST && !WASM && !CONTRACT │
00:06:36 #29205 [verbose] > │ let v3 : Async<int64> = null |> unbox<Async<int64>> │
00:06:36 #29206 [verbose] > │ v3 │
00:06:36 #29207 [verbose] > │ #endif │
00:06:36 #29208 [verbose] > │ #if FABLE_COMPILER_RUST && WASM │
00:06:36 #29209 [verbose] > │ let v4 : Async<int64> = null |> unbox<Async<int64>> │
00:06:36 #29210 [verbose] > │ v4 │
00:06:36 #29211 [verbose] > │ #endif │
00:06:36 #29212 [verbose] > │ #if FABLE_COMPILER_RUST && CONTRACT │
00:06:36 #29213 [verbose] > │ let v5 : Async<int64> = null |> unbox<Async<int64>> │
00:06:36 #29214 [verbose] > │ v5 │
00:06:36 #29215 [verbose] > │ #endif │
00:06:36 #29216 [verbose] > │ #if !FABLE_COMPILER && !FABLE_COMPILER_RUST && │
00:06:36 #29217 [verbose] > │ !FABLE_COMPILER_TYPESCRIPT && !WASM && !CONTRACT │
00:06:36 #29218 [verbose] > │ let v6 : Async<int64> option = None │
00:06:36 #29219 [verbose] > │ let mutable _v6 = v6 │
00:06:36 #29220 [verbose] > │ async { │
00:06:36 #29221 [verbose] > │ try │
00:06:36 #29222 [verbose] > │ let v7 : unit option = None │
00:06:36 #29223 [verbose] > │ let mutable _v7 = v7 │
00:06:36 #29224 [verbose] > │ #if FABLE_COMPILER_RUST && !WASM && !CONTRACT │
00:06:36 #29225 [verbose] > │ null |> unbox<unit> │
00:06:36 #29226 [verbose] > │ () │
00:06:36 #29227 [verbose] > │ #endif │
00:06:36 #29228 [verbose] > │ #if FABLE_COMPILER_RUST && WASM │
00:06:36 #29229 [verbose] > │ null |> unbox<unit> │
00:06:36 #29230 [verbose] > │ () │
00:06:36 #29231 [verbose] > │ #endif │
00:06:36 #29232 [verbose] > │ #if FABLE_COMPILER_RUST && CONTRACT │
00:06:36 #29233 [verbose] > │ null |> unbox<unit> │
00:06:36 #29234 [verbose] > │ () │
00:06:36 #29235 [verbose] > │ #endif │
00:06:36 #29236 [verbose] > │ #if !FABLE_COMPILER && !FABLE_COMPILER_RUST && │
00:06:36 #29237 [verbose] > │ !FABLE_COMPILER_TYPESCRIPT && !WASM && !CONTRACT │
00:06:36 #29238 [verbose] > │ System.IO.Directory.Delete (v0, true) │
00:06:36 #29239 [verbose] > │ () │
00:06:36 #29240 [verbose] > │ #endif │
00:06:36 #29241 [verbose] > │ #if FABLE_COMPILER_TYPESCRIPT │
00:06:36 #29242 [verbose] > │ null |> unbox<unit> │
00:06:36 #29243 [verbose] > │ () │
00:06:36 #29244 [verbose] > │ #endif │
00:06:36 #29245 [verbose] > │ #if FABLE_COMPILER_PYTHON || FABLE_COMPILER_PHP || FABLE_COMPILER_DART │
00:06:36 #29246 [verbose] > │ Unchecked.defaultof<unit> │
00:06:36 #29247 [verbose] > │ () │
00:06:36 #29248 [verbose] > │ #endif │
00:06:36 #29249 [verbose] > │ |> fun x -> _v7 <- Some x │
00:06:36 #29250 [verbose] > │ _v7.Value │
00:06:36 #29251 [verbose] > │ return v1 │
00:06:36 #29252 [verbose] > │ with ex -> │
00:06:36 #29253 [verbose] > │ let v8 : exn = ex │
00:06:36 #29254 [verbose] > │ let v9 : int64 = v1 % 100L │
00:06:36 #29255 [verbose] > │ let v10 : bool = v9 = 0L │
00:06:36 #29256 [verbose] > │ if v10 then │
00:06:36 #29257 [verbose] > │ let v11 : string option = None │
00:06:36 #29258 [verbose] > │ let mutable _v11 = v11 │
00:06:36 #29259 [verbose] > │ #if FABLE_COMPILER_RUST && !WASM && !CONTRACT │
00:06:36 #29260 [verbose] > │ let v12 : string = $"%A{v8}" │
00:06:36 #29261 [verbose] > │ v12 │
00:06:36 #29262 [verbose] > │ #endif │
00:06:36 #29263 [verbose] > │ #if FABLE_COMPILER_RUST && WASM │
00:06:36 #29264 [verbose] > │ let v13 : string = $"%A{v8}" │
00:06:36 #29265 [verbose] > │ v13 │
00:06:36 #29266 [verbose] > │ #endif │
00:06:36 #29267 [verbose] > │ #if FABLE_COMPILER_RUST && CONTRACT │
00:06:36 #29268 [verbose] > │ let v14 : string = $"%A{v8}" │
00:06:36 #29269 [verbose] > │ v14 │
00:06:36 #29270 [verbose] > │ #endif │
00:06:36 #29271 [verbose] > │ #if !FABLE_COMPILER && !FABLE_COMPILER_RUST && │
00:06:36 #29272 [verbose] > │ !FABLE_COMPILER_TYPESCRIPT && !WASM && !CONTRACT │
00:06:36 #29273 [verbose] > │ let v15 : string = $"{v8.GetType ()}: {v8.Message}" │
00:06:36 #29274 [verbose] > │ v15 │
00:06:36 #29275 [verbose] > │ #endif │
00:06:36 #29276 [verbose] > │ #if FABLE_COMPILER_TYPESCRIPT │
00:06:36 #29277 [verbose] > │ let v16 : string = $"%A{v8}" │
00:06:36 #29278 [verbose] > │ v16 │
00:06:36 #29279 [verbose] > │ #endif │
00:06:36 #29280 [verbose] > │ #if FABLE_COMPILER_PYTHON || FABLE_COMPILER_PHP || │
00:06:36 #29281 [verbose] > │ FABLE_COMPILER_DART │
00:06:36 #29282 [verbose] > │ let v17 : string = Unchecked.defaultof<string> │
00:06:36 #29283 [verbose] > │ v17 │
00:06:36 #29284 [verbose] > │ #endif │
00:06:36 #29285 [verbose] > │ |> fun x -> _v11 <- Some x │
00:06:36 #29286 [verbose] > │ let v18 : string = _v11.Value │
00:06:36 #29287 [verbose] > │ let v19 : (unit -> string) = closure4(v0, v18) │
00:06:36 #29288 [verbose] > │ let v20 : string = $"delete_directory_async / {v19 ()}" │
00:06:36 #29289 [verbose] > │ System.Console.WriteLine v20 │
00:06:36 #29290 [verbose] > │ () │
00:06:36 #29291 [verbose] > │ let v21 : Async<unit> option = None │
00:06:36 #29292 [verbose] > │ let mutable _v21 = v21 │
00:06:36 #29293 [verbose] > │ #if FABLE_COMPILER_RUST && !WASM && !CONTRACT │
00:06:36 #29294 [verbose] > │ let v22 : Async<unit> = null |> unbox<Async<unit>> │
00:06:36 #29295 [verbose] > │ v22 │
00:06:36 #29296 [verbose] > │ #endif │
00:06:36 #29297 [verbose] > │ #if FABLE_COMPILER_RUST && WASM │
00:06:36 #29298 [verbose] > │ let v23 : Async<unit> = null |> unbox<Async<unit>> │
00:06:36 #29299 [verbose] > │ v23 │
00:06:36 #29300 [verbose] > │ #endif │
00:06:36 #29301 [verbose] > │ #if FABLE_COMPILER_RUST && CONTRACT │
00:06:36 #29302 [verbose] > │ let v24 : Async<unit> = null |> unbox<Async<unit>> │
00:06:36 #29303 [verbose] > │ v24 │
00:06:36 #29304 [verbose] > │ #endif │
00:06:36 #29305 [verbose] > │ #if !FABLE_COMPILER && !FABLE_COMPILER_RUST && │
00:06:36 #29306 [verbose] > │ !FABLE_COMPILER_TYPESCRIPT && !WASM && !CONTRACT │
00:06:36 #29307 [verbose] > │ let v25 : (int32 -> Async<unit>) = Async.Sleep │
00:06:36 #29308 [verbose] > │ let v26 : Async<unit> = v25 10 │
00:06:36 #29309 [verbose] > │ v26 │
00:06:36 #29310 [verbose] > │ #endif │
00:06:36 #29311 [verbose] > │ #if FABLE_COMPILER_TYPESCRIPT │
00:06:36 #29312 [verbose] > │ let v27 : Async<unit> = null |> unbox<Async<unit>> │
00:06:36 #29313 [verbose] > │ v27 │
00:06:36 #29314 [verbose] > │ #endif │
00:06:36 #29315 [verbose] > │ #if FABLE_COMPILER_PYTHON || FABLE_COMPILER_PHP || FABLE_COMPILER_DART │
00:06:36 #29316 [verbose] > │ let v28 : Async<unit> = Unchecked.defaultof<Async<unit>> │
00:06:36 #29317 [verbose] > │ v28 │
00:06:36 #29318 [verbose] > │ #endif │
00:06:36 #29319 [verbose] > │ |> fun x -> _v21 <- Some x │
00:06:36 #29320 [verbose] > │ let v29 : Async<unit> = _v21.Value │
00:06:36 #29321 [verbose] > │ do! v29 │
00:06:36 #29322 [verbose] > │ let v30 : int64 = v1 + 1L │
00:06:36 #29323 [verbose] > │ let v31 : Async<int64> = method2(v0, v30) │
00:06:36 #29324 [verbose] > │ return! v31 │
00:06:36 #29325 [verbose] > │ (* │
00:06:36 #29326 [verbose] > │ let v32 : int64 = *) │
00:06:36 #29327 [verbose] > │ } │
00:06:36 #29328 [verbose] > │ |> fun x -> _v6 <- Some x │
00:06:36 #29329 [verbose] > │ let v33 : Async<int64> = _v6 |> Option.get │
00:06:36 #29330 [verbose] > │ v33 │
00:06:36 #29331 [verbose] > │ #endif │
00:06:36 #29332 [verbose] > │ #if FABLE_COMPILER_TYPESCRIPT │
00:06:36 #29333 [verbose] > │ let v34 : Async<int64> = null |> unbox<Async<int64>> │
00:06:36 #29334 [verbose] > │ v34 │
00:06:36 #29335 [verbose] > │ #endif │
00:06:36 #29336 [verbose] > │ #if FABLE_COMPILER_PYTHON || FABLE_COMPILER_PHP || FABLE_COMPILER_DART │
00:06:36 #29337 [verbose] > │ let v35 : Async<int64> = Unchecked.defaultof<Async<int64>> │
00:06:36 #29338 [verbose] > │ v35 │
00:06:36 #29339 [verbose] > │ #endif │
00:06:36 #29340 [verbose] > │ |> fun x -> _v2 <- Some x │
00:06:36 #29341 [verbose] > │ let v36 : Async<int64> = _v2.Value │
00:06:36 #29342 [verbose] > │ v36 │
00:06:36 #29343 [verbose] > │ and closure3 (v0 : string) () : unit = │
00:06:36 #29344 [verbose] > │ let v1 : Async<int64> option = None │
00:06:36 #29345 [verbose] > │ let mutable _v1 = v1 │
00:06:36 #29346 [verbose] > │ #if FABLE_COMPILER_RUST && !WASM && !CONTRACT │
00:06:36 #29347 [verbose] > │ let v2 : Async<int64> = null |> unbox<Async<int64>> │
00:06:36 #29348 [verbose] > │ v2 │
00:06:36 #29349 [verbose] > │ #endif │
00:06:36 #29350 [verbose] > │ #if FABLE_COMPILER_RUST && WASM │
00:06:36 #29351 [verbose] > │ let v3 : Async<int64> = null |> unbox<Async<int64>> │
00:06:36 #29352 [verbose] > │ v3 │
00:06:36 #29353 [verbose] > │ #endif │
00:06:36 #29354 [verbose] > │ #if FABLE_COMPILER_RUST && CONTRACT │
00:06:36 #29355 [verbose] > │ let v4 : Async<int64> = null |> unbox<Async<int64>> │
00:06:36 #29356 [verbose] > │ v4 │
00:06:36 #29357 [verbose] > │ #endif │
00:06:36 #29358 [verbose] > │ #if !FABLE_COMPILER && !FABLE_COMPILER_RUST && │
00:06:36 #29359 [verbose] > │ !FABLE_COMPILER_TYPESCRIPT && !WASM && !CONTRACT │
00:06:36 #29360 [verbose] > │ let v5 : int64 = 0L │
00:06:36 #29361 [verbose] > │ let v6 : Async<int64> = method2(v0, v5) │
00:06:36 #29362 [verbose] > │ v6 │
00:06:36 #29363 [verbose] > │ #endif │
00:06:36 #29364 [verbose] > │ #if FABLE_COMPILER_TYPESCRIPT │
00:06:36 #29365 [verbose] > │ let v7 : Async<int64> = null |> unbox<Async<int64>> │
00:06:36 #29366 [verbose] > │ v7 │
00:06:36 #29367 [verbose] > │ #endif │
00:06:36 #29368 [verbose] > │ #if FABLE_COMPILER_PYTHON || FABLE_COMPILER_PHP || FABLE_COMPILER_DART │
00:06:36 #29369 [verbose] > │ let v8 : Async<int64> = Unchecked.defaultof<Async<int64>> │
00:06:36 #29370 [verbose] > │ v8 │
00:06:36 #29371 [verbose] > │ #endif │
00:06:36 #29372 [verbose] > │ |> fun x -> _v1 <- Some x │
00:06:36 #29373 [verbose] > │ let v9 : Async<int64> = _v1.Value │
00:06:36 #29374 [verbose] > │ let v10 : Async<unit> option = None │
00:06:36 #29375 [verbose] > │ let mutable _v10 = v10 │
00:06:36 #29376 [verbose] > │ #if FABLE_COMPILER_RUST && !WASM && !CONTRACT │
00:06:36 #29377 [verbose] > │ let v11 : Async<unit> = null |> unbox<Async<unit>> │
00:06:36 #29378 [verbose] > │ v11 │
00:06:36 #29379 [verbose] > │ #endif │
00:06:36 #29380 [verbose] > │ #if FABLE_COMPILER_RUST && WASM │
00:06:36 #29381 [verbose] > │ let v12 : Async<unit> = null |> unbox<Async<unit>> │
00:06:36 #29382 [verbose] > │ v12 │
00:06:36 #29383 [verbose] > │ #endif │
00:06:36 #29384 [verbose] > │ #if FABLE_COMPILER_RUST && CONTRACT │
00:06:36 #29385 [verbose] > │ let v13 : Async<unit> = null |> unbox<Async<unit>> │
00:06:36 #29386 [verbose] > │ v13 │
00:06:36 #29387 [verbose] > │ #endif │
00:06:36 #29388 [verbose] > │ #if !FABLE_COMPILER && !FABLE_COMPILER_RUST && │
00:06:36 #29389 [verbose] > │ !FABLE_COMPILER_TYPESCRIPT && !WASM && !CONTRACT │
00:06:36 #29390 [verbose] > │ let v14 : (Async<int64> -> Async<unit>) = Async.Ignore │
00:06:36 #29391 [verbose] > │ let v15 : Async<unit> = v14 v9 │
00:06:36 #29392 [verbose] > │ v15 │
00:06:36 #29393 [verbose] > │ #endif │
00:06:36 #29394 [verbose] > │ #if FABLE_COMPILER_TYPESCRIPT │
00:06:36 #29395 [verbose] > │ let v16 : Async<unit> = null |> unbox<Async<unit>> │
00:06:36 #29396 [verbose] > │ v16 │
00:06:36 #29397 [verbose] > │ #endif │
00:06:36 #29398 [verbose] > │ #if FABLE_COMPILER_PYTHON || FABLE_COMPILER_PHP || FABLE_COMPILER_DART │
00:06:36 #29399 [verbose] > │ let v17 : Async<unit> = Unchecked.defaultof<Async<unit>> │
00:06:36 #29400 [verbose] > │ v17 │
00:06:36 #29401 [verbose] > │ #endif │
00:06:36 #29402 [verbose] > │ |> fun x -> _v10 <- Some x │
00:06:36 #29403 [verbose] > │ let v18 : Async<unit> = _v10.Value │
00:06:36 #29404 [verbose] > │ let v19 : unit option = None │
00:06:36 #29405 [verbose] > │ let mutable _v19 = v19 │
00:06:36 #29406 [verbose] > │ #if FABLE_COMPILER_RUST && !WASM && !CONTRACT │
00:06:36 #29407 [verbose] > │ null |> unbox<unit> │
00:06:36 #29408 [verbose] > │ () │
00:06:36 #29409 [verbose] > │ #endif │
00:06:36 #29410 [verbose] > │ #if FABLE_COMPILER_RUST && WASM │
00:06:36 #29411 [verbose] > │ null |> unbox<unit> │
00:06:36 #29412 [verbose] > │ () │
00:06:36 #29413 [verbose] > │ #endif │
00:06:36 #29414 [verbose] > │ #if FABLE_COMPILER_RUST && CONTRACT │
00:06:36 #29415 [verbose] > │ null |> unbox<unit> │
00:06:36 #29416 [verbose] > │ () │
00:06:36 #29417 [verbose] > │ #endif │
00:06:36 #29418 [verbose] > │ #if !FABLE_COMPILER && !FABLE_COMPILER_RUST && │
00:06:36 #29419 [verbose] > │ !FABLE_COMPILER_TYPESCRIPT && !WASM && !CONTRACT │
00:06:36 #29420 [verbose] > │ let v20 : (Async<unit> -> unit) = Async.RunSynchronously │
00:06:36 #29421 [verbose] > │ v20 v18 │
00:06:36 #29422 [verbose] > │ () │
00:06:36 #29423 [verbose] > │ #endif │
00:06:36 #29424 [verbose] > │ #if FABLE_COMPILER_TYPESCRIPT │
00:06:36 #29425 [verbose] > │ null |> unbox<unit> │
00:06:36 #29426 [verbose] > │ () │
00:06:36 #29427 [verbose] > │ #endif │
00:06:36 #29428 [verbose] > │ #if FABLE_COMPILER_PYTHON || FABLE_COMPILER_PHP || FABLE_COMPILER_DART │
00:06:36 #29429 [verbose] > │ Unchecked.defaultof<unit> │
00:06:36 #29430 [verbose] > │ () │
00:06:36 #29431 [verbose] > │ #endif │
00:06:36 #29432 [verbose] > │ |> fun x -> _v19 <- Some x │
00:06:36 #29433 [verbose] > │ _v19.Value │
00:06:36 #29434 [verbose] > │ () │
00:06:36 #29435 [verbose] > │ and method4 () : string = │
00:06:36 #29436 [verbose] > │ let v0 : string = "test" │
00:06:36 #29437 [verbose] > │ v0 │
00:06:36 #29438 [verbose] > │ and closure6 () () : string = │
00:06:36 #29439 [verbose] > │ let v0 : string = "1" │
00:06:36 #29440 [verbose] > │ v0 │
00:06:36 #29441 [verbose] > │ and method6 (v0 : int64 option) : int64 option = │
00:06:36 #29442 [verbose] > │ v0 │
00:06:36 #29443 [verbose] > │ and method7 (v0 : int64 option) : int64 option = │
00:06:36 #29444 [verbose] > │ v0 │
00:06:36 #29445 [verbose] > │ and closure7 () () : struct (Mut0 * Mut1 * Mut1 * Mut2 * int64 option) = │
00:06:36 #29446 [verbose] > │ let v0 : Mut1 = {l0 = true} : Mut1 │
00:06:36 #29447 [verbose] > │ let v1 : Mut0 = {l0 = 0L} : Mut0 │
00:06:36 #29448 [verbose] > │ let v2 : US0 = US0_0 │
00:06:36 #29449 [verbose] > │ let v3 : Mut2 = {l0 = v2} : Mut2 │
00:06:36 #29450 [verbose] > │ let v4 : Mut1 = {l0 = false} : Mut1 │
00:06:36 #29451 [verbose] > │ let v5 : int64 option option = None │
00:06:36 #29452 [verbose] > │ let mutable _v5 = v5 │
00:06:36 #29453 [verbose] > │ #if INTERACTIVE || !FABLE_COMPILER │
00:06:36 #29454 [verbose] > │ let v6 : string option = None │
00:06:36 #29455 [verbose] > │ let mutable _v6 = v6 │
00:06:36 #29456 [verbose] > │ #if FABLE_COMPILER_RUST && !WASM && !CONTRACT │
00:06:36 #29457 [verbose] > │ let v7 : string = null |> unbox<string> │
00:06:36 #29458 [verbose] > │ v7 │
00:06:36 #29459 [verbose] > │ #endif │
00:06:36 #29460 [verbose] > │ #if FABLE_COMPILER_RUST && WASM │
00:06:36 #29461 [verbose] > │ let v8 : string = null |> unbox<string> │
00:06:36 #29462 [verbose] > │ v8 │
00:06:36 #29463 [verbose] > │ #endif │
00:06:36 #29464 [verbose] > │ #if FABLE_COMPILER_RUST && CONTRACT │
00:06:36 #29465 [verbose] > │ let v9 : string = null |> unbox<string> │
00:06:36 #29466 [verbose] > │ v9 │
00:06:36 #29467 [verbose] > │ #endif │
00:06:36 #29468 [verbose] > │ #if !FABLE_COMPILER && !FABLE_COMPILER_RUST && │
00:06:36 #29469 [verbose] > │ !FABLE_COMPILER_TYPESCRIPT && !WASM && !CONTRACT │
00:06:36 #29470 [verbose] > │ let v10 : string = │
00:06:36 #29471 [verbose] > │ System.Reflection.Assembly.GetEntryAssembly().GetName().Name │
00:06:36 #29472 [verbose] > │ v10 │
00:06:36 #29473 [verbose] > │ #endif │
00:06:36 #29474 [verbose] > │ #if FABLE_COMPILER_TYPESCRIPT │
00:06:36 #29475 [verbose] > │ let v11 : string = null |> unbox<string> │
00:06:36 #29476 [verbose] > │ v11 │
00:06:36 #29477 [verbose] > │ #endif │
00:06:36 #29478 [verbose] > │ #if FABLE_COMPILER_PYTHON || FABLE_COMPILER_PHP || FABLE_COMPILER_DART │
00:06:36 #29479 [verbose] > │ let v12 : string = Unchecked.defaultof<string> │
00:06:36 #29480 [verbose] > │ v12 │
00:06:36 #29481 [verbose] > │ #endif │
00:06:36 #29482 [verbose] > │ |> fun x -> _v6 <- Some x │
00:06:36 #29483 [verbose] > │ let v13 : string = _v6.Value │
00:06:36 #29484 [verbose] > │ let v15 : bool = v13 = "Microsoft.DotNet.Interactive.App" │
00:06:36 #29485 [verbose] > │ let v16 : bool = v15 <> true │
00:06:36 #29486 [verbose] > │ let v22 : US1 = │
00:06:36 #29487 [verbose] > │ if v16 then │
00:06:36 #29488 [verbose] > │ let v17 : System.DateTime = System.DateTime.Now │
00:06:36 #29489 [verbose] > │ let v18 : (System.DateTime -> int64) = _.Ticks │
00:06:36 #29490 [verbose] > │ let v19 : int64 = v18 v17 │
00:06:36 #29491 [verbose] > │ US1_0(v19) │
00:06:36 #29492 [verbose] > │ else │
00:06:36 #29493 [verbose] > │ US1_1 │
00:06:36 #29494 [verbose] > │ let v27 : int64 option = │
00:06:36 #29495 [verbose] > │ match v22 with │
00:06:36 #29496 [verbose] > │ | US1_1 -> (* None *) │
00:06:36 #29497 [verbose] > │ let v25 : int64 option = None │
00:06:36 #29498 [verbose] > │ v25 │
00:06:36 #29499 [verbose] > │ | US1_0(v23) -> (* Some *) │
00:06:36 #29500 [verbose] > │ let v24 : int64 option = Some v23 │
00:06:36 #29501 [verbose] > │ v24 │
00:06:36 #29502 [verbose] > │ let v28 : int64 option = method6(v27) │
00:06:36 #29503 [verbose] > │ v28 │
00:06:36 #29504 [verbose] > │ #else │
00:06:36 #29505 [verbose] > │ let v29 : int64 option = None │
00:06:36 #29506 [verbose] > │ let v30 : int64 option = method7(v29) │
00:06:36 #29507 [verbose] > │ v30 │
00:06:36 #29508 [verbose] > │ #endif │
00:06:36 #29509 [verbose] > │ |> fun x -> _v5 <- Some x │
00:06:36 #29510 [verbose] > │ let v31 : int64 option = _v5.Value │
00:06:36 #29511 [verbose] > │ struct (v1, v4, v0, v3, v31) │
00:06:36 #29512 [verbose] > │ and closure9 () (v0 : int64) : US2 = │
00:06:36 #29513 [verbose] > │ US2_0(v0) │
00:06:36 #29514 [verbose] > │ and method8 () : (int64 -> US2) = │
00:06:36 #29515 [verbose] > │ closure9() │
00:06:36 #29516 [verbose] > │ and method9 () : string = │
00:06:36 #29517 [verbose] > │ let v0 : string = "" │
00:06:36 #29518 [verbose] > │ v0 │
00:06:36 #29519 [verbose] > │ and closure8 (v0 : US0, v1 : (unit -> string), v2 : (unit -> string)) () : │
00:06:36 #29520 [verbose] > │ string = │
00:06:36 #29521 [verbose] > │ let v3 : (unit -> struct (Mut0 * Mut1 * Mut1 * Mut2 * int64 option)) = │
00:06:36 #29522 [verbose] > │ closure7() │
00:06:36 #29523 [verbose] > │ if State.trace_state = None then State.trace_state <- v3 () |> Some │
00:06:36 #29524 [verbose] > │ let struct (v4 : Mut0, v5 : Mut1, v6 : Mut1, v7 : Mut2, v8 : int64 │
00:06:36 #29525 [verbose] > │ option) = State.trace_state.Value │
00:06:36 #29526 [verbose] > │ let v9 : string option = None │
00:06:36 #29527 [verbose] > │ let mutable _v9 = v9 │
00:06:36 #29528 [verbose] > │ #if FABLE_COMPILER_RUST && !WASM && !CONTRACT │
00:06:36 #29529 [verbose] > │ let v10 : (int64 -> US2) = method8() │
00:06:36 #29530 [verbose] > │ let v11 : US2 = US2_1 │
00:06:36 #29531 [verbose] > │ let v12 : US2 = v8 |> Option.map v10 |> Option.defaultValue v11 │
00:06:36 #29532 [verbose] > │ let v30 : System.DateTime = │
00:06:36 #29533 [verbose] > │ match v12 with │
00:06:36 #29534 [verbose] > │ | US2_1 -> (* None *) │
00:06:36 #29535 [verbose] > │ let v28 : System.DateTime = System.DateTime.Now │
00:06:36 #29536 [verbose] > │ v28 │
00:06:36 #29537 [verbose] > │ | US2_0(v13) -> (* Some *) │
00:06:36 #29538 [verbose] > │ let v14 : System.DateTime = System.DateTime.Now │
00:06:36 #29539 [verbose] > │ let v15 : (System.DateTime -> int64) = _.Ticks │
00:06:36 #29540 [verbose] > │ let v16 : int64 = v15 v14 │
00:06:36 #29541 [verbose] > │ let v17 : int64 = v16 - v13 │
00:06:36 #29542 [verbose] > │ let v18 : System.TimeSpan = System.TimeSpan v17 │
00:06:36 #29543 [verbose] > │ let v19 : (System.TimeSpan -> int32) = _.Hours │
00:06:36 #29544 [verbose] > │ let v20 : int32 = v19 v18 │
00:06:36 #29545 [verbose] > │ let v21 : (System.TimeSpan -> int32) = _.Minutes │
00:06:36 #29546 [verbose] > │ let v22 : int32 = v21 v18 │
00:06:36 #29547 [verbose] > │ let v23 : (System.TimeSpan -> int32) = _.Seconds │
00:06:36 #29548 [verbose] > │ let v24 : int32 = v23 v18 │
00:06:36 #29549 [verbose] > │ let v25 : (System.TimeSpan -> int32) = _.Milliseconds │
00:06:36 #29550 [verbose] > │ let v26 : int32 = v25 v18 │
00:06:36 #29551 [verbose] > │ let v27 : System.DateTime = System.DateTime (1, 1, 1, v20, v22, │
00:06:36 #29552 [verbose] > │ v24, v26) │
00:06:36 #29553 [verbose] > │ v27 │
00:06:36 #29554 [verbose] > │ let v31 : string = "hh:mm:ss" │
00:06:36 #29555 [verbose] > │ let v32 : string = v30.ToString v31 │
00:06:36 #29556 [verbose] > │ v32 │
00:06:36 #29557 [verbose] > │ #endif │
00:06:36 #29558 [verbose] > │ #if FABLE_COMPILER_RUST && WASM │
00:06:36 #29559 [verbose] > │ let v33 : string = method9() │
00:06:36 #29560 [verbose] > │ v33 │
00:06:36 #29561 [verbose] > │ #endif │
00:06:36 #29562 [verbose] > │ #if FABLE_COMPILER_RUST && CONTRACT │
00:06:36 #29563 [verbose] > │ let v34 : string = method9() │
00:06:36 #29564 [verbose] > │ v34 │
00:06:36 #29565 [verbose] > │ #endif │
00:06:36 #29566 [verbose] > │ #if !FABLE_COMPILER && !FABLE_COMPILER_RUST && │
00:06:36 #29567 [verbose] > │ !FABLE_COMPILER_TYPESCRIPT && !WASM && !CONTRACT │
00:06:36 #29568 [verbose] > │ let v35 : (int64 -> US2) = method8() │
00:06:36 #29569 [verbose] > │ let v36 : US2 = US2_1 │
00:06:36 #29570 [verbose] > │ let v37 : US2 = v8 |> Option.map v35 |> Option.defaultValue v36 │
00:06:36 #29571 [verbose] > │ let v55 : System.DateTime = │
00:06:36 #29572 [verbose] > │ match v37 with │
00:06:36 #29573 [verbose] > │ | US2_1 -> (* None *) │
00:06:36 #29574 [verbose] > │ let v53 : System.DateTime = System.DateTime.Now │
00:06:36 #29575 [verbose] > │ v53 │
00:06:36 #29576 [verbose] > │ | US2_0(v38) -> (* Some *) │
00:06:36 #29577 [verbose] > │ let v39 : System.DateTime = System.DateTime.Now │
00:06:36 #29578 [verbose] > │ let v40 : (System.DateTime -> int64) = _.Ticks │
00:06:36 #29579 [verbose] > │ let v41 : int64 = v40 v39 │
00:06:36 #29580 [verbose] > │ let v42 : int64 = v41 - v38 │
00:06:36 #29581 [verbose] > │ let v43 : System.TimeSpan = System.TimeSpan v42 │
00:06:36 #29582 [verbose] > │ let v44 : (System.TimeSpan -> int32) = _.Hours │
00:06:36 #29583 [verbose] > │ let v45 : int32 = v44 v43 │
00:06:36 #29584 [verbose] > │ let v46 : (System.TimeSpan -> int32) = _.Minutes │
00:06:36 #29585 [verbose] > │ let v47 : int32 = v46 v43 │
00:06:36 #29586 [verbose] > │ let v48 : (System.TimeSpan -> int32) = _.Seconds │
00:06:36 #29587 [verbose] > │ let v49 : int32 = v48 v43 │
00:06:36 #29588 [verbose] > │ let v50 : (System.TimeSpan -> int32) = _.Milliseconds │
00:06:36 #29589 [verbose] > │ let v51 : int32 = v50 v43 │
00:06:36 #29590 [verbose] > │ let v52 : System.DateTime = System.DateTime (1, 1, 1, v45, v47, │
00:06:36 #29591 [verbose] > │ v49, v51) │
00:06:36 #29592 [verbose] > │ v52 │
00:06:36 #29593 [verbose] > │ let v56 : string = "HH:mm:ss" │
00:06:36 #29594 [verbose] > │ let v57 : string = v55.ToString v56 │
00:06:36 #29595 [verbose] > │ v57 │
00:06:36 #29596 [verbose] > │ #endif │
00:06:36 #29597 [verbose] > │ #if FABLE_COMPILER_TYPESCRIPT │
00:06:36 #29598 [verbose] > │ let v58 : string = method9() │
00:06:36 #29599 [verbose] > │ v58 │
00:06:36 #29600 [verbose] > │ #endif │
00:06:36 #29601 [verbose] > │ #if FABLE_COMPILER_PYTHON || FABLE_COMPILER_PHP || FABLE_COMPILER_DART │
00:06:36 #29602 [verbose] > │ let v59 : string = Unchecked.defaultof<string> │
00:06:36 #29603 [verbose] > │ v59 │
00:06:36 #29604 [verbose] > │ #endif │
00:06:36 #29605 [verbose] > │ |> fun x -> _v9 <- Some x │
00:06:36 #29606 [verbose] > │ let v60 : string = _v9.Value │
00:06:36 #29607 [verbose] > │ let v61 : int64 = v4.l0 │
00:06:36 #29608 [verbose] > │ let v71 : string = │
00:06:36 #29609 [verbose] > │ match v0 with │
00:06:36 #29610 [verbose] > │ | US0_4 -> (* Critical *) │
00:06:36 #29611 [verbose] > │ let v66 : string = "Critical" │
00:06:36 #29612 [verbose] > │ v66 │
00:06:36 #29613 [verbose] > │ | US0_1 -> (* Debug *) │
00:06:36 #29614 [verbose] > │ let v63 : string = "Debug" │
00:06:36 #29615 [verbose] > │ v63 │
00:06:36 #29616 [verbose] > │ | US0_2 -> (* Info *) │
00:06:36 #29617 [verbose] > │ let v64 : string = "Info" │
00:06:36 #29618 [verbose] > │ v64 │
00:06:36 #29619 [verbose] > │ | US0_0 -> (* Verbose *) │
00:06:36 #29620 [verbose] > │ let v62 : string = "Verbose" │
00:06:36 #29621 [verbose] > │ v62 │
00:06:36 #29622 [verbose] > │ | US0_3 -> (* Warning *) │
00:06:36 #29623 [verbose] > │ let v65 : string = "Warning" │
00:06:36 #29624 [verbose] > │ v65 │
00:06:36 #29625 [verbose] > │ let v72 : string = v71.ToLower () │
00:06:36 #29626 [verbose] > │ let v73 : string = $"{v60} #{v61} [{v72}] %s{v1 ()} / %s{v2 ()}" │
00:06:36 #29627 [verbose] > │ let v74 : (char []) = [||] │
00:06:36 #29628 [verbose] > │ let v75 : string = v73.TrimStart v74 │
00:06:36 #29629 [verbose] > │ let v76 : (char []) = [|' '; '/'|] │
00:06:36 #29630 [verbose] > │ let v77 : string = v75.TrimEnd v76 │
00:06:36 #29631 [verbose] > │ v77 │
00:06:36 #29632 [verbose] > │ and method5 (v0 : US0, v1 : (unit -> string), v2 : (unit -> string)) : unit │
00:06:36 #29633 [verbose] > │ = │
00:06:36 #29634 [verbose] > │ let v3 : (unit -> struct (Mut0 * Mut1 * Mut1 * Mut2 * int64 option)) = │
00:06:36 #29635 [verbose] > │ closure7() │
00:06:36 #29636 [verbose] > │ if State.trace_state = None then State.trace_state <- v3 () |> Some │
00:06:36 #29637 [verbose] > │ let struct (v4 : Mut0, v5 : Mut1, v6 : Mut1, v7 : Mut2, v8 : int64 │
00:06:36 #29638 [verbose] > │ option) = State.trace_state.Value │
00:06:36 #29639 [verbose] > │ if State.trace_state = None then State.trace_state <- v3 () |> Some │
00:06:36 #29640 [verbose] > │ let struct (v9 : Mut0, v10 : Mut1, v11 : Mut1, v12 : Mut2, v13 : int64 │
00:06:36 #29641 [verbose] > │ option) = State.trace_state.Value │
00:06:36 #29642 [verbose] > │ let v14 : US0 = v12.l0 │
00:06:36 #29643 [verbose] > │ let v15 : bool = v11.l0 │
00:06:36 #29644 [verbose] > │ let v17 : bool = │
00:06:36 #29645 [verbose] > │ if v15 then │
00:06:36 #29646 [verbose] > │ let v16 : bool = v0 >= v14 │
00:06:36 #29647 [verbose] > │ v16 │
00:06:36 #29648 [verbose] > │ else │
00:06:36 #29649 [verbose] > │ false │
00:06:36 #29650 [verbose] > │ if v17 then │
00:06:36 #29651 [verbose] > │ let v18 : int64 = v4.l0 │
00:06:36 #29652 [verbose] > │ let v19 : int64 = v18 + 1L │
00:06:36 #29653 [verbose] > │ v4.l0 <- v19 │
00:06:36 #29654 [verbose] > │ let v20 : (unit -> string) = closure8(v0, v1, v2) │
00:06:36 #29655 [verbose] > │ let v21 : string = $"%s{v20 ()}" │
00:06:36 #29656 [verbose] > │ let v22 : unit option = None │
00:06:36 #29657 [verbose] > │ let mutable _v22 = v22 │
00:06:36 #29658 [verbose] > │ #if FABLE_COMPILER_RUST && !WASM && !CONTRACT │
00:06:36 #29659 [verbose] > │ let v23 : string = @"println!(""{}"", $0)" │
00:06:36 #29660 [verbose] > │ Fable.Core.RustInterop.emitRustExpr v21 v23 │
00:06:36 #29661 [verbose] > │ () │
00:06:36 #29662 [verbose] > │ #endif │
00:06:36 #29663 [verbose] > │ #if FABLE_COMPILER_RUST && WASM │
00:06:36 #29664 [verbose] > │ let v24 : string = @"println!(""{}"", $0)" │
00:06:36 #29665 [verbose] > │ Fable.Core.RustInterop.emitRustExpr v21 v24 │
00:06:36 #29666 [verbose] > │ () │
00:06:36 #29667 [verbose] > │ #endif │
00:06:36 #29668 [verbose] > │ #if FABLE_COMPILER_RUST && CONTRACT │
00:06:36 #29669 [verbose] > │ let v25 : string = @"println!(""{}"", $0)" │
00:06:36 #29670 [verbose] > │ Fable.Core.RustInterop.emitRustExpr v21 v25 │
00:06:36 #29671 [verbose] > │ () │
00:06:36 #29672 [verbose] > │ #endif │
00:06:36 #29673 [verbose] > │ #if !FABLE_COMPILER && !FABLE_COMPILER_RUST && │
00:06:36 #29674 [verbose] > │ !FABLE_COMPILER_TYPESCRIPT && !WASM && !CONTRACT │
00:06:36 #29675 [verbose] > │ System.Console.WriteLine v21 │
00:06:36 #29676 [verbose] > │ () │
00:06:36 #29677 [verbose] > │ #endif │
00:06:36 #29678 [verbose] > │ #if FABLE_COMPILER_TYPESCRIPT │
00:06:36 #29679 [verbose] > │ System.Console.WriteLine v21 │
00:06:36 #29680 [verbose] > │ () │
00:06:36 #29681 [verbose] > │ #endif │
00:06:36 #29682 [verbose] > │ #if FABLE_COMPILER_PYTHON || FABLE_COMPILER_PHP || │
00:06:36 #29683 [verbose] > │ FABLE_COMPILER_DART │
00:06:36 #29684 [verbose] > │ Unchecked.defaultof<unit> │
00:06:36 #29685 [verbose] > │ () │
00:06:36 #29686 [verbose] > │ #endif │
00:06:36 #29687 [verbose] > │ |> fun x -> _v22 <- Some x │
00:06:36 #29688 [verbose] > │ _v22.Value │
00:06:36 #29689 [verbose] > │ () │
00:06:36 #29690 [verbose] > │ and closure10 () () : string = │
00:06:36 #29691 [verbose] > │ let v0 : string = "2" │
00:06:36 #29692 [verbose] > │ v0 │
00:06:36 #29693 [verbose] > │ and closure11 () () : string = │
00:06:36 #29694 [verbose] > │ let v0 : string = "_1" │
00:06:36 #29695 [verbose] > │ v0 │
00:06:36 #29696 [verbose] > │ and method10 () : string = │
00:06:36 #29697 [verbose] > │ let v0 : string = "test.txt" │
00:06:36 #29698 [verbose] > │ v0 │
00:06:36 #29699 [verbose] > │ and closure12 () () : string = │
00:06:36 #29700 [verbose] > │ let v0 : string = "_2" │
00:06:36 #29701 [verbose] > │ v0 │
00:06:36 #29702 [verbose] > │ and closure13 () () : string = │
00:06:36 #29703 [verbose] > │ let v0 : string = "_3" │
00:06:36 #29704 [verbose] > │ v0 │
00:06:36 #29705 [verbose] > │ and closure14 () () : string = │
00:06:36 #29706 [verbose] > │ let v0 : string = "3" │
00:06:36 #29707 [verbose] > │ v0 │
00:06:36 #29708 [verbose] > │ and closure15 () () : string = │
00:06:36 #29709 [verbose] > │ let v0 : string = "4" │
00:06:36 #29710 [verbose] > │ v0 │
00:06:36 #29711 [verbose] > │ and closure16 () () : string = │
00:06:36 #29712 [verbose] > │ let v0 : string = "5" │
00:06:36 #29713 [verbose] > │ v0 │
00:06:36 #29714 [verbose] > │ and closure17 () () : string = │
00:06:36 #29715 [verbose] > │ let v0 : string = "6" │
00:06:36 #29716 [verbose] > │ v0 │
00:06:36 #29717 [verbose] > │ and closure18 () (v0 : int64) : US3 = │
00:06:36 #29718 [verbose] > │ US3_0(v0) │
00:06:36 #29719 [verbose] > │ and closure19 () (v0 : exn) : US3 = │
00:06:36 #29720 [verbose] > │ US3_1(v0) │
00:06:36 #29721 [verbose] > │ and closure20 () () : string = │
00:06:36 #29722 [verbose] > │ let v0 : string = "run_with_timeout_async" │
00:06:36 #29723 [verbose] > │ v0 │
00:06:36 #29724 [verbose] > │ and closure21 () () : string = │
00:06:36 #29725 [verbose] > │ let v0 : (unit -> string) = closure2() │
00:06:36 #29726 [verbose] > │ let v1 : string = $"timeout: {3000} / {v0 ()}" │
00:06:36 #29727 [verbose] > │ v1 │
00:06:36 #29728 [verbose] > │ and closure22 (v0 : string) () : string = │
00:06:36 #29729 [verbose] > │ let v1 : string = $"run_with_timeout_async** / ex: {v0}" │
00:06:36 #29730 [verbose] > │ v1 │
00:06:36 #29731 [verbose] > │ and method11 (v0 : bool) : bool = │
00:06:36 #29732 [verbose] > │ v0 │
00:06:36 #29733 [verbose] > │ and method0 () : unit = │
00:06:36 #29734 [verbose] > │ let v0 : struct (string * System.IDisposable) option = None │
00:06:36 #29735 [verbose] > │ let mutable _v0 = v0 │
00:06:36 #29736 [verbose] > │ #if FABLE_COMPILER_RUST && !WASM && !CONTRACT │
00:06:36 #29737 [verbose] > │ let struct (v1 : string, v2 : System.IDisposable) = null |> unbox<struct │
00:06:36 #29738 [verbose] > │ (string * System.IDisposable)> │
00:06:36 #29739 [verbose] > │ struct (v1, v2) │
00:06:36 #29740 [verbose] > │ #endif │
00:06:36 #29741 [verbose] > │ #if FABLE_COMPILER_RUST && WASM │
00:06:36 #29742 [verbose] > │ let struct (v3 : string, v4 : System.IDisposable) = null |> unbox<struct │
00:06:36 #29743 [verbose] > │ (string * System.IDisposable)> │
00:06:36 #29744 [verbose] > │ struct (v3, v4) │
00:06:36 #29745 [verbose] > │ #endif │
00:06:36 #29746 [verbose] > │ #if FABLE_COMPILER_RUST && CONTRACT │
00:06:36 #29747 [verbose] > │ let struct (v5 : string, v6 : System.IDisposable) = null |> unbox<struct │
00:06:36 #29748 [verbose] > │ (string * System.IDisposable)> │
00:06:36 #29749 [verbose] > │ struct (v5, v6) │
00:06:36 #29750 [verbose] > │ #endif │
00:06:36 #29751 [verbose] > │ #if !FABLE_COMPILER && !FABLE_COMPILER_RUST && │
00:06:36 #29752 [verbose] > │ !FABLE_COMPILER_TYPESCRIPT && !WASM && !CONTRACT │
00:06:36 #29753 [verbose] > │ let v7 : string option = None │
00:06:36 #29754 [verbose] > │ let mutable _v7 = v7 │
00:06:36 #29755 [verbose] > │ #if FABLE_COMPILER_RUST && !WASM && !CONTRACT │
00:06:36 #29756 [verbose] > │ let v8 : string = null |> unbox<string> │
00:06:36 #29757 [verbose] > │ v8 │
00:06:36 #29758 [verbose] > │ #endif │
00:06:36 #29759 [verbose] > │ #if FABLE_COMPILER_RUST && WASM │
00:06:36 #29760 [verbose] > │ let v9 : string = null |> unbox<string> │
00:06:36 #29761 [verbose] > │ v9 │
00:06:36 #29762 [verbose] > │ #endif │
00:06:36 #29763 [verbose] > │ #if FABLE_COMPILER_RUST && CONTRACT │
00:06:36 #29764 [verbose] > │ let v10 : string = null |> unbox<string> │
00:06:36 #29765 [verbose] > │ v10 │
00:06:36 #29766 [verbose] > │ #endif │
00:06:36 #29767 [verbose] > │ #if !FABLE_COMPILER && !FABLE_COMPILER_RUST && │
00:06:36 #29768 [verbose] > │ !FABLE_COMPILER_TYPESCRIPT && !WASM && !CONTRACT │
00:06:36 #29769 [verbose] > │ let v11 : (unit -> string) = System.IO.Path.GetTempPath │
00:06:36 #29770 [verbose] > │ let v12 : string = v11 () │
00:06:36 #29771 [verbose] > │ let v13 : (unit -> string) = closure0() │
00:06:36 #29772 [verbose] > │ let v14 : string = $"!{v13 ()}" │
00:06:36 #29773 [verbose] > │ let v15 : string option = None │
00:06:36 #29774 [verbose] > │ let mutable _v15 = v15 │
00:06:36 #29775 [verbose] > │ #if FABLE_COMPILER_RUST && !WASM && !CONTRACT │
00:06:36 #29776 [verbose] > │ let v16 : string = method1(v12) │
00:06:36 #29777 [verbose] > │ let v17 : string = "fable_library_rust::String_::LrcStr::as_str(&$0)" │
00:06:36 #29778 [verbose] > │ let v18 : Ref<Str> = Fable.Core.RustInterop.emitRustExpr v16 v17 │
00:06:36 #29779 [verbose] > │ let v19 : string = "String::from($0)" │
00:06:36 #29780 [verbose] > │ let v20 : std_string_String = Fable.Core.RustInterop.emitRustExpr v18 │
00:06:36 #29781 [verbose] > │ v19 │
00:06:36 #29782 [verbose] > │ let v21 : string = "std::path::PathBuf::from($0)" │
00:06:36 #29783 [verbose] > │ let v22 : std_path_PathBuf = Fable.Core.RustInterop.emitRustExpr v20 v21 │
00:06:36 #29784 [verbose] > │ let v23 : string = method1(v14) │
00:06:36 #29785 [verbose] > │ let v24 : string = "fable_library_rust::String_::LrcStr::as_str(&$0)" │
00:06:36 #29786 [verbose] > │ let v25 : Ref<Str> = Fable.Core.RustInterop.emitRustExpr v23 v24 │
00:06:36 #29787 [verbose] > │ let v26 : string = "String::from($0)" │
00:06:36 #29788 [verbose] > │ let v27 : std_string_String = Fable.Core.RustInterop.emitRustExpr v25 │
00:06:36 #29789 [verbose] > │ v26 │
00:06:36 #29790 [verbose] > │ let v28 : string = "$0.join($1)" │
00:06:36 #29791 [verbose] > │ let v29 : std_path_PathBuf = Fable.Core.RustInterop.emitRustExpr struct │
00:06:36 #29792 [verbose] > │ (v22, v27) v28 │
00:06:36 #29793 [verbose] > │ let v30 : string = "$0.display().to_string()" │
00:06:36 #29794 [verbose] > │ let v31 : std_string_String = Fable.Core.RustInterop.emitRustExpr v29 │
00:06:36 #29795 [verbose] > │ v30 │
00:06:36 #29796 [verbose] > │ let v32 : string = "fable_library_rust::String_::fromString($0)" │
00:06:36 #29797 [verbose] > │ let v33 : string = Fable.Core.RustInterop.emitRustExpr v31 v32 │
00:06:36 #29798 [verbose] > │ v33 │
00:06:36 #29799 [verbose] > │ #endif │
00:06:36 #29800 [verbose] > │ #if FABLE_COMPILER_RUST && WASM │
00:06:36 #29801 [verbose] > │ let v34 : string = null |> unbox<string> │
00:06:36 #29802 [verbose] > │ v34 │
00:06:36 #29803 [verbose] > │ #endif │
00:06:36 #29804 [verbose] > │ #if FABLE_COMPILER_RUST && CONTRACT │
00:06:36 #29805 [verbose] > │ let v35 : string = null |> unbox<string> │
00:06:36 #29806 [verbose] > │ v35 │
00:06:36 #29807 [verbose] > │ #endif │
00:06:36 #29808 [verbose] > │ #if !FABLE_COMPILER && !FABLE_COMPILER_RUST && │
00:06:36 #29809 [verbose] > │ !FABLE_COMPILER_TYPESCRIPT && !WASM && !CONTRACT │
00:06:36 #29810 [verbose] > │ let v36 : string = System.IO.Path.Combine (v12, v14) │
00:06:36 #29811 [verbose] > │ v36 │
00:06:36 #29812 [verbose] > │ #endif │
00:06:36 #29813 [verbose] > │ #if FABLE_COMPILER_TYPESCRIPT │
00:06:36 #29814 [verbose] > │ let v37 : string = "path" │
00:06:36 #29815 [verbose] > │ let v38 : IPathJoin = Fable.Core.JsInterop.importAll v37 │
00:06:36 #29816 [verbose] > │ let v39 : string = "v38.join($0, $1)" │
00:06:36 #29817 [verbose] > │ let v40 : string = Fable.Core.JsInterop.emitJsExpr struct (v12, v14) v39 │
00:06:36 #29818 [verbose] > │ v40 │
00:06:36 #29819 [verbose] > │ #endif │
00:06:36 #29820 [verbose] > │ #if FABLE_COMPILER_PYTHON || FABLE_COMPILER_PHP || FABLE_COMPILER_DART │
00:06:36 #29821 [verbose] > │ let v41 : string = Unchecked.defaultof<string> │
00:06:36 #29822 [verbose] > │ v41 │
00:06:36 #29823 [verbose] > │ #endif │
00:06:36 #29824 [verbose] > │ |> fun x -> _v15 <- Some x │
00:06:36 #29825 [verbose] > │ let v42 : string = _v15.Value │
00:06:36 #29826 [verbose] > │ let v43 : System.DateTime = System.DateTime.Now │
00:06:36 #29827 [verbose] > │ let v44 : System.Guid = System.Guid.NewGuid () │
00:06:36 #29828 [verbose] > │ let v45 : (System.Guid -> string) = _.ToString() │
00:06:36 #29829 [verbose] > │ let v46 : string = v45 v44 │
00:06:36 #29830 [verbose] > │ let v47 : string = v43.ToString "yyyyMMdd-HHmm-ssff-ffff-f" │
00:06:36 #29831 [verbose] > │ let v48 : System.Guid = System.Guid $"{v47}{v46.[v47.Length..]}" │
00:06:36 #29832 [verbose] > │ let v49 : (System.Guid -> string) = _.ToString() │
00:06:36 #29833 [verbose] > │ let v50 : string = v49 v48 │
00:06:36 #29834 [verbose] > │ let v51 : string option = None │
00:06:36 #29835 [verbose] > │ let mutable _v51 = v51 │
00:06:36 #29836 [verbose] > │ #if FABLE_COMPILER_RUST && !WASM && !CONTRACT │
00:06:36 #29837 [verbose] > │ let v52 : string = method1(v42) │
00:06:36 #29838 [verbose] > │ let v53 : string = "fable_library_rust::String_::LrcStr::as_str(&$0)" │
00:06:36 #29839 [verbose] > │ let v54 : Ref<Str> = Fable.Core.RustInterop.emitRustExpr v52 v53 │
00:06:36 #29840 [verbose] > │ let v55 : string = "String::from($0)" │
00:06:36 #29841 [verbose] > │ let v56 : std_string_String = Fable.Core.RustInterop.emitRustExpr v54 │
00:06:36 #29842 [verbose] > │ v55 │
00:06:36 #29843 [verbose] > │ let v57 : string = "std::path::PathBuf::from($0)" │
00:06:36 #29844 [verbose] > │ let v58 : std_path_PathBuf = Fable.Core.RustInterop.emitRustExpr v56 v57 │
00:06:36 #29845 [verbose] > │ let v59 : string = method1(v50) │
00:06:36 #29846 [verbose] > │ let v60 : string = "fable_library_rust::String_::LrcStr::as_str(&$0)" │
00:06:36 #29847 [verbose] > │ let v61 : Ref<Str> = Fable.Core.RustInterop.emitRustExpr v59 v60 │
00:06:36 #29848 [verbose] > │ let v62 : string = "String::from($0)" │
00:06:36 #29849 [verbose] > │ let v63 : std_string_String = Fable.Core.RustInterop.emitRustExpr v61 │
00:06:36 #29850 [verbose] > │ v62 │
00:06:36 #29851 [verbose] > │ let v64 : string = "$0.join($1)" │
00:06:36 #29852 [verbose] > │ let v65 : std_path_PathBuf = Fable.Core.RustInterop.emitRustExpr struct │
00:06:36 #29853 [verbose] > │ (v58, v63) v64 │
00:06:36 #29854 [verbose] > │ let v66 : string = "$0.display().to_string()" │
00:06:36 #29855 [verbose] > │ let v67 : std_string_String = Fable.Core.RustInterop.emitRustExpr v65 │
00:06:36 #29856 [verbose] > │ v66 │
00:06:36 #29857 [verbose] > │ let v68 : string = "fable_library_rust::String_::fromString($0)" │
00:06:36 #29858 [verbose] > │ let v69 : string = Fable.Core.RustInterop.emitRustExpr v67 v68 │
00:06:36 #29859 [verbose] > │ v69 │
00:06:36 #29860 [verbose] > │ #endif │
00:06:36 #29861 [verbose] > │ #if FABLE_COMPILER_RUST && WASM │
00:06:36 #29862 [verbose] > │ let v70 : string = null |> unbox<string> │
00:06:36 #29863 [verbose] > │ v70 │
00:06:36 #29864 [verbose] > │ #endif │
00:06:36 #29865 [verbose] > │ #if FABLE_COMPILER_RUST && CONTRACT │
00:06:36 #29866 [verbose] > │ let v71 : string = null |> unbox<string> │
00:06:36 #29867 [verbose] > │ v71 │
00:06:36 #29868 [verbose] > │ #endif │
00:06:36 #29869 [verbose] > │ #if !FABLE_COMPILER && !FABLE_COMPILER_RUST && │
00:06:36 #29870 [verbose] > │ !FABLE_COMPILER_TYPESCRIPT && !WASM && !CONTRACT │
00:06:36 #29871 [verbose] > │ let v72 : string = System.IO.Path.Combine (v42, v50) │
00:06:36 #29872 [verbose] > │ v72 │
00:06:36 #29873 [verbose] > │ #endif │
00:06:36 #29874 [verbose] > │ #if FABLE_COMPILER_TYPESCRIPT │
00:06:36 #29875 [verbose] > │ let v73 : IPathJoin = Fable.Core.JsInterop.importAll v37 │
00:06:36 #29876 [verbose] > │ let v74 : string = "v73.join($0, $1)" │
00:06:36 #29877 [verbose] > │ let v75 : string = Fable.Core.JsInterop.emitJsExpr struct (v42, v50) v74 │
00:06:36 #29878 [verbose] > │ v75 │
00:06:36 #29879 [verbose] > │ #endif │
00:06:36 #29880 [verbose] > │ #if FABLE_COMPILER_PYTHON || FABLE_COMPILER_PHP || FABLE_COMPILER_DART │
00:06:36 #29881 [verbose] > │ let v76 : string = Unchecked.defaultof<string> │
00:06:36 #29882 [verbose] > │ v76 │
00:06:36 #29883 [verbose] > │ #endif │
00:06:36 #29884 [verbose] > │ |> fun x -> _v51 <- Some x │
00:06:36 #29885 [verbose] > │ let v77 : string = _v51.Value │
00:06:36 #29886 [verbose] > │ v77 │
00:06:36 #29887 [verbose] > │ #endif │
00:06:36 #29888 [verbose] > │ #if FABLE_COMPILER_TYPESCRIPT │
00:06:36 #29889 [verbose] > │ let v78 : string = null |> unbox<string> │
00:06:36 #29890 [verbose] > │ v78 │
00:06:36 #29891 [verbose] > │ #endif │
00:06:36 #29892 [verbose] > │ #if FABLE_COMPILER_PYTHON || FABLE_COMPILER_PHP || FABLE_COMPILER_DART │
00:06:36 #29893 [verbose] > │ let v79 : string = Unchecked.defaultof<string> │
00:06:36 #29894 [verbose] > │ v79 │
00:06:36 #29895 [verbose] > │ #endif │
00:06:36 #29896 [verbose] > │ |> fun x -> _v7 <- Some x │
00:06:36 #29897 [verbose] > │ let v80 : string = _v7.Value │
00:06:36 #29898 [verbose] > │ let v81 : System.IO.DirectoryInfo option = None │
00:06:36 #29899 [verbose] > │ let mutable _v81 = v81 │
00:06:36 #29900 [verbose] > │ #if FABLE_COMPILER_RUST && !WASM && !CONTRACT │
00:06:36 #29901 [verbose] > │ let v82 : System.IO.DirectoryInfo = null |> │
00:06:36 #29902 [verbose] > │ unbox<System.IO.DirectoryInfo> │
00:06:36 #29903 [verbose] > │ v82 │
00:06:36 #29904 [verbose] > │ #endif │
00:06:36 #29905 [verbose] > │ #if FABLE_COMPILER_RUST && WASM │
00:06:36 #29906 [verbose] > │ let v83 : System.IO.DirectoryInfo = null |> │
00:06:36 #29907 [verbose] > │ unbox<System.IO.DirectoryInfo> │
00:06:36 #29908 [verbose] > │ v83 │
00:06:36 #29909 [verbose] > │ #endif │
00:06:36 #29910 [verbose] > │ #if FABLE_COMPILER_RUST && CONTRACT │
00:06:36 #29911 [verbose] > │ let v84 : System.IO.DirectoryInfo = null |> │
00:06:36 #29912 [verbose] > │ unbox<System.IO.DirectoryInfo> │
00:06:36 #29913 [verbose] > │ v84 │
00:06:36 #29914 [verbose] > │ #endif │
00:06:36 #29915 [verbose] > │ #if !FABLE_COMPILER && !FABLE_COMPILER_RUST && │
00:06:36 #29916 [verbose] > │ !FABLE_COMPILER_TYPESCRIPT && !WASM && !CONTRACT │
00:06:36 #29917 [verbose] > │ let v85 : (string -> System.IO.DirectoryInfo) = │
00:06:36 #29918 [verbose] > │ System.IO.Directory.CreateDirectory │
00:06:36 #29919 [verbose] > │ let v86 : System.IO.DirectoryInfo = v85 v80 │
00:06:36 #29920 [verbose] > │ v86 │
00:06:36 #29921 [verbose] > │ #endif │
00:06:36 #29922 [verbose] > │ #if FABLE_COMPILER_TYPESCRIPT │
00:06:36 #29923 [verbose] > │ let v87 : System.IO.DirectoryInfo = null |> │
00:06:36 #29924 [verbose] > │ unbox<System.IO.DirectoryInfo> │
00:06:36 #29925 [verbose] > │ v87 │
00:06:36 #29926 [verbose] > │ #endif │
00:06:36 #29927 [verbose] > │ #if FABLE_COMPILER_PYTHON || FABLE_COMPILER_PHP || FABLE_COMPILER_DART │
00:06:36 #29928 [verbose] > │ let v88 : System.IO.DirectoryInfo = │
00:06:36 #29929 [verbose] > │ Unchecked.defaultof<System.IO.DirectoryInfo> │
00:06:36 #29930 [verbose] > │ v88 │
00:06:36 #29931 [verbose] > │ #endif │
00:06:36 #29932 [verbose] > │ |> fun x -> _v81 <- Some x │
00:06:36 #29933 [verbose] > │ let v89 : System.IO.DirectoryInfo = _v81.Value │
00:06:36 #29934 [verbose] > │ let v90 : bool option = None │
00:06:36 #29935 [verbose] > │ let mutable _v90 = v90 │
00:06:36 #29936 [verbose] > │ #if FABLE_COMPILER_RUST && !WASM && !CONTRACT │
00:06:36 #29937 [verbose] > │ let v91 : bool = null |> unbox<bool> │
00:06:36 #29938 [verbose] > │ v91 │
00:06:36 #29939 [verbose] > │ #endif │
00:06:36 #29940 [verbose] > │ #if FABLE_COMPILER_RUST && WASM │
00:06:36 #29941 [verbose] > │ let v92 : bool = null |> unbox<bool> │
00:06:36 #29942 [verbose] > │ v92 │
00:06:36 #29943 [verbose] > │ #endif │
00:06:36 #29944 [verbose] > │ #if FABLE_COMPILER_RUST && CONTRACT │
00:06:36 #29945 [verbose] > │ let v93 : bool = null |> unbox<bool> │
00:06:36 #29946 [verbose] > │ v93 │
00:06:36 #29947 [verbose] > │ #endif │
00:06:36 #29948 [verbose] > │ #if !FABLE_COMPILER && !FABLE_COMPILER_RUST && │
00:06:36 #29949 [verbose] > │ !FABLE_COMPILER_TYPESCRIPT && !WASM && !CONTRACT │
00:06:36 #29950 [verbose] > │ let v94 : bool = v89.Exists │
00:06:36 #29951 [verbose] > │ v94 │
00:06:36 #29952 [verbose] > │ #endif │
00:06:36 #29953 [verbose] > │ #if FABLE_COMPILER_TYPESCRIPT │
00:06:36 #29954 [verbose] > │ let v95 : bool = null |> unbox<bool> │
00:06:36 #29955 [verbose] > │ v95 │
00:06:36 #29956 [verbose] > │ #endif │
00:06:36 #29957 [verbose] > │ #if FABLE_COMPILER_PYTHON || FABLE_COMPILER_PHP || FABLE_COMPILER_DART │
00:06:36 #29958 [verbose] > │ let v96 : bool = Unchecked.defaultof<bool> │
00:06:36 #29959 [verbose] > │ v96 │
00:06:36 #29960 [verbose] > │ #endif │
00:06:36 #29961 [verbose] > │ |> fun x -> _v90 <- Some x │
00:06:36 #29962 [verbose] > │ let v97 : bool = _v90.Value │
00:06:36 #29963 [verbose] > │ let v98 : bool = v97 = false │
00:06:36 #29964 [verbose] > │ if v98 then │
00:06:36 #29965 [verbose] > │ let v99 : System.DateTime option = None │
00:06:36 #29966 [verbose] > │ let mutable _v99 = v99 │
00:06:36 #29967 [verbose] > │ #if FABLE_COMPILER_RUST && !WASM && !CONTRACT │
00:06:36 #29968 [verbose] > │ let v100 : System.DateTime = null |> unbox<System.DateTime> │
00:06:36 #29969 [verbose] > │ v100 │
00:06:36 #29970 [verbose] > │ #endif │
00:06:36 #29971 [verbose] > │ #if FABLE_COMPILER_RUST && WASM │
00:06:36 #29972 [verbose] > │ let v101 : System.DateTime = null |> unbox<System.DateTime> │
00:06:36 #29973 [verbose] > │ v101 │
00:06:36 #29974 [verbose] > │ #endif │
00:06:36 #29975 [verbose] > │ #if FABLE_COMPILER_RUST && CONTRACT │
00:06:36 #29976 [verbose] > │ let v102 : System.DateTime = null |> unbox<System.DateTime> │
00:06:36 #29977 [verbose] > │ v102 │
00:06:36 #29978 [verbose] > │ #endif │
00:06:36 #29979 [verbose] > │ #if !FABLE_COMPILER && !FABLE_COMPILER_RUST && │
00:06:36 #29980 [verbose] > │ !FABLE_COMPILER_TYPESCRIPT && !WASM && !CONTRACT │
00:06:36 #29981 [verbose] > │ let v103 : System.DateTime = v89.CreationTime │
00:06:36 #29982 [verbose] > │ v103 │
00:06:36 #29983 [verbose] > │ #endif │
00:06:36 #29984 [verbose] > │ #if FABLE_COMPILER_TYPESCRIPT │
00:06:36 #29985 [verbose] > │ let v104 : System.DateTime = null |> unbox<System.DateTime> │
00:06:36 #29986 [verbose] > │ v104 │
00:06:36 #29987 [verbose] > │ #endif │
00:06:36 #29988 [verbose] > │ #if FABLE_COMPILER_PYTHON || FABLE_COMPILER_PHP || │
00:06:36 #29989 [verbose] > │ FABLE_COMPILER_DART │
00:06:36 #29990 [verbose] > │ let v105 : System.DateTime = Unchecked.defaultof<System.DateTime> │
00:06:36 #29991 [verbose] > │ v105 │
00:06:36 #29992 [verbose] > │ #endif │
00:06:36 #29993 [verbose] > │ |> fun x -> _v99 <- Some x │
00:06:36 #29994 [verbose] > │ let v106 : System.DateTime = _v99.Value │
00:06:36 #29995 [verbose] > │ let v107 : obj = {| Exists = v97; CreationTime = v106 |} │
00:06:36 #29996 [verbose] > │ let v108 : string = $"%A{v107}" │
00:06:36 #29997 [verbose] > │ let v109 : (unit -> string) = closure1(v80, v108) │
00:06:36 #29998 [verbose] > │ let v110 : string = $"create_temp_directory / {v109 ()}" │
00:06:36 #29999 [verbose] > │ System.Console.WriteLine v110 │
00:06:36 #30000 [verbose] > │ () │
00:06:36 #30001 [verbose] > │ let v111 : System.IDisposable option = None │
00:06:36 #30002 [verbose] > │ let mutable _v111 = v111 │
00:06:36 #30003 [verbose] > │ #if FABLE_COMPILER_RUST && !WASM && !CONTRACT │
00:06:36 #30004 [verbose] > │ let v112 : System.IDisposable = null |> unbox<System.IDisposable> │
00:06:36 #30005 [verbose] > │ v112 │
00:06:36 #30006 [verbose] > │ #endif │
00:06:36 #30007 [verbose] > │ #if FABLE_COMPILER_RUST && WASM │
00:06:36 #30008 [verbose] > │ let v113 : System.IDisposable = null |> unbox<System.IDisposable> │
00:06:36 #30009 [verbose] > │ v113 │
00:06:36 #30010 [verbose] > │ #endif │
00:06:36 #30011 [verbose] > │ #if FABLE_COMPILER_RUST && CONTRACT │
00:06:36 #30012 [verbose] > │ let v114 : System.IDisposable = null |> unbox<System.IDisposable> │
00:06:36 #30013 [verbose] > │ v114 │
00:06:36 #30014 [verbose] > │ #endif │
00:06:36 #30015 [verbose] > │ #if !FABLE_COMPILER && !FABLE_COMPILER_RUST && │
00:06:36 #30016 [verbose] > │ !FABLE_COMPILER_TYPESCRIPT && !WASM && !CONTRACT │
00:06:36 #30017 [verbose] > │ let v115 : (unit -> unit) = closure3(v80) │
00:06:36 #30018 [verbose] > │ let v116 : System.IDisposable = { new System.IDisposable with member │
00:06:36 #30019 [verbose] > │ _.Dispose () = v115 () } │
00:06:36 #30020 [verbose] > │ v116 │
00:06:36 #30021 [verbose] > │ #endif │
00:06:36 #30022 [verbose] > │ #if FABLE_COMPILER_TYPESCRIPT │
00:06:36 #30023 [verbose] > │ let v117 : System.IDisposable = null |> unbox<System.IDisposable> │
00:06:36 #30024 [verbose] > │ v117 │
00:06:36 #30025 [verbose] > │ #endif │
00:06:36 #30026 [verbose] > │ #if FABLE_COMPILER_PYTHON || FABLE_COMPILER_PHP || FABLE_COMPILER_DART │
00:06:36 #30027 [verbose] > │ let v118 : System.IDisposable = Unchecked.defaultof<System.IDisposable> │
00:06:36 #30028 [verbose] > │ v118 │
00:06:36 #30029 [verbose] > │ #endif │
00:06:36 #30030 [verbose] > │ |> fun x -> _v111 <- Some x │
00:06:36 #30031 [verbose] > │ let v119 : System.IDisposable = _v111.Value │
00:06:36 #30032 [verbose] > │ struct (v80, v119) │
00:06:36 #30033 [verbose] > │ #endif │
00:06:36 #30034 [verbose] > │ #if FABLE_COMPILER_TYPESCRIPT │
00:06:36 #30035 [verbose] > │ let struct (v120 : string, v121 : System.IDisposable) = null |> │
00:06:36 #30036 [verbose] > │ unbox<struct (string * System.IDisposable)> │
00:06:36 #30037 [verbose] > │ struct (v120, v121) │
00:06:36 #30038 [verbose] > │ #endif │
00:06:36 #30039 [verbose] > │ #if FABLE_COMPILER_PYTHON || FABLE_COMPILER_PHP || FABLE_COMPILER_DART │
00:06:36 #30040 [verbose] > │ let struct (v122 : string, v123 : System.IDisposable) = │
00:06:36 #30041 [verbose] > │ Unchecked.defaultof<struct (string * System.IDisposable)> │
00:06:36 #30042 [verbose] > │ struct (v122, v123) │
00:06:36 #30043 [verbose] > │ #endif │
00:06:36 #30044 [verbose] > │ |> fun x -> _v0 <- Some x │
00:06:36 #30045 [verbose] > │ let struct (v124 : string, v125 : System.IDisposable) = _v0.Value │
00:06:36 #30046 [verbose] > │ use v125 = v125 │
00:06:36 #30047 [verbose] > │ let v126 : System.IDisposable = v125 │
00:06:36 #30048 [verbose] > │ let v127 : string option = None │
00:06:36 #30049 [verbose] > │ let mutable _v127 = v127 │
00:06:36 #30050 [verbose] > │ #if FABLE_COMPILER_RUST && !WASM && !CONTRACT │
00:06:36 #30051 [verbose] > │ let v128 : string = method1(v124) │
00:06:36 #30052 [verbose] > │ let v129 : string = "fable_library_rust::String_::LrcStr::as_str(&$0)" │
00:06:36 #30053 [verbose] > │ let v130 : Ref<Str> = Fable.Core.RustInterop.emitRustExpr v128 v129 │
00:06:36 #30054 [verbose] > │ let v131 : string = "String::from($0)" │
00:06:36 #30055 [verbose] > │ let v132 : std_string_String = Fable.Core.RustInterop.emitRustExpr v130 │
00:06:36 #30056 [verbose] > │ v131 │
00:06:36 #30057 [verbose] > │ let v133 : string = "std::path::PathBuf::from($0)" │
00:06:36 #30058 [verbose] > │ let v134 : std_path_PathBuf = Fable.Core.RustInterop.emitRustExpr v132 │
00:06:36 #30059 [verbose] > │ v133 │
00:06:36 #30060 [verbose] > │ let v135 : string = method4() │
00:06:36 #30061 [verbose] > │ let v136 : string = "fable_library_rust::String_::LrcStr::as_str(&$0)" │
00:06:36 #30062 [verbose] > │ let v137 : Ref<Str> = Fable.Core.RustInterop.emitRustExpr v135 v136 │
00:06:36 #30063 [verbose] > │ let v138 : string = "String::from($0)" │
00:06:36 #30064 [verbose] > │ let v139 : std_string_String = Fable.Core.RustInterop.emitRustExpr v137 │
00:06:36 #30065 [verbose] > │ v138 │
00:06:36 #30066 [verbose] > │ let v140 : string = "$0.join($1)" │
00:06:36 #30067 [verbose] > │ let v141 : std_path_PathBuf = Fable.Core.RustInterop.emitRustExpr struct │
00:06:36 #30068 [verbose] > │ (v134, v139) v140 │
00:06:36 #30069 [verbose] > │ let v142 : string = "$0.display().to_string()" │
00:06:36 #30070 [verbose] > │ let v143 : std_string_String = Fable.Core.RustInterop.emitRustExpr v141 │
00:06:36 #30071 [verbose] > │ v142 │
00:06:36 #30072 [verbose] > │ let v144 : string = "fable_library_rust::String_::fromString($0)" │
00:06:36 #30073 [verbose] > │ let v145 : string = Fable.Core.RustInterop.emitRustExpr v143 v144 │
00:06:36 #30074 [verbose] > │ v145 │
00:06:36 #30075 [verbose] > │ #endif │
00:06:36 #30076 [verbose] > │ #if FABLE_COMPILER_RUST && WASM │
00:06:36 #30077 [verbose] > │ let v146 : string = null |> unbox<string> │
00:06:36 #30078 [verbose] > │ v146 │
00:06:36 #30079 [verbose] > │ #endif │
00:06:36 #30080 [verbose] > │ #if FABLE_COMPILER_RUST && CONTRACT │
00:06:36 #30081 [verbose] > │ let v147 : string = null |> unbox<string> │
00:06:36 #30082 [verbose] > │ v147 │
00:06:36 #30083 [verbose] > │ #endif │
00:06:36 #30084 [verbose] > │ #if !FABLE_COMPILER && !FABLE_COMPILER_RUST && │
00:06:36 #30085 [verbose] > │ !FABLE_COMPILER_TYPESCRIPT && !WASM && !CONTRACT │
00:06:36 #30086 [verbose] > │ let v148 : string = "test" │
00:06:36 #30087 [verbose] > │ let v149 : string = System.IO.Path.Combine (v124, v148) │
00:06:36 #30088 [verbose] > │ v149 │
00:06:36 #30089 [verbose] > │ #endif │
00:06:36 #30090 [verbose] > │ #if FABLE_COMPILER_TYPESCRIPT │
00:06:36 #30091 [verbose] > │ let v150 : IPathJoin = Fable.Core.JsInterop.importAll v37 │
00:06:36 #30092 [verbose] > │ let v151 : string = "v150.join($0, $1)" │
00:06:36 #30093 [verbose] > │ let v152 : string = Fable.Core.JsInterop.emitJsExpr struct (v124, v148) │
00:06:36 #30094 [verbose] > │ v151 │
00:06:36 #30095 [verbose] > │ v152 │
00:06:36 #30096 [verbose] > │ #endif │
00:06:36 #30097 [verbose] > │ #if FABLE_COMPILER_PYTHON || FABLE_COMPILER_PHP || FABLE_COMPILER_DART │
00:06:36 #30098 [verbose] > │ let v153 : string = Unchecked.defaultof<string> │
00:06:36 #30099 [verbose] > │ v153 │
00:06:36 #30100 [verbose] > │ #endif │
00:06:36 #30101 [verbose] > │ |> fun x -> _v127 <- Some x │
00:06:36 #30102 [verbose] > │ let v154 : string = _v127.Value │
00:06:36 #30103 [verbose] > │ let v155 : Async<int64> option = None │
00:06:36 #30104 [verbose] > │ let mutable _v155 = v155 │
00:06:36 #30105 [verbose] > │ #if FABLE_COMPILER_RUST && !WASM && !CONTRACT │
00:06:36 #30106 [verbose] > │ let v156 : Async<int64> = null |> unbox<Async<int64>> │
00:06:36 #30107 [verbose] > │ v156 │
00:06:36 #30108 [verbose] > │ #endif │
00:06:36 #30109 [verbose] > │ #if FABLE_COMPILER_RUST && WASM │
00:06:36 #30110 [verbose] > │ let v157 : Async<int64> = null |> unbox<Async<int64>> │
00:06:36 #30111 [verbose] > │ v157 │
00:06:36 #30112 [verbose] > │ #endif │
00:06:36 #30113 [verbose] > │ #if FABLE_COMPILER_RUST && CONTRACT │
00:06:36 #30114 [verbose] > │ let v158 : Async<int64> = null |> unbox<Async<int64>> │
00:06:36 #30115 [verbose] > │ v158 │
00:06:36 #30116 [verbose] > │ #endif │
00:06:36 #30117 [verbose] > │ #if !FABLE_COMPILER && !FABLE_COMPILER_RUST && │
00:06:36 #30118 [verbose] > │ !FABLE_COMPILER_TYPESCRIPT && !WASM && !CONTRACT │
00:06:36 #30119 [verbose] > │ let v159 : Async<int64> option = None │
00:06:36 #30120 [verbose] > │ let mutable _v159 = v159 │
00:06:36 #30121 [verbose] > │ async { │
00:06:36 #30122 [verbose] > │ let v160 : US0 = US0_1 │
00:06:36 #30123 [verbose] > │ let v161 : (unit -> string) = closure6() │
00:06:36 #30124 [verbose] > │ let v162 : (unit -> string) = closure2() │
00:06:36 #30125 [verbose] > │ method5(v160, v161, v162) │
00:06:36 #30126 [verbose] > │ let v163 : System.IO.DirectoryInfo option = None │
00:06:36 #30127 [verbose] > │ let mutable _v163 = v163 │
00:06:36 #30128 [verbose] > │ #if FABLE_COMPILER_RUST && !WASM && !CONTRACT │
00:06:36 #30129 [verbose] > │ let v164 : System.IO.DirectoryInfo = null |> │
00:06:36 #30130 [verbose] > │ unbox<System.IO.DirectoryInfo> │
00:06:36 #30131 [verbose] > │ v164 │
00:06:36 #30132 [verbose] > │ #endif │
00:06:36 #30133 [verbose] > │ #if FABLE_COMPILER_RUST && WASM │
00:06:36 #30134 [verbose] > │ let v165 : System.IO.DirectoryInfo = null |> │
00:06:36 #30135 [verbose] > │ unbox<System.IO.DirectoryInfo> │
00:06:36 #30136 [verbose] > │ v165 │
00:06:36 #30137 [verbose] > │ #endif │
00:06:36 #30138 [verbose] > │ #if FABLE_COMPILER_RUST && CONTRACT │
00:06:36 #30139 [verbose] > │ let v166 : System.IO.DirectoryInfo = null |> │
00:06:36 #30140 [verbose] > │ unbox<System.IO.DirectoryInfo> │
00:06:36 #30141 [verbose] > │ v166 │
00:06:36 #30142 [verbose] > │ #endif │
00:06:36 #30143 [verbose] > │ #if !FABLE_COMPILER && !FABLE_COMPILER_RUST && │
00:06:36 #30144 [verbose] > │ !FABLE_COMPILER_TYPESCRIPT && !WASM && !CONTRACT │
00:06:36 #30145 [verbose] > │ let v167 : (string -> System.IO.DirectoryInfo) = │
00:06:36 #30146 [verbose] > │ System.IO.Directory.CreateDirectory │
00:06:36 #30147 [verbose] > │ let v168 : System.IO.DirectoryInfo = v167 v154 │
00:06:36 #30148 [verbose] > │ v168 │
00:06:36 #30149 [verbose] > │ #endif │
00:06:36 #30150 [verbose] > │ #if FABLE_COMPILER_TYPESCRIPT │
00:06:36 #30151 [verbose] > │ let v169 : System.IO.DirectoryInfo = null |> │
00:06:36 #30152 [verbose] > │ unbox<System.IO.DirectoryInfo> │
00:06:36 #30153 [verbose] > │ v169 │
00:06:36 #30154 [verbose] > │ #endif │
00:06:36 #30155 [verbose] > │ #if FABLE_COMPILER_PYTHON || FABLE_COMPILER_PHP || FABLE_COMPILER_DART │
00:06:36 #30156 [verbose] > │ let v170 : System.IO.DirectoryInfo = │
00:06:36 #30157 [verbose] > │ Unchecked.defaultof<System.IO.DirectoryInfo> │
00:06:36 #30158 [verbose] > │ v170 │
00:06:36 #30159 [verbose] > │ #endif │
00:06:36 #30160 [verbose] > │ |> fun x -> _v163 <- Some x │
00:06:36 #30161 [verbose] > │ let v171 : System.IO.DirectoryInfo = _v163.Value │
00:06:36 #30162 [verbose] > │ let v172 : US0 = US0_1 │
00:06:36 #30163 [verbose] > │ let v173 : (unit -> string) = closure10() │
00:06:36 #30164 [verbose] > │ method5(v172, v173, v162) │
00:06:36 #30165 [verbose] > │ let v174 : Async<unit> option = None │
00:06:36 #30166 [verbose] > │ let mutable _v174 = v174 │
00:06:36 #30167 [verbose] > │ #if FABLE_COMPILER_RUST && !WASM && !CONTRACT │
00:06:36 #30168 [verbose] > │ let v175 : Async<unit> = null |> unbox<Async<unit>> │
00:06:36 #30169 [verbose] > │ v175 │
00:06:36 #30170 [verbose] > │ #endif │
00:06:36 #30171 [verbose] > │ #if FABLE_COMPILER_RUST && WASM │
00:06:36 #30172 [verbose] > │ let v176 : Async<unit> = null |> unbox<Async<unit>> │
00:06:36 #30173 [verbose] > │ v176 │
00:06:36 #30174 [verbose] > │ #endif │
00:06:36 #30175 [verbose] > │ #if FABLE_COMPILER_RUST && CONTRACT │
00:06:36 #30176 [verbose] > │ let v177 : Async<unit> = null |> unbox<Async<unit>> │
00:06:36 #30177 [verbose] > │ v177 │
00:06:36 #30178 [verbose] > │ #endif │
00:06:36 #30179 [verbose] > │ #if !FABLE_COMPILER && !FABLE_COMPILER_RUST && │
00:06:36 #30180 [verbose] > │ !FABLE_COMPILER_TYPESCRIPT && !WASM && !CONTRACT │
00:06:36 #30181 [verbose] > │ let v178 : Async<unit> option = None │
00:06:36 #30182 [verbose] > │ let mutable _v178 = v178 │
00:06:36 #30183 [verbose] > │ async { │
00:06:36 #30184 [verbose] > │ let v179 : US0 = US0_1 │
00:06:36 #30185 [verbose] > │ let v180 : (unit -> string) = closure11() │
00:06:36 #30186 [verbose] > │ method5(v179, v180, v162) │
00:06:36 #30187 [verbose] > │ let v181 : string option = None │
00:06:36 #30188 [verbose] > │ let mutable _v181 = v181 │
00:06:36 #30189 [verbose] > │ #if FABLE_COMPILER_RUST && !WASM && !CONTRACT │
00:06:36 #30190 [verbose] > │ let v182 : string = method1(v154) │
00:06:36 #30191 [verbose] > │ let v183 : string = "fable_library_rust::String_::LrcStr::as_str(&$0)" │
00:06:36 #30192 [verbose] > │ let v184 : Ref<Str> = Fable.Core.RustInterop.emitRustExpr v182 v183 │
00:06:36 #30193 [verbose] > │ let v185 : string = "String::from($0)" │
00:06:36 #30194 [verbose] > │ let v186 : std_string_String = Fable.Core.RustInterop.emitRustExpr v184 │
00:06:36 #30195 [verbose] > │ v185 │
00:06:36 #30196 [verbose] > │ let v187 : string = "std::path::PathBuf::from($0)" │
00:06:36 #30197 [verbose] > │ let v188 : std_path_PathBuf = Fable.Core.RustInterop.emitRustExpr v186 │
00:06:36 #30198 [verbose] > │ v187 │
00:06:36 #30199 [verbose] > │ let v189 : string = method10() │
00:06:36 #30200 [verbose] > │ let v190 : string = "fable_library_rust::String_::LrcStr::as_str(&$0)" │
00:06:36 #30201 [verbose] > │ let v191 : Ref<Str> = Fable.Core.RustInterop.emitRustExpr v189 v190 │
00:06:36 #30202 [verbose] > │ let v192 : string = "String::from($0)" │
00:06:36 #30203 [verbose] > │ let v193 : std_string_String = Fable.Core.RustInterop.emitRustExpr v191 │
00:06:36 #30204 [verbose] > │ v192 │
00:06:36 #30205 [verbose] > │ let v194 : string = "$0.join($1)" │
00:06:36 #30206 [verbose] > │ let v195 : std_path_PathBuf = Fable.Core.RustInterop.emitRustExpr struct │
00:06:36 #30207 [verbose] > │ (v188, v193) v194 │
00:06:36 #30208 [verbose] > │ let v196 : string = "$0.display().to_string()" │
00:06:36 #30209 [verbose] > │ let v197 : std_string_String = Fable.Core.RustInterop.emitRustExpr v195 │
00:06:36 #30210 [verbose] > │ v196 │
00:06:36 #30211 [verbose] > │ let v198 : string = "fable_library_rust::String_::fromString($0)" │
00:06:36 #30212 [verbose] > │ let v199 : string = Fable.Core.RustInterop.emitRustExpr v197 v198 │
00:06:36 #30213 [verbose] > │ v199 │
00:06:36 #30214 [verbose] > │ #endif │
00:06:36 #30215 [verbose] > │ #if FABLE_COMPILER_RUST && WASM │
00:06:36 #30216 [verbose] > │ let v200 : string = null |> unbox<string> │
00:06:36 #30217 [verbose] > │ v200 │
00:06:36 #30218 [verbose] > │ #endif │
00:06:36 #30219 [verbose] > │ #if FABLE_COMPILER_RUST && CONTRACT │
00:06:36 #30220 [verbose] > │ let v201 : string = null |> unbox<string> │
00:06:36 #30221 [verbose] > │ v201 │
00:06:36 #30222 [verbose] > │ #endif │
00:06:36 #30223 [verbose] > │ #if !FABLE_COMPILER && !FABLE_COMPILER_RUST && │
00:06:36 #30224 [verbose] > │ !FABLE_COMPILER_TYPESCRIPT && !WASM && !CONTRACT │
00:06:36 #30225 [verbose] > │ let v202 : string = "test.txt" │
00:06:36 #30226 [verbose] > │ let v203 : string = System.IO.Path.Combine (v154, v202) │
00:06:36 #30227 [verbose] > │ v203 │
00:06:36 #30228 [verbose] > │ #endif │
00:06:36 #30229 [verbose] > │ #if FABLE_COMPILER_TYPESCRIPT │
00:06:36 #30230 [verbose] > │ let v204 : IPathJoin = Fable.Core.JsInterop.importAll v37 │
00:06:36 #30231 [verbose] > │ let v205 : string = "v204.join($0, $1)" │
00:06:36 #30232 [verbose] > │ let v206 : string = Fable.Core.JsInterop.emitJsExpr struct (v154, v202) │
00:06:36 #30233 [verbose] > │ v205 │
00:06:36 #30234 [verbose] > │ v206 │
00:06:36 #30235 [verbose] > │ #endif │
00:06:36 #30236 [verbose] > │ #if FABLE_COMPILER_PYTHON || FABLE_COMPILER_PHP || FABLE_COMPILER_DART │
00:06:36 #30237 [verbose] > │ let v207 : string = Unchecked.defaultof<string> │
00:06:36 #30238 [verbose] > │ v207 │
00:06:36 #30239 [verbose] > │ #endif │
00:06:36 #30240 [verbose] > │ |> fun x -> _v181 <- Some x │
00:06:36 #30241 [verbose] > │ let v208 : string = _v181.Value │
00:06:36 #30242 [verbose] > │ let v209 : Async<unit> option = None │
00:06:36 #30243 [verbose] > │ let mutable _v209 = v209 │
00:06:36 #30244 [verbose] > │ #if FABLE_COMPILER_RUST && !WASM && !CONTRACT │
00:06:36 #30245 [verbose] > │ let v210 : Async<unit> = null |> unbox<Async<unit>> │
00:06:36 #30246 [verbose] > │ v210 │
00:06:36 #30247 [verbose] > │ #endif │
00:06:36 #30248 [verbose] > │ #if FABLE_COMPILER_RUST && WASM │
00:06:36 #30249 [verbose] > │ let v211 : Async<unit> = null |> unbox<Async<unit>> │
00:06:36 #30250 [verbose] > │ v211 │
00:06:36 #30251 [verbose] > │ #endif │
00:06:36 #30252 [verbose] > │ #if FABLE_COMPILER_RUST && CONTRACT │
00:06:36 #30253 [verbose] > │ let v212 : Async<unit> = null |> unbox<Async<unit>> │
00:06:36 #30254 [verbose] > │ v212 │
00:06:36 #30255 [verbose] > │ #endif │
00:06:36 #30256 [verbose] > │ #if !FABLE_COMPILER && !FABLE_COMPILER_RUST && │
00:06:36 #30257 [verbose] > │ !FABLE_COMPILER_TYPESCRIPT && !WASM && !CONTRACT │
00:06:36 #30258 [verbose] > │ let v213 : string = "0" │
00:06:36 #30259 [verbose] > │ let v214 : System.Threading.Tasks.Task = │
00:06:36 #30260 [verbose] > │ System.IO.File.WriteAllTextAsync (v208, v213) │
00:06:37 #30261 [verbose] > │ let v215 : Async<unit> option = None │
00:06:37 #30262 [verbose] > │ let mutable _v215 = v215 │
00:06:37 #30263 [verbose] > │ #if FABLE_COMPILER_RUST && !WASM && !CONTRACT │
00:06:37 #30264 [verbose] > │ let v216 : Async<unit> = null |> unbox<Async<unit>> │
00:06:37 #30265 [verbose] > │ v216 │
00:06:37 #30266 [verbose] > │ #endif │
00:06:37 #30267 [verbose] > │ #if FABLE_COMPILER_RUST && WASM │
00:06:37 #30268 [verbose] > │ let v217 : Async<unit> = null |> unbox<Async<unit>> │
00:06:37 #30269 [verbose] > │ v217 │
00:06:37 #30270 [verbose] > │ #endif │
00:06:37 #30271 [verbose] > │ #if FABLE_COMPILER_RUST && CONTRACT │
00:06:37 #30272 [verbose] > │ let v218 : Async<unit> = null |> unbox<Async<unit>> │
00:06:37 #30273 [verbose] > │ v218 │
00:06:37 #30274 [verbose] > │ #endif │
00:06:37 #30275 [verbose] > │ #if !FABLE_COMPILER && !FABLE_COMPILER_RUST && │
00:06:37 #30276 [verbose] > │ !FABLE_COMPILER_TYPESCRIPT && !WASM && !CONTRACT │
00:06:37 #30277 [verbose] > │ let v219 : (System.Threading.Tasks.Task -> Async<unit>) = │
00:06:37 #30278 [verbose] > │ Async.AwaitTask │
00:06:37 #30279 [verbose] > │ let v220 : Async<unit> = v219 v214 │
00:06:37 #30280 [verbose] > │ v220 │
00:06:37 #30281 [verbose] > │ #endif │
00:06:37 #30282 [verbose] > │ #if FABLE_COMPILER_TYPESCRIPT │
00:06:37 #30283 [verbose] > │ let v221 : Async<unit> = null |> unbox<Async<unit>> │
00:06:37 #30284 [verbose] > │ v221 │
00:06:37 #30285 [verbose] > │ #endif │
00:06:37 #30286 [verbose] > │ #if FABLE_COMPILER_PYTHON || FABLE_COMPILER_PHP || FABLE_COMPILER_DART │
00:06:37 #30287 [verbose] > │ let v222 : Async<unit> = Unchecked.defaultof<Async<unit>> │
00:06:37 #30288 [verbose] > │ v222 │
00:06:37 #30289 [verbose] > │ #endif │
00:06:37 #30290 [verbose] > │ |> fun x -> _v215 <- Some x │
00:06:37 #30291 [verbose] > │ let v223 : Async<unit> = _v215.Value │
00:06:37 #30292 [verbose] > │ v223 │
00:06:37 #30293 [verbose] > │ #endif │
00:06:37 #30294 [verbose] > │ #if FABLE_COMPILER_TYPESCRIPT │
00:06:37 #30295 [verbose] > │ let v224 : Async<unit> = null |> unbox<Async<unit>> │
00:06:37 #30296 [verbose] > │ v224 │
00:06:37 #30297 [verbose] > │ #endif │
00:06:37 #30298 [verbose] > │ #if FABLE_COMPILER_PYTHON || FABLE_COMPILER_PHP || FABLE_COMPILER_DART │
00:06:37 #30299 [verbose] > │ let v225 : Async<unit> = Unchecked.defaultof<Async<unit>> │
00:06:37 #30300 [verbose] > │ v225 │
00:06:37 #30301 [verbose] > │ #endif │
00:06:37 #30302 [verbose] > │ |> fun x -> _v209 <- Some x │
00:06:37 #30303 [verbose] > │ let v226 : Async<unit> = _v209.Value │
00:06:37 #30304 [verbose] > │ do! v226 │
00:06:37 #30305 [verbose] > │ let v227 : string option = None │
00:06:37 #30306 [verbose] > │ let mutable _v227 = v227 │
00:06:37 #30307 [verbose] > │ #if FABLE_COMPILER_RUST && !WASM && !CONTRACT │
00:06:37 #30308 [verbose] > │ let v228 : string = method1(v154) │
00:06:37 #30309 [verbose] > │ let v229 : string = "fable_library_rust::String_::LrcStr::as_str(&$0)" │
00:06:37 #30310 [verbose] > │ let v230 : Ref<Str> = Fable.Core.RustInterop.emitRustExpr v228 v229 │
00:06:37 #30311 [verbose] > │ let v231 : string = "String::from($0)" │
00:06:37 #30312 [verbose] > │ let v232 : std_string_String = Fable.Core.RustInterop.emitRustExpr v230 │
00:06:37 #30313 [verbose] > │ v231 │
00:06:37 #30314 [verbose] > │ let v233 : string = "std::path::PathBuf::from($0)" │
00:06:37 #30315 [verbose] > │ let v234 : std_path_PathBuf = Fable.Core.RustInterop.emitRustExpr v232 │
00:06:37 #30316 [verbose] > │ v233 │
00:06:37 #30317 [verbose] > │ let v235 : string = method10() │
00:06:37 #30318 [verbose] > │ let v236 : string = "fable_library_rust::String_::LrcStr::as_str(&$0)" │
00:06:37 #30319 [verbose] > │ let v237 : Ref<Str> = Fable.Core.RustInterop.emitRustExpr v235 v236 │
00:06:37 #30320 [verbose] > │ let v238 : string = "String::from($0)" │
00:06:37 #30321 [verbose] > │ let v239 : std_string_String = Fable.Core.RustInterop.emitRustExpr v237 │
00:06:37 #30322 [verbose] > │ v238 │
00:06:37 #30323 [verbose] > │ let v240 : string = "$0.join($1)" │
00:06:37 #30324 [verbose] > │ let v241 : std_path_PathBuf = Fable.Core.RustInterop.emitRustExpr struct │
00:06:37 #30325 [verbose] > │ (v234, v239) v240 │
00:06:37 #30326 [verbose] > │ let v242 : string = "$0.display().to_string()" │
00:06:37 #30327 [verbose] > │ let v243 : std_string_String = Fable.Core.RustInterop.emitRustExpr v241 │
00:06:37 #30328 [verbose] > │ v242 │
00:06:37 #30329 [verbose] > │ let v244 : string = "fable_library_rust::String_::fromString($0)" │
00:06:37 #30330 [verbose] > │ let v245 : string = Fable.Core.RustInterop.emitRustExpr v243 v244 │
00:06:37 #30331 [verbose] > │ v245 │
00:06:37 #30332 [verbose] > │ #endif │
00:06:37 #30333 [verbose] > │ #if FABLE_COMPILER_RUST && WASM │
00:06:37 #30334 [verbose] > │ let v246 : string = null |> unbox<string> │
00:06:37 #30335 [verbose] > │ v246 │
00:06:37 #30336 [verbose] > │ #endif │
00:06:37 #30337 [verbose] > │ #if FABLE_COMPILER_RUST && CONTRACT │
00:06:37 #30338 [verbose] > │ let v247 : string = null |> unbox<string> │
00:06:37 #30339 [verbose] > │ v247 │
00:06:37 #30340 [verbose] > │ #endif │
00:06:37 #30341 [verbose] > │ #if !FABLE_COMPILER && !FABLE_COMPILER_RUST && │
00:06:37 #30342 [verbose] > │ !FABLE_COMPILER_TYPESCRIPT && !WASM && !CONTRACT │
00:06:37 #30343 [verbose] > │ let v248 : string = System.IO.Path.Combine (v154, v202) │
00:06:37 #30344 [verbose] > │ v248 │
00:06:37 #30345 [verbose] > │ #endif │
00:06:37 #30346 [verbose] > │ #if FABLE_COMPILER_TYPESCRIPT │
00:06:37 #30347 [verbose] > │ let v249 : IPathJoin = Fable.Core.JsInterop.importAll v37 │
00:06:37 #30348 [verbose] > │ let v250 : string = "v249.join($0, $1)" │
00:06:37 #30349 [verbose] > │ let v251 : string = Fable.Core.JsInterop.emitJsExpr struct (v154, v202) │
00:06:37 #30350 [verbose] > │ v250 │
00:06:37 #30351 [verbose] > │ v251 │
00:06:37 #30352 [verbose] > │ #endif │
00:06:37 #30353 [verbose] > │ #if FABLE_COMPILER_PYTHON || FABLE_COMPILER_PHP || FABLE_COMPILER_DART │
00:06:37 #30354 [verbose] > │ let v252 : string = Unchecked.defaultof<string> │
00:06:37 #30355 [verbose] > │ v252 │
00:06:37 #30356 [verbose] > │ #endif │
00:06:37 #30357 [verbose] > │ |> fun x -> _v227 <- Some x │
00:06:37 #30358 [verbose] > │ let v253 : string = _v227.Value │
00:06:37 #30359 [verbose] > │ let v254 : System.IO.FileStream option = None │
00:06:37 #30360 [verbose] > │ let mutable _v254 = v254 │
00:06:37 #30361 [verbose] > │ #if FABLE_COMPILER_RUST && !WASM && !CONTRACT │
00:06:37 #30362 [verbose] > │ let v255 : System.IO.FileStream = null |> unbox<System.IO.FileStream> │
00:06:37 #30363 [verbose] > │ v255 │
00:06:37 #30364 [verbose] > │ #endif │
00:06:37 #30365 [verbose] > │ #if FABLE_COMPILER_RUST && WASM │
00:06:37 #30366 [verbose] > │ let v256 : System.IO.FileStream = null |> unbox<System.IO.FileStream> │
00:06:37 #30367 [verbose] > │ v256 │
00:06:37 #30368 [verbose] > │ #endif │
00:06:37 #30369 [verbose] > │ #if FABLE_COMPILER_RUST && CONTRACT │
00:06:37 #30370 [verbose] > │ let v257 : System.IO.FileStream = null |> unbox<System.IO.FileStream> │
00:06:37 #30371 [verbose] > │ v257 │
00:06:37 #30372 [verbose] > │ #endif │
00:06:37 #30373 [verbose] > │ #if !FABLE_COMPILER && !FABLE_COMPILER_RUST && │
00:06:37 #30374 [verbose] > │ !FABLE_COMPILER_TYPESCRIPT && !WASM && !CONTRACT │
00:06:37 #30375 [verbose] > │ let v258 : System.IO.FileMode = System.IO.FileMode.Open │
00:06:37 #30376 [verbose] > │ let v259 : System.IO.FileAccess = System.IO.FileAccess.ReadWrite │
00:06:37 #30377 [verbose] > │ let v260 : System.IO.FileShare = System.IO.FileShare.None │
00:06:37 #30378 [verbose] > │ let v261 : System.IO.FileStream = new System.IO.FileStream (v253, v258, │
00:06:37 #30379 [verbose] > │ v259, v260) │
00:06:37 #30380 [verbose] > │ v261 │
00:06:37 #30381 [verbose] > │ #endif │
00:06:37 #30382 [verbose] > │ #if FABLE_COMPILER_TYPESCRIPT │
00:06:37 #30383 [verbose] > │ let v262 : System.IO.FileStream = null |> unbox<System.IO.FileStream> │
00:06:37 #30384 [verbose] > │ v262 │
00:06:37 #30385 [verbose] > │ #endif │
00:06:37 #30386 [verbose] > │ #if FABLE_COMPILER_PYTHON || FABLE_COMPILER_PHP || FABLE_COMPILER_DART │
00:06:37 #30387 [verbose] > │ let v263 : System.IO.FileStream = │
00:06:37 #30388 [verbose] > │ Unchecked.defaultof<System.IO.FileStream> │
00:06:37 #30389 [verbose] > │ v263 │
00:06:37 #30390 [verbose] > │ #endif │
00:06:37 #30391 [verbose] > │ |> fun x -> _v254 <- Some x │
00:06:37 #30392 [verbose] > │ let v264 : System.IO.FileStream = _v254.Value │
00:06:37 #30393 [verbose] > │ use v264 = v264 │
00:06:37 #30394 [verbose] > │ let v265 : System.IO.FileStream = v264 │
00:06:37 #30395 [verbose] > │ let v266 : US0 = US0_1 │
00:06:37 #30396 [verbose] > │ let v267 : (unit -> string) = closure12() │
00:06:37 #30397 [verbose] > │ method5(v266, v267, v162) │
00:06:37 #30398 [verbose] > │ let v268 : Async<unit> option = None │
00:06:37 #30399 [verbose] > │ let mutable _v268 = v268 │
00:06:37 #30400 [verbose] > │ #if FABLE_COMPILER_RUST && !WASM && !CONTRACT │
00:06:37 #30401 [verbose] > │ let v269 : Async<unit> = null |> unbox<Async<unit>> │
00:06:37 #30402 [verbose] > │ v269 │
00:06:37 #30403 [verbose] > │ #endif │
00:06:37 #30404 [verbose] > │ #if FABLE_COMPILER_RUST && WASM │
00:06:37 #30405 [verbose] > │ let v270 : Async<unit> = null |> unbox<Async<unit>> │
00:06:37 #30406 [verbose] > │ v270 │
00:06:37 #30407 [verbose] > │ #endif │
00:06:37 #30408 [verbose] > │ #if FABLE_COMPILER_RUST && CONTRACT │
00:06:37 #30409 [verbose] > │ let v271 : Async<unit> = null |> unbox<Async<unit>> │
00:06:37 #30410 [verbose] > │ v271 │
00:06:37 #30411 [verbose] > │ #endif │
00:06:37 #30412 [verbose] > │ #if !FABLE_COMPILER && !FABLE_COMPILER_RUST && │
00:06:37 #30413 [verbose] > │ !FABLE_COMPILER_TYPESCRIPT && !WASM && !CONTRACT │
00:06:37 #30414 [verbose] > │ let v272 : (int32 -> Async<unit>) = Async.Sleep │
00:06:37 #30415 [verbose] > │ let v273 : Async<unit> = v272 2000 │
00:06:37 #30416 [verbose] > │ v273 │
00:06:37 #30417 [verbose] > │ #endif │
00:06:37 #30418 [verbose] > │ #if FABLE_COMPILER_TYPESCRIPT │
00:06:37 #30419 [verbose] > │ let v274 : Async<unit> = null |> unbox<Async<unit>> │
00:06:37 #30420 [verbose] > │ v274 │
00:06:37 #30421 [verbose] > │ #endif │
00:06:37 #30422 [verbose] > │ #if FABLE_COMPILER_PYTHON || FABLE_COMPILER_PHP || FABLE_COMPILER_DART │
00:06:37 #30423 [verbose] > │ let v275 : Async<unit> = Unchecked.defaultof<Async<unit>> │
00:06:37 #30424 [verbose] > │ v275 │
00:06:37 #30425 [verbose] > │ #endif │
00:06:37 #30426 [verbose] > │ |> fun x -> _v268 <- Some x │
00:06:37 #30427 [verbose] > │ let v276 : Async<unit> = _v268.Value │
00:06:37 #30428 [verbose] > │ do! v276 │
00:06:37 #30429 [verbose] > │ let v277 : US0 = US0_1 │
00:06:37 #30430 [verbose] > │ let v278 : (unit -> string) = closure13() │
00:06:37 #30431 [verbose] > │ method5(v277, v278, v162) │
00:06:37 #30432 [verbose] > │ return () │
00:06:37 #30433 [verbose] > │ } │
00:06:37 #30434 [verbose] > │ |> fun x -> _v178 <- Some x │
00:06:37 #30435 [verbose] > │ let v279 : Async<unit> = _v178 |> Option.get │
00:06:37 #30436 [verbose] > │ v279 │
00:06:37 #30437 [verbose] > │ #endif │
00:06:37 #30438 [verbose] > │ #if FABLE_COMPILER_TYPESCRIPT │
00:06:37 #30439 [verbose] > │ let v280 : Async<unit> = null |> unbox<Async<unit>> │
00:06:37 #30440 [verbose] > │ v280 │
00:06:37 #30441 [verbose] > │ #endif │
00:06:37 #30442 [verbose] > │ #if FABLE_COMPILER_PYTHON || FABLE_COMPILER_PHP || FABLE_COMPILER_DART │
00:06:37 #30443 [verbose] > │ let v281 : Async<unit> = Unchecked.defaultof<Async<unit>> │
00:06:37 #30444 [verbose] > │ v281 │
00:06:37 #30445 [verbose] > │ #endif │
00:06:37 #30446 [verbose] > │ |> fun x -> _v174 <- Some x │
00:06:37 #30447 [verbose] > │ let v282 : Async<unit> = _v174.Value │
00:06:37 #30448 [verbose] > │ let v283 : Async<Async<unit>> option = None │
00:06:37 #30449 [verbose] > │ let mutable _v283 = v283 │
00:06:37 #30450 [verbose] > │ #if FABLE_COMPILER_RUST && !WASM && !CONTRACT │
00:06:37 #30451 [verbose] > │ let v284 : Async<Async<unit>> = null |> unbox<Async<Async<unit>>> │
00:06:37 #30452 [verbose] > │ v284 │
00:06:37 #30453 [verbose] > │ #endif │
00:06:37 #30454 [verbose] > │ #if FABLE_COMPILER_RUST && WASM │
00:06:37 #30455 [verbose] > │ let v285 : Async<Async<unit>> = null |> unbox<Async<Async<unit>>> │
00:06:37 #30456 [verbose] > │ v285 │
00:06:37 #30457 [verbose] > │ #endif │
00:06:37 #30458 [verbose] > │ #if FABLE_COMPILER_RUST && CONTRACT │
00:06:37 #30459 [verbose] > │ let v286 : Async<Async<unit>> = null |> unbox<Async<Async<unit>>> │
00:06:37 #30460 [verbose] > │ v286 │
00:06:37 #30461 [verbose] > │ #endif │
00:06:37 #30462 [verbose] > │ #if !FABLE_COMPILER && !FABLE_COMPILER_RUST && │
00:06:37 #30463 [verbose] > │ !FABLE_COMPILER_TYPESCRIPT && !WASM && !CONTRACT │
00:06:37 #30464 [verbose] > │ let v287 : (Async<unit> -> Async<Async<unit>>) = Async.StartChild │
00:06:37 #30465 [verbose] > │ let v288 : Async<Async<unit>> = v287 v282 │
00:06:37 #30466 [verbose] > │ v288 │
00:06:37 #30467 [verbose] > │ #endif │
00:06:37 #30468 [verbose] > │ #if FABLE_COMPILER_TYPESCRIPT │
00:06:37 #30469 [verbose] > │ let v289 : Async<Async<unit>> = null |> unbox<Async<Async<unit>>> │
00:06:37 #30470 [verbose] > │ v289 │
00:06:37 #30471 [verbose] > │ #endif │
00:06:37 #30472 [verbose] > │ #if FABLE_COMPILER_PYTHON || FABLE_COMPILER_PHP || FABLE_COMPILER_DART │
00:06:37 #30473 [verbose] > │ let v290 : Async<Async<unit>> = Unchecked.defaultof<Async<Async<unit>>> │
00:06:37 #30474 [verbose] > │ v290 │
00:06:37 #30475 [verbose] > │ #endif │
00:06:37 #30476 [verbose] > │ |> fun x -> _v283 <- Some x │
00:06:37 #30477 [verbose] > │ let v291 : Async<Async<unit>> = _v283.Value │
00:06:37 #30478 [verbose] > │ let! v291 = v291 │
00:06:37 #30479 [verbose] > │ let v292 : Async<unit> = v291 │
00:06:37 #30480 [verbose] > │ let v293 : US0 = US0_1 │
00:06:37 #30481 [verbose] > │ let v294 : (unit -> string) = closure14() │
00:06:37 #30482 [verbose] > │ method5(v293, v294, v162) │
00:06:37 #30483 [verbose] > │ let v295 : Async<unit> option = None │
00:06:37 #30484 [verbose] > │ let mutable _v295 = v295 │
00:06:37 #30485 [verbose] > │ #if FABLE_COMPILER_RUST && !WASM && !CONTRACT │
00:06:37 #30486 [verbose] > │ let v296 : Async<unit> = null |> unbox<Async<unit>> │
00:06:37 #30487 [verbose] > │ v296 │
00:06:37 #30488 [verbose] > │ #endif │
00:06:37 #30489 [verbose] > │ #if FABLE_COMPILER_RUST && WASM │
00:06:37 #30490 [verbose] > │ let v297 : Async<unit> = null |> unbox<Async<unit>> │
00:06:37 #30491 [verbose] > │ v297 │
00:06:37 #30492 [verbose] > │ #endif │
00:06:37 #30493 [verbose] > │ #if FABLE_COMPILER_RUST && CONTRACT │
00:06:37 #30494 [verbose] > │ let v298 : Async<unit> = null |> unbox<Async<unit>> │
00:06:37 #30495 [verbose] > │ v298 │
00:06:37 #30496 [verbose] > │ #endif │
00:06:37 #30497 [verbose] > │ #if !FABLE_COMPILER && !FABLE_COMPILER_RUST && │
00:06:37 #30498 [verbose] > │ !FABLE_COMPILER_TYPESCRIPT && !WASM && !CONTRACT │
00:06:37 #30499 [verbose] > │ let v299 : (int32 -> Async<unit>) = Async.Sleep │
00:06:37 #30500 [verbose] > │ let v300 : Async<unit> = v299 60 │
00:06:37 #30501 [verbose] > │ v300 │
00:06:37 #30502 [verbose] > │ #endif │
00:06:37 #30503 [verbose] > │ #if FABLE_COMPILER_TYPESCRIPT │
00:06:37 #30504 [verbose] > │ let v301 : Async<unit> = null |> unbox<Async<unit>> │
00:06:37 #30505 [verbose] > │ v301 │
00:06:37 #30506 [verbose] > │ #endif │
00:06:37 #30507 [verbose] > │ #if FABLE_COMPILER_PYTHON || FABLE_COMPILER_PHP || FABLE_COMPILER_DART │
00:06:37 #30508 [verbose] > │ let v302 : Async<unit> = Unchecked.defaultof<Async<unit>> │
00:06:37 #30509 [verbose] > │ v302 │
00:06:37 #30510 [verbose] > │ #endif │
00:06:37 #30511 [verbose] > │ |> fun x -> _v295 <- Some x │
00:06:37 #30512 [verbose] > │ let v303 : Async<unit> = _v295.Value │
00:06:37 #30513 [verbose] > │ do! v303 │
00:06:37 #30514 [verbose] > │ let v304 : US0 = US0_1 │
00:06:37 #30515 [verbose] > │ let v305 : (unit -> string) = closure15() │
00:06:37 #30516 [verbose] > │ method5(v304, v305, v162) │
00:06:37 #30517 [verbose] > │ let v306 : Async<int64> option = None │
00:06:37 #30518 [verbose] > │ let mutable _v306 = v306 │
00:06:37 #30519 [verbose] > │ #if FABLE_COMPILER_RUST && !WASM && !CONTRACT │
00:06:37 #30520 [verbose] > │ let v307 : Async<int64> = null |> unbox<Async<int64>> │
00:06:37 #30521 [verbose] > │ v307 │
00:06:37 #30522 [verbose] > │ #endif │
00:06:37 #30523 [verbose] > │ #if FABLE_COMPILER_RUST && WASM │
00:06:37 #30524 [verbose] > │ let v308 : Async<int64> = null |> unbox<Async<int64>> │
00:06:37 #30525 [verbose] > │ v308 │
00:06:37 #30526 [verbose] > │ #endif │
00:06:37 #30527 [verbose] > │ #if FABLE_COMPILER_RUST && CONTRACT │
00:06:37 #30528 [verbose] > │ let v309 : Async<int64> = null |> unbox<Async<int64>> │
00:06:37 #30529 [verbose] > │ v309 │
00:06:37 #30530 [verbose] > │ #endif │
00:06:37 #30531 [verbose] > │ #if !FABLE_COMPILER && !FABLE_COMPILER_RUST && │
00:06:37 #30532 [verbose] > │ !FABLE_COMPILER_TYPESCRIPT && !WASM && !CONTRACT │
00:06:37 #30533 [verbose] > │ let v310 : int64 = 0L │
00:06:37 #30534 [verbose] > │ let v311 : Async<int64> = method2(v154, v310) │
00:06:37 #30535 [verbose] > │ v311 │
00:06:37 #30536 [verbose] > │ #endif │
00:06:37 #30537 [verbose] > │ #if FABLE_COMPILER_TYPESCRIPT │
00:06:37 #30538 [verbose] > │ let v312 : Async<int64> = null |> unbox<Async<int64>> │
00:06:37 #30539 [verbose] > │ v312 │
00:06:37 #30540 [verbose] > │ #endif │
00:06:37 #30541 [verbose] > │ #if FABLE_COMPILER_PYTHON || FABLE_COMPILER_PHP || FABLE_COMPILER_DART │
00:06:37 #30542 [verbose] > │ let v313 : Async<int64> = Unchecked.defaultof<Async<int64>> │
00:06:37 #30543 [verbose] > │ v313 │
00:06:37 #30544 [verbose] > │ #endif │
00:06:37 #30545 [verbose] > │ |> fun x -> _v306 <- Some x │
00:06:37 #30546 [verbose] > │ let v314 : Async<int64> = _v306.Value │
00:06:37 #30547 [verbose] > │ let! v314 = v314 │
00:06:37 #30548 [verbose] > │ let v315 : int64 = v314 │
00:06:37 #30549 [verbose] > │ let v316 : US0 = US0_1 │
00:06:37 #30550 [verbose] > │ let v317 : (unit -> string) = closure16() │
00:06:37 #30551 [verbose] > │ method5(v316, v317, v162) │
00:06:37 #30552 [verbose] > │ do! v292 │
00:06:37 #30553 [verbose] > │ let v318 : US0 = US0_1 │
00:06:37 #30554 [verbose] > │ let v319 : (unit -> string) = closure17() │
00:06:37 #30555 [verbose] > │ method5(v318, v319, v162) │
00:06:37 #30556 [verbose] > │ return v315 │
00:06:37 #30557 [verbose] > │ } │
00:06:37 #30558 [verbose] > │ |> fun x -> _v159 <- Some x │
00:06:37 #30559 [verbose] > │ let v320 : Async<int64> = _v159 |> Option.get │
00:06:37 #30560 [verbose] > │ v320 │
00:06:37 #30561 [verbose] > │ #endif │
00:06:37 #30562 [verbose] > │ #if FABLE_COMPILER_TYPESCRIPT │
00:06:37 #30563 [verbose] > │ let v321 : Async<int64> = null |> unbox<Async<int64>> │
00:06:37 #30564 [verbose] > │ v321 │
00:06:37 #30565 [verbose] > │ #endif │
00:06:37 #30566 [verbose] > │ #if FABLE_COMPILER_PYTHON || FABLE_COMPILER_PHP || FABLE_COMPILER_DART │
00:06:37 #30567 [verbose] > │ let v322 : Async<int64> = Unchecked.defaultof<Async<int64>> │
00:06:37 #30568 [verbose] > │ v322 │
00:06:37 #30569 [verbose] > │ #endif │
00:06:37 #30570 [verbose] > │ |> fun x -> _v155 <- Some x │
00:06:37 #30571 [verbose] > │ let v323 : Async<int64> = _v155.Value │
00:06:37 #30572 [verbose] > │ let v324 : Async<US2> option = None │
00:06:37 #30573 [verbose] > │ let mutable _v324 = v324 │
00:06:37 #30574 [verbose] > │ #if FABLE_COMPILER_RUST && !WASM && !CONTRACT │
00:06:37 #30575 [verbose] > │ let v325 : Async<US2> = null |> unbox<Async<US2>> │
00:06:37 #30576 [verbose] > │ v325 │
00:06:37 #30577 [verbose] > │ #endif │
00:06:37 #30578 [verbose] > │ #if FABLE_COMPILER_RUST && WASM │
00:06:37 #30579 [verbose] > │ let v326 : Async<US2> = null |> unbox<Async<US2>> │
00:06:37 #30580 [verbose] > │ v326 │
00:06:37 #30581 [verbose] > │ #endif │
00:06:37 #30582 [verbose] > │ #if FABLE_COMPILER_RUST && CONTRACT │
00:06:37 #30583 [verbose] > │ let v327 : Async<US2> = null |> unbox<Async<US2>> │
00:06:37 #30584 [verbose] > │ v327 │
00:06:37 #30585 [verbose] > │ #endif │
00:06:37 #30586 [verbose] > │ #if !FABLE_COMPILER && !FABLE_COMPILER_RUST && │
00:06:37 #30587 [verbose] > │ !FABLE_COMPILER_TYPESCRIPT && !WASM && !CONTRACT │
00:06:37 #30588 [verbose] > │ let v328 : Async<US2> option = None │
00:06:37 #30589 [verbose] > │ let mutable _v328 = v328 │
00:06:37 #30590 [verbose] > │ #if FABLE_COMPILER_RUST && !WASM && !CONTRACT │
00:06:37 #30591 [verbose] > │ let v329 : Async<US2> = null |> unbox<Async<US2>> │
00:06:37 #30592 [verbose] > │ v329 │
00:06:37 #30593 [verbose] > │ #endif │
00:06:37 #30594 [verbose] > │ #if FABLE_COMPILER_RUST && WASM │
00:06:37 #30595 [verbose] > │ let v330 : Async<US2> = null |> unbox<Async<US2>> │
00:06:37 #30596 [verbose] > │ v330 │
00:06:37 #30597 [verbose] > │ #endif │
00:06:37 #30598 [verbose] > │ #if FABLE_COMPILER_RUST && CONTRACT │
00:06:37 #30599 [verbose] > │ let v331 : Async<US2> = null |> unbox<Async<US2>> │
00:06:37 #30600 [verbose] > │ v331 │
00:06:37 #30601 [verbose] > │ #endif │
00:06:37 #30602 [verbose] > │ #if !FABLE_COMPILER && !FABLE_COMPILER_RUST && │
00:06:37 #30603 [verbose] > │ !FABLE_COMPILER_TYPESCRIPT && !WASM && !CONTRACT │
00:06:37 #30604 [verbose] > │ let v332 : Async<US2> option = None │
00:06:37 #30605 [verbose] > │ let mutable _v332 = v332 │
00:06:37 #30606 [verbose] > │ async { │
00:06:37 #30607 [verbose] > │ let v333 : Async<Async<int64>> option = None │
00:06:37 #30608 [verbose] > │ let mutable _v333 = v333 │
00:06:37 #30609 [verbose] > │ #if FABLE_COMPILER_RUST && !WASM && !CONTRACT │
00:06:37 #30610 [verbose] > │ let v334 : Async<Async<int64>> = null |> unbox<Async<Async<int64>>> │
00:06:37 #30611 [verbose] > │ v334 │
00:06:37 #30612 [verbose] > │ #endif │
00:06:37 #30613 [verbose] > │ #if FABLE_COMPILER_RUST && WASM │
00:06:37 #30614 [verbose] > │ let v335 : Async<Async<int64>> = null |> unbox<Async<Async<int64>>> │
00:06:37 #30615 [verbose] > │ v335 │
00:06:37 #30616 [verbose] > │ #endif │
00:06:37 #30617 [verbose] > │ #if FABLE_COMPILER_RUST && CONTRACT │
00:06:37 #30618 [verbose] > │ let v336 : Async<Async<int64>> = null |> unbox<Async<Async<int64>>> │
00:06:37 #30619 [verbose] > │ v336 │
00:06:37 #30620 [verbose] > │ #endif │
00:06:37 #30621 [verbose] > │ #if !FABLE_COMPILER && !FABLE_COMPILER_RUST && │
00:06:37 #30622 [verbose] > │ !FABLE_COMPILER_TYPESCRIPT && !WASM && !CONTRACT │
00:06:37 #30623 [verbose] > │ let v337 : Async<Async<int64>> = Async.StartChild (v323, 3000) │
00:06:37 #30624 [verbose] > │ v337 │
00:06:37 #30625 [verbose] > │ #endif │
00:06:37 #30626 [verbose] > │ #if FABLE_COMPILER_TYPESCRIPT │
00:06:37 #30627 [verbose] > │ let v338 : Async<Async<int64>> = null |> unbox<Async<Async<int64>>> │
00:06:37 #30628 [verbose] > │ v338 │
00:06:37 #30629 [verbose] > │ #endif │
00:06:37 #30630 [verbose] > │ #if FABLE_COMPILER_PYTHON || FABLE_COMPILER_PHP || FABLE_COMPILER_DART │
00:06:37 #30631 [verbose] > │ let v339 : Async<Async<int64>> = │
00:06:37 #30632 [verbose] > │ Unchecked.defaultof<Async<Async<int64>>> │
00:06:37 #30633 [verbose] > │ v339 │
00:06:37 #30634 [verbose] > │ #endif │
00:06:37 #30635 [verbose] > │ |> fun x -> _v333 <- Some x │
00:06:37 #30636 [verbose] > │ let v340 : Async<Async<int64>> = _v333.Value │
00:06:37 #30637 [verbose] > │ let! v340 = v340 │
00:06:37 #30638 [verbose] > │ let v341 : Async<int64> = v340 │
00:06:37 #30639 [verbose] > │ let v342 : Async<Choice<int64, exn>> option = None │
00:06:37 #30640 [verbose] > │ let mutable _v342 = v342 │
00:06:37 #30641 [verbose] > │ #if FABLE_COMPILER_RUST && !WASM && !CONTRACT │
00:06:37 #30642 [verbose] > │ let v343 : Async<Choice<int64, exn>> = null |> unbox<Async<Choice<int64, │
00:06:37 #30643 [verbose] > │ exn>>> │
00:06:37 #30644 [verbose] > │ v343 │
00:06:37 #30645 [verbose] > │ #endif │
00:06:37 #30646 [verbose] > │ #if FABLE_COMPILER_RUST && WASM │
00:06:37 #30647 [verbose] > │ let v344 : Async<Choice<int64, exn>> = null |> unbox<Async<Choice<int64, │
00:06:37 #30648 [verbose] > │ exn>>> │
00:06:37 #30649 [verbose] > │ v344 │
00:06:37 #30650 [verbose] > │ #endif │
00:06:37 #30651 [verbose] > │ #if FABLE_COMPILER_RUST && CONTRACT │
00:06:37 #30652 [verbose] > │ let v345 : Async<Choice<int64, exn>> = null |> unbox<Async<Choice<int64, │
00:06:37 #30653 [verbose] > │ exn>>> │
00:06:37 #30654 [verbose] > │ v345 │
00:06:37 #30655 [verbose] > │ #endif │
00:06:37 #30656 [verbose] > │ #if !FABLE_COMPILER && !FABLE_COMPILER_RUST && │
00:06:37 #30657 [verbose] > │ !FABLE_COMPILER_TYPESCRIPT && !WASM && !CONTRACT │
00:06:37 #30658 [verbose] > │ let v346 : (Async<int64> -> Async<Choice<int64, exn>>) = Async.Catch │
00:06:37 #30659 [verbose] > │ let v347 : Async<Choice<int64, exn>> = v346 v341 │
00:06:37 #30660 [verbose] > │ v347 │
00:06:37 #30661 [verbose] > │ #endif │
00:06:37 #30662 [verbose] > │ #if FABLE_COMPILER_TYPESCRIPT │
00:06:37 #30663 [verbose] > │ let v348 : Async<Choice<int64, exn>> = null |> unbox<Async<Choice<int64, │
00:06:37 #30664 [verbose] > │ exn>>> │
00:06:37 #30665 [verbose] > │ v348 │
00:06:37 #30666 [verbose] > │ #endif │
00:06:37 #30667 [verbose] > │ #if FABLE_COMPILER_PYTHON || FABLE_COMPILER_PHP || FABLE_COMPILER_DART │
00:06:37 #30668 [verbose] > │ let v349 : Async<Choice<int64, exn>> = │
00:06:37 #30669 [verbose] > │ Unchecked.defaultof<Async<Choice<int64, exn>>> │
00:06:37 #30670 [verbose] > │ v349 │
00:06:37 #30671 [verbose] > │ #endif │
00:06:37 #30672 [verbose] > │ |> fun x -> _v342 <- Some x │
00:06:37 #30673 [verbose] > │ let v350 : Async<Choice<int64, exn>> = _v342.Value │
00:06:37 #30674 [verbose] > │ let v351 : Async<US3> option = None │
00:06:37 #30675 [verbose] > │ let mutable _v351 = v351 │
00:06:37 #30676 [verbose] > │ #if FABLE_COMPILER_RUST && !WASM && !CONTRACT │
00:06:37 #30677 [verbose] > │ let v352 : Async<US3> = null |> unbox<Async<US3>> │
00:06:37 #30678 [verbose] > │ v352 │
00:06:37 #30679 [verbose] > │ #endif │
00:06:37 #30680 [verbose] > │ #if FABLE_COMPILER_RUST && WASM │
00:06:37 #30681 [verbose] > │ let v353 : Async<US3> = null |> unbox<Async<US3>> │
00:06:37 #30682 [verbose] > │ v353 │
00:06:37 #30683 [verbose] > │ #endif │
00:06:37 #30684 [verbose] > │ #if FABLE_COMPILER_RUST && CONTRACT │
00:06:37 #30685 [verbose] > │ let v354 : Async<US3> = null |> unbox<Async<US3>> │
00:06:37 #30686 [verbose] > │ v354 │
00:06:37 #30687 [verbose] > │ #endif │
00:06:37 #30688 [verbose] > │ #if !FABLE_COMPILER && !FABLE_COMPILER_RUST && │
00:06:37 #30689 [verbose] > │ !FABLE_COMPILER_TYPESCRIPT && !WASM && !CONTRACT │
00:06:37 #30690 [verbose] > │ let v355 : Async<US3> option = None │
00:06:37 #30691 [verbose] > │ let mutable _v355 = v355 │
00:06:37 #30692 [verbose] > │ async { │
00:06:37 #30693 [verbose] > │ let! v350 = v350 │
00:06:37 #30694 [verbose] > │ let v356 : Choice<int64, exn> = v350 │
00:06:37 #30695 [verbose] > │ let v357 : US3 option = None │
00:06:37 #30696 [verbose] > │ let mutable _v357 = v357 │
00:06:37 #30697 [verbose] > │ #if FABLE_COMPILER_RUST && !WASM && !CONTRACT │
00:06:37 #30698 [verbose] > │ let v358 : US3 = null |> unbox<US3> │
00:06:37 #30699 [verbose] > │ v358 │
00:06:37 #30700 [verbose] > │ #endif │
00:06:37 #30701 [verbose] > │ #if FABLE_COMPILER_RUST && WASM │
00:06:37 #30702 [verbose] > │ let v359 : US3 = null |> unbox<US3> │
00:06:37 #30703 [verbose] > │ v359 │
00:06:37 #30704 [verbose] > │ #endif │
00:06:37 #30705 [verbose] > │ #if FABLE_COMPILER_RUST && CONTRACT │
00:06:37 #30706 [verbose] > │ let v360 : US3 = null |> unbox<US3> │
00:06:37 #30707 [verbose] > │ v360 │
00:06:37 #30708 [verbose] > │ #endif │
00:06:37 #30709 [verbose] > │ #if !FABLE_COMPILER && !FABLE_COMPILER_RUST && │
00:06:37 #30710 [verbose] > │ !FABLE_COMPILER_TYPESCRIPT && !WASM && !CONTRACT │
00:06:37 #30711 [verbose] > │ let v361 : (int64 -> US3) = closure18() │
00:06:37 #30712 [verbose] > │ let v362 : (exn -> US3) = closure19() │
00:06:37 #30713 [verbose] > │ let v363 : US3 = match v356 with Choice1Of2 x -> v361 x | Choice2Of2 x │
00:06:37 #30714 [verbose] > │ -> v362 x │
00:06:37 #30715 [verbose] > │ v363 │
00:06:37 #30716 [verbose] > │ #endif │
00:06:37 #30717 [verbose] > │ #if FABLE_COMPILER_TYPESCRIPT │
00:06:37 #30718 [verbose] > │ let v364 : US3 = null |> unbox<US3> │
00:06:37 #30719 [verbose] > │ v364 │
00:06:37 #30720 [verbose] > │ #endif │
00:06:37 #30721 [verbose] > │ #if FABLE_COMPILER_PYTHON || FABLE_COMPILER_PHP || FABLE_COMPILER_DART │
00:06:37 #30722 [verbose] > │ let v365 : US3 = Unchecked.defaultof<US3> │
00:06:37 #30723 [verbose] > │ v365 │
00:06:37 #30724 [verbose] > │ #endif │
00:06:37 #30725 [verbose] > │ |> fun x -> _v357 <- Some x │
00:06:37 #30726 [verbose] > │ let v366 : US3 = _v357.Value │
00:06:37 #30727 [verbose] > │ return v366 │
00:06:37 #30728 [verbose] > │ } │
00:06:37 #30729 [verbose] > │ |> fun x -> _v355 <- Some x │
00:06:37 #30730 [verbose] > │ let v367 : Async<US3> = _v355 |> Option.get │
00:06:37 #30731 [verbose] > │ v367 │
00:06:37 #30732 [verbose] > │ #endif │
00:06:37 #30733 [verbose] > │ #if FABLE_COMPILER_TYPESCRIPT │
00:06:37 #30734 [verbose] > │ let v368 : Async<US3> = null |> unbox<Async<US3>> │
00:06:37 #30735 [verbose] > │ v368 │
00:06:37 #30736 [verbose] > │ #endif │
00:06:37 #30737 [verbose] > │ #if FABLE_COMPILER_PYTHON || FABLE_COMPILER_PHP || FABLE_COMPILER_DART │
00:06:37 #30738 [verbose] > │ let v369 : Async<US3> = Unchecked.defaultof<Async<US3>> │
00:06:37 #30739 [verbose] > │ v369 │
00:06:37 #30740 [verbose] > │ #endif │
00:06:37 #30741 [verbose] > │ |> fun x -> _v351 <- Some x │
00:06:37 #30742 [verbose] > │ let v370 : Async<US3> = _v351.Value │
00:06:37 #30743 [verbose] > │ let v371 : Async<US4> option = None │
00:06:37 #30744 [verbose] > │ let mutable _v371 = v371 │
00:06:37 #30745 [verbose] > │ #if FABLE_COMPILER_RUST && !WASM && !CONTRACT │
00:06:37 #30746 [verbose] > │ let v372 : Async<US4> = null |> unbox<Async<US4>> │
00:06:37 #30747 [verbose] > │ v372 │
00:06:37 #30748 [verbose] > │ #endif │
00:06:37 #30749 [verbose] > │ #if FABLE_COMPILER_RUST && WASM │
00:06:37 #30750 [verbose] > │ let v373 : Async<US4> = null |> unbox<Async<US4>> │
00:06:37 #30751 [verbose] > │ v373 │
00:06:37 #30752 [verbose] > │ #endif │
00:06:37 #30753 [verbose] > │ #if FABLE_COMPILER_RUST && CONTRACT │
00:06:37 #30754 [verbose] > │ let v374 : Async<US4> = null |> unbox<Async<US4>> │
00:06:37 #30755 [verbose] > │ v374 │
00:06:37 #30756 [verbose] > │ #endif │
00:06:37 #30757 [verbose] > │ #if !FABLE_COMPILER && !FABLE_COMPILER_RUST && │
00:06:37 #30758 [verbose] > │ !FABLE_COMPILER_TYPESCRIPT && !WASM && !CONTRACT │
00:06:37 #30759 [verbose] > │ let v375 : Async<US4> option = None │
00:06:37 #30760 [verbose] > │ let mutable _v375 = v375 │
00:06:37 #30761 [verbose] > │ async { │
00:06:37 #30762 [verbose] > │ let! v370 = v370 │
00:06:37 #30763 [verbose] > │ let v376 : US3 = v370 │
00:06:37 #30764 [verbose] > │ let v382 : US4 = │
00:06:37 #30765 [verbose] > │ match v376 with │
00:06:37 #30766 [verbose] > │ | US3_0(v377) -> (* Choice1Of2 *) │
00:06:37 #30767 [verbose] > │ US4_0(v377) │
00:06:37 #30768 [verbose] > │ | US3_1(v379) -> (* Choice2Of2 *) │
00:06:37 #30769 [verbose] > │ US4_1(v379) │
00:06:37 #30770 [verbose] > │ return v382 │
00:06:37 #30771 [verbose] > │ } │
00:06:37 #30772 [verbose] > │ |> fun x -> _v375 <- Some x │
00:06:37 #30773 [verbose] > │ let v383 : Async<US4> = _v375 |> Option.get │
00:06:37 #30774 [verbose] > │ v383 │
00:06:37 #30775 [verbose] > │ #endif │
00:06:37 #30776 [verbose] > │ #if FABLE_COMPILER_TYPESCRIPT │
00:06:37 #30777 [verbose] > │ let v384 : Async<US4> = null |> unbox<Async<US4>> │
00:06:37 #30778 [verbose] > │ v384 │
00:06:37 #30779 [verbose] > │ #endif │
00:06:37 #30780 [verbose] > │ #if FABLE_COMPILER_PYTHON || FABLE_COMPILER_PHP || FABLE_COMPILER_DART │
00:06:37 #30781 [verbose] > │ let v385 : Async<US4> = Unchecked.defaultof<Async<US4>> │
00:06:37 #30782 [verbose] > │ v385 │
00:06:37 #30783 [verbose] > │ #endif │
00:06:37 #30784 [verbose] > │ |> fun x -> _v371 <- Some x │
00:06:37 #30785 [verbose] > │ let v386 : Async<US4> = _v371.Value │
00:06:37 #30786 [verbose] > │ let v387 : Async<US2> option = None │
00:06:37 #30787 [verbose] > │ let mutable _v387 = v387 │
00:06:37 #30788 [verbose] > │ #if FABLE_COMPILER_RUST && !WASM && !CONTRACT │
00:06:37 #30789 [verbose] > │ let v388 : Async<US2> = null |> unbox<Async<US2>> │
00:06:37 #30790 [verbose] > │ v388 │
00:06:37 #30791 [verbose] > │ #endif │
00:06:37 #30792 [verbose] > │ #if FABLE_COMPILER_RUST && WASM │
00:06:37 #30793 [verbose] > │ let v389 : Async<US2> = null |> unbox<Async<US2>> │
00:06:37 #30794 [verbose] > │ v389 │
00:06:37 #30795 [verbose] > │ #endif │
00:06:37 #30796 [verbose] > │ #if FABLE_COMPILER_RUST && CONTRACT │
00:06:37 #30797 [verbose] > │ let v390 : Async<US2> = null |> unbox<Async<US2>> │
00:06:37 #30798 [verbose] > │ v390 │
00:06:37 #30799 [verbose] > │ #endif │
00:06:37 #30800 [verbose] > │ #if !FABLE_COMPILER && !FABLE_COMPILER_RUST && │
00:06:37 #30801 [verbose] > │ !FABLE_COMPILER_TYPESCRIPT && !WASM && !CONTRACT │
00:06:37 #30802 [verbose] > │ let v391 : Async<US2> option = None │
00:06:37 #30803 [verbose] > │ let mutable _v391 = v391 │
00:06:37 #30804 [verbose] > │ async { │
00:06:37 #30805 [verbose] > │ let! v386 = v386 │
00:06:37 #30806 [verbose] > │ let v392 : US4 = v386 │
00:06:37 #30807 [verbose] > │ let v417 : US2 = │
00:06:37 #30808 [verbose] > │ match v392 with │
00:06:37 #30809 [verbose] > │ | US4_1(v395) -> (* Error *) │
00:06:37 #30810 [verbose] > │ let v396 : string = $"%A{v395}" │
00:06:37 #30811 [verbose] > │ let v397 : string = "System.TimeoutException" │
00:06:37 #30812 [verbose] > │ let v398 : bool = v396.Contains v397 │
00:06:37 #30813 [verbose] > │ if v398 then │
00:06:37 #30814 [verbose] > │ let v399 : US0 = US0_1 │
00:06:37 #30815 [verbose] > │ let v400 : (unit -> string) = closure20() │
00:06:37 #30816 [verbose] > │ let v401 : (unit -> string) = closure21() │
00:06:37 #30817 [verbose] > │ method5(v399, v400, v401) │
00:06:37 #30818 [verbose] > │ US2_1 │
00:06:37 #30819 [verbose] > │ else │
00:06:37 #30820 [verbose] > │ let v403 : string option = None │
00:06:37 #30821 [verbose] > │ let mutable _v403 = v403 │
00:06:37 #30822 [verbose] > │ #if FABLE_COMPILER_RUST && !WASM && !CONTRACT │
00:06:37 #30823 [verbose] > │ let v404 : string = $"%A{v395}" │
00:06:37 #30824 [verbose] > │ v404 │
00:06:37 #30825 [verbose] > │ #endif │
00:06:37 #30826 [verbose] > │ #if FABLE_COMPILER_RUST && WASM │
00:06:37 #30827 [verbose] > │ let v405 : string = $"%A{v395}" │
00:06:37 #30828 [verbose] > │ v405 │
00:06:37 #30829 [verbose] > │ #endif │
00:06:37 #30830 [verbose] > │ #if FABLE_COMPILER_RUST && CONTRACT │
00:06:37 #30831 [verbose] > │ let v406 : string = $"%A{v395}" │
00:06:37 #30832 [verbose] > │ v406 │
00:06:37 #30833 [verbose] > │ #endif │
00:06:37 #30834 [verbose] > │ #if !FABLE_COMPILER && !FABLE_COMPILER_RUST && │
00:06:37 #30835 [verbose] > │ !FABLE_COMPILER_TYPESCRIPT && !WASM && !CONTRACT │
00:06:37 #30836 [verbose] > │ let v407 : string = $"{v395.GetType ()}: {v395.Message}" │
00:06:37 #30837 [verbose] > │ v407 │
00:06:37 #30838 [verbose] > │ #endif │
00:06:37 #30839 [verbose] > │ #if FABLE_COMPILER_TYPESCRIPT │
00:06:37 #30840 [verbose] > │ let v408 : string = $"%A{v395}" │
00:06:37 #30841 [verbose] > │ v408 │
00:06:37 #30842 [verbose] > │ #endif │
00:06:37 #30843 [verbose] > │ #if FABLE_COMPILER_PYTHON || FABLE_COMPILER_PHP || │
00:06:37 #30844 [verbose] > │ FABLE_COMPILER_DART │
00:06:37 #30845 [verbose] > │ let v409 : string = Unchecked.defaultof<string> │
00:06:37 #30846 [verbose] > │ v409 │
00:06:37 #30847 [verbose] > │ #endif │
00:06:37 #30848 [verbose] > │ |> fun x -> _v403 <- Some x │
00:06:37 #30849 [verbose] > │ let v410 : string = _v403.Value │
00:06:37 #30850 [verbose] > │ let v411 : US0 = US0_4 │
00:06:37 #30851 [verbose] > │ let v412 : (unit -> string) = closure22(v410) │
00:06:37 #30852 [verbose] > │ let v413 : (unit -> string) = closure21() │
00:06:37 #30853 [verbose] > │ method5(v411, v412, v413) │
00:06:37 #30854 [verbose] > │ US2_1 │
00:06:37 #30855 [verbose] > │ | US4_0(v393) -> (* Ok *) │
00:06:37 #30856 [verbose] > │ US2_0(v393) │
00:06:37 #30857 [verbose] > │ return v417 │
00:06:37 #30858 [verbose] > │ } │
00:06:37 #30859 [verbose] > │ |> fun x -> _v391 <- Some x │
00:06:37 #30860 [verbose] > │ let v418 : Async<US2> = _v391 |> Option.get │
00:06:37 #30861 [verbose] > │ v418 │
00:06:37 #30862 [verbose] > │ #endif │
00:06:37 #30863 [verbose] > │ #if FABLE_COMPILER_TYPESCRIPT │
00:06:37 #30864 [verbose] > │ let v419 : Async<US2> = null |> unbox<Async<US2>> │
00:06:37 #30865 [verbose] > │ v419 │
00:06:37 #30866 [verbose] > │ #endif │
00:06:37 #30867 [verbose] > │ #if FABLE_COMPILER_PYTHON || FABLE_COMPILER_PHP || FABLE_COMPILER_DART │
00:06:37 #30868 [verbose] > │ let v420 : Async<US2> = Unchecked.defaultof<Async<US2>> │
00:06:37 #30869 [verbose] > │ v420 │
00:06:37 #30870 [verbose] > │ #endif │
00:06:37 #30871 [verbose] > │ |> fun x -> _v387 <- Some x │
00:06:37 #30872 [verbose] > │ let v421 : Async<US2> = _v387.Value │
00:06:37 #30873 [verbose] > │ return! v421 │
00:06:37 #30874 [verbose] > │ } │
00:06:37 #30875 [verbose] > │ |> fun x -> _v332 <- Some x │
00:06:37 #30876 [verbose] > │ let v422 : Async<US2> = _v332 |> Option.get │
00:06:37 #30877 [verbose] > │ v422 │
00:06:37 #30878 [verbose] > │ #endif │
00:06:37 #30879 [verbose] > │ #if FABLE_COMPILER_TYPESCRIPT │
00:06:37 #30880 [verbose] > │ let v423 : Async<US2> = null |> unbox<Async<US2>> │
00:06:37 #30881 [verbose] > │ v423 │
00:06:37 #30882 [verbose] > │ #endif │
00:06:37 #30883 [verbose] > │ #if FABLE_COMPILER_PYTHON || FABLE_COMPILER_PHP || FABLE_COMPILER_DART │
00:06:37 #30884 [verbose] > │ let v424 : Async<US2> = Unchecked.defaultof<Async<US2>> │
00:06:37 #30885 [verbose] > │ v424 │
00:06:37 #30886 [verbose] > │ #endif │
00:06:37 #30887 [verbose] > │ |> fun x -> _v328 <- Some x │
00:06:37 #30888 [verbose] > │ let v425 : Async<US2> = _v328.Value │
00:06:37 #30889 [verbose] > │ v425 │
00:06:37 #30890 [verbose] > │ #endif │
00:06:37 #30891 [verbose] > │ #if FABLE_COMPILER_TYPESCRIPT │
00:06:37 #30892 [verbose] > │ let v426 : Async<US2> = null |> unbox<Async<US2>> │
00:06:37 #30893 [verbose] > │ v426 │
00:06:37 #30894 [verbose] > │ #endif │
00:06:37 #30895 [verbose] > │ #if FABLE_COMPILER_PYTHON || FABLE_COMPILER_PHP || FABLE_COMPILER_DART │
00:06:37 #30896 [verbose] > │ let v427 : Async<US2> = Unchecked.defaultof<Async<US2>> │
00:06:37 #30897 [verbose] > │ v427 │
00:06:37 #30898 [verbose] > │ #endif │
00:06:37 #30899 [verbose] > │ |> fun x -> _v324 <- Some x │
00:06:37 #30900 [verbose] > │ let v428 : Async<US2> = _v324.Value │
00:06:37 #30901 [verbose] > │ let v429 : US2 option = None │
00:06:37 #30902 [verbose] > │ let mutable _v429 = v429 │
00:06:37 #30903 [verbose] > │ #if FABLE_COMPILER_RUST && !WASM && !CONTRACT │
00:06:37 #30904 [verbose] > │ let v430 : US2 = null |> unbox<US2> │
00:06:37 #30905 [verbose] > │ v430 │
00:06:37 #30906 [verbose] > │ #endif │
00:06:37 #30907 [verbose] > │ #if FABLE_COMPILER_RUST && WASM │
00:06:37 #30908 [verbose] > │ let v431 : US2 = null |> unbox<US2> │
00:06:37 #30909 [verbose] > │ v431 │
00:06:37 #30910 [verbose] > │ #endif │
00:06:37 #30911 [verbose] > │ #if FABLE_COMPILER_RUST && CONTRACT │
00:06:37 #30912 [verbose] > │ let v432 : US2 = null |> unbox<US2> │
00:06:37 #30913 [verbose] > │ v432 │
00:06:37 #30914 [verbose] > │ #endif │
00:06:37 #30915 [verbose] > │ #if !FABLE_COMPILER && !FABLE_COMPILER_RUST && │
00:06:37 #30916 [verbose] > │ !FABLE_COMPILER_TYPESCRIPT && !WASM && !CONTRACT │
00:06:37 #30917 [verbose] > │ let v433 : (Async<US2> -> US2) = Async.RunSynchronously │
00:06:37 #30918 [verbose] > │ let v434 : US2 = v433 v428 │
00:06:37 #30919 [verbose] > │ v434 │
00:06:37 #30920 [verbose] > │ #endif │
00:06:37 #30921 [verbose] > │ #if FABLE_COMPILER_TYPESCRIPT │
00:06:37 #30922 [verbose] > │ let v435 : US2 = null |> unbox<US2> │
00:06:37 #30923 [verbose] > │ v435 │
00:06:37 #30924 [verbose] > │ #endif │
00:06:37 #30925 [verbose] > │ #if FABLE_COMPILER_PYTHON || FABLE_COMPILER_PHP || FABLE_COMPILER_DART │
00:06:37 #30926 [verbose] > │ let v436 : US2 = Unchecked.defaultof<US2> │
00:06:37 #30927 [verbose] > │ v436 │
00:06:37 #30928 [verbose] > │ #endif │
00:06:37 #30929 [verbose] > │ |> fun x -> _v429 <- Some x │
00:06:37 #30930 [verbose] > │ let v437 : US2 = _v429.Value │
00:06:37 #30931 [verbose] > │ let v475 : bool = │
00:06:37 #30932 [verbose] > │ match v437 with │
00:06:37 #30933 [verbose] > │ | US2_0(v438) -> (* Some *) │
00:06:37 #30934 [verbose] > │ let v439 : bool option = None │
00:06:37 #30935 [verbose] > │ let mutable _v439 = v439 │
00:06:37 #30936 [verbose] > │ #if FABLE_COMPILER_RUST && !WASM && !CONTRACT │
00:06:37 #30937 [verbose] > │ let v440 : bool = null |> unbox<bool> │
00:06:37 #30938 [verbose] > │ v440 │
00:06:37 #30939 [verbose] > │ #endif │
00:06:37 #30940 [verbose] > │ #if FABLE_COMPILER_RUST && WASM │
00:06:37 #30941 [verbose] > │ let v441 : bool = null |> unbox<bool> │
00:06:37 #30942 [verbose] > │ v441 │
00:06:37 #30943 [verbose] > │ #endif │
00:06:37 #30944 [verbose] > │ #if FABLE_COMPILER_RUST && CONTRACT │
00:06:37 #30945 [verbose] > │ let v442 : bool = null |> unbox<bool> │
00:06:37 #30946 [verbose] > │ v442 │
00:06:37 #30947 [verbose] > │ #endif │
00:06:37 #30948 [verbose] > │ #if !FABLE_COMPILER && !FABLE_COMPILER_RUST && │
00:06:37 #30949 [verbose] > │ !FABLE_COMPILER_TYPESCRIPT && !WASM && !CONTRACT │
00:06:37 #30950 [verbose] > │ let v443 : System.Runtime.InteropServices.OSPlatform = │
00:06:37 #30951 [verbose] > │ System.Runtime.InteropServices.OSPlatform.Windows │
00:06:37 #30952 [verbose] > │ let v444 : (System.Runtime.InteropServices.OSPlatform -> bool) = │
00:06:37 #30953 [verbose] > │ System.Runtime.InteropServices.RuntimeInformation.IsOSPlatform │
00:06:37 #30954 [verbose] > │ let v445 : bool = v444 v443 │
00:06:37 #30955 [verbose] > │ v445 │
00:06:37 #30956 [verbose] > │ #endif │
00:06:37 #30957 [verbose] > │ #if FABLE_COMPILER_TYPESCRIPT │
00:06:37 #30958 [verbose] > │ let v446 : bool = null |> unbox<bool> │
00:06:37 #30959 [verbose] > │ v446 │
00:06:37 #30960 [verbose] > │ #endif │
00:06:37 #30961 [verbose] > │ #if FABLE_COMPILER_PYTHON || FABLE_COMPILER_PHP || │
00:06:37 #30962 [verbose] > │ FABLE_COMPILER_DART │
00:06:37 #30963 [verbose] > │ let v447 : bool = Unchecked.defaultof<bool> │
00:06:37 #30964 [verbose] > │ v447 │
00:06:37 #30965 [verbose] > │ #endif │
00:06:37 #30966 [verbose] > │ |> fun x -> _v439 <- Some x │
00:06:37 #30967 [verbose] > │ let v448 : bool = _v439.Value │
00:06:37 #30968 [verbose] > │ let v449 : int64 = │
00:06:37 #30969 [verbose] > │ if v448 then │
00:06:37 #30970 [verbose] > │ 50L │
00:06:37 #30971 [verbose] > │ else │
00:06:37 #30972 [verbose] > │ 0L │
00:06:37 #30973 [verbose] > │ let v450 : bool option = None │
00:06:37 #30974 [verbose] > │ let mutable _v450 = v450 │
00:06:37 #30975 [verbose] > │ #if FABLE_COMPILER_RUST && !WASM && !CONTRACT │
00:06:37 #30976 [verbose] > │ let v451 : bool = null |> unbox<bool> │
00:06:37 #30977 [verbose] > │ v451 │
00:06:37 #30978 [verbose] > │ #endif │
00:06:37 #30979 [verbose] > │ #if FABLE_COMPILER_RUST && WASM │
00:06:37 #30980 [verbose] > │ let v452 : bool = null |> unbox<bool> │
00:06:37 #30981 [verbose] > │ v452 │
00:06:37 #30982 [verbose] > │ #endif │
00:06:37 #30983 [verbose] > │ #if FABLE_COMPILER_RUST && CONTRACT │
00:06:37 #30984 [verbose] > │ let v453 : bool = null |> unbox<bool> │
00:06:37 #30985 [verbose] > │ v453 │
00:06:37 #30986 [verbose] > │ #endif │
00:06:37 #30987 [verbose] > │ #if !FABLE_COMPILER && !FABLE_COMPILER_RUST && │
00:06:37 #30988 [verbose] > │ !FABLE_COMPILER_TYPESCRIPT && !WASM && !CONTRACT │
00:06:37 #30989 [verbose] > │ let v454 : System.Runtime.InteropServices.OSPlatform = │
00:06:37 #30990 [verbose] > │ System.Runtime.InteropServices.OSPlatform.Windows │
00:06:37 #30991 [verbose] > │ let v455 : (System.Runtime.InteropServices.OSPlatform -> bool) = │
00:06:37 #30992 [verbose] > │ System.Runtime.InteropServices.RuntimeInformation.IsOSPlatform │
00:06:37 #30993 [verbose] > │ let v456 : bool = v455 v454 │
00:06:37 #30994 [verbose] > │ v456 │
00:06:37 #30995 [verbose] > │ #endif │
00:06:37 #30996 [verbose] > │ #if FABLE_COMPILER_TYPESCRIPT │
00:06:37 #30997 [verbose] > │ let v457 : bool = null |> unbox<bool> │
00:06:37 #30998 [verbose] > │ v457 │
00:06:37 #30999 [verbose] > │ #endif │
00:06:37 #31000 [verbose] > │ #if FABLE_COMPILER_PYTHON || FABLE_COMPILER_PHP || │
00:06:37 #31001 [verbose] > │ FABLE_COMPILER_DART │
00:06:37 #31002 [verbose] > │ let v458 : bool = Unchecked.defaultof<bool> │
00:06:37 #31003 [verbose] > │ v458 │
00:06:37 #31004 [verbose] > │ #endif │
00:06:37 #31005 [verbose] > │ |> fun x -> _v450 <- Some x │
00:06:37 #31006 [verbose] > │ let v459 : bool = _v450.Value │
00:06:37 #31007 [verbose] > │ let v460 : int64 = │
00:06:37 #31008 [verbose] > │ if v459 then │
00:06:37 #31009 [verbose] > │ 150L │
00:06:37 #31010 [verbose] > │ else │
00:06:37 #31011 [verbose] > │ 0L │
00:06:37 #31012 [verbose] > │ let v461 : string = $"%A{v438}" │
00:06:37 #31013 [verbose] > │ System.Console.WriteLine v461 │
00:06:37 #31014 [verbose] > │ let v462 : string = $"%A{v438}" │
00:06:37 #31015 [verbose] > │ System.Console.WriteLine v462 │
00:06:37 #31016 [verbose] > │ let v463 : bool = v438 >= v449 │
00:06:37 #31017 [verbose] > │ let v465 : bool = │
00:06:37 #31018 [verbose] > │ if v463 then │
00:06:37 #31019 [verbose] > │ true │
00:06:37 #31020 [verbose] > │ else │
00:06:37 #31021 [verbose] > │ method11(v463) │
00:06:37 #31022 [verbose] > │ let v466 : string = $"__expect / actual: %A{v438} / expected: │
00:06:37 #31023 [verbose] > │ %A{v449}" │
00:06:37 #31024 [verbose] > │ let v467 : bool = v465 = false │
00:06:37 #31025 [verbose] > │ if v467 then │
00:06:37 #31026 [verbose] > │ failwith<unit> v466 │
00:06:37 #31027 [verbose] > │ let v468 : string = $"%A{v438}" │
00:06:37 #31028 [verbose] > │ System.Console.WriteLine v468 │
00:06:37 #31029 [verbose] > │ let v469 : bool = v438 <= v460 │
00:06:37 #31030 [verbose] > │ let v471 : bool = │
00:06:37 #31031 [verbose] > │ if v469 then │
00:06:37 #31032 [verbose] > │ true │
00:06:37 #31033 [verbose] > │ else │
00:06:37 #31034 [verbose] > │ method11(v469) │
00:06:37 #31035 [verbose] > │ let v472 : string = $"__expect / actual: %A{v438} / expected: │
00:06:37 #31036 [verbose] > │ %A{v460}" │
00:06:37 #31037 [verbose] > │ let v473 : bool = v471 = false │
00:06:37 #31038 [verbose] > │ if v473 then │
00:06:37 #31039 [verbose] > │ failwith<unit> v472 │
00:06:37 #31040 [verbose] > │ let v474 : string = $"__expect / actual: %A{v438} / expected: │
00:06:37 #31041 [verbose] > │ %A{struct (v449, v460)}" │
00:06:37 #31042 [verbose] > │ true │
00:06:37 #31043 [verbose] > │ | _ -> │
00:06:37 #31044 [verbose] > │ false │
00:06:37 #31045 [verbose] > │ let v476 : string = $"%A{v475}" │
00:06:37 #31046 [verbose] > │ System.Console.WriteLine v476 │
00:06:37 #31047 [verbose] > │ let v478 : bool = │
00:06:37 #31048 [verbose] > │ if v475 then │
00:06:37 #31049 [verbose] > │ true │
00:06:37 #31050 [verbose] > │ else │
00:06:37 #31051 [verbose] > │ method11(v475) │
00:06:37 #31052 [verbose] > │ let v479 : string = $"__expect / actual: %A{v475} / expected: %A{true}" │
00:06:37 #31053 [verbose] > │ let v480 : bool = v478 = false │
00:06:37 #31054 [verbose] > │ if v480 then │
00:06:37 #31055 [verbose] > │ failwith<unit> v479 │
00:06:37 #31056 [verbose] > │ method0() │
00:06:37 #31057 [verbose] > │ │
00:06:37 #31058 [verbose] > │ 00:00:00 #1 [debug] 1 │
00:06:37 #31059 [verbose] > │ 00:00:00 #2 [debug] 2 │
00:06:37 #31060 [verbose] > │ 00:00:00 #3 [debug] 3 │
00:06:37 #31061 [verbose] > │ 00:00:00 #4 [debug] _1 │
00:06:37 #31062 [verbose] > │ 00:00:00 #5 [debug] _2 │
00:06:37 #31063 [verbose] > │ 00:00:00 #6 [debug] 4 │
00:06:37 #31064 [verbose] > │ delete_directory_async / path: test / ex: System.IO.IOException: The process │
00:06:37 #31065 [verbose] > │ cannot access the file 'test.txt' because it is being used by another │
00:06:37 #31066 [verbose] > │ process. / │
00:06:37 #31067 [verbose] > │ delete_directory_async / path: test / ex: System.IO.IOException: The process │
00:06:37 #31068 [verbose] > │ cannot access the file 'test.txt' because it is being used by another │
00:06:37 #31069 [verbose] > │ process. / │
00:06:37 #31070 [verbose] > │ 00:00:01 #7 [debug] _3 │
00:06:37 #31071 [verbose] > │ 00:00:02 #8 [debug] 5 │
00:06:37 #31072 [verbose] > │ 00:00:02 #9 [debug] 6 │
00:06:37 #31073 [verbose] > │ 124L │
00:06:37 #31074 [verbose] > │ 124L │
00:06:37 #31075 [verbose] > │ 124L │
00:06:37 #31076 [verbose] > │ true │
00:06:37 #31077 [verbose] > │ │
00:06:37 #31078 [verbose] > ╰──────────────────────────────────────────────────────────────────────────────╯
00:06:37 #31079 [verbose] >
00:06:37 #31080 [verbose] > ── markdown ────────────────────────────────────────────────────────────────────
00:06:37 #31081 [verbose] > ╭──────────────────────────────────────────────────────────────────────────────╮
00:06:37 #31082 [verbose] > │ ## wait_for_file_access │
00:06:37 #31083 [verbose] > ╰──────────────────────────────────────────────────────────────────────────────╯
00:06:37 #31084 [verbose] >
00:06:37 #31085 [verbose] > ── spiral ──────────────────────────────────────────────────────────────────────
00:06:37 #31086 [verbose] > inl wait_for_file_access access path =
00:06:37 #31087 [verbose] > run_target function
00:06:37 #31088 [verbose] > | Fsharp (Native) => fun () =>
00:06:37 #31089 [verbose] > inl file_access, file_share =
00:06:37 #31090 [verbose] > access
00:06:37 #31091 [verbose] > |> optionm'.default_value (AccessReadWrite, ShareRead)
00:06:37 #31092 [verbose] > let rec loop (retry : i64) : _ i64 =
00:06:37 #31093 [verbose] > fun () =>
00:06:37 #31094 [verbose] > try_unit
00:06:37 #31095 [verbose] > fun () =>
00:06:37 #31096 [verbose] > file_stream
00:06:37 #31097 [verbose] > path
00:06:37 #31098 [verbose] > ModeOpen
00:06:37 #31099 [verbose] > file_access
00:06:37 #31100 [verbose] > file_share
00:06:37 #31101 [verbose] > |> use
00:06:37 #31102 [verbose] > |> ignore
00:06:37 #31103 [verbose] > retry |> return
00:06:37 #31104 [verbose] > fun ex =>
00:06:37 #31105 [verbose] > if retry > 0 && retry % 100i64 = 0 then
00:06:37 #31106 [verbose] > inl ex = ex |> sm'.format_exception
00:06:37 #31107 [verbose] > let get_locals () = $'$"path: {!path |>
00:06:37 #31108 [verbose] > !get_file_name} / retry: {!retry} / ex: {!ex} / {!get_locals ()}"' : string
00:06:37 #31109 [verbose] > // trace Debug (fun () ->
00:06:37 #31110 [verbose] > "wait_for_file_access") getLocals
00:06:37 #31111 [verbose] > console.write_line ($'$"wait_for_file_access
00:06:37 #31112 [verbose] > {!get_locals ()}"' : string)
00:06:37 #31113 [verbose] > async.sleep 10i32 |> async.do
00:06:37 #31114 [verbose] > loop (retry + 1) |> async.return_await
00:06:37 #31115 [verbose] > |> async.new_async
00:06:37 #31116 [verbose] > loop 0
00:06:37 #31117 [verbose] > | _ => fun () => null ()
00:06:37 #31118 [verbose] >
00:06:37 #31119 [verbose] > inl wait_for_file_access_read path =
00:06:37 #31120 [verbose] > path
00:06:37 #31121 [verbose] > |> wait_for_file_access (Some (
00:06:37 #31122 [verbose] > AccessRead,
00:06:37 #31123 [verbose] > ShareRead
00:06:37 #31124 [verbose] > ))
00:06:37 #31125 [verbose] > Building c:\home\git\polyglot\target\polyglot\spiral_eval\packages\d1bc159eb0bfd0b55087a9a42ef1b00417b2ffac7dffacbaa6cc52a3c99a9b43\main.spi
00:06:37 #31126 [verbose] >
00:06:37 #31127 [verbose] > ╭─[ 448.11ms - stdout ]────────────────────────────────────────────────────────╮
00:06:37 #31128 [verbose] > │ () │
00:06:37 #31129 [verbose] > │ │
00:06:37 #31130 [verbose] > │ │
00:06:37 #31131 [verbose] > ╰──────────────────────────────────────────────────────────────────────────────╯
00:06:37 #31132 [verbose] >
00:06:37 #31133 [verbose] > ── spiral ──────────────────────────────────────────────────────────────────────
00:06:37 #31134 [verbose] > // // test
00:06:37 #31135 [verbose] >
00:06:37 #31136 [verbose] > inl lock_file path =
00:06:37 #31137 [verbose] > fun () =>
00:06:37 #31138 [verbose] > trace Debug (fun () => "_1") get_locals
00:06:37 #31139 [verbose] > inl stream : file_stream' =
00:06:37 #31140 [verbose] > file_stream
00:06:37 #31141 [verbose] > path
00:06:37 #31142 [verbose] > ModeOpen
00:06:37 #31143 [verbose] > AccessReadWrite
00:06:37 #31144 [verbose] > ShareNone
00:06:37 #31145 [verbose] > |> use
00:06:37 #31146 [verbose] > trace Debug (fun () => "_2") get_locals
00:06:37 #31147 [verbose] > async.sleep 2000 |> async.do
00:06:37 #31148 [verbose] > trace Debug (fun () => "_3") get_locals
00:06:37 #31149 [verbose] > ($'!stream.Seek (0L, System.IO.SeekOrigin.Begin)' : i64) |> ignore
00:06:37 #31150 [verbose] > trace Debug (fun () => "_4") get_locals
00:06:37 #31151 [verbose] > $'!stream.WriteByte' 49u8
00:06:37 #31152 [verbose] > trace Debug (fun () => "_5") get_locals
00:06:37 #31153 [verbose] > stream |> $'_.Flush()'
00:06:37 #31154 [verbose] > trace Debug (fun () => "_6") get_locals
00:06:37 #31155 [verbose] > |> async.new_async
00:06:37 #31156 [verbose] >
00:06:37 #31157 [verbose] > inl temp_dir, disposable = create_temp_directory ()
00:06:37 #31158 [verbose] > disposable |> use |> ignore
00:06:37 #31159 [verbose] > inl path = temp_dir </> "test.txt"
00:06:37 #31160 [verbose] >
00:06:37 #31161 [verbose] > fun () =>
00:06:37 #31162 [verbose] > trace Debug (fun () => "1") get_locals
00:06:37 #31163 [verbose] > "0" |> write_all_text_async path |> async.do
00:06:37 #31164 [verbose] > trace Debug (fun () => "2") get_locals
00:06:37 #31165 [verbose] > inl child = path |> lock_file |> async.start_child |> async.let'
00:06:37 #31166 [verbose] > trace Debug (fun () => "3") get_locals
00:06:37 #31167 [verbose] > async.sleep 1 |> async.do
00:06:37 #31168 [verbose] > trace Debug (fun () => "4") get_locals
00:06:37 #31169 [verbose] > inl retries = path |> wait_for_file_access None |> async.let'
00:06:37 #31170 [verbose] > trace Debug (fun () => "5") get_locals
00:06:37 #31171 [verbose] > inl text = path |> read_all_text_async |> async.let'
00:06:37 #31172 [verbose] > trace Debug (fun () => "6") get_locals
00:06:37 #31173 [verbose] > child |> async.do
00:06:37 #31174 [verbose] > trace Debug (fun () => "7") get_locals
00:06:37 #31175 [verbose] > (retries, text) |> return
00:06:37 #31176 [verbose] > |> async.new_async_unit
00:06:37 #31177 [verbose] > |> async.run_with_timeout 3000
00:06:37 #31178 [verbose] > |> function
00:06:37 #31179 [verbose] > | Some ((retries : i64), text) =>
00:06:37 #31180 [verbose] > retries
00:06:37 #31181 [verbose] > |> _assert_between
00:06:37 #31182 [verbose] > (if runtime.is_windows () then 50 else 100)
00:06:37 #31183 [verbose] > (if runtime.is_windows () then 150 else 200)
00:06:37 #31184 [verbose] >
00:06:37 #31185 [verbose] > text |> _assert_eq (join "1")
00:06:37 #31186 [verbose] >
00:06:37 #31187 [verbose] > true
00:06:37 #31188 [verbose] > | _ => false
00:06:37 #31189 [verbose] > |> _assert_eq true
00:06:37 #31190 [verbose] > Building c:\home\git\polyglot\target\polyglot\spiral_eval\packages\24287f46df74d6d492431fda21ab3b4b9d027ba3efba6ef4ed9c6ec30ab1d0f8\main.spi
00:06:40 #31191 [verbose] >
00:06:40 #31192 [verbose] > ╭─[ 2.98s - stdout ]───────────────────────────────────────────────────────────╮
00:06:40 #31193 [verbose] > │ type IPathJoin = abstract join: [<System.ParamArray>] paths: string[] -> │
00:06:40 #31194 [verbose] > │ string │
00:06:40 #31195 [verbose] > │ module State = let mutable trace_state = None │
00:06:40 #31196 [verbose] > │ type [<Struct>] US0 = │
00:06:40 #31197 [verbose] > │ | US0_0 │
00:06:40 #31198 [verbose] > │ | US0_1 │
00:06:40 #31199 [verbose] > │ | US0_2 │
00:06:40 #31200 [verbose] > │ | US0_3 │
00:06:40 #31201 [verbose] > │ | US0_4 │
00:06:40 #31202 [verbose] > │ and Mut0 = {mutable l0 : int64} │
00:06:40 #31203 [verbose] > │ and Mut1 = {mutable l0 : bool} │
00:06:40 #31204 [verbose] > │ and Mut2 = {mutable l0 : US0} │
00:06:40 #31205 [verbose] > │ and [<Struct>] US1 = │
00:06:40 #31206 [verbose] > │ | US1_0 of f0_0 : int64 │
00:06:40 #31207 [verbose] > │ | US1_1 │
00:06:40 #31208 [verbose] > │ and [<Struct>] US2 = │
00:06:40 #31209 [verbose] > │ | US2_0 of f0_0 : int64 │
00:06:40 #31210 [verbose] > │ | US2_1 │
00:06:40 #31211 [verbose] > │ and [<Struct>] US3 = │
00:06:40 #31212 [verbose] > │ | US3_0 of f0_0 : int64 * f0_1 : string │
00:06:40 #31213 [verbose] > │ | US3_1 │
00:06:40 #31214 [verbose] > │ and [<Struct>] US4 = │
00:06:40 #31215 [verbose] > │ | US4_0 of f0_0 : int64 * f0_1 : string │
00:06:40 #31216 [verbose] > │ | US4_1 of f1_0 : exn │
00:06:40 #31217 [verbose] > │ and [<Struct>] US5 = │
00:06:40 #31218 [verbose] > │ | US5_0 of f0_0 : int64 * f0_1 : string │
00:06:40 #31219 [verbose] > │ | US5_1 of f1_0 : exn │
00:06:40 #31220 [verbose] > │ let rec closure0 () () : string = │
00:06:40 #31221 [verbose] > │ let v0 : string option = None │
00:06:40 #31222 [verbose] > │ let mutable _v0 = v0 │
00:06:40 #31223 [verbose] > │ #if FABLE_COMPILER_RUST && !WASM && !CONTRACT │
00:06:40 #31224 [verbose] > │ let v1 : string = null |> unbox<string> │
00:06:40 #31225 [verbose] > │ v1 │
00:06:40 #31226 [verbose] > │ #endif │
00:06:40 #31227 [verbose] > │ #if FABLE_COMPILER_RUST && WASM │
00:06:40 #31228 [verbose] > │ let v2 : string = null |> unbox<string> │
00:06:40 #31229 [verbose] > │ v2 │
00:06:40 #31230 [verbose] > │ #endif │
00:06:40 #31231 [verbose] > │ #if FABLE_COMPILER_RUST && CONTRACT │
00:06:40 #31232 [verbose] > │ let v3 : string = null |> unbox<string> │
00:06:40 #31233 [verbose] > │ v3 │
00:06:40 #31234 [verbose] > │ #endif │
00:06:40 #31235 [verbose] > │ #if !FABLE_COMPILER && !FABLE_COMPILER_RUST && │
00:06:40 #31236 [verbose] > │ !FABLE_COMPILER_TYPESCRIPT && !WASM && !CONTRACT │
00:06:40 #31237 [verbose] > │ let v4 : string = │
00:06:40 #31238 [verbose] > │ System.Reflection.Assembly.GetEntryAssembly().GetName().Name │
00:06:40 #31239 [verbose] > │ v4 │
00:06:40 #31240 [verbose] > │ #endif │
00:06:40 #31241 [verbose] > │ #if FABLE_COMPILER_TYPESCRIPT │
00:06:40 #31242 [verbose] > │ let v5 : string = null |> unbox<string> │
00:06:40 #31243 [verbose] > │ v5 │
00:06:40 #31244 [verbose] > │ #endif │
00:06:40 #31245 [verbose] > │ #if FABLE_COMPILER_PYTHON || FABLE_COMPILER_PHP || FABLE_COMPILER_DART │
00:06:40 #31246 [verbose] > │ let v6 : string = Unchecked.defaultof<string> │
00:06:40 #31247 [verbose] > │ v6 │
00:06:40 #31248 [verbose] > │ #endif │
00:06:40 #31249 [verbose] > │ |> fun x -> _v0 <- Some x │
00:06:40 #31250 [verbose] > │ let v7 : string = _v0.Value │
00:06:40 #31251 [verbose] > │ v7 │
00:06:40 #31252 [verbose] > │ and method1 (v0 : string) : string = │
00:06:40 #31253 [verbose] > │ v0 │
00:06:40 #31254 [verbose] > │ and closure2 () () : string = │
00:06:40 #31255 [verbose] > │ let v0 : string = "" │
00:06:40 #31256 [verbose] > │ v0 │
00:06:40 #31257 [verbose] > │ and closure1 (v0 : string, v1 : string) () : string = │
00:06:40 #31258 [verbose] > │ let v2 : (unit -> string) = closure2() │
00:06:40 #31259 [verbose] > │ let v3 : string = $"temp_folder: {v0} / result: {v1} {v2 ()}" │
00:06:40 #31260 [verbose] > │ v3 │
00:06:40 #31261 [verbose] > │ and closure5 () (v0 : string) : string = │
00:06:40 #31262 [verbose] > │ let v1 : string option = None │
00:06:40 #31263 [verbose] > │ let mutable _v1 = v1 │
00:06:40 #31264 [verbose] > │ #if FABLE_COMPILER_RUST && !WASM && !CONTRACT │
00:06:40 #31265 [verbose] > │ let v2 : string = null |> unbox<string> │
00:06:40 #31266 [verbose] > │ v2 │
00:06:40 #31267 [verbose] > │ #endif │
00:06:40 #31268 [verbose] > │ #if FABLE_COMPILER_RUST && WASM │
00:06:40 #31269 [verbose] > │ let v3 : string = null |> unbox<string> │
00:06:40 #31270 [verbose] > │ v3 │
00:06:40 #31271 [verbose] > │ #endif │
00:06:40 #31272 [verbose] > │ #if FABLE_COMPILER_RUST && CONTRACT │
00:06:40 #31273 [verbose] > │ let v4 : string = null |> unbox<string> │
00:06:40 #31274 [verbose] > │ v4 │
00:06:40 #31275 [verbose] > │ #endif │
00:06:40 #31276 [verbose] > │ #if !FABLE_COMPILER && !FABLE_COMPILER_RUST && │
00:06:40 #31277 [verbose] > │ !FABLE_COMPILER_TYPESCRIPT && !WASM && !CONTRACT │
00:06:40 #31278 [verbose] > │ let v5 : (string -> string) = System.IO.Path.GetFileName │
00:06:40 #31279 [verbose] > │ let v6 : string = v5 v0 │
00:06:40 #31280 [verbose] > │ v6 │
00:06:40 #31281 [verbose] > │ #endif │
00:06:40 #31282 [verbose] > │ #if FABLE_COMPILER_TYPESCRIPT │
00:06:40 #31283 [verbose] > │ let v7 : string = null |> unbox<string> │
00:06:40 #31284 [verbose] > │ v7 │
00:06:40 #31285 [verbose] > │ #endif │
00:06:40 #31286 [verbose] > │ #if FABLE_COMPILER_PYTHON || FABLE_COMPILER_PHP || FABLE_COMPILER_DART │
00:06:40 #31287 [verbose] > │ let v8 : string = Unchecked.defaultof<string> │
00:06:40 #31288 [verbose] > │ v8 │
00:06:40 #31289 [verbose] > │ #endif │
00:06:40 #31290 [verbose] > │ |> fun x -> _v1 <- Some x │
00:06:40 #31291 [verbose] > │ let v9 : string = _v1.Value │
00:06:40 #31292 [verbose] > │ v9 │
00:06:40 #31293 [verbose] > │ and method3 (v0 : string, v1 : string) : string = │
00:06:40 #31294 [verbose] > │ let v2 : (string -> string) = closure5() │
00:06:40 #31295 [verbose] > │ let v3 : (unit -> string) = closure2() │
00:06:40 #31296 [verbose] > │ let v4 : string = $"path: {v0 |> v2} / ex: {v1} / {v3 ()}" │
00:06:40 #31297 [verbose] > │ v4 │
00:06:40 #31298 [verbose] > │ and closure4 (v0 : string, v1 : string) () : string = │
00:06:40 #31299 [verbose] > │ method3(v0, v1) │
00:06:40 #31300 [verbose] > │ and method2 (v0 : string, v1 : int64) : Async<int64> = │
00:06:40 #31301 [verbose] > │ let v2 : Async<int64> option = None │
00:06:40 #31302 [verbose] > │ let mutable _v2 = v2 │
00:06:40 #31303 [verbose] > │ #if FABLE_COMPILER_RUST && !WASM && !CONTRACT │
00:06:40 #31304 [verbose] > │ let v3 : Async<int64> = null |> unbox<Async<int64>> │
00:06:40 #31305 [verbose] > │ v3 │
00:06:40 #31306 [verbose] > │ #endif │
00:06:40 #31307 [verbose] > │ #if FABLE_COMPILER_RUST && WASM │
00:06:40 #31308 [verbose] > │ let v4 : Async<int64> = null |> unbox<Async<int64>> │
00:06:40 #31309 [verbose] > │ v4 │
00:06:40 #31310 [verbose] > │ #endif │
00:06:40 #31311 [verbose] > │ #if FABLE_COMPILER_RUST && CONTRACT │
00:06:40 #31312 [verbose] > │ let v5 : Async<int64> = null |> unbox<Async<int64>> │
00:06:40 #31313 [verbose] > │ v5 │
00:06:40 #31314 [verbose] > │ #endif │
00:06:40 #31315 [verbose] > │ #if !FABLE_COMPILER && !FABLE_COMPILER_RUST && │
00:06:40 #31316 [verbose] > │ !FABLE_COMPILER_TYPESCRIPT && !WASM && !CONTRACT │
00:06:40 #31317 [verbose] > │ let v6 : Async<int64> option = None │
00:06:40 #31318 [verbose] > │ let mutable _v6 = v6 │
00:06:40 #31319 [verbose] > │ async { │
00:06:40 #31320 [verbose] > │ try │
00:06:40 #31321 [verbose] > │ let v7 : unit option = None │
00:06:40 #31322 [verbose] > │ let mutable _v7 = v7 │
00:06:40 #31323 [verbose] > │ #if FABLE_COMPILER_RUST && !WASM && !CONTRACT │
00:06:40 #31324 [verbose] > │ null |> unbox<unit> │
00:06:40 #31325 [verbose] > │ () │
00:06:40 #31326 [verbose] > │ #endif │
00:06:40 #31327 [verbose] > │ #if FABLE_COMPILER_RUST && WASM │
00:06:40 #31328 [verbose] > │ null |> unbox<unit> │
00:06:40 #31329 [verbose] > │ () │
00:06:40 #31330 [verbose] > │ #endif │
00:06:40 #31331 [verbose] > │ #if FABLE_COMPILER_RUST && CONTRACT │
00:06:40 #31332 [verbose] > │ null |> unbox<unit> │
00:06:40 #31333 [verbose] > │ () │
00:06:40 #31334 [verbose] > │ #endif │
00:06:40 #31335 [verbose] > │ #if !FABLE_COMPILER && !FABLE_COMPILER_RUST && │
00:06:40 #31336 [verbose] > │ !FABLE_COMPILER_TYPESCRIPT && !WASM && !CONTRACT │
00:06:40 #31337 [verbose] > │ System.IO.Directory.Delete (v0, true) │
00:06:40 #31338 [verbose] > │ () │
00:06:40 #31339 [verbose] > │ #endif │
00:06:40 #31340 [verbose] > │ #if FABLE_COMPILER_TYPESCRIPT │
00:06:40 #31341 [verbose] > │ null |> unbox<unit> │
00:06:40 #31342 [verbose] > │ () │
00:06:40 #31343 [verbose] > │ #endif │
00:06:40 #31344 [verbose] > │ #if FABLE_COMPILER_PYTHON || FABLE_COMPILER_PHP || FABLE_COMPILER_DART │
00:06:40 #31345 [verbose] > │ Unchecked.defaultof<unit> │
00:06:40 #31346 [verbose] > │ () │
00:06:40 #31347 [verbose] > │ #endif │
00:06:40 #31348 [verbose] > │ |> fun x -> _v7 <- Some x │
00:06:40 #31349 [verbose] > │ _v7.Value │
00:06:40 #31350 [verbose] > │ return v1 │
00:06:40 #31351 [verbose] > │ with ex -> │
00:06:40 #31352 [verbose] > │ let v8 : exn = ex │
00:06:40 #31353 [verbose] > │ let v9 : int64 = v1 % 100L │
00:06:40 #31354 [verbose] > │ let v10 : bool = v9 = 0L │
00:06:40 #31355 [verbose] > │ if v10 then │
00:06:40 #31356 [verbose] > │ let v11 : string option = None │
00:06:40 #31357 [verbose] > │ let mutable _v11 = v11 │
00:06:40 #31358 [verbose] > │ #if FABLE_COMPILER_RUST && !WASM && !CONTRACT │
00:06:40 #31359 [verbose] > │ let v12 : string = $"%A{v8}" │
00:06:40 #31360 [verbose] > │ v12 │
00:06:40 #31361 [verbose] > │ #endif │
00:06:40 #31362 [verbose] > │ #if FABLE_COMPILER_RUST && WASM │
00:06:40 #31363 [verbose] > │ let v13 : string = $"%A{v8}" │
00:06:40 #31364 [verbose] > │ v13 │
00:06:40 #31365 [verbose] > │ #endif │
00:06:40 #31366 [verbose] > │ #if FABLE_COMPILER_RUST && CONTRACT │
00:06:40 #31367 [verbose] > │ let v14 : string = $"%A{v8}" │
00:06:40 #31368 [verbose] > │ v14 │
00:06:40 #31369 [verbose] > │ #endif │
00:06:40 #31370 [verbose] > │ #if !FABLE_COMPILER && !FABLE_COMPILER_RUST && │
00:06:40 #31371 [verbose] > │ !FABLE_COMPILER_TYPESCRIPT && !WASM && !CONTRACT │
00:06:40 #31372 [verbose] > │ let v15 : string = $"{v8.GetType ()}: {v8.Message}" │
00:06:40 #31373 [verbose] > │ v15 │
00:06:40 #31374 [verbose] > │ #endif │
00:06:40 #31375 [verbose] > │ #if FABLE_COMPILER_TYPESCRIPT │
00:06:40 #31376 [verbose] > │ let v16 : string = $"%A{v8}" │
00:06:40 #31377 [verbose] > │ v16 │
00:06:40 #31378 [verbose] > │ #endif │
00:06:40 #31379 [verbose] > │ #if FABLE_COMPILER_PYTHON || FABLE_COMPILER_PHP || │
00:06:40 #31380 [verbose] > │ FABLE_COMPILER_DART │
00:06:40 #31381 [verbose] > │ let v17 : string = Unchecked.defaultof<string> │
00:06:40 #31382 [verbose] > │ v17 │
00:06:40 #31383 [verbose] > │ #endif │
00:06:40 #31384 [verbose] > │ |> fun x -> _v11 <- Some x │
00:06:40 #31385 [verbose] > │ let v18 : string = _v11.Value │
00:06:40 #31386 [verbose] > │ let v19 : (unit -> string) = closure4(v0, v18) │
00:06:40 #31387 [verbose] > │ let v20 : string = $"delete_directory_async / {v19 ()}" │
00:06:40 #31388 [verbose] > │ System.Console.WriteLine v20 │
00:06:40 #31389 [verbose] > │ () │
00:06:40 #31390 [verbose] > │ let v21 : Async<unit> option = None │
00:06:40 #31391 [verbose] > │ let mutable _v21 = v21 │
00:06:40 #31392 [verbose] > │ #if FABLE_COMPILER_RUST && !WASM && !CONTRACT │
00:06:40 #31393 [verbose] > │ let v22 : Async<unit> = null |> unbox<Async<unit>> │
00:06:40 #31394 [verbose] > │ v22 │
00:06:40 #31395 [verbose] > │ #endif │
00:06:40 #31396 [verbose] > │ #if FABLE_COMPILER_RUST && WASM │
00:06:40 #31397 [verbose] > │ let v23 : Async<unit> = null |> unbox<Async<unit>> │
00:06:40 #31398 [verbose] > │ v23 │
00:06:40 #31399 [verbose] > │ #endif │
00:06:40 #31400 [verbose] > │ #if FABLE_COMPILER_RUST && CONTRACT │
00:06:40 #31401 [verbose] > │ let v24 : Async<unit> = null |> unbox<Async<unit>> │
00:06:40 #31402 [verbose] > │ v24 │
00:06:40 #31403 [verbose] > │ #endif │
00:06:40 #31404 [verbose] > │ #if !FABLE_COMPILER && !FABLE_COMPILER_RUST && │
00:06:40 #31405 [verbose] > │ !FABLE_COMPILER_TYPESCRIPT && !WASM && !CONTRACT │
00:06:40 #31406 [verbose] > │ let v25 : (int32 -> Async<unit>) = Async.Sleep │
00:06:40 #31407 [verbose] > │ let v26 : Async<unit> = v25 10 │
00:06:40 #31408 [verbose] > │ v26 │
00:06:40 #31409 [verbose] > │ #endif │
00:06:40 #31410 [verbose] > │ #if FABLE_COMPILER_TYPESCRIPT │
00:06:40 #31411 [verbose] > │ let v27 : Async<unit> = null |> unbox<Async<unit>> │
00:06:40 #31412 [verbose] > │ v27 │
00:06:40 #31413 [verbose] > │ #endif │
00:06:40 #31414 [verbose] > │ #if FABLE_COMPILER_PYTHON || FABLE_COMPILER_PHP || FABLE_COMPILER_DART │
00:06:40 #31415 [verbose] > │ let v28 : Async<unit> = Unchecked.defaultof<Async<unit>> │
00:06:40 #31416 [verbose] > │ v28 │
00:06:40 #31417 [verbose] > │ #endif │
00:06:40 #31418 [verbose] > │ |> fun x -> _v21 <- Some x │
00:06:40 #31419 [verbose] > │ let v29 : Async<unit> = _v21.Value │
00:06:40 #31420 [verbose] > │ do! v29 │
00:06:40 #31421 [verbose] > │ let v30 : int64 = v1 + 1L │
00:06:40 #31422 [verbose] > │ let v31 : Async<int64> = method2(v0, v30) │
00:06:40 #31423 [verbose] > │ return! v31 │
00:06:40 #31424 [verbose] > │ (* │
00:06:40 #31425 [verbose] > │ let v32 : int64 = *) │
00:06:40 #31426 [verbose] > │ } │
00:06:40 #31427 [verbose] > │ |> fun x -> _v6 <- Some x │
00:06:40 #31428 [verbose] > │ let v33 : Async<int64> = _v6 |> Option.get │
00:06:40 #31429 [verbose] > │ v33 │
00:06:40 #31430 [verbose] > │ #endif │
00:06:40 #31431 [verbose] > │ #if FABLE_COMPILER_TYPESCRIPT │
00:06:40 #31432 [verbose] > │ let v34 : Async<int64> = null |> unbox<Async<int64>> │
00:06:40 #31433 [verbose] > │ v34 │
00:06:40 #31434 [verbose] > │ #endif │
00:06:40 #31435 [verbose] > │ #if FABLE_COMPILER_PYTHON || FABLE_COMPILER_PHP || FABLE_COMPILER_DART │
00:06:40 #31436 [verbose] > │ let v35 : Async<int64> = Unchecked.defaultof<Async<int64>> │
00:06:40 #31437 [verbose] > │ v35 │
00:06:40 #31438 [verbose] > │ #endif │
00:06:40 #31439 [verbose] > │ |> fun x -> _v2 <- Some x │
00:06:40 #31440 [verbose] > │ let v36 : Async<int64> = _v2.Value │
00:06:40 #31441 [verbose] > │ v36 │
00:06:40 #31442 [verbose] > │ and closure3 (v0 : string) () : unit = │
00:06:40 #31443 [verbose] > │ let v1 : Async<int64> option = None │
00:06:40 #31444 [verbose] > │ let mutable _v1 = v1 │
00:06:40 #31445 [verbose] > │ #if FABLE_COMPILER_RUST && !WASM && !CONTRACT │
00:06:40 #31446 [verbose] > │ let v2 : Async<int64> = null |> unbox<Async<int64>> │
00:06:40 #31447 [verbose] > │ v2 │
00:06:40 #31448 [verbose] > │ #endif │
00:06:40 #31449 [verbose] > │ #if FABLE_COMPILER_RUST && WASM │
00:06:40 #31450 [verbose] > │ let v3 : Async<int64> = null |> unbox<Async<int64>> │
00:06:40 #31451 [verbose] > │ v3 │
00:06:40 #31452 [verbose] > │ #endif │
00:06:40 #31453 [verbose] > │ #if FABLE_COMPILER_RUST && CONTRACT │
00:06:40 #31454 [verbose] > │ let v4 : Async<int64> = null |> unbox<Async<int64>> │
00:06:40 #31455 [verbose] > │ v4 │
00:06:40 #31456 [verbose] > │ #endif │
00:06:40 #31457 [verbose] > │ #if !FABLE_COMPILER && !FABLE_COMPILER_RUST && │
00:06:40 #31458 [verbose] > │ !FABLE_COMPILER_TYPESCRIPT && !WASM && !CONTRACT │
00:06:40 #31459 [verbose] > │ let v5 : int64 = 0L │
00:06:40 #31460 [verbose] > │ let v6 : Async<int64> = method2(v0, v5) │
00:06:40 #31461 [verbose] > │ v6 │
00:06:40 #31462 [verbose] > │ #endif │
00:06:40 #31463 [verbose] > │ #if FABLE_COMPILER_TYPESCRIPT │
00:06:40 #31464 [verbose] > │ let v7 : Async<int64> = null |> unbox<Async<int64>> │
00:06:40 #31465 [verbose] > │ v7 │
00:06:40 #31466 [verbose] > │ #endif │
00:06:40 #31467 [verbose] > │ #if FABLE_COMPILER_PYTHON || FABLE_COMPILER_PHP || FABLE_COMPILER_DART │
00:06:40 #31468 [verbose] > │ let v8 : Async<int64> = Unchecked.defaultof<Async<int64>> │
00:06:40 #31469 [verbose] > │ v8 │
00:06:40 #31470 [verbose] > │ #endif │
00:06:40 #31471 [verbose] > │ |> fun x -> _v1 <- Some x │
00:06:40 #31472 [verbose] > │ let v9 : Async<int64> = _v1.Value │
00:06:40 #31473 [verbose] > │ let v10 : Async<unit> option = None │
00:06:40 #31474 [verbose] > │ let mutable _v10 = v10 │
00:06:40 #31475 [verbose] > │ #if FABLE_COMPILER_RUST && !WASM && !CONTRACT │
00:06:40 #31476 [verbose] > │ let v11 : Async<unit> = null |> unbox<Async<unit>> │
00:06:40 #31477 [verbose] > │ v11 │
00:06:40 #31478 [verbose] > │ #endif │
00:06:40 #31479 [verbose] > │ #if FABLE_COMPILER_RUST && WASM │
00:06:40 #31480 [verbose] > │ let v12 : Async<unit> = null |> unbox<Async<unit>> │
00:06:40 #31481 [verbose] > │ v12 │
00:06:40 #31482 [verbose] > │ #endif │
00:06:40 #31483 [verbose] > │ #if FABLE_COMPILER_RUST && CONTRACT │
00:06:40 #31484 [verbose] > │ let v13 : Async<unit> = null |> unbox<Async<unit>> │
00:06:40 #31485 [verbose] > │ v13 │
00:06:40 #31486 [verbose] > │ #endif │
00:06:40 #31487 [verbose] > │ #if !FABLE_COMPILER && !FABLE_COMPILER_RUST && │
00:06:40 #31488 [verbose] > │ !FABLE_COMPILER_TYPESCRIPT && !WASM && !CONTRACT │
00:06:40 #31489 [verbose] > │ let v14 : (Async<int64> -> Async<unit>) = Async.Ignore │
00:06:40 #31490 [verbose] > │ let v15 : Async<unit> = v14 v9 │
00:06:40 #31491 [verbose] > │ v15 │
00:06:40 #31492 [verbose] > │ #endif │
00:06:40 #31493 [verbose] > │ #if FABLE_COMPILER_TYPESCRIPT │
00:06:40 #31494 [verbose] > │ let v16 : Async<unit> = null |> unbox<Async<unit>> │
00:06:40 #31495 [verbose] > │ v16 │
00:06:40 #31496 [verbose] > │ #endif │
00:06:40 #31497 [verbose] > │ #if FABLE_COMPILER_PYTHON || FABLE_COMPILER_PHP || FABLE_COMPILER_DART │
00:06:40 #31498 [verbose] > │ let v17 : Async<unit> = Unchecked.defaultof<Async<unit>> │
00:06:40 #31499 [verbose] > │ v17 │
00:06:40 #31500 [verbose] > │ #endif │
00:06:40 #31501 [verbose] > │ |> fun x -> _v10 <- Some x │
00:06:40 #31502 [verbose] > │ let v18 : Async<unit> = _v10.Value │
00:06:40 #31503 [verbose] > │ let v19 : unit option = None │
00:06:40 #31504 [verbose] > │ let mutable _v19 = v19 │
00:06:40 #31505 [verbose] > │ #if FABLE_COMPILER_RUST && !WASM && !CONTRACT │
00:06:40 #31506 [verbose] > │ null |> unbox<unit> │
00:06:40 #31507 [verbose] > │ () │
00:06:40 #31508 [verbose] > │ #endif │
00:06:40 #31509 [verbose] > │ #if FABLE_COMPILER_RUST && WASM │
00:06:40 #31510 [verbose] > │ null |> unbox<unit> │
00:06:40 #31511 [verbose] > │ () │
00:06:40 #31512 [verbose] > │ #endif │
00:06:40 #31513 [verbose] > │ #if FABLE_COMPILER_RUST && CONTRACT │
00:06:40 #31514 [verbose] > │ null |> unbox<unit> │
00:06:40 #31515 [verbose] > │ () │
00:06:40 #31516 [verbose] > │ #endif │
00:06:40 #31517 [verbose] > │ #if !FABLE_COMPILER && !FABLE_COMPILER_RUST && │
00:06:40 #31518 [verbose] > │ !FABLE_COMPILER_TYPESCRIPT && !WASM && !CONTRACT │
00:06:40 #31519 [verbose] > │ let v20 : (Async<unit> -> unit) = Async.RunSynchronously │
00:06:40 #31520 [verbose] > │ v20 v18 │
00:06:40 #31521 [verbose] > │ () │
00:06:40 #31522 [verbose] > │ #endif │
00:06:40 #31523 [verbose] > │ #if FABLE_COMPILER_TYPESCRIPT │
00:06:40 #31524 [verbose] > │ null |> unbox<unit> │
00:06:40 #31525 [verbose] > │ () │
00:06:40 #31526 [verbose] > │ #endif │
00:06:40 #31527 [verbose] > │ #if FABLE_COMPILER_PYTHON || FABLE_COMPILER_PHP || FABLE_COMPILER_DART │
00:06:40 #31528 [verbose] > │ Unchecked.defaultof<unit> │
00:06:40 #31529 [verbose] > │ () │
00:06:40 #31530 [verbose] > │ #endif │
00:06:40 #31531 [verbose] > │ |> fun x -> _v19 <- Some x │
00:06:40 #31532 [verbose] > │ _v19.Value │
00:06:40 #31533 [verbose] > │ () │
00:06:40 #31534 [verbose] > │ and method4 () : string = │
00:06:40 #31535 [verbose] > │ let v0 : string = "test.txt" │
00:06:40 #31536 [verbose] > │ v0 │
00:06:40 #31537 [verbose] > │ and closure6 () () : string = │
00:06:40 #31538 [verbose] > │ let v0 : string = "1" │
00:06:40 #31539 [verbose] > │ v0 │
00:06:40 #31540 [verbose] > │ and method6 (v0 : int64 option) : int64 option = │
00:06:40 #31541 [verbose] > │ v0 │
00:06:40 #31542 [verbose] > │ and method7 (v0 : int64 option) : int64 option = │
00:06:40 #31543 [verbose] > │ v0 │
00:06:40 #31544 [verbose] > │ and closure7 () () : struct (Mut0 * Mut1 * Mut1 * Mut2 * int64 option) = │
00:06:40 #31545 [verbose] > │ let v0 : Mut1 = {l0 = true} : Mut1 │
00:06:40 #31546 [verbose] > │ let v1 : Mut0 = {l0 = 0L} : Mut0 │
00:06:40 #31547 [verbose] > │ let v2 : US0 = US0_0 │
00:06:40 #31548 [verbose] > │ let v3 : Mut2 = {l0 = v2} : Mut2 │
00:06:40 #31549 [verbose] > │ let v4 : Mut1 = {l0 = false} : Mut1 │
00:06:40 #31550 [verbose] > │ let v5 : int64 option option = None │
00:06:40 #31551 [verbose] > │ let mutable _v5 = v5 │
00:06:40 #31552 [verbose] > │ #if INTERACTIVE || !FABLE_COMPILER │
00:06:40 #31553 [verbose] > │ let v6 : string option = None │
00:06:40 #31554 [verbose] > │ let mutable _v6 = v6 │
00:06:40 #31555 [verbose] > │ #if FABLE_COMPILER_RUST && !WASM && !CONTRACT │
00:06:40 #31556 [verbose] > │ let v7 : string = null |> unbox<string> │
00:06:40 #31557 [verbose] > │ v7 │
00:06:40 #31558 [verbose] > │ #endif │
00:06:40 #31559 [verbose] > │ #if FABLE_COMPILER_RUST && WASM │
00:06:40 #31560 [verbose] > │ let v8 : string = null |> unbox<string> │
00:06:40 #31561 [verbose] > │ v8 │
00:06:40 #31562 [verbose] > │ #endif │
00:06:40 #31563 [verbose] > │ #if FABLE_COMPILER_RUST && CONTRACT │
00:06:40 #31564 [verbose] > │ let v9 : string = null |> unbox<string> │
00:06:40 #31565 [verbose] > │ v9 │
00:06:40 #31566 [verbose] > │ #endif │
00:06:40 #31567 [verbose] > │ #if !FABLE_COMPILER && !FABLE_COMPILER_RUST && │
00:06:40 #31568 [verbose] > │ !FABLE_COMPILER_TYPESCRIPT && !WASM && !CONTRACT │
00:06:40 #31569 [verbose] > │ let v10 : string = │
00:06:40 #31570 [verbose] > │ System.Reflection.Assembly.GetEntryAssembly().GetName().Name │
00:06:40 #31571 [verbose] > │ v10 │
00:06:40 #31572 [verbose] > │ #endif │
00:06:40 #31573 [verbose] > │ #if FABLE_COMPILER_TYPESCRIPT │
00:06:40 #31574 [verbose] > │ let v11 : string = null |> unbox<string> │
00:06:40 #31575 [verbose] > │ v11 │
00:06:40 #31576 [verbose] > │ #endif │
00:06:40 #31577 [verbose] > │ #if FABLE_COMPILER_PYTHON || FABLE_COMPILER_PHP || FABLE_COMPILER_DART │
00:06:40 #31578 [verbose] > │ let v12 : string = Unchecked.defaultof<string> │
00:06:40 #31579 [verbose] > │ v12 │
00:06:40 #31580 [verbose] > │ #endif │
00:06:40 #31581 [verbose] > │ |> fun x -> _v6 <- Some x │
00:06:40 #31582 [verbose] > │ let v13 : string = _v6.Value │
00:06:40 #31583 [verbose] > │ let v15 : bool = v13 = "Microsoft.DotNet.Interactive.App" │
00:06:40 #31584 [verbose] > │ let v16 : bool = v15 <> true │
00:06:40 #31585 [verbose] > │ let v22 : US1 = │
00:06:40 #31586 [verbose] > │ if v16 then │
00:06:40 #31587 [verbose] > │ let v17 : System.DateTime = System.DateTime.Now │
00:06:40 #31588 [verbose] > │ let v18 : (System.DateTime -> int64) = _.Ticks │
00:06:40 #31589 [verbose] > │ let v19 : int64 = v18 v17 │
00:06:40 #31590 [verbose] > │ US1_0(v19) │
00:06:40 #31591 [verbose] > │ else │
00:06:40 #31592 [verbose] > │ US1_1 │
00:06:40 #31593 [verbose] > │ let v27 : int64 option = │
00:06:40 #31594 [verbose] > │ match v22 with │
00:06:40 #31595 [verbose] > │ | US1_1 -> (* None *) │
00:06:40 #31596 [verbose] > │ let v25 : int64 option = None │
00:06:40 #31597 [verbose] > │ v25 │
00:06:40 #31598 [verbose] > │ | US1_0(v23) -> (* Some *) │
00:06:40 #31599 [verbose] > │ let v24 : int64 option = Some v23 │
00:06:40 #31600 [verbose] > │ v24 │
00:06:40 #31601 [verbose] > │ let v28 : int64 option = method6(v27) │
00:06:40 #31602 [verbose] > │ v28 │
00:06:40 #31603 [verbose] > │ #else │
00:06:40 #31604 [verbose] > │ let v29 : int64 option = None │
00:06:40 #31605 [verbose] > │ let v30 : int64 option = method7(v29) │
00:06:40 #31606 [verbose] > │ v30 │
00:06:40 #31607 [verbose] > │ #endif │
00:06:40 #31608 [verbose] > │ |> fun x -> _v5 <- Some x │
00:06:40 #31609 [verbose] > │ let v31 : int64 option = _v5.Value │
00:06:40 #31610 [verbose] > │ struct (v1, v4, v0, v3, v31) │
00:06:40 #31611 [verbose] > │ and closure9 () (v0 : int64) : US2 = │
00:06:40 #31612 [verbose] > │ US2_0(v0) │
00:06:40 #31613 [verbose] > │ and method8 () : (int64 -> US2) = │
00:06:40 #31614 [verbose] > │ closure9() │
00:06:40 #31615 [verbose] > │ and method9 () : string = │
00:06:40 #31616 [verbose] > │ let v0 : string = "" │
00:06:40 #31617 [verbose] > │ v0 │
00:06:40 #31618 [verbose] > │ and closure8 (v0 : US0, v1 : (unit -> string), v2 : (unit -> string)) () : │
00:06:40 #31619 [verbose] > │ string = │
00:06:40 #31620 [verbose] > │ let v3 : (unit -> struct (Mut0 * Mut1 * Mut1 * Mut2 * int64 option)) = │
00:06:40 #31621 [verbose] > │ closure7() │
00:06:40 #31622 [verbose] > │ if State.trace_state = None then State.trace_state <- v3 () |> Some │
00:06:40 #31623 [verbose] > │ let struct (v4 : Mut0, v5 : Mut1, v6 : Mut1, v7 : Mut2, v8 : int64 │
00:06:40 #31624 [verbose] > │ option) = State.trace_state.Value │
00:06:40 #31625 [verbose] > │ let v9 : string option = None │
00:06:40 #31626 [verbose] > │ let mutable _v9 = v9 │
00:06:40 #31627 [verbose] > │ #if FABLE_COMPILER_RUST && !WASM && !CONTRACT │
00:06:40 #31628 [verbose] > │ let v10 : (int64 -> US2) = method8() │
00:06:40 #31629 [verbose] > │ let v11 : US2 = US2_1 │
00:06:40 #31630 [verbose] > │ let v12 : US2 = v8 |> Option.map v10 |> Option.defaultValue v11 │
00:06:40 #31631 [verbose] > │ let v30 : System.DateTime = │
00:06:40 #31632 [verbose] > │ match v12 with │
00:06:40 #31633 [verbose] > │ | US2_1 -> (* None *) │
00:06:40 #31634 [verbose] > │ let v28 : System.DateTime = System.DateTime.Now │
00:06:40 #31635 [verbose] > │ v28 │
00:06:40 #31636 [verbose] > │ | US2_0(v13) -> (* Some *) │
00:06:40 #31637 [verbose] > │ let v14 : System.DateTime = System.DateTime.Now │
00:06:40 #31638 [verbose] > │ let v15 : (System.DateTime -> int64) = _.Ticks │
00:06:40 #31639 [verbose] > │ let v16 : int64 = v15 v14 │
00:06:40 #31640 [verbose] > │ let v17 : int64 = v16 - v13 │
00:06:40 #31641 [verbose] > │ let v18 : System.TimeSpan = System.TimeSpan v17 │
00:06:40 #31642 [verbose] > │ let v19 : (System.TimeSpan -> int32) = _.Hours │
00:06:40 #31643 [verbose] > │ let v20 : int32 = v19 v18 │
00:06:40 #31644 [verbose] > │ let v21 : (System.TimeSpan -> int32) = _.Minutes │
00:06:40 #31645 [verbose] > │ let v22 : int32 = v21 v18 │
00:06:40 #31646 [verbose] > │ let v23 : (System.TimeSpan -> int32) = _.Seconds │
00:06:40 #31647 [verbose] > │ let v24 : int32 = v23 v18 │
00:06:40 #31648 [verbose] > │ let v25 : (System.TimeSpan -> int32) = _.Milliseconds │
00:06:40 #31649 [verbose] > │ let v26 : int32 = v25 v18 │
00:06:40 #31650 [verbose] > │ let v27 : System.DateTime = System.DateTime (1, 1, 1, v20, v22, │
00:06:40 #31651 [verbose] > │ v24, v26) │
00:06:40 #31652 [verbose] > │ v27 │
00:06:40 #31653 [verbose] > │ let v31 : string = "hh:mm:ss" │
00:06:40 #31654 [verbose] > │ let v32 : string = v30.ToString v31 │
00:06:40 #31655 [verbose] > │ v32 │
00:06:40 #31656 [verbose] > │ #endif │
00:06:40 #31657 [verbose] > │ #if FABLE_COMPILER_RUST && WASM │
00:06:40 #31658 [verbose] > │ let v33 : string = method9() │
00:06:40 #31659 [verbose] > │ v33 │
00:06:40 #31660 [verbose] > │ #endif │
00:06:40 #31661 [verbose] > │ #if FABLE_COMPILER_RUST && CONTRACT │
00:06:40 #31662 [verbose] > │ let v34 : string = method9() │
00:06:40 #31663 [verbose] > │ v34 │
00:06:40 #31664 [verbose] > │ #endif │
00:06:40 #31665 [verbose] > │ #if !FABLE_COMPILER && !FABLE_COMPILER_RUST && │
00:06:40 #31666 [verbose] > │ !FABLE_COMPILER_TYPESCRIPT && !WASM && !CONTRACT │
00:06:40 #31667 [verbose] > │ let v35 : (int64 -> US2) = method8() │
00:06:40 #31668 [verbose] > │ let v36 : US2 = US2_1 │
00:06:40 #31669 [verbose] > │ let v37 : US2 = v8 |> Option.map v35 |> Option.defaultValue v36 │
00:06:40 #31670 [verbose] > │ let v55 : System.DateTime = │
00:06:40 #31671 [verbose] > │ match v37 with │
00:06:40 #31672 [verbose] > │ | US2_1 -> (* None *) │
00:06:40 #31673 [verbose] > │ let v53 : System.DateTime = System.DateTime.Now │
00:06:41 #31674 [verbose] > │ v53 │
00:06:41 #31675 [verbose] > │ | US2_0(v38) -> (* Some *) │
00:06:41 #31676 [verbose] > │ let v39 : System.DateTime = System.DateTime.Now │
00:06:41 #31677 [verbose] > │ let v40 : (System.DateTime -> int64) = _.Ticks │
00:06:41 #31678 [verbose] > │ let v41 : int64 = v40 v39 │
00:06:41 #31679 [verbose] > │ let v42 : int64 = v41 - v38 │
00:06:41 #31680 [verbose] > │ let v43 : System.TimeSpan = System.TimeSpan v42 │
00:06:41 #31681 [verbose] > │ let v44 : (System.TimeSpan -> int32) = _.Hours │
00:06:41 #31682 [verbose] > │ let v45 : int32 = v44 v43 │
00:06:41 #31683 [verbose] > │ let v46 : (System.TimeSpan -> int32) = _.Minutes │
00:06:41 #31684 [verbose] > │ let v47 : int32 = v46 v43 │
00:06:41 #31685 [verbose] > │ let v48 : (System.TimeSpan -> int32) = _.Seconds │
00:06:41 #31686 [verbose] > │ let v49 : int32 = v48 v43 │
00:06:41 #31687 [verbose] > │ let v50 : (System.TimeSpan -> int32) = _.Milliseconds │
00:06:41 #31688 [verbose] > │ let v51 : int32 = v50 v43 │
00:06:41 #31689 [verbose] > │ let v52 : System.DateTime = System.DateTime (1, 1, 1, v45, v47, │
00:06:41 #31690 [verbose] > │ v49, v51) │
00:06:41 #31691 [verbose] > │ v52 │
00:06:41 #31692 [verbose] > │ let v56 : string = "HH:mm:ss" │
00:06:41 #31693 [verbose] > │ let v57 : string = v55.ToString v56 │
00:06:41 #31694 [verbose] > │ v57 │
00:06:41 #31695 [verbose] > │ #endif │
00:06:41 #31696 [verbose] > │ #if FABLE_COMPILER_TYPESCRIPT │
00:06:41 #31697 [verbose] > │ let v58 : string = method9() │
00:06:41 #31698 [verbose] > │ v58 │
00:06:41 #31699 [verbose] > │ #endif │
00:06:41 #31700 [verbose] > │ #if FABLE_COMPILER_PYTHON || FABLE_COMPILER_PHP || FABLE_COMPILER_DART │
00:06:41 #31701 [verbose] > │ let v59 : string = Unchecked.defaultof<string> │
00:06:41 #31702 [verbose] > │ v59 │
00:06:41 #31703 [verbose] > │ #endif │
00:06:41 #31704 [verbose] > │ |> fun x -> _v9 <- Some x │
00:06:41 #31705 [verbose] > │ let v60 : string = _v9.Value │
00:06:41 #31706 [verbose] > │ let v61 : int64 = v4.l0 │
00:06:41 #31707 [verbose] > │ let v71 : string = │
00:06:41 #31708 [verbose] > │ match v0 with │
00:06:41 #31709 [verbose] > │ | US0_4 -> (* Critical *) │
00:06:41 #31710 [verbose] > │ let v66 : string = "Critical" │
00:06:41 #31711 [verbose] > │ v66 │
00:06:41 #31712 [verbose] > │ | US0_1 -> (* Debug *) │
00:06:41 #31713 [verbose] > │ let v63 : string = "Debug" │
00:06:41 #31714 [verbose] > │ v63 │
00:06:41 #31715 [verbose] > │ | US0_2 -> (* Info *) │
00:06:41 #31716 [verbose] > │ let v64 : string = "Info" │
00:06:41 #31717 [verbose] > │ v64 │
00:06:41 #31718 [verbose] > │ | US0_0 -> (* Verbose *) │
00:06:41 #31719 [verbose] > │ let v62 : string = "Verbose" │
00:06:41 #31720 [verbose] > │ v62 │
00:06:41 #31721 [verbose] > │ | US0_3 -> (* Warning *) │
00:06:41 #31722 [verbose] > │ let v65 : string = "Warning" │
00:06:41 #31723 [verbose] > │ v65 │
00:06:41 #31724 [verbose] > │ let v72 : string = v71.ToLower () │
00:06:41 #31725 [verbose] > │ let v73 : string = $"{v60} #{v61} [{v72}] %s{v1 ()} / %s{v2 ()}" │
00:06:41 #31726 [verbose] > │ let v74 : (char []) = [||] │
00:06:41 #31727 [verbose] > │ let v75 : string = v73.TrimStart v74 │
00:06:41 #31728 [verbose] > │ let v76 : (char []) = [|' '; '/'|] │
00:06:41 #31729 [verbose] > │ let v77 : string = v75.TrimEnd v76 │
00:06:41 #31730 [verbose] > │ v77 │
00:06:41 #31731 [verbose] > │ and method5 (v0 : US0, v1 : (unit -> string), v2 : (unit -> string)) : unit │
00:06:41 #31732 [verbose] > │ = │
00:06:41 #31733 [verbose] > │ let v3 : (unit -> struct (Mut0 * Mut1 * Mut1 * Mut2 * int64 option)) = │
00:06:41 #31734 [verbose] > │ closure7() │
00:06:41 #31735 [verbose] > │ if State.trace_state = None then State.trace_state <- v3 () |> Some │
00:06:41 #31736 [verbose] > │ let struct (v4 : Mut0, v5 : Mut1, v6 : Mut1, v7 : Mut2, v8 : int64 │
00:06:41 #31737 [verbose] > │ option) = State.trace_state.Value │
00:06:41 #31738 [verbose] > │ if State.trace_state = None then State.trace_state <- v3 () |> Some │
00:06:41 #31739 [verbose] > │ let struct (v9 : Mut0, v10 : Mut1, v11 : Mut1, v12 : Mut2, v13 : int64 │
00:06:41 #31740 [verbose] > │ option) = State.trace_state.Value │
00:06:41 #31741 [verbose] > │ let v14 : US0 = v12.l0 │
00:06:41 #31742 [verbose] > │ let v15 : bool = v11.l0 │
00:06:41 #31743 [verbose] > │ let v17 : bool = │
00:06:41 #31744 [verbose] > │ if v15 then │
00:06:41 #31745 [verbose] > │ let v16 : bool = v0 >= v14 │
00:06:41 #31746 [verbose] > │ v16 │
00:06:41 #31747 [verbose] > │ else │
00:06:41 #31748 [verbose] > │ false │
00:06:41 #31749 [verbose] > │ if v17 then │
00:06:41 #31750 [verbose] > │ let v18 : int64 = v4.l0 │
00:06:41 #31751 [verbose] > │ let v19 : int64 = v18 + 1L │
00:06:41 #31752 [verbose] > │ v4.l0 <- v19 │
00:06:41 #31753 [verbose] > │ let v20 : (unit -> string) = closure8(v0, v1, v2) │
00:06:41 #31754 [verbose] > │ let v21 : string = $"%s{v20 ()}" │
00:06:41 #31755 [verbose] > │ let v22 : unit option = None │
00:06:41 #31756 [verbose] > │ let mutable _v22 = v22 │
00:06:41 #31757 [verbose] > │ #if FABLE_COMPILER_RUST && !WASM && !CONTRACT │
00:06:41 #31758 [verbose] > │ let v23 : string = @"println!(""{}"", $0)" │
00:06:41 #31759 [verbose] > │ Fable.Core.RustInterop.emitRustExpr v21 v23 │
00:06:41 #31760 [verbose] > │ () │
00:06:41 #31761 [verbose] > │ #endif │
00:06:41 #31762 [verbose] > │ #if FABLE_COMPILER_RUST && WASM │
00:06:41 #31763 [verbose] > │ let v24 : string = @"println!(""{}"", $0)" │
00:06:41 #31764 [verbose] > │ Fable.Core.RustInterop.emitRustExpr v21 v24 │
00:06:41 #31765 [verbose] > │ () │
00:06:41 #31766 [verbose] > │ #endif │
00:06:41 #31767 [verbose] > │ #if FABLE_COMPILER_RUST && CONTRACT │
00:06:41 #31768 [verbose] > │ let v25 : string = @"println!(""{}"", $0)" │
00:06:41 #31769 [verbose] > │ Fable.Core.RustInterop.emitRustExpr v21 v25 │
00:06:41 #31770 [verbose] > │ () │
00:06:41 #31771 [verbose] > │ #endif │
00:06:41 #31772 [verbose] > │ #if !FABLE_COMPILER && !FABLE_COMPILER_RUST && │
00:06:41 #31773 [verbose] > │ !FABLE_COMPILER_TYPESCRIPT && !WASM && !CONTRACT │
00:06:41 #31774 [verbose] > │ System.Console.WriteLine v21 │
00:06:41 #31775 [verbose] > │ () │
00:06:41 #31776 [verbose] > │ #endif │
00:06:41 #31777 [verbose] > │ #if FABLE_COMPILER_TYPESCRIPT │
00:06:41 #31778 [verbose] > │ System.Console.WriteLine v21 │
00:06:41 #31779 [verbose] > │ () │
00:06:41 #31780 [verbose] > │ #endif │
00:06:41 #31781 [verbose] > │ #if FABLE_COMPILER_PYTHON || FABLE_COMPILER_PHP || │
00:06:41 #31782 [verbose] > │ FABLE_COMPILER_DART │
00:06:41 #31783 [verbose] > │ Unchecked.defaultof<unit> │
00:06:41 #31784 [verbose] > │ () │
00:06:41 #31785 [verbose] > │ #endif │
00:06:41 #31786 [verbose] > │ |> fun x -> _v22 <- Some x │
00:06:41 #31787 [verbose] > │ _v22.Value │
00:06:41 #31788 [verbose] > │ () │
00:06:41 #31789 [verbose] > │ and closure10 () () : string = │
00:06:41 #31790 [verbose] > │ let v0 : string = "2" │
00:06:41 #31791 [verbose] > │ v0 │
00:06:41 #31792 [verbose] > │ and closure11 () () : string = │
00:06:41 #31793 [verbose] > │ let v0 : string = "_1" │
00:06:41 #31794 [verbose] > │ v0 │
00:06:41 #31795 [verbose] > │ and closure12 () () : string = │
00:06:41 #31796 [verbose] > │ let v0 : string = "_2" │
00:06:41 #31797 [verbose] > │ v0 │
00:06:41 #31798 [verbose] > │ and closure13 () () : string = │
00:06:41 #31799 [verbose] > │ let v0 : string = "_3" │
00:06:41 #31800 [verbose] > │ v0 │
00:06:41 #31801 [verbose] > │ and closure14 () () : string = │
00:06:41 #31802 [verbose] > │ let v0 : string = "_4" │
00:06:41 #31803 [verbose] > │ v0 │
00:06:41 #31804 [verbose] > │ and closure15 () () : string = │
00:06:41 #31805 [verbose] > │ let v0 : string = "_5" │
00:06:41 #31806 [verbose] > │ v0 │
00:06:41 #31807 [verbose] > │ and closure16 () () : string = │
00:06:41 #31808 [verbose] > │ let v0 : string = "_6" │
00:06:41 #31809 [verbose] > │ v0 │
00:06:41 #31810 [verbose] > │ and closure17 () () : string = │
00:06:41 #31811 [verbose] > │ let v0 : string = "3" │
00:06:41 #31812 [verbose] > │ v0 │
00:06:41 #31813 [verbose] > │ and closure18 () () : string = │
00:06:41 #31814 [verbose] > │ let v0 : string = "4" │
00:06:41 #31815 [verbose] > │ v0 │
00:06:41 #31816 [verbose] > │ and method11 (v0 : string, v1 : int64, v2 : string) : string = │
00:06:41 #31817 [verbose] > │ let v3 : (string -> string) = closure5() │
00:06:41 #31818 [verbose] > │ let v4 : (unit -> string) = closure2() │
00:06:41 #31819 [verbose] > │ let v5 : string = $"path: {v0 |> v3} / retry: {v1} / ex: {v2} / {v4 ()}" │
00:06:41 #31820 [verbose] > │ v5 │
00:06:41 #31821 [verbose] > │ and closure19 (v0 : string, v1 : int64, v2 : string) () : string = │
00:06:41 #31822 [verbose] > │ method11(v0, v1, v2) │
00:06:41 #31823 [verbose] > │ and method10 (v0 : string, v1 : int64) : Async<int64> = │
00:06:41 #31824 [verbose] > │ let v2 : Async<int64> option = None │
00:06:41 #31825 [verbose] > │ let mutable _v2 = v2 │
00:06:41 #31826 [verbose] > │ #if FABLE_COMPILER_RUST && !WASM && !CONTRACT │
00:06:41 #31827 [verbose] > │ let v3 : Async<int64> = null |> unbox<Async<int64>> │
00:06:41 #31828 [verbose] > │ v3 │
00:06:41 #31829 [verbose] > │ #endif │
00:06:41 #31830 [verbose] > │ #if FABLE_COMPILER_RUST && WASM │
00:06:41 #31831 [verbose] > │ let v4 : Async<int64> = null |> unbox<Async<int64>> │
00:06:41 #31832 [verbose] > │ v4 │
00:06:41 #31833 [verbose] > │ #endif │
00:06:41 #31834 [verbose] > │ #if FABLE_COMPILER_RUST && CONTRACT │
00:06:41 #31835 [verbose] > │ let v5 : Async<int64> = null |> unbox<Async<int64>> │
00:06:41 #31836 [verbose] > │ v5 │
00:06:41 #31837 [verbose] > │ #endif │
00:06:41 #31838 [verbose] > │ #if !FABLE_COMPILER && !FABLE_COMPILER_RUST && │
00:06:41 #31839 [verbose] > │ !FABLE_COMPILER_TYPESCRIPT && !WASM && !CONTRACT │
00:06:41 #31840 [verbose] > │ let v6 : Async<int64> option = None │
00:06:41 #31841 [verbose] > │ let mutable _v6 = v6 │
00:06:41 #31842 [verbose] > │ async { │
00:06:41 #31843 [verbose] > │ try │
00:06:41 #31844 [verbose] > │ let v7 : System.IO.FileStream option = None │
00:06:41 #31845 [verbose] > │ let mutable _v7 = v7 │
00:06:41 #31846 [verbose] > │ #if FABLE_COMPILER_RUST && !WASM && !CONTRACT │
00:06:41 #31847 [verbose] > │ let v8 : System.IO.FileStream = null |> unbox<System.IO.FileStream> │
00:06:41 #31848 [verbose] > │ v8 │
00:06:41 #31849 [verbose] > │ #endif │
00:06:41 #31850 [verbose] > │ #if FABLE_COMPILER_RUST && WASM │
00:06:41 #31851 [verbose] > │ let v9 : System.IO.FileStream = null |> unbox<System.IO.FileStream> │
00:06:41 #31852 [verbose] > │ v9 │
00:06:41 #31853 [verbose] > │ #endif │
00:06:41 #31854 [verbose] > │ #if FABLE_COMPILER_RUST && CONTRACT │
00:06:41 #31855 [verbose] > │ let v10 : System.IO.FileStream = null |> unbox<System.IO.FileStream> │
00:06:41 #31856 [verbose] > │ v10 │
00:06:41 #31857 [verbose] > │ #endif │
00:06:41 #31858 [verbose] > │ #if !FABLE_COMPILER && !FABLE_COMPILER_RUST && │
00:06:41 #31859 [verbose] > │ !FABLE_COMPILER_TYPESCRIPT && !WASM && !CONTRACT │
00:06:41 #31860 [verbose] > │ let v11 : System.IO.FileMode = System.IO.FileMode.Open │
00:06:41 #31861 [verbose] > │ let v12 : System.IO.FileAccess = System.IO.FileAccess.ReadWrite │
00:06:41 #31862 [verbose] > │ let v13 : System.IO.FileShare = System.IO.FileShare.Read │
00:06:41 #31863 [verbose] > │ let v14 : System.IO.FileStream = new System.IO.FileStream (v0, v11, v12, │
00:06:41 #31864 [verbose] > │ v13) │
00:06:41 #31865 [verbose] > │ v14 │
00:06:41 #31866 [verbose] > │ #endif │
00:06:41 #31867 [verbose] > │ #if FABLE_COMPILER_TYPESCRIPT │
00:06:41 #31868 [verbose] > │ let v15 : System.IO.FileStream = null |> unbox<System.IO.FileStream> │
00:06:41 #31869 [verbose] > │ v15 │
00:06:41 #31870 [verbose] > │ #endif │
00:06:41 #31871 [verbose] > │ #if FABLE_COMPILER_PYTHON || FABLE_COMPILER_PHP || FABLE_COMPILER_DART │
00:06:41 #31872 [verbose] > │ let v16 : System.IO.FileStream = │
00:06:41 #31873 [verbose] > │ Unchecked.defaultof<System.IO.FileStream> │
00:06:41 #31874 [verbose] > │ v16 │
00:06:41 #31875 [verbose] > │ #endif │
00:06:41 #31876 [verbose] > │ |> fun x -> _v7 <- Some x │
00:06:41 #31877 [verbose] > │ let v17 : System.IO.FileStream = _v7.Value │
00:06:41 #31878 [verbose] > │ use v17 = v17 │
00:06:41 #31879 [verbose] > │ let v18 : System.IO.FileStream = v17 │
00:06:41 #31880 [verbose] > │ return v1 │
00:06:41 #31881 [verbose] > │ with ex -> │
00:06:41 #31882 [verbose] > │ let v19 : exn = ex │
00:06:41 #31883 [verbose] > │ let v20 : bool = v1 > 0L │
00:06:41 #31884 [verbose] > │ let v23 : bool = │
00:06:41 #31885 [verbose] > │ if v20 then │
00:06:41 #31886 [verbose] > │ let v21 : int64 = v1 % 100L │
00:06:41 #31887 [verbose] > │ let v22 : bool = v21 = 0L │
00:06:41 #31888 [verbose] > │ v22 │
00:06:41 #31889 [verbose] > │ else │
00:06:41 #31890 [verbose] > │ false │
00:06:41 #31891 [verbose] > │ if v23 then │
00:06:41 #31892 [verbose] > │ let v24 : string option = None │
00:06:41 #31893 [verbose] > │ let mutable _v24 = v24 │
00:06:41 #31894 [verbose] > │ #if FABLE_COMPILER_RUST && !WASM && !CONTRACT │
00:06:41 #31895 [verbose] > │ let v25 : string = $"%A{v19}" │
00:06:41 #31896 [verbose] > │ v25 │
00:06:41 #31897 [verbose] > │ #endif │
00:06:41 #31898 [verbose] > │ #if FABLE_COMPILER_RUST && WASM │
00:06:41 #31899 [verbose] > │ let v26 : string = $"%A{v19}" │
00:06:41 #31900 [verbose] > │ v26 │
00:06:41 #31901 [verbose] > │ #endif │
00:06:41 #31902 [verbose] > │ #if FABLE_COMPILER_RUST && CONTRACT │
00:06:41 #31903 [verbose] > │ let v27 : string = $"%A{v19}" │
00:06:41 #31904 [verbose] > │ v27 │
00:06:41 #31905 [verbose] > │ #endif │
00:06:41 #31906 [verbose] > │ #if !FABLE_COMPILER && !FABLE_COMPILER_RUST && │
00:06:41 #31907 [verbose] > │ !FABLE_COMPILER_TYPESCRIPT && !WASM && !CONTRACT │
00:06:41 #31908 [verbose] > │ let v28 : string = $"{v19.GetType ()}: {v19.Message}" │
00:06:41 #31909 [verbose] > │ v28 │
00:06:41 #31910 [verbose] > │ #endif │
00:06:41 #31911 [verbose] > │ #if FABLE_COMPILER_TYPESCRIPT │
00:06:41 #31912 [verbose] > │ let v29 : string = $"%A{v19}" │
00:06:41 #31913 [verbose] > │ v29 │
00:06:41 #31914 [verbose] > │ #endif │
00:06:41 #31915 [verbose] > │ #if FABLE_COMPILER_PYTHON || FABLE_COMPILER_PHP || │
00:06:41 #31916 [verbose] > │ FABLE_COMPILER_DART │
00:06:41 #31917 [verbose] > │ let v30 : string = Unchecked.defaultof<string> │
00:06:41 #31918 [verbose] > │ v30 │
00:06:41 #31919 [verbose] > │ #endif │
00:06:41 #31920 [verbose] > │ |> fun x -> _v24 <- Some x │
00:06:41 #31921 [verbose] > │ let v31 : string = _v24.Value │
00:06:41 #31922 [verbose] > │ let v32 : (unit -> string) = closure19(v0, v1, v31) │
00:06:41 #31923 [verbose] > │ let v33 : string = $"wait_for_file_access / {v32 ()}" │
00:06:41 #31924 [verbose] > │ System.Console.WriteLine v33 │
00:06:41 #31925 [verbose] > │ () │
00:06:41 #31926 [verbose] > │ let v34 : Async<unit> option = None │
00:06:41 #31927 [verbose] > │ let mutable _v34 = v34 │
00:06:41 #31928 [verbose] > │ #if FABLE_COMPILER_RUST && !WASM && !CONTRACT │
00:06:41 #31929 [verbose] > │ let v35 : Async<unit> = null |> unbox<Async<unit>> │
00:06:41 #31930 [verbose] > │ v35 │
00:06:41 #31931 [verbose] > │ #endif │
00:06:41 #31932 [verbose] > │ #if FABLE_COMPILER_RUST && WASM │
00:06:41 #31933 [verbose] > │ let v36 : Async<unit> = null |> unbox<Async<unit>> │
00:06:41 #31934 [verbose] > │ v36 │
00:06:41 #31935 [verbose] > │ #endif │
00:06:41 #31936 [verbose] > │ #if FABLE_COMPILER_RUST && CONTRACT │
00:06:41 #31937 [verbose] > │ let v37 : Async<unit> = null |> unbox<Async<unit>> │
00:06:41 #31938 [verbose] > │ v37 │
00:06:41 #31939 [verbose] > │ #endif │
00:06:41 #31940 [verbose] > │ #if !FABLE_COMPILER && !FABLE_COMPILER_RUST && │
00:06:41 #31941 [verbose] > │ !FABLE_COMPILER_TYPESCRIPT && !WASM && !CONTRACT │
00:06:41 #31942 [verbose] > │ let v38 : (int32 -> Async<unit>) = Async.Sleep │
00:06:41 #31943 [verbose] > │ let v39 : Async<unit> = v38 10 │
00:06:41 #31944 [verbose] > │ v39 │
00:06:41 #31945 [verbose] > │ #endif │
00:06:41 #31946 [verbose] > │ #if FABLE_COMPILER_TYPESCRIPT │
00:06:41 #31947 [verbose] > │ let v40 : Async<unit> = null |> unbox<Async<unit>> │
00:06:41 #31948 [verbose] > │ v40 │
00:06:41 #31949 [verbose] > │ #endif │
00:06:41 #31950 [verbose] > │ #if FABLE_COMPILER_PYTHON || FABLE_COMPILER_PHP || FABLE_COMPILER_DART │
00:06:41 #31951 [verbose] > │ let v41 : Async<unit> = Unchecked.defaultof<Async<unit>> │
00:06:41 #31952 [verbose] > │ v41 │
00:06:41 #31953 [verbose] > │ #endif │
00:06:41 #31954 [verbose] > │ |> fun x -> _v34 <- Some x │
00:06:41 #31955 [verbose] > │ let v42 : Async<unit> = _v34.Value │
00:06:41 #31956 [verbose] > │ do! v42 │
00:06:41 #31957 [verbose] > │ let v43 : int64 = v1 + 1L │
00:06:41 #31958 [verbose] > │ let v44 : Async<int64> = method10(v0, v43) │
00:06:41 #31959 [verbose] > │ return! v44 │
00:06:41 #31960 [verbose] > │ (* │
00:06:41 #31961 [verbose] > │ let v45 : int64 = *) │
00:06:41 #31962 [verbose] > │ } │
00:06:41 #31963 [verbose] > │ |> fun x -> _v6 <- Some x │
00:06:41 #31964 [verbose] > │ let v46 : Async<int64> = _v6 |> Option.get │
00:06:41 #31965 [verbose] > │ v46 │
00:06:41 #31966 [verbose] > │ #endif │
00:06:41 #31967 [verbose] > │ #if FABLE_COMPILER_TYPESCRIPT │
00:06:41 #31968 [verbose] > │ let v47 : Async<int64> = null |> unbox<Async<int64>> │
00:06:41 #31969 [verbose] > │ v47 │
00:06:41 #31970 [verbose] > │ #endif │
00:06:41 #31971 [verbose] > │ #if FABLE_COMPILER_PYTHON || FABLE_COMPILER_PHP || FABLE_COMPILER_DART │
00:06:41 #31972 [verbose] > │ let v48 : Async<int64> = Unchecked.defaultof<Async<int64>> │
00:06:41 #31973 [verbose] > │ v48 │
00:06:41 #31974 [verbose] > │ #endif │
00:06:41 #31975 [verbose] > │ |> fun x -> _v2 <- Some x │
00:06:41 #31976 [verbose] > │ let v49 : Async<int64> = _v2.Value │
00:06:41 #31977 [verbose] > │ v49 │
00:06:41 #31978 [verbose] > │ and closure20 () () : string = │
00:06:41 #31979 [verbose] > │ let v0 : string = "5" │
00:06:41 #31980 [verbose] > │ v0 │
00:06:41 #31981 [verbose] > │ and closure21 () () : string = │
00:06:41 #31982 [verbose] > │ let v0 : string = "6" │
00:06:41 #31983 [verbose] > │ v0 │
00:06:41 #31984 [verbose] > │ and closure22 () () : string = │
00:06:41 #31985 [verbose] > │ let v0 : string = "7" │
00:06:41 #31986 [verbose] > │ v0 │
00:06:41 #31987 [verbose] > │ and closure23 () struct (v0 : int64, v1 : string) : US4 = │
00:06:41 #31988 [verbose] > │ US4_0(v0, v1) │
00:06:41 #31989 [verbose] > │ and closure24 () (v0 : exn) : US4 = │
00:06:41 #31990 [verbose] > │ US4_1(v0) │
00:06:41 #31991 [verbose] > │ and closure25 () () : string = │
00:06:41 #31992 [verbose] > │ let v0 : string = "run_with_timeout_async" │
00:06:41 #31993 [verbose] > │ v0 │
00:06:41 #31994 [verbose] > │ and closure26 () () : string = │
00:06:41 #31995 [verbose] > │ let v0 : (unit -> string) = closure2() │
00:06:41 #31996 [verbose] > │ let v1 : string = $"timeout: {3000} / {v0 ()}" │
00:06:41 #31997 [verbose] > │ v1 │
00:06:41 #31998 [verbose] > │ and closure27 (v0 : string) () : string = │
00:06:41 #31999 [verbose] > │ let v1 : string = $"run_with_timeout_async** / ex: {v0}" │
00:06:41 #32000 [verbose] > │ v1 │
00:06:41 #32001 [verbose] > │ and method12 (v0 : bool) : bool = │
00:06:41 #32002 [verbose] > │ v0 │
00:06:41 #32003 [verbose] > │ and method13 () : string = │
00:06:41 #32004 [verbose] > │ let v0 : string = "1" │
00:06:41 #32005 [verbose] > │ v0 │
00:06:41 #32006 [verbose] > │ and method0 () : unit = │
00:06:41 #32007 [verbose] > │ let v0 : struct (string * System.IDisposable) option = None │
00:06:41 #32008 [verbose] > │ let mutable _v0 = v0 │
00:06:41 #32009 [verbose] > │ #if FABLE_COMPILER_RUST && !WASM && !CONTRACT │
00:06:41 #32010 [verbose] > │ let struct (v1 : string, v2 : System.IDisposable) = null |> unbox<struct │
00:06:41 #32011 [verbose] > │ (string * System.IDisposable)> │
00:06:41 #32012 [verbose] > │ struct (v1, v2) │
00:06:41 #32013 [verbose] > │ #endif │
00:06:41 #32014 [verbose] > │ #if FABLE_COMPILER_RUST && WASM │
00:06:41 #32015 [verbose] > │ let struct (v3 : string, v4 : System.IDisposable) = null |> unbox<struct │
00:06:41 #32016 [verbose] > │ (string * System.IDisposable)> │
00:06:41 #32017 [verbose] > │ struct (v3, v4) │
00:06:41 #32018 [verbose] > │ #endif │
00:06:41 #32019 [verbose] > │ #if FABLE_COMPILER_RUST && CONTRACT │
00:06:41 #32020 [verbose] > │ let struct (v5 : string, v6 : System.IDisposable) = null |> unbox<struct │
00:06:41 #32021 [verbose] > │ (string * System.IDisposable)> │
00:06:41 #32022 [verbose] > │ struct (v5, v6) │
00:06:41 #32023 [verbose] > │ #endif │
00:06:41 #32024 [verbose] > │ #if !FABLE_COMPILER && !FABLE_COMPILER_RUST && │
00:06:41 #32025 [verbose] > │ !FABLE_COMPILER_TYPESCRIPT && !WASM && !CONTRACT │
00:06:41 #32026 [verbose] > │ let v7 : string option = None │
00:06:41 #32027 [verbose] > │ let mutable _v7 = v7 │
00:06:41 #32028 [verbose] > │ #if FABLE_COMPILER_RUST && !WASM && !CONTRACT │
00:06:41 #32029 [verbose] > │ let v8 : string = null |> unbox<string> │
00:06:41 #32030 [verbose] > │ v8 │
00:06:41 #32031 [verbose] > │ #endif │
00:06:41 #32032 [verbose] > │ #if FABLE_COMPILER_RUST && WASM │
00:06:41 #32033 [verbose] > │ let v9 : string = null |> unbox<string> │
00:06:41 #32034 [verbose] > │ v9 │
00:06:41 #32035 [verbose] > │ #endif │
00:06:41 #32036 [verbose] > │ #if FABLE_COMPILER_RUST && CONTRACT │
00:06:41 #32037 [verbose] > │ let v10 : string = null |> unbox<string> │
00:06:41 #32038 [verbose] > │ v10 │
00:06:41 #32039 [verbose] > │ #endif │
00:06:41 #32040 [verbose] > │ #if !FABLE_COMPILER && !FABLE_COMPILER_RUST && │
00:06:41 #32041 [verbose] > │ !FABLE_COMPILER_TYPESCRIPT && !WASM && !CONTRACT │
00:06:41 #32042 [verbose] > │ let v11 : (unit -> string) = System.IO.Path.GetTempPath │
00:06:41 #32043 [verbose] > │ let v12 : string = v11 () │
00:06:41 #32044 [verbose] > │ let v13 : (unit -> string) = closure0() │
00:06:41 #32045 [verbose] > │ let v14 : string = $"!{v13 ()}" │
00:06:41 #32046 [verbose] > │ let v15 : string option = None │
00:06:41 #32047 [verbose] > │ let mutable _v15 = v15 │
00:06:41 #32048 [verbose] > │ #if FABLE_COMPILER_RUST && !WASM && !CONTRACT │
00:06:41 #32049 [verbose] > │ let v16 : string = method1(v12) │
00:06:41 #32050 [verbose] > │ let v17 : string = "fable_library_rust::String_::LrcStr::as_str(&$0)" │
00:06:41 #32051 [verbose] > │ let v18 : Ref<Str> = Fable.Core.RustInterop.emitRustExpr v16 v17 │
00:06:41 #32052 [verbose] > │ let v19 : string = "String::from($0)" │
00:06:41 #32053 [verbose] > │ let v20 : std_string_String = Fable.Core.RustInterop.emitRustExpr v18 │
00:06:41 #32054 [verbose] > │ v19 │
00:06:41 #32055 [verbose] > │ let v21 : string = "std::path::PathBuf::from($0)" │
00:06:41 #32056 [verbose] > │ let v22 : std_path_PathBuf = Fable.Core.RustInterop.emitRustExpr v20 v21 │
00:06:41 #32057 [verbose] > │ let v23 : string = method1(v14) │
00:06:41 #32058 [verbose] > │ let v24 : string = "fable_library_rust::String_::LrcStr::as_str(&$0)" │
00:06:41 #32059 [verbose] > │ let v25 : Ref<Str> = Fable.Core.RustInterop.emitRustExpr v23 v24 │
00:06:41 #32060 [verbose] > │ let v26 : string = "String::from($0)" │
00:06:41 #32061 [verbose] > │ let v27 : std_string_String = Fable.Core.RustInterop.emitRustExpr v25 │
00:06:41 #32062 [verbose] > │ v26 │
00:06:41 #32063 [verbose] > │ let v28 : string = "$0.join($1)" │
00:06:41 #32064 [verbose] > │ let v29 : std_path_PathBuf = Fable.Core.RustInterop.emitRustExpr struct │
00:06:41 #32065 [verbose] > │ (v22, v27) v28 │
00:06:41 #32066 [verbose] > │ let v30 : string = "$0.display().to_string()" │
00:06:41 #32067 [verbose] > │ let v31 : std_string_String = Fable.Core.RustInterop.emitRustExpr v29 │
00:06:41 #32068 [verbose] > │ v30 │
00:06:41 #32069 [verbose] > │ let v32 : string = "fable_library_rust::String_::fromString($0)" │
00:06:41 #32070 [verbose] > │ let v33 : string = Fable.Core.RustInterop.emitRustExpr v31 v32 │
00:06:41 #32071 [verbose] > │ v33 │
00:06:41 #32072 [verbose] > │ #endif │
00:06:41 #32073 [verbose] > │ #if FABLE_COMPILER_RUST && WASM │
00:06:41 #32074 [verbose] > │ let v34 : string = null |> unbox<string> │
00:06:41 #32075 [verbose] > │ v34 │
00:06:41 #32076 [verbose] > │ #endif │
00:06:41 #32077 [verbose] > │ #if FABLE_COMPILER_RUST && CONTRACT │
00:06:41 #32078 [verbose] > │ let v35 : string = null |> unbox<string> │
00:06:41 #32079 [verbose] > │ v35 │
00:06:41 #32080 [verbose] > │ #endif │
00:06:41 #32081 [verbose] > │ #if !FABLE_COMPILER && !FABLE_COMPILER_RUST && │
00:06:41 #32082 [verbose] > │ !FABLE_COMPILER_TYPESCRIPT && !WASM && !CONTRACT │
00:06:41 #32083 [verbose] > │ let v36 : string = System.IO.Path.Combine (v12, v14) │
00:06:41 #32084 [verbose] > │ v36 │
00:06:41 #32085 [verbose] > │ #endif │
00:06:41 #32086 [verbose] > │ #if FABLE_COMPILER_TYPESCRIPT │
00:06:41 #32087 [verbose] > │ let v37 : string = "path" │
00:06:41 #32088 [verbose] > │ let v38 : IPathJoin = Fable.Core.JsInterop.importAll v37 │
00:06:41 #32089 [verbose] > │ let v39 : string = "v38.join($0, $1)" │
00:06:41 #32090 [verbose] > │ let v40 : string = Fable.Core.JsInterop.emitJsExpr struct (v12, v14) v39 │
00:06:41 #32091 [verbose] > │ v40 │
00:06:41 #32092 [verbose] > │ #endif │
00:06:41 #32093 [verbose] > │ #if FABLE_COMPILER_PYTHON || FABLE_COMPILER_PHP || FABLE_COMPILER_DART │
00:06:41 #32094 [verbose] > │ let v41 : string = Unchecked.defaultof<string> │
00:06:41 #32095 [verbose] > │ v41 │
00:06:41 #32096 [verbose] > │ #endif │
00:06:41 #32097 [verbose] > │ |> fun x -> _v15 <- Some x │
00:06:41 #32098 [verbose] > │ let v42 : string = _v15.Value │
00:06:41 #32099 [verbose] > │ let v43 : System.DateTime = System.DateTime.Now │
00:06:41 #32100 [verbose] > │ let v44 : System.Guid = System.Guid.NewGuid () │
00:06:41 #32101 [verbose] > │ let v45 : (System.Guid -> string) = _.ToString() │
00:06:41 #32102 [verbose] > │ let v46 : string = v45 v44 │
00:06:41 #32103 [verbose] > │ let v47 : string = v43.ToString "yyyyMMdd-HHmm-ssff-ffff-f" │
00:06:41 #32104 [verbose] > │ let v48 : System.Guid = System.Guid $"{v47}{v46.[v47.Length..]}" │
00:06:41 #32105 [verbose] > │ let v49 : (System.Guid -> string) = _.ToString() │
00:06:41 #32106 [verbose] > │ let v50 : string = v49 v48 │
00:06:41 #32107 [verbose] > │ let v51 : string option = None │
00:06:41 #32108 [verbose] > │ let mutable _v51 = v51 │
00:06:41 #32109 [verbose] > │ #if FABLE_COMPILER_RUST && !WASM && !CONTRACT │
00:06:41 #32110 [verbose] > │ let v52 : string = method1(v42) │
00:06:41 #32111 [verbose] > │ let v53 : string = "fable_library_rust::String_::LrcStr::as_str(&$0)" │
00:06:41 #32112 [verbose] > │ let v54 : Ref<Str> = Fable.Core.RustInterop.emitRustExpr v52 v53 │
00:06:41 #32113 [verbose] > │ let v55 : string = "String::from($0)" │
00:06:41 #32114 [verbose] > │ let v56 : std_string_String = Fable.Core.RustInterop.emitRustExpr v54 │
00:06:41 #32115 [verbose] > │ v55 │
00:06:41 #32116 [verbose] > │ let v57 : string = "std::path::PathBuf::from($0)" │
00:06:41 #32117 [verbose] > │ let v58 : std_path_PathBuf = Fable.Core.RustInterop.emitRustExpr v56 v57 │
00:06:41 #32118 [verbose] > │ let v59 : string = method1(v50) │
00:06:41 #32119 [verbose] > │ let v60 : string = "fable_library_rust::String_::LrcStr::as_str(&$0)" │
00:06:41 #32120 [verbose] > │ let v61 : Ref<Str> = Fable.Core.RustInterop.emitRustExpr v59 v60 │
00:06:41 #32121 [verbose] > │ let v62 : string = "String::from($0)" │
00:06:41 #32122 [verbose] > │ let v63 : std_string_String = Fable.Core.RustInterop.emitRustExpr v61 │
00:06:41 #32123 [verbose] > │ v62 │
00:06:41 #32124 [verbose] > │ let v64 : string = "$0.join($1)" │
00:06:41 #32125 [verbose] > │ let v65 : std_path_PathBuf = Fable.Core.RustInterop.emitRustExpr struct │
00:06:41 #32126 [verbose] > │ (v58, v63) v64 │
00:06:41 #32127 [verbose] > │ let v66 : string = "$0.display().to_string()" │
00:06:41 #32128 [verbose] > │ let v67 : std_string_String = Fable.Core.RustInterop.emitRustExpr v65 │
00:06:41 #32129 [verbose] > │ v66 │
00:06:41 #32130 [verbose] > │ let v68 : string = "fable_library_rust::String_::fromString($0)" │
00:06:41 #32131 [verbose] > │ let v69 : string = Fable.Core.RustInterop.emitRustExpr v67 v68 │
00:06:41 #32132 [verbose] > │ v69 │
00:06:41 #32133 [verbose] > │ #endif │
00:06:41 #32134 [verbose] > │ #if FABLE_COMPILER_RUST && WASM │
00:06:41 #32135 [verbose] > │ let v70 : string = null |> unbox<string> │
00:06:41 #32136 [verbose] > │ v70 │
00:06:41 #32137 [verbose] > │ #endif │
00:06:41 #32138 [verbose] > │ #if FABLE_COMPILER_RUST && CONTRACT │
00:06:41 #32139 [verbose] > │ let v71 : string = null |> unbox<string> │
00:06:41 #32140 [verbose] > │ v71 │
00:06:41 #32141 [verbose] > │ #endif │
00:06:41 #32142 [verbose] > │ #if !FABLE_COMPILER && !FABLE_COMPILER_RUST && │
00:06:41 #32143 [verbose] > │ !FABLE_COMPILER_TYPESCRIPT && !WASM && !CONTRACT │
00:06:41 #32144 [verbose] > │ let v72 : string = System.IO.Path.Combine (v42, v50) │
00:06:41 #32145 [verbose] > │ v72 │
00:06:41 #32146 [verbose] > │ #endif │
00:06:41 #32147 [verbose] > │ #if FABLE_COMPILER_TYPESCRIPT │
00:06:41 #32148 [verbose] > │ let v73 : IPathJoin = Fable.Core.JsInterop.importAll v37 │
00:06:41 #32149 [verbose] > │ let v74 : string = "v73.join($0, $1)" │
00:06:41 #32150 [verbose] > │ let v75 : string = Fable.Core.JsInterop.emitJsExpr struct (v42, v50) v74 │
00:06:41 #32151 [verbose] > │ v75 │
00:06:41 #32152 [verbose] > │ #endif │
00:06:41 #32153 [verbose] > │ #if FABLE_COMPILER_PYTHON || FABLE_COMPILER_PHP || FABLE_COMPILER_DART │
00:06:41 #32154 [verbose] > │ let v76 : string = Unchecked.defaultof<string> │
00:06:41 #32155 [verbose] > │ v76 │
00:06:41 #32156 [verbose] > │ #endif │
00:06:41 #32157 [verbose] > │ |> fun x -> _v51 <- Some x │
00:06:41 #32158 [verbose] > │ let v77 : string = _v51.Value │
00:06:41 #32159 [verbose] > │ v77 │
00:06:41 #32160 [verbose] > │ #endif │
00:06:41 #32161 [verbose] > │ #if FABLE_COMPILER_TYPESCRIPT │
00:06:41 #32162 [verbose] > │ let v78 : string = null |> unbox<string> │
00:06:41 #32163 [verbose] > │ v78 │
00:06:41 #32164 [verbose] > │ #endif │
00:06:41 #32165 [verbose] > │ #if FABLE_COMPILER_PYTHON || FABLE_COMPILER_PHP || FABLE_COMPILER_DART │
00:06:41 #32166 [verbose] > │ let v79 : string = Unchecked.defaultof<string> │
00:06:41 #32167 [verbose] > │ v79 │
00:06:41 #32168 [verbose] > │ #endif │
00:06:41 #32169 [verbose] > │ |> fun x -> _v7 <- Some x │
00:06:41 #32170 [verbose] > │ let v80 : string = _v7.Value │
00:06:41 #32171 [verbose] > │ let v81 : System.IO.DirectoryInfo option = None │
00:06:41 #32172 [verbose] > │ let mutable _v81 = v81 │
00:06:41 #32173 [verbose] > │ #if FABLE_COMPILER_RUST && !WASM && !CONTRACT │
00:06:41 #32174 [verbose] > │ let v82 : System.IO.DirectoryInfo = null |> │
00:06:41 #32175 [verbose] > │ unbox<System.IO.DirectoryInfo> │
00:06:41 #32176 [verbose] > │ v82 │
00:06:41 #32177 [verbose] > │ #endif │
00:06:41 #32178 [verbose] > │ #if FABLE_COMPILER_RUST && WASM │
00:06:41 #32179 [verbose] > │ let v83 : System.IO.DirectoryInfo = null |> │
00:06:41 #32180 [verbose] > │ unbox<System.IO.DirectoryInfo> │
00:06:41 #32181 [verbose] > │ v83 │
00:06:41 #32182 [verbose] > │ #endif │
00:06:41 #32183 [verbose] > │ #if FABLE_COMPILER_RUST && CONTRACT │
00:06:41 #32184 [verbose] > │ let v84 : System.IO.DirectoryInfo = null |> │
00:06:41 #32185 [verbose] > │ unbox<System.IO.DirectoryInfo> │
00:06:41 #32186 [verbose] > │ v84 │
00:06:41 #32187 [verbose] > │ #endif │
00:06:41 #32188 [verbose] > │ #if !FABLE_COMPILER && !FABLE_COMPILER_RUST && │
00:06:41 #32189 [verbose] > │ !FABLE_COMPILER_TYPESCRIPT && !WASM && !CONTRACT │
00:06:41 #32190 [verbose] > │ let v85 : (string -> System.IO.DirectoryInfo) = │
00:06:41 #32191 [verbose] > │ System.IO.Directory.CreateDirectory │
00:06:41 #32192 [verbose] > │ let v86 : System.IO.DirectoryInfo = v85 v80 │
00:06:41 #32193 [verbose] > │ v86 │
00:06:41 #32194 [verbose] > │ #endif │
00:06:41 #32195 [verbose] > │ #if FABLE_COMPILER_TYPESCRIPT │
00:06:41 #32196 [verbose] > │ let v87 : System.IO.DirectoryInfo = null |> │
00:06:41 #32197 [verbose] > │ unbox<System.IO.DirectoryInfo> │
00:06:41 #32198 [verbose] > │ v87 │
00:06:41 #32199 [verbose] > │ #endif │
00:06:41 #32200 [verbose] > │ #if FABLE_COMPILER_PYTHON || FABLE_COMPILER_PHP || FABLE_COMPILER_DART │
00:06:41 #32201 [verbose] > │ let v88 : System.IO.DirectoryInfo = │
00:06:41 #32202 [verbose] > │ Unchecked.defaultof<System.IO.DirectoryInfo> │
00:06:41 #32203 [verbose] > │ v88 │
00:06:41 #32204 [verbose] > │ #endif │
00:06:41 #32205 [verbose] > │ |> fun x -> _v81 <- Some x │
00:06:41 #32206 [verbose] > │ let v89 : System.IO.DirectoryInfo = _v81.Value │
00:06:41 #32207 [verbose] > │ let v90 : bool option = None │
00:06:41 #32208 [verbose] > │ let mutable _v90 = v90 │
00:06:41 #32209 [verbose] > │ #if FABLE_COMPILER_RUST && !WASM && !CONTRACT │
00:06:41 #32210 [verbose] > │ let v91 : bool = null |> unbox<bool> │
00:06:41 #32211 [verbose] > │ v91 │
00:06:41 #32212 [verbose] > │ #endif │
00:06:41 #32213 [verbose] > │ #if FABLE_COMPILER_RUST && WASM │
00:06:41 #32214 [verbose] > │ let v92 : bool = null |> unbox<bool> │
00:06:41 #32215 [verbose] > │ v92 │
00:06:41 #32216 [verbose] > │ #endif │
00:06:41 #32217 [verbose] > │ #if FABLE_COMPILER_RUST && CONTRACT │
00:06:41 #32218 [verbose] > │ let v93 : bool = null |> unbox<bool> │
00:06:41 #32219 [verbose] > │ v93 │
00:06:41 #32220 [verbose] > │ #endif │
00:06:41 #32221 [verbose] > │ #if !FABLE_COMPILER && !FABLE_COMPILER_RUST && │
00:06:41 #32222 [verbose] > │ !FABLE_COMPILER_TYPESCRIPT && !WASM && !CONTRACT │
00:06:41 #32223 [verbose] > │ let v94 : bool = v89.Exists │
00:06:41 #32224 [verbose] > │ v94 │
00:06:41 #32225 [verbose] > │ #endif │
00:06:41 #32226 [verbose] > │ #if FABLE_COMPILER_TYPESCRIPT │
00:06:41 #32227 [verbose] > │ let v95 : bool = null |> unbox<bool> │
00:06:41 #32228 [verbose] > │ v95 │
00:06:41 #32229 [verbose] > │ #endif │
00:06:41 #32230 [verbose] > │ #if FABLE_COMPILER_PYTHON || FABLE_COMPILER_PHP || FABLE_COMPILER_DART │
00:06:41 #32231 [verbose] > │ let v96 : bool = Unchecked.defaultof<bool> │
00:06:41 #32232 [verbose] > │ v96 │
00:06:41 #32233 [verbose] > │ #endif │
00:06:41 #32234 [verbose] > │ |> fun x -> _v90 <- Some x │
00:06:41 #32235 [verbose] > │ let v97 : bool = _v90.Value │
00:06:41 #32236 [verbose] > │ let v98 : bool = v97 = false │
00:06:41 #32237 [verbose] > │ if v98 then │
00:06:41 #32238 [verbose] > │ let v99 : System.DateTime option = None │
00:06:41 #32239 [verbose] > │ let mutable _v99 = v99 │
00:06:41 #32240 [verbose] > │ #if FABLE_COMPILER_RUST && !WASM && !CONTRACT │
00:06:41 #32241 [verbose] > │ let v100 : System.DateTime = null |> unbox<System.DateTime> │
00:06:41 #32242 [verbose] > │ v100 │
00:06:41 #32243 [verbose] > │ #endif │
00:06:41 #32244 [verbose] > │ #if FABLE_COMPILER_RUST && WASM │
00:06:41 #32245 [verbose] > │ let v101 : System.DateTime = null |> unbox<System.DateTime> │
00:06:41 #32246 [verbose] > │ v101 │
00:06:41 #32247 [verbose] > │ #endif │
00:06:41 #32248 [verbose] > │ #if FABLE_COMPILER_RUST && CONTRACT │
00:06:41 #32249 [verbose] > │ let v102 : System.DateTime = null |> unbox<System.DateTime> │
00:06:41 #32250 [verbose] > │ v102 │
00:06:41 #32251 [verbose] > │ #endif │
00:06:41 #32252 [verbose] > │ #if !FABLE_COMPILER && !FABLE_COMPILER_RUST && │
00:06:41 #32253 [verbose] > │ !FABLE_COMPILER_TYPESCRIPT && !WASM && !CONTRACT │
00:06:41 #32254 [verbose] > │ let v103 : System.DateTime = v89.CreationTime │
00:06:41 #32255 [verbose] > │ v103 │
00:06:41 #32256 [verbose] > │ #endif │
00:06:41 #32257 [verbose] > │ #if FABLE_COMPILER_TYPESCRIPT │
00:06:41 #32258 [verbose] > │ let v104 : System.DateTime = null |> unbox<System.DateTime> │
00:06:41 #32259 [verbose] > │ v104 │
00:06:41 #32260 [verbose] > │ #endif │
00:06:41 #32261 [verbose] > │ #if FABLE_COMPILER_PYTHON || FABLE_COMPILER_PHP || │
00:06:41 #32262 [verbose] > │ FABLE_COMPILER_DART │
00:06:41 #32263 [verbose] > │ let v105 : System.DateTime = Unchecked.defaultof<System.DateTime> │
00:06:41 #32264 [verbose] > │ v105 │
00:06:41 #32265 [verbose] > │ #endif │
00:06:41 #32266 [verbose] > │ |> fun x -> _v99 <- Some x │
00:06:41 #32267 [verbose] > │ let v106 : System.DateTime = _v99.Value │
00:06:41 #32268 [verbose] > │ let v107 : obj = {| Exists = v97; CreationTime = v106 |} │
00:06:41 #32269 [verbose] > │ let v108 : string = $"%A{v107}" │
00:06:41 #32270 [verbose] > │ let v109 : (unit -> string) = closure1(v80, v108) │
00:06:41 #32271 [verbose] > │ let v110 : string = $"create_temp_directory / {v109 ()}" │
00:06:41 #32272 [verbose] > │ System.Console.WriteLine v110 │
00:06:41 #32273 [verbose] > │ () │
00:06:41 #32274 [verbose] > │ let v111 : System.IDisposable option = None │
00:06:41 #32275 [verbose] > │ let mutable _v111 = v111 │
00:06:41 #32276 [verbose] > │ #if FABLE_COMPILER_RUST && !WASM && !CONTRACT │
00:06:41 #32277 [verbose] > │ let v112 : System.IDisposable = null |> unbox<System.IDisposable> │
00:06:41 #32278 [verbose] > │ v112 │
00:06:41 #32279 [verbose] > │ #endif │
00:06:41 #32280 [verbose] > │ #if FABLE_COMPILER_RUST && WASM │
00:06:41 #32281 [verbose] > │ let v113 : System.IDisposable = null |> unbox<System.IDisposable> │
00:06:41 #32282 [verbose] > │ v113 │
00:06:41 #32283 [verbose] > │ #endif │
00:06:41 #32284 [verbose] > │ #if FABLE_COMPILER_RUST && CONTRACT │
00:06:41 #32285 [verbose] > │ let v114 : System.IDisposable = null |> unbox<System.IDisposable> │
00:06:41 #32286 [verbose] > │ v114 │
00:06:41 #32287 [verbose] > │ #endif │
00:06:41 #32288 [verbose] > │ #if !FABLE_COMPILER && !FABLE_COMPILER_RUST && │
00:06:41 #32289 [verbose] > │ !FABLE_COMPILER_TYPESCRIPT && !WASM && !CONTRACT │
00:06:41 #32290 [verbose] > │ let v115 : (unit -> unit) = closure3(v80) │
00:06:41 #32291 [verbose] > │ let v116 : System.IDisposable = { new System.IDisposable with member │
00:06:41 #32292 [verbose] > │ _.Dispose () = v115 () } │
00:06:41 #32293 [verbose] > │ v116 │
00:06:41 #32294 [verbose] > │ #endif │
00:06:41 #32295 [verbose] > │ #if FABLE_COMPILER_TYPESCRIPT │
00:06:41 #32296 [verbose] > │ let v117 : System.IDisposable = null |> unbox<System.IDisposable> │
00:06:41 #32297 [verbose] > │ v117 │
00:06:41 #32298 [verbose] > │ #endif │
00:06:41 #32299 [verbose] > │ #if FABLE_COMPILER_PYTHON || FABLE_COMPILER_PHP || FABLE_COMPILER_DART │
00:06:41 #32300 [verbose] > │ let v118 : System.IDisposable = Unchecked.defaultof<System.IDisposable> │
00:06:41 #32301 [verbose] > │ v118 │
00:06:41 #32302 [verbose] > │ #endif │
00:06:41 #32303 [verbose] > │ |> fun x -> _v111 <- Some x │
00:06:41 #32304 [verbose] > │ let v119 : System.IDisposable = _v111.Value │
00:06:41 #32305 [verbose] > │ struct (v80, v119) │
00:06:41 #32306 [verbose] > │ #endif │
00:06:41 #32307 [verbose] > │ #if FABLE_COMPILER_TYPESCRIPT │
00:06:41 #32308 [verbose] > │ let struct (v120 : string, v121 : System.IDisposable) = null |> │
00:06:41 #32309 [verbose] > │ unbox<struct (string * System.IDisposable)> │
00:06:41 #32310 [verbose] > │ struct (v120, v121) │
00:06:41 #32311 [verbose] > │ #endif │
00:06:41 #32312 [verbose] > │ #if FABLE_COMPILER_PYTHON || FABLE_COMPILER_PHP || FABLE_COMPILER_DART │
00:06:41 #32313 [verbose] > │ let struct (v122 : string, v123 : System.IDisposable) = │
00:06:41 #32314 [verbose] > │ Unchecked.defaultof<struct (string * System.IDisposable)> │
00:06:41 #32315 [verbose] > │ struct (v122, v123) │
00:06:41 #32316 [verbose] > │ #endif │
00:06:41 #32317 [verbose] > │ |> fun x -> _v0 <- Some x │
00:06:41 #32318 [verbose] > │ let struct (v124 : string, v125 : System.IDisposable) = _v0.Value │
00:06:41 #32319 [verbose] > │ use v125 = v125 │
00:06:41 #32320 [verbose] > │ let v126 : System.IDisposable = v125 │
00:06:41 #32321 [verbose] > │ let v127 : string option = None │
00:06:41 #32322 [verbose] > │ let mutable _v127 = v127 │
00:06:41 #32323 [verbose] > │ #if FABLE_COMPILER_RUST && !WASM && !CONTRACT │
00:06:41 #32324 [verbose] > │ let v128 : string = method1(v124) │
00:06:41 #32325 [verbose] > │ let v129 : string = "fable_library_rust::String_::LrcStr::as_str(&$0)" │
00:06:41 #32326 [verbose] > │ let v130 : Ref<Str> = Fable.Core.RustInterop.emitRustExpr v128 v129 │
00:06:41 #32327 [verbose] > │ let v131 : string = "String::from($0)" │
00:06:41 #32328 [verbose] > │ let v132 : std_string_String = Fable.Core.RustInterop.emitRustExpr v130 │
00:06:41 #32329 [verbose] > │ v131 │
00:06:41 #32330 [verbose] > │ let v133 : string = "std::path::PathBuf::from($0)" │
00:06:41 #32331 [verbose] > │ let v134 : std_path_PathBuf = Fable.Core.RustInterop.emitRustExpr v132 │
00:06:41 #32332 [verbose] > │ v133 │
00:06:41 #32333 [verbose] > │ let v135 : string = method4() │
00:06:41 #32334 [verbose] > │ let v136 : string = "fable_library_rust::String_::LrcStr::as_str(&$0)" │
00:06:41 #32335 [verbose] > │ let v137 : Ref<Str> = Fable.Core.RustInterop.emitRustExpr v135 v136 │
00:06:41 #32336 [verbose] > │ let v138 : string = "String::from($0)" │
00:06:41 #32337 [verbose] > │ let v139 : std_string_String = Fable.Core.RustInterop.emitRustExpr v137 │
00:06:41 #32338 [verbose] > │ v138 │
00:06:41 #32339 [verbose] > │ let v140 : string = "$0.join($1)" │
00:06:41 #32340 [verbose] > │ let v141 : std_path_PathBuf = Fable.Core.RustInterop.emitRustExpr struct │
00:06:41 #32341 [verbose] > │ (v134, v139) v140 │
00:06:41 #32342 [verbose] > │ let v142 : string = "$0.display().to_string()" │
00:06:41 #32343 [verbose] > │ let v143 : std_string_String = Fable.Core.RustInterop.emitRustExpr v141 │
00:06:41 #32344 [verbose] > │ v142 │
00:06:41 #32345 [verbose] > │ let v144 : string = "fable_library_rust::String_::fromString($0)" │
00:06:41 #32346 [verbose] > │ let v145 : string = Fable.Core.RustInterop.emitRustExpr v143 v144 │
00:06:41 #32347 [verbose] > │ v145 │
00:06:41 #32348 [verbose] > │ #endif │
00:06:41 #32349 [verbose] > │ #if FABLE_COMPILER_RUST && WASM │
00:06:41 #32350 [verbose] > │ let v146 : string = null |> unbox<string> │
00:06:41 #32351 [verbose] > │ v146 │
00:06:41 #32352 [verbose] > │ #endif │
00:06:41 #32353 [verbose] > │ #if FABLE_COMPILER_RUST && CONTRACT │
00:06:41 #32354 [verbose] > │ let v147 : string = null |> unbox<string> │
00:06:41 #32355 [verbose] > │ v147 │
00:06:41 #32356 [verbose] > │ #endif │
00:06:41 #32357 [verbose] > │ #if !FABLE_COMPILER && !FABLE_COMPILER_RUST && │
00:06:41 #32358 [verbose] > │ !FABLE_COMPILER_TYPESCRIPT && !WASM && !CONTRACT │
00:06:41 #32359 [verbose] > │ let v148 : string = "test.txt" │
00:06:41 #32360 [verbose] > │ let v149 : string = System.IO.Path.Combine (v124, v148) │
00:06:41 #32361 [verbose] > │ v149 │
00:06:41 #32362 [verbose] > │ #endif │
00:06:41 #32363 [verbose] > │ #if FABLE_COMPILER_TYPESCRIPT │
00:06:41 #32364 [verbose] > │ let v150 : IPathJoin = Fable.Core.JsInterop.importAll v37 │
00:06:41 #32365 [verbose] > │ let v151 : string = "v150.join($0, $1)" │
00:06:41 #32366 [verbose] > │ let v152 : string = Fable.Core.JsInterop.emitJsExpr struct (v124, v148) │
00:06:41 #32367 [verbose] > │ v151 │
00:06:41 #32368 [verbose] > │ v152 │
00:06:41 #32369 [verbose] > │ #endif │
00:06:41 #32370 [verbose] > │ #if FABLE_COMPILER_PYTHON || FABLE_COMPILER_PHP || FABLE_COMPILER_DART │
00:06:41 #32371 [verbose] > │ let v153 : string = Unchecked.defaultof<string> │
00:06:41 #32372 [verbose] > │ v153 │
00:06:41 #32373 [verbose] > │ #endif │
00:06:41 #32374 [verbose] > │ |> fun x -> _v127 <- Some x │
00:06:41 #32375 [verbose] > │ let v154 : string = _v127.Value │
00:06:41 #32376 [verbose] > │ let v155 : Async<struct (int64 * string)> option = None │
00:06:41 #32377 [verbose] > │ let mutable _v155 = v155 │
00:06:41 #32378 [verbose] > │ #if FABLE_COMPILER_RUST && !WASM && !CONTRACT │
00:06:41 #32379 [verbose] > │ let v156 : Async<struct (int64 * string)> = null |> unbox<Async<struct │
00:06:41 #32380 [verbose] > │ (int64 * string)>> │
00:06:41 #32381 [verbose] > │ v156 │
00:06:41 #32382 [verbose] > │ #endif │
00:06:41 #32383 [verbose] > │ #if FABLE_COMPILER_RUST && WASM │
00:06:41 #32384 [verbose] > │ let v157 : Async<struct (int64 * string)> = null |> unbox<Async<struct │
00:06:41 #32385 [verbose] > │ (int64 * string)>> │
00:06:41 #32386 [verbose] > │ v157 │
00:06:41 #32387 [verbose] > │ #endif │
00:06:41 #32388 [verbose] > │ #if FABLE_COMPILER_RUST && CONTRACT │
00:06:41 #32389 [verbose] > │ let v158 : Async<struct (int64 * string)> = null |> unbox<Async<struct │
00:06:41 #32390 [verbose] > │ (int64 * string)>> │
00:06:41 #32391 [verbose] > │ v158 │
00:06:41 #32392 [verbose] > │ #endif │
00:06:41 #32393 [verbose] > │ #if !FABLE_COMPILER && !FABLE_COMPILER_RUST && │
00:06:41 #32394 [verbose] > │ !FABLE_COMPILER_TYPESCRIPT && !WASM && !CONTRACT │
00:06:41 #32395 [verbose] > │ let v159 : Async<struct (int64 * string)> option = None │
00:06:41 #32396 [verbose] > │ let mutable _v159 = v159 │
00:06:41 #32397 [verbose] > │ async { │
00:06:41 #32398 [verbose] > │ let v160 : US0 = US0_1 │
00:06:41 #32399 [verbose] > │ let v161 : (unit -> string) = closure6() │
00:06:41 #32400 [verbose] > │ let v162 : (unit -> string) = closure2() │
00:06:41 #32401 [verbose] > │ method5(v160, v161, v162) │
00:06:41 #32402 [verbose] > │ let v163 : Async<unit> option = None │
00:06:41 #32403 [verbose] > │ let mutable _v163 = v163 │
00:06:41 #32404 [verbose] > │ #if FABLE_COMPILER_RUST && !WASM && !CONTRACT │
00:06:41 #32405 [verbose] > │ let v164 : Async<unit> = null |> unbox<Async<unit>> │
00:06:41 #32406 [verbose] > │ v164 │
00:06:41 #32407 [verbose] > │ #endif │
00:06:41 #32408 [verbose] > │ #if FABLE_COMPILER_RUST && WASM │
00:06:41 #32409 [verbose] > │ let v165 : Async<unit> = null |> unbox<Async<unit>> │
00:06:41 #32410 [verbose] > │ v165 │
00:06:41 #32411 [verbose] > │ #endif │
00:06:41 #32412 [verbose] > │ #if FABLE_COMPILER_RUST && CONTRACT │
00:06:41 #32413 [verbose] > │ let v166 : Async<unit> = null |> unbox<Async<unit>> │
00:06:41 #32414 [verbose] > │ v166 │
00:06:41 #32415 [verbose] > │ #endif │
00:06:41 #32416 [verbose] > │ #if !FABLE_COMPILER && !FABLE_COMPILER_RUST && │
00:06:41 #32417 [verbose] > │ !FABLE_COMPILER_TYPESCRIPT && !WASM && !CONTRACT │
00:06:41 #32418 [verbose] > │ let v167 : string = "0" │
00:06:41 #32419 [verbose] > │ let v168 : System.Threading.Tasks.Task = │
00:06:41 #32420 [verbose] > │ System.IO.File.WriteAllTextAsync (v154, v167) │
00:06:41 #32421 [verbose] > │ let v169 : Async<unit> option = None │
00:06:41 #32422 [verbose] > │ let mutable _v169 = v169 │
00:06:41 #32423 [verbose] > │ #if FABLE_COMPILER_RUST && !WASM && !CONTRACT │
00:06:41 #32424 [verbose] > │ let v170 : Async<unit> = null |> unbox<Async<unit>> │
00:06:41 #32425 [verbose] > │ v170 │
00:06:41 #32426 [verbose] > │ #endif │
00:06:41 #32427 [verbose] > │ #if FABLE_COMPILER_RUST && WASM │
00:06:41 #32428 [verbose] > │ let v171 : Async<unit> = null |> unbox<Async<unit>> │
00:06:41 #32429 [verbose] > │ v171 │
00:06:41 #32430 [verbose] > │ #endif │
00:06:41 #32431 [verbose] > │ #if FABLE_COMPILER_RUST && CONTRACT │
00:06:41 #32432 [verbose] > │ let v172 : Async<unit> = null |> unbox<Async<unit>> │
00:06:41 #32433 [verbose] > │ v172 │
00:06:41 #32434 [verbose] > │ #endif │
00:06:41 #32435 [verbose] > │ #if !FABLE_COMPILER && !FABLE_COMPILER_RUST && │
00:06:41 #32436 [verbose] > │ !FABLE_COMPILER_TYPESCRIPT && !WASM && !CONTRACT │
00:06:41 #32437 [verbose] > │ let v173 : (System.Threading.Tasks.Task -> Async<unit>) = │
00:06:41 #32438 [verbose] > │ Async.AwaitTask │
00:06:41 #32439 [verbose] > │ let v174 : Async<unit> = v173 v168 │
00:06:41 #32440 [verbose] > │ v174 │
00:06:41 #32441 [verbose] > │ #endif │
00:06:41 #32442 [verbose] > │ #if FABLE_COMPILER_TYPESCRIPT │
00:06:41 #32443 [verbose] > │ let v175 : Async<unit> = null |> unbox<Async<unit>> │
00:06:41 #32444 [verbose] > │ v175 │
00:06:41 #32445 [verbose] > │ #endif │
00:06:41 #32446 [verbose] > │ #if FABLE_COMPILER_PYTHON || FABLE_COMPILER_PHP || FABLE_COMPILER_DART │
00:06:41 #32447 [verbose] > │ let v176 : Async<unit> = Unchecked.defaultof<Async<unit>> │
00:06:41 #32448 [verbose] > │ v176 │
00:06:41 #32449 [verbose] > │ #endif │
00:06:41 #32450 [verbose] > │ |> fun x -> _v169 <- Some x │
00:06:41 #32451 [verbose] > │ let v177 : Async<unit> = _v169.Value │
00:06:41 #32452 [verbose] > │ v177 │
00:06:41 #32453 [verbose] > │ #endif │
00:06:41 #32454 [verbose] > │ #if FABLE_COMPILER_TYPESCRIPT │
00:06:41 #32455 [verbose] > │ let v178 : Async<unit> = null |> unbox<Async<unit>> │
00:06:41 #32456 [verbose] > │ v178 │
00:06:41 #32457 [verbose] > │ #endif │
00:06:41 #32458 [verbose] > │ #if FABLE_COMPILER_PYTHON || FABLE_COMPILER_PHP || FABLE_COMPILER_DART │
00:06:41 #32459 [verbose] > │ let v179 : Async<unit> = Unchecked.defaultof<Async<unit>> │
00:06:41 #32460 [verbose] > │ v179 │
00:06:41 #32461 [verbose] > │ #endif │
00:06:41 #32462 [verbose] > │ |> fun x -> _v163 <- Some x │
00:06:41 #32463 [verbose] > │ let v180 : Async<unit> = _v163.Value │
00:06:41 #32464 [verbose] > │ do! v180 │
00:06:41 #32465 [verbose] > │ let v181 : US0 = US0_1 │
00:06:41 #32466 [verbose] > │ let v182 : (unit -> string) = closure10() │
00:06:41 #32467 [verbose] > │ method5(v181, v182, v162) │
00:06:41 #32468 [verbose] > │ let v183 : Async<unit> option = None │
00:06:41 #32469 [verbose] > │ let mutable _v183 = v183 │
00:06:41 #32470 [verbose] > │ #if FABLE_COMPILER_RUST && !WASM && !CONTRACT │
00:06:41 #32471 [verbose] > │ let v184 : Async<unit> = null |> unbox<Async<unit>> │
00:06:41 #32472 [verbose] > │ v184 │
00:06:41 #32473 [verbose] > │ #endif │
00:06:41 #32474 [verbose] > │ #if FABLE_COMPILER_RUST && WASM │
00:06:41 #32475 [verbose] > │ let v185 : Async<unit> = null |> unbox<Async<unit>> │
00:06:41 #32476 [verbose] > │ v185 │
00:06:41 #32477 [verbose] > │ #endif │
00:06:41 #32478 [verbose] > │ #if FABLE_COMPILER_RUST && CONTRACT │
00:06:41 #32479 [verbose] > │ let v186 : Async<unit> = null |> unbox<Async<unit>> │
00:06:41 #32480 [verbose] > │ v186 │
00:06:41 #32481 [verbose] > │ #endif │
00:06:41 #32482 [verbose] > │ #if !FABLE_COMPILER && !FABLE_COMPILER_RUST && │
00:06:41 #32483 [verbose] > │ !FABLE_COMPILER_TYPESCRIPT && !WASM && !CONTRACT │
00:06:41 #32484 [verbose] > │ let v187 : Async<unit> option = None │
00:06:41 #32485 [verbose] > │ let mutable _v187 = v187 │
00:06:41 #32486 [verbose] > │ async { │
00:06:41 #32487 [verbose] > │ let v188 : US0 = US0_1 │
00:06:41 #32488 [verbose] > │ let v189 : (unit -> string) = closure11() │
00:06:41 #32489 [verbose] > │ method5(v188, v189, v162) │
00:06:41 #32490 [verbose] > │ let v190 : System.IO.FileStream option = None │
00:06:41 #32491 [verbose] > │ let mutable _v190 = v190 │
00:06:41 #32492 [verbose] > │ #if FABLE_COMPILER_RUST && !WASM && !CONTRACT │
00:06:41 #32493 [verbose] > │ let v191 : System.IO.FileStream = null |> unbox<System.IO.FileStream> │
00:06:41 #32494 [verbose] > │ v191 │
00:06:41 #32495 [verbose] > │ #endif │
00:06:41 #32496 [verbose] > │ #if FABLE_COMPILER_RUST && WASM │
00:06:41 #32497 [verbose] > │ let v192 : System.IO.FileStream = null |> unbox<System.IO.FileStream> │
00:06:41 #32498 [verbose] > │ v192 │
00:06:41 #32499 [verbose] > │ #endif │
00:06:41 #32500 [verbose] > │ #if FABLE_COMPILER_RUST && CONTRACT │
00:06:41 #32501 [verbose] > │ let v193 : System.IO.FileStream = null |> unbox<System.IO.FileStream> │
00:06:41 #32502 [verbose] > │ v193 │
00:06:41 #32503 [verbose] > │ #endif │
00:06:41 #32504 [verbose] > │ #if !FABLE_COMPILER && !FABLE_COMPILER_RUST && │
00:06:41 #32505 [verbose] > │ !FABLE_COMPILER_TYPESCRIPT && !WASM && !CONTRACT │
00:06:41 #32506 [verbose] > │ let v194 : System.IO.FileMode = System.IO.FileMode.Open │
00:06:41 #32507 [verbose] > │ let v195 : System.IO.FileAccess = System.IO.FileAccess.ReadWrite │
00:06:41 #32508 [verbose] > │ let v196 : System.IO.FileShare = System.IO.FileShare.None │
00:06:41 #32509 [verbose] > │ let v197 : System.IO.FileStream = new System.IO.FileStream (v154, v194, │
00:06:41 #32510 [verbose] > │ v195, v196) │
00:06:41 #32511 [verbose] > │ v197 │
00:06:41 #32512 [verbose] > │ #endif │
00:06:41 #32513 [verbose] > │ #if FABLE_COMPILER_TYPESCRIPT │
00:06:41 #32514 [verbose] > │ let v198 : System.IO.FileStream = null |> unbox<System.IO.FileStream> │
00:06:41 #32515 [verbose] > │ v198 │
00:06:41 #32516 [verbose] > │ #endif │
00:06:41 #32517 [verbose] > │ #if FABLE_COMPILER_PYTHON || FABLE_COMPILER_PHP || FABLE_COMPILER_DART │
00:06:41 #32518 [verbose] > │ let v199 : System.IO.FileStream = │
00:06:41 #32519 [verbose] > │ Unchecked.defaultof<System.IO.FileStream> │
00:06:41 #32520 [verbose] > │ v199 │
00:06:41 #32521 [verbose] > │ #endif │
00:06:41 #32522 [verbose] > │ |> fun x -> _v190 <- Some x │
00:06:41 #32523 [verbose] > │ let v200 : System.IO.FileStream = _v190.Value │
00:06:41 #32524 [verbose] > │ use v200 = v200 │
00:06:41 #32525 [verbose] > │ let v201 : System.IO.FileStream = v200 │
00:06:41 #32526 [verbose] > │ let v202 : US0 = US0_1 │
00:06:41 #32527 [verbose] > │ let v203 : (unit -> string) = closure12() │
00:06:41 #32528 [verbose] > │ method5(v202, v203, v162) │
00:06:41 #32529 [verbose] > │ let v204 : Async<unit> option = None │
00:06:41 #32530 [verbose] > │ let mutable _v204 = v204 │
00:06:41 #32531 [verbose] > │ #if FABLE_COMPILER_RUST && !WASM && !CONTRACT │
00:06:41 #32532 [verbose] > │ let v205 : Async<unit> = null |> unbox<Async<unit>> │
00:06:41 #32533 [verbose] > │ v205 │
00:06:41 #32534 [verbose] > │ #endif │
00:06:41 #32535 [verbose] > │ #if FABLE_COMPILER_RUST && WASM │
00:06:41 #32536 [verbose] > │ let v206 : Async<unit> = null |> unbox<Async<unit>> │
00:06:41 #32537 [verbose] > │ v206 │
00:06:41 #32538 [verbose] > │ #endif │
00:06:41 #32539 [verbose] > │ #if FABLE_COMPILER_RUST && CONTRACT │
00:06:41 #32540 [verbose] > │ let v207 : Async<unit> = null |> unbox<Async<unit>> │
00:06:41 #32541 [verbose] > │ v207 │
00:06:41 #32542 [verbose] > │ #endif │
00:06:41 #32543 [verbose] > │ #if !FABLE_COMPILER && !FABLE_COMPILER_RUST && │
00:06:41 #32544 [verbose] > │ !FABLE_COMPILER_TYPESCRIPT && !WASM && !CONTRACT │
00:06:41 #32545 [verbose] > │ let v208 : (int32 -> Async<unit>) = Async.Sleep │
00:06:41 #32546 [verbose] > │ let v209 : Async<unit> = v208 2000 │
00:06:41 #32547 [verbose] > │ v209 │
00:06:41 #32548 [verbose] > │ #endif │
00:06:41 #32549 [verbose] > │ #if FABLE_COMPILER_TYPESCRIPT │
00:06:41 #32550 [verbose] > │ let v210 : Async<unit> = null |> unbox<Async<unit>> │
00:06:41 #32551 [verbose] > │ v210 │
00:06:41 #32552 [verbose] > │ #endif │
00:06:41 #32553 [verbose] > │ #if FABLE_COMPILER_PYTHON || FABLE_COMPILER_PHP || FABLE_COMPILER_DART │
00:06:41 #32554 [verbose] > │ let v211 : Async<unit> = Unchecked.defaultof<Async<unit>> │
00:06:41 #32555 [verbose] > │ v211 │
00:06:41 #32556 [verbose] > │ #endif │
00:06:41 #32557 [verbose] > │ |> fun x -> _v204 <- Some x │
00:06:41 #32558 [verbose] > │ let v212 : Async<unit> = _v204.Value │
00:06:41 #32559 [verbose] > │ do! v212 │
00:06:41 #32560 [verbose] > │ let v213 : US0 = US0_1 │
00:06:41 #32561 [verbose] > │ let v214 : (unit -> string) = closure13() │
00:06:41 #32562 [verbose] > │ method5(v213, v214, v162) │
00:06:41 #32563 [verbose] > │ let v215 : int64 = v201.Seek (0L, System.IO.SeekOrigin.Begin) │
00:06:41 #32564 [verbose] > │ let v216 : US0 = US0_1 │
00:06:41 #32565 [verbose] > │ let v217 : (unit -> string) = closure14() │
00:06:41 #32566 [verbose] > │ method5(v216, v217, v162) │
00:06:41 #32567 [verbose] > │ let v218 : (uint8 -> unit) = v201.WriteByte │
00:06:41 #32568 [verbose] > │ v218 49uy │
00:06:41 #32569 [verbose] > │ let v219 : US0 = US0_1 │
00:06:41 #32570 [verbose] > │ let v220 : (unit -> string) = closure15() │
00:06:41 #32571 [verbose] > │ method5(v219, v220, v162) │
00:06:41 #32572 [verbose] > │ let v221 : (System.IO.FileStream -> unit) = _.Flush() │
00:06:41 #32573 [verbose] > │ v221 v201 │
00:06:41 #32574 [verbose] > │ let v222 : US0 = US0_1 │
00:06:41 #32575 [verbose] > │ let v223 : (unit -> string) = closure16() │
00:06:41 #32576 [verbose] > │ method5(v222, v223, v162) │
00:06:41 #32577 [verbose] > │ } │
00:06:41 #32578 [verbose] > │ |> fun x -> _v187 <- Some x │
00:06:41 #32579 [verbose] > │ let v224 : Async<unit> = _v187 |> Option.get │
00:06:41 #32580 [verbose] > │ v224 │
00:06:41 #32581 [verbose] > │ #endif │
00:06:41 #32582 [verbose] > │ #if FABLE_COMPILER_TYPESCRIPT │
00:06:41 #32583 [verbose] > │ let v225 : Async<unit> = null |> unbox<Async<unit>> │
00:06:41 #32584 [verbose] > │ v225 │
00:06:41 #32585 [verbose] > │ #endif │
00:06:41 #32586 [verbose] > │ #if FABLE_COMPILER_PYTHON || FABLE_COMPILER_PHP || FABLE_COMPILER_DART │
00:06:41 #32587 [verbose] > │ let v226 : Async<unit> = Unchecked.defaultof<Async<unit>> │
00:06:41 #32588 [verbose] > │ v226 │
00:06:41 #32589 [verbose] > │ #endif │
00:06:41 #32590 [verbose] > │ |> fun x -> _v183 <- Some x │
00:06:41 #32591 [verbose] > │ let v227 : Async<unit> = _v183.Value │
00:06:41 #32592 [verbose] > │ let v228 : Async<Async<unit>> option = None │
00:06:41 #32593 [verbose] > │ let mutable _v228 = v228 │
00:06:41 #32594 [verbose] > │ #if FABLE_COMPILER_RUST && !WASM && !CONTRACT │
00:06:41 #32595 [verbose] > │ let v229 : Async<Async<unit>> = null |> unbox<Async<Async<unit>>> │
00:06:41 #32596 [verbose] > │ v229 │
00:06:41 #32597 [verbose] > │ #endif │
00:06:41 #32598 [verbose] > │ #if FABLE_COMPILER_RUST && WASM │
00:06:41 #32599 [verbose] > │ let v230 : Async<Async<unit>> = null |> unbox<Async<Async<unit>>> │
00:06:41 #32600 [verbose] > │ v230 │
00:06:41 #32601 [verbose] > │ #endif │
00:06:41 #32602 [verbose] > │ #if FABLE_COMPILER_RUST && CONTRACT │
00:06:41 #32603 [verbose] > │ let v231 : Async<Async<unit>> = null |> unbox<Async<Async<unit>>> │
00:06:41 #32604 [verbose] > │ v231 │
00:06:41 #32605 [verbose] > │ #endif │
00:06:41 #32606 [verbose] > │ #if !FABLE_COMPILER && !FABLE_COMPILER_RUST && │
00:06:41 #32607 [verbose] > │ !FABLE_COMPILER_TYPESCRIPT && !WASM && !CONTRACT │
00:06:41 #32608 [verbose] > │ let v232 : (Async<unit> -> Async<Async<unit>>) = Async.StartChild │
00:06:41 #32609 [verbose] > │ let v233 : Async<Async<unit>> = v232 v227 │
00:06:41 #32610 [verbose] > │ v233 │
00:06:41 #32611 [verbose] > │ #endif │
00:06:41 #32612 [verbose] > │ #if FABLE_COMPILER_TYPESCRIPT │
00:06:41 #32613 [verbose] > │ let v234 : Async<Async<unit>> = null |> unbox<Async<Async<unit>>> │
00:06:41 #32614 [verbose] > │ v234 │
00:06:41 #32615 [verbose] > │ #endif │
00:06:41 #32616 [verbose] > │ #if FABLE_COMPILER_PYTHON || FABLE_COMPILER_PHP || FABLE_COMPILER_DART │
00:06:41 #32617 [verbose] > │ let v235 : Async<Async<unit>> = Unchecked.defaultof<Async<Async<unit>>> │
00:06:41 #32618 [verbose] > │ v235 │
00:06:41 #32619 [verbose] > │ #endif │
00:06:41 #32620 [verbose] > │ |> fun x -> _v228 <- Some x │
00:06:41 #32621 [verbose] > │ let v236 : Async<Async<unit>> = _v228.Value │
00:06:41 #32622 [verbose] > │ let! v236 = v236 │
00:06:41 #32623 [verbose] > │ let v237 : Async<unit> = v236 │
00:06:41 #32624 [verbose] > │ let v238 : US0 = US0_1 │
00:06:41 #32625 [verbose] > │ let v239 : (unit -> string) = closure17() │
00:06:41 #32626 [verbose] > │ method5(v238, v239, v162) │
00:06:41 #32627 [verbose] > │ let v240 : Async<unit> option = None │
00:06:41 #32628 [verbose] > │ let mutable _v240 = v240 │
00:06:41 #32629 [verbose] > │ #if FABLE_COMPILER_RUST && !WASM && !CONTRACT │
00:06:41 #32630 [verbose] > │ let v241 : Async<unit> = null |> unbox<Async<unit>> │
00:06:41 #32631 [verbose] > │ v241 │
00:06:41 #32632 [verbose] > │ #endif │
00:06:41 #32633 [verbose] > │ #if FABLE_COMPILER_RUST && WASM │
00:06:41 #32634 [verbose] > │ let v242 : Async<unit> = null |> unbox<Async<unit>> │
00:06:41 #32635 [verbose] > │ v242 │
00:06:41 #32636 [verbose] > │ #endif │
00:06:41 #32637 [verbose] > │ #if FABLE_COMPILER_RUST && CONTRACT │
00:06:41 #32638 [verbose] > │ let v243 : Async<unit> = null |> unbox<Async<unit>> │
00:06:41 #32639 [verbose] > │ v243 │
00:06:41 #32640 [verbose] > │ #endif │
00:06:41 #32641 [verbose] > │ #if !FABLE_COMPILER && !FABLE_COMPILER_RUST && │
00:06:41 #32642 [verbose] > │ !FABLE_COMPILER_TYPESCRIPT && !WASM && !CONTRACT │
00:06:41 #32643 [verbose] > │ let v244 : (int32 -> Async<unit>) = Async.Sleep │
00:06:41 #32644 [verbose] > │ let v245 : Async<unit> = v244 1 │
00:06:41 #32645 [verbose] > │ v245 │
00:06:41 #32646 [verbose] > │ #endif │
00:06:41 #32647 [verbose] > │ #if FABLE_COMPILER_TYPESCRIPT │
00:06:41 #32648 [verbose] > │ let v246 : Async<unit> = null |> unbox<Async<unit>> │
00:06:41 #32649 [verbose] > │ v246 │
00:06:41 #32650 [verbose] > │ #endif │
00:06:41 #32651 [verbose] > │ #if FABLE_COMPILER_PYTHON || FABLE_COMPILER_PHP || FABLE_COMPILER_DART │
00:06:41 #32652 [verbose] > │ let v247 : Async<unit> = Unchecked.defaultof<Async<unit>> │
00:06:41 #32653 [verbose] > │ v247 │
00:06:41 #32654 [verbose] > │ #endif │
00:06:41 #32655 [verbose] > │ |> fun x -> _v240 <- Some x │
00:06:41 #32656 [verbose] > │ let v248 : Async<unit> = _v240.Value │
00:06:41 #32657 [verbose] > │ do! v248 │
00:06:41 #32658 [verbose] > │ let v249 : US0 = US0_1 │
00:06:41 #32659 [verbose] > │ let v250 : (unit -> string) = closure18() │
00:06:41 #32660 [verbose] > │ method5(v249, v250, v162) │
00:06:41 #32661 [verbose] > │ let v251 : Async<int64> option = None │
00:06:41 #32662 [verbose] > │ let mutable _v251 = v251 │
00:06:41 #32663 [verbose] > │ #if FABLE_COMPILER_RUST && !WASM && !CONTRACT │
00:06:41 #32664 [verbose] > │ let v252 : Async<int64> = null |> unbox<Async<int64>> │
00:06:41 #32665 [verbose] > │ v252 │
00:06:41 #32666 [verbose] > │ #endif │
00:06:41 #32667 [verbose] > │ #if FABLE_COMPILER_RUST && WASM │
00:06:41 #32668 [verbose] > │ let v253 : Async<int64> = null |> unbox<Async<int64>> │
00:06:41 #32669 [verbose] > │ v253 │
00:06:41 #32670 [verbose] > │ #endif │
00:06:41 #32671 [verbose] > │ #if FABLE_COMPILER_RUST && CONTRACT │
00:06:41 #32672 [verbose] > │ let v254 : Async<int64> = null |> unbox<Async<int64>> │
00:06:41 #32673 [verbose] > │ v254 │
00:06:41 #32674 [verbose] > │ #endif │
00:06:41 #32675 [verbose] > │ #if !FABLE_COMPILER && !FABLE_COMPILER_RUST && │
00:06:41 #32676 [verbose] > │ !FABLE_COMPILER_TYPESCRIPT && !WASM && !CONTRACT │
00:06:41 #32677 [verbose] > │ let v255 : int64 = 0L │
00:06:41 #32678 [verbose] > │ let v256 : Async<int64> = method10(v154, v255) │
00:06:41 #32679 [verbose] > │ v256 │
00:06:41 #32680 [verbose] > │ #endif │
00:06:41 #32681 [verbose] > │ #if FABLE_COMPILER_TYPESCRIPT │
00:06:41 #32682 [verbose] > │ let v257 : Async<int64> = null |> unbox<Async<int64>> │
00:06:41 #32683 [verbose] > │ v257 │
00:06:41 #32684 [verbose] > │ #endif │
00:06:41 #32685 [verbose] > │ #if FABLE_COMPILER_PYTHON || FABLE_COMPILER_PHP || FABLE_COMPILER_DART │
00:06:41 #32686 [verbose] > │ let v258 : Async<int64> = Unchecked.defaultof<Async<int64>> │
00:06:41 #32687 [verbose] > │ v258 │
00:06:41 #32688 [verbose] > │ #endif │
00:06:41 #32689 [verbose] > │ |> fun x -> _v251 <- Some x │
00:06:41 #32690 [verbose] > │ let v259 : Async<int64> = _v251.Value │
00:06:41 #32691 [verbose] > │ let! v259 = v259 │
00:06:41 #32692 [verbose] > │ let v260 : int64 = v259 │
00:06:41 #32693 [verbose] > │ let v261 : US0 = US0_1 │
00:06:41 #32694 [verbose] > │ let v262 : (unit -> string) = closure20() │
00:06:41 #32695 [verbose] > │ method5(v261, v262, v162) │
00:06:41 #32696 [verbose] > │ let v263 : Async<string> option = None │
00:06:41 #32697 [verbose] > │ let mutable _v263 = v263 │
00:06:41 #32698 [verbose] > │ #if FABLE_COMPILER_RUST && !WASM && !CONTRACT │
00:06:41 #32699 [verbose] > │ let v264 : Async<string> = null |> unbox<Async<string>> │
00:06:41 #32700 [verbose] > │ v264 │
00:06:41 #32701 [verbose] > │ #endif │
00:06:41 #32702 [verbose] > │ #if FABLE_COMPILER_RUST && WASM │
00:06:41 #32703 [verbose] > │ let v265 : Async<string> = null |> unbox<Async<string>> │
00:06:41 #32704 [verbose] > │ v265 │
00:06:41 #32705 [verbose] > │ #endif │
00:06:41 #32706 [verbose] > │ #if FABLE_COMPILER_RUST && CONTRACT │
00:06:41 #32707 [verbose] > │ let v266 : Async<string> = null |> unbox<Async<string>> │
00:06:41 #32708 [verbose] > │ v266 │
00:06:41 #32709 [verbose] > │ #endif │
00:06:41 #32710 [verbose] > │ #if !FABLE_COMPILER && !FABLE_COMPILER_RUST && │
00:06:41 #32711 [verbose] > │ !FABLE_COMPILER_TYPESCRIPT && !WASM && !CONTRACT │
00:06:41 #32712 [verbose] > │ let v267 : (string -> System.Threading.Tasks.Task<string>) = │
00:06:41 #32713 [verbose] > │ System.IO.File.ReadAllTextAsync │
00:06:41 #32714 [verbose] > │ let v268 : System.Threading.Tasks.Task<string> = v267 v154 │
00:06:41 #32715 [verbose] > │ let v269 : Async<string> option = None │
00:06:41 #32716 [verbose] > │ let mutable _v269 = v269 │
00:06:41 #32717 [verbose] > │ #if FABLE_COMPILER_RUST && !WASM && !CONTRACT │
00:06:41 #32718 [verbose] > │ let v270 : Async<string> = null |> unbox<Async<string>> │
00:06:41 #32719 [verbose] > │ v270 │
00:06:41 #32720 [verbose] > │ #endif │
00:06:41 #32721 [verbose] > │ #if FABLE_COMPILER_RUST && WASM │
00:06:41 #32722 [verbose] > │ let v271 : Async<string> = null |> unbox<Async<string>> │
00:06:41 #32723 [verbose] > │ v271 │
00:06:41 #32724 [verbose] > │ #endif │
00:06:41 #32725 [verbose] > │ #if FABLE_COMPILER_RUST && CONTRACT │
00:06:41 #32726 [verbose] > │ let v272 : Async<string> = null |> unbox<Async<string>> │
00:06:41 #32727 [verbose] > │ v272 │
00:06:41 #32728 [verbose] > │ #endif │
00:06:41 #32729 [verbose] > │ #if !FABLE_COMPILER && !FABLE_COMPILER_RUST && │
00:06:41 #32730 [verbose] > │ !FABLE_COMPILER_TYPESCRIPT && !WASM && !CONTRACT │
00:06:41 #32731 [verbose] > │ let v273 : (System.Threading.Tasks.Task<string> -> Async<string>) = │
00:06:41 #32732 [verbose] > │ Async.AwaitTask │
00:06:41 #32733 [verbose] > │ let v274 : Async<string> = v273 v268 │
00:06:41 #32734 [verbose] > │ v274 │
00:06:41 #32735 [verbose] > │ #endif │
00:06:41 #32736 [verbose] > │ #if FABLE_COMPILER_TYPESCRIPT │
00:06:41 #32737 [verbose] > │ let v275 : Async<string> = null |> unbox<Async<string>> │
00:06:41 #32738 [verbose] > │ v275 │
00:06:41 #32739 [verbose] > │ #endif │
00:06:41 #32740 [verbose] > │ #if FABLE_COMPILER_PYTHON || FABLE_COMPILER_PHP || FABLE_COMPILER_DART │
00:06:41 #32741 [verbose] > │ let v276 : Async<string> = Unchecked.defaultof<Async<string>> │
00:06:41 #32742 [verbose] > │ v276 │
00:06:41 #32743 [verbose] > │ #endif │
00:06:41 #32744 [verbose] > │ |> fun x -> _v269 <- Some x │
00:06:41 #32745 [verbose] > │ let v277 : Async<string> = _v269.Value │
00:06:41 #32746 [verbose] > │ v277 │
00:06:41 #32747 [verbose] > │ #endif │
00:06:41 #32748 [verbose] > │ #if FABLE_COMPILER_TYPESCRIPT │
00:06:41 #32749 [verbose] > │ let v278 : Async<string> = null |> unbox<Async<string>> │
00:06:41 #32750 [verbose] > │ v278 │
00:06:41 #32751 [verbose] > │ #endif │
00:06:41 #32752 [verbose] > │ #if FABLE_COMPILER_PYTHON || FABLE_COMPILER_PHP || FABLE_COMPILER_DART │
00:06:41 #32753 [verbose] > │ let v279 : Async<string> = Unchecked.defaultof<Async<string>> │
00:06:41 #32754 [verbose] > │ v279 │
00:06:41 #32755 [verbose] > │ #endif │
00:06:41 #32756 [verbose] > │ |> fun x -> _v263 <- Some x │
00:06:41 #32757 [verbose] > │ let v280 : Async<string> = _v263.Value │
00:06:41 #32758 [verbose] > │ let! v280 = v280 │
00:06:41 #32759 [verbose] > │ let v281 : string = v280 │
00:06:41 #32760 [verbose] > │ let v282 : US0 = US0_1 │
00:06:41 #32761 [verbose] > │ let v283 : (unit -> string) = closure21() │
00:06:41 #32762 [verbose] > │ method5(v282, v283, v162) │
00:06:41 #32763 [verbose] > │ do! v237 │
00:06:41 #32764 [verbose] > │ let v284 : US0 = US0_1 │
00:06:41 #32765 [verbose] > │ let v285 : (unit -> string) = closure22() │
00:06:41 #32766 [verbose] > │ method5(v284, v285, v162) │
00:06:41 #32767 [verbose] > │ return struct (v260, v281) │
00:06:41 #32768 [verbose] > │ } │
00:06:41 #32769 [verbose] > │ |> fun x -> _v159 <- Some x │
00:06:41 #32770 [verbose] > │ let v286 : Async<struct (int64 * string)> = _v159 |> Option.get │
00:06:41 #32771 [verbose] > │ v286 │
00:06:41 #32772 [verbose] > │ #endif │
00:06:41 #32773 [verbose] > │ #if FABLE_COMPILER_TYPESCRIPT │
00:06:41 #32774 [verbose] > │ let v287 : Async<struct (int64 * string)> = null |> unbox<Async<struct │
00:06:41 #32775 [verbose] > │ (int64 * string)>> │
00:06:41 #32776 [verbose] > │ v287 │
00:06:41 #32777 [verbose] > │ #endif │
00:06:41 #32778 [verbose] > │ #if FABLE_COMPILER_PYTHON || FABLE_COMPILER_PHP || FABLE_COMPILER_DART │
00:06:41 #32779 [verbose] > │ let v288 : Async<struct (int64 * string)> = │
00:06:41 #32780 [verbose] > │ Unchecked.defaultof<Async<struct (int64 * string)>> │
00:06:41 #32781 [verbose] > │ v288 │
00:06:41 #32782 [verbose] > │ #endif │
00:06:41 #32783 [verbose] > │ |> fun x -> _v155 <- Some x │
00:06:41 #32784 [verbose] > │ let v289 : Async<struct (int64 * string)> = _v155.Value │
00:06:41 #32785 [verbose] > │ let v290 : Async<US3> option = None │
00:06:41 #32786 [verbose] > │ let mutable _v290 = v290 │
00:06:41 #32787 [verbose] > │ #if FABLE_COMPILER_RUST && !WASM && !CONTRACT │
00:06:41 #32788 [verbose] > │ let v291 : Async<US3> = null |> unbox<Async<US3>> │
00:06:41 #32789 [verbose] > │ v291 │
00:06:41 #32790 [verbose] > │ #endif │
00:06:41 #32791 [verbose] > │ #if FABLE_COMPILER_RUST && WASM │
00:06:41 #32792 [verbose] > │ let v292 : Async<US3> = null |> unbox<Async<US3>> │
00:06:41 #32793 [verbose] > │ v292 │
00:06:41 #32794 [verbose] > │ #endif │
00:06:41 #32795 [verbose] > │ #if FABLE_COMPILER_RUST && CONTRACT │
00:06:41 #32796 [verbose] > │ let v293 : Async<US3> = null |> unbox<Async<US3>> │
00:06:41 #32797 [verbose] > │ v293 │
00:06:41 #32798 [verbose] > │ #endif │
00:06:41 #32799 [verbose] > │ #if !FABLE_COMPILER && !FABLE_COMPILER_RUST && │
00:06:41 #32800 [verbose] > │ !FABLE_COMPILER_TYPESCRIPT && !WASM && !CONTRACT │
00:06:41 #32801 [verbose] > │ let v294 : Async<US3> option = None │
00:06:41 #32802 [verbose] > │ let mutable _v294 = v294 │
00:06:41 #32803 [verbose] > │ #if FABLE_COMPILER_RUST && !WASM && !CONTRACT │
00:06:41 #32804 [verbose] > │ let v295 : Async<US3> = null |> unbox<Async<US3>> │
00:06:41 #32805 [verbose] > │ v295 │
00:06:41 #32806 [verbose] > │ #endif │
00:06:41 #32807 [verbose] > │ #if FABLE_COMPILER_RUST && WASM │
00:06:41 #32808 [verbose] > │ let v296 : Async<US3> = null |> unbox<Async<US3>> │
00:06:41 #32809 [verbose] > │ v296 │
00:06:41 #32810 [verbose] > │ #endif │
00:06:41 #32811 [verbose] > │ #if FABLE_COMPILER_RUST && CONTRACT │
00:06:41 #32812 [verbose] > │ let v297 : Async<US3> = null |> unbox<Async<US3>> │
00:06:41 #32813 [verbose] > │ v297 │
00:06:41 #32814 [verbose] > │ #endif │
00:06:41 #32815 [verbose] > │ #if !FABLE_COMPILER && !FABLE_COMPILER_RUST && │
00:06:41 #32816 [verbose] > │ !FABLE_COMPILER_TYPESCRIPT && !WASM && !CONTRACT │
00:06:41 #32817 [verbose] > │ let v298 : Async<US3> option = None │
00:06:41 #32818 [verbose] > │ let mutable _v298 = v298 │
00:06:41 #32819 [verbose] > │ async { │
00:06:41 #32820 [verbose] > │ let v299 : Async<Async<struct (int64 * string)>> option = None │
00:06:41 #32821 [verbose] > │ let mutable _v299 = v299 │
00:06:41 #32822 [verbose] > │ #if FABLE_COMPILER_RUST && !WASM && !CONTRACT │
00:06:41 #32823 [verbose] > │ let v300 : Async<Async<struct (int64 * string)>> = null |> │
00:06:41 #32824 [verbose] > │ unbox<Async<Async<struct (int64 * string)>>> │
00:06:41 #32825 [verbose] > │ v300 │
00:06:41 #32826 [verbose] > │ #endif │
00:06:41 #32827 [verbose] > │ #if FABLE_COMPILER_RUST && WASM │
00:06:41 #32828 [verbose] > │ let v301 : Async<Async<struct (int64 * string)>> = null |> │
00:06:41 #32829 [verbose] > │ unbox<Async<Async<struct (int64 * string)>>> │
00:06:41 #32830 [verbose] > │ v301 │
00:06:41 #32831 [verbose] > │ #endif │
00:06:41 #32832 [verbose] > │ #if FABLE_COMPILER_RUST && CONTRACT │
00:06:41 #32833 [verbose] > │ let v302 : Async<Async<struct (int64 * string)>> = null |> │
00:06:41 #32834 [verbose] > │ unbox<Async<Async<struct (int64 * string)>>> │
00:06:41 #32835 [verbose] > │ v302 │
00:06:41 #32836 [verbose] > │ #endif │
00:06:41 #32837 [verbose] > │ #if !FABLE_COMPILER && !FABLE_COMPILER_RUST && │
00:06:41 #32838 [verbose] > │ !FABLE_COMPILER_TYPESCRIPT && !WASM && !CONTRACT │
00:06:41 #32839 [verbose] > │ let v303 : Async<Async<struct (int64 * string)>> = Async.StartChild │
00:06:41 #32840 [verbose] > │ (v289, 3000) │
00:06:41 #32841 [verbose] > │ v303 │
00:06:41 #32842 [verbose] > │ #endif │
00:06:41 #32843 [verbose] > │ #if FABLE_COMPILER_TYPESCRIPT │
00:06:41 #32844 [verbose] > │ let v304 : Async<Async<struct (int64 * string)>> = null |> │
00:06:41 #32845 [verbose] > │ unbox<Async<Async<struct (int64 * string)>>> │
00:06:41 #32846 [verbose] > │ v304 │
00:06:41 #32847 [verbose] > │ #endif │
00:06:41 #32848 [verbose] > │ #if FABLE_COMPILER_PYTHON || FABLE_COMPILER_PHP || FABLE_COMPILER_DART │
00:06:41 #32849 [verbose] > │ let v305 : Async<Async<struct (int64 * string)>> = │
00:06:41 #32850 [verbose] > │ Unchecked.defaultof<Async<Async<struct (int64 * string)>>> │
00:06:41 #32851 [verbose] > │ v305 │
00:06:41 #32852 [verbose] > │ #endif │
00:06:41 #32853 [verbose] > │ |> fun x -> _v299 <- Some x │
00:06:41 #32854 [verbose] > │ let v306 : Async<Async<struct (int64 * string)>> = _v299.Value │
00:06:41 #32855 [verbose] > │ let! v306 = v306 │
00:06:41 #32856 [verbose] > │ let v307 : Async<struct (int64 * string)> = v306 │
00:06:41 #32857 [verbose] > │ let v308 : Async<Choice<struct (int64 * string), exn>> option = None │
00:06:41 #32858 [verbose] > │ let mutable _v308 = v308 │
00:06:41 #32859 [verbose] > │ #if FABLE_COMPILER_RUST && !WASM && !CONTRACT │
00:06:41 #32860 [verbose] > │ let v309 : Async<Choice<struct (int64 * string), exn>> = null |> │
00:06:41 #32861 [verbose] > │ unbox<Async<Choice<struct (int64 * string), exn>>> │
00:06:41 #32862 [verbose] > │ v309 │
00:06:41 #32863 [verbose] > │ #endif │
00:06:41 #32864 [verbose] > │ #if FABLE_COMPILER_RUST && WASM │
00:06:41 #32865 [verbose] > │ let v310 : Async<Choice<struct (int64 * string), exn>> = null |> │
00:06:41 #32866 [verbose] > │ unbox<Async<Choice<struct (int64 * string), exn>>> │
00:06:41 #32867 [verbose] > │ v310 │
00:06:41 #32868 [verbose] > │ #endif │
00:06:41 #32869 [verbose] > │ #if FABLE_COMPILER_RUST && CONTRACT │
00:06:41 #32870 [verbose] > │ let v311 : Async<Choice<struct (int64 * string), exn>> = null |> │
00:06:41 #32871 [verbose] > │ unbox<Async<Choice<struct (int64 * string), exn>>> │
00:06:41 #32872 [verbose] > │ v311 │
00:06:41 #32873 [verbose] > │ #endif │
00:06:41 #32874 [verbose] > │ #if !FABLE_COMPILER && !FABLE_COMPILER_RUST && │
00:06:41 #32875 [verbose] > │ !FABLE_COMPILER_TYPESCRIPT && !WASM && !CONTRACT │
00:06:41 #32876 [verbose] > │ let v312 : (Async<struct (int64 * string)> -> Async<Choice<struct (int64 │
00:06:41 #32877 [verbose] > │ * string), exn>>) = Async.Catch │
00:06:41 #32878 [verbose] > │ let v313 : Async<Choice<struct (int64 * string), exn>> = v312 v307 │
00:06:41 #32879 [verbose] > │ v313 │
00:06:41 #32880 [verbose] > │ #endif │
00:06:41 #32881 [verbose] > │ #if FABLE_COMPILER_TYPESCRIPT │
00:06:41 #32882 [verbose] > │ let v314 : Async<Choice<struct (int64 * string), exn>> = null |> │
00:06:41 #32883 [verbose] > │ unbox<Async<Choice<struct (int64 * string), exn>>> │
00:06:41 #32884 [verbose] > │ v314 │
00:06:41 #32885 [verbose] > │ #endif │
00:06:41 #32886 [verbose] > │ #if FABLE_COMPILER_PYTHON || FABLE_COMPILER_PHP || FABLE_COMPILER_DART │
00:06:41 #32887 [verbose] > │ let v315 : Async<Choice<struct (int64 * string), exn>> = │
00:06:41 #32888 [verbose] > │ Unchecked.defaultof<Async<Choice<struct (int64 * string), exn>>> │
00:06:41 #32889 [verbose] > │ v315 │
00:06:41 #32890 [verbose] > │ #endif │
00:06:41 #32891 [verbose] > │ |> fun x -> _v308 <- Some x │
00:06:41 #32892 [verbose] > │ let v316 : Async<Choice<struct (int64 * string), exn>> = _v308.Value │
00:06:41 #32893 [verbose] > │ let v317 : Async<US4> option = None │
00:06:41 #32894 [verbose] > │ let mutable _v317 = v317 │
00:06:41 #32895 [verbose] > │ #if FABLE_COMPILER_RUST && !WASM && !CONTRACT │
00:06:41 #32896 [verbose] > │ let v318 : Async<US4> = null |> unbox<Async<US4>> │
00:06:41 #32897 [verbose] > │ v318 │
00:06:41 #32898 [verbose] > │ #endif │
00:06:41 #32899 [verbose] > │ #if FABLE_COMPILER_RUST && WASM │
00:06:41 #32900 [verbose] > │ let v319 : Async<US4> = null |> unbox<Async<US4>> │
00:06:41 #32901 [verbose] > │ v319 │
00:06:41 #32902 [verbose] > │ #endif │
00:06:41 #32903 [verbose] > │ #if FABLE_COMPILER_RUST && CONTRACT │
00:06:41 #32904 [verbose] > │ let v320 : Async<US4> = null |> unbox<Async<US4>> │
00:06:41 #32905 [verbose] > │ v320 │
00:06:41 #32906 [verbose] > │ #endif │
00:06:41 #32907 [verbose] > │ #if !FABLE_COMPILER && !FABLE_COMPILER_RUST && │
00:06:41 #32908 [verbose] > │ !FABLE_COMPILER_TYPESCRIPT && !WASM && !CONTRACT │
00:06:41 #32909 [verbose] > │ let v321 : Async<US4> option = None │
00:06:41 #32910 [verbose] > │ let mutable _v321 = v321 │
00:06:41 #32911 [verbose] > │ async { │
00:06:41 #32912 [verbose] > │ let! v316 = v316 │
00:06:41 #32913 [verbose] > │ let v322 : Choice<struct (int64 * string), exn> = v316 │
00:06:41 #32914 [verbose] > │ let v323 : US4 option = None │
00:06:41 #32915 [verbose] > │ let mutable _v323 = v323 │
00:06:41 #32916 [verbose] > │ #if FABLE_COMPILER_RUST && !WASM && !CONTRACT │
00:06:41 #32917 [verbose] > │ let v324 : US4 = null |> unbox<US4> │
00:06:41 #32918 [verbose] > │ v324 │
00:06:41 #32919 [verbose] > │ #endif │
00:06:41 #32920 [verbose] > │ #if FABLE_COMPILER_RUST && WASM │
00:06:41 #32921 [verbose] > │ let v325 : US4 = null |> unbox<US4> │
00:06:41 #32922 [verbose] > │ v325 │
00:06:41 #32923 [verbose] > │ #endif │
00:06:41 #32924 [verbose] > │ #if FABLE_COMPILER_RUST && CONTRACT │
00:06:41 #32925 [verbose] > │ let v326 : US4 = null |> unbox<US4> │
00:06:41 #32926 [verbose] > │ v326 │
00:06:41 #32927 [verbose] > │ #endif │
00:06:41 #32928 [verbose] > │ #if !FABLE_COMPILER && !FABLE_COMPILER_RUST && │
00:06:41 #32929 [verbose] > │ !FABLE_COMPILER_TYPESCRIPT && !WASM && !CONTRACT │
00:06:41 #32930 [verbose] > │ let v327 : (struct (int64 * string) -> US4) = closure23() │
00:06:41 #32931 [verbose] > │ let v328 : (exn -> US4) = closure24() │
00:06:41 #32932 [verbose] > │ let v329 : US4 = match v322 with Choice1Of2 x -> v327 x | Choice2Of2 x │
00:06:41 #32933 [verbose] > │ -> v328 x │
00:06:41 #32934 [verbose] > │ v329 │
00:06:41 #32935 [verbose] > │ #endif │
00:06:41 #32936 [verbose] > │ #if FABLE_COMPILER_TYPESCRIPT │
00:06:41 #32937 [verbose] > │ let v330 : US4 = null |> unbox<US4> │
00:06:41 #32938 [verbose] > │ v330 │
00:06:41 #32939 [verbose] > │ #endif │
00:06:41 #32940 [verbose] > │ #if FABLE_COMPILER_PYTHON || FABLE_COMPILER_PHP || FABLE_COMPILER_DART │
00:06:41 #32941 [verbose] > │ let v331 : US4 = Unchecked.defaultof<US4> │
00:06:41 #32942 [verbose] > │ v331 │
00:06:41 #32943 [verbose] > │ #endif │
00:06:41 #32944 [verbose] > │ |> fun x -> _v323 <- Some x │
00:06:41 #32945 [verbose] > │ let v332 : US4 = _v323.Value │
00:06:41 #32946 [verbose] > │ return v332 │
00:06:41 #32947 [verbose] > │ } │
00:06:41 #32948 [verbose] > │ |> fun x -> _v321 <- Some x │
00:06:41 #32949 [verbose] > │ let v333 : Async<US4> = _v321 |> Option.get │
00:06:41 #32950 [verbose] > │ v333 │
00:06:41 #32951 [verbose] > │ #endif │
00:06:41 #32952 [verbose] > │ #if FABLE_COMPILER_TYPESCRIPT │
00:06:41 #32953 [verbose] > │ let v334 : Async<US4> = null |> unbox<Async<US4>> │
00:06:41 #32954 [verbose] > │ v334 │
00:06:41 #32955 [verbose] > │ #endif │
00:06:41 #32956 [verbose] > │ #if FABLE_COMPILER_PYTHON || FABLE_COMPILER_PHP || FABLE_COMPILER_DART │
00:06:41 #32957 [verbose] > │ let v335 : Async<US4> = Unchecked.defaultof<Async<US4>> │
00:06:41 #32958 [verbose] > │ v335 │
00:06:41 #32959 [verbose] > │ #endif │
00:06:41 #32960 [verbose] > │ |> fun x -> _v317 <- Some x │
00:06:41 #32961 [verbose] > │ let v336 : Async<US4> = _v317.Value │
00:06:41 #32962 [verbose] > │ let v337 : Async<US5> option = None │
00:06:41 #32963 [verbose] > │ let mutable _v337 = v337 │
00:06:41 #32964 [verbose] > │ #if FABLE_COMPILER_RUST && !WASM && !CONTRACT │
00:06:41 #32965 [verbose] > │ let v338 : Async<US5> = null |> unbox<Async<US5>> │
00:06:41 #32966 [verbose] > │ v338 │
00:06:41 #32967 [verbose] > │ #endif │
00:06:41 #32968 [verbose] > │ #if FABLE_COMPILER_RUST && WASM │
00:06:41 #32969 [verbose] > │ let v339 : Async<US5> = null |> unbox<Async<US5>> │
00:06:41 #32970 [verbose] > │ v339 │
00:06:41 #32971 [verbose] > │ #endif │
00:06:41 #32972 [verbose] > │ #if FABLE_COMPILER_RUST && CONTRACT │
00:06:41 #32973 [verbose] > │ let v340 : Async<US5> = null |> unbox<Async<US5>> │
00:06:41 #32974 [verbose] > │ v340 │
00:06:41 #32975 [verbose] > │ #endif │
00:06:41 #32976 [verbose] > │ #if !FABLE_COMPILER && !FABLE_COMPILER_RUST && │
00:06:41 #32977 [verbose] > │ !FABLE_COMPILER_TYPESCRIPT && !WASM && !CONTRACT │
00:06:41 #32978 [verbose] > │ let v341 : Async<US5> option = None │
00:06:41 #32979 [verbose] > │ let mutable _v341 = v341 │
00:06:41 #32980 [verbose] > │ async { │
00:06:41 #32981 [verbose] > │ let! v336 = v336 │
00:06:41 #32982 [verbose] > │ let v342 : US4 = v336 │
00:06:41 #32983 [verbose] > │ let v349 : US5 = │
00:06:41 #32984 [verbose] > │ match v342 with │
00:06:41 #32985 [verbose] > │ | US4_0(v343, v344) -> (* Choice1Of2 *) │
00:06:41 #32986 [verbose] > │ US5_0(v343, v344) │
00:06:41 #32987 [verbose] > │ | US4_1(v346) -> (* Choice2Of2 *) │
00:06:41 #32988 [verbose] > │ US5_1(v346) │
00:06:41 #32989 [verbose] > │ return v349 │
00:06:41 #32990 [verbose] > │ } │
00:06:41 #32991 [verbose] > │ |> fun x -> _v341 <- Some x │
00:06:41 #32992 [verbose] > │ let v350 : Async<US5> = _v341 |> Option.get │
00:06:41 #32993 [verbose] > │ v350 │
00:06:41 #32994 [verbose] > │ #endif │
00:06:41 #32995 [verbose] > │ #if FABLE_COMPILER_TYPESCRIPT │
00:06:41 #32996 [verbose] > │ let v351 : Async<US5> = null |> unbox<Async<US5>> │
00:06:41 #32997 [verbose] > │ v351 │
00:06:41 #32998 [verbose] > │ #endif │
00:06:41 #32999 [verbose] > │ #if FABLE_COMPILER_PYTHON || FABLE_COMPILER_PHP || FABLE_COMPILER_DART │
00:06:41 #33000 [verbose] > │ let v352 : Async<US5> = Unchecked.defaultof<Async<US5>> │
00:06:41 #33001 [verbose] > │ v352 │
00:06:41 #33002 [verbose] > │ #endif │
00:06:41 #33003 [verbose] > │ |> fun x -> _v337 <- Some x │
00:06:41 #33004 [verbose] > │ let v353 : Async<US5> = _v337.Value │
00:06:41 #33005 [verbose] > │ let v354 : Async<US3> option = None │
00:06:41 #33006 [verbose] > │ let mutable _v354 = v354 │
00:06:41 #33007 [verbose] > │ #if FABLE_COMPILER_RUST && !WASM && !CONTRACT │
00:06:41 #33008 [verbose] > │ let v355 : Async<US3> = null |> unbox<Async<US3>> │
00:06:41 #33009 [verbose] > │ v355 │
00:06:41 #33010 [verbose] > │ #endif │
00:06:41 #33011 [verbose] > │ #if FABLE_COMPILER_RUST && WASM │
00:06:41 #33012 [verbose] > │ let v356 : Async<US3> = null |> unbox<Async<US3>> │
00:06:41 #33013 [verbose] > │ v356 │
00:06:41 #33014 [verbose] > │ #endif │
00:06:41 #33015 [verbose] > │ #if FABLE_COMPILER_RUST && CONTRACT │
00:06:41 #33016 [verbose] > │ let v357 : Async<US3> = null |> unbox<Async<US3>> │
00:06:41 #33017 [verbose] > │ v357 │
00:06:41 #33018 [verbose] > │ #endif │
00:06:41 #33019 [verbose] > │ #if !FABLE_COMPILER && !FABLE_COMPILER_RUST && │
00:06:41 #33020 [verbose] > │ !FABLE_COMPILER_TYPESCRIPT && !WASM && !CONTRACT │
00:06:41 #33021 [verbose] > │ let v358 : Async<US3> option = None │
00:06:41 #33022 [verbose] > │ let mutable _v358 = v358 │
00:06:41 #33023 [verbose] > │ async { │
00:06:41 #33024 [verbose] > │ let! v353 = v353 │
00:06:41 #33025 [verbose] > │ let v359 : US5 = v353 │
00:06:41 #33026 [verbose] > │ let v385 : US3 = │
00:06:41 #33027 [verbose] > │ match v359 with │
00:06:41 #33028 [verbose] > │ | US5_1(v363) -> (* Error *) │
00:06:41 #33029 [verbose] > │ let v364 : string = $"%A{v363}" │
00:06:41 #33030 [verbose] > │ let v365 : string = "System.TimeoutException" │
00:06:41 #33031 [verbose] > │ let v366 : bool = v364.Contains v365 │
00:06:41 #33032 [verbose] > │ if v366 then │
00:06:41 #33033 [verbose] > │ let v367 : US0 = US0_1 │
00:06:41 #33034 [verbose] > │ let v368 : (unit -> string) = closure25() │
00:06:41 #33035 [verbose] > │ let v369 : (unit -> string) = closure26() │
00:06:41 #33036 [verbose] > │ method5(v367, v368, v369) │
00:06:41 #33037 [verbose] > │ US3_1 │
00:06:41 #33038 [verbose] > │ else │
00:06:41 #33039 [verbose] > │ let v371 : string option = None │
00:06:41 #33040 [verbose] > │ let mutable _v371 = v371 │
00:06:41 #33041 [verbose] > │ #if FABLE_COMPILER_RUST && !WASM && !CONTRACT │
00:06:41 #33042 [verbose] > │ let v372 : string = $"%A{v363}" │
00:06:41 #33043 [verbose] > │ v372 │
00:06:41 #33044 [verbose] > │ #endif │
00:06:41 #33045 [verbose] > │ #if FABLE_COMPILER_RUST && WASM │
00:06:41 #33046 [verbose] > │ let v373 : string = $"%A{v363}" │
00:06:41 #33047 [verbose] > │ v373 │
00:06:41 #33048 [verbose] > │ #endif │
00:06:41 #33049 [verbose] > │ #if FABLE_COMPILER_RUST && CONTRACT │
00:06:41 #33050 [verbose] > │ let v374 : string = $"%A{v363}" │
00:06:41 #33051 [verbose] > │ v374 │
00:06:41 #33052 [verbose] > │ #endif │
00:06:41 #33053 [verbose] > │ #if !FABLE_COMPILER && !FABLE_COMPILER_RUST && │
00:06:41 #33054 [verbose] > │ !FABLE_COMPILER_TYPESCRIPT && !WASM && !CONTRACT │
00:06:41 #33055 [verbose] > │ let v375 : string = $"{v363.GetType ()}: {v363.Message}" │
00:06:41 #33056 [verbose] > │ v375 │
00:06:41 #33057 [verbose] > │ #endif │
00:06:41 #33058 [verbose] > │ #if FABLE_COMPILER_TYPESCRIPT │
00:06:41 #33059 [verbose] > │ let v376 : string = $"%A{v363}" │
00:06:41 #33060 [verbose] > │ v376 │
00:06:41 #33061 [verbose] > │ #endif │
00:06:41 #33062 [verbose] > │ #if FABLE_COMPILER_PYTHON || FABLE_COMPILER_PHP || │
00:06:41 #33063 [verbose] > │ FABLE_COMPILER_DART │
00:06:41 #33064 [verbose] > │ let v377 : string = Unchecked.defaultof<string> │
00:06:41 #33065 [verbose] > │ v377 │
00:06:41 #33066 [verbose] > │ #endif │
00:06:41 #33067 [verbose] > │ |> fun x -> _v371 <- Some x │
00:06:41 #33068 [verbose] > │ let v378 : string = _v371.Value │
00:06:41 #33069 [verbose] > │ let v379 : US0 = US0_4 │
00:06:41 #33070 [verbose] > │ let v380 : (unit -> string) = closure27(v378) │
00:06:41 #33071 [verbose] > │ let v381 : (unit -> string) = closure26() │
00:06:41 #33072 [verbose] > │ method5(v379, v380, v381) │
00:06:41 #33073 [verbose] > │ US3_1 │
00:06:41 #33074 [verbose] > │ | US5_0(v360, v361) -> (* Ok *) │
00:06:41 #33075 [verbose] > │ US3_0(v360, v361) │
00:06:41 #33076 [verbose] > │ return v385 │
00:06:41 #33077 [verbose] > │ } │
00:06:41 #33078 [verbose] > │ |> fun x -> _v358 <- Some x │
00:06:41 #33079 [verbose] > │ let v386 : Async<US3> = _v358 |> Option.get │
00:06:41 #33080 [verbose] > │ v386 │
00:06:41 #33081 [verbose] > │ #endif │
00:06:41 #33082 [verbose] > │ #if FABLE_COMPILER_TYPESCRIPT │
00:06:41 #33083 [verbose] > │ let v387 : Async<US3> = null |> unbox<Async<US3>> │
00:06:41 #33084 [verbose] > │ v387 │
00:06:41 #33085 [verbose] > │ #endif │
00:06:41 #33086 [verbose] > │ #if FABLE_COMPILER_PYTHON || FABLE_COMPILER_PHP || FABLE_COMPILER_DART │
00:06:41 #33087 [verbose] > │ let v388 : Async<US3> = Unchecked.defaultof<Async<US3>> │
00:06:41 #33088 [verbose] > │ v388 │
00:06:41 #33089 [verbose] > │ #endif │
00:06:41 #33090 [verbose] > │ |> fun x -> _v354 <- Some x │
00:06:41 #33091 [verbose] > │ let v389 : Async<US3> = _v354.Value │
00:06:41 #33092 [verbose] > │ return! v389 │
00:06:41 #33093 [verbose] > │ } │
00:06:41 #33094 [verbose] > │ |> fun x -> _v298 <- Some x │
00:06:41 #33095 [verbose] > │ let v390 : Async<US3> = _v298 |> Option.get │
00:06:41 #33096 [verbose] > │ v390 │
00:06:41 #33097 [verbose] > │ #endif │
00:06:41 #33098 [verbose] > │ #if FABLE_COMPILER_TYPESCRIPT │
00:06:41 #33099 [verbose] > │ let v391 : Async<US3> = null |> unbox<Async<US3>> │
00:06:41 #33100 [verbose] > │ v391 │
00:06:41 #33101 [verbose] > │ #endif │
00:06:41 #33102 [verbose] > │ #if FABLE_COMPILER_PYTHON || FABLE_COMPILER_PHP || FABLE_COMPILER_DART │
00:06:41 #33103 [verbose] > │ let v392 : Async<US3> = Unchecked.defaultof<Async<US3>> │
00:06:41 #33104 [verbose] > │ v392 │
00:06:41 #33105 [verbose] > │ #endif │
00:06:41 #33106 [verbose] > │ |> fun x -> _v294 <- Some x │
00:06:41 #33107 [verbose] > │ let v393 : Async<US3> = _v294.Value │
00:06:41 #33108 [verbose] > │ v393 │
00:06:41 #33109 [verbose] > │ #endif │
00:06:41 #33110 [verbose] > │ #if FABLE_COMPILER_TYPESCRIPT │
00:06:41 #33111 [verbose] > │ let v394 : Async<US3> = null |> unbox<Async<US3>> │
00:06:41 #33112 [verbose] > │ v394 │
00:06:41 #33113 [verbose] > │ #endif │
00:06:41 #33114 [verbose] > │ #if FABLE_COMPILER_PYTHON || FABLE_COMPILER_PHP || FABLE_COMPILER_DART │
00:06:41 #33115 [verbose] > │ let v395 : Async<US3> = Unchecked.defaultof<Async<US3>> │
00:06:41 #33116 [verbose] > │ v395 │
00:06:41 #33117 [verbose] > │ #endif │
00:06:41 #33118 [verbose] > │ |> fun x -> _v290 <- Some x │
00:06:41 #33119 [verbose] > │ let v396 : Async<US3> = _v290.Value │
00:06:41 #33120 [verbose] > │ let v397 : US3 option = None │
00:06:41 #33121 [verbose] > │ let mutable _v397 = v397 │
00:06:41 #33122 [verbose] > │ #if FABLE_COMPILER_RUST && !WASM && !CONTRACT │
00:06:41 #33123 [verbose] > │ let v398 : US3 = null |> unbox<US3> │
00:06:41 #33124 [verbose] > │ v398 │
00:06:41 #33125 [verbose] > │ #endif │
00:06:41 #33126 [verbose] > │ #if FABLE_COMPILER_RUST && WASM │
00:06:41 #33127 [verbose] > │ let v399 : US3 = null |> unbox<US3> │
00:06:41 #33128 [verbose] > │ v399 │
00:06:41 #33129 [verbose] > │ #endif │
00:06:41 #33130 [verbose] > │ #if FABLE_COMPILER_RUST && CONTRACT │
00:06:41 #33131 [verbose] > │ let v400 : US3 = null |> unbox<US3> │
00:06:41 #33132 [verbose] > │ v400 │
00:06:41 #33133 [verbose] > │ #endif │
00:06:41 #33134 [verbose] > │ #if !FABLE_COMPILER && !FABLE_COMPILER_RUST && │
00:06:41 #33135 [verbose] > │ !FABLE_COMPILER_TYPESCRIPT && !WASM && !CONTRACT │
00:06:41 #33136 [verbose] > │ let v401 : (Async<US3> -> US3) = Async.RunSynchronously │
00:06:41 #33137 [verbose] > │ let v402 : US3 = v401 v396 │
00:06:41 #33138 [verbose] > │ v402 │
00:06:41 #33139 [verbose] > │ #endif │
00:06:41 #33140 [verbose] > │ #if FABLE_COMPILER_TYPESCRIPT │
00:06:41 #33141 [verbose] > │ let v403 : US3 = null |> unbox<US3> │
00:06:41 #33142 [verbose] > │ v403 │
00:06:41 #33143 [verbose] > │ #endif │
00:06:41 #33144 [verbose] > │ #if FABLE_COMPILER_PYTHON || FABLE_COMPILER_PHP || FABLE_COMPILER_DART │
00:06:41 #33145 [verbose] > │ let v404 : US3 = Unchecked.defaultof<US3> │
00:06:41 #33146 [verbose] > │ v404 │
00:06:41 #33147 [verbose] > │ #endif │
00:06:41 #33148 [verbose] > │ |> fun x -> _v397 <- Some x │
00:06:41 #33149 [verbose] > │ let v405 : US3 = _v397.Value │
00:06:41 #33150 [verbose] > │ let v451 : bool = │
00:06:41 #33151 [verbose] > │ match v405 with │
00:06:41 #33152 [verbose] > │ | US3_0(v406, v407) -> (* Some *) │
00:06:41 #33153 [verbose] > │ let v408 : bool option = None │
00:06:41 #33154 [verbose] > │ let mutable _v408 = v408 │
00:06:41 #33155 [verbose] > │ #if FABLE_COMPILER_RUST && !WASM && !CONTRACT │
00:06:41 #33156 [verbose] > │ let v409 : bool = null |> unbox<bool> │
00:06:41 #33157 [verbose] > │ v409 │
00:06:41 #33158 [verbose] > │ #endif │
00:06:41 #33159 [verbose] > │ #if FABLE_COMPILER_RUST && WASM │
00:06:41 #33160 [verbose] > │ let v410 : bool = null |> unbox<bool> │
00:06:41 #33161 [verbose] > │ v410 │
00:06:41 #33162 [verbose] > │ #endif │
00:06:41 #33163 [verbose] > │ #if FABLE_COMPILER_RUST && CONTRACT │
00:06:41 #33164 [verbose] > │ let v411 : bool = null |> unbox<bool> │
00:06:41 #33165 [verbose] > │ v411 │
00:06:41 #33166 [verbose] > │ #endif │
00:06:41 #33167 [verbose] > │ #if !FABLE_COMPILER && !FABLE_COMPILER_RUST && │
00:06:41 #33168 [verbose] > │ !FABLE_COMPILER_TYPESCRIPT && !WASM && !CONTRACT │
00:06:41 #33169 [verbose] > │ let v412 : System.Runtime.InteropServices.OSPlatform = │
00:06:41 #33170 [verbose] > │ System.Runtime.InteropServices.OSPlatform.Windows │
00:06:41 #33171 [verbose] > │ let v413 : (System.Runtime.InteropServices.OSPlatform -> bool) = │
00:06:41 #33172 [verbose] > │ System.Runtime.InteropServices.RuntimeInformation.IsOSPlatform │
00:06:41 #33173 [verbose] > │ let v414 : bool = v413 v412 │
00:06:41 #33174 [verbose] > │ v414 │
00:06:41 #33175 [verbose] > │ #endif │
00:06:41 #33176 [verbose] > │ #if FABLE_COMPILER_TYPESCRIPT │
00:06:41 #33177 [verbose] > │ let v415 : bool = null |> unbox<bool> │
00:06:41 #33178 [verbose] > │ v415 │
00:06:41 #33179 [verbose] > │ #endif │
00:06:41 #33180 [verbose] > │ #if FABLE_COMPILER_PYTHON || FABLE_COMPILER_PHP || │
00:06:41 #33181 [verbose] > │ FABLE_COMPILER_DART │
00:06:41 #33182 [verbose] > │ let v416 : bool = Unchecked.defaultof<bool> │
00:06:41 #33183 [verbose] > │ v416 │
00:06:41 #33184 [verbose] > │ #endif │
00:06:41 #33185 [verbose] > │ |> fun x -> _v408 <- Some x │
00:06:41 #33186 [verbose] > │ let v417 : bool = _v408.Value │
00:06:41 #33187 [verbose] > │ let v418 : int64 = │
00:06:41 #33188 [verbose] > │ if v417 then │
00:06:41 #33189 [verbose] > │ 50L │
00:06:41 #33190 [verbose] > │ else │
00:06:41 #33191 [verbose] > │ 100L │
00:06:41 #33192 [verbose] > │ let v419 : bool option = None │
00:06:41 #33193 [verbose] > │ let mutable _v419 = v419 │
00:06:41 #33194 [verbose] > │ #if FABLE_COMPILER_RUST && !WASM && !CONTRACT │
00:06:41 #33195 [verbose] > │ let v420 : bool = null |> unbox<bool> │
00:06:41 #33196 [verbose] > │ v420 │
00:06:41 #33197 [verbose] > │ #endif │
00:06:41 #33198 [verbose] > │ #if FABLE_COMPILER_RUST && WASM │
00:06:41 #33199 [verbose] > │ let v421 : bool = null |> unbox<bool> │
00:06:41 #33200 [verbose] > │ v421 │
00:06:41 #33201 [verbose] > │ #endif │
00:06:41 #33202 [verbose] > │ #if FABLE_COMPILER_RUST && CONTRACT │
00:06:41 #33203 [verbose] > │ let v422 : bool = null |> unbox<bool> │
00:06:41 #33204 [verbose] > │ v422 │
00:06:41 #33205 [verbose] > │ #endif │
00:06:41 #33206 [verbose] > │ #if !FABLE_COMPILER && !FABLE_COMPILER_RUST && │
00:06:41 #33207 [verbose] > │ !FABLE_COMPILER_TYPESCRIPT && !WASM && !CONTRACT │
00:06:41 #33208 [verbose] > │ let v423 : System.Runtime.InteropServices.OSPlatform = │
00:06:41 #33209 [verbose] > │ System.Runtime.InteropServices.OSPlatform.Windows │
00:06:41 #33210 [verbose] > │ let v424 : (System.Runtime.InteropServices.OSPlatform -> bool) = │
00:06:41 #33211 [verbose] > │ System.Runtime.InteropServices.RuntimeInformation.IsOSPlatform │
00:06:41 #33212 [verbose] > │ let v425 : bool = v424 v423 │
00:06:41 #33213 [verbose] > │ v425 │
00:06:41 #33214 [verbose] > │ #endif │
00:06:41 #33215 [verbose] > │ #if FABLE_COMPILER_TYPESCRIPT │
00:06:41 #33216 [verbose] > │ let v426 : bool = null |> unbox<bool> │
00:06:41 #33217 [verbose] > │ v426 │
00:06:41 #33218 [verbose] > │ #endif │
00:06:41 #33219 [verbose] > │ #if FABLE_COMPILER_PYTHON || FABLE_COMPILER_PHP || │
00:06:41 #33220 [verbose] > │ FABLE_COMPILER_DART │
00:06:41 #33221 [verbose] > │ let v427 : bool = Unchecked.defaultof<bool> │
00:06:41 #33222 [verbose] > │ v427 │
00:06:41 #33223 [verbose] > │ #endif │
00:06:41 #33224 [verbose] > │ |> fun x -> _v419 <- Some x │
00:06:41 #33225 [verbose] > │ let v428 : bool = _v419.Value │
00:06:41 #33226 [verbose] > │ let v429 : int64 = │
00:06:41 #33227 [verbose] > │ if v428 then │
00:06:41 #33228 [verbose] > │ 150L │
00:06:41 #33229 [verbose] > │ else │
00:06:41 #33230 [verbose] > │ 200L │
00:06:41 #33231 [verbose] > │ let v430 : string = $"%A{v406}" │
00:06:41 #33232 [verbose] > │ System.Console.WriteLine v430 │
00:06:41 #33233 [verbose] > │ let v431 : string = $"%A{v406}" │
00:06:41 #33234 [verbose] > │ System.Console.WriteLine v431 │
00:06:41 #33235 [verbose] > │ let v432 : bool = v406 >= v418 │
00:06:41 #33236 [verbose] > │ let v434 : bool = │
00:06:41 #33237 [verbose] > │ if v432 then │
00:06:41 #33238 [verbose] > │ true │
00:06:41 #33239 [verbose] > │ else │
00:06:41 #33240 [verbose] > │ method12(v432) │
00:06:41 #33241 [verbose] > │ let v435 : string = $"__expect / actual: %A{v406} / expected: │
00:06:41 #33242 [verbose] > │ %A{v418}" │
00:06:41 #33243 [verbose] > │ let v436 : bool = v434 = false │
00:06:41 #33244 [verbose] > │ if v436 then │
00:06:41 #33245 [verbose] > │ failwith<unit> v435 │
00:06:41 #33246 [verbose] > │ let v437 : string = $"%A{v406}" │
00:06:41 #33247 [verbose] > │ System.Console.WriteLine v437 │
00:06:41 #33248 [verbose] > │ let v438 : bool = v406 <= v429 │
00:06:41 #33249 [verbose] > │ let v440 : bool = │
00:06:41 #33250 [verbose] > │ if v438 then │
00:06:41 #33251 [verbose] > │ true │
00:06:41 #33252 [verbose] > │ else │
00:06:41 #33253 [verbose] > │ method12(v438) │
00:06:41 #33254 [verbose] > │ let v441 : string = $"__expect / actual: %A{v406} / expected: │
00:06:41 #33255 [verbose] > │ %A{v429}" │
00:06:41 #33256 [verbose] > │ let v442 : bool = v440 = false │
00:06:41 #33257 [verbose] > │ if v442 then │
00:06:41 #33258 [verbose] > │ failwith<unit> v441 │
00:06:41 #33259 [verbose] > │ let v443 : string = $"__expect / actual: %A{v406} / expected: │
00:06:41 #33260 [verbose] > │ %A{struct (v418, v429)}" │
00:06:41 #33261 [verbose] > │ let v444 : string = method13() │
00:06:41 #33262 [verbose] > │ let v445 : string = $"%A{v407}" │
00:06:41 #33263 [verbose] > │ System.Console.WriteLine v445 │
00:06:41 #33264 [verbose] > │ let v446 : bool = v407 = v444 │
00:06:41 #33265 [verbose] > │ let v448 : bool = │
00:06:41 #33266 [verbose] > │ if v446 then │
00:06:41 #33267 [verbose] > │ true │
00:06:41 #33268 [verbose] > │ else │
00:06:41 #33269 [verbose] > │ method12(v446) │
00:06:41 #33270 [verbose] > │ let v449 : string = $"__expect / actual: %A{v407} / expected: │
00:06:41 #33271 [verbose] > │ %A{v444}" │
00:06:41 #33272 [verbose] > │ let v450 : bool = v448 = false │
00:06:41 #33273 [verbose] > │ if v450 then │
00:06:41 #33274 [verbose] > │ failwith<unit> v449 │
00:06:41 #33275 [verbose] > │ true │
00:06:41 #33276 [verbose] > │ | _ -> │
00:06:41 #33277 [verbose] > │ false │
00:06:41 #33278 [verbose] > │ let v452 : string = $"%A{v451}" │
00:06:41 #33279 [verbose] > │ System.Console.WriteLine v452 │
00:06:41 #33280 [verbose] > │ let v454 : bool = │
00:06:41 #33281 [verbose] > │ if v451 then │
00:06:41 #33282 [verbose] > │ true │
00:06:41 #33283 [verbose] > │ else │
00:06:41 #33284 [verbose] > │ method12(v451) │
00:06:41 #33285 [verbose] > │ let v455 : string = $"__expect / actual: %A{v451} / expected: %A{true}" │
00:06:41 #33286 [verbose] > │ let v456 : bool = v454 = false │
00:06:41 #33287 [verbose] > │ if v456 then │
00:06:41 #33288 [verbose] > │ failwith<unit> v455 │
00:06:41 #33289 [verbose] > │ method0() │
00:06:41 #33290 [verbose] > │ │
00:06:41 #33291 [verbose] > │ 00:00:00 #1 [debug] 1 │
00:06:41 #33292 [verbose] > │ 00:00:00 #2 [debug] 2 │
00:06:41 #33293 [verbose] > │ 00:00:00 #3 [debug] 3 │
00:06:41 #33294 [verbose] > │ 00:00:00 #4 [debug] _1 │
00:06:41 #33295 [verbose] > │ 00:00:00 #5 [debug] _2 │
00:06:41 #33296 [verbose] > │ 00:00:00 #6 [debug] 4 │
00:06:41 #33297 [verbose] > │ wait_for_file_access / path: test.txt / retry: 100 / ex: │
00:06:41 #33298 [verbose] > │ System.IO.IOException: The process cannot access the file │
00:06:41 #33299 [verbose] > │ 'C:\Users\i574n\AppData\Local\Temp\!dotnet-repl\20240413-0458-4855-5597-5c92 │
00:06:41 #33300 [verbose] > │ 8eaceaee\test.txt' because it is being used by another process. / │
00:06:41 #33301 [verbose] > │ 00:00:02 #7 [debug] _3 │
00:06:41 #33302 [verbose] > │ 00:00:02 #8 [debug] _4 │
00:06:41 #33303 [verbose] > │ 00:00:02 #9 [debug] _5 │
00:06:41 #33304 [verbose] > │ 00:00:02 #10 [debug] _6 │
00:06:41 #33305 [verbose] > │ 00:00:02 #11 [debug] 5 │
00:06:41 #33306 [verbose] > │ 00:00:02 #12 [debug] 6 │
00:06:41 #33307 [verbose] > │ 00:00:02 #13 [debug] 7 │
00:06:41 #33308 [verbose] > │ 128L │
00:06:41 #33309 [verbose] > │ 128L │
00:06:41 #33310 [verbose] > │ 128L │
00:06:41 #33311 [verbose] > │ "1" │
00:06:41 #33312 [verbose] > │ true │
00:06:41 #33313 [verbose] > │ │
00:06:41 #33314 [verbose] > ╰──────────────────────────────────────────────────────────────────────────────╯
00:06:41 #33315 [verbose] >
00:06:41 #33316 [verbose] > ── markdown ────────────────────────────────────────────────────────────────────
00:06:41 #33317 [verbose] > ╭──────────────────────────────────────────────────────────────────────────────╮
00:06:41 #33318 [verbose] > │ ## read_all_text_retry_async │
00:06:41 #33319 [verbose] > ╰──────────────────────────────────────────────────────────────────────────────╯
00:06:41 #33320 [verbose] >
00:06:41 #33321 [verbose] > ── spiral ──────────────────────────────────────────────────────────────────────
00:06:41 #33322 [verbose] > inl read_all_text_retry_async full_path : async.async (optionm'.option' string)
00:06:41 #33323 [verbose] > =
00:06:41 #33324 [verbose] > run_target function
00:06:41 #33325 [verbose] > | Fsharp (Native) => fun () =>
00:06:41 #33326 [verbose] > let rec loop (retry : i64) =
00:06:41 #33327 [verbose] > fun () =>
00:06:41 #33328 [verbose] > try_unit
00:06:41 #33329 [verbose] > fun () =>
00:06:41 #33330 [verbose] > if retry > 0
00:06:41 #33331 [verbose] > then
00:06:41 #33332 [verbose] > full_path
00:06:41 #33333 [verbose] > |> wait_for_file_access_read
00:06:41 #33334 [verbose] > |> async.run_with_timeout_async 1000
00:06:41 #33335 [verbose] > |> async.ignore
00:06:41 #33336 [verbose] > |> async.do
00:06:41 #33337 [verbose] > full_path |> read_all_text_async |> async.map (Some
00:06:41 #33338 [verbose] > >> optionm'.box) |> async.return_await
00:06:41 #33339 [verbose] > fun ex =>
00:06:41 #33340 [verbose] > if retry <> 0 then
00:06:41 #33341 [verbose] > inl ex = ex |> sm'.format_exception
00:06:41 #33342 [verbose] > let get_locals () = $'$"retry: {!retry} / ex:
00:06:41 #33343 [verbose] > {!ex} / {!get_locals ()}"' : string
00:06:41 #33344 [verbose] > trace Debug (fun () =>
00:06:41 #33345 [verbose] > $'"read_all_text_retry_async"' : string) get_locals
00:06:41 #33346 [verbose] > (None : _ string) |> optionm'.box |> return |>
00:06:41 #33347 [verbose] > fun x => $'(*' : ()
00:06:41 #33348 [verbose] > else
00:06:41 #33349 [verbose] > $'*) else' : ()
00:06:41 #33350 [verbose] > loop (retry + 1) |> async.return_await |> fun x
00:06:41 #33351 [verbose] > => $'(*' : ()
00:06:41 #33352 [verbose] > |> fun x => $'*)' : ()
00:06:41 #33353 [verbose] > |> async.new_async
00:06:41 #33354 [verbose] > loop 0
00:06:41 #33355 [verbose] > | _ => fun () => null ()
00:06:41 #33356 [verbose] > Building c:\home\git\polyglot\target\polyglot\spiral_eval\packages\c97661bb7d90b7dbbda98e7929544298fb87bdcc826f31239eae7604cdd5adc8\main.spi
00:06:41 #33357 [verbose] >
00:06:41 #33358 [verbose] > ╭─[ 231.21ms - stdout ]────────────────────────────────────────────────────────╮
00:06:41 #33359 [verbose] > │ () │
00:06:41 #33360 [verbose] > │ │
00:06:41 #33361 [verbose] > │ │
00:06:41 #33362 [verbose] > ╰──────────────────────────────────────────────────────────────────────────────╯
00:06:41 #33363 [verbose] >
00:06:41 #33364 [verbose] > ── markdown ────────────────────────────────────────────────────────────────────
00:06:41 #33365 [verbose] > ╭──────────────────────────────────────────────────────────────────────────────╮
00:06:41 #33366 [verbose] > │ ## delete_file_async │
00:06:41 #33367 [verbose] > ╰──────────────────────────────────────────────────────────────────────────────╯
00:06:41 #33368 [verbose] >
00:06:41 #33369 [verbose] > ── spiral ──────────────────────────────────────────────────────────────────────
00:06:41 #33370 [verbose] > inl delete_file_async path : _ i64 =
00:06:41 #33371 [verbose] > run_target function
00:06:41 #33372 [verbose] > | Fsharp (Native) => fun () =>
00:06:41 #33373 [verbose] > let rec loop (retry : i64) =
00:06:41 #33374 [verbose] > fun () =>
00:06:41 #33375 [verbose] > try_unit
00:06:41 #33376 [verbose] > fun () =>
00:06:41 #33377 [verbose] > path |> file_delete
00:06:41 #33378 [verbose] > return retry
00:06:41 #33379 [verbose] > fun ex =>
00:06:41 #33380 [verbose] > if retry % 100 = 0 then
00:06:41 #33381 [verbose] > inl ex = ex |> sm'.format_exception
00:06:41 #33382 [verbose] > let getLocals () = $'$"path: {!path |>
00:06:41 #33383 [verbose] > !get_file_name} / ex: {ex} / {!get_locals ()}"'
00:06:41 #33384 [verbose] > trace Warning (fun () => "delete_file_async")
00:06:41 #33385 [verbose] > get_locals
00:06:41 #33386 [verbose] > async.sleep 10 |> async.do
00:06:41 #33387 [verbose] > loop (retry + 1) |> async.return_await
00:06:41 #33388 [verbose] > |> async.new_async
00:06:41 #33389 [verbose] > loop 0
00:06:41 #33390 [verbose] > | _ => fun () => null ()
00:06:42 #33391 [verbose] > Building c:\home\git\polyglot\target\polyglot\spiral_eval\packages\40effd6e0722d56acb791466fe9accefae10cbb3539b394232a15956a3d18e17\main.spi
00:06:42 #33392 [verbose] >
00:06:42 #33393 [verbose] > ╭─[ 258.41ms - stdout ]────────────────────────────────────────────────────────╮
00:06:42 #33394 [verbose] > │ () │
00:06:42 #33395 [verbose] > │ │
00:06:42 #33396 [verbose] > │ │
00:06:42 #33397 [verbose] > ╰──────────────────────────────────────────────────────────────────────────────╯
00:06:42 #33398 [verbose] >
00:06:42 #33399 [verbose] > ── spiral ──────────────────────────────────────────────────────────────────────
00:06:42 #33400 [verbose] > // // test
00:06:42 #33401 [verbose] >
00:06:42 #33402 [verbose] > inl lock_file path =
00:06:42 #33403 [verbose] > fun () =>
00:06:42 #33404 [verbose] > trace Debug (fun () => "_1") get_locals
00:06:42 #33405 [verbose] > file_stream
00:06:42 #33406 [verbose] > path
00:06:42 #33407 [verbose] > ModeOpen
00:06:42 #33408 [verbose] > AccessReadWrite
00:06:42 #33409 [verbose] > ShareNone
00:06:42 #33410 [verbose] > |> use
00:06:42 #33411 [verbose] > |> ignore
00:06:42 #33412 [verbose] > trace Debug (fun () => "_2") get_locals
00:06:42 #33413 [verbose] > async.sleep 2000 |> async.do
00:06:42 #33414 [verbose] > trace Debug (fun () => "_3") get_locals
00:06:42 #33415 [verbose] > |> async.new_async
00:06:42 #33416 [verbose] >
00:06:42 #33417 [verbose] > inl temp_dir, disposable = create_temp_directory ()
00:06:42 #33418 [verbose] > disposable |> use |> ignore
00:06:42 #33419 [verbose] > inl path = temp_dir </> "test.txt"
00:06:42 #33420 [verbose] >
00:06:42 #33421 [verbose] > fun () =>
00:06:42 #33422 [verbose] > trace Debug (fun () => "1") get_locals
00:06:42 #33423 [verbose] > "0" |> write_all_text_async path |> async.do
00:06:42 #33424 [verbose] > trace Debug (fun () => "2") get_locals
00:06:42 #33425 [verbose] > inl child = lock_file path |> async.start_child |> async.let'
00:06:42 #33426 [verbose] > trace Debug (fun () => "3") get_locals
00:06:42 #33427 [verbose] > async.sleep 1 |> async.do
00:06:42 #33428 [verbose] > trace Debug (fun () => "4") get_locals
00:06:42 #33429 [verbose] > inl retries = delete_file_async path |> async.let'
00:06:42 #33430 [verbose] > trace Debug (fun () => "5") get_locals
00:06:42 #33431 [verbose] > child |> async.do
00:06:42 #33432 [verbose] > trace Debug (fun () => "6") get_locals
00:06:42 #33433 [verbose] > return retries
00:06:42 #33434 [verbose] > |> async.new_async_unit
00:06:42 #33435 [verbose] > |> async.run_with_timeout 3000
00:06:42 #33436 [verbose] > |> function
00:06:42 #33437 [verbose] > | Some (retries : i64) =>
00:06:42 #33438 [verbose] > retries
00:06:42 #33439 [verbose] > |> _assert_between
00:06:42 #33440 [verbose] > (if runtime.is_windows () then 50 else 0)
00:06:42 #33441 [verbose] > (if runtime.is_windows () then 150 else 0)
00:06:42 #33442 [verbose] >
00:06:42 #33443 [verbose] > true
00:06:42 #33444 [verbose] > | _ => false
00:06:42 #33445 [verbose] > |> _assert_eq true
00:06:42 #33446 [verbose] > Building c:\home\git\polyglot\target\polyglot\spiral_eval\packages\d63f45ae5de73af5d014b82ee9bcae4876c9f6019823c78408423f1586c074dc\main.spi
00:06:44 #33447 [verbose] >
00:06:44 #33448 [verbose] > ╭─[ 2.84s - stdout ]───────────────────────────────────────────────────────────╮
00:06:44 #33449 [verbose] > │ type IPathJoin = abstract join: [<System.ParamArray>] paths: string[] -> │
00:06:44 #33450 [verbose] > │ string │
00:06:44 #33451 [verbose] > │ module State = let mutable trace_state = None │
00:06:44 #33452 [verbose] > │ type [<Struct>] US0 = │
00:06:44 #33453 [verbose] > │ | US0_0 │
00:06:44 #33454 [verbose] > │ | US0_1 │
00:06:44 #33455 [verbose] > │ | US0_2 │
00:06:44 #33456 [verbose] > │ | US0_3 │
00:06:44 #33457 [verbose] > │ | US0_4 │
00:06:44 #33458 [verbose] > │ and Mut0 = {mutable l0 : int64} │
00:06:44 #33459 [verbose] > │ and Mut1 = {mutable l0 : bool} │
00:06:44 #33460 [verbose] > │ and Mut2 = {mutable l0 : US0} │
00:06:44 #33461 [verbose] > │ and [<Struct>] US1 = │
00:06:44 #33462 [verbose] > │ | US1_0 of f0_0 : int64 │
00:06:44 #33463 [verbose] > │ | US1_1 │
00:06:44 #33464 [verbose] > │ and [<Struct>] US2 = │
00:06:44 #33465 [verbose] > │ | US2_0 of f0_0 : int64 │
00:06:44 #33466 [verbose] > │ | US2_1 │
00:06:44 #33467 [verbose] > │ and [<Struct>] US3 = │
00:06:44 #33468 [verbose] > │ | US3_0 of f0_0 : int64 │
00:06:44 #33469 [verbose] > │ | US3_1 of f1_0 : exn │
00:06:44 #33470 [verbose] > │ and [<Struct>] US4 = │
00:06:44 #33471 [verbose] > │ | US4_0 of f0_0 : int64 │
00:06:44 #33472 [verbose] > │ | US4_1 of f1_0 : exn │
00:06:44 #33473 [verbose] > │ let rec closure0 () () : string = │
00:06:44 #33474 [verbose] > │ let v0 : string option = None │
00:06:45 #33475 [verbose] > │ let mutable _v0 = v0 │
00:06:45 #33476 [verbose] > │ #if FABLE_COMPILER_RUST && !WASM && !CONTRACT │
00:06:45 #33477 [verbose] > │ let v1 : string = null |> unbox<string> │
00:06:45 #33478 [verbose] > │ v1 │
00:06:45 #33479 [verbose] > │ #endif │
00:06:45 #33480 [verbose] > │ #if FABLE_COMPILER_RUST && WASM │
00:06:45 #33481 [verbose] > │ let v2 : string = null |> unbox<string> │
00:06:45 #33482 [verbose] > │ v2 │
00:06:45 #33483 [verbose] > │ #endif │
00:06:45 #33484 [verbose] > │ #if FABLE_COMPILER_RUST && CONTRACT │
00:06:45 #33485 [verbose] > │ let v3 : string = null |> unbox<string> │
00:06:45 #33486 [verbose] > │ v3 │
00:06:45 #33487 [verbose] > │ #endif │
00:06:45 #33488 [verbose] > │ #if !FABLE_COMPILER && !FABLE_COMPILER_RUST && │
00:06:45 #33489 [verbose] > │ !FABLE_COMPILER_TYPESCRIPT && !WASM && !CONTRACT │
00:06:45 #33490 [verbose] > │ let v4 : string = │
00:06:45 #33491 [verbose] > │ System.Reflection.Assembly.GetEntryAssembly().GetName().Name │
00:06:45 #33492 [verbose] > │ v4 │
00:06:45 #33493 [verbose] > │ #endif │
00:06:45 #33494 [verbose] > │ #if FABLE_COMPILER_TYPESCRIPT │
00:06:45 #33495 [verbose] > │ let v5 : string = null |> unbox<string> │
00:06:45 #33496 [verbose] > │ v5 │
00:06:45 #33497 [verbose] > │ #endif │
00:06:45 #33498 [verbose] > │ #if FABLE_COMPILER_PYTHON || FABLE_COMPILER_PHP || FABLE_COMPILER_DART │
00:06:45 #33499 [verbose] > │ let v6 : string = Unchecked.defaultof<string> │
00:06:45 #33500 [verbose] > │ v6 │
00:06:45 #33501 [verbose] > │ #endif │
00:06:45 #33502 [verbose] > │ |> fun x -> _v0 <- Some x │
00:06:45 #33503 [verbose] > │ let v7 : string = _v0.Value │
00:06:45 #33504 [verbose] > │ v7 │
00:06:45 #33505 [verbose] > │ and method1 (v0 : string) : string = │
00:06:45 #33506 [verbose] > │ v0 │
00:06:45 #33507 [verbose] > │ and closure2 () () : string = │
00:06:45 #33508 [verbose] > │ let v0 : string = "" │
00:06:45 #33509 [verbose] > │ v0 │
00:06:45 #33510 [verbose] > │ and closure1 (v0 : string, v1 : string) () : string = │
00:06:45 #33511 [verbose] > │ let v2 : (unit -> string) = closure2() │
00:06:45 #33512 [verbose] > │ let v3 : string = $"temp_folder: {v0} / result: {v1} {v2 ()}" │
00:06:45 #33513 [verbose] > │ v3 │
00:06:45 #33514 [verbose] > │ and closure5 () (v0 : string) : string = │
00:06:45 #33515 [verbose] > │ let v1 : string option = None │
00:06:45 #33516 [verbose] > │ let mutable _v1 = v1 │
00:06:45 #33517 [verbose] > │ #if FABLE_COMPILER_RUST && !WASM && !CONTRACT │
00:06:45 #33518 [verbose] > │ let v2 : string = null |> unbox<string> │
00:06:45 #33519 [verbose] > │ v2 │
00:06:45 #33520 [verbose] > │ #endif │
00:06:45 #33521 [verbose] > │ #if FABLE_COMPILER_RUST && WASM │
00:06:45 #33522 [verbose] > │ let v3 : string = null |> unbox<string> │
00:06:45 #33523 [verbose] > │ v3 │
00:06:45 #33524 [verbose] > │ #endif │
00:06:45 #33525 [verbose] > │ #if FABLE_COMPILER_RUST && CONTRACT │
00:06:45 #33526 [verbose] > │ let v4 : string = null |> unbox<string> │
00:06:45 #33527 [verbose] > │ v4 │
00:06:45 #33528 [verbose] > │ #endif │
00:06:45 #33529 [verbose] > │ #if !FABLE_COMPILER && !FABLE_COMPILER_RUST && │
00:06:45 #33530 [verbose] > │ !FABLE_COMPILER_TYPESCRIPT && !WASM && !CONTRACT │
00:06:45 #33531 [verbose] > │ let v5 : (string -> string) = System.IO.Path.GetFileName │
00:06:45 #33532 [verbose] > │ let v6 : string = v5 v0 │
00:06:45 #33533 [verbose] > │ v6 │
00:06:45 #33534 [verbose] > │ #endif │
00:06:45 #33535 [verbose] > │ #if FABLE_COMPILER_TYPESCRIPT │
00:06:45 #33536 [verbose] > │ let v7 : string = null |> unbox<string> │
00:06:45 #33537 [verbose] > │ v7 │
00:06:45 #33538 [verbose] > │ #endif │
00:06:45 #33539 [verbose] > │ #if FABLE_COMPILER_PYTHON || FABLE_COMPILER_PHP || FABLE_COMPILER_DART │
00:06:45 #33540 [verbose] > │ let v8 : string = Unchecked.defaultof<string> │
00:06:45 #33541 [verbose] > │ v8 │
00:06:45 #33542 [verbose] > │ #endif │
00:06:45 #33543 [verbose] > │ |> fun x -> _v1 <- Some x │
00:06:45 #33544 [verbose] > │ let v9 : string = _v1.Value │
00:06:45 #33545 [verbose] > │ v9 │
00:06:45 #33546 [verbose] > │ and method3 (v0 : string, v1 : string) : string = │
00:06:45 #33547 [verbose] > │ let v2 : (string -> string) = closure5() │
00:06:45 #33548 [verbose] > │ let v3 : (unit -> string) = closure2() │
00:06:45 #33549 [verbose] > │ let v4 : string = $"path: {v0 |> v2} / ex: {v1} / {v3 ()}" │
00:06:45 #33550 [verbose] > │ v4 │
00:06:45 #33551 [verbose] > │ and closure4 (v0 : string, v1 : string) () : string = │
00:06:45 #33552 [verbose] > │ method3(v0, v1) │
00:06:45 #33553 [verbose] > │ and method2 (v0 : string, v1 : int64) : Async<int64> = │
00:06:45 #33554 [verbose] > │ let v2 : Async<int64> option = None │
00:06:45 #33555 [verbose] > │ let mutable _v2 = v2 │
00:06:45 #33556 [verbose] > │ #if FABLE_COMPILER_RUST && !WASM && !CONTRACT │
00:06:45 #33557 [verbose] > │ let v3 : Async<int64> = null |> unbox<Async<int64>> │
00:06:45 #33558 [verbose] > │ v3 │
00:06:45 #33559 [verbose] > │ #endif │
00:06:45 #33560 [verbose] > │ #if FABLE_COMPILER_RUST && WASM │
00:06:45 #33561 [verbose] > │ let v4 : Async<int64> = null |> unbox<Async<int64>> │
00:06:45 #33562 [verbose] > │ v4 │
00:06:45 #33563 [verbose] > │ #endif │
00:06:45 #33564 [verbose] > │ #if FABLE_COMPILER_RUST && CONTRACT │
00:06:45 #33565 [verbose] > │ let v5 : Async<int64> = null |> unbox<Async<int64>> │
00:06:45 #33566 [verbose] > │ v5 │
00:06:45 #33567 [verbose] > │ #endif │
00:06:45 #33568 [verbose] > │ #if !FABLE_COMPILER && !FABLE_COMPILER_RUST && │
00:06:45 #33569 [verbose] > │ !FABLE_COMPILER_TYPESCRIPT && !WASM && !CONTRACT │
00:06:45 #33570 [verbose] > │ let v6 : Async<int64> option = None │
00:06:45 #33571 [verbose] > │ let mutable _v6 = v6 │
00:06:45 #33572 [verbose] > │ async { │
00:06:45 #33573 [verbose] > │ try │
00:06:45 #33574 [verbose] > │ let v7 : unit option = None │
00:06:45 #33575 [verbose] > │ let mutable _v7 = v7 │
00:06:45 #33576 [verbose] > │ #if FABLE_COMPILER_RUST && !WASM && !CONTRACT │
00:06:45 #33577 [verbose] > │ null |> unbox<unit> │
00:06:45 #33578 [verbose] > │ () │
00:06:45 #33579 [verbose] > │ #endif │
00:06:45 #33580 [verbose] > │ #if FABLE_COMPILER_RUST && WASM │
00:06:45 #33581 [verbose] > │ null |> unbox<unit> │
00:06:45 #33582 [verbose] > │ () │
00:06:45 #33583 [verbose] > │ #endif │
00:06:45 #33584 [verbose] > │ #if FABLE_COMPILER_RUST && CONTRACT │
00:06:45 #33585 [verbose] > │ null |> unbox<unit> │
00:06:45 #33586 [verbose] > │ () │
00:06:45 #33587 [verbose] > │ #endif │
00:06:45 #33588 [verbose] > │ #if !FABLE_COMPILER && !FABLE_COMPILER_RUST && │
00:06:45 #33589 [verbose] > │ !FABLE_COMPILER_TYPESCRIPT && !WASM && !CONTRACT │
00:06:45 #33590 [verbose] > │ System.IO.Directory.Delete (v0, true) │
00:06:45 #33591 [verbose] > │ () │
00:06:45 #33592 [verbose] > │ #endif │
00:06:45 #33593 [verbose] > │ #if FABLE_COMPILER_TYPESCRIPT │
00:06:45 #33594 [verbose] > │ null |> unbox<unit> │
00:06:45 #33595 [verbose] > │ () │
00:06:45 #33596 [verbose] > │ #endif │
00:06:45 #33597 [verbose] > │ #if FABLE_COMPILER_PYTHON || FABLE_COMPILER_PHP || FABLE_COMPILER_DART │
00:06:45 #33598 [verbose] > │ Unchecked.defaultof<unit> │
00:06:45 #33599 [verbose] > │ () │
00:06:45 #33600 [verbose] > │ #endif │
00:06:45 #33601 [verbose] > │ |> fun x -> _v7 <- Some x │
00:06:45 #33602 [verbose] > │ _v7.Value │
00:06:45 #33603 [verbose] > │ return v1 │
00:06:45 #33604 [verbose] > │ with ex -> │
00:06:45 #33605 [verbose] > │ let v8 : exn = ex │
00:06:45 #33606 [verbose] > │ let v9 : int64 = v1 % 100L │
00:06:45 #33607 [verbose] > │ let v10 : bool = v9 = 0L │
00:06:45 #33608 [verbose] > │ if v10 then │
00:06:45 #33609 [verbose] > │ let v11 : string option = None │
00:06:45 #33610 [verbose] > │ let mutable _v11 = v11 │
00:06:45 #33611 [verbose] > │ #if FABLE_COMPILER_RUST && !WASM && !CONTRACT │
00:06:45 #33612 [verbose] > │ let v12 : string = $"%A{v8}" │
00:06:45 #33613 [verbose] > │ v12 │
00:06:45 #33614 [verbose] > │ #endif │
00:06:45 #33615 [verbose] > │ #if FABLE_COMPILER_RUST && WASM │
00:06:45 #33616 [verbose] > │ let v13 : string = $"%A{v8}" │
00:06:45 #33617 [verbose] > │ v13 │
00:06:45 #33618 [verbose] > │ #endif │
00:06:45 #33619 [verbose] > │ #if FABLE_COMPILER_RUST && CONTRACT │
00:06:45 #33620 [verbose] > │ let v14 : string = $"%A{v8}" │
00:06:45 #33621 [verbose] > │ v14 │
00:06:45 #33622 [verbose] > │ #endif │
00:06:45 #33623 [verbose] > │ #if !FABLE_COMPILER && !FABLE_COMPILER_RUST && │
00:06:45 #33624 [verbose] > │ !FABLE_COMPILER_TYPESCRIPT && !WASM && !CONTRACT │
00:06:45 #33625 [verbose] > │ let v15 : string = $"{v8.GetType ()}: {v8.Message}" │
00:06:45 #33626 [verbose] > │ v15 │
00:06:45 #33627 [verbose] > │ #endif │
00:06:45 #33628 [verbose] > │ #if FABLE_COMPILER_TYPESCRIPT │
00:06:45 #33629 [verbose] > │ let v16 : string = $"%A{v8}" │
00:06:45 #33630 [verbose] > │ v16 │
00:06:45 #33631 [verbose] > │ #endif │
00:06:45 #33632 [verbose] > │ #if FABLE_COMPILER_PYTHON || FABLE_COMPILER_PHP || │
00:06:45 #33633 [verbose] > │ FABLE_COMPILER_DART │
00:06:45 #33634 [verbose] > │ let v17 : string = Unchecked.defaultof<string> │
00:06:45 #33635 [verbose] > │ v17 │
00:06:45 #33636 [verbose] > │ #endif │
00:06:45 #33637 [verbose] > │ |> fun x -> _v11 <- Some x │
00:06:45 #33638 [verbose] > │ let v18 : string = _v11.Value │
00:06:45 #33639 [verbose] > │ let v19 : (unit -> string) = closure4(v0, v18) │
00:06:45 #33640 [verbose] > │ let v20 : string = $"delete_directory_async / {v19 ()}" │
00:06:45 #33641 [verbose] > │ System.Console.WriteLine v20 │
00:06:45 #33642 [verbose] > │ () │
00:06:45 #33643 [verbose] > │ let v21 : Async<unit> option = None │
00:06:45 #33644 [verbose] > │ let mutable _v21 = v21 │
00:06:45 #33645 [verbose] > │ #if FABLE_COMPILER_RUST && !WASM && !CONTRACT │
00:06:45 #33646 [verbose] > │ let v22 : Async<unit> = null |> unbox<Async<unit>> │
00:06:45 #33647 [verbose] > │ v22 │
00:06:45 #33648 [verbose] > │ #endif │
00:06:45 #33649 [verbose] > │ #if FABLE_COMPILER_RUST && WASM │
00:06:45 #33650 [verbose] > │ let v23 : Async<unit> = null |> unbox<Async<unit>> │
00:06:45 #33651 [verbose] > │ v23 │
00:06:45 #33652 [verbose] > │ #endif │
00:06:45 #33653 [verbose] > │ #if FABLE_COMPILER_RUST && CONTRACT │
00:06:45 #33654 [verbose] > │ let v24 : Async<unit> = null |> unbox<Async<unit>> │
00:06:45 #33655 [verbose] > │ v24 │
00:06:45 #33656 [verbose] > │ #endif │
00:06:45 #33657 [verbose] > │ #if !FABLE_COMPILER && !FABLE_COMPILER_RUST && │
00:06:45 #33658 [verbose] > │ !FABLE_COMPILER_TYPESCRIPT && !WASM && !CONTRACT │
00:06:45 #33659 [verbose] > │ let v25 : (int32 -> Async<unit>) = Async.Sleep │
00:06:45 #33660 [verbose] > │ let v26 : Async<unit> = v25 10 │
00:06:45 #33661 [verbose] > │ v26 │
00:06:45 #33662 [verbose] > │ #endif │
00:06:45 #33663 [verbose] > │ #if FABLE_COMPILER_TYPESCRIPT │
00:06:45 #33664 [verbose] > │ let v27 : Async<unit> = null |> unbox<Async<unit>> │
00:06:45 #33665 [verbose] > │ v27 │
00:06:45 #33666 [verbose] > │ #endif │
00:06:45 #33667 [verbose] > │ #if FABLE_COMPILER_PYTHON || FABLE_COMPILER_PHP || FABLE_COMPILER_DART │
00:06:45 #33668 [verbose] > │ let v28 : Async<unit> = Unchecked.defaultof<Async<unit>> │
00:06:45 #33669 [verbose] > │ v28 │
00:06:45 #33670 [verbose] > │ #endif │
00:06:45 #33671 [verbose] > │ |> fun x -> _v21 <- Some x │
00:06:45 #33672 [verbose] > │ let v29 : Async<unit> = _v21.Value │
00:06:45 #33673 [verbose] > │ do! v29 │
00:06:45 #33674 [verbose] > │ let v30 : int64 = v1 + 1L │
00:06:45 #33675 [verbose] > │ let v31 : Async<int64> = method2(v0, v30) │
00:06:45 #33676 [verbose] > │ return! v31 │
00:06:45 #33677 [verbose] > │ (* │
00:06:45 #33678 [verbose] > │ let v32 : int64 = *) │
00:06:45 #33679 [verbose] > │ } │
00:06:45 #33680 [verbose] > │ |> fun x -> _v6 <- Some x │
00:06:45 #33681 [verbose] > │ let v33 : Async<int64> = _v6 |> Option.get │
00:06:45 #33682 [verbose] > │ v33 │
00:06:45 #33683 [verbose] > │ #endif │
00:06:45 #33684 [verbose] > │ #if FABLE_COMPILER_TYPESCRIPT │
00:06:45 #33685 [verbose] > │ let v34 : Async<int64> = null |> unbox<Async<int64>> │
00:06:45 #33686 [verbose] > │ v34 │
00:06:45 #33687 [verbose] > │ #endif │
00:06:45 #33688 [verbose] > │ #if FABLE_COMPILER_PYTHON || FABLE_COMPILER_PHP || FABLE_COMPILER_DART │
00:06:45 #33689 [verbose] > │ let v35 : Async<int64> = Unchecked.defaultof<Async<int64>> │
00:06:45 #33690 [verbose] > │ v35 │
00:06:45 #33691 [verbose] > │ #endif │
00:06:45 #33692 [verbose] > │ |> fun x -> _v2 <- Some x │
00:06:45 #33693 [verbose] > │ let v36 : Async<int64> = _v2.Value │
00:06:45 #33694 [verbose] > │ v36 │
00:06:45 #33695 [verbose] > │ and closure3 (v0 : string) () : unit = │
00:06:45 #33696 [verbose] > │ let v1 : Async<int64> option = None │
00:06:45 #33697 [verbose] > │ let mutable _v1 = v1 │
00:06:45 #33698 [verbose] > │ #if FABLE_COMPILER_RUST && !WASM && !CONTRACT │
00:06:45 #33699 [verbose] > │ let v2 : Async<int64> = null |> unbox<Async<int64>> │
00:06:45 #33700 [verbose] > │ v2 │
00:06:45 #33701 [verbose] > │ #endif │
00:06:45 #33702 [verbose] > │ #if FABLE_COMPILER_RUST && WASM │
00:06:45 #33703 [verbose] > │ let v3 : Async<int64> = null |> unbox<Async<int64>> │
00:06:45 #33704 [verbose] > │ v3 │
00:06:45 #33705 [verbose] > │ #endif │
00:06:45 #33706 [verbose] > │ #if FABLE_COMPILER_RUST && CONTRACT │
00:06:45 #33707 [verbose] > │ let v4 : Async<int64> = null |> unbox<Async<int64>> │
00:06:45 #33708 [verbose] > │ v4 │
00:06:45 #33709 [verbose] > │ #endif │
00:06:45 #33710 [verbose] > │ #if !FABLE_COMPILER && !FABLE_COMPILER_RUST && │
00:06:45 #33711 [verbose] > │ !FABLE_COMPILER_TYPESCRIPT && !WASM && !CONTRACT │
00:06:45 #33712 [verbose] > │ let v5 : int64 = 0L │
00:06:45 #33713 [verbose] > │ let v6 : Async<int64> = method2(v0, v5) │
00:06:45 #33714 [verbose] > │ v6 │
00:06:45 #33715 [verbose] > │ #endif │
00:06:45 #33716 [verbose] > │ #if FABLE_COMPILER_TYPESCRIPT │
00:06:45 #33717 [verbose] > │ let v7 : Async<int64> = null |> unbox<Async<int64>> │
00:06:45 #33718 [verbose] > │ v7 │
00:06:45 #33719 [verbose] > │ #endif │
00:06:45 #33720 [verbose] > │ #if FABLE_COMPILER_PYTHON || FABLE_COMPILER_PHP || FABLE_COMPILER_DART │
00:06:45 #33721 [verbose] > │ let v8 : Async<int64> = Unchecked.defaultof<Async<int64>> │
00:06:45 #33722 [verbose] > │ v8 │
00:06:45 #33723 [verbose] > │ #endif │
00:06:45 #33724 [verbose] > │ |> fun x -> _v1 <- Some x │
00:06:45 #33725 [verbose] > │ let v9 : Async<int64> = _v1.Value │
00:06:45 #33726 [verbose] > │ let v10 : Async<unit> option = None │
00:06:45 #33727 [verbose] > │ let mutable _v10 = v10 │
00:06:45 #33728 [verbose] > │ #if FABLE_COMPILER_RUST && !WASM && !CONTRACT │
00:06:45 #33729 [verbose] > │ let v11 : Async<unit> = null |> unbox<Async<unit>> │
00:06:45 #33730 [verbose] > │ v11 │
00:06:45 #33731 [verbose] > │ #endif │
00:06:45 #33732 [verbose] > │ #if FABLE_COMPILER_RUST && WASM │
00:06:45 #33733 [verbose] > │ let v12 : Async<unit> = null |> unbox<Async<unit>> │
00:06:45 #33734 [verbose] > │ v12 │
00:06:45 #33735 [verbose] > │ #endif │
00:06:45 #33736 [verbose] > │ #if FABLE_COMPILER_RUST && CONTRACT │
00:06:45 #33737 [verbose] > │ let v13 : Async<unit> = null |> unbox<Async<unit>> │
00:06:45 #33738 [verbose] > │ v13 │
00:06:45 #33739 [verbose] > │ #endif │
00:06:45 #33740 [verbose] > │ #if !FABLE_COMPILER && !FABLE_COMPILER_RUST && │
00:06:45 #33741 [verbose] > │ !FABLE_COMPILER_TYPESCRIPT && !WASM && !CONTRACT │
00:06:45 #33742 [verbose] > │ let v14 : (Async<int64> -> Async<unit>) = Async.Ignore │
00:06:45 #33743 [verbose] > │ let v15 : Async<unit> = v14 v9 │
00:06:45 #33744 [verbose] > │ v15 │
00:06:45 #33745 [verbose] > │ #endif │
00:06:45 #33746 [verbose] > │ #if FABLE_COMPILER_TYPESCRIPT │
00:06:45 #33747 [verbose] > │ let v16 : Async<unit> = null |> unbox<Async<unit>> │
00:06:45 #33748 [verbose] > │ v16 │
00:06:45 #33749 [verbose] > │ #endif │
00:06:45 #33750 [verbose] > │ #if FABLE_COMPILER_PYTHON || FABLE_COMPILER_PHP || FABLE_COMPILER_DART │
00:06:45 #33751 [verbose] > │ let v17 : Async<unit> = Unchecked.defaultof<Async<unit>> │
00:06:45 #33752 [verbose] > │ v17 │
00:06:45 #33753 [verbose] > │ #endif │
00:06:45 #33754 [verbose] > │ |> fun x -> _v10 <- Some x │
00:06:45 #33755 [verbose] > │ let v18 : Async<unit> = _v10.Value │
00:06:45 #33756 [verbose] > │ let v19 : unit option = None │
00:06:45 #33757 [verbose] > │ let mutable _v19 = v19 │
00:06:45 #33758 [verbose] > │ #if FABLE_COMPILER_RUST && !WASM && !CONTRACT │
00:06:45 #33759 [verbose] > │ null |> unbox<unit> │
00:06:45 #33760 [verbose] > │ () │
00:06:45 #33761 [verbose] > │ #endif │
00:06:45 #33762 [verbose] > │ #if FABLE_COMPILER_RUST && WASM │
00:06:45 #33763 [verbose] > │ null |> unbox<unit> │
00:06:45 #33764 [verbose] > │ () │
00:06:45 #33765 [verbose] > │ #endif │
00:06:45 #33766 [verbose] > │ #if FABLE_COMPILER_RUST && CONTRACT │
00:06:45 #33767 [verbose] > │ null |> unbox<unit> │
00:06:45 #33768 [verbose] > │ () │
00:06:45 #33769 [verbose] > │ #endif │
00:06:45 #33770 [verbose] > │ #if !FABLE_COMPILER && !FABLE_COMPILER_RUST && │
00:06:45 #33771 [verbose] > │ !FABLE_COMPILER_TYPESCRIPT && !WASM && !CONTRACT │
00:06:45 #33772 [verbose] > │ let v20 : (Async<unit> -> unit) = Async.RunSynchronously │
00:06:45 #33773 [verbose] > │ v20 v18 │
00:06:45 #33774 [verbose] > │ () │
00:06:45 #33775 [verbose] > │ #endif │
00:06:45 #33776 [verbose] > │ #if FABLE_COMPILER_TYPESCRIPT │
00:06:45 #33777 [verbose] > │ null |> unbox<unit> │
00:06:45 #33778 [verbose] > │ () │
00:06:45 #33779 [verbose] > │ #endif │
00:06:45 #33780 [verbose] > │ #if FABLE_COMPILER_PYTHON || FABLE_COMPILER_PHP || FABLE_COMPILER_DART │
00:06:45 #33781 [verbose] > │ Unchecked.defaultof<unit> │
00:06:45 #33782 [verbose] > │ () │
00:06:45 #33783 [verbose] > │ #endif │
00:06:45 #33784 [verbose] > │ |> fun x -> _v19 <- Some x │
00:06:45 #33785 [verbose] > │ _v19.Value │
00:06:45 #33786 [verbose] > │ () │
00:06:45 #33787 [verbose] > │ and method4 () : string = │
00:06:45 #33788 [verbose] > │ let v0 : string = "test.txt" │
00:06:45 #33789 [verbose] > │ v0 │
00:06:45 #33790 [verbose] > │ and closure6 () () : string = │
00:06:45 #33791 [verbose] > │ let v0 : string = "1" │
00:06:45 #33792 [verbose] > │ v0 │
00:06:45 #33793 [verbose] > │ and method6 (v0 : int64 option) : int64 option = │
00:06:45 #33794 [verbose] > │ v0 │
00:06:45 #33795 [verbose] > │ and method7 (v0 : int64 option) : int64 option = │
00:06:45 #33796 [verbose] > │ v0 │
00:06:45 #33797 [verbose] > │ and closure7 () () : struct (Mut0 * Mut1 * Mut1 * Mut2 * int64 option) = │
00:06:45 #33798 [verbose] > │ let v0 : Mut1 = {l0 = true} : Mut1 │
00:06:45 #33799 [verbose] > │ let v1 : Mut0 = {l0 = 0L} : Mut0 │
00:06:45 #33800 [verbose] > │ let v2 : US0 = US0_0 │
00:06:45 #33801 [verbose] > │ let v3 : Mut2 = {l0 = v2} : Mut2 │
00:06:45 #33802 [verbose] > │ let v4 : Mut1 = {l0 = false} : Mut1 │
00:06:45 #33803 [verbose] > │ let v5 : int64 option option = None │
00:06:45 #33804 [verbose] > │ let mutable _v5 = v5 │
00:06:45 #33805 [verbose] > │ #if INTERACTIVE || !FABLE_COMPILER │
00:06:45 #33806 [verbose] > │ let v6 : string option = None │
00:06:45 #33807 [verbose] > │ let mutable _v6 = v6 │
00:06:45 #33808 [verbose] > │ #if FABLE_COMPILER_RUST && !WASM && !CONTRACT │
00:06:45 #33809 [verbose] > │ let v7 : string = null |> unbox<string> │
00:06:45 #33810 [verbose] > │ v7 │
00:06:45 #33811 [verbose] > │ #endif │
00:06:45 #33812 [verbose] > │ #if FABLE_COMPILER_RUST && WASM │
00:06:45 #33813 [verbose] > │ let v8 : string = null |> unbox<string> │
00:06:45 #33814 [verbose] > │ v8 │
00:06:45 #33815 [verbose] > │ #endif │
00:06:45 #33816 [verbose] > │ #if FABLE_COMPILER_RUST && CONTRACT │
00:06:45 #33817 [verbose] > │ let v9 : string = null |> unbox<string> │
00:06:45 #33818 [verbose] > │ v9 │
00:06:45 #33819 [verbose] > │ #endif │
00:06:45 #33820 [verbose] > │ #if !FABLE_COMPILER && !FABLE_COMPILER_RUST && │
00:06:45 #33821 [verbose] > │ !FABLE_COMPILER_TYPESCRIPT && !WASM && !CONTRACT │
00:06:45 #33822 [verbose] > │ let v10 : string = │
00:06:45 #33823 [verbose] > │ System.Reflection.Assembly.GetEntryAssembly().GetName().Name │
00:06:45 #33824 [verbose] > │ v10 │
00:06:45 #33825 [verbose] > │ #endif │
00:06:45 #33826 [verbose] > │ #if FABLE_COMPILER_TYPESCRIPT │
00:06:45 #33827 [verbose] > │ let v11 : string = null |> unbox<string> │
00:06:45 #33828 [verbose] > │ v11 │
00:06:45 #33829 [verbose] > │ #endif │
00:06:45 #33830 [verbose] > │ #if FABLE_COMPILER_PYTHON || FABLE_COMPILER_PHP || FABLE_COMPILER_DART │
00:06:45 #33831 [verbose] > │ let v12 : string = Unchecked.defaultof<string> │
00:06:45 #33832 [verbose] > │ v12 │
00:06:45 #33833 [verbose] > │ #endif │
00:06:45 #33834 [verbose] > │ |> fun x -> _v6 <- Some x │
00:06:45 #33835 [verbose] > │ let v13 : string = _v6.Value │
00:06:45 #33836 [verbose] > │ let v15 : bool = v13 = "Microsoft.DotNet.Interactive.App" │
00:06:45 #33837 [verbose] > │ let v16 : bool = v15 <> true │
00:06:45 #33838 [verbose] > │ let v22 : US1 = │
00:06:45 #33839 [verbose] > │ if v16 then │
00:06:45 #33840 [verbose] > │ let v17 : System.DateTime = System.DateTime.Now │
00:06:45 #33841 [verbose] > │ let v18 : (System.DateTime -> int64) = _.Ticks │
00:06:45 #33842 [verbose] > │ let v19 : int64 = v18 v17 │
00:06:45 #33843 [verbose] > │ US1_0(v19) │
00:06:45 #33844 [verbose] > │ else │
00:06:45 #33845 [verbose] > │ US1_1 │
00:06:45 #33846 [verbose] > │ let v27 : int64 option = │
00:06:45 #33847 [verbose] > │ match v22 with │
00:06:45 #33848 [verbose] > │ | US1_1 -> (* None *) │
00:06:45 #33849 [verbose] > │ let v25 : int64 option = None │
00:06:45 #33850 [verbose] > │ v25 │
00:06:45 #33851 [verbose] > │ | US1_0(v23) -> (* Some *) │
00:06:45 #33852 [verbose] > │ let v24 : int64 option = Some v23 │
00:06:45 #33853 [verbose] > │ v24 │
00:06:45 #33854 [verbose] > │ let v28 : int64 option = method6(v27) │
00:06:45 #33855 [verbose] > │ v28 │
00:06:45 #33856 [verbose] > │ #else │
00:06:45 #33857 [verbose] > │ let v29 : int64 option = None │
00:06:45 #33858 [verbose] > │ let v30 : int64 option = method7(v29) │
00:06:45 #33859 [verbose] > │ v30 │
00:06:45 #33860 [verbose] > │ #endif │
00:06:45 #33861 [verbose] > │ |> fun x -> _v5 <- Some x │
00:06:45 #33862 [verbose] > │ let v31 : int64 option = _v5.Value │
00:06:45 #33863 [verbose] > │ struct (v1, v4, v0, v3, v31) │
00:06:45 #33864 [verbose] > │ and closure9 () (v0 : int64) : US2 = │
00:06:45 #33865 [verbose] > │ US2_0(v0) │
00:06:45 #33866 [verbose] > │ and method8 () : (int64 -> US2) = │
00:06:45 #33867 [verbose] > │ closure9() │
00:06:45 #33868 [verbose] > │ and method9 () : string = │
00:06:45 #33869 [verbose] > │ let v0 : string = "" │
00:06:45 #33870 [verbose] > │ v0 │
00:06:45 #33871 [verbose] > │ and closure8 (v0 : US0, v1 : (unit -> string), v2 : (unit -> string)) () : │
00:06:45 #33872 [verbose] > │ string = │
00:06:45 #33873 [verbose] > │ let v3 : (unit -> struct (Mut0 * Mut1 * Mut1 * Mut2 * int64 option)) = │
00:06:45 #33874 [verbose] > │ closure7() │
00:06:45 #33875 [verbose] > │ if State.trace_state = None then State.trace_state <- v3 () |> Some │
00:06:45 #33876 [verbose] > │ let struct (v4 : Mut0, v5 : Mut1, v6 : Mut1, v7 : Mut2, v8 : int64 │
00:06:45 #33877 [verbose] > │ option) = State.trace_state.Value │
00:06:45 #33878 [verbose] > │ let v9 : string option = None │
00:06:45 #33879 [verbose] > │ let mutable _v9 = v9 │
00:06:45 #33880 [verbose] > │ #if FABLE_COMPILER_RUST && !WASM && !CONTRACT │
00:06:45 #33881 [verbose] > │ let v10 : (int64 -> US2) = method8() │
00:06:45 #33882 [verbose] > │ let v11 : US2 = US2_1 │
00:06:45 #33883 [verbose] > │ let v12 : US2 = v8 |> Option.map v10 |> Option.defaultValue v11 │
00:06:45 #33884 [verbose] > │ let v30 : System.DateTime = │
00:06:45 #33885 [verbose] > │ match v12 with │
00:06:45 #33886 [verbose] > │ | US2_1 -> (* None *) │
00:06:45 #33887 [verbose] > │ let v28 : System.DateTime = System.DateTime.Now │
00:06:45 #33888 [verbose] > │ v28 │
00:06:45 #33889 [verbose] > │ | US2_0(v13) -> (* Some *) │
00:06:45 #33890 [verbose] > │ let v14 : System.DateTime = System.DateTime.Now │
00:06:45 #33891 [verbose] > │ let v15 : (System.DateTime -> int64) = _.Ticks │
00:06:45 #33892 [verbose] > │ let v16 : int64 = v15 v14 │
00:06:45 #33893 [verbose] > │ let v17 : int64 = v16 - v13 │
00:06:45 #33894 [verbose] > │ let v18 : System.TimeSpan = System.TimeSpan v17 │
00:06:45 #33895 [verbose] > │ let v19 : (System.TimeSpan -> int32) = _.Hours │
00:06:45 #33896 [verbose] > │ let v20 : int32 = v19 v18 │
00:06:45 #33897 [verbose] > │ let v21 : (System.TimeSpan -> int32) = _.Minutes │
00:06:45 #33898 [verbose] > │ let v22 : int32 = v21 v18 │
00:06:45 #33899 [verbose] > │ let v23 : (System.TimeSpan -> int32) = _.Seconds │
00:06:45 #33900 [verbose] > │ let v24 : int32 = v23 v18 │
00:06:45 #33901 [verbose] > │ let v25 : (System.TimeSpan -> int32) = _.Milliseconds │
00:06:45 #33902 [verbose] > │ let v26 : int32 = v25 v18 │
00:06:45 #33903 [verbose] > │ let v27 : System.DateTime = System.DateTime (1, 1, 1, v20, v22, │
00:06:45 #33904 [verbose] > │ v24, v26) │
00:06:45 #33905 [verbose] > │ v27 │
00:06:45 #33906 [verbose] > │ let v31 : string = "hh:mm:ss" │
00:06:45 #33907 [verbose] > │ let v32 : string = v30.ToString v31 │
00:06:45 #33908 [verbose] > │ v32 │
00:06:45 #33909 [verbose] > │ #endif │
00:06:45 #33910 [verbose] > │ #if FABLE_COMPILER_RUST && WASM │
00:06:45 #33911 [verbose] > │ let v33 : string = method9() │
00:06:45 #33912 [verbose] > │ v33 │
00:06:45 #33913 [verbose] > │ #endif │
00:06:45 #33914 [verbose] > │ #if FABLE_COMPILER_RUST && CONTRACT │
00:06:45 #33915 [verbose] > │ let v34 : string = method9() │
00:06:45 #33916 [verbose] > │ v34 │
00:06:45 #33917 [verbose] > │ #endif │
00:06:45 #33918 [verbose] > │ #if !FABLE_COMPILER && !FABLE_COMPILER_RUST && │
00:06:45 #33919 [verbose] > │ !FABLE_COMPILER_TYPESCRIPT && !WASM && !CONTRACT │
00:06:45 #33920 [verbose] > │ let v35 : (int64 -> US2) = method8() │
00:06:45 #33921 [verbose] > │ let v36 : US2 = US2_1 │
00:06:45 #33922 [verbose] > │ let v37 : US2 = v8 |> Option.map v35 |> Option.defaultValue v36 │
00:06:45 #33923 [verbose] > │ let v55 : System.DateTime = │
00:06:45 #33924 [verbose] > │ match v37 with │
00:06:45 #33925 [verbose] > │ | US2_1 -> (* None *) │
00:06:45 #33926 [verbose] > │ let v53 : System.DateTime = System.DateTime.Now │
00:06:45 #33927 [verbose] > │ v53 │
00:06:45 #33928 [verbose] > │ | US2_0(v38) -> (* Some *) │
00:06:45 #33929 [verbose] > │ let v39 : System.DateTime = System.DateTime.Now │
00:06:45 #33930 [verbose] > │ let v40 : (System.DateTime -> int64) = _.Ticks │
00:06:45 #33931 [verbose] > │ let v41 : int64 = v40 v39 │
00:06:45 #33932 [verbose] > │ let v42 : int64 = v41 - v38 │
00:06:45 #33933 [verbose] > │ let v43 : System.TimeSpan = System.TimeSpan v42 │
00:06:45 #33934 [verbose] > │ let v44 : (System.TimeSpan -> int32) = _.Hours │
00:06:45 #33935 [verbose] > │ let v45 : int32 = v44 v43 │
00:06:45 #33936 [verbose] > │ let v46 : (System.TimeSpan -> int32) = _.Minutes │
00:06:45 #33937 [verbose] > │ let v47 : int32 = v46 v43 │
00:06:45 #33938 [verbose] > │ let v48 : (System.TimeSpan -> int32) = _.Seconds │
00:06:45 #33939 [verbose] > │ let v49 : int32 = v48 v43 │
00:06:45 #33940 [verbose] > │ let v50 : (System.TimeSpan -> int32) = _.Milliseconds │
00:06:45 #33941 [verbose] > │ let v51 : int32 = v50 v43 │
00:06:45 #33942 [verbose] > │ let v52 : System.DateTime = System.DateTime (1, 1, 1, v45, v47, │
00:06:45 #33943 [verbose] > │ v49, v51) │
00:06:45 #33944 [verbose] > │ v52 │
00:06:45 #33945 [verbose] > │ let v56 : string = "HH:mm:ss" │
00:06:45 #33946 [verbose] > │ let v57 : string = v55.ToString v56 │
00:06:45 #33947 [verbose] > │ v57 │
00:06:45 #33948 [verbose] > │ #endif │
00:06:45 #33949 [verbose] > │ #if FABLE_COMPILER_TYPESCRIPT │
00:06:45 #33950 [verbose] > │ let v58 : string = method9() │
00:06:45 #33951 [verbose] > │ v58 │
00:06:45 #33952 [verbose] > │ #endif │
00:06:45 #33953 [verbose] > │ #if FABLE_COMPILER_PYTHON || FABLE_COMPILER_PHP || FABLE_COMPILER_DART │
00:06:45 #33954 [verbose] > │ let v59 : string = Unchecked.defaultof<string> │
00:06:45 #33955 [verbose] > │ v59 │
00:06:45 #33956 [verbose] > │ #endif │
00:06:45 #33957 [verbose] > │ |> fun x -> _v9 <- Some x │
00:06:45 #33958 [verbose] > │ let v60 : string = _v9.Value │
00:06:45 #33959 [verbose] > │ let v61 : int64 = v4.l0 │
00:06:45 #33960 [verbose] > │ let v71 : string = │
00:06:45 #33961 [verbose] > │ match v0 with │
00:06:45 #33962 [verbose] > │ | US0_4 -> (* Critical *) │
00:06:45 #33963 [verbose] > │ let v66 : string = "Critical" │
00:06:45 #33964 [verbose] > │ v66 │
00:06:45 #33965 [verbose] > │ | US0_1 -> (* Debug *) │
00:06:45 #33966 [verbose] > │ let v63 : string = "Debug" │
00:06:45 #33967 [verbose] > │ v63 │
00:06:45 #33968 [verbose] > │ | US0_2 -> (* Info *) │
00:06:45 #33969 [verbose] > │ let v64 : string = "Info" │
00:06:45 #33970 [verbose] > │ v64 │
00:06:45 #33971 [verbose] > │ | US0_0 -> (* Verbose *) │
00:06:45 #33972 [verbose] > │ let v62 : string = "Verbose" │
00:06:45 #33973 [verbose] > │ v62 │
00:06:45 #33974 [verbose] > │ | US0_3 -> (* Warning *) │
00:06:45 #33975 [verbose] > │ let v65 : string = "Warning" │
00:06:45 #33976 [verbose] > │ v65 │
00:06:45 #33977 [verbose] > │ let v72 : string = v71.ToLower () │
00:06:45 #33978 [verbose] > │ let v73 : string = $"{v60} #{v61} [{v72}] %s{v1 ()} / %s{v2 ()}" │
00:06:45 #33979 [verbose] > │ let v74 : (char []) = [||] │
00:06:45 #33980 [verbose] > │ let v75 : string = v73.TrimStart v74 │
00:06:45 #33981 [verbose] > │ let v76 : (char []) = [|' '; '/'|] │
00:06:45 #33982 [verbose] > │ let v77 : string = v75.TrimEnd v76 │
00:06:45 #33983 [verbose] > │ v77 │
00:06:45 #33984 [verbose] > │ and method5 (v0 : US0, v1 : (unit -> string), v2 : (unit -> string)) : unit │
00:06:45 #33985 [verbose] > │ = │
00:06:45 #33986 [verbose] > │ let v3 : (unit -> struct (Mut0 * Mut1 * Mut1 * Mut2 * int64 option)) = │
00:06:45 #33987 [verbose] > │ closure7() │
00:06:45 #33988 [verbose] > │ if State.trace_state = None then State.trace_state <- v3 () |> Some │
00:06:45 #33989 [verbose] > │ let struct (v4 : Mut0, v5 : Mut1, v6 : Mut1, v7 : Mut2, v8 : int64 │
00:06:45 #33990 [verbose] > │ option) = State.trace_state.Value │
00:06:45 #33991 [verbose] > │ if State.trace_state = None then State.trace_state <- v3 () |> Some │
00:06:45 #33992 [verbose] > │ let struct (v9 : Mut0, v10 : Mut1, v11 : Mut1, v12 : Mut2, v13 : int64 │
00:06:45 #33993 [verbose] > │ option) = State.trace_state.Value │
00:06:45 #33994 [verbose] > │ let v14 : US0 = v12.l0 │
00:06:45 #33995 [verbose] > │ let v15 : bool = v11.l0 │
00:06:45 #33996 [verbose] > │ let v17 : bool = │
00:06:45 #33997 [verbose] > │ if v15 then │
00:06:45 #33998 [verbose] > │ let v16 : bool = v0 >= v14 │
00:06:45 #33999 [verbose] > │ v16 │
00:06:45 #34000 [verbose] > │ else │
00:06:45 #34001 [verbose] > │ false │
00:06:45 #34002 [verbose] > │ if v17 then │
00:06:45 #34003 [verbose] > │ let v18 : int64 = v4.l0 │
00:06:45 #34004 [verbose] > │ let v19 : int64 = v18 + 1L │
00:06:45 #34005 [verbose] > │ v4.l0 <- v19 │
00:06:45 #34006 [verbose] > │ let v20 : (unit -> string) = closure8(v0, v1, v2) │
00:06:45 #34007 [verbose] > │ let v21 : string = $"%s{v20 ()}" │
00:06:45 #34008 [verbose] > │ let v22 : unit option = None │
00:06:45 #34009 [verbose] > │ let mutable _v22 = v22 │
00:06:45 #34010 [verbose] > │ #if FABLE_COMPILER_RUST && !WASM && !CONTRACT │
00:06:45 #34011 [verbose] > │ let v23 : string = @"println!(""{}"", $0)" │
00:06:45 #34012 [verbose] > │ Fable.Core.RustInterop.emitRustExpr v21 v23 │
00:06:45 #34013 [verbose] > │ () │
00:06:45 #34014 [verbose] > │ #endif │
00:06:45 #34015 [verbose] > │ #if FABLE_COMPILER_RUST && WASM │
00:06:45 #34016 [verbose] > │ let v24 : string = @"println!(""{}"", $0)" │
00:06:45 #34017 [verbose] > │ Fable.Core.RustInterop.emitRustExpr v21 v24 │
00:06:45 #34018 [verbose] > │ () │
00:06:45 #34019 [verbose] > │ #endif │
00:06:45 #34020 [verbose] > │ #if FABLE_COMPILER_RUST && CONTRACT │
00:06:45 #34021 [verbose] > │ let v25 : string = @"println!(""{}"", $0)" │
00:06:45 #34022 [verbose] > │ Fable.Core.RustInterop.emitRustExpr v21 v25 │
00:06:45 #34023 [verbose] > │ () │
00:06:45 #34024 [verbose] > │ #endif │
00:06:45 #34025 [verbose] > │ #if !FABLE_COMPILER && !FABLE_COMPILER_RUST && │
00:06:45 #34026 [verbose] > │ !FABLE_COMPILER_TYPESCRIPT && !WASM && !CONTRACT │
00:06:45 #34027 [verbose] > │ System.Console.WriteLine v21 │
00:06:45 #34028 [verbose] > │ () │
00:06:45 #34029 [verbose] > │ #endif │
00:06:45 #34030 [verbose] > │ #if FABLE_COMPILER_TYPESCRIPT │
00:06:45 #34031 [verbose] > │ System.Console.WriteLine v21 │
00:06:45 #34032 [verbose] > │ () │
00:06:45 #34033 [verbose] > │ #endif │
00:06:45 #34034 [verbose] > │ #if FABLE_COMPILER_PYTHON || FABLE_COMPILER_PHP || │
00:06:45 #34035 [verbose] > │ FABLE_COMPILER_DART │
00:06:45 #34036 [verbose] > │ Unchecked.defaultof<unit> │
00:06:45 #34037 [verbose] > │ () │
00:06:45 #34038 [verbose] > │ #endif │
00:06:45 #34039 [verbose] > │ |> fun x -> _v22 <- Some x │
00:06:45 #34040 [verbose] > │ _v22.Value │
00:06:45 #34041 [verbose] > │ () │
00:06:45 #34042 [verbose] > │ and closure10 () () : string = │
00:06:45 #34043 [verbose] > │ let v0 : string = "2" │
00:06:45 #34044 [verbose] > │ v0 │
00:06:45 #34045 [verbose] > │ and closure11 () () : string = │
00:06:45 #34046 [verbose] > │ let v0 : string = "_1" │
00:06:45 #34047 [verbose] > │ v0 │
00:06:45 #34048 [verbose] > │ and closure12 () () : string = │
00:06:45 #34049 [verbose] > │ let v0 : string = "_2" │
00:06:45 #34050 [verbose] > │ v0 │
00:06:45 #34051 [verbose] > │ and closure13 () () : string = │
00:06:45 #34052 [verbose] > │ let v0 : string = "_3" │
00:06:45 #34053 [verbose] > │ v0 │
00:06:45 #34054 [verbose] > │ and closure14 () () : string = │
00:06:45 #34055 [verbose] > │ let v0 : string = "3" │
00:06:45 #34056 [verbose] > │ v0 │
00:06:45 #34057 [verbose] > │ and closure15 () () : string = │
00:06:45 #34058 [verbose] > │ let v0 : string = "4" │
00:06:45 #34059 [verbose] > │ v0 │
00:06:45 #34060 [verbose] > │ and closure16 () () : string = │
00:06:45 #34061 [verbose] > │ let v0 : string = "delete_file_async" │
00:06:45 #34062 [verbose] > │ v0 │
00:06:45 #34063 [verbose] > │ and method10 (v0 : string, v1 : int64) : Async<int64> = │
00:06:45 #34064 [verbose] > │ let v2 : Async<int64> option = None │
00:06:45 #34065 [verbose] > │ let mutable _v2 = v2 │
00:06:45 #34066 [verbose] > │ #if FABLE_COMPILER_RUST && !WASM && !CONTRACT │
00:06:45 #34067 [verbose] > │ let v3 : Async<int64> = null |> unbox<Async<int64>> │
00:06:45 #34068 [verbose] > │ v3 │
00:06:45 #34069 [verbose] > │ #endif │
00:06:45 #34070 [verbose] > │ #if FABLE_COMPILER_RUST && WASM │
00:06:45 #34071 [verbose] > │ let v4 : Async<int64> = null |> unbox<Async<int64>> │
00:06:45 #34072 [verbose] > │ v4 │
00:06:45 #34073 [verbose] > │ #endif │
00:06:45 #34074 [verbose] > │ #if FABLE_COMPILER_RUST && CONTRACT │
00:06:45 #34075 [verbose] > │ let v5 : Async<int64> = null |> unbox<Async<int64>> │
00:06:45 #34076 [verbose] > │ v5 │
00:06:45 #34077 [verbose] > │ #endif │
00:06:45 #34078 [verbose] > │ #if !FABLE_COMPILER && !FABLE_COMPILER_RUST && │
00:06:45 #34079 [verbose] > │ !FABLE_COMPILER_TYPESCRIPT && !WASM && !CONTRACT │
00:06:45 #34080 [verbose] > │ let v6 : Async<int64> option = None │
00:06:45 #34081 [verbose] > │ let mutable _v6 = v6 │
00:06:45 #34082 [verbose] > │ async { │
00:06:45 #34083 [verbose] > │ try │
00:06:45 #34084 [verbose] > │ let v7 : unit option = None │
00:06:45 #34085 [verbose] > │ let mutable _v7 = v7 │
00:06:45 #34086 [verbose] > │ #if FABLE_COMPILER_RUST && !WASM && !CONTRACT │
00:06:45 #34087 [verbose] > │ null |> unbox<unit> │
00:06:45 #34088 [verbose] > │ () │
00:06:45 #34089 [verbose] > │ #endif │
00:06:45 #34090 [verbose] > │ #if FABLE_COMPILER_RUST && WASM │
00:06:45 #34091 [verbose] > │ null |> unbox<unit> │
00:06:45 #34092 [verbose] > │ () │
00:06:45 #34093 [verbose] > │ #endif │
00:06:45 #34094 [verbose] > │ #if FABLE_COMPILER_RUST && CONTRACT │
00:06:45 #34095 [verbose] > │ null |> unbox<unit> │
00:06:45 #34096 [verbose] > │ () │
00:06:45 #34097 [verbose] > │ #endif │
00:06:45 #34098 [verbose] > │ #if !FABLE_COMPILER && !FABLE_COMPILER_RUST && │
00:06:45 #34099 [verbose] > │ !FABLE_COMPILER_TYPESCRIPT && !WASM && !CONTRACT │
00:06:45 #34100 [verbose] > │ let v8 : (string -> unit) = System.IO.File.Delete │
00:06:45 #34101 [verbose] > │ v8 v0 │
00:06:45 #34102 [verbose] > │ () │
00:06:45 #34103 [verbose] > │ #endif │
00:06:45 #34104 [verbose] > │ #if FABLE_COMPILER_TYPESCRIPT │
00:06:45 #34105 [verbose] > │ null |> unbox<unit> │
00:06:45 #34106 [verbose] > │ () │
00:06:45 #34107 [verbose] > │ #endif │
00:06:45 #34108 [verbose] > │ #if FABLE_COMPILER_PYTHON || FABLE_COMPILER_PHP || FABLE_COMPILER_DART │
00:06:45 #34109 [verbose] > │ Unchecked.defaultof<unit> │
00:06:45 #34110 [verbose] > │ () │
00:06:45 #34111 [verbose] > │ #endif │
00:06:45 #34112 [verbose] > │ |> fun x -> _v7 <- Some x │
00:06:45 #34113 [verbose] > │ _v7.Value │
00:06:45 #34114 [verbose] > │ return v1 │
00:06:45 #34115 [verbose] > │ with ex -> │
00:06:45 #34116 [verbose] > │ let v9 : exn = ex │
00:06:45 #34117 [verbose] > │ let v10 : int64 = v1 % 100L │
00:06:45 #34118 [verbose] > │ let v11 : bool = v10 = 0L │
00:06:45 #34119 [verbose] > │ if v11 then │
00:06:45 #34120 [verbose] > │ let v12 : string option = None │
00:06:45 #34121 [verbose] > │ let mutable _v12 = v12 │
00:06:45 #34122 [verbose] > │ #if FABLE_COMPILER_RUST && !WASM && !CONTRACT │
00:06:45 #34123 [verbose] > │ let v13 : string = $"%A{v9}" │
00:06:45 #34124 [verbose] > │ v13 │
00:06:45 #34125 [verbose] > │ #endif │
00:06:45 #34126 [verbose] > │ #if FABLE_COMPILER_RUST && WASM │
00:06:45 #34127 [verbose] > │ let v14 : string = $"%A{v9}" │
00:06:45 #34128 [verbose] > │ v14 │
00:06:45 #34129 [verbose] > │ #endif │
00:06:45 #34130 [verbose] > │ #if FABLE_COMPILER_RUST && CONTRACT │
00:06:45 #34131 [verbose] > │ let v15 : string = $"%A{v9}" │
00:06:45 #34132 [verbose] > │ v15 │
00:06:45 #34133 [verbose] > │ #endif │
00:06:45 #34134 [verbose] > │ #if !FABLE_COMPILER && !FABLE_COMPILER_RUST && │
00:06:45 #34135 [verbose] > │ !FABLE_COMPILER_TYPESCRIPT && !WASM && !CONTRACT │
00:06:45 #34136 [verbose] > │ let v16 : string = $"{v9.GetType ()}: {v9.Message}" │
00:06:45 #34137 [verbose] > │ v16 │
00:06:45 #34138 [verbose] > │ #endif │
00:06:45 #34139 [verbose] > │ #if FABLE_COMPILER_TYPESCRIPT │
00:06:45 #34140 [verbose] > │ let v17 : string = $"%A{v9}" │
00:06:45 #34141 [verbose] > │ v17 │
00:06:45 #34142 [verbose] > │ #endif │
00:06:45 #34143 [verbose] > │ #if FABLE_COMPILER_PYTHON || FABLE_COMPILER_PHP || │
00:06:45 #34144 [verbose] > │ FABLE_COMPILER_DART │
00:06:45 #34145 [verbose] > │ let v18 : string = Unchecked.defaultof<string> │
00:06:45 #34146 [verbose] > │ v18 │
00:06:45 #34147 [verbose] > │ #endif │
00:06:45 #34148 [verbose] > │ |> fun x -> _v12 <- Some x │
00:06:45 #34149 [verbose] > │ let v19 : string = _v12.Value │
00:06:45 #34150 [verbose] > │ let v20 : US0 = US0_3 │
00:06:45 #34151 [verbose] > │ let v21 : (unit -> string) = closure16() │
00:06:45 #34152 [verbose] > │ let v22 : (unit -> string) = closure2() │
00:06:45 #34153 [verbose] > │ method5(v20, v21, v22) │
00:06:45 #34154 [verbose] > │ let v23 : Async<unit> option = None │
00:06:45 #34155 [verbose] > │ let mutable _v23 = v23 │
00:06:45 #34156 [verbose] > │ #if FABLE_COMPILER_RUST && !WASM && !CONTRACT │
00:06:45 #34157 [verbose] > │ let v24 : Async<unit> = null |> unbox<Async<unit>> │
00:06:45 #34158 [verbose] > │ v24 │
00:06:45 #34159 [verbose] > │ #endif │
00:06:45 #34160 [verbose] > │ #if FABLE_COMPILER_RUST && WASM │
00:06:45 #34161 [verbose] > │ let v25 : Async<unit> = null |> unbox<Async<unit>> │
00:06:45 #34162 [verbose] > │ v25 │
00:06:45 #34163 [verbose] > │ #endif │
00:06:45 #34164 [verbose] > │ #if FABLE_COMPILER_RUST && CONTRACT │
00:06:45 #34165 [verbose] > │ let v26 : Async<unit> = null |> unbox<Async<unit>> │
00:06:45 #34166 [verbose] > │ v26 │
00:06:45 #34167 [verbose] > │ #endif │
00:06:45 #34168 [verbose] > │ #if !FABLE_COMPILER && !FABLE_COMPILER_RUST && │
00:06:45 #34169 [verbose] > │ !FABLE_COMPILER_TYPESCRIPT && !WASM && !CONTRACT │
00:06:45 #34170 [verbose] > │ let v27 : (int32 -> Async<unit>) = Async.Sleep │
00:06:45 #34171 [verbose] > │ let v28 : Async<unit> = v27 10 │
00:06:45 #34172 [verbose] > │ v28 │
00:06:45 #34173 [verbose] > │ #endif │
00:06:45 #34174 [verbose] > │ #if FABLE_COMPILER_TYPESCRIPT │
00:06:45 #34175 [verbose] > │ let v29 : Async<unit> = null |> unbox<Async<unit>> │
00:06:45 #34176 [verbose] > │ v29 │
00:06:45 #34177 [verbose] > │ #endif │
00:06:45 #34178 [verbose] > │ #if FABLE_COMPILER_PYTHON || FABLE_COMPILER_PHP || FABLE_COMPILER_DART │
00:06:45 #34179 [verbose] > │ let v30 : Async<unit> = Unchecked.defaultof<Async<unit>> │
00:06:45 #34180 [verbose] > │ v30 │
00:06:45 #34181 [verbose] > │ #endif │
00:06:45 #34182 [verbose] > │ |> fun x -> _v23 <- Some x │
00:06:45 #34183 [verbose] > │ let v31 : Async<unit> = _v23.Value │
00:06:45 #34184 [verbose] > │ do! v31 │
00:06:45 #34185 [verbose] > │ let v32 : int64 = v1 + 1L │
00:06:45 #34186 [verbose] > │ let v33 : Async<int64> = method10(v0, v32) │
00:06:45 #34187 [verbose] > │ return! v33 │
00:06:45 #34188 [verbose] > │ (* │
00:06:45 #34189 [verbose] > │ let v34 : int64 = *) │
00:06:45 #34190 [verbose] > │ } │
00:06:45 #34191 [verbose] > │ |> fun x -> _v6 <- Some x │
00:06:45 #34192 [verbose] > │ let v35 : Async<int64> = _v6 |> Option.get │
00:06:45 #34193 [verbose] > │ v35 │
00:06:45 #34194 [verbose] > │ #endif │
00:06:45 #34195 [verbose] > │ #if FABLE_COMPILER_TYPESCRIPT │
00:06:45 #34196 [verbose] > │ let v36 : Async<int64> = null |> unbox<Async<int64>> │
00:06:45 #34197 [verbose] > │ v36 │
00:06:45 #34198 [verbose] > │ #endif │
00:06:45 #34199 [verbose] > │ #if FABLE_COMPILER_PYTHON || FABLE_COMPILER_PHP || FABLE_COMPILER_DART │
00:06:45 #34200 [verbose] > │ let v37 : Async<int64> = Unchecked.defaultof<Async<int64>> │
00:06:45 #34201 [verbose] > │ v37 │
00:06:45 #34202 [verbose] > │ #endif │
00:06:45 #34203 [verbose] > │ |> fun x -> _v2 <- Some x │
00:06:45 #34204 [verbose] > │ let v38 : Async<int64> = _v2.Value │
00:06:45 #34205 [verbose] > │ v38 │
00:06:45 #34206 [verbose] > │ and closure17 () () : string = │
00:06:45 #34207 [verbose] > │ let v0 : string = "5" │
00:06:45 #34208 [verbose] > │ v0 │
00:06:45 #34209 [verbose] > │ and closure18 () () : string = │
00:06:45 #34210 [verbose] > │ let v0 : string = "6" │
00:06:45 #34211 [verbose] > │ v0 │
00:06:45 #34212 [verbose] > │ and closure19 () (v0 : int64) : US3 = │
00:06:45 #34213 [verbose] > │ US3_0(v0) │
00:06:45 #34214 [verbose] > │ and closure20 () (v0 : exn) : US3 = │
00:06:45 #34215 [verbose] > │ US3_1(v0) │
00:06:45 #34216 [verbose] > │ and closure21 () () : string = │
00:06:45 #34217 [verbose] > │ let v0 : string = "run_with_timeout_async" │
00:06:45 #34218 [verbose] > │ v0 │
00:06:45 #34219 [verbose] > │ and closure22 () () : string = │
00:06:45 #34220 [verbose] > │ let v0 : (unit -> string) = closure2() │
00:06:45 #34221 [verbose] > │ let v1 : string = $"timeout: {3000} / {v0 ()}" │
00:06:45 #34222 [verbose] > │ v1 │
00:06:45 #34223 [verbose] > │ and closure23 (v0 : string) () : string = │
00:06:45 #34224 [verbose] > │ let v1 : string = $"run_with_timeout_async** / ex: {v0}" │
00:06:45 #34225 [verbose] > │ v1 │
00:06:45 #34226 [verbose] > │ and method11 (v0 : bool) : bool = │
00:06:45 #34227 [verbose] > │ v0 │
00:06:45 #34228 [verbose] > │ and method0 () : unit = │
00:06:45 #34229 [verbose] > │ let v0 : struct (string * System.IDisposable) option = None │
00:06:45 #34230 [verbose] > │ let mutable _v0 = v0 │
00:06:45 #34231 [verbose] > │ #if FABLE_COMPILER_RUST && !WASM && !CONTRACT │
00:06:45 #34232 [verbose] > │ let struct (v1 : string, v2 : System.IDisposable) = null |> unbox<struct │
00:06:45 #34233 [verbose] > │ (string * System.IDisposable)> │
00:06:45 #34234 [verbose] > │ struct (v1, v2) │
00:06:45 #34235 [verbose] > │ #endif │
00:06:45 #34236 [verbose] > │ #if FABLE_COMPILER_RUST && WASM │
00:06:45 #34237 [verbose] > │ let struct (v3 : string, v4 : System.IDisposable) = null |> unbox<struct │
00:06:45 #34238 [verbose] > │ (string * System.IDisposable)> │
00:06:45 #34239 [verbose] > │ struct (v3, v4) │
00:06:45 #34240 [verbose] > │ #endif │
00:06:45 #34241 [verbose] > │ #if FABLE_COMPILER_RUST && CONTRACT │
00:06:45 #34242 [verbose] > │ let struct (v5 : string, v6 : System.IDisposable) = null |> unbox<struct │
00:06:45 #34243 [verbose] > │ (string * System.IDisposable)> │
00:06:45 #34244 [verbose] > │ struct (v5, v6) │
00:06:45 #34245 [verbose] > │ #endif │
00:06:45 #34246 [verbose] > │ #if !FABLE_COMPILER && !FABLE_COMPILER_RUST && │
00:06:45 #34247 [verbose] > │ !FABLE_COMPILER_TYPESCRIPT && !WASM && !CONTRACT │
00:06:45 #34248 [verbose] > │ let v7 : string option = None │
00:06:45 #34249 [verbose] > │ let mutable _v7 = v7 │
00:06:45 #34250 [verbose] > │ #if FABLE_COMPILER_RUST && !WASM && !CONTRACT │
00:06:45 #34251 [verbose] > │ let v8 : string = null |> unbox<string> │
00:06:45 #34252 [verbose] > │ v8 │
00:06:45 #34253 [verbose] > │ #endif │
00:06:45 #34254 [verbose] > │ #if FABLE_COMPILER_RUST && WASM │
00:06:45 #34255 [verbose] > │ let v9 : string = null |> unbox<string> │
00:06:45 #34256 [verbose] > │ v9 │
00:06:45 #34257 [verbose] > │ #endif │
00:06:45 #34258 [verbose] > │ #if FABLE_COMPILER_RUST && CONTRACT │
00:06:45 #34259 [verbose] > │ let v10 : string = null |> unbox<string> │
00:06:45 #34260 [verbose] > │ v10 │
00:06:45 #34261 [verbose] > │ #endif │
00:06:45 #34262 [verbose] > │ #if !FABLE_COMPILER && !FABLE_COMPILER_RUST && │
00:06:45 #34263 [verbose] > │ !FABLE_COMPILER_TYPESCRIPT && !WASM && !CONTRACT │
00:06:45 #34264 [verbose] > │ let v11 : (unit -> string) = System.IO.Path.GetTempPath │
00:06:45 #34265 [verbose] > │ let v12 : string = v11 () │
00:06:45 #34266 [verbose] > │ let v13 : (unit -> string) = closure0() │
00:06:45 #34267 [verbose] > │ let v14 : string = $"!{v13 ()}" │
00:06:45 #34268 [verbose] > │ let v15 : string option = None │
00:06:45 #34269 [verbose] > │ let mutable _v15 = v15 │
00:06:45 #34270 [verbose] > │ #if FABLE_COMPILER_RUST && !WASM && !CONTRACT │
00:06:45 #34271 [verbose] > │ let v16 : string = method1(v12) │
00:06:45 #34272 [verbose] > │ let v17 : string = "fable_library_rust::String_::LrcStr::as_str(&$0)" │
00:06:45 #34273 [verbose] > │ let v18 : Ref<Str> = Fable.Core.RustInterop.emitRustExpr v16 v17 │
00:06:45 #34274 [verbose] > │ let v19 : string = "String::from($0)" │
00:06:45 #34275 [verbose] > │ let v20 : std_string_String = Fable.Core.RustInterop.emitRustExpr v18 │
00:06:45 #34276 [verbose] > │ v19 │
00:06:45 #34277 [verbose] > │ let v21 : string = "std::path::PathBuf::from($0)" │
00:06:45 #34278 [verbose] > │ let v22 : std_path_PathBuf = Fable.Core.RustInterop.emitRustExpr v20 v21 │
00:06:45 #34279 [verbose] > │ let v23 : string = method1(v14) │
00:06:45 #34280 [verbose] > │ let v24 : string = "fable_library_rust::String_::LrcStr::as_str(&$0)" │
00:06:45 #34281 [verbose] > │ let v25 : Ref<Str> = Fable.Core.RustInterop.emitRustExpr v23 v24 │
00:06:45 #34282 [verbose] > │ let v26 : string = "String::from($0)" │
00:06:45 #34283 [verbose] > │ let v27 : std_string_String = Fable.Core.RustInterop.emitRustExpr v25 │
00:06:45 #34284 [verbose] > │ v26 │
00:06:45 #34285 [verbose] > │ let v28 : string = "$0.join($1)" │
00:06:45 #34286 [verbose] > │ let v29 : std_path_PathBuf = Fable.Core.RustInterop.emitRustExpr struct │
00:06:45 #34287 [verbose] > │ (v22, v27) v28 │
00:06:45 #34288 [verbose] > │ let v30 : string = "$0.display().to_string()" │
00:06:45 #34289 [verbose] > │ let v31 : std_string_String = Fable.Core.RustInterop.emitRustExpr v29 │
00:06:45 #34290 [verbose] > │ v30 │
00:06:45 #34291 [verbose] > │ let v32 : string = "fable_library_rust::String_::fromString($0)" │
00:06:45 #34292 [verbose] > │ let v33 : string = Fable.Core.RustInterop.emitRustExpr v31 v32 │
00:06:45 #34293 [verbose] > │ v33 │
00:06:45 #34294 [verbose] > │ #endif │
00:06:45 #34295 [verbose] > │ #if FABLE_COMPILER_RUST && WASM │
00:06:45 #34296 [verbose] > │ let v34 : string = null |> unbox<string> │
00:06:45 #34297 [verbose] > │ v34 │
00:06:45 #34298 [verbose] > │ #endif │
00:06:45 #34299 [verbose] > │ #if FABLE_COMPILER_RUST && CONTRACT │
00:06:45 #34300 [verbose] > │ let v35 : string = null |> unbox<string> │
00:06:45 #34301 [verbose] > │ v35 │
00:06:45 #34302 [verbose] > │ #endif │
00:06:45 #34303 [verbose] > │ #if !FABLE_COMPILER && !FABLE_COMPILER_RUST && │
00:06:45 #34304 [verbose] > │ !FABLE_COMPILER_TYPESCRIPT && !WASM && !CONTRACT │
00:06:45 #34305 [verbose] > │ let v36 : string = System.IO.Path.Combine (v12, v14) │
00:06:45 #34306 [verbose] > │ v36 │
00:06:45 #34307 [verbose] > │ #endif │
00:06:45 #34308 [verbose] > │ #if FABLE_COMPILER_TYPESCRIPT │
00:06:45 #34309 [verbose] > │ let v37 : string = "path" │
00:06:45 #34310 [verbose] > │ let v38 : IPathJoin = Fable.Core.JsInterop.importAll v37 │
00:06:45 #34311 [verbose] > │ let v39 : string = "v38.join($0, $1)" │
00:06:45 #34312 [verbose] > │ let v40 : string = Fable.Core.JsInterop.emitJsExpr struct (v12, v14) v39 │
00:06:45 #34313 [verbose] > │ v40 │
00:06:45 #34314 [verbose] > │ #endif │
00:06:45 #34315 [verbose] > │ #if FABLE_COMPILER_PYTHON || FABLE_COMPILER_PHP || FABLE_COMPILER_DART │
00:06:45 #34316 [verbose] > │ let v41 : string = Unchecked.defaultof<string> │
00:06:45 #34317 [verbose] > │ v41 │
00:06:45 #34318 [verbose] > │ #endif │
00:06:45 #34319 [verbose] > │ |> fun x -> _v15 <- Some x │
00:06:45 #34320 [verbose] > │ let v42 : string = _v15.Value │
00:06:45 #34321 [verbose] > │ let v43 : System.DateTime = System.DateTime.Now │
00:06:45 #34322 [verbose] > │ let v44 : System.Guid = System.Guid.NewGuid () │
00:06:45 #34323 [verbose] > │ let v45 : (System.Guid -> string) = _.ToString() │
00:06:45 #34324 [verbose] > │ let v46 : string = v45 v44 │
00:06:45 #34325 [verbose] > │ let v47 : string = v43.ToString "yyyyMMdd-HHmm-ssff-ffff-f" │
00:06:45 #34326 [verbose] > │ let v48 : System.Guid = System.Guid $"{v47}{v46.[v47.Length..]}" │
00:06:45 #34327 [verbose] > │ let v49 : (System.Guid -> string) = _.ToString() │
00:06:45 #34328 [verbose] > │ let v50 : string = v49 v48 │
00:06:45 #34329 [verbose] > │ let v51 : string option = None │
00:06:45 #34330 [verbose] > │ let mutable _v51 = v51 │
00:06:45 #34331 [verbose] > │ #if FABLE_COMPILER_RUST && !WASM && !CONTRACT │
00:06:45 #34332 [verbose] > │ let v52 : string = method1(v42) │
00:06:45 #34333 [verbose] > │ let v53 : string = "fable_library_rust::String_::LrcStr::as_str(&$0)" │
00:06:45 #34334 [verbose] > │ let v54 : Ref<Str> = Fable.Core.RustInterop.emitRustExpr v52 v53 │
00:06:45 #34335 [verbose] > │ let v55 : string = "String::from($0)" │
00:06:45 #34336 [verbose] > │ let v56 : std_string_String = Fable.Core.RustInterop.emitRustExpr v54 │
00:06:45 #34337 [verbose] > │ v55 │
00:06:45 #34338 [verbose] > │ let v57 : string = "std::path::PathBuf::from($0)" │
00:06:45 #34339 [verbose] > │ let v58 : std_path_PathBuf = Fable.Core.RustInterop.emitRustExpr v56 v57 │
00:06:45 #34340 [verbose] > │ let v59 : string = method1(v50) │
00:06:45 #34341 [verbose] > │ let v60 : string = "fable_library_rust::String_::LrcStr::as_str(&$0)" │
00:06:45 #34342 [verbose] > │ let v61 : Ref<Str> = Fable.Core.RustInterop.emitRustExpr v59 v60 │
00:06:45 #34343 [verbose] > │ let v62 : string = "String::from($0)" │
00:06:45 #34344 [verbose] > │ let v63 : std_string_String = Fable.Core.RustInterop.emitRustExpr v61 │
00:06:45 #34345 [verbose] > │ v62 │
00:06:45 #34346 [verbose] > │ let v64 : string = "$0.join($1)" │
00:06:45 #34347 [verbose] > │ let v65 : std_path_PathBuf = Fable.Core.RustInterop.emitRustExpr struct │
00:06:45 #34348 [verbose] > │ (v58, v63) v64 │
00:06:45 #34349 [verbose] > │ let v66 : string = "$0.display().to_string()" │
00:06:45 #34350 [verbose] > │ let v67 : std_string_String = Fable.Core.RustInterop.emitRustExpr v65 │
00:06:45 #34351 [verbose] > │ v66 │
00:06:45 #34352 [verbose] > │ let v68 : string = "fable_library_rust::String_::fromString($0)" │
00:06:45 #34353 [verbose] > │ let v69 : string = Fable.Core.RustInterop.emitRustExpr v67 v68 │
00:06:45 #34354 [verbose] > │ v69 │
00:06:45 #34355 [verbose] > │ #endif │
00:06:45 #34356 [verbose] > │ #if FABLE_COMPILER_RUST && WASM │
00:06:45 #34357 [verbose] > │ let v70 : string = null |> unbox<string> │
00:06:45 #34358 [verbose] > │ v70 │
00:06:45 #34359 [verbose] > │ #endif │
00:06:45 #34360 [verbose] > │ #if FABLE_COMPILER_RUST && CONTRACT │
00:06:45 #34361 [verbose] > │ let v71 : string = null |> unbox<string> │
00:06:45 #34362 [verbose] > │ v71 │
00:06:45 #34363 [verbose] > │ #endif │
00:06:45 #34364 [verbose] > │ #if !FABLE_COMPILER && !FABLE_COMPILER_RUST && │
00:06:45 #34365 [verbose] > │ !FABLE_COMPILER_TYPESCRIPT && !WASM && !CONTRACT │
00:06:45 #34366 [verbose] > │ let v72 : string = System.IO.Path.Combine (v42, v50) │
00:06:45 #34367 [verbose] > │ v72 │
00:06:45 #34368 [verbose] > │ #endif │
00:06:45 #34369 [verbose] > │ #if FABLE_COMPILER_TYPESCRIPT │
00:06:45 #34370 [verbose] > │ let v73 : IPathJoin = Fable.Core.JsInterop.importAll v37 │
00:06:45 #34371 [verbose] > │ let v74 : string = "v73.join($0, $1)" │
00:06:45 #34372 [verbose] > │ let v75 : string = Fable.Core.JsInterop.emitJsExpr struct (v42, v50) v74 │
00:06:45 #34373 [verbose] > │ v75 │
00:06:45 #34374 [verbose] > │ #endif │
00:06:45 #34375 [verbose] > │ #if FABLE_COMPILER_PYTHON || FABLE_COMPILER_PHP || FABLE_COMPILER_DART │
00:06:45 #34376 [verbose] > │ let v76 : string = Unchecked.defaultof<string> │
00:06:45 #34377 [verbose] > │ v76 │
00:06:45 #34378 [verbose] > │ #endif │
00:06:45 #34379 [verbose] > │ |> fun x -> _v51 <- Some x │
00:06:45 #34380 [verbose] > │ let v77 : string = _v51.Value │
00:06:45 #34381 [verbose] > │ v77 │
00:06:45 #34382 [verbose] > │ #endif │
00:06:45 #34383 [verbose] > │ #if FABLE_COMPILER_TYPESCRIPT │
00:06:45 #34384 [verbose] > │ let v78 : string = null |> unbox<string> │
00:06:45 #34385 [verbose] > │ v78 │
00:06:45 #34386 [verbose] > │ #endif │
00:06:45 #34387 [verbose] > │ #if FABLE_COMPILER_PYTHON || FABLE_COMPILER_PHP || FABLE_COMPILER_DART │
00:06:45 #34388 [verbose] > │ let v79 : string = Unchecked.defaultof<string> │
00:06:45 #34389 [verbose] > │ v79 │
00:06:45 #34390 [verbose] > │ #endif │
00:06:45 #34391 [verbose] > │ |> fun x -> _v7 <- Some x │
00:06:45 #34392 [verbose] > │ let v80 : string = _v7.Value │
00:06:45 #34393 [verbose] > │ let v81 : System.IO.DirectoryInfo option = None │
00:06:45 #34394 [verbose] > │ let mutable _v81 = v81 │
00:06:45 #34395 [verbose] > │ #if FABLE_COMPILER_RUST && !WASM && !CONTRACT │
00:06:45 #34396 [verbose] > │ let v82 : System.IO.DirectoryInfo = null |> │
00:06:45 #34397 [verbose] > │ unbox<System.IO.DirectoryInfo> │
00:06:45 #34398 [verbose] > │ v82 │
00:06:45 #34399 [verbose] > │ #endif │
00:06:45 #34400 [verbose] > │ #if FABLE_COMPILER_RUST && WASM │
00:06:45 #34401 [verbose] > │ let v83 : System.IO.DirectoryInfo = null |> │
00:06:45 #34402 [verbose] > │ unbox<System.IO.DirectoryInfo> │
00:06:45 #34403 [verbose] > │ v83 │
00:06:45 #34404 [verbose] > │ #endif │
00:06:45 #34405 [verbose] > │ #if FABLE_COMPILER_RUST && CONTRACT │
00:06:45 #34406 [verbose] > │ let v84 : System.IO.DirectoryInfo = null |> │
00:06:45 #34407 [verbose] > │ unbox<System.IO.DirectoryInfo> │
00:06:45 #34408 [verbose] > │ v84 │
00:06:45 #34409 [verbose] > │ #endif │
00:06:45 #34410 [verbose] > │ #if !FABLE_COMPILER && !FABLE_COMPILER_RUST && │
00:06:45 #34411 [verbose] > │ !FABLE_COMPILER_TYPESCRIPT && !WASM && !CONTRACT │
00:06:45 #34412 [verbose] > │ let v85 : (string -> System.IO.DirectoryInfo) = │
00:06:45 #34413 [verbose] > │ System.IO.Directory.CreateDirectory │
00:06:45 #34414 [verbose] > │ let v86 : System.IO.DirectoryInfo = v85 v80 │
00:06:45 #34415 [verbose] > │ v86 │
00:06:45 #34416 [verbose] > │ #endif │
00:06:45 #34417 [verbose] > │ #if FABLE_COMPILER_TYPESCRIPT │
00:06:45 #34418 [verbose] > │ let v87 : System.IO.DirectoryInfo = null |> │
00:06:45 #34419 [verbose] > │ unbox<System.IO.DirectoryInfo> │
00:06:45 #34420 [verbose] > │ v87 │
00:06:45 #34421 [verbose] > │ #endif │
00:06:45 #34422 [verbose] > │ #if FABLE_COMPILER_PYTHON || FABLE_COMPILER_PHP || FABLE_COMPILER_DART │
00:06:45 #34423 [verbose] > │ let v88 : System.IO.DirectoryInfo = │
00:06:45 #34424 [verbose] > │ Unchecked.defaultof<System.IO.DirectoryInfo> │
00:06:45 #34425 [verbose] > │ v88 │
00:06:45 #34426 [verbose] > │ #endif │
00:06:45 #34427 [verbose] > │ |> fun x -> _v81 <- Some x │
00:06:45 #34428 [verbose] > │ let v89 : System.IO.DirectoryInfo = _v81.Value │
00:06:45 #34429 [verbose] > │ let v90 : bool option = None │
00:06:45 #34430 [verbose] > │ let mutable _v90 = v90 │
00:06:45 #34431 [verbose] > │ #if FABLE_COMPILER_RUST && !WASM && !CONTRACT │
00:06:45 #34432 [verbose] > │ let v91 : bool = null |> unbox<bool> │
00:06:45 #34433 [verbose] > │ v91 │
00:06:45 #34434 [verbose] > │ #endif │
00:06:45 #34435 [verbose] > │ #if FABLE_COMPILER_RUST && WASM │
00:06:45 #34436 [verbose] > │ let v92 : bool = null |> unbox<bool> │
00:06:45 #34437 [verbose] > │ v92 │
00:06:45 #34438 [verbose] > │ #endif │
00:06:45 #34439 [verbose] > │ #if FABLE_COMPILER_RUST && CONTRACT │
00:06:45 #34440 [verbose] > │ let v93 : bool = null |> unbox<bool> │
00:06:45 #34441 [verbose] > │ v93 │
00:06:45 #34442 [verbose] > │ #endif │
00:06:45 #34443 [verbose] > │ #if !FABLE_COMPILER && !FABLE_COMPILER_RUST && │
00:06:45 #34444 [verbose] > │ !FABLE_COMPILER_TYPESCRIPT && !WASM && !CONTRACT │
00:06:45 #34445 [verbose] > │ let v94 : bool = v89.Exists │
00:06:45 #34446 [verbose] > │ v94 │
00:06:45 #34447 [verbose] > │ #endif │
00:06:45 #34448 [verbose] > │ #if FABLE_COMPILER_TYPESCRIPT │
00:06:45 #34449 [verbose] > │ let v95 : bool = null |> unbox<bool> │
00:06:45 #34450 [verbose] > │ v95 │
00:06:45 #34451 [verbose] > │ #endif │
00:06:45 #34452 [verbose] > │ #if FABLE_COMPILER_PYTHON || FABLE_COMPILER_PHP || FABLE_COMPILER_DART │
00:06:45 #34453 [verbose] > │ let v96 : bool = Unchecked.defaultof<bool> │
00:06:45 #34454 [verbose] > │ v96 │
00:06:45 #34455 [verbose] > │ #endif │
00:06:45 #34456 [verbose] > │ |> fun x -> _v90 <- Some x │
00:06:45 #34457 [verbose] > │ let v97 : bool = _v90.Value │
00:06:45 #34458 [verbose] > │ let v98 : bool = v97 = false │
00:06:45 #34459 [verbose] > │ if v98 then │
00:06:45 #34460 [verbose] > │ let v99 : System.DateTime option = None │
00:06:45 #34461 [verbose] > │ let mutable _v99 = v99 │
00:06:45 #34462 [verbose] > │ #if FABLE_COMPILER_RUST && !WASM && !CONTRACT │
00:06:45 #34463 [verbose] > │ let v100 : System.DateTime = null |> unbox<System.DateTime> │
00:06:45 #34464 [verbose] > │ v100 │
00:06:45 #34465 [verbose] > │ #endif │
00:06:45 #34466 [verbose] > │ #if FABLE_COMPILER_RUST && WASM │
00:06:45 #34467 [verbose] > │ let v101 : System.DateTime = null |> unbox<System.DateTime> │
00:06:45 #34468 [verbose] > │ v101 │
00:06:45 #34469 [verbose] > │ #endif │
00:06:45 #34470 [verbose] > │ #if FABLE_COMPILER_RUST && CONTRACT │
00:06:45 #34471 [verbose] > │ let v102 : System.DateTime = null |> unbox<System.DateTime> │
00:06:45 #34472 [verbose] > │ v102 │
00:06:45 #34473 [verbose] > │ #endif │
00:06:45 #34474 [verbose] > │ #if !FABLE_COMPILER && !FABLE_COMPILER_RUST && │
00:06:45 #34475 [verbose] > │ !FABLE_COMPILER_TYPESCRIPT && !WASM && !CONTRACT │
00:06:45 #34476 [verbose] > │ let v103 : System.DateTime = v89.CreationTime │
00:06:45 #34477 [verbose] > │ v103 │
00:06:45 #34478 [verbose] > │ #endif │
00:06:45 #34479 [verbose] > │ #if FABLE_COMPILER_TYPESCRIPT │
00:06:45 #34480 [verbose] > │ let v104 : System.DateTime = null |> unbox<System.DateTime> │
00:06:45 #34481 [verbose] > │ v104 │
00:06:45 #34482 [verbose] > │ #endif │
00:06:45 #34483 [verbose] > │ #if FABLE_COMPILER_PYTHON || FABLE_COMPILER_PHP || │
00:06:45 #34484 [verbose] > │ FABLE_COMPILER_DART │
00:06:45 #34485 [verbose] > │ let v105 : System.DateTime = Unchecked.defaultof<System.DateTime> │
00:06:45 #34486 [verbose] > │ v105 │
00:06:45 #34487 [verbose] > │ #endif │
00:06:45 #34488 [verbose] > │ |> fun x -> _v99 <- Some x │
00:06:45 #34489 [verbose] > │ let v106 : System.DateTime = _v99.Value │
00:06:45 #34490 [verbose] > │ let v107 : obj = {| Exists = v97; CreationTime = v106 |} │
00:06:45 #34491 [verbose] > │ let v108 : string = $"%A{v107}" │
00:06:45 #34492 [verbose] > │ let v109 : (unit -> string) = closure1(v80, v108) │
00:06:45 #34493 [verbose] > │ let v110 : string = $"create_temp_directory / {v109 ()}" │
00:06:45 #34494 [verbose] > │ System.Console.WriteLine v110 │
00:06:45 #34495 [verbose] > │ () │
00:06:45 #34496 [verbose] > │ let v111 : System.IDisposable option = None │
00:06:45 #34497 [verbose] > │ let mutable _v111 = v111 │
00:06:45 #34498 [verbose] > │ #if FABLE_COMPILER_RUST && !WASM && !CONTRACT │
00:06:45 #34499 [verbose] > │ let v112 : System.IDisposable = null |> unbox<System.IDisposable> │
00:06:45 #34500 [verbose] > │ v112 │
00:06:45 #34501 [verbose] > │ #endif │
00:06:45 #34502 [verbose] > │ #if FABLE_COMPILER_RUST && WASM │
00:06:45 #34503 [verbose] > │ let v113 : System.IDisposable = null |> unbox<System.IDisposable> │
00:06:45 #34504 [verbose] > │ v113 │
00:06:45 #34505 [verbose] > │ #endif │
00:06:45 #34506 [verbose] > │ #if FABLE_COMPILER_RUST && CONTRACT │
00:06:45 #34507 [verbose] > │ let v114 : System.IDisposable = null |> unbox<System.IDisposable> │
00:06:45 #34508 [verbose] > │ v114 │
00:06:45 #34509 [verbose] > │ #endif │
00:06:45 #34510 [verbose] > │ #if !FABLE_COMPILER && !FABLE_COMPILER_RUST && │
00:06:45 #34511 [verbose] > │ !FABLE_COMPILER_TYPESCRIPT && !WASM && !CONTRACT │
00:06:45 #34512 [verbose] > │ let v115 : (unit -> unit) = closure3(v80) │
00:06:45 #34513 [verbose] > │ let v116 : System.IDisposable = { new System.IDisposable with member │
00:06:45 #34514 [verbose] > │ _.Dispose () = v115 () } │
00:06:45 #34515 [verbose] > │ v116 │
00:06:45 #34516 [verbose] > │ #endif │
00:06:45 #34517 [verbose] > │ #if FABLE_COMPILER_TYPESCRIPT │
00:06:45 #34518 [verbose] > │ let v117 : System.IDisposable = null |> unbox<System.IDisposable> │
00:06:45 #34519 [verbose] > │ v117 │
00:06:45 #34520 [verbose] > │ #endif │
00:06:45 #34521 [verbose] > │ #if FABLE_COMPILER_PYTHON || FABLE_COMPILER_PHP || FABLE_COMPILER_DART │
00:06:45 #34522 [verbose] > │ let v118 : System.IDisposable = Unchecked.defaultof<System.IDisposable> │
00:06:45 #34523 [verbose] > │ v118 │
00:06:45 #34524 [verbose] > │ #endif │
00:06:45 #34525 [verbose] > │ |> fun x -> _v111 <- Some x │
00:06:45 #34526 [verbose] > │ let v119 : System.IDisposable = _v111.Value │
00:06:45 #34527 [verbose] > │ struct (v80, v119) │
00:06:45 #34528 [verbose] > │ #endif │
00:06:45 #34529 [verbose] > │ #if FABLE_COMPILER_TYPESCRIPT │
00:06:45 #34530 [verbose] > │ let struct (v120 : string, v121 : System.IDisposable) = null |> │
00:06:45 #34531 [verbose] > │ unbox<struct (string * System.IDisposable)> │
00:06:45 #34532 [verbose] > │ struct (v120, v121) │
00:06:45 #34533 [verbose] > │ #endif │
00:06:45 #34534 [verbose] > │ #if FABLE_COMPILER_PYTHON || FABLE_COMPILER_PHP || FABLE_COMPILER_DART │
00:06:45 #34535 [verbose] > │ let struct (v122 : string, v123 : System.IDisposable) = │
00:06:45 #34536 [verbose] > │ Unchecked.defaultof<struct (string * System.IDisposable)> │
00:06:45 #34537 [verbose] > │ struct (v122, v123) │
00:06:45 #34538 [verbose] > │ #endif │
00:06:45 #34539 [verbose] > │ |> fun x -> _v0 <- Some x │
00:06:45 #34540 [verbose] > │ let struct (v124 : string, v125 : System.IDisposable) = _v0.Value │
00:06:45 #34541 [verbose] > │ use v125 = v125 │
00:06:45 #34542 [verbose] > │ let v126 : System.IDisposable = v125 │
00:06:45 #34543 [verbose] > │ let v127 : string option = None │
00:06:45 #34544 [verbose] > │ let mutable _v127 = v127 │
00:06:45 #34545 [verbose] > │ #if FABLE_COMPILER_RUST && !WASM && !CONTRACT │
00:06:45 #34546 [verbose] > │ let v128 : string = method1(v124) │
00:06:45 #34547 [verbose] > │ let v129 : string = "fable_library_rust::String_::LrcStr::as_str(&$0)" │
00:06:45 #34548 [verbose] > │ let v130 : Ref<Str> = Fable.Core.RustInterop.emitRustExpr v128 v129 │
00:06:45 #34549 [verbose] > │ let v131 : string = "String::from($0)" │
00:06:45 #34550 [verbose] > │ let v132 : std_string_String = Fable.Core.RustInterop.emitRustExpr v130 │
00:06:45 #34551 [verbose] > │ v131 │
00:06:45 #34552 [verbose] > │ let v133 : string = "std::path::PathBuf::from($0)" │
00:06:45 #34553 [verbose] > │ let v134 : std_path_PathBuf = Fable.Core.RustInterop.emitRustExpr v132 │
00:06:45 #34554 [verbose] > │ v133 │
00:06:45 #34555 [verbose] > │ let v135 : string = method4() │
00:06:45 #34556 [verbose] > │ let v136 : string = "fable_library_rust::String_::LrcStr::as_str(&$0)" │
00:06:45 #34557 [verbose] > │ let v137 : Ref<Str> = Fable.Core.RustInterop.emitRustExpr v135 v136 │
00:06:45 #34558 [verbose] > │ let v138 : string = "String::from($0)" │
00:06:45 #34559 [verbose] > │ let v139 : std_string_String = Fable.Core.RustInterop.emitRustExpr v137 │
00:06:45 #34560 [verbose] > │ v138 │
00:06:45 #34561 [verbose] > │ let v140 : string = "$0.join($1)" │
00:06:45 #34562 [verbose] > │ let v141 : std_path_PathBuf = Fable.Core.RustInterop.emitRustExpr struct │
00:06:45 #34563 [verbose] > │ (v134, v139) v140 │
00:06:45 #34564 [verbose] > │ let v142 : string = "$0.display().to_string()" │
00:06:45 #34565 [verbose] > │ let v143 : std_string_String = Fable.Core.RustInterop.emitRustExpr v141 │
00:06:45 #34566 [verbose] > │ v142 │
00:06:45 #34567 [verbose] > │ let v144 : string = "fable_library_rust::String_::fromString($0)" │
00:06:45 #34568 [verbose] > │ let v145 : string = Fable.Core.RustInterop.emitRustExpr v143 v144 │
00:06:45 #34569 [verbose] > │ v145 │
00:06:45 #34570 [verbose] > │ #endif │
00:06:45 #34571 [verbose] > │ #if FABLE_COMPILER_RUST && WASM │
00:06:45 #34572 [verbose] > │ let v146 : string = null |> unbox<string> │
00:06:45 #34573 [verbose] > │ v146 │
00:06:45 #34574 [verbose] > │ #endif │
00:06:45 #34575 [verbose] > │ #if FABLE_COMPILER_RUST && CONTRACT │
00:06:45 #34576 [verbose] > │ let v147 : string = null |> unbox<string> │
00:06:45 #34577 [verbose] > │ v147 │
00:06:45 #34578 [verbose] > │ #endif │
00:06:45 #34579 [verbose] > │ #if !FABLE_COMPILER && !FABLE_COMPILER_RUST && │
00:06:45 #34580 [verbose] > │ !FABLE_COMPILER_TYPESCRIPT && !WASM && !CONTRACT │
00:06:45 #34581 [verbose] > │ let v148 : string = "test.txt" │
00:06:45 #34582 [verbose] > │ let v149 : string = System.IO.Path.Combine (v124, v148) │
00:06:45 #34583 [verbose] > │ v149 │
00:06:45 #34584 [verbose] > │ #endif │
00:06:45 #34585 [verbose] > │ #if FABLE_COMPILER_TYPESCRIPT │
00:06:45 #34586 [verbose] > │ let v150 : IPathJoin = Fable.Core.JsInterop.importAll v37 │
00:06:45 #34587 [verbose] > │ let v151 : string = "v150.join($0, $1)" │
00:06:45 #34588 [verbose] > │ let v152 : string = Fable.Core.JsInterop.emitJsExpr struct (v124, v148) │
00:06:45 #34589 [verbose] > │ v151 │
00:06:45 #34590 [verbose] > │ v152 │
00:06:45 #34591 [verbose] > │ #endif │
00:06:45 #34592 [verbose] > │ #if FABLE_COMPILER_PYTHON || FABLE_COMPILER_PHP || FABLE_COMPILER_DART │
00:06:45 #34593 [verbose] > │ let v153 : string = Unchecked.defaultof<string> │
00:06:45 #34594 [verbose] > │ v153 │
00:06:45 #34595 [verbose] > │ #endif │
00:06:45 #34596 [verbose] > │ |> fun x -> _v127 <- Some x │
00:06:45 #34597 [verbose] > │ let v154 : string = _v127.Value │
00:06:45 #34598 [verbose] > │ let v155 : Async<int64> option = None │
00:06:45 #34599 [verbose] > │ let mutable _v155 = v155 │
00:06:45 #34600 [verbose] > │ #if FABLE_COMPILER_RUST && !WASM && !CONTRACT │
00:06:45 #34601 [verbose] > │ let v156 : Async<int64> = null |> unbox<Async<int64>> │
00:06:45 #34602 [verbose] > │ v156 │
00:06:45 #34603 [verbose] > │ #endif │
00:06:45 #34604 [verbose] > │ #if FABLE_COMPILER_RUST && WASM │
00:06:45 #34605 [verbose] > │ let v157 : Async<int64> = null |> unbox<Async<int64>> │
00:06:45 #34606 [verbose] > │ v157 │
00:06:45 #34607 [verbose] > │ #endif │
00:06:45 #34608 [verbose] > │ #if FABLE_COMPILER_RUST && CONTRACT │
00:06:45 #34609 [verbose] > │ let v158 : Async<int64> = null |> unbox<Async<int64>> │
00:06:45 #34610 [verbose] > │ v158 │
00:06:45 #34611 [verbose] > │ #endif │
00:06:45 #34612 [verbose] > │ #if !FABLE_COMPILER && !FABLE_COMPILER_RUST && │
00:06:45 #34613 [verbose] > │ !FABLE_COMPILER_TYPESCRIPT && !WASM && !CONTRACT │
00:06:45 #34614 [verbose] > │ let v159 : Async<int64> option = None │
00:06:45 #34615 [verbose] > │ let mutable _v159 = v159 │
00:06:45 #34616 [verbose] > │ async { │
00:06:45 #34617 [verbose] > │ let v160 : US0 = US0_1 │
00:06:45 #34618 [verbose] > │ let v161 : (unit -> string) = closure6() │
00:06:45 #34619 [verbose] > │ let v162 : (unit -> string) = closure2() │
00:06:45 #34620 [verbose] > │ method5(v160, v161, v162) │
00:06:45 #34621 [verbose] > │ let v163 : Async<unit> option = None │
00:06:45 #34622 [verbose] > │ let mutable _v163 = v163 │
00:06:45 #34623 [verbose] > │ #if FABLE_COMPILER_RUST && !WASM && !CONTRACT │
00:06:45 #34624 [verbose] > │ let v164 : Async<unit> = null |> unbox<Async<unit>> │
00:06:45 #34625 [verbose] > │ v164 │
00:06:45 #34626 [verbose] > │ #endif │
00:06:45 #34627 [verbose] > │ #if FABLE_COMPILER_RUST && WASM │
00:06:45 #34628 [verbose] > │ let v165 : Async<unit> = null |> unbox<Async<unit>> │
00:06:45 #34629 [verbose] > │ v165 │
00:06:45 #34630 [verbose] > │ #endif │
00:06:45 #34631 [verbose] > │ #if FABLE_COMPILER_RUST && CONTRACT │
00:06:45 #34632 [verbose] > │ let v166 : Async<unit> = null |> unbox<Async<unit>> │
00:06:45 #34633 [verbose] > │ v166 │
00:06:45 #34634 [verbose] > │ #endif │
00:06:45 #34635 [verbose] > │ #if !FABLE_COMPILER && !FABLE_COMPILER_RUST && │
00:06:45 #34636 [verbose] > │ !FABLE_COMPILER_TYPESCRIPT && !WASM && !CONTRACT │
00:06:45 #34637 [verbose] > │ let v167 : string = "0" │
00:06:45 #34638 [verbose] > │ let v168 : System.Threading.Tasks.Task = │
00:06:45 #34639 [verbose] > │ System.IO.File.WriteAllTextAsync (v154, v167) │
00:06:45 #34640 [verbose] > │ let v169 : Async<unit> option = None │
00:06:45 #34641 [verbose] > │ let mutable _v169 = v169 │
00:06:45 #34642 [verbose] > │ #if FABLE_COMPILER_RUST && !WASM && !CONTRACT │
00:06:45 #34643 [verbose] > │ let v170 : Async<unit> = null |> unbox<Async<unit>> │
00:06:45 #34644 [verbose] > │ v170 │
00:06:45 #34645 [verbose] > │ #endif │
00:06:45 #34646 [verbose] > │ #if FABLE_COMPILER_RUST && WASM │
00:06:45 #34647 [verbose] > │ let v171 : Async<unit> = null |> unbox<Async<unit>> │
00:06:45 #34648 [verbose] > │ v171 │
00:06:45 #34649 [verbose] > │ #endif │
00:06:45 #34650 [verbose] > │ #if FABLE_COMPILER_RUST && CONTRACT │
00:06:45 #34651 [verbose] > │ let v172 : Async<unit> = null |> unbox<Async<unit>> │
00:06:45 #34652 [verbose] > │ v172 │
00:06:45 #34653 [verbose] > │ #endif │
00:06:45 #34654 [verbose] > │ #if !FABLE_COMPILER && !FABLE_COMPILER_RUST && │
00:06:45 #34655 [verbose] > │ !FABLE_COMPILER_TYPESCRIPT && !WASM && !CONTRACT │
00:06:45 #34656 [verbose] > │ let v173 : (System.Threading.Tasks.Task -> Async<unit>) = │
00:06:45 #34657 [verbose] > │ Async.AwaitTask │
00:06:45 #34658 [verbose] > │ let v174 : Async<unit> = v173 v168 │
00:06:45 #34659 [verbose] > │ v174 │
00:06:45 #34660 [verbose] > │ #endif │
00:06:45 #34661 [verbose] > │ #if FABLE_COMPILER_TYPESCRIPT │
00:06:45 #34662 [verbose] > │ let v175 : Async<unit> = null |> unbox<Async<unit>> │
00:06:45 #34663 [verbose] > │ v175 │
00:06:45 #34664 [verbose] > │ #endif │
00:06:45 #34665 [verbose] > │ #if FABLE_COMPILER_PYTHON || FABLE_COMPILER_PHP || FABLE_COMPILER_DART │
00:06:45 #34666 [verbose] > │ let v176 : Async<unit> = Unchecked.defaultof<Async<unit>> │
00:06:45 #34667 [verbose] > │ v176 │
00:06:45 #34668 [verbose] > │ #endif │
00:06:45 #34669 [verbose] > │ |> fun x -> _v169 <- Some x │
00:06:45 #34670 [verbose] > │ let v177 : Async<unit> = _v169.Value │
00:06:45 #34671 [verbose] > │ v177 │
00:06:45 #34672 [verbose] > │ #endif │
00:06:45 #34673 [verbose] > │ #if FABLE_COMPILER_TYPESCRIPT │
00:06:45 #34674 [verbose] > │ let v178 : Async<unit> = null |> unbox<Async<unit>> │
00:06:45 #34675 [verbose] > │ v178 │
00:06:45 #34676 [verbose] > │ #endif │
00:06:45 #34677 [verbose] > │ #if FABLE_COMPILER_PYTHON || FABLE_COMPILER_PHP || FABLE_COMPILER_DART │
00:06:45 #34678 [verbose] > │ let v179 : Async<unit> = Unchecked.defaultof<Async<unit>> │
00:06:45 #34679 [verbose] > │ v179 │
00:06:45 #34680 [verbose] > │ #endif │
00:06:45 #34681 [verbose] > │ |> fun x -> _v163 <- Some x │
00:06:45 #34682 [verbose] > │ let v180 : Async<unit> = _v163.Value │
00:06:45 #34683 [verbose] > │ do! v180 │
00:06:45 #34684 [verbose] > │ let v181 : US0 = US0_1 │
00:06:45 #34685 [verbose] > │ let v182 : (unit -> string) = closure10() │
00:06:45 #34686 [verbose] > │ method5(v181, v182, v162) │
00:06:45 #34687 [verbose] > │ let v183 : Async<unit> option = None │
00:06:45 #34688 [verbose] > │ let mutable _v183 = v183 │
00:06:45 #34689 [verbose] > │ #if FABLE_COMPILER_RUST && !WASM && !CONTRACT │
00:06:45 #34690 [verbose] > │ let v184 : Async<unit> = null |> unbox<Async<unit>> │
00:06:45 #34691 [verbose] > │ v184 │
00:06:45 #34692 [verbose] > │ #endif │
00:06:45 #34693 [verbose] > │ #if FABLE_COMPILER_RUST && WASM │
00:06:45 #34694 [verbose] > │ let v185 : Async<unit> = null |> unbox<Async<unit>> │
00:06:45 #34695 [verbose] > │ v185 │
00:06:45 #34696 [verbose] > │ #endif │
00:06:45 #34697 [verbose] > │ #if FABLE_COMPILER_RUST && CONTRACT │
00:06:45 #34698 [verbose] > │ let v186 : Async<unit> = null |> unbox<Async<unit>> │
00:06:45 #34699 [verbose] > │ v186 │
00:06:45 #34700 [verbose] > │ #endif │
00:06:45 #34701 [verbose] > │ #if !FABLE_COMPILER && !FABLE_COMPILER_RUST && │
00:06:45 #34702 [verbose] > │ !FABLE_COMPILER_TYPESCRIPT && !WASM && !CONTRACT │
00:06:45 #34703 [verbose] > │ let v187 : Async<unit> option = None │
00:06:45 #34704 [verbose] > │ let mutable _v187 = v187 │
00:06:45 #34705 [verbose] > │ async { │
00:06:45 #34706 [verbose] > │ let v188 : US0 = US0_1 │
00:06:45 #34707 [verbose] > │ let v189 : (unit -> string) = closure11() │
00:06:45 #34708 [verbose] > │ method5(v188, v189, v162) │
00:06:45 #34709 [verbose] > │ let v190 : System.IO.FileStream option = None │
00:06:45 #34710 [verbose] > │ let mutable _v190 = v190 │
00:06:45 #34711 [verbose] > │ #if FABLE_COMPILER_RUST && !WASM && !CONTRACT │
00:06:45 #34712 [verbose] > │ let v191 : System.IO.FileStream = null |> unbox<System.IO.FileStream> │
00:06:45 #34713 [verbose] > │ v191 │
00:06:45 #34714 [verbose] > │ #endif │
00:06:45 #34715 [verbose] > │ #if FABLE_COMPILER_RUST && WASM │
00:06:45 #34716 [verbose] > │ let v192 : System.IO.FileStream = null |> unbox<System.IO.FileStream> │
00:06:45 #34717 [verbose] > │ v192 │
00:06:45 #34718 [verbose] > │ #endif │
00:06:45 #34719 [verbose] > │ #if FABLE_COMPILER_RUST && CONTRACT │
00:06:45 #34720 [verbose] > │ let v193 : System.IO.FileStream = null |> unbox<System.IO.FileStream> │
00:06:45 #34721 [verbose] > │ v193 │
00:06:45 #34722 [verbose] > │ #endif │
00:06:45 #34723 [verbose] > │ #if !FABLE_COMPILER && !FABLE_COMPILER_RUST && │
00:06:45 #34724 [verbose] > │ !FABLE_COMPILER_TYPESCRIPT && !WASM && !CONTRACT │
00:06:45 #34725 [verbose] > │ let v194 : System.IO.FileMode = System.IO.FileMode.Open │
00:06:45 #34726 [verbose] > │ let v195 : System.IO.FileAccess = System.IO.FileAccess.ReadWrite │
00:06:45 #34727 [verbose] > │ let v196 : System.IO.FileShare = System.IO.FileShare.None │
00:06:45 #34728 [verbose] > │ let v197 : System.IO.FileStream = new System.IO.FileStream (v154, v194, │
00:06:45 #34729 [verbose] > │ v195, v196) │
00:06:45 #34730 [verbose] > │ v197 │
00:06:45 #34731 [verbose] > │ #endif │
00:06:45 #34732 [verbose] > │ #if FABLE_COMPILER_TYPESCRIPT │
00:06:45 #34733 [verbose] > │ let v198 : System.IO.FileStream = null |> unbox<System.IO.FileStream> │
00:06:45 #34734 [verbose] > │ v198 │
00:06:45 #34735 [verbose] > │ #endif │
00:06:45 #34736 [verbose] > │ #if FABLE_COMPILER_PYTHON || FABLE_COMPILER_PHP || FABLE_COMPILER_DART │
00:06:45 #34737 [verbose] > │ let v199 : System.IO.FileStream = │
00:06:45 #34738 [verbose] > │ Unchecked.defaultof<System.IO.FileStream> │
00:06:45 #34739 [verbose] > │ v199 │
00:06:45 #34740 [verbose] > │ #endif │
00:06:45 #34741 [verbose] > │ |> fun x -> _v190 <- Some x │
00:06:45 #34742 [verbose] > │ let v200 : System.IO.FileStream = _v190.Value │
00:06:45 #34743 [verbose] > │ use v200 = v200 │
00:06:45 #34744 [verbose] > │ let v201 : System.IO.FileStream = v200 │
00:06:45 #34745 [verbose] > │ let v202 : US0 = US0_1 │
00:06:45 #34746 [verbose] > │ let v203 : (unit -> string) = closure12() │
00:06:45 #34747 [verbose] > │ method5(v202, v203, v162) │
00:06:45 #34748 [verbose] > │ let v204 : Async<unit> option = None │
00:06:45 #34749 [verbose] > │ let mutable _v204 = v204 │
00:06:45 #34750 [verbose] > │ #if FABLE_COMPILER_RUST && !WASM && !CONTRACT │
00:06:45 #34751 [verbose] > │ let v205 : Async<unit> = null |> unbox<Async<unit>> │
00:06:45 #34752 [verbose] > │ v205 │
00:06:45 #34753 [verbose] > │ #endif │
00:06:45 #34754 [verbose] > │ #if FABLE_COMPILER_RUST && WASM │
00:06:45 #34755 [verbose] > │ let v206 : Async<unit> = null |> unbox<Async<unit>> │
00:06:45 #34756 [verbose] > │ v206 │
00:06:45 #34757 [verbose] > │ #endif │
00:06:45 #34758 [verbose] > │ #if FABLE_COMPILER_RUST && CONTRACT │
00:06:45 #34759 [verbose] > │ let v207 : Async<unit> = null |> unbox<Async<unit>> │
00:06:45 #34760 [verbose] > │ v207 │
00:06:45 #34761 [verbose] > │ #endif │
00:06:45 #34762 [verbose] > │ #if !FABLE_COMPILER && !FABLE_COMPILER_RUST && │
00:06:45 #34763 [verbose] > │ !FABLE_COMPILER_TYPESCRIPT && !WASM && !CONTRACT │
00:06:45 #34764 [verbose] > │ let v208 : (int32 -> Async<unit>) = Async.Sleep │
00:06:45 #34765 [verbose] > │ let v209 : Async<unit> = v208 2000 │
00:06:45 #34766 [verbose] > │ v209 │
00:06:45 #34767 [verbose] > │ #endif │
00:06:45 #34768 [verbose] > │ #if FABLE_COMPILER_TYPESCRIPT │
00:06:45 #34769 [verbose] > │ let v210 : Async<unit> = null |> unbox<Async<unit>> │
00:06:45 #34770 [verbose] > │ v210 │
00:06:45 #34771 [verbose] > │ #endif │
00:06:45 #34772 [verbose] > │ #if FABLE_COMPILER_PYTHON || FABLE_COMPILER_PHP || FABLE_COMPILER_DART │
00:06:45 #34773 [verbose] > │ let v211 : Async<unit> = Unchecked.defaultof<Async<unit>> │
00:06:45 #34774 [verbose] > │ v211 │
00:06:45 #34775 [verbose] > │ #endif │
00:06:45 #34776 [verbose] > │ |> fun x -> _v204 <- Some x │
00:06:45 #34777 [verbose] > │ let v212 : Async<unit> = _v204.Value │
00:06:45 #34778 [verbose] > │ do! v212 │
00:06:45 #34779 [verbose] > │ let v213 : US0 = US0_1 │
00:06:45 #34780 [verbose] > │ let v214 : (unit -> string) = closure13() │
00:06:45 #34781 [verbose] > │ method5(v213, v214, v162) │
00:06:45 #34782 [verbose] > │ } │
00:06:45 #34783 [verbose] > │ |> fun x -> _v187 <- Some x │
00:06:45 #34784 [verbose] > │ let v215 : Async<unit> = _v187 |> Option.get │
00:06:45 #34785 [verbose] > │ v215 │
00:06:45 #34786 [verbose] > │ #endif │
00:06:45 #34787 [verbose] > │ #if FABLE_COMPILER_TYPESCRIPT │
00:06:45 #34788 [verbose] > │ let v216 : Async<unit> = null |> unbox<Async<unit>> │
00:06:45 #34789 [verbose] > │ v216 │
00:06:45 #34790 [verbose] > │ #endif │
00:06:45 #34791 [verbose] > │ #if FABLE_COMPILER_PYTHON || FABLE_COMPILER_PHP || FABLE_COMPILER_DART │
00:06:45 #34792 [verbose] > │ let v217 : Async<unit> = Unchecked.defaultof<Async<unit>> │
00:06:45 #34793 [verbose] > │ v217 │
00:06:45 #34794 [verbose] > │ #endif │
00:06:45 #34795 [verbose] > │ |> fun x -> _v183 <- Some x │
00:06:45 #34796 [verbose] > │ let v218 : Async<unit> = _v183.Value │
00:06:45 #34797 [verbose] > │ let v219 : Async<Async<unit>> option = None │
00:06:45 #34798 [verbose] > │ let mutable _v219 = v219 │
00:06:45 #34799 [verbose] > │ #if FABLE_COMPILER_RUST && !WASM && !CONTRACT │
00:06:45 #34800 [verbose] > │ let v220 : Async<Async<unit>> = null |> unbox<Async<Async<unit>>> │
00:06:45 #34801 [verbose] > │ v220 │
00:06:45 #34802 [verbose] > │ #endif │
00:06:45 #34803 [verbose] > │ #if FABLE_COMPILER_RUST && WASM │
00:06:45 #34804 [verbose] > │ let v221 : Async<Async<unit>> = null |> unbox<Async<Async<unit>>> │
00:06:45 #34805 [verbose] > │ v221 │
00:06:45 #34806 [verbose] > │ #endif │
00:06:45 #34807 [verbose] > │ #if FABLE_COMPILER_RUST && CONTRACT │
00:06:45 #34808 [verbose] > │ let v222 : Async<Async<unit>> = null |> unbox<Async<Async<unit>>> │
00:06:45 #34809 [verbose] > │ v222 │
00:06:45 #34810 [verbose] > │ #endif │
00:06:45 #34811 [verbose] > │ #if !FABLE_COMPILER && !FABLE_COMPILER_RUST && │
00:06:45 #34812 [verbose] > │ !FABLE_COMPILER_TYPESCRIPT && !WASM && !CONTRACT │
00:06:45 #34813 [verbose] > │ let v223 : (Async<unit> -> Async<Async<unit>>) = Async.StartChild │
00:06:45 #34814 [verbose] > │ let v224 : Async<Async<unit>> = v223 v218 │
00:06:45 #34815 [verbose] > │ v224 │
00:06:45 #34816 [verbose] > │ #endif │
00:06:45 #34817 [verbose] > │ #if FABLE_COMPILER_TYPESCRIPT │
00:06:45 #34818 [verbose] > │ let v225 : Async<Async<unit>> = null |> unbox<Async<Async<unit>>> │
00:06:45 #34819 [verbose] > │ v225 │
00:06:45 #34820 [verbose] > │ #endif │
00:06:45 #34821 [verbose] > │ #if FABLE_COMPILER_PYTHON || FABLE_COMPILER_PHP || FABLE_COMPILER_DART │
00:06:45 #34822 [verbose] > │ let v226 : Async<Async<unit>> = Unchecked.defaultof<Async<Async<unit>>> │
00:06:45 #34823 [verbose] > │ v226 │
00:06:45 #34824 [verbose] > │ #endif │
00:06:45 #34825 [verbose] > │ |> fun x -> _v219 <- Some x │
00:06:45 #34826 [verbose] > │ let v227 : Async<Async<unit>> = _v219.Value │
00:06:45 #34827 [verbose] > │ let! v227 = v227 │
00:06:45 #34828 [verbose] > │ let v228 : Async<unit> = v227 │
00:06:45 #34829 [verbose] > │ let v229 : US0 = US0_1 │
00:06:45 #34830 [verbose] > │ let v230 : (unit -> string) = closure14() │
00:06:45 #34831 [verbose] > │ method5(v229, v230, v162) │
00:06:45 #34832 [verbose] > │ let v231 : Async<unit> option = None │
00:06:45 #34833 [verbose] > │ let mutable _v231 = v231 │
00:06:45 #34834 [verbose] > │ #if FABLE_COMPILER_RUST && !WASM && !CONTRACT │
00:06:45 #34835 [verbose] > │ let v232 : Async<unit> = null |> unbox<Async<unit>> │
00:06:45 #34836 [verbose] > │ v232 │
00:06:45 #34837 [verbose] > │ #endif │
00:06:45 #34838 [verbose] > │ #if FABLE_COMPILER_RUST && WASM │
00:06:45 #34839 [verbose] > │ let v233 : Async<unit> = null |> unbox<Async<unit>> │
00:06:45 #34840 [verbose] > │ v233 │
00:06:45 #34841 [verbose] > │ #endif │
00:06:45 #34842 [verbose] > │ #if FABLE_COMPILER_RUST && CONTRACT │
00:06:45 #34843 [verbose] > │ let v234 : Async<unit> = null |> unbox<Async<unit>> │
00:06:45 #34844 [verbose] > │ v234 │
00:06:45 #34845 [verbose] > │ #endif │
00:06:45 #34846 [verbose] > │ #if !FABLE_COMPILER && !FABLE_COMPILER_RUST && │
00:06:45 #34847 [verbose] > │ !FABLE_COMPILER_TYPESCRIPT && !WASM && !CONTRACT │
00:06:45 #34848 [verbose] > │ let v235 : (int32 -> Async<unit>) = Async.Sleep │
00:06:45 #34849 [verbose] > │ let v236 : Async<unit> = v235 1 │
00:06:45 #34850 [verbose] > │ v236 │
00:06:45 #34851 [verbose] > │ #endif │
00:06:45 #34852 [verbose] > │ #if FABLE_COMPILER_TYPESCRIPT │
00:06:45 #34853 [verbose] > │ let v237 : Async<unit> = null |> unbox<Async<unit>> │
00:06:45 #34854 [verbose] > │ v237 │
00:06:45 #34855 [verbose] > │ #endif │
00:06:45 #34856 [verbose] > │ #if FABLE_COMPILER_PYTHON || FABLE_COMPILER_PHP || FABLE_COMPILER_DART │
00:06:45 #34857 [verbose] > │ let v238 : Async<unit> = Unchecked.defaultof<Async<unit>> │
00:06:45 #34858 [verbose] > │ v238 │
00:06:45 #34859 [verbose] > │ #endif │
00:06:45 #34860 [verbose] > │ |> fun x -> _v231 <- Some x │
00:06:45 #34861 [verbose] > │ let v239 : Async<unit> = _v231.Value │
00:06:45 #34862 [verbose] > │ do! v239 │
00:06:45 #34863 [verbose] > │ let v240 : US0 = US0_1 │
00:06:45 #34864 [verbose] > │ let v241 : (unit -> string) = closure15() │
00:06:45 #34865 [verbose] > │ method5(v240, v241, v162) │
00:06:45 #34866 [verbose] > │ let v242 : Async<int64> option = None │
00:06:45 #34867 [verbose] > │ let mutable _v242 = v242 │
00:06:45 #34868 [verbose] > │ #if FABLE_COMPILER_RUST && !WASM && !CONTRACT │
00:06:45 #34869 [verbose] > │ let v243 : Async<int64> = null |> unbox<Async<int64>> │
00:06:45 #34870 [verbose] > │ v243 │
00:06:45 #34871 [verbose] > │ #endif │
00:06:45 #34872 [verbose] > │ #if FABLE_COMPILER_RUST && WASM │
00:06:45 #34873 [verbose] > │ let v244 : Async<int64> = null |> unbox<Async<int64>> │
00:06:45 #34874 [verbose] > │ v244 │
00:06:45 #34875 [verbose] > │ #endif │
00:06:45 #34876 [verbose] > │ #if FABLE_COMPILER_RUST && CONTRACT │
00:06:45 #34877 [verbose] > │ let v245 : Async<int64> = null |> unbox<Async<int64>> │
00:06:45 #34878 [verbose] > │ v245 │
00:06:45 #34879 [verbose] > │ #endif │
00:06:45 #34880 [verbose] > │ #if !FABLE_COMPILER && !FABLE_COMPILER_RUST && │
00:06:45 #34881 [verbose] > │ !FABLE_COMPILER_TYPESCRIPT && !WASM && !CONTRACT │
00:06:45 #34882 [verbose] > │ let v246 : int64 = 0L │
00:06:45 #34883 [verbose] > │ let v247 : Async<int64> = method10(v154, v246) │
00:06:45 #34884 [verbose] > │ v247 │
00:06:45 #34885 [verbose] > │ #endif │
00:06:45 #34886 [verbose] > │ #if FABLE_COMPILER_TYPESCRIPT │
00:06:45 #34887 [verbose] > │ let v248 : Async<int64> = null |> unbox<Async<int64>> │
00:06:45 #34888 [verbose] > │ v248 │
00:06:45 #34889 [verbose] > │ #endif │
00:06:45 #34890 [verbose] > │ #if FABLE_COMPILER_PYTHON || FABLE_COMPILER_PHP || FABLE_COMPILER_DART │
00:06:45 #34891 [verbose] > │ let v249 : Async<int64> = Unchecked.defaultof<Async<int64>> │
00:06:45 #34892 [verbose] > │ v249 │
00:06:45 #34893 [verbose] > │ #endif │
00:06:45 #34894 [verbose] > │ |> fun x -> _v242 <- Some x │
00:06:45 #34895 [verbose] > │ let v250 : Async<int64> = _v242.Value │
00:06:45 #34896 [verbose] > │ let! v250 = v250 │
00:06:45 #34897 [verbose] > │ let v251 : int64 = v250 │
00:06:45 #34898 [verbose] > │ let v252 : US0 = US0_1 │
00:06:45 #34899 [verbose] > │ let v253 : (unit -> string) = closure17() │
00:06:45 #34900 [verbose] > │ method5(v252, v253, v162) │
00:06:45 #34901 [verbose] > │ do! v228 │
00:06:45 #34902 [verbose] > │ let v254 : US0 = US0_1 │
00:06:45 #34903 [verbose] > │ let v255 : (unit -> string) = closure18() │
00:06:45 #34904 [verbose] > │ method5(v254, v255, v162) │
00:06:45 #34905 [verbose] > │ return v251 │
00:06:45 #34906 [verbose] > │ } │
00:06:45 #34907 [verbose] > │ |> fun x -> _v159 <- Some x │
00:06:45 #34908 [verbose] > │ let v256 : Async<int64> = _v159 |> Option.get │
00:06:45 #34909 [verbose] > │ v256 │
00:06:45 #34910 [verbose] > │ #endif │
00:06:45 #34911 [verbose] > │ #if FABLE_COMPILER_TYPESCRIPT │
00:06:45 #34912 [verbose] > │ let v257 : Async<int64> = null |> unbox<Async<int64>> │
00:06:45 #34913 [verbose] > │ v257 │
00:06:45 #34914 [verbose] > │ #endif │
00:06:45 #34915 [verbose] > │ #if FABLE_COMPILER_PYTHON || FABLE_COMPILER_PHP || FABLE_COMPILER_DART │
00:06:45 #34916 [verbose] > │ let v258 : Async<int64> = Unchecked.defaultof<Async<int64>> │
00:06:45 #34917 [verbose] > │ v258 │
00:06:45 #34918 [verbose] > │ #endif │
00:06:45 #34919 [verbose] > │ |> fun x -> _v155 <- Some x │
00:06:45 #34920 [verbose] > │ let v259 : Async<int64> = _v155.Value │
00:06:45 #34921 [verbose] > │ let v260 : Async<US2> option = None │
00:06:45 #34922 [verbose] > │ let mutable _v260 = v260 │
00:06:45 #34923 [verbose] > │ #if FABLE_COMPILER_RUST && !WASM && !CONTRACT │
00:06:45 #34924 [verbose] > │ let v261 : Async<US2> = null |> unbox<Async<US2>> │
00:06:45 #34925 [verbose] > │ v261 │
00:06:45 #34926 [verbose] > │ #endif │
00:06:45 #34927 [verbose] > │ #if FABLE_COMPILER_RUST && WASM │
00:06:45 #34928 [verbose] > │ let v262 : Async<US2> = null |> unbox<Async<US2>> │
00:06:45 #34929 [verbose] > │ v262 │
00:06:45 #34930 [verbose] > │ #endif │
00:06:45 #34931 [verbose] > │ #if FABLE_COMPILER_RUST && CONTRACT │
00:06:45 #34932 [verbose] > │ let v263 : Async<US2> = null |> unbox<Async<US2>> │
00:06:45 #34933 [verbose] > │ v263 │
00:06:45 #34934 [verbose] > │ #endif │
00:06:45 #34935 [verbose] > │ #if !FABLE_COMPILER && !FABLE_COMPILER_RUST && │
00:06:45 #34936 [verbose] > │ !FABLE_COMPILER_TYPESCRIPT && !WASM && !CONTRACT │
00:06:45 #34937 [verbose] > │ let v264 : Async<US2> option = None │
00:06:45 #34938 [verbose] > │ let mutable _v264 = v264 │
00:06:45 #34939 [verbose] > │ #if FABLE_COMPILER_RUST && !WASM && !CONTRACT │
00:06:45 #34940 [verbose] > │ let v265 : Async<US2> = null |> unbox<Async<US2>> │
00:06:45 #34941 [verbose] > │ v265 │
00:06:45 #34942 [verbose] > │ #endif │
00:06:45 #34943 [verbose] > │ #if FABLE_COMPILER_RUST && WASM │
00:06:45 #34944 [verbose] > │ let v266 : Async<US2> = null |> unbox<Async<US2>> │
00:06:45 #34945 [verbose] > │ v266 │
00:06:45 #34946 [verbose] > │ #endif │
00:06:45 #34947 [verbose] > │ #if FABLE_COMPILER_RUST && CONTRACT │
00:06:45 #34948 [verbose] > │ let v267 : Async<US2> = null |> unbox<Async<US2>> │
00:06:45 #34949 [verbose] > │ v267 │
00:06:45 #34950 [verbose] > │ #endif │
00:06:45 #34951 [verbose] > │ #if !FABLE_COMPILER && !FABLE_COMPILER_RUST && │
00:06:45 #34952 [verbose] > │ !FABLE_COMPILER_TYPESCRIPT && !WASM && !CONTRACT │
00:06:45 #34953 [verbose] > │ let v268 : Async<US2> option = None │
00:06:45 #34954 [verbose] > │ let mutable _v268 = v268 │
00:06:45 #34955 [verbose] > │ async { │
00:06:45 #34956 [verbose] > │ let v269 : Async<Async<int64>> option = None │
00:06:45 #34957 [verbose] > │ let mutable _v269 = v269 │
00:06:45 #34958 [verbose] > │ #if FABLE_COMPILER_RUST && !WASM && !CONTRACT │
00:06:45 #34959 [verbose] > │ let v270 : Async<Async<int64>> = null |> unbox<Async<Async<int64>>> │
00:06:45 #34960 [verbose] > │ v270 │
00:06:45 #34961 [verbose] > │ #endif │
00:06:45 #34962 [verbose] > │ #if FABLE_COMPILER_RUST && WASM │
00:06:45 #34963 [verbose] > │ let v271 : Async<Async<int64>> = null |> unbox<Async<Async<int64>>> │
00:06:45 #34964 [verbose] > │ v271 │
00:06:45 #34965 [verbose] > │ #endif │
00:06:45 #34966 [verbose] > │ #if FABLE_COMPILER_RUST && CONTRACT │
00:06:45 #34967 [verbose] > │ let v272 : Async<Async<int64>> = null |> unbox<Async<Async<int64>>> │
00:06:45 #34968 [verbose] > │ v272 │
00:06:45 #34969 [verbose] > │ #endif │
00:06:45 #34970 [verbose] > │ #if !FABLE_COMPILER && !FABLE_COMPILER_RUST && │
00:06:45 #34971 [verbose] > │ !FABLE_COMPILER_TYPESCRIPT && !WASM && !CONTRACT │
00:06:45 #34972 [verbose] > │ let v273 : Async<Async<int64>> = Async.StartChild (v259, 3000) │
00:06:45 #34973 [verbose] > │ v273 │
00:06:45 #34974 [verbose] > │ #endif │
00:06:45 #34975 [verbose] > │ #if FABLE_COMPILER_TYPESCRIPT │
00:06:45 #34976 [verbose] > │ let v274 : Async<Async<int64>> = null |> unbox<Async<Async<int64>>> │
00:06:45 #34977 [verbose] > │ v274 │
00:06:45 #34978 [verbose] > │ #endif │
00:06:45 #34979 [verbose] > │ #if FABLE_COMPILER_PYTHON || FABLE_COMPILER_PHP || FABLE_COMPILER_DART │
00:06:45 #34980 [verbose] > │ let v275 : Async<Async<int64>> = │
00:06:45 #34981 [verbose] > │ Unchecked.defaultof<Async<Async<int64>>> │
00:06:45 #34982 [verbose] > │ v275 │
00:06:45 #34983 [verbose] > │ #endif │
00:06:45 #34984 [verbose] > │ |> fun x -> _v269 <- Some x │
00:06:45 #34985 [verbose] > │ let v276 : Async<Async<int64>> = _v269.Value │
00:06:45 #34986 [verbose] > │ let! v276 = v276 │
00:06:45 #34987 [verbose] > │ let v277 : Async<int64> = v276 │
00:06:45 #34988 [verbose] > │ let v278 : Async<Choice<int64, exn>> option = None │
00:06:45 #34989 [verbose] > │ let mutable _v278 = v278 │
00:06:45 #34990 [verbose] > │ #if FABLE_COMPILER_RUST && !WASM && !CONTRACT │
00:06:45 #34991 [verbose] > │ let v279 : Async<Choice<int64, exn>> = null |> unbox<Async<Choice<int64, │
00:06:45 #34992 [verbose] > │ exn>>> │
00:06:45 #34993 [verbose] > │ v279 │
00:06:45 #34994 [verbose] > │ #endif │
00:06:45 #34995 [verbose] > │ #if FABLE_COMPILER_RUST && WASM │
00:06:45 #34996 [verbose] > │ let v280 : Async<Choice<int64, exn>> = null |> unbox<Async<Choice<int64, │
00:06:45 #34997 [verbose] > │ exn>>> │
00:06:45 #34998 [verbose] > │ v280 │
00:06:45 #34999 [verbose] > │ #endif │
00:06:45 #35000 [verbose] > │ #if FABLE_COMPILER_RUST && CONTRACT │
00:06:45 #35001 [verbose] > │ let v281 : Async<Choice<int64, exn>> = null |> unbox<Async<Choice<int64, │
00:06:45 #35002 [verbose] > │ exn>>> │
00:06:45 #35003 [verbose] > │ v281 │
00:06:45 #35004 [verbose] > │ #endif │
00:06:45 #35005 [verbose] > │ #if !FABLE_COMPILER && !FABLE_COMPILER_RUST && │
00:06:45 #35006 [verbose] > │ !FABLE_COMPILER_TYPESCRIPT && !WASM && !CONTRACT │
00:06:45 #35007 [verbose] > │ let v282 : (Async<int64> -> Async<Choice<int64, exn>>) = Async.Catch │
00:06:45 #35008 [verbose] > │ let v283 : Async<Choice<int64, exn>> = v282 v277 │
00:06:45 #35009 [verbose] > │ v283 │
00:06:45 #35010 [verbose] > │ #endif │
00:06:45 #35011 [verbose] > │ #if FABLE_COMPILER_TYPESCRIPT │
00:06:45 #35012 [verbose] > │ let v284 : Async<Choice<int64, exn>> = null |> unbox<Async<Choice<int64, │
00:06:45 #35013 [verbose] > │ exn>>> │
00:06:45 #35014 [verbose] > │ v284 │
00:06:45 #35015 [verbose] > │ #endif │
00:06:45 #35016 [verbose] > │ #if FABLE_COMPILER_PYTHON || FABLE_COMPILER_PHP || FABLE_COMPILER_DART │
00:06:45 #35017 [verbose] > │ let v285 : Async<Choice<int64, exn>> = │
00:06:45 #35018 [verbose] > │ Unchecked.defaultof<Async<Choice<int64, exn>>> │
00:06:45 #35019 [verbose] > │ v285 │
00:06:45 #35020 [verbose] > │ #endif │
00:06:45 #35021 [verbose] > │ |> fun x -> _v278 <- Some x │
00:06:45 #35022 [verbose] > │ let v286 : Async<Choice<int64, exn>> = _v278.Value │
00:06:45 #35023 [verbose] > │ let v287 : Async<US3> option = None │
00:06:45 #35024 [verbose] > │ let mutable _v287 = v287 │
00:06:45 #35025 [verbose] > │ #if FABLE_COMPILER_RUST && !WASM && !CONTRACT │
00:06:45 #35026 [verbose] > │ let v288 : Async<US3> = null |> unbox<Async<US3>> │
00:06:45 #35027 [verbose] > │ v288 │
00:06:45 #35028 [verbose] > │ #endif │
00:06:45 #35029 [verbose] > │ #if FABLE_COMPILER_RUST && WASM │
00:06:45 #35030 [verbose] > │ let v289 : Async<US3> = null |> unbox<Async<US3>> │
00:06:45 #35031 [verbose] > │ v289 │
00:06:45 #35032 [verbose] > │ #endif │
00:06:45 #35033 [verbose] > │ #if FABLE_COMPILER_RUST && CONTRACT │
00:06:45 #35034 [verbose] > │ let v290 : Async<US3> = null |> unbox<Async<US3>> │
00:06:45 #35035 [verbose] > │ v290 │
00:06:45 #35036 [verbose] > │ #endif │
00:06:45 #35037 [verbose] > │ #if !FABLE_COMPILER && !FABLE_COMPILER_RUST && │
00:06:45 #35038 [verbose] > │ !FABLE_COMPILER_TYPESCRIPT && !WASM && !CONTRACT │
00:06:45 #35039 [verbose] > │ let v291 : Async<US3> option = None │
00:06:45 #35040 [verbose] > │ let mutable _v291 = v291 │
00:06:45 #35041 [verbose] > │ async { │
00:06:45 #35042 [verbose] > │ let! v286 = v286 │
00:06:45 #35043 [verbose] > │ let v292 : Choice<int64, exn> = v286 │
00:06:45 #35044 [verbose] > │ let v293 : US3 option = None │
00:06:45 #35045 [verbose] > │ let mutable _v293 = v293 │
00:06:45 #35046 [verbose] > │ #if FABLE_COMPILER_RUST && !WASM && !CONTRACT │
00:06:45 #35047 [verbose] > │ let v294 : US3 = null |> unbox<US3> │
00:06:45 #35048 [verbose] > │ v294 │
00:06:45 #35049 [verbose] > │ #endif │
00:06:45 #35050 [verbose] > │ #if FABLE_COMPILER_RUST && WASM │
00:06:45 #35051 [verbose] > │ let v295 : US3 = null |> unbox<US3> │
00:06:45 #35052 [verbose] > │ v295 │
00:06:45 #35053 [verbose] > │ #endif │
00:06:45 #35054 [verbose] > │ #if FABLE_COMPILER_RUST && CONTRACT │
00:06:45 #35055 [verbose] > │ let v296 : US3 = null |> unbox<US3> │
00:06:45 #35056 [verbose] > │ v296 │
00:06:45 #35057 [verbose] > │ #endif │
00:06:45 #35058 [verbose] > │ #if !FABLE_COMPILER && !FABLE_COMPILER_RUST && │
00:06:45 #35059 [verbose] > │ !FABLE_COMPILER_TYPESCRIPT && !WASM && !CONTRACT │
00:06:45 #35060 [verbose] > │ let v297 : (int64 -> US3) = closure19() │
00:06:45 #35061 [verbose] > │ let v298 : (exn -> US3) = closure20() │
00:06:45 #35062 [verbose] > │ let v299 : US3 = match v292 with Choice1Of2 x -> v297 x | Choice2Of2 x │
00:06:45 #35063 [verbose] > │ -> v298 x │
00:06:45 #35064 [verbose] > │ v299 │
00:06:45 #35065 [verbose] > │ #endif │
00:06:45 #35066 [verbose] > │ #if FABLE_COMPILER_TYPESCRIPT │
00:06:45 #35067 [verbose] > │ let v300 : US3 = null |> unbox<US3> │
00:06:45 #35068 [verbose] > │ v300 │
00:06:45 #35069 [verbose] > │ #endif │
00:06:45 #35070 [verbose] > │ #if FABLE_COMPILER_PYTHON || FABLE_COMPILER_PHP || FABLE_COMPILER_DART │
00:06:45 #35071 [verbose] > │ let v301 : US3 = Unchecked.defaultof<US3> │
00:06:45 #35072 [verbose] > │ v301 │
00:06:45 #35073 [verbose] > │ #endif │
00:06:45 #35074 [verbose] > │ |> fun x -> _v293 <- Some x │
00:06:45 #35075 [verbose] > │ let v302 : US3 = _v293.Value │
00:06:45 #35076 [verbose] > │ return v302 │
00:06:45 #35077 [verbose] > │ } │
00:06:45 #35078 [verbose] > │ |> fun x -> _v291 <- Some x │
00:06:45 #35079 [verbose] > │ let v303 : Async<US3> = _v291 |> Option.get │
00:06:45 #35080 [verbose] > │ v303 │
00:06:45 #35081 [verbose] > │ #endif │
00:06:45 #35082 [verbose] > │ #if FABLE_COMPILER_TYPESCRIPT │
00:06:45 #35083 [verbose] > │ let v304 : Async<US3> = null |> unbox<Async<US3>> │
00:06:45 #35084 [verbose] > │ v304 │
00:06:45 #35085 [verbose] > │ #endif │
00:06:45 #35086 [verbose] > │ #if FABLE_COMPILER_PYTHON || FABLE_COMPILER_PHP || FABLE_COMPILER_DART │
00:06:45 #35087 [verbose] > │ let v305 : Async<US3> = Unchecked.defaultof<Async<US3>> │
00:06:45 #35088 [verbose] > │ v305 │
00:06:45 #35089 [verbose] > │ #endif │
00:06:45 #35090 [verbose] > │ |> fun x -> _v287 <- Some x │
00:06:45 #35091 [verbose] > │ let v306 : Async<US3> = _v287.Value │
00:06:45 #35092 [verbose] > │ let v307 : Async<US4> option = None │
00:06:45 #35093 [verbose] > │ let mutable _v307 = v307 │
00:06:45 #35094 [verbose] > │ #if FABLE_COMPILER_RUST && !WASM && !CONTRACT │
00:06:45 #35095 [verbose] > │ let v308 : Async<US4> = null |> unbox<Async<US4>> │
00:06:45 #35096 [verbose] > │ v308 │
00:06:45 #35097 [verbose] > │ #endif │
00:06:45 #35098 [verbose] > │ #if FABLE_COMPILER_RUST && WASM │
00:06:45 #35099 [verbose] > │ let v309 : Async<US4> = null |> unbox<Async<US4>> │
00:06:45 #35100 [verbose] > │ v309 │
00:06:45 #35101 [verbose] > │ #endif │
00:06:45 #35102 [verbose] > │ #if FABLE_COMPILER_RUST && CONTRACT │
00:06:45 #35103 [verbose] > │ let v310 : Async<US4> = null |> unbox<Async<US4>> │
00:06:45 #35104 [verbose] > │ v310 │
00:06:45 #35105 [verbose] > │ #endif │
00:06:45 #35106 [verbose] > │ #if !FABLE_COMPILER && !FABLE_COMPILER_RUST && │
00:06:45 #35107 [verbose] > │ !FABLE_COMPILER_TYPESCRIPT && !WASM && !CONTRACT │
00:06:45 #35108 [verbose] > │ let v311 : Async<US4> option = None │
00:06:45 #35109 [verbose] > │ let mutable _v311 = v311 │
00:06:45 #35110 [verbose] > │ async { │
00:06:45 #35111 [verbose] > │ let! v306 = v306 │
00:06:45 #35112 [verbose] > │ let v312 : US3 = v306 │
00:06:45 #35113 [verbose] > │ let v318 : US4 = │
00:06:45 #35114 [verbose] > │ match v312 with │
00:06:45 #35115 [verbose] > │ | US3_0(v313) -> (* Choice1Of2 *) │
00:06:45 #35116 [verbose] > │ US4_0(v313) │
00:06:45 #35117 [verbose] > │ | US3_1(v315) -> (* Choice2Of2 *) │
00:06:45 #35118 [verbose] > │ US4_1(v315) │
00:06:45 #35119 [verbose] > │ return v318 │
00:06:45 #35120 [verbose] > │ } │
00:06:45 #35121 [verbose] > │ |> fun x -> _v311 <- Some x │
00:06:45 #35122 [verbose] > │ let v319 : Async<US4> = _v311 |> Option.get │
00:06:45 #35123 [verbose] > │ v319 │
00:06:45 #35124 [verbose] > │ #endif │
00:06:45 #35125 [verbose] > │ #if FABLE_COMPILER_TYPESCRIPT │
00:06:45 #35126 [verbose] > │ let v320 : Async<US4> = null |> unbox<Async<US4>> │
00:06:45 #35127 [verbose] > │ v320 │
00:06:45 #35128 [verbose] > │ #endif │
00:06:45 #35129 [verbose] > │ #if FABLE_COMPILER_PYTHON || FABLE_COMPILER_PHP || FABLE_COMPILER_DART │
00:06:45 #35130 [verbose] > │ let v321 : Async<US4> = Unchecked.defaultof<Async<US4>> │
00:06:45 #35131 [verbose] > │ v321 │
00:06:45 #35132 [verbose] > │ #endif │
00:06:45 #35133 [verbose] > │ |> fun x -> _v307 <- Some x │
00:06:45 #35134 [verbose] > │ let v322 : Async<US4> = _v307.Value │
00:06:45 #35135 [verbose] > │ let v323 : Async<US2> option = None │
00:06:45 #35136 [verbose] > │ let mutable _v323 = v323 │
00:06:45 #35137 [verbose] > │ #if FABLE_COMPILER_RUST && !WASM && !CONTRACT │
00:06:45 #35138 [verbose] > │ let v324 : Async<US2> = null |> unbox<Async<US2>> │
00:06:45 #35139 [verbose] > │ v324 │
00:06:45 #35140 [verbose] > │ #endif │
00:06:45 #35141 [verbose] > │ #if FABLE_COMPILER_RUST && WASM │
00:06:45 #35142 [verbose] > │ let v325 : Async<US2> = null |> unbox<Async<US2>> │
00:06:45 #35143 [verbose] > │ v325 │
00:06:45 #35144 [verbose] > │ #endif │
00:06:45 #35145 [verbose] > │ #if FABLE_COMPILER_RUST && CONTRACT │
00:06:45 #35146 [verbose] > │ let v326 : Async<US2> = null |> unbox<Async<US2>> │
00:06:45 #35147 [verbose] > │ v326 │
00:06:45 #35148 [verbose] > │ #endif │
00:06:45 #35149 [verbose] > │ #if !FABLE_COMPILER && !FABLE_COMPILER_RUST && │
00:06:45 #35150 [verbose] > │ !FABLE_COMPILER_TYPESCRIPT && !WASM && !CONTRACT │
00:06:45 #35151 [verbose] > │ let v327 : Async<US2> option = None │
00:06:45 #35152 [verbose] > │ let mutable _v327 = v327 │
00:06:45 #35153 [verbose] > │ async { │
00:06:45 #35154 [verbose] > │ let! v322 = v322 │
00:06:45 #35155 [verbose] > │ let v328 : US4 = v322 │
00:06:45 #35156 [verbose] > │ let v353 : US2 = │
00:06:45 #35157 [verbose] > │ match v328 with │
00:06:45 #35158 [verbose] > │ | US4_1(v331) -> (* Error *) │
00:06:45 #35159 [verbose] > │ let v332 : string = $"%A{v331}" │
00:06:45 #35160 [verbose] > │ let v333 : string = "System.TimeoutException" │
00:06:45 #35161 [verbose] > │ let v334 : bool = v332.Contains v333 │
00:06:45 #35162 [verbose] > │ if v334 then │
00:06:45 #35163 [verbose] > │ let v335 : US0 = US0_1 │
00:06:45 #35164 [verbose] > │ let v336 : (unit -> string) = closure21() │
00:06:45 #35165 [verbose] > │ let v337 : (unit -> string) = closure22() │
00:06:45 #35166 [verbose] > │ method5(v335, v336, v337) │
00:06:45 #35167 [verbose] > │ US2_1 │
00:06:45 #35168 [verbose] > │ else │
00:06:45 #35169 [verbose] > │ let v339 : string option = None │
00:06:45 #35170 [verbose] > │ let mutable _v339 = v339 │
00:06:45 #35171 [verbose] > │ #if FABLE_COMPILER_RUST && !WASM && !CONTRACT │
00:06:45 #35172 [verbose] > │ let v340 : string = $"%A{v331}" │
00:06:45 #35173 [verbose] > │ v340 │
00:06:45 #35174 [verbose] > │ #endif │
00:06:45 #35175 [verbose] > │ #if FABLE_COMPILER_RUST && WASM │
00:06:45 #35176 [verbose] > │ let v341 : string = $"%A{v331}" │
00:06:45 #35177 [verbose] > │ v341 │
00:06:45 #35178 [verbose] > │ #endif │
00:06:45 #35179 [verbose] > │ #if FABLE_COMPILER_RUST && CONTRACT │
00:06:45 #35180 [verbose] > │ let v342 : string = $"%A{v331}" │
00:06:45 #35181 [verbose] > │ v342 │
00:06:45 #35182 [verbose] > │ #endif │
00:06:45 #35183 [verbose] > │ #if !FABLE_COMPILER && !FABLE_COMPILER_RUST && │
00:06:45 #35184 [verbose] > │ !FABLE_COMPILER_TYPESCRIPT && !WASM && !CONTRACT │
00:06:45 #35185 [verbose] > │ let v343 : string = $"{v331.GetType ()}: {v331.Message}" │
00:06:45 #35186 [verbose] > │ v343 │
00:06:45 #35187 [verbose] > │ #endif │
00:06:45 #35188 [verbose] > │ #if FABLE_COMPILER_TYPESCRIPT │
00:06:45 #35189 [verbose] > │ let v344 : string = $"%A{v331}" │
00:06:45 #35190 [verbose] > │ v344 │
00:06:45 #35191 [verbose] > │ #endif │
00:06:45 #35192 [verbose] > │ #if FABLE_COMPILER_PYTHON || FABLE_COMPILER_PHP || │
00:06:45 #35193 [verbose] > │ FABLE_COMPILER_DART │
00:06:45 #35194 [verbose] > │ let v345 : string = Unchecked.defaultof<string> │
00:06:45 #35195 [verbose] > │ v345 │
00:06:45 #35196 [verbose] > │ #endif │
00:06:45 #35197 [verbose] > │ |> fun x -> _v339 <- Some x │
00:06:45 #35198 [verbose] > │ let v346 : string = _v339.Value │
00:06:45 #35199 [verbose] > │ let v347 : US0 = US0_4 │
00:06:45 #35200 [verbose] > │ let v348 : (unit -> string) = closure23(v346) │
00:06:45 #35201 [verbose] > │ let v349 : (unit -> string) = closure22() │
00:06:45 #35202 [verbose] > │ method5(v347, v348, v349) │
00:06:45 #35203 [verbose] > │ US2_1 │
00:06:45 #35204 [verbose] > │ | US4_0(v329) -> (* Ok *) │
00:06:45 #35205 [verbose] > │ US2_0(v329) │
00:06:45 #35206 [verbose] > │ return v353 │
00:06:45 #35207 [verbose] > │ } │
00:06:45 #35208 [verbose] > │ |> fun x -> _v327 <- Some x │
00:06:45 #35209 [verbose] > │ let v354 : Async<US2> = _v327 |> Option.get │
00:06:45 #35210 [verbose] > │ v354 │
00:06:45 #35211 [verbose] > │ #endif │
00:06:45 #35212 [verbose] > │ #if FABLE_COMPILER_TYPESCRIPT │
00:06:45 #35213 [verbose] > │ let v355 : Async<US2> = null |> unbox<Async<US2>> │
00:06:45 #35214 [verbose] > │ v355 │
00:06:45 #35215 [verbose] > │ #endif │
00:06:45 #35216 [verbose] > │ #if FABLE_COMPILER_PYTHON || FABLE_COMPILER_PHP || FABLE_COMPILER_DART │
00:06:45 #35217 [verbose] > │ let v356 : Async<US2> = Unchecked.defaultof<Async<US2>> │
00:06:45 #35218 [verbose] > │ v356 │
00:06:45 #35219 [verbose] > │ #endif │
00:06:45 #35220 [verbose] > │ |> fun x -> _v323 <- Some x │
00:06:45 #35221 [verbose] > │ let v357 : Async<US2> = _v323.Value │
00:06:45 #35222 [verbose] > │ return! v357 │
00:06:45 #35223 [verbose] > │ } │
00:06:45 #35224 [verbose] > │ |> fun x -> _v268 <- Some x │
00:06:45 #35225 [verbose] > │ let v358 : Async<US2> = _v268 |> Option.get │
00:06:45 #35226 [verbose] > │ v358 │
00:06:45 #35227 [verbose] > │ #endif │
00:06:45 #35228 [verbose] > │ #if FABLE_COMPILER_TYPESCRIPT │
00:06:45 #35229 [verbose] > │ let v359 : Async<US2> = null |> unbox<Async<US2>> │
00:06:45 #35230 [verbose] > │ v359 │
00:06:45 #35231 [verbose] > │ #endif │
00:06:45 #35232 [verbose] > │ #if FABLE_COMPILER_PYTHON || FABLE_COMPILER_PHP || FABLE_COMPILER_DART │
00:06:45 #35233 [verbose] > │ let v360 : Async<US2> = Unchecked.defaultof<Async<US2>> │
00:06:45 #35234 [verbose] > │ v360 │
00:06:45 #35235 [verbose] > │ #endif │
00:06:45 #35236 [verbose] > │ |> fun x -> _v264 <- Some x │
00:06:45 #35237 [verbose] > │ let v361 : Async<US2> = _v264.Value │
00:06:45 #35238 [verbose] > │ v361 │
00:06:45 #35239 [verbose] > │ #endif │
00:06:45 #35240 [verbose] > │ #if FABLE_COMPILER_TYPESCRIPT │
00:06:45 #35241 [verbose] > │ let v362 : Async<US2> = null |> unbox<Async<US2>> │
00:06:45 #35242 [verbose] > │ v362 │
00:06:45 #35243 [verbose] > │ #endif │
00:06:45 #35244 [verbose] > │ #if FABLE_COMPILER_PYTHON || FABLE_COMPILER_PHP || FABLE_COMPILER_DART │
00:06:45 #35245 [verbose] > │ let v363 : Async<US2> = Unchecked.defaultof<Async<US2>> │
00:06:45 #35246 [verbose] > │ v363 │
00:06:45 #35247 [verbose] > │ #endif │
00:06:45 #35248 [verbose] > │ |> fun x -> _v260 <- Some x │
00:06:45 #35249 [verbose] > │ let v364 : Async<US2> = _v260.Value │
00:06:45 #35250 [verbose] > │ let v365 : US2 option = None │
00:06:45 #35251 [verbose] > │ let mutable _v365 = v365 │
00:06:45 #35252 [verbose] > │ #if FABLE_COMPILER_RUST && !WASM && !CONTRACT │
00:06:45 #35253 [verbose] > │ let v366 : US2 = null |> unbox<US2> │
00:06:45 #35254 [verbose] > │ v366 │
00:06:45 #35255 [verbose] > │ #endif │
00:06:45 #35256 [verbose] > │ #if FABLE_COMPILER_RUST && WASM │
00:06:45 #35257 [verbose] > │ let v367 : US2 = null |> unbox<US2> │
00:06:45 #35258 [verbose] > │ v367 │
00:06:45 #35259 [verbose] > │ #endif │
00:06:45 #35260 [verbose] > │ #if FABLE_COMPILER_RUST && CONTRACT │
00:06:45 #35261 [verbose] > │ let v368 : US2 = null |> unbox<US2> │
00:06:45 #35262 [verbose] > │ v368 │
00:06:45 #35263 [verbose] > │ #endif │
00:06:45 #35264 [verbose] > │ #if !FABLE_COMPILER && !FABLE_COMPILER_RUST && │
00:06:45 #35265 [verbose] > │ !FABLE_COMPILER_TYPESCRIPT && !WASM && !CONTRACT │
00:06:45 #35266 [verbose] > │ let v369 : (Async<US2> -> US2) = Async.RunSynchronously │
00:06:45 #35267 [verbose] > │ let v370 : US2 = v369 v364 │
00:06:45 #35268 [verbose] > │ v370 │
00:06:45 #35269 [verbose] > │ #endif │
00:06:45 #35270 [verbose] > │ #if FABLE_COMPILER_TYPESCRIPT │
00:06:45 #35271 [verbose] > │ let v371 : US2 = null |> unbox<US2> │
00:06:45 #35272 [verbose] > │ v371 │
00:06:45 #35273 [verbose] > │ #endif │
00:06:45 #35274 [verbose] > │ #if FABLE_COMPILER_PYTHON || FABLE_COMPILER_PHP || FABLE_COMPILER_DART │
00:06:45 #35275 [verbose] > │ let v372 : US2 = Unchecked.defaultof<US2> │
00:06:45 #35276 [verbose] > │ v372 │
00:06:45 #35277 [verbose] > │ #endif │
00:06:45 #35278 [verbose] > │ |> fun x -> _v365 <- Some x │
00:06:45 #35279 [verbose] > │ let v373 : US2 = _v365.Value │
00:06:45 #35280 [verbose] > │ let v411 : bool = │
00:06:45 #35281 [verbose] > │ match v373 with │
00:06:45 #35282 [verbose] > │ | US2_0(v374) -> (* Some *) │
00:06:45 #35283 [verbose] > │ let v375 : bool option = None │
00:06:45 #35284 [verbose] > │ let mutable _v375 = v375 │
00:06:45 #35285 [verbose] > │ #if FABLE_COMPILER_RUST && !WASM && !CONTRACT │
00:06:45 #35286 [verbose] > │ let v376 : bool = null |> unbox<bool> │
00:06:45 #35287 [verbose] > │ v376 │
00:06:45 #35288 [verbose] > │ #endif │
00:06:45 #35289 [verbose] > │ #if FABLE_COMPILER_RUST && WASM │
00:06:45 #35290 [verbose] > │ let v377 : bool = null |> unbox<bool> │
00:06:45 #35291 [verbose] > │ v377 │
00:06:45 #35292 [verbose] > │ #endif │
00:06:45 #35293 [verbose] > │ #if FABLE_COMPILER_RUST && CONTRACT │
00:06:45 #35294 [verbose] > │ let v378 : bool = null |> unbox<bool> │
00:06:45 #35295 [verbose] > │ v378 │
00:06:45 #35296 [verbose] > │ #endif │
00:06:45 #35297 [verbose] > │ #if !FABLE_COMPILER && !FABLE_COMPILER_RUST && │
00:06:45 #35298 [verbose] > │ !FABLE_COMPILER_TYPESCRIPT && !WASM && !CONTRACT │
00:06:45 #35299 [verbose] > │ let v379 : System.Runtime.InteropServices.OSPlatform = │
00:06:45 #35300 [verbose] > │ System.Runtime.InteropServices.OSPlatform.Windows │
00:06:45 #35301 [verbose] > │ let v380 : (System.Runtime.InteropServices.OSPlatform -> bool) = │
00:06:45 #35302 [verbose] > │ System.Runtime.InteropServices.RuntimeInformation.IsOSPlatform │
00:06:45 #35303 [verbose] > │ let v381 : bool = v380 v379 │
00:06:45 #35304 [verbose] > │ v381 │
00:06:45 #35305 [verbose] > │ #endif │
00:06:45 #35306 [verbose] > │ #if FABLE_COMPILER_TYPESCRIPT │
00:06:45 #35307 [verbose] > │ let v382 : bool = null |> unbox<bool> │
00:06:45 #35308 [verbose] > │ v382 │
00:06:45 #35309 [verbose] > │ #endif │
00:06:45 #35310 [verbose] > │ #if FABLE_COMPILER_PYTHON || FABLE_COMPILER_PHP || │
00:06:45 #35311 [verbose] > │ FABLE_COMPILER_DART │
00:06:45 #35312 [verbose] > │ let v383 : bool = Unchecked.defaultof<bool> │
00:06:45 #35313 [verbose] > │ v383 │
00:06:45 #35314 [verbose] > │ #endif │
00:06:45 #35315 [verbose] > │ |> fun x -> _v375 <- Some x │
00:06:45 #35316 [verbose] > │ let v384 : bool = _v375.Value │
00:06:45 #35317 [verbose] > │ let v385 : int64 = │
00:06:45 #35318 [verbose] > │ if v384 then │
00:06:45 #35319 [verbose] > │ 50L │
00:06:45 #35320 [verbose] > │ else │
00:06:45 #35321 [verbose] > │ 0L │
00:06:45 #35322 [verbose] > │ let v386 : bool option = None │
00:06:45 #35323 [verbose] > │ let mutable _v386 = v386 │
00:06:45 #35324 [verbose] > │ #if FABLE_COMPILER_RUST && !WASM && !CONTRACT │
00:06:45 #35325 [verbose] > │ let v387 : bool = null |> unbox<bool> │
00:06:45 #35326 [verbose] > │ v387 │
00:06:45 #35327 [verbose] > │ #endif │
00:06:45 #35328 [verbose] > │ #if FABLE_COMPILER_RUST && WASM │
00:06:45 #35329 [verbose] > │ let v388 : bool = null |> unbox<bool> │
00:06:45 #35330 [verbose] > │ v388 │
00:06:45 #35331 [verbose] > │ #endif │
00:06:45 #35332 [verbose] > │ #if FABLE_COMPILER_RUST && CONTRACT │
00:06:45 #35333 [verbose] > │ let v389 : bool = null |> unbox<bool> │
00:06:45 #35334 [verbose] > │ v389 │
00:06:45 #35335 [verbose] > │ #endif │
00:06:45 #35336 [verbose] > │ #if !FABLE_COMPILER && !FABLE_COMPILER_RUST && │
00:06:45 #35337 [verbose] > │ !FABLE_COMPILER_TYPESCRIPT && !WASM && !CONTRACT │
00:06:45 #35338 [verbose] > │ let v390 : System.Runtime.InteropServices.OSPlatform = │
00:06:45 #35339 [verbose] > │ System.Runtime.InteropServices.OSPlatform.Windows │
00:06:45 #35340 [verbose] > │ let v391 : (System.Runtime.InteropServices.OSPlatform -> bool) = │
00:06:45 #35341 [verbose] > │ System.Runtime.InteropServices.RuntimeInformation.IsOSPlatform │
00:06:45 #35342 [verbose] > │ let v392 : bool = v391 v390 │
00:06:45 #35343 [verbose] > │ v392 │
00:06:45 #35344 [verbose] > │ #endif │
00:06:45 #35345 [verbose] > │ #if FABLE_COMPILER_TYPESCRIPT │
00:06:45 #35346 [verbose] > │ let v393 : bool = null |> unbox<bool> │
00:06:45 #35347 [verbose] > │ v393 │
00:06:45 #35348 [verbose] > │ #endif │
00:06:45 #35349 [verbose] > │ #if FABLE_COMPILER_PYTHON || FABLE_COMPILER_PHP || │
00:06:45 #35350 [verbose] > │ FABLE_COMPILER_DART │
00:06:45 #35351 [verbose] > │ let v394 : bool = Unchecked.defaultof<bool> │
00:06:45 #35352 [verbose] > │ v394 │
00:06:45 #35353 [verbose] > │ #endif │
00:06:45 #35354 [verbose] > │ |> fun x -> _v386 <- Some x │
00:06:45 #35355 [verbose] > │ let v395 : bool = _v386.Value │
00:06:45 #35356 [verbose] > │ let v396 : int64 = │
00:06:45 #35357 [verbose] > │ if v395 then │
00:06:45 #35358 [verbose] > │ 150L │
00:06:45 #35359 [verbose] > │ else │
00:06:45 #35360 [verbose] > │ 0L │
00:06:45 #35361 [verbose] > │ let v397 : string = $"%A{v374}" │
00:06:45 #35362 [verbose] > │ System.Console.WriteLine v397 │
00:06:45 #35363 [verbose] > │ let v398 : string = $"%A{v374}" │
00:06:45 #35364 [verbose] > │ System.Console.WriteLine v398 │
00:06:45 #35365 [verbose] > │ let v399 : bool = v374 >= v385 │
00:06:45 #35366 [verbose] > │ let v401 : bool = │
00:06:45 #35367 [verbose] > │ if v399 then │
00:06:45 #35368 [verbose] > │ true │
00:06:45 #35369 [verbose] > │ else │
00:06:45 #35370 [verbose] > │ method11(v399) │
00:06:45 #35371 [verbose] > │ let v402 : string = $"__expect / actual: %A{v374} / expected: │
00:06:45 #35372 [verbose] > │ %A{v385}" │
00:06:45 #35373 [verbose] > │ let v403 : bool = v401 = false │
00:06:45 #35374 [verbose] > │ if v403 then │
00:06:45 #35375 [verbose] > │ failwith<unit> v402 │
00:06:45 #35376 [verbose] > │ let v404 : string = $"%A{v374}" │
00:06:45 #35377 [verbose] > │ System.Console.WriteLine v404 │
00:06:45 #35378 [verbose] > │ let v405 : bool = v374 <= v396 │
00:06:45 #35379 [verbose] > │ let v407 : bool = │
00:06:45 #35380 [verbose] > │ if v405 then │
00:06:45 #35381 [verbose] > │ true │
00:06:45 #35382 [verbose] > │ else │
00:06:45 #35383 [verbose] > │ method11(v405) │
00:06:45 #35384 [verbose] > │ let v408 : string = $"__expect / actual: %A{v374} / expected: │
00:06:45 #35385 [verbose] > │ %A{v396}" │
00:06:45 #35386 [verbose] > │ let v409 : bool = v407 = false │
00:06:45 #35387 [verbose] > │ if v409 then │
00:06:45 #35388 [verbose] > │ failwith<unit> v408 │
00:06:45 #35389 [verbose] > │ let v410 : string = $"__expect / actual: %A{v374} / expected: │
00:06:45 #35390 [verbose] > │ %A{struct (v385, v396)}" │
00:06:45 #35391 [verbose] > │ true │
00:06:45 #35392 [verbose] > │ | _ -> │
00:06:45 #35393 [verbose] > │ false │
00:06:45 #35394 [verbose] > │ let v412 : string = $"%A{v411}" │
00:06:45 #35395 [verbose] > │ System.Console.WriteLine v412 │
00:06:45 #35396 [verbose] > │ let v414 : bool = │
00:06:45 #35397 [verbose] > │ if v411 then │
00:06:45 #35398 [verbose] > │ true │
00:06:45 #35399 [verbose] > │ else │
00:06:45 #35400 [verbose] > │ method11(v411) │
00:06:45 #35401 [verbose] > │ let v415 : string = $"__expect / actual: %A{v411} / expected: %A{true}" │
00:06:45 #35402 [verbose] > │ let v416 : bool = v414 = false │
00:06:45 #35403 [verbose] > │ if v416 then │
00:06:45 #35404 [verbose] > │ failwith<unit> v415 │
00:06:45 #35405 [verbose] > │ method0() │
00:06:45 #35406 [verbose] > │ │
00:06:45 #35407 [verbose] > │ 00:00:00 #1 [debug] 1 │
00:06:45 #35408 [verbose] > │ 00:00:00 #2 [debug] 2 │
00:06:45 #35409 [verbose] > │ 00:00:00 #3 [debug] 3 │
00:06:45 #35410 [verbose] > │ 00:00:00 #4 [debug] _1 │
00:06:45 #35411 [verbose] > │ 00:00:00 #5 [debug] _2 │
00:06:45 #35412 [verbose] > │ 00:00:00 #6 [debug] 4 │
00:06:45 #35413 [verbose] > │ 00:00:00 #7 [warning] delete_file_async │
00:06:45 #35414 [verbose] > │ 00:00:01 #8 [warning] delete_file_async │
00:06:45 #35415 [verbose] > │ 00:00:02 #9 [debug] _3 │
00:06:45 #35416 [verbose] > │ 00:00:02 #10 [debug] 5 │
00:06:45 #35417 [verbose] > │ 00:00:02 #11 [debug] 6 │
00:06:45 #35418 [verbose] > │ 128L │
00:06:45 #35419 [verbose] > │ 128L │
00:06:45 #35420 [verbose] > │ 128L │
00:06:45 #35421 [verbose] > │ true │
00:06:45 #35422 [verbose] > │ │
00:06:45 #35423 [verbose] > ╰──────────────────────────────────────────────────────────────────────────────╯
00:06:45 #35424 [verbose] >
00:06:45 #35425 [verbose] > ── markdown ────────────────────────────────────────────────────────────────────
00:06:45 #35426 [verbose] > ╭──────────────────────────────────────────────────────────────────────────────╮
00:06:45 #35427 [verbose] > │ ## move_file_async │
00:06:45 #35428 [verbose] > ╰──────────────────────────────────────────────────────────────────────────────╯
00:06:45 #35429 [verbose] >
00:06:45 #35430 [verbose] > ── spiral ──────────────────────────────────────────────────────────────────────
00:06:45 #35431 [verbose] > inl move_file_async new_path old_path : _ i64 =
00:06:45 #35432 [verbose] > run_target function
00:06:45 #35433 [verbose] > | Fsharp (Native) => fun () =>
00:06:45 #35434 [verbose] > let rec loop (retry : i64) =
00:06:45 #35435 [verbose] > fun () =>
00:06:45 #35436 [verbose] > try_unit
00:06:45 #35437 [verbose] > fun () =>
00:06:45 #35438 [verbose] > file_move old_path new_path
00:06:45 #35439 [verbose] > return retry
00:06:45 #35440 [verbose] > fun ex =>
00:06:45 #35441 [verbose] > if retry % 100 = 0 then
00:06:45 #35442 [verbose] > let get_locals () =
00:06:45 #35443 [verbose] > inl ex = ex |> sm'.format_exception
00:06:45 #35444 [verbose] > $'$"old_path: {!old_path |> !get_file_name}
00:06:45 #35445 [verbose] > / new_path: {!new_path |> !get_file_name} / ex: {!ex} / {!get_locals ()}"' :
00:06:45 #35446 [verbose] > string
00:06:45 #35447 [verbose] > trace Warning (fun () => "move_file_async")
00:06:45 #35448 [verbose] > get_locals
00:06:45 #35449 [verbose] > async.sleep 10 |> async.do
00:06:45 #35450 [verbose] > loop (retry + 1) |> async.return_await
00:06:45 #35451 [verbose] > |> async.new_async_unit
00:06:45 #35452 [verbose] > loop 0
00:06:45 #35453 [verbose] > | _ => fun () => null ()
00:06:45 #35454 [verbose] > Building c:\home\git\polyglot\target\polyglot\spiral_eval\packages\6bd99c73bf581c1cc952902c201913354fd4ed114bc51499734e65026d75088a\main.spi
00:06:45 #35455 [verbose] >
00:06:45 #35456 [verbose] > ╭─[ 249.43ms - stdout ]────────────────────────────────────────────────────────╮
00:06:45 #35457 [verbose] > │ () │
00:06:45 #35458 [verbose] > │ │
00:06:45 #35459 [verbose] > │ │
00:06:45 #35460 [verbose] > ╰──────────────────────────────────────────────────────────────────────────────╯
00:06:45 #35461 [verbose] >
00:06:45 #35462 [verbose] > ── spiral ──────────────────────────────────────────────────────────────────────
00:06:45 #35463 [verbose] > // // test
00:06:45 #35464 [verbose] >
00:06:45 #35465 [verbose] > inl lock_file path =
00:06:45 #35466 [verbose] > fun () =>
00:06:45 #35467 [verbose] > trace Debug (fun () => "_1") get_locals
00:06:45 #35468 [verbose] > file_stream
00:06:45 #35469 [verbose] > path
00:06:45 #35470 [verbose] > ModeOpen
00:06:45 #35471 [verbose] > AccessReadWrite
00:06:45 #35472 [verbose] > ShareNone
00:06:45 #35473 [verbose] > |> use
00:06:45 #35474 [verbose] > |> ignore
00:06:45 #35475 [verbose] > trace Debug (fun () => "_2") get_locals
00:06:45 #35476 [verbose] > async.sleep 2000 |> async.do
00:06:45 #35477 [verbose] > trace Debug (fun () => "_3") get_locals
00:06:45 #35478 [verbose] > |> async.new_async
00:06:45 #35479 [verbose] >
00:06:45 #35480 [verbose] > inl temp_dir, disposable = create_temp_directory ()
00:06:45 #35481 [verbose] > disposable |> use |> ignore
00:06:45 #35482 [verbose] > let path = temp_dir </> "test.txt"
00:06:45 #35483 [verbose] > let new_path = temp_dir </> "test2.txt"
00:06:45 #35484 [verbose] >
00:06:45 #35485 [verbose] > fun () =>
00:06:45 #35486 [verbose] > trace Debug (fun () => "1") get_locals
00:06:45 #35487 [verbose] > "0" |> write_all_text_async path |> async.do
00:06:45 #35488 [verbose] > trace Debug (fun () => "2") get_locals
00:06:45 #35489 [verbose] > inl child = lock_file path |> async.start_child |> async.let'
00:06:45 #35490 [verbose] > trace Debug (fun () => "3") get_locals
00:06:45 #35491 [verbose] > async.sleep 1 |> async.do
00:06:45 #35492 [verbose] > trace Debug (fun () => "4") get_locals
00:06:45 #35493 [verbose] > inl retries1 = path |> move_file_async new_path |> async.let'
00:06:45 #35494 [verbose] > trace Debug (fun () => "5") get_locals
00:06:45 #35495 [verbose] > inl retries2 = new_path |> wait_for_file_access None |> async.let'
00:06:45 #35496 [verbose] > trace Debug (fun () => "6") get_locals
00:06:45 #35497 [verbose] > inl text = new_path |> read_all_text_async |> async.let'
00:06:45 #35498 [verbose] > trace Debug (fun () => "7") get_locals
00:06:45 #35499 [verbose] > child |> async.do
00:06:45 #35500 [verbose] > trace Debug (fun () => "8") get_locals
00:06:45 #35501 [verbose] > (retries1, retries2, text) |> return
00:06:45 #35502 [verbose] > |> async.new_async_unit
00:06:45 #35503 [verbose] > |> async.run_with_timeout 3000
00:06:45 #35504 [verbose] > |> function
00:06:45 #35505 [verbose] > | Some (retries1, retries2, text) =>
00:06:45 #35506 [verbose] > retries1
00:06:45 #35507 [verbose] > |> _assert_between
00:06:45 #35508 [verbose] > (if runtime.is_windows () then 50i64 else 0)
00:06:45 #35509 [verbose] > (if runtime.is_windows () then 150 else 0)
00:06:45 #35510 [verbose] >
00:06:45 #35511 [verbose] > retries2
00:06:45 #35512 [verbose] > |> _assert_between
00:06:45 #35513 [verbose] > (if runtime.is_windows () then 0i64 else 100)
00:06:45 #35514 [verbose] > (if runtime.is_windows () then 0 else 200)
00:06:45 #35515 [verbose] >
00:06:45 #35516 [verbose] > text |> _assert_eq (join "0")
00:06:45 #35517 [verbose] >
00:06:45 #35518 [verbose] > true
00:06:45 #35519 [verbose] > | _ => false
00:06:45 #35520 [verbose] > |> _assert_eq true
00:06:46 #35521 [verbose] > Building c:\home\git\polyglot\target\polyglot\spiral_eval\packages\76b8deba2ac80a4c78206bb81d4b43ad2ecee0caf7e417db663ef40b72da7ef8\main.spi
00:06:49 #35522 [verbose] >
00:06:49 #35523 [verbose] > ╭─[ 3.92s - stdout ]───────────────────────────────────────────────────────────╮
00:06:49 #35524 [verbose] > │ type IPathJoin = abstract join: [<System.ParamArray>] paths: string[] -> │
00:06:49 #35525 [verbose] > │ string │
00:06:49 #35526 [verbose] > │ module State = let mutable trace_state = None │
00:06:49 #35527 [verbose] > │ type [<Struct>] US0 = │
00:06:49 #35528 [verbose] > │ | US0_0 │
00:06:49 #35529 [verbose] > │ | US0_1 │
00:06:49 #35530 [verbose] > │ | US0_2 │
00:06:49 #35531 [verbose] > │ | US0_3 │
00:06:49 #35532 [verbose] > │ | US0_4 │
00:06:49 #35533 [verbose] > │ and Mut0 = {mutable l0 : int64} │
00:06:49 #35534 [verbose] > │ and Mut1 = {mutable l0 : bool} │
00:06:49 #35535 [verbose] > │ and Mut2 = {mutable l0 : US0} │
00:06:49 #35536 [verbose] > │ and [<Struct>] US1 = │
00:06:49 #35537 [verbose] > │ | US1_0 of f0_0 : int64 │
00:06:49 #35538 [verbose] > │ | US1_1 │
00:06:49 #35539 [verbose] > │ and [<Struct>] US2 = │
00:06:49 #35540 [verbose] > │ | US2_0 of f0_0 : int64 │
00:06:49 #35541 [verbose] > │ | US2_1 │
00:06:49 #35542 [verbose] > │ and [<Struct>] US3 = │
00:06:49 #35543 [verbose] > │ | US3_0 of f0_0 : int64 * f0_1 : int64 * f0_2 : string │
00:06:49 #35544 [verbose] > │ | US3_1 │
00:06:49 #35545 [verbose] > │ and [<Struct>] US4 = │
00:06:49 #35546 [verbose] > │ | US4_0 of f0_0 : int64 * f0_1 : int64 * f0_2 : string │
00:06:49 #35547 [verbose] > │ | US4_1 of f1_0 : exn │
00:06:49 #35548 [verbose] > │ and [<Struct>] US5 = │
00:06:49 #35549 [verbose] > │ | US5_0 of f0_0 : int64 * f0_1 : int64 * f0_2 : string │
00:06:49 #35550 [verbose] > │ | US5_1 of f1_0 : exn │
00:06:49 #35551 [verbose] > │ let rec closure0 () () : string = │
00:06:49 #35552 [verbose] > │ let v0 : string option = None │
00:06:49 #35553 [verbose] > │ let mutable _v0 = v0 │
00:06:49 #35554 [verbose] > │ #if FABLE_COMPILER_RUST && !WASM && !CONTRACT │
00:06:49 #35555 [verbose] > │ let v1 : string = null |> unbox<string> │
00:06:49 #35556 [verbose] > │ v1 │
00:06:49 #35557 [verbose] > │ #endif │
00:06:49 #35558 [verbose] > │ #if FABLE_COMPILER_RUST && WASM │
00:06:49 #35559 [verbose] > │ let v2 : string = null |> unbox<string> │
00:06:49 #35560 [verbose] > │ v2 │
00:06:49 #35561 [verbose] > │ #endif │
00:06:49 #35562 [verbose] > │ #if FABLE_COMPILER_RUST && CONTRACT │
00:06:49 #35563 [verbose] > │ let v3 : string = null |> unbox<string> │
00:06:49 #35564 [verbose] > │ v3 │
00:06:49 #35565 [verbose] > │ #endif │
00:06:49 #35566 [verbose] > │ #if !FABLE_COMPILER && !FABLE_COMPILER_RUST && │
00:06:49 #35567 [verbose] > │ !FABLE_COMPILER_TYPESCRIPT && !WASM && !CONTRACT │
00:06:49 #35568 [verbose] > │ let v4 : string = │
00:06:49 #35569 [verbose] > │ System.Reflection.Assembly.GetEntryAssembly().GetName().Name │
00:06:49 #35570 [verbose] > │ v4 │
00:06:49 #35571 [verbose] > │ #endif │
00:06:49 #35572 [verbose] > │ #if FABLE_COMPILER_TYPESCRIPT │
00:06:49 #35573 [verbose] > │ let v5 : string = null |> unbox<string> │
00:06:49 #35574 [verbose] > │ v5 │
00:06:49 #35575 [verbose] > │ #endif │
00:06:49 #35576 [verbose] > │ #if FABLE_COMPILER_PYTHON || FABLE_COMPILER_PHP || FABLE_COMPILER_DART │
00:06:49 #35577 [verbose] > │ let v6 : string = Unchecked.defaultof<string> │
00:06:49 #35578 [verbose] > │ v6 │
00:06:49 #35579 [verbose] > │ #endif │
00:06:49 #35580 [verbose] > │ |> fun x -> _v0 <- Some x │
00:06:49 #35581 [verbose] > │ let v7 : string = _v0.Value │
00:06:49 #35582 [verbose] > │ v7 │
00:06:49 #35583 [verbose] > │ and method1 (v0 : string) : string = │
00:06:49 #35584 [verbose] > │ v0 │
00:06:49 #35585 [verbose] > │ and closure2 () () : string = │
00:06:49 #35586 [verbose] > │ let v0 : string = "" │
00:06:49 #35587 [verbose] > │ v0 │
00:06:49 #35588 [verbose] > │ and closure1 (v0 : string, v1 : string) () : string = │
00:06:49 #35589 [verbose] > │ let v2 : (unit -> string) = closure2() │
00:06:49 #35590 [verbose] > │ let v3 : string = $"temp_folder: {v0} / result: {v1} {v2 ()}" │
00:06:49 #35591 [verbose] > │ v3 │
00:06:49 #35592 [verbose] > │ and closure5 () (v0 : string) : string = │
00:06:49 #35593 [verbose] > │ let v1 : string option = None │
00:06:49 #35594 [verbose] > │ let mutable _v1 = v1 │
00:06:49 #35595 [verbose] > │ #if FABLE_COMPILER_RUST && !WASM && !CONTRACT │
00:06:49 #35596 [verbose] > │ let v2 : string = null |> unbox<string> │
00:06:49 #35597 [verbose] > │ v2 │
00:06:49 #35598 [verbose] > │ #endif │
00:06:49 #35599 [verbose] > │ #if FABLE_COMPILER_RUST && WASM │
00:06:49 #35600 [verbose] > │ let v3 : string = null |> unbox<string> │
00:06:49 #35601 [verbose] > │ v3 │
00:06:49 #35602 [verbose] > │ #endif │
00:06:49 #35603 [verbose] > │ #if FABLE_COMPILER_RUST && CONTRACT │
00:06:49 #35604 [verbose] > │ let v4 : string = null |> unbox<string> │
00:06:49 #35605 [verbose] > │ v4 │
00:06:49 #35606 [verbose] > │ #endif │
00:06:49 #35607 [verbose] > │ #if !FABLE_COMPILER && !FABLE_COMPILER_RUST && │
00:06:49 #35608 [verbose] > │ !FABLE_COMPILER_TYPESCRIPT && !WASM && !CONTRACT │
00:06:49 #35609 [verbose] > │ let v5 : (string -> string) = System.IO.Path.GetFileName │
00:06:49 #35610 [verbose] > │ let v6 : string = v5 v0 │
00:06:49 #35611 [verbose] > │ v6 │
00:06:49 #35612 [verbose] > │ #endif │
00:06:49 #35613 [verbose] > │ #if FABLE_COMPILER_TYPESCRIPT │
00:06:49 #35614 [verbose] > │ let v7 : string = null |> unbox<string> │
00:06:49 #35615 [verbose] > │ v7 │
00:06:49 #35616 [verbose] > │ #endif │
00:06:49 #35617 [verbose] > │ #if FABLE_COMPILER_PYTHON || FABLE_COMPILER_PHP || FABLE_COMPILER_DART │
00:06:49 #35618 [verbose] > │ let v8 : string = Unchecked.defaultof<string> │
00:06:49 #35619 [verbose] > │ v8 │
00:06:49 #35620 [verbose] > │ #endif │
00:06:49 #35621 [verbose] > │ |> fun x -> _v1 <- Some x │
00:06:49 #35622 [verbose] > │ let v9 : string = _v1.Value │
00:06:49 #35623 [verbose] > │ v9 │
00:06:49 #35624 [verbose] > │ and method3 (v0 : string, v1 : string) : string = │
00:06:49 #35625 [verbose] > │ let v2 : (string -> string) = closure5() │
00:06:49 #35626 [verbose] > │ let v3 : (unit -> string) = closure2() │
00:06:49 #35627 [verbose] > │ let v4 : string = $"path: {v0 |> v2} / ex: {v1} / {v3 ()}" │
00:06:49 #35628 [verbose] > │ v4 │
00:06:49 #35629 [verbose] > │ and closure4 (v0 : string, v1 : string) () : string = │
00:06:49 #35630 [verbose] > │ method3(v0, v1) │
00:06:49 #35631 [verbose] > │ and method2 (v0 : string, v1 : int64) : Async<int64> = │
00:06:49 #35632 [verbose] > │ let v2 : Async<int64> option = None │
00:06:49 #35633 [verbose] > │ let mutable _v2 = v2 │
00:06:49 #35634 [verbose] > │ #if FABLE_COMPILER_RUST && !WASM && !CONTRACT │
00:06:49 #35635 [verbose] > │ let v3 : Async<int64> = null |> unbox<Async<int64>> │
00:06:49 #35636 [verbose] > │ v3 │
00:06:49 #35637 [verbose] > │ #endif │
00:06:49 #35638 [verbose] > │ #if FABLE_COMPILER_RUST && WASM │
00:06:49 #35639 [verbose] > │ let v4 : Async<int64> = null |> unbox<Async<int64>> │
00:06:49 #35640 [verbose] > │ v4 │
00:06:49 #35641 [verbose] > │ #endif │
00:06:49 #35642 [verbose] > │ #if FABLE_COMPILER_RUST && CONTRACT │
00:06:49 #35643 [verbose] > │ let v5 : Async<int64> = null |> unbox<Async<int64>> │
00:06:49 #35644 [verbose] > │ v5 │
00:06:49 #35645 [verbose] > │ #endif │
00:06:49 #35646 [verbose] > │ #if !FABLE_COMPILER && !FABLE_COMPILER_RUST && │
00:06:49 #35647 [verbose] > │ !FABLE_COMPILER_TYPESCRIPT && !WASM && !CONTRACT │
00:06:49 #35648 [verbose] > │ let v6 : Async<int64> option = None │
00:06:49 #35649 [verbose] > │ let mutable _v6 = v6 │
00:06:49 #35650 [verbose] > │ async { │
00:06:49 #35651 [verbose] > │ try │
00:06:49 #35652 [verbose] > │ let v7 : unit option = None │
00:06:49 #35653 [verbose] > │ let mutable _v7 = v7 │
00:06:49 #35654 [verbose] > │ #if FABLE_COMPILER_RUST && !WASM && !CONTRACT │
00:06:49 #35655 [verbose] > │ null |> unbox<unit> │
00:06:49 #35656 [verbose] > │ () │
00:06:49 #35657 [verbose] > │ #endif │
00:06:49 #35658 [verbose] > │ #if FABLE_COMPILER_RUST && WASM │
00:06:49 #35659 [verbose] > │ null |> unbox<unit> │
00:06:49 #35660 [verbose] > │ () │
00:06:49 #35661 [verbose] > │ #endif │
00:06:49 #35662 [verbose] > │ #if FABLE_COMPILER_RUST && CONTRACT │
00:06:49 #35663 [verbose] > │ null |> unbox<unit> │
00:06:49 #35664 [verbose] > │ () │
00:06:49 #35665 [verbose] > │ #endif │
00:06:49 #35666 [verbose] > │ #if !FABLE_COMPILER && !FABLE_COMPILER_RUST && │
00:06:49 #35667 [verbose] > │ !FABLE_COMPILER_TYPESCRIPT && !WASM && !CONTRACT │
00:06:49 #35668 [verbose] > │ System.IO.Directory.Delete (v0, true) │
00:06:49 #35669 [verbose] > │ () │
00:06:49 #35670 [verbose] > │ #endif │
00:06:49 #35671 [verbose] > │ #if FABLE_COMPILER_TYPESCRIPT │
00:06:49 #35672 [verbose] > │ null |> unbox<unit> │
00:06:49 #35673 [verbose] > │ () │
00:06:49 #35674 [verbose] > │ #endif │
00:06:49 #35675 [verbose] > │ #if FABLE_COMPILER_PYTHON || FABLE_COMPILER_PHP || FABLE_COMPILER_DART │
00:06:49 #35676 [verbose] > │ Unchecked.defaultof<unit> │
00:06:49 #35677 [verbose] > │ () │
00:06:49 #35678 [verbose] > │ #endif │
00:06:49 #35679 [verbose] > │ |> fun x -> _v7 <- Some x │
00:06:49 #35680 [verbose] > │ _v7.Value │
00:06:49 #35681 [verbose] > │ return v1 │
00:06:49 #35682 [verbose] > │ with ex -> │
00:06:49 #35683 [verbose] > │ let v8 : exn = ex │
00:06:49 #35684 [verbose] > │ let v9 : int64 = v1 % 100L │
00:06:49 #35685 [verbose] > │ let v10 : bool = v9 = 0L │
00:06:49 #35686 [verbose] > │ if v10 then │
00:06:49 #35687 [verbose] > │ let v11 : string option = None │
00:06:49 #35688 [verbose] > │ let mutable _v11 = v11 │
00:06:49 #35689 [verbose] > │ #if FABLE_COMPILER_RUST && !WASM && !CONTRACT │
00:06:49 #35690 [verbose] > │ let v12 : string = $"%A{v8}" │
00:06:49 #35691 [verbose] > │ v12 │
00:06:49 #35692 [verbose] > │ #endif │
00:06:49 #35693 [verbose] > │ #if FABLE_COMPILER_RUST && WASM │
00:06:49 #35694 [verbose] > │ let v13 : string = $"%A{v8}" │
00:06:49 #35695 [verbose] > │ v13 │
00:06:49 #35696 [verbose] > │ #endif │
00:06:49 #35697 [verbose] > │ #if FABLE_COMPILER_RUST && CONTRACT │
00:06:49 #35698 [verbose] > │ let v14 : string = $"%A{v8}" │
00:06:49 #35699 [verbose] > │ v14 │
00:06:49 #35700 [verbose] > │ #endif │
00:06:49 #35701 [verbose] > │ #if !FABLE_COMPILER && !FABLE_COMPILER_RUST && │
00:06:49 #35702 [verbose] > │ !FABLE_COMPILER_TYPESCRIPT && !WASM && !CONTRACT │
00:06:49 #35703 [verbose] > │ let v15 : string = $"{v8.GetType ()}: {v8.Message}" │
00:06:49 #35704 [verbose] > │ v15 │
00:06:49 #35705 [verbose] > │ #endif │
00:06:49 #35706 [verbose] > │ #if FABLE_COMPILER_TYPESCRIPT │
00:06:49 #35707 [verbose] > │ let v16 : string = $"%A{v8}" │
00:06:49 #35708 [verbose] > │ v16 │
00:06:49 #35709 [verbose] > │ #endif │
00:06:49 #35710 [verbose] > │ #if FABLE_COMPILER_PYTHON || FABLE_COMPILER_PHP || │
00:06:49 #35711 [verbose] > │ FABLE_COMPILER_DART │
00:06:49 #35712 [verbose] > │ let v17 : string = Unchecked.defaultof<string> │
00:06:49 #35713 [verbose] > │ v17 │
00:06:49 #35714 [verbose] > │ #endif │
00:06:49 #35715 [verbose] > │ |> fun x -> _v11 <- Some x │
00:06:49 #35716 [verbose] > │ let v18 : string = _v11.Value │
00:06:49 #35717 [verbose] > │ let v19 : (unit -> string) = closure4(v0, v18) │
00:06:49 #35718 [verbose] > │ let v20 : string = $"delete_directory_async / {v19 ()}" │
00:06:49 #35719 [verbose] > │ System.Console.WriteLine v20 │
00:06:49 #35720 [verbose] > │ () │
00:06:49 #35721 [verbose] > │ let v21 : Async<unit> option = None │
00:06:49 #35722 [verbose] > │ let mutable _v21 = v21 │
00:06:49 #35723 [verbose] > │ #if FABLE_COMPILER_RUST && !WASM && !CONTRACT │
00:06:49 #35724 [verbose] > │ let v22 : Async<unit> = null |> unbox<Async<unit>> │
00:06:49 #35725 [verbose] > │ v22 │
00:06:49 #35726 [verbose] > │ #endif │
00:06:49 #35727 [verbose] > │ #if FABLE_COMPILER_RUST && WASM │
00:06:49 #35728 [verbose] > │ let v23 : Async<unit> = null |> unbox<Async<unit>> │
00:06:49 #35729 [verbose] > │ v23 │
00:06:49 #35730 [verbose] > │ #endif │
00:06:49 #35731 [verbose] > │ #if FABLE_COMPILER_RUST && CONTRACT │
00:06:49 #35732 [verbose] > │ let v24 : Async<unit> = null |> unbox<Async<unit>> │
00:06:49 #35733 [verbose] > │ v24 │
00:06:49 #35734 [verbose] > │ #endif │
00:06:49 #35735 [verbose] > │ #if !FABLE_COMPILER && !FABLE_COMPILER_RUST && │
00:06:49 #35736 [verbose] > │ !FABLE_COMPILER_TYPESCRIPT && !WASM && !CONTRACT │
00:06:49 #35737 [verbose] > │ let v25 : (int32 -> Async<unit>) = Async.Sleep │
00:06:49 #35738 [verbose] > │ let v26 : Async<unit> = v25 10 │
00:06:49 #35739 [verbose] > │ v26 │
00:06:49 #35740 [verbose] > │ #endif │
00:06:49 #35741 [verbose] > │ #if FABLE_COMPILER_TYPESCRIPT │
00:06:49 #35742 [verbose] > │ let v27 : Async<unit> = null |> unbox<Async<unit>> │
00:06:49 #35743 [verbose] > │ v27 │
00:06:49 #35744 [verbose] > │ #endif │
00:06:49 #35745 [verbose] > │ #if FABLE_COMPILER_PYTHON || FABLE_COMPILER_PHP || FABLE_COMPILER_DART │
00:06:49 #35746 [verbose] > │ let v28 : Async<unit> = Unchecked.defaultof<Async<unit>> │
00:06:49 #35747 [verbose] > │ v28 │
00:06:49 #35748 [verbose] > │ #endif │
00:06:49 #35749 [verbose] > │ |> fun x -> _v21 <- Some x │
00:06:49 #35750 [verbose] > │ let v29 : Async<unit> = _v21.Value │
00:06:49 #35751 [verbose] > │ do! v29 │
00:06:49 #35752 [verbose] > │ let v30 : int64 = v1 + 1L │
00:06:49 #35753 [verbose] > │ let v31 : Async<int64> = method2(v0, v30) │
00:06:49 #35754 [verbose] > │ return! v31 │
00:06:49 #35755 [verbose] > │ (* │
00:06:49 #35756 [verbose] > │ let v32 : int64 = *) │
00:06:49 #35757 [verbose] > │ } │
00:06:49 #35758 [verbose] > │ |> fun x -> _v6 <- Some x │
00:06:49 #35759 [verbose] > │ let v33 : Async<int64> = _v6 |> Option.get │
00:06:49 #35760 [verbose] > │ v33 │
00:06:49 #35761 [verbose] > │ #endif │
00:06:49 #35762 [verbose] > │ #if FABLE_COMPILER_TYPESCRIPT │
00:06:49 #35763 [verbose] > │ let v34 : Async<int64> = null |> unbox<Async<int64>> │
00:06:49 #35764 [verbose] > │ v34 │
00:06:49 #35765 [verbose] > │ #endif │
00:06:49 #35766 [verbose] > │ #if FABLE_COMPILER_PYTHON || FABLE_COMPILER_PHP || FABLE_COMPILER_DART │
00:06:49 #35767 [verbose] > │ let v35 : Async<int64> = Unchecked.defaultof<Async<int64>> │
00:06:49 #35768 [verbose] > │ v35 │
00:06:49 #35769 [verbose] > │ #endif │
00:06:49 #35770 [verbose] > │ |> fun x -> _v2 <- Some x │
00:06:49 #35771 [verbose] > │ let v36 : Async<int64> = _v2.Value │
00:06:49 #35772 [verbose] > │ v36 │
00:06:49 #35773 [verbose] > │ and closure3 (v0 : string) () : unit = │
00:06:49 #35774 [verbose] > │ let v1 : Async<int64> option = None │
00:06:49 #35775 [verbose] > │ let mutable _v1 = v1 │
00:06:49 #35776 [verbose] > │ #if FABLE_COMPILER_RUST && !WASM && !CONTRACT │
00:06:49 #35777 [verbose] > │ let v2 : Async<int64> = null |> unbox<Async<int64>> │
00:06:49 #35778 [verbose] > │ v2 │
00:06:49 #35779 [verbose] > │ #endif │
00:06:49 #35780 [verbose] > │ #if FABLE_COMPILER_RUST && WASM │
00:06:49 #35781 [verbose] > │ let v3 : Async<int64> = null |> unbox<Async<int64>> │
00:06:49 #35782 [verbose] > │ v3 │
00:06:49 #35783 [verbose] > │ #endif │
00:06:49 #35784 [verbose] > │ #if FABLE_COMPILER_RUST && CONTRACT │
00:06:49 #35785 [verbose] > │ let v4 : Async<int64> = null |> unbox<Async<int64>> │
00:06:49 #35786 [verbose] > │ v4 │
00:06:49 #35787 [verbose] > │ #endif │
00:06:49 #35788 [verbose] > │ #if !FABLE_COMPILER && !FABLE_COMPILER_RUST && │
00:06:49 #35789 [verbose] > │ !FABLE_COMPILER_TYPESCRIPT && !WASM && !CONTRACT │
00:06:49 #35790 [verbose] > │ let v5 : int64 = 0L │
00:06:49 #35791 [verbose] > │ let v6 : Async<int64> = method2(v0, v5) │
00:06:49 #35792 [verbose] > │ v6 │
00:06:49 #35793 [verbose] > │ #endif │
00:06:49 #35794 [verbose] > │ #if FABLE_COMPILER_TYPESCRIPT │
00:06:49 #35795 [verbose] > │ let v7 : Async<int64> = null |> unbox<Async<int64>> │
00:06:49 #35796 [verbose] > │ v7 │
00:06:49 #35797 [verbose] > │ #endif │
00:06:49 #35798 [verbose] > │ #if FABLE_COMPILER_PYTHON || FABLE_COMPILER_PHP || FABLE_COMPILER_DART │
00:06:49 #35799 [verbose] > │ let v8 : Async<int64> = Unchecked.defaultof<Async<int64>> │
00:06:49 #35800 [verbose] > │ v8 │
00:06:49 #35801 [verbose] > │ #endif │
00:06:49 #35802 [verbose] > │ |> fun x -> _v1 <- Some x │
00:06:49 #35803 [verbose] > │ let v9 : Async<int64> = _v1.Value │
00:06:49 #35804 [verbose] > │ let v10 : Async<unit> option = None │
00:06:49 #35805 [verbose] > │ let mutable _v10 = v10 │
00:06:49 #35806 [verbose] > │ #if FABLE_COMPILER_RUST && !WASM && !CONTRACT │
00:06:49 #35807 [verbose] > │ let v11 : Async<unit> = null |> unbox<Async<unit>> │
00:06:49 #35808 [verbose] > │ v11 │
00:06:49 #35809 [verbose] > │ #endif │
00:06:49 #35810 [verbose] > │ #if FABLE_COMPILER_RUST && WASM │
00:06:49 #35811 [verbose] > │ let v12 : Async<unit> = null |> unbox<Async<unit>> │
00:06:49 #35812 [verbose] > │ v12 │
00:06:49 #35813 [verbose] > │ #endif │
00:06:49 #35814 [verbose] > │ #if FABLE_COMPILER_RUST && CONTRACT │
00:06:49 #35815 [verbose] > │ let v13 : Async<unit> = null |> unbox<Async<unit>> │
00:06:49 #35816 [verbose] > │ v13 │
00:06:49 #35817 [verbose] > │ #endif │
00:06:49 #35818 [verbose] > │ #if !FABLE_COMPILER && !FABLE_COMPILER_RUST && │
00:06:49 #35819 [verbose] > │ !FABLE_COMPILER_TYPESCRIPT && !WASM && !CONTRACT │
00:06:49 #35820 [verbose] > │ let v14 : (Async<int64> -> Async<unit>) = Async.Ignore │
00:06:49 #35821 [verbose] > │ let v15 : Async<unit> = v14 v9 │
00:06:49 #35822 [verbose] > │ v15 │
00:06:49 #35823 [verbose] > │ #endif │
00:06:49 #35824 [verbose] > │ #if FABLE_COMPILER_TYPESCRIPT │
00:06:49 #35825 [verbose] > │ let v16 : Async<unit> = null |> unbox<Async<unit>> │
00:06:49 #35826 [verbose] > │ v16 │
00:06:49 #35827 [verbose] > │ #endif │
00:06:49 #35828 [verbose] > │ #if FABLE_COMPILER_PYTHON || FABLE_COMPILER_PHP || FABLE_COMPILER_DART │
00:06:49 #35829 [verbose] > │ let v17 : Async<unit> = Unchecked.defaultof<Async<unit>> │
00:06:49 #35830 [verbose] > │ v17 │
00:06:49 #35831 [verbose] > │ #endif │
00:06:49 #35832 [verbose] > │ |> fun x -> _v10 <- Some x │
00:06:49 #35833 [verbose] > │ let v18 : Async<unit> = _v10.Value │
00:06:49 #35834 [verbose] > │ let v19 : unit option = None │
00:06:49 #35835 [verbose] > │ let mutable _v19 = v19 │
00:06:49 #35836 [verbose] > │ #if FABLE_COMPILER_RUST && !WASM && !CONTRACT │
00:06:49 #35837 [verbose] > │ null |> unbox<unit> │
00:06:49 #35838 [verbose] > │ () │
00:06:49 #35839 [verbose] > │ #endif │
00:06:49 #35840 [verbose] > │ #if FABLE_COMPILER_RUST && WASM │
00:06:49 #35841 [verbose] > │ null |> unbox<unit> │
00:06:49 #35842 [verbose] > │ () │
00:06:49 #35843 [verbose] > │ #endif │
00:06:49 #35844 [verbose] > │ #if FABLE_COMPILER_RUST && CONTRACT │
00:06:49 #35845 [verbose] > │ null |> unbox<unit> │
00:06:49 #35846 [verbose] > │ () │
00:06:49 #35847 [verbose] > │ #endif │
00:06:49 #35848 [verbose] > │ #if !FABLE_COMPILER && !FABLE_COMPILER_RUST && │
00:06:49 #35849 [verbose] > │ !FABLE_COMPILER_TYPESCRIPT && !WASM && !CONTRACT │
00:06:49 #35850 [verbose] > │ let v20 : (Async<unit> -> unit) = Async.RunSynchronously │
00:06:49 #35851 [verbose] > │ v20 v18 │
00:06:49 #35852 [verbose] > │ () │
00:06:49 #35853 [verbose] > │ #endif │
00:06:49 #35854 [verbose] > │ #if FABLE_COMPILER_TYPESCRIPT │
00:06:49 #35855 [verbose] > │ null |> unbox<unit> │
00:06:49 #35856 [verbose] > │ () │
00:06:49 #35857 [verbose] > │ #endif │
00:06:49 #35858 [verbose] > │ #if FABLE_COMPILER_PYTHON || FABLE_COMPILER_PHP || FABLE_COMPILER_DART │
00:06:49 #35859 [verbose] > │ Unchecked.defaultof<unit> │
00:06:49 #35860 [verbose] > │ () │
00:06:49 #35861 [verbose] > │ #endif │
00:06:49 #35862 [verbose] > │ |> fun x -> _v19 <- Some x │
00:06:49 #35863 [verbose] > │ _v19.Value │
00:06:49 #35864 [verbose] > │ () │
00:06:49 #35865 [verbose] > │ and method4 () : string = │
00:06:49 #35866 [verbose] > │ let v0 : string = "test.txt" │
00:06:49 #35867 [verbose] > │ v0 │
00:06:49 #35868 [verbose] > │ and method5 () : string = │
00:06:49 #35869 [verbose] > │ let v0 : string = "test2.txt" │
00:06:49 #35870 [verbose] > │ v0 │
00:06:50 #35871 [verbose] > │ and closure6 () () : string = │
00:06:50 #35872 [verbose] > │ let v0 : string = "1" │
00:06:50 #35873 [verbose] > │ v0 │
00:06:50 #35874 [verbose] > │ and method7 (v0 : int64 option) : int64 option = │
00:06:50 #35875 [verbose] > │ v0 │
00:06:50 #35876 [verbose] > │ and method8 (v0 : int64 option) : int64 option = │
00:06:50 #35877 [verbose] > │ v0 │
00:06:50 #35878 [verbose] > │ and closure7 () () : struct (Mut0 * Mut1 * Mut1 * Mut2 * int64 option) = │
00:06:50 #35879 [verbose] > │ let v0 : Mut1 = {l0 = true} : Mut1 │
00:06:50 #35880 [verbose] > │ let v1 : Mut0 = {l0 = 0L} : Mut0 │
00:06:50 #35881 [verbose] > │ let v2 : US0 = US0_0 │
00:06:50 #35882 [verbose] > │ let v3 : Mut2 = {l0 = v2} : Mut2 │
00:06:50 #35883 [verbose] > │ let v4 : Mut1 = {l0 = false} : Mut1 │
00:06:50 #35884 [verbose] > │ let v5 : int64 option option = None │
00:06:50 #35885 [verbose] > │ let mutable _v5 = v5 │
00:06:50 #35886 [verbose] > │ #if INTERACTIVE || !FABLE_COMPILER │
00:06:50 #35887 [verbose] > │ let v6 : string option = None │
00:06:50 #35888 [verbose] > │ let mutable _v6 = v6 │
00:06:50 #35889 [verbose] > │ #if FABLE_COMPILER_RUST && !WASM && !CONTRACT │
00:06:50 #35890 [verbose] > │ let v7 : string = null |> unbox<string> │
00:06:50 #35891 [verbose] > │ v7 │
00:06:50 #35892 [verbose] > │ #endif │
00:06:50 #35893 [verbose] > │ #if FABLE_COMPILER_RUST && WASM │
00:06:50 #35894 [verbose] > │ let v8 : string = null |> unbox<string> │
00:06:50 #35895 [verbose] > │ v8 │
00:06:50 #35896 [verbose] > │ #endif │
00:06:50 #35897 [verbose] > │ #if FABLE_COMPILER_RUST && CONTRACT │
00:06:50 #35898 [verbose] > │ let v9 : string = null |> unbox<string> │
00:06:50 #35899 [verbose] > │ v9 │
00:06:50 #35900 [verbose] > │ #endif │
00:06:50 #35901 [verbose] > │ #if !FABLE_COMPILER && !FABLE_COMPILER_RUST && │
00:06:50 #35902 [verbose] > │ !FABLE_COMPILER_TYPESCRIPT && !WASM && !CONTRACT │
00:06:50 #35903 [verbose] > │ let v10 : string = │
00:06:50 #35904 [verbose] > │ System.Reflection.Assembly.GetEntryAssembly().GetName().Name │
00:06:50 #35905 [verbose] > │ v10 │
00:06:50 #35906 [verbose] > │ #endif │
00:06:50 #35907 [verbose] > │ #if FABLE_COMPILER_TYPESCRIPT │
00:06:50 #35908 [verbose] > │ let v11 : string = null |> unbox<string> │
00:06:50 #35909 [verbose] > │ v11 │
00:06:50 #35910 [verbose] > │ #endif │
00:06:50 #35911 [verbose] > │ #if FABLE_COMPILER_PYTHON || FABLE_COMPILER_PHP || FABLE_COMPILER_DART │
00:06:50 #35912 [verbose] > │ let v12 : string = Unchecked.defaultof<string> │
00:06:50 #35913 [verbose] > │ v12 │
00:06:50 #35914 [verbose] > │ #endif │
00:06:50 #35915 [verbose] > │ |> fun x -> _v6 <- Some x │
00:06:50 #35916 [verbose] > │ let v13 : string = _v6.Value │
00:06:50 #35917 [verbose] > │ let v15 : bool = v13 = "Microsoft.DotNet.Interactive.App" │
00:06:50 #35918 [verbose] > │ let v16 : bool = v15 <> true │
00:06:50 #35919 [verbose] > │ let v22 : US1 = │
00:06:50 #35920 [verbose] > │ if v16 then │
00:06:50 #35921 [verbose] > │ let v17 : System.DateTime = System.DateTime.Now │
00:06:50 #35922 [verbose] > │ let v18 : (System.DateTime -> int64) = _.Ticks │
00:06:50 #35923 [verbose] > │ let v19 : int64 = v18 v17 │
00:06:50 #35924 [verbose] > │ US1_0(v19) │
00:06:50 #35925 [verbose] > │ else │
00:06:50 #35926 [verbose] > │ US1_1 │
00:06:50 #35927 [verbose] > │ let v27 : int64 option = │
00:06:50 #35928 [verbose] > │ match v22 with │
00:06:50 #35929 [verbose] > │ | US1_1 -> (* None *) │
00:06:50 #35930 [verbose] > │ let v25 : int64 option = None │
00:06:50 #35931 [verbose] > │ v25 │
00:06:50 #35932 [verbose] > │ | US1_0(v23) -> (* Some *) │
00:06:50 #35933 [verbose] > │ let v24 : int64 option = Some v23 │
00:06:50 #35934 [verbose] > │ v24 │
00:06:50 #35935 [verbose] > │ let v28 : int64 option = method7(v27) │
00:06:50 #35936 [verbose] > │ v28 │
00:06:50 #35937 [verbose] > │ #else │
00:06:50 #35938 [verbose] > │ let v29 : int64 option = None │
00:06:50 #35939 [verbose] > │ let v30 : int64 option = method8(v29) │
00:06:50 #35940 [verbose] > │ v30 │
00:06:50 #35941 [verbose] > │ #endif │
00:06:50 #35942 [verbose] > │ |> fun x -> _v5 <- Some x │
00:06:50 #35943 [verbose] > │ let v31 : int64 option = _v5.Value │
00:06:50 #35944 [verbose] > │ struct (v1, v4, v0, v3, v31) │
00:06:50 #35945 [verbose] > │ and closure9 () (v0 : int64) : US2 = │
00:06:50 #35946 [verbose] > │ US2_0(v0) │
00:06:50 #35947 [verbose] > │ and method9 () : (int64 -> US2) = │
00:06:50 #35948 [verbose] > │ closure9() │
00:06:50 #35949 [verbose] > │ and method10 () : string = │
00:06:50 #35950 [verbose] > │ let v0 : string = "" │
00:06:50 #35951 [verbose] > │ v0 │
00:06:50 #35952 [verbose] > │ and closure8 (v0 : US0, v1 : (unit -> string), v2 : (unit -> string)) () : │
00:06:50 #35953 [verbose] > │ string = │
00:06:50 #35954 [verbose] > │ let v3 : (unit -> struct (Mut0 * Mut1 * Mut1 * Mut2 * int64 option)) = │
00:06:50 #35955 [verbose] > │ closure7() │
00:06:50 #35956 [verbose] > │ if State.trace_state = None then State.trace_state <- v3 () |> Some │
00:06:50 #35957 [verbose] > │ let struct (v4 : Mut0, v5 : Mut1, v6 : Mut1, v7 : Mut2, v8 : int64 │
00:06:50 #35958 [verbose] > │ option) = State.trace_state.Value │
00:06:50 #35959 [verbose] > │ let v9 : string option = None │
00:06:50 #35960 [verbose] > │ let mutable _v9 = v9 │
00:06:50 #35961 [verbose] > │ #if FABLE_COMPILER_RUST && !WASM && !CONTRACT │
00:06:50 #35962 [verbose] > │ let v10 : (int64 -> US2) = method9() │
00:06:50 #35963 [verbose] > │ let v11 : US2 = US2_1 │
00:06:50 #35964 [verbose] > │ let v12 : US2 = v8 |> Option.map v10 |> Option.defaultValue v11 │
00:06:50 #35965 [verbose] > │ let v30 : System.DateTime = │
00:06:50 #35966 [verbose] > │ match v12 with │
00:06:50 #35967 [verbose] > │ | US2_1 -> (* None *) │
00:06:50 #35968 [verbose] > │ let v28 : System.DateTime = System.DateTime.Now │
00:06:50 #35969 [verbose] > │ v28 │
00:06:50 #35970 [verbose] > │ | US2_0(v13) -> (* Some *) │
00:06:50 #35971 [verbose] > │ let v14 : System.DateTime = System.DateTime.Now │
00:06:50 #35972 [verbose] > │ let v15 : (System.DateTime -> int64) = _.Ticks │
00:06:50 #35973 [verbose] > │ let v16 : int64 = v15 v14 │
00:06:50 #35974 [verbose] > │ let v17 : int64 = v16 - v13 │
00:06:50 #35975 [verbose] > │ let v18 : System.TimeSpan = System.TimeSpan v17 │
00:06:50 #35976 [verbose] > │ let v19 : (System.TimeSpan -> int32) = _.Hours │
00:06:50 #35977 [verbose] > │ let v20 : int32 = v19 v18 │
00:06:50 #35978 [verbose] > │ let v21 : (System.TimeSpan -> int32) = _.Minutes │
00:06:50 #35979 [verbose] > │ let v22 : int32 = v21 v18 │
00:06:50 #35980 [verbose] > │ let v23 : (System.TimeSpan -> int32) = _.Seconds │
00:06:50 #35981 [verbose] > │ let v24 : int32 = v23 v18 │
00:06:50 #35982 [verbose] > │ let v25 : (System.TimeSpan -> int32) = _.Milliseconds │
00:06:50 #35983 [verbose] > │ let v26 : int32 = v25 v18 │
00:06:50 #35984 [verbose] > │ let v27 : System.DateTime = System.DateTime (1, 1, 1, v20, v22, │
00:06:50 #35985 [verbose] > │ v24, v26) │
00:06:50 #35986 [verbose] > │ v27 │
00:06:50 #35987 [verbose] > │ let v31 : string = "hh:mm:ss" │
00:06:50 #35988 [verbose] > │ let v32 : string = v30.ToString v31 │
00:06:50 #35989 [verbose] > │ v32 │
00:06:50 #35990 [verbose] > │ #endif │
00:06:50 #35991 [verbose] > │ #if FABLE_COMPILER_RUST && WASM │
00:06:50 #35992 [verbose] > │ let v33 : string = method10() │
00:06:50 #35993 [verbose] > │ v33 │
00:06:50 #35994 [verbose] > │ #endif │
00:06:50 #35995 [verbose] > │ #if FABLE_COMPILER_RUST && CONTRACT │
00:06:50 #35996 [verbose] > │ let v34 : string = method10() │
00:06:50 #35997 [verbose] > │ v34 │
00:06:50 #35998 [verbose] > │ #endif │
00:06:50 #35999 [verbose] > │ #if !FABLE_COMPILER && !FABLE_COMPILER_RUST && │
00:06:50 #36000 [verbose] > │ !FABLE_COMPILER_TYPESCRIPT && !WASM && !CONTRACT │
00:06:50 #36001 [verbose] > │ let v35 : (int64 -> US2) = method9() │
00:06:50 #36002 [verbose] > │ let v36 : US2 = US2_1 │
00:06:50 #36003 [verbose] > │ let v37 : US2 = v8 |> Option.map v35 |> Option.defaultValue v36 │
00:06:50 #36004 [verbose] > │ let v55 : System.DateTime = │
00:06:50 #36005 [verbose] > │ match v37 with │
00:06:50 #36006 [verbose] > │ | US2_1 -> (* None *) │
00:06:50 #36007 [verbose] > │ let v53 : System.DateTime = System.DateTime.Now │
00:06:50 #36008 [verbose] > │ v53 │
00:06:50 #36009 [verbose] > │ | US2_0(v38) -> (* Some *) │
00:06:50 #36010 [verbose] > │ let v39 : System.DateTime = System.DateTime.Now │
00:06:50 #36011 [verbose] > │ let v40 : (System.DateTime -> int64) = _.Ticks │
00:06:50 #36012 [verbose] > │ let v41 : int64 = v40 v39 │
00:06:50 #36013 [verbose] > │ let v42 : int64 = v41 - v38 │
00:06:50 #36014 [verbose] > │ let v43 : System.TimeSpan = System.TimeSpan v42 │
00:06:50 #36015 [verbose] > │ let v44 : (System.TimeSpan -> int32) = _.Hours │
00:06:50 #36016 [verbose] > │ let v45 : int32 = v44 v43 │
00:06:50 #36017 [verbose] > │ let v46 : (System.TimeSpan -> int32) = _.Minutes │
00:06:50 #36018 [verbose] > │ let v47 : int32 = v46 v43 │
00:06:50 #36019 [verbose] > │ let v48 : (System.TimeSpan -> int32) = _.Seconds │
00:06:50 #36020 [verbose] > │ let v49 : int32 = v48 v43 │
00:06:50 #36021 [verbose] > │ let v50 : (System.TimeSpan -> int32) = _.Milliseconds │
00:06:50 #36022 [verbose] > │ let v51 : int32 = v50 v43 │
00:06:50 #36023 [verbose] > │ let v52 : System.DateTime = System.DateTime (1, 1, 1, v45, v47, │
00:06:50 #36024 [verbose] > │ v49, v51) │
00:06:50 #36025 [verbose] > │ v52 │
00:06:50 #36026 [verbose] > │ let v56 : string = "HH:mm:ss" │
00:06:50 #36027 [verbose] > │ let v57 : string = v55.ToString v56 │
00:06:50 #36028 [verbose] > │ v57 │
00:06:50 #36029 [verbose] > │ #endif │
00:06:50 #36030 [verbose] > │ #if FABLE_COMPILER_TYPESCRIPT │
00:06:50 #36031 [verbose] > │ let v58 : string = method10() │
00:06:50 #36032 [verbose] > │ v58 │
00:06:50 #36033 [verbose] > │ #endif │
00:06:50 #36034 [verbose] > │ #if FABLE_COMPILER_PYTHON || FABLE_COMPILER_PHP || FABLE_COMPILER_DART │
00:06:50 #36035 [verbose] > │ let v59 : string = Unchecked.defaultof<string> │
00:06:50 #36036 [verbose] > │ v59 │
00:06:50 #36037 [verbose] > │ #endif │
00:06:50 #36038 [verbose] > │ |> fun x -> _v9 <- Some x │
00:06:50 #36039 [verbose] > │ let v60 : string = _v9.Value │
00:06:50 #36040 [verbose] > │ let v61 : int64 = v4.l0 │
00:06:50 #36041 [verbose] > │ let v71 : string = │
00:06:50 #36042 [verbose] > │ match v0 with │
00:06:50 #36043 [verbose] > │ | US0_4 -> (* Critical *) │
00:06:50 #36044 [verbose] > │ let v66 : string = "Critical" │
00:06:50 #36045 [verbose] > │ v66 │
00:06:50 #36046 [verbose] > │ | US0_1 -> (* Debug *) │
00:06:50 #36047 [verbose] > │ let v63 : string = "Debug" │
00:06:50 #36048 [verbose] > │ v63 │
00:06:50 #36049 [verbose] > │ | US0_2 -> (* Info *) │
00:06:50 #36050 [verbose] > │ let v64 : string = "Info" │
00:06:50 #36051 [verbose] > │ v64 │
00:06:50 #36052 [verbose] > │ | US0_0 -> (* Verbose *) │
00:06:50 #36053 [verbose] > │ let v62 : string = "Verbose" │
00:06:50 #36054 [verbose] > │ v62 │
00:06:50 #36055 [verbose] > │ | US0_3 -> (* Warning *) │
00:06:50 #36056 [verbose] > │ let v65 : string = "Warning" │
00:06:50 #36057 [verbose] > │ v65 │
00:06:50 #36058 [verbose] > │ let v72 : string = v71.ToLower () │
00:06:50 #36059 [verbose] > │ let v73 : string = $"{v60} #{v61} [{v72}] %s{v1 ()} / %s{v2 ()}" │
00:06:50 #36060 [verbose] > │ let v74 : (char []) = [||] │
00:06:50 #36061 [verbose] > │ let v75 : string = v73.TrimStart v74 │
00:06:50 #36062 [verbose] > │ let v76 : (char []) = [|' '; '/'|] │
00:06:50 #36063 [verbose] > │ let v77 : string = v75.TrimEnd v76 │
00:06:50 #36064 [verbose] > │ v77 │
00:06:50 #36065 [verbose] > │ and method6 (v0 : US0, v1 : (unit -> string), v2 : (unit -> string)) : unit │
00:06:50 #36066 [verbose] > │ = │
00:06:50 #36067 [verbose] > │ let v3 : (unit -> struct (Mut0 * Mut1 * Mut1 * Mut2 * int64 option)) = │
00:06:50 #36068 [verbose] > │ closure7() │
00:06:50 #36069 [verbose] > │ if State.trace_state = None then State.trace_state <- v3 () |> Some │
00:06:50 #36070 [verbose] > │ let struct (v4 : Mut0, v5 : Mut1, v6 : Mut1, v7 : Mut2, v8 : int64 │
00:06:50 #36071 [verbose] > │ option) = State.trace_state.Value │
00:06:50 #36072 [verbose] > │ if State.trace_state = None then State.trace_state <- v3 () |> Some │
00:06:50 #36073 [verbose] > │ let struct (v9 : Mut0, v10 : Mut1, v11 : Mut1, v12 : Mut2, v13 : int64 │
00:06:50 #36074 [verbose] > │ option) = State.trace_state.Value │
00:06:50 #36075 [verbose] > │ let v14 : US0 = v12.l0 │
00:06:50 #36076 [verbose] > │ let v15 : bool = v11.l0 │
00:06:50 #36077 [verbose] > │ let v17 : bool = │
00:06:50 #36078 [verbose] > │ if v15 then │
00:06:50 #36079 [verbose] > │ let v16 : bool = v0 >= v14 │
00:06:50 #36080 [verbose] > │ v16 │
00:06:50 #36081 [verbose] > │ else │
00:06:50 #36082 [verbose] > │ false │
00:06:50 #36083 [verbose] > │ if v17 then │
00:06:50 #36084 [verbose] > │ let v18 : int64 = v4.l0 │
00:06:50 #36085 [verbose] > │ let v19 : int64 = v18 + 1L │
00:06:50 #36086 [verbose] > │ v4.l0 <- v19 │
00:06:50 #36087 [verbose] > │ let v20 : (unit -> string) = closure8(v0, v1, v2) │
00:06:50 #36088 [verbose] > │ let v21 : string = $"%s{v20 ()}" │
00:06:50 #36089 [verbose] > │ let v22 : unit option = None │
00:06:50 #36090 [verbose] > │ let mutable _v22 = v22 │
00:06:50 #36091 [verbose] > │ #if FABLE_COMPILER_RUST && !WASM && !CONTRACT │
00:06:50 #36092 [verbose] > │ let v23 : string = @"println!(""{}"", $0)" │
00:06:50 #36093 [verbose] > │ Fable.Core.RustInterop.emitRustExpr v21 v23 │
00:06:50 #36094 [verbose] > │ () │
00:06:50 #36095 [verbose] > │ #endif │
00:06:50 #36096 [verbose] > │ #if FABLE_COMPILER_RUST && WASM │
00:06:50 #36097 [verbose] > │ let v24 : string = @"println!(""{}"", $0)" │
00:06:50 #36098 [verbose] > │ Fable.Core.RustInterop.emitRustExpr v21 v24 │
00:06:50 #36099 [verbose] > │ () │
00:06:50 #36100 [verbose] > │ #endif │
00:06:50 #36101 [verbose] > │ #if FABLE_COMPILER_RUST && CONTRACT │
00:06:50 #36102 [verbose] > │ let v25 : string = @"println!(""{}"", $0)" │
00:06:50 #36103 [verbose] > │ Fable.Core.RustInterop.emitRustExpr v21 v25 │
00:06:50 #36104 [verbose] > │ () │
00:06:50 #36105 [verbose] > │ #endif │
00:06:50 #36106 [verbose] > │ #if !FABLE_COMPILER && !FABLE_COMPILER_RUST && │
00:06:50 #36107 [verbose] > │ !FABLE_COMPILER_TYPESCRIPT && !WASM && !CONTRACT │
00:06:50 #36108 [verbose] > │ System.Console.WriteLine v21 │
00:06:50 #36109 [verbose] > │ () │
00:06:50 #36110 [verbose] > │ #endif │
00:06:50 #36111 [verbose] > │ #if FABLE_COMPILER_TYPESCRIPT │
00:06:50 #36112 [verbose] > │ System.Console.WriteLine v21 │
00:06:50 #36113 [verbose] > │ () │
00:06:50 #36114 [verbose] > │ #endif │
00:06:50 #36115 [verbose] > │ #if FABLE_COMPILER_PYTHON || FABLE_COMPILER_PHP || │
00:06:50 #36116 [verbose] > │ FABLE_COMPILER_DART │
00:06:50 #36117 [verbose] > │ Unchecked.defaultof<unit> │
00:06:50 #36118 [verbose] > │ () │
00:06:50 #36119 [verbose] > │ #endif │
00:06:50 #36120 [verbose] > │ |> fun x -> _v22 <- Some x │
00:06:50 #36121 [verbose] > │ _v22.Value │
00:06:50 #36122 [verbose] > │ () │
00:06:50 #36123 [verbose] > │ and closure10 () () : string = │
00:06:50 #36124 [verbose] > │ let v0 : string = "2" │
00:06:50 #36125 [verbose] > │ v0 │
00:06:50 #36126 [verbose] > │ and closure11 () () : string = │
00:06:50 #36127 [verbose] > │ let v0 : string = "_1" │
00:06:50 #36128 [verbose] > │ v0 │
00:06:50 #36129 [verbose] > │ and closure12 () () : string = │
00:06:50 #36130 [verbose] > │ let v0 : string = "_2" │
00:06:50 #36131 [verbose] > │ v0 │
00:06:50 #36132 [verbose] > │ and closure13 () () : string = │
00:06:50 #36133 [verbose] > │ let v0 : string = "_3" │
00:06:50 #36134 [verbose] > │ v0 │
00:06:50 #36135 [verbose] > │ and closure14 () () : string = │
00:06:50 #36136 [verbose] > │ let v0 : string = "3" │
00:06:50 #36137 [verbose] > │ v0 │
00:06:50 #36138 [verbose] > │ and closure15 () () : string = │
00:06:50 #36139 [verbose] > │ let v0 : string = "4" │
00:06:50 #36140 [verbose] > │ v0 │
00:06:50 #36141 [verbose] > │ and closure16 () () : string = │
00:06:50 #36142 [verbose] > │ let v0 : string = "move_file_async" │
00:06:50 #36143 [verbose] > │ v0 │
00:06:50 #36144 [verbose] > │ and method12 (v0 : string, v1 : string, v2 : exn) : string = │
00:06:50 #36145 [verbose] > │ let v3 : string option = None │
00:06:50 #36146 [verbose] > │ let mutable _v3 = v3 │
00:06:50 #36147 [verbose] > │ #if FABLE_COMPILER_RUST && !WASM && !CONTRACT │
00:06:50 #36148 [verbose] > │ let v4 : string = $"%A{v2}" │
00:06:50 #36149 [verbose] > │ v4 │
00:06:50 #36150 [verbose] > │ #endif │
00:06:50 #36151 [verbose] > │ #if FABLE_COMPILER_RUST && WASM │
00:06:50 #36152 [verbose] > │ let v5 : string = $"%A{v2}" │
00:06:50 #36153 [verbose] > │ v5 │
00:06:50 #36154 [verbose] > │ #endif │
00:06:50 #36155 [verbose] > │ #if FABLE_COMPILER_RUST && CONTRACT │
00:06:50 #36156 [verbose] > │ let v6 : string = $"%A{v2}" │
00:06:50 #36157 [verbose] > │ v6 │
00:06:50 #36158 [verbose] > │ #endif │
00:06:50 #36159 [verbose] > │ #if !FABLE_COMPILER && !FABLE_COMPILER_RUST && │
00:06:50 #36160 [verbose] > │ !FABLE_COMPILER_TYPESCRIPT && !WASM && !CONTRACT │
00:06:50 #36161 [verbose] > │ let v7 : string = $"{v2.GetType ()}: {v2.Message}" │
00:06:50 #36162 [verbose] > │ v7 │
00:06:50 #36163 [verbose] > │ #endif │
00:06:50 #36164 [verbose] > │ #if FABLE_COMPILER_TYPESCRIPT │
00:06:50 #36165 [verbose] > │ let v8 : string = $"%A{v2}" │
00:06:50 #36166 [verbose] > │ v8 │
00:06:50 #36167 [verbose] > │ #endif │
00:06:50 #36168 [verbose] > │ #if FABLE_COMPILER_PYTHON || FABLE_COMPILER_PHP || FABLE_COMPILER_DART │
00:06:50 #36169 [verbose] > │ let v9 : string = Unchecked.defaultof<string> │
00:06:50 #36170 [verbose] > │ v9 │
00:06:50 #36171 [verbose] > │ #endif │
00:06:50 #36172 [verbose] > │ |> fun x -> _v3 <- Some x │
00:06:50 #36173 [verbose] > │ let v10 : string = _v3.Value │
00:06:50 #36174 [verbose] > │ let v11 : (string -> string) = closure5() │
00:06:50 #36175 [verbose] > │ let v12 : (unit -> string) = closure2() │
00:06:50 #36176 [verbose] > │ let v13 : string = $"old_path: {v1 |> v11} / new_path: {v0 |> v11} / ex: │
00:06:50 #36177 [verbose] > │ {v10} / {v12 ()}" │
00:06:50 #36178 [verbose] > │ v13 │
00:06:50 #36179 [verbose] > │ and closure17 (v0 : string, v1 : string, v2 : exn) () : string = │
00:06:50 #36180 [verbose] > │ method12(v0, v1, v2) │
00:06:50 #36181 [verbose] > │ and method11 (v0 : string, v1 : string, v2 : int64) : Async<int64> = │
00:06:50 #36182 [verbose] > │ let v3 : Async<int64> option = None │
00:06:50 #36183 [verbose] > │ let mutable _v3 = v3 │
00:06:50 #36184 [verbose] > │ #if FABLE_COMPILER_RUST && !WASM && !CONTRACT │
00:06:50 #36185 [verbose] > │ let v4 : Async<int64> = null |> unbox<Async<int64>> │
00:06:50 #36186 [verbose] > │ v4 │
00:06:50 #36187 [verbose] > │ #endif │
00:06:50 #36188 [verbose] > │ #if FABLE_COMPILER_RUST && WASM │
00:06:50 #36189 [verbose] > │ let v5 : Async<int64> = null |> unbox<Async<int64>> │
00:06:50 #36190 [verbose] > │ v5 │
00:06:50 #36191 [verbose] > │ #endif │
00:06:50 #36192 [verbose] > │ #if FABLE_COMPILER_RUST && CONTRACT │
00:06:50 #36193 [verbose] > │ let v6 : Async<int64> = null |> unbox<Async<int64>> │
00:06:50 #36194 [verbose] > │ v6 │
00:06:50 #36195 [verbose] > │ #endif │
00:06:50 #36196 [verbose] > │ #if !FABLE_COMPILER && !FABLE_COMPILER_RUST && │
00:06:50 #36197 [verbose] > │ !FABLE_COMPILER_TYPESCRIPT && !WASM && !CONTRACT │
00:06:50 #36198 [verbose] > │ let v7 : Async<int64> option = None │
00:06:50 #36199 [verbose] > │ let mutable _v7 = v7 │
00:06:50 #36200 [verbose] > │ async { │
00:06:50 #36201 [verbose] > │ try │
00:06:50 #36202 [verbose] > │ let v8 : unit option = None │
00:06:50 #36203 [verbose] > │ let mutable _v8 = v8 │
00:06:50 #36204 [verbose] > │ #if FABLE_COMPILER_RUST && !WASM && !CONTRACT │
00:06:50 #36205 [verbose] > │ null |> unbox<unit> │
00:06:50 #36206 [verbose] > │ () │
00:06:50 #36207 [verbose] > │ #endif │
00:06:50 #36208 [verbose] > │ #if FABLE_COMPILER_RUST && WASM │
00:06:50 #36209 [verbose] > │ null |> unbox<unit> │
00:06:50 #36210 [verbose] > │ () │
00:06:50 #36211 [verbose] > │ #endif │
00:06:50 #36212 [verbose] > │ #if FABLE_COMPILER_RUST && CONTRACT │
00:06:50 #36213 [verbose] > │ null |> unbox<unit> │
00:06:50 #36214 [verbose] > │ () │
00:06:50 #36215 [verbose] > │ #endif │
00:06:50 #36216 [verbose] > │ #if !FABLE_COMPILER && !FABLE_COMPILER_RUST && │
00:06:50 #36217 [verbose] > │ !FABLE_COMPILER_TYPESCRIPT && !WASM && !CONTRACT │
00:06:50 #36218 [verbose] > │ System.IO.File.Move (v1, v0) │
00:06:50 #36219 [verbose] > │ () │
00:06:50 #36220 [verbose] > │ #endif │
00:06:50 #36221 [verbose] > │ #if FABLE_COMPILER_TYPESCRIPT │
00:06:50 #36222 [verbose] > │ null |> unbox<unit> │
00:06:50 #36223 [verbose] > │ () │
00:06:50 #36224 [verbose] > │ #endif │
00:06:50 #36225 [verbose] > │ #if FABLE_COMPILER_PYTHON || FABLE_COMPILER_PHP || FABLE_COMPILER_DART │
00:06:50 #36226 [verbose] > │ Unchecked.defaultof<unit> │
00:06:50 #36227 [verbose] > │ () │
00:06:50 #36228 [verbose] > │ #endif │
00:06:50 #36229 [verbose] > │ |> fun x -> _v8 <- Some x │
00:06:50 #36230 [verbose] > │ _v8.Value │
00:06:50 #36231 [verbose] > │ return v2 │
00:06:50 #36232 [verbose] > │ with ex -> │
00:06:50 #36233 [verbose] > │ let v9 : exn = ex │
00:06:50 #36234 [verbose] > │ let v10 : int64 = v2 % 100L │
00:06:50 #36235 [verbose] > │ let v11 : bool = v10 = 0L │
00:06:50 #36236 [verbose] > │ if v11 then │
00:06:50 #36237 [verbose] > │ let v12 : US0 = US0_3 │
00:06:50 #36238 [verbose] > │ let v13 : (unit -> string) = closure16() │
00:06:50 #36239 [verbose] > │ let v14 : (unit -> string) = closure17(v0, v1, v9) │
00:06:50 #36240 [verbose] > │ method6(v12, v13, v14) │
00:06:50 #36241 [verbose] > │ let v15 : Async<unit> option = None │
00:06:50 #36242 [verbose] > │ let mutable _v15 = v15 │
00:06:50 #36243 [verbose] > │ #if FABLE_COMPILER_RUST && !WASM && !CONTRACT │
00:06:50 #36244 [verbose] > │ let v16 : Async<unit> = null |> unbox<Async<unit>> │
00:06:50 #36245 [verbose] > │ v16 │
00:06:50 #36246 [verbose] > │ #endif │
00:06:50 #36247 [verbose] > │ #if FABLE_COMPILER_RUST && WASM │
00:06:50 #36248 [verbose] > │ let v17 : Async<unit> = null |> unbox<Async<unit>> │
00:06:50 #36249 [verbose] > │ v17 │
00:06:50 #36250 [verbose] > │ #endif │
00:06:50 #36251 [verbose] > │ #if FABLE_COMPILER_RUST && CONTRACT │
00:06:50 #36252 [verbose] > │ let v18 : Async<unit> = null |> unbox<Async<unit>> │
00:06:50 #36253 [verbose] > │ v18 │
00:06:50 #36254 [verbose] > │ #endif │
00:06:50 #36255 [verbose] > │ #if !FABLE_COMPILER && !FABLE_COMPILER_RUST && │
00:06:50 #36256 [verbose] > │ !FABLE_COMPILER_TYPESCRIPT && !WASM && !CONTRACT │
00:06:50 #36257 [verbose] > │ let v19 : (int32 -> Async<unit>) = Async.Sleep │
00:06:50 #36258 [verbose] > │ let v20 : Async<unit> = v19 10 │
00:06:50 #36259 [verbose] > │ v20 │
00:06:50 #36260 [verbose] > │ #endif │
00:06:50 #36261 [verbose] > │ #if FABLE_COMPILER_TYPESCRIPT │
00:06:50 #36262 [verbose] > │ let v21 : Async<unit> = null |> unbox<Async<unit>> │
00:06:50 #36263 [verbose] > │ v21 │
00:06:50 #36264 [verbose] > │ #endif │
00:06:50 #36265 [verbose] > │ #if FABLE_COMPILER_PYTHON || FABLE_COMPILER_PHP || FABLE_COMPILER_DART │
00:06:50 #36266 [verbose] > │ let v22 : Async<unit> = Unchecked.defaultof<Async<unit>> │
00:06:50 #36267 [verbose] > │ v22 │
00:06:50 #36268 [verbose] > │ #endif │
00:06:50 #36269 [verbose] > │ |> fun x -> _v15 <- Some x │
00:06:50 #36270 [verbose] > │ let v23 : Async<unit> = _v15.Value │
00:06:50 #36271 [verbose] > │ do! v23 │
00:06:50 #36272 [verbose] > │ let v24 : int64 = v2 + 1L │
00:06:50 #36273 [verbose] > │ let v25 : Async<int64> = method11(v0, v1, v24) │
00:06:50 #36274 [verbose] > │ return! v25 │
00:06:50 #36275 [verbose] > │ (* │
00:06:50 #36276 [verbose] > │ *) │
00:06:50 #36277 [verbose] > │ } │
00:06:50 #36278 [verbose] > │ |> fun x -> _v7 <- Some x │
00:06:50 #36279 [verbose] > │ let v26 : Async<int64> = _v7 |> Option.get │
00:06:50 #36280 [verbose] > │ v26 │
00:06:50 #36281 [verbose] > │ #endif │
00:06:50 #36282 [verbose] > │ #if FABLE_COMPILER_TYPESCRIPT │
00:06:50 #36283 [verbose] > │ let v27 : Async<int64> = null |> unbox<Async<int64>> │
00:06:50 #36284 [verbose] > │ v27 │
00:06:50 #36285 [verbose] > │ #endif │
00:06:50 #36286 [verbose] > │ #if FABLE_COMPILER_PYTHON || FABLE_COMPILER_PHP || FABLE_COMPILER_DART │
00:06:50 #36287 [verbose] > │ let v28 : Async<int64> = Unchecked.defaultof<Async<int64>> │
00:06:50 #36288 [verbose] > │ v28 │
00:06:50 #36289 [verbose] > │ #endif │
00:06:50 #36290 [verbose] > │ |> fun x -> _v3 <- Some x │
00:06:50 #36291 [verbose] > │ let v29 : Async<int64> = _v3.Value │
00:06:50 #36292 [verbose] > │ v29 │
00:06:50 #36293 [verbose] > │ and closure18 () () : string = │
00:06:50 #36294 [verbose] > │ let v0 : string = "5" │
00:06:50 #36295 [verbose] > │ v0 │
00:06:50 #36296 [verbose] > │ and method14 (v0 : string, v1 : int64, v2 : string) : string = │
00:06:50 #36297 [verbose] > │ let v3 : (string -> string) = closure5() │
00:06:50 #36298 [verbose] > │ let v4 : (unit -> string) = closure2() │
00:06:50 #36299 [verbose] > │ let v5 : string = $"path: {v0 |> v3} / retry: {v1} / ex: {v2} / {v4 ()}" │
00:06:50 #36300 [verbose] > │ v5 │
00:06:50 #36301 [verbose] > │ and closure19 (v0 : string, v1 : int64, v2 : string) () : string = │
00:06:50 #36302 [verbose] > │ method14(v0, v1, v2) │
00:06:50 #36303 [verbose] > │ and method13 (v0 : string, v1 : int64) : Async<int64> = │
00:06:50 #36304 [verbose] > │ let v2 : Async<int64> option = None │
00:06:50 #36305 [verbose] > │ let mutable _v2 = v2 │
00:06:50 #36306 [verbose] > │ #if FABLE_COMPILER_RUST && !WASM && !CONTRACT │
00:06:50 #36307 [verbose] > │ let v3 : Async<int64> = null |> unbox<Async<int64>> │
00:06:50 #36308 [verbose] > │ v3 │
00:06:50 #36309 [verbose] > │ #endif │
00:06:50 #36310 [verbose] > │ #if FABLE_COMPILER_RUST && WASM │
00:06:50 #36311 [verbose] > │ let v4 : Async<int64> = null |> unbox<Async<int64>> │
00:06:50 #36312 [verbose] > │ v4 │
00:06:50 #36313 [verbose] > │ #endif │
00:06:50 #36314 [verbose] > │ #if FABLE_COMPILER_RUST && CONTRACT │
00:06:50 #36315 [verbose] > │ let v5 : Async<int64> = null |> unbox<Async<int64>> │
00:06:50 #36316 [verbose] > │ v5 │
00:06:50 #36317 [verbose] > │ #endif │
00:06:50 #36318 [verbose] > │ #if !FABLE_COMPILER && !FABLE_COMPILER_RUST && │
00:06:50 #36319 [verbose] > │ !FABLE_COMPILER_TYPESCRIPT && !WASM && !CONTRACT │
00:06:50 #36320 [verbose] > │ let v6 : Async<int64> option = None │
00:06:50 #36321 [verbose] > │ let mutable _v6 = v6 │
00:06:50 #36322 [verbose] > │ async { │
00:06:50 #36323 [verbose] > │ try │
00:06:50 #36324 [verbose] > │ let v7 : System.IO.FileStream option = None │
00:06:50 #36325 [verbose] > │ let mutable _v7 = v7 │
00:06:50 #36326 [verbose] > │ #if FABLE_COMPILER_RUST && !WASM && !CONTRACT │
00:06:50 #36327 [verbose] > │ let v8 : System.IO.FileStream = null |> unbox<System.IO.FileStream> │
00:06:50 #36328 [verbose] > │ v8 │
00:06:50 #36329 [verbose] > │ #endif │
00:06:50 #36330 [verbose] > │ #if FABLE_COMPILER_RUST && WASM │
00:06:50 #36331 [verbose] > │ let v9 : System.IO.FileStream = null |> unbox<System.IO.FileStream> │
00:06:50 #36332 [verbose] > │ v9 │
00:06:50 #36333 [verbose] > │ #endif │
00:06:50 #36334 [verbose] > │ #if FABLE_COMPILER_RUST && CONTRACT │
00:06:50 #36335 [verbose] > │ let v10 : System.IO.FileStream = null |> unbox<System.IO.FileStream> │
00:06:50 #36336 [verbose] > │ v10 │
00:06:50 #36337 [verbose] > │ #endif │
00:06:50 #36338 [verbose] > │ #if !FABLE_COMPILER && !FABLE_COMPILER_RUST && │
00:06:50 #36339 [verbose] > │ !FABLE_COMPILER_TYPESCRIPT && !WASM && !CONTRACT │
00:06:50 #36340 [verbose] > │ let v11 : System.IO.FileMode = System.IO.FileMode.Open │
00:06:50 #36341 [verbose] > │ let v12 : System.IO.FileAccess = System.IO.FileAccess.ReadWrite │
00:06:50 #36342 [verbose] > │ let v13 : System.IO.FileShare = System.IO.FileShare.Read │
00:06:50 #36343 [verbose] > │ let v14 : System.IO.FileStream = new System.IO.FileStream (v0, v11, v12, │
00:06:50 #36344 [verbose] > │ v13) │
00:06:50 #36345 [verbose] > │ v14 │
00:06:50 #36346 [verbose] > │ #endif │
00:06:50 #36347 [verbose] > │ #if FABLE_COMPILER_TYPESCRIPT │
00:06:50 #36348 [verbose] > │ let v15 : System.IO.FileStream = null |> unbox<System.IO.FileStream> │
00:06:50 #36349 [verbose] > │ v15 │
00:06:50 #36350 [verbose] > │ #endif │
00:06:50 #36351 [verbose] > │ #if FABLE_COMPILER_PYTHON || FABLE_COMPILER_PHP || FABLE_COMPILER_DART │
00:06:50 #36352 [verbose] > │ let v16 : System.IO.FileStream = │
00:06:50 #36353 [verbose] > │ Unchecked.defaultof<System.IO.FileStream> │
00:06:50 #36354 [verbose] > │ v16 │
00:06:50 #36355 [verbose] > │ #endif │
00:06:50 #36356 [verbose] > │ |> fun x -> _v7 <- Some x │
00:06:50 #36357 [verbose] > │ let v17 : System.IO.FileStream = _v7.Value │
00:06:50 #36358 [verbose] > │ use v17 = v17 │
00:06:50 #36359 [verbose] > │ let v18 : System.IO.FileStream = v17 │
00:06:50 #36360 [verbose] > │ return v1 │
00:06:50 #36361 [verbose] > │ with ex -> │
00:06:50 #36362 [verbose] > │ let v19 : exn = ex │
00:06:50 #36363 [verbose] > │ let v20 : bool = v1 > 0L │
00:06:50 #36364 [verbose] > │ let v23 : bool = │
00:06:50 #36365 [verbose] > │ if v20 then │
00:06:50 #36366 [verbose] > │ let v21 : int64 = v1 % 100L │
00:06:50 #36367 [verbose] > │ let v22 : bool = v21 = 0L │
00:06:50 #36368 [verbose] > │ v22 │
00:06:50 #36369 [verbose] > │ else │
00:06:50 #36370 [verbose] > │ false │
00:06:50 #36371 [verbose] > │ if v23 then │
00:06:50 #36372 [verbose] > │ let v24 : string option = None │
00:06:50 #36373 [verbose] > │ let mutable _v24 = v24 │
00:06:50 #36374 [verbose] > │ #if FABLE_COMPILER_RUST && !WASM && !CONTRACT │
00:06:50 #36375 [verbose] > │ let v25 : string = $"%A{v19}" │
00:06:50 #36376 [verbose] > │ v25 │
00:06:50 #36377 [verbose] > │ #endif │
00:06:50 #36378 [verbose] > │ #if FABLE_COMPILER_RUST && WASM │
00:06:50 #36379 [verbose] > │ let v26 : string = $"%A{v19}" │
00:06:50 #36380 [verbose] > │ v26 │
00:06:50 #36381 [verbose] > │ #endif │
00:06:50 #36382 [verbose] > │ #if FABLE_COMPILER_RUST && CONTRACT │
00:06:50 #36383 [verbose] > │ let v27 : string = $"%A{v19}" │
00:06:50 #36384 [verbose] > │ v27 │
00:06:50 #36385 [verbose] > │ #endif │
00:06:50 #36386 [verbose] > │ #if !FABLE_COMPILER && !FABLE_COMPILER_RUST && │
00:06:50 #36387 [verbose] > │ !FABLE_COMPILER_TYPESCRIPT && !WASM && !CONTRACT │
00:06:50 #36388 [verbose] > │ let v28 : string = $"{v19.GetType ()}: {v19.Message}" │
00:06:50 #36389 [verbose] > │ v28 │
00:06:50 #36390 [verbose] > │ #endif │
00:06:50 #36391 [verbose] > │ #if FABLE_COMPILER_TYPESCRIPT │
00:06:50 #36392 [verbose] > │ let v29 : string = $"%A{v19}" │
00:06:50 #36393 [verbose] > │ v29 │
00:06:50 #36394 [verbose] > │ #endif │
00:06:50 #36395 [verbose] > │ #if FABLE_COMPILER_PYTHON || FABLE_COMPILER_PHP || │
00:06:50 #36396 [verbose] > │ FABLE_COMPILER_DART │
00:06:50 #36397 [verbose] > │ let v30 : string = Unchecked.defaultof<string> │
00:06:50 #36398 [verbose] > │ v30 │
00:06:50 #36399 [verbose] > │ #endif │
00:06:50 #36400 [verbose] > │ |> fun x -> _v24 <- Some x │
00:06:50 #36401 [verbose] > │ let v31 : string = _v24.Value │
00:06:50 #36402 [verbose] > │ let v32 : (unit -> string) = closure19(v0, v1, v31) │
00:06:50 #36403 [verbose] > │ let v33 : string = $"wait_for_file_access / {v32 ()}" │
00:06:50 #36404 [verbose] > │ System.Console.WriteLine v33 │
00:06:50 #36405 [verbose] > │ () │
00:06:50 #36406 [verbose] > │ let v34 : Async<unit> option = None │
00:06:50 #36407 [verbose] > │ let mutable _v34 = v34 │
00:06:50 #36408 [verbose] > │ #if FABLE_COMPILER_RUST && !WASM && !CONTRACT │
00:06:50 #36409 [verbose] > │ let v35 : Async<unit> = null |> unbox<Async<unit>> │
00:06:50 #36410 [verbose] > │ v35 │
00:06:50 #36411 [verbose] > │ #endif │
00:06:50 #36412 [verbose] > │ #if FABLE_COMPILER_RUST && WASM │
00:06:50 #36413 [verbose] > │ let v36 : Async<unit> = null |> unbox<Async<unit>> │
00:06:50 #36414 [verbose] > │ v36 │
00:06:50 #36415 [verbose] > │ #endif │
00:06:50 #36416 [verbose] > │ #if FABLE_COMPILER_RUST && CONTRACT │
00:06:50 #36417 [verbose] > │ let v37 : Async<unit> = null |> unbox<Async<unit>> │
00:06:50 #36418 [verbose] > │ v37 │
00:06:50 #36419 [verbose] > │ #endif │
00:06:50 #36420 [verbose] > │ #if !FABLE_COMPILER && !FABLE_COMPILER_RUST && │
00:06:50 #36421 [verbose] > │ !FABLE_COMPILER_TYPESCRIPT && !WASM && !CONTRACT │
00:06:50 #36422 [verbose] > │ let v38 : (int32 -> Async<unit>) = Async.Sleep │
00:06:50 #36423 [verbose] > │ let v39 : Async<unit> = v38 10 │
00:06:50 #36424 [verbose] > │ v39 │
00:06:50 #36425 [verbose] > │ #endif │
00:06:50 #36426 [verbose] > │ #if FABLE_COMPILER_TYPESCRIPT │
00:06:50 #36427 [verbose] > │ let v40 : Async<unit> = null |> unbox<Async<unit>> │
00:06:50 #36428 [verbose] > │ v40 │
00:06:50 #36429 [verbose] > │ #endif │
00:06:50 #36430 [verbose] > │ #if FABLE_COMPILER_PYTHON || FABLE_COMPILER_PHP || FABLE_COMPILER_DART │
00:06:50 #36431 [verbose] > │ let v41 : Async<unit> = Unchecked.defaultof<Async<unit>> │
00:06:50 #36432 [verbose] > │ v41 │
00:06:50 #36433 [verbose] > │ #endif │
00:06:50 #36434 [verbose] > │ |> fun x -> _v34 <- Some x │
00:06:50 #36435 [verbose] > │ let v42 : Async<unit> = _v34.Value │
00:06:50 #36436 [verbose] > │ do! v42 │
00:06:50 #36437 [verbose] > │ let v43 : int64 = v1 + 1L │
00:06:50 #36438 [verbose] > │ let v44 : Async<int64> = method13(v0, v43) │
00:06:50 #36439 [verbose] > │ return! v44 │
00:06:50 #36440 [verbose] > │ (* │
00:06:50 #36441 [verbose] > │ let v45 : int64 = *) │
00:06:50 #36442 [verbose] > │ } │
00:06:50 #36443 [verbose] > │ |> fun x -> _v6 <- Some x │
00:06:50 #36444 [verbose] > │ let v46 : Async<int64> = _v6 |> Option.get │
00:06:50 #36445 [verbose] > │ v46 │
00:06:50 #36446 [verbose] > │ #endif │
00:06:50 #36447 [verbose] > │ #if FABLE_COMPILER_TYPESCRIPT │
00:06:50 #36448 [verbose] > │ let v47 : Async<int64> = null |> unbox<Async<int64>> │
00:06:50 #36449 [verbose] > │ v47 │
00:06:50 #36450 [verbose] > │ #endif │
00:06:50 #36451 [verbose] > │ #if FABLE_COMPILER_PYTHON || FABLE_COMPILER_PHP || FABLE_COMPILER_DART │
00:06:50 #36452 [verbose] > │ let v48 : Async<int64> = Unchecked.defaultof<Async<int64>> │
00:06:50 #36453 [verbose] > │ v48 │
00:06:50 #36454 [verbose] > │ #endif │
00:06:50 #36455 [verbose] > │ |> fun x -> _v2 <- Some x │
00:06:50 #36456 [verbose] > │ let v49 : Async<int64> = _v2.Value │
00:06:50 #36457 [verbose] > │ v49 │
00:06:50 #36458 [verbose] > │ and closure20 () () : string = │
00:06:50 #36459 [verbose] > │ let v0 : string = "6" │
00:06:50 #36460 [verbose] > │ v0 │
00:06:50 #36461 [verbose] > │ and closure21 () () : string = │
00:06:50 #36462 [verbose] > │ let v0 : string = "7" │
00:06:50 #36463 [verbose] > │ v0 │
00:06:50 #36464 [verbose] > │ and closure22 () () : string = │
00:06:50 #36465 [verbose] > │ let v0 : string = "8" │
00:06:50 #36466 [verbose] > │ v0 │
00:06:50 #36467 [verbose] > │ and closure23 () struct (v0 : int64, v1 : int64, v2 : string) : US4 = │
00:06:50 #36468 [verbose] > │ US4_0(v0, v1, v2) │
00:06:50 #36469 [verbose] > │ and closure24 () (v0 : exn) : US4 = │
00:06:50 #36470 [verbose] > │ US4_1(v0) │
00:06:50 #36471 [verbose] > │ and closure25 () () : string = │
00:06:50 #36472 [verbose] > │ let v0 : string = "run_with_timeout_async" │
00:06:50 #36473 [verbose] > │ v0 │
00:06:50 #36474 [verbose] > │ and closure26 () () : string = │
00:06:50 #36475 [verbose] > │ let v0 : (unit -> string) = closure2() │
00:06:50 #36476 [verbose] > │ let v1 : string = $"timeout: {3000} / {v0 ()}" │
00:06:50 #36477 [verbose] > │ v1 │
00:06:50 #36478 [verbose] > │ and closure27 (v0 : string) () : string = │
00:06:50 #36479 [verbose] > │ let v1 : string = $"run_with_timeout_async** / ex: {v0}" │
00:06:50 #36480 [verbose] > │ v1 │
00:06:50 #36481 [verbose] > │ and method15 (v0 : bool) : bool = │
00:06:50 #36482 [verbose] > │ v0 │
00:06:50 #36483 [verbose] > │ and method16 () : string = │
00:06:50 #36484 [verbose] > │ let v0 : string = "0" │
00:06:50 #36485 [verbose] > │ v0 │
00:06:50 #36486 [verbose] > │ and method0 () : unit = │
00:06:50 #36487 [verbose] > │ let v0 : struct (string * System.IDisposable) option = None │
00:06:50 #36488 [verbose] > │ let mutable _v0 = v0 │
00:06:50 #36489 [verbose] > │ #if FABLE_COMPILER_RUST && !WASM && !CONTRACT │
00:06:50 #36490 [verbose] > │ let struct (v1 : string, v2 : System.IDisposable) = null |> unbox<struct │
00:06:50 #36491 [verbose] > │ (string * System.IDisposable)> │
00:06:50 #36492 [verbose] > │ struct (v1, v2) │
00:06:50 #36493 [verbose] > │ #endif │
00:06:50 #36494 [verbose] > │ #if FABLE_COMPILER_RUST && WASM │
00:06:50 #36495 [verbose] > │ let struct (v3 : string, v4 : System.IDisposable) = null |> unbox<struct │
00:06:50 #36496 [verbose] > │ (string * System.IDisposable)> │
00:06:50 #36497 [verbose] > │ struct (v3, v4) │
00:06:50 #36498 [verbose] > │ #endif │
00:06:50 #36499 [verbose] > │ #if FABLE_COMPILER_RUST && CONTRACT │
00:06:50 #36500 [verbose] > │ let struct (v5 : string, v6 : System.IDisposable) = null |> unbox<struct │
00:06:50 #36501 [verbose] > │ (string * System.IDisposable)> │
00:06:50 #36502 [verbose] > │ struct (v5, v6) │
00:06:50 #36503 [verbose] > │ #endif │
00:06:50 #36504 [verbose] > │ #if !FABLE_COMPILER && !FABLE_COMPILER_RUST && │
00:06:50 #36505 [verbose] > │ !FABLE_COMPILER_TYPESCRIPT && !WASM && !CONTRACT │
00:06:50 #36506 [verbose] > │ let v7 : string option = None │
00:06:50 #36507 [verbose] > │ let mutable _v7 = v7 │
00:06:50 #36508 [verbose] > │ #if FABLE_COMPILER_RUST && !WASM && !CONTRACT │
00:06:50 #36509 [verbose] > │ let v8 : string = null |> unbox<string> │
00:06:50 #36510 [verbose] > │ v8 │
00:06:50 #36511 [verbose] > │ #endif │
00:06:50 #36512 [verbose] > │ #if FABLE_COMPILER_RUST && WASM │
00:06:50 #36513 [verbose] > │ let v9 : string = null |> unbox<string> │
00:06:50 #36514 [verbose] > │ v9 │
00:06:50 #36515 [verbose] > │ #endif │
00:06:50 #36516 [verbose] > │ #if FABLE_COMPILER_RUST && CONTRACT │
00:06:50 #36517 [verbose] > │ let v10 : string = null |> unbox<string> │
00:06:50 #36518 [verbose] > │ v10 │
00:06:50 #36519 [verbose] > │ #endif │
00:06:50 #36520 [verbose] > │ #if !FABLE_COMPILER && !FABLE_COMPILER_RUST && │
00:06:50 #36521 [verbose] > │ !FABLE_COMPILER_TYPESCRIPT && !WASM && !CONTRACT │
00:06:50 #36522 [verbose] > │ let v11 : (unit -> string) = System.IO.Path.GetTempPath │
00:06:50 #36523 [verbose] > │ let v12 : string = v11 () │
00:06:50 #36524 [verbose] > │ let v13 : (unit -> string) = closure0() │
00:06:50 #36525 [verbose] > │ let v14 : string = $"!{v13 ()}" │
00:06:50 #36526 [verbose] > │ let v15 : string option = None │
00:06:50 #36527 [verbose] > │ let mutable _v15 = v15 │
00:06:50 #36528 [verbose] > │ #if FABLE_COMPILER_RUST && !WASM && !CONTRACT │
00:06:50 #36529 [verbose] > │ let v16 : string = method1(v12) │
00:06:50 #36530 [verbose] > │ let v17 : string = "fable_library_rust::String_::LrcStr::as_str(&$0)" │
00:06:50 #36531 [verbose] > │ let v18 : Ref<Str> = Fable.Core.RustInterop.emitRustExpr v16 v17 │
00:06:50 #36532 [verbose] > │ let v19 : string = "String::from($0)" │
00:06:50 #36533 [verbose] > │ let v20 : std_string_String = Fable.Core.RustInterop.emitRustExpr v18 │
00:06:50 #36534 [verbose] > │ v19 │
00:06:50 #36535 [verbose] > │ let v21 : string = "std::path::PathBuf::from($0)" │
00:06:50 #36536 [verbose] > │ let v22 : std_path_PathBuf = Fable.Core.RustInterop.emitRustExpr v20 v21 │
00:06:50 #36537 [verbose] > │ let v23 : string = method1(v14) │
00:06:50 #36538 [verbose] > │ let v24 : string = "fable_library_rust::String_::LrcStr::as_str(&$0)" │
00:06:50 #36539 [verbose] > │ let v25 : Ref<Str> = Fable.Core.RustInterop.emitRustExpr v23 v24 │
00:06:50 #36540 [verbose] > │ let v26 : string = "String::from($0)" │
00:06:50 #36541 [verbose] > │ let v27 : std_string_String = Fable.Core.RustInterop.emitRustExpr v25 │
00:06:50 #36542 [verbose] > │ v26 │
00:06:50 #36543 [verbose] > │ let v28 : string = "$0.join($1)" │
00:06:50 #36544 [verbose] > │ let v29 : std_path_PathBuf = Fable.Core.RustInterop.emitRustExpr struct │
00:06:50 #36545 [verbose] > │ (v22, v27) v28 │
00:06:50 #36546 [verbose] > │ let v30 : string = "$0.display().to_string()" │
00:06:50 #36547 [verbose] > │ let v31 : std_string_String = Fable.Core.RustInterop.emitRustExpr v29 │
00:06:50 #36548 [verbose] > │ v30 │
00:06:50 #36549 [verbose] > │ let v32 : string = "fable_library_rust::String_::fromString($0)" │
00:06:50 #36550 [verbose] > │ let v33 : string = Fable.Core.RustInterop.emitRustExpr v31 v32 │
00:06:50 #36551 [verbose] > │ v33 │
00:06:50 #36552 [verbose] > │ #endif │
00:06:50 #36553 [verbose] > │ #if FABLE_COMPILER_RUST && WASM │
00:06:50 #36554 [verbose] > │ let v34 : string = null |> unbox<string> │
00:06:50 #36555 [verbose] > │ v34 │
00:06:50 #36556 [verbose] > │ #endif │
00:06:50 #36557 [verbose] > │ #if FABLE_COMPILER_RUST && CONTRACT │
00:06:50 #36558 [verbose] > │ let v35 : string = null |> unbox<string> │
00:06:50 #36559 [verbose] > │ v35 │
00:06:50 #36560 [verbose] > │ #endif │
00:06:50 #36561 [verbose] > │ #if !FABLE_COMPILER && !FABLE_COMPILER_RUST && │
00:06:50 #36562 [verbose] > │ !FABLE_COMPILER_TYPESCRIPT && !WASM && !CONTRACT │
00:06:50 #36563 [verbose] > │ let v36 : string = System.IO.Path.Combine (v12, v14) │
00:06:50 #36564 [verbose] > │ v36 │
00:06:50 #36565 [verbose] > │ #endif │
00:06:50 #36566 [verbose] > │ #if FABLE_COMPILER_TYPESCRIPT │
00:06:50 #36567 [verbose] > │ let v37 : string = "path" │
00:06:50 #36568 [verbose] > │ let v38 : IPathJoin = Fable.Core.JsInterop.importAll v37 │
00:06:50 #36569 [verbose] > │ let v39 : string = "v38.join($0, $1)" │
00:06:50 #36570 [verbose] > │ let v40 : string = Fable.Core.JsInterop.emitJsExpr struct (v12, v14) v39 │
00:06:50 #36571 [verbose] > │ v40 │
00:06:50 #36572 [verbose] > │ #endif │
00:06:50 #36573 [verbose] > │ #if FABLE_COMPILER_PYTHON || FABLE_COMPILER_PHP || FABLE_COMPILER_DART │
00:06:50 #36574 [verbose] > │ let v41 : string = Unchecked.defaultof<string> │
00:06:50 #36575 [verbose] > │ v41 │
00:06:50 #36576 [verbose] > │ #endif │
00:06:50 #36577 [verbose] > │ |> fun x -> _v15 <- Some x │
00:06:50 #36578 [verbose] > │ let v42 : string = _v15.Value │
00:06:50 #36579 [verbose] > │ let v43 : System.DateTime = System.DateTime.Now │
00:06:50 #36580 [verbose] > │ let v44 : System.Guid = System.Guid.NewGuid () │
00:06:50 #36581 [verbose] > │ let v45 : (System.Guid -> string) = _.ToString() │
00:06:50 #36582 [verbose] > │ let v46 : string = v45 v44 │
00:06:50 #36583 [verbose] > │ let v47 : string = v43.ToString "yyyyMMdd-HHmm-ssff-ffff-f" │
00:06:50 #36584 [verbose] > │ let v48 : System.Guid = System.Guid $"{v47}{v46.[v47.Length..]}" │
00:06:50 #36585 [verbose] > │ let v49 : (System.Guid -> string) = _.ToString() │
00:06:50 #36586 [verbose] > │ let v50 : string = v49 v48 │
00:06:50 #36587 [verbose] > │ let v51 : string option = None │
00:06:50 #36588 [verbose] > │ let mutable _v51 = v51 │
00:06:50 #36589 [verbose] > │ #if FABLE_COMPILER_RUST && !WASM && !CONTRACT │
00:06:50 #36590 [verbose] > │ let v52 : string = method1(v42) │
00:06:50 #36591 [verbose] > │ let v53 : string = "fable_library_rust::String_::LrcStr::as_str(&$0)" │
00:06:50 #36592 [verbose] > │ let v54 : Ref<Str> = Fable.Core.RustInterop.emitRustExpr v52 v53 │
00:06:50 #36593 [verbose] > │ let v55 : string = "String::from($0)" │
00:06:50 #36594 [verbose] > │ let v56 : std_string_String = Fable.Core.RustInterop.emitRustExpr v54 │
00:06:50 #36595 [verbose] > │ v55 │
00:06:50 #36596 [verbose] > │ let v57 : string = "std::path::PathBuf::from($0)" │
00:06:50 #36597 [verbose] > │ let v58 : std_path_PathBuf = Fable.Core.RustInterop.emitRustExpr v56 v57 │
00:06:50 #36598 [verbose] > │ let v59 : string = method1(v50) │
00:06:50 #36599 [verbose] > │ let v60 : string = "fable_library_rust::String_::LrcStr::as_str(&$0)" │
00:06:50 #36600 [verbose] > │ let v61 : Ref<Str> = Fable.Core.RustInterop.emitRustExpr v59 v60 │
00:06:50 #36601 [verbose] > │ let v62 : string = "String::from($0)" │
00:06:50 #36602 [verbose] > │ let v63 : std_string_String = Fable.Core.RustInterop.emitRustExpr v61 │
00:06:50 #36603 [verbose] > │ v62 │
00:06:50 #36604 [verbose] > │ let v64 : string = "$0.join($1)" │
00:06:50 #36605 [verbose] > │ let v65 : std_path_PathBuf = Fable.Core.RustInterop.emitRustExpr struct │
00:06:50 #36606 [verbose] > │ (v58, v63) v64 │
00:06:50 #36607 [verbose] > │ let v66 : string = "$0.display().to_string()" │
00:06:50 #36608 [verbose] > │ let v67 : std_string_String = Fable.Core.RustInterop.emitRustExpr v65 │
00:06:50 #36609 [verbose] > │ v66 │
00:06:50 #36610 [verbose] > │ let v68 : string = "fable_library_rust::String_::fromString($0)" │
00:06:50 #36611 [verbose] > │ let v69 : string = Fable.Core.RustInterop.emitRustExpr v67 v68 │
00:06:50 #36612 [verbose] > │ v69 │
00:06:50 #36613 [verbose] > │ #endif │
00:06:50 #36614 [verbose] > │ #if FABLE_COMPILER_RUST && WASM │
00:06:50 #36615 [verbose] > │ let v70 : string = null |> unbox<string> │
00:06:50 #36616 [verbose] > │ v70 │
00:06:50 #36617 [verbose] > │ #endif │
00:06:50 #36618 [verbose] > │ #if FABLE_COMPILER_RUST && CONTRACT │
00:06:50 #36619 [verbose] > │ let v71 : string = null |> unbox<string> │
00:06:50 #36620 [verbose] > │ v71 │
00:06:50 #36621 [verbose] > │ #endif │
00:06:50 #36622 [verbose] > │ #if !FABLE_COMPILER && !FABLE_COMPILER_RUST && │
00:06:50 #36623 [verbose] > │ !FABLE_COMPILER_TYPESCRIPT && !WASM && !CONTRACT │
00:06:50 #36624 [verbose] > │ let v72 : string = System.IO.Path.Combine (v42, v50) │
00:06:50 #36625 [verbose] > │ v72 │
00:06:50 #36626 [verbose] > │ #endif │
00:06:50 #36627 [verbose] > │ #if FABLE_COMPILER_TYPESCRIPT │
00:06:50 #36628 [verbose] > │ let v73 : IPathJoin = Fable.Core.JsInterop.importAll v37 │
00:06:50 #36629 [verbose] > │ let v74 : string = "v73.join($0, $1)" │
00:06:50 #36630 [verbose] > │ let v75 : string = Fable.Core.JsInterop.emitJsExpr struct (v42, v50) v74 │
00:06:50 #36631 [verbose] > │ v75 │
00:06:50 #36632 [verbose] > │ #endif │
00:06:50 #36633 [verbose] > │ #if FABLE_COMPILER_PYTHON || FABLE_COMPILER_PHP || FABLE_COMPILER_DART │
00:06:50 #36634 [verbose] > │ let v76 : string = Unchecked.defaultof<string> │
00:06:50 #36635 [verbose] > │ v76 │
00:06:50 #36636 [verbose] > │ #endif │
00:06:50 #36637 [verbose] > │ |> fun x -> _v51 <- Some x │
00:06:50 #36638 [verbose] > │ let v77 : string = _v51.Value │
00:06:50 #36639 [verbose] > │ v77 │
00:06:50 #36640 [verbose] > │ #endif │
00:06:50 #36641 [verbose] > │ #if FABLE_COMPILER_TYPESCRIPT │
00:06:50 #36642 [verbose] > │ let v78 : string = null |> unbox<string> │
00:06:50 #36643 [verbose] > │ v78 │
00:06:50 #36644 [verbose] > │ #endif │
00:06:50 #36645 [verbose] > │ #if FABLE_COMPILER_PYTHON || FABLE_COMPILER_PHP || FABLE_COMPILER_DART │
00:06:50 #36646 [verbose] > │ let v79 : string = Unchecked.defaultof<string> │
00:06:50 #36647 [verbose] > │ v79 │
00:06:50 #36648 [verbose] > │ #endif │
00:06:50 #36649 [verbose] > │ |> fun x -> _v7 <- Some x │
00:06:50 #36650 [verbose] > │ let v80 : string = _v7.Value │
00:06:50 #36651 [verbose] > │ let v81 : System.IO.DirectoryInfo option = None │
00:06:50 #36652 [verbose] > │ let mutable _v81 = v81 │
00:06:50 #36653 [verbose] > │ #if FABLE_COMPILER_RUST && !WASM && !CONTRACT │
00:06:50 #36654 [verbose] > │ let v82 : System.IO.DirectoryInfo = null |> │
00:06:50 #36655 [verbose] > │ unbox<System.IO.DirectoryInfo> │
00:06:50 #36656 [verbose] > │ v82 │
00:06:50 #36657 [verbose] > │ #endif │
00:06:50 #36658 [verbose] > │ #if FABLE_COMPILER_RUST && WASM │
00:06:50 #36659 [verbose] > │ let v83 : System.IO.DirectoryInfo = null |> │
00:06:50 #36660 [verbose] > │ unbox<System.IO.DirectoryInfo> │
00:06:50 #36661 [verbose] > │ v83 │
00:06:50 #36662 [verbose] > │ #endif │
00:06:50 #36663 [verbose] > │ #if FABLE_COMPILER_RUST && CONTRACT │
00:06:50 #36664 [verbose] > │ let v84 : System.IO.DirectoryInfo = null |> │
00:06:50 #36665 [verbose] > │ unbox<System.IO.DirectoryInfo> │
00:06:50 #36666 [verbose] > │ v84 │
00:06:50 #36667 [verbose] > │ #endif │
00:06:50 #36668 [verbose] > │ #if !FABLE_COMPILER && !FABLE_COMPILER_RUST && │
00:06:50 #36669 [verbose] > │ !FABLE_COMPILER_TYPESCRIPT && !WASM && !CONTRACT │
00:06:50 #36670 [verbose] > │ let v85 : (string -> System.IO.DirectoryInfo) = │
00:06:50 #36671 [verbose] > │ System.IO.Directory.CreateDirectory │
00:06:50 #36672 [verbose] > │ let v86 : System.IO.DirectoryInfo = v85 v80 │
00:06:50 #36673 [verbose] > │ v86 │
00:06:50 #36674 [verbose] > │ #endif │
00:06:50 #36675 [verbose] > │ #if FABLE_COMPILER_TYPESCRIPT │
00:06:50 #36676 [verbose] > │ let v87 : System.IO.DirectoryInfo = null |> │
00:06:50 #36677 [verbose] > │ unbox<System.IO.DirectoryInfo> │
00:06:50 #36678 [verbose] > │ v87 │
00:06:50 #36679 [verbose] > │ #endif │
00:06:50 #36680 [verbose] > │ #if FABLE_COMPILER_PYTHON || FABLE_COMPILER_PHP || FABLE_COMPILER_DART │
00:06:50 #36681 [verbose] > │ let v88 : System.IO.DirectoryInfo = │
00:06:50 #36682 [verbose] > │ Unchecked.defaultof<System.IO.DirectoryInfo> │
00:06:50 #36683 [verbose] > │ v88 │
00:06:50 #36684 [verbose] > │ #endif │
00:06:50 #36685 [verbose] > │ |> fun x -> _v81 <- Some x │
00:06:50 #36686 [verbose] > │ let v89 : System.IO.DirectoryInfo = _v81.Value │
00:06:50 #36687 [verbose] > │ let v90 : bool option = None │
00:06:50 #36688 [verbose] > │ let mutable _v90 = v90 │
00:06:50 #36689 [verbose] > │ #if FABLE_COMPILER_RUST && !WASM && !CONTRACT │
00:06:50 #36690 [verbose] > │ let v91 : bool = null |> unbox<bool> │
00:06:50 #36691 [verbose] > │ v91 │
00:06:50 #36692 [verbose] > │ #endif │
00:06:50 #36693 [verbose] > │ #if FABLE_COMPILER_RUST && WASM │
00:06:50 #36694 [verbose] > │ let v92 : bool = null |> unbox<bool> │
00:06:50 #36695 [verbose] > │ v92 │
00:06:50 #36696 [verbose] > │ #endif │
00:06:50 #36697 [verbose] > │ #if FABLE_COMPILER_RUST && CONTRACT │
00:06:50 #36698 [verbose] > │ let v93 : bool = null |> unbox<bool> │
00:06:50 #36699 [verbose] > │ v93 │
00:06:50 #36700 [verbose] > │ #endif │
00:06:50 #36701 [verbose] > │ #if !FABLE_COMPILER && !FABLE_COMPILER_RUST && │
00:06:50 #36702 [verbose] > │ !FABLE_COMPILER_TYPESCRIPT && !WASM && !CONTRACT │
00:06:50 #36703 [verbose] > │ let v94 : bool = v89.Exists │
00:06:50 #36704 [verbose] > │ v94 │
00:06:50 #36705 [verbose] > │ #endif │
00:06:50 #36706 [verbose] > │ #if FABLE_COMPILER_TYPESCRIPT │
00:06:50 #36707 [verbose] > │ let v95 : bool = null |> unbox<bool> │
00:06:50 #36708 [verbose] > │ v95 │
00:06:50 #36709 [verbose] > │ #endif │
00:06:50 #36710 [verbose] > │ #if FABLE_COMPILER_PYTHON || FABLE_COMPILER_PHP || FABLE_COMPILER_DART │
00:06:50 #36711 [verbose] > │ let v96 : bool = Unchecked.defaultof<bool> │
00:06:50 #36712 [verbose] > │ v96 │
00:06:50 #36713 [verbose] > │ #endif │
00:06:50 #36714 [verbose] > │ |> fun x -> _v90 <- Some x │
00:06:50 #36715 [verbose] > │ let v97 : bool = _v90.Value │
00:06:50 #36716 [verbose] > │ let v98 : bool = v97 = false │
00:06:50 #36717 [verbose] > │ if v98 then │
00:06:50 #36718 [verbose] > │ let v99 : System.DateTime option = None │
00:06:50 #36719 [verbose] > │ let mutable _v99 = v99 │
00:06:50 #36720 [verbose] > │ #if FABLE_COMPILER_RUST && !WASM && !CONTRACT │
00:06:50 #36721 [verbose] > │ let v100 : System.DateTime = null |> unbox<System.DateTime> │
00:06:50 #36722 [verbose] > │ v100 │
00:06:50 #36723 [verbose] > │ #endif │
00:06:50 #36724 [verbose] > │ #if FABLE_COMPILER_RUST && WASM │
00:06:50 #36725 [verbose] > │ let v101 : System.DateTime = null |> unbox<System.DateTime> │
00:06:50 #36726 [verbose] > │ v101 │
00:06:50 #36727 [verbose] > │ #endif │
00:06:50 #36728 [verbose] > │ #if FABLE_COMPILER_RUST && CONTRACT │
00:06:50 #36729 [verbose] > │ let v102 : System.DateTime = null |> unbox<System.DateTime> │
00:06:50 #36730 [verbose] > │ v102 │
00:06:50 #36731 [verbose] > │ #endif │
00:06:50 #36732 [verbose] > │ #if !FABLE_COMPILER && !FABLE_COMPILER_RUST && │
00:06:50 #36733 [verbose] > │ !FABLE_COMPILER_TYPESCRIPT && !WASM && !CONTRACT │
00:06:50 #36734 [verbose] > │ let v103 : System.DateTime = v89.CreationTime │
00:06:50 #36735 [verbose] > │ v103 │
00:06:50 #36736 [verbose] > │ #endif │
00:06:50 #36737 [verbose] > │ #if FABLE_COMPILER_TYPESCRIPT │
00:06:50 #36738 [verbose] > │ let v104 : System.DateTime = null |> unbox<System.DateTime> │
00:06:50 #36739 [verbose] > │ v104 │
00:06:50 #36740 [verbose] > │ #endif │
00:06:50 #36741 [verbose] > │ #if FABLE_COMPILER_PYTHON || FABLE_COMPILER_PHP || │
00:06:50 #36742 [verbose] > │ FABLE_COMPILER_DART │
00:06:50 #36743 [verbose] > │ let v105 : System.DateTime = Unchecked.defaultof<System.DateTime> │
00:06:50 #36744 [verbose] > │ v105 │
00:06:50 #36745 [verbose] > │ #endif │
00:06:50 #36746 [verbose] > │ |> fun x -> _v99 <- Some x │
00:06:50 #36747 [verbose] > │ let v106 : System.DateTime = _v99.Value │
00:06:50 #36748 [verbose] > │ let v107 : obj = {| Exists = v97; CreationTime = v106 |} │
00:06:50 #36749 [verbose] > │ let v108 : string = $"%A{v107}" │
00:06:50 #36750 [verbose] > │ let v109 : (unit -> string) = closure1(v80, v108) │
00:06:50 #36751 [verbose] > │ let v110 : string = $"create_temp_directory / {v109 ()}" │
00:06:50 #36752 [verbose] > │ System.Console.WriteLine v110 │
00:06:50 #36753 [verbose] > │ () │
00:06:50 #36754 [verbose] > │ let v111 : System.IDisposable option = None │
00:06:50 #36755 [verbose] > │ let mutable _v111 = v111 │
00:06:50 #36756 [verbose] > │ #if FABLE_COMPILER_RUST && !WASM && !CONTRACT │
00:06:50 #36757 [verbose] > │ let v112 : System.IDisposable = null |> unbox<System.IDisposable> │
00:06:50 #36758 [verbose] > │ v112 │
00:06:50 #36759 [verbose] > │ #endif │
00:06:50 #36760 [verbose] > │ #if FABLE_COMPILER_RUST && WASM │
00:06:50 #36761 [verbose] > │ let v113 : System.IDisposable = null |> unbox<System.IDisposable> │
00:06:50 #36762 [verbose] > │ v113 │
00:06:50 #36763 [verbose] > │ #endif │
00:06:50 #36764 [verbose] > │ #if FABLE_COMPILER_RUST && CONTRACT │
00:06:50 #36765 [verbose] > │ let v114 : System.IDisposable = null |> unbox<System.IDisposable> │
00:06:50 #36766 [verbose] > │ v114 │
00:06:50 #36767 [verbose] > │ #endif │
00:06:50 #36768 [verbose] > │ #if !FABLE_COMPILER && !FABLE_COMPILER_RUST && │
00:06:50 #36769 [verbose] > │ !FABLE_COMPILER_TYPESCRIPT && !WASM && !CONTRACT │
00:06:50 #36770 [verbose] > │ let v115 : (unit -> unit) = closure3(v80) │
00:06:50 #36771 [verbose] > │ let v116 : System.IDisposable = { new System.IDisposable with member │
00:06:50 #36772 [verbose] > │ _.Dispose () = v115 () } │
00:06:50 #36773 [verbose] > │ v116 │
00:06:50 #36774 [verbose] > │ #endif │
00:06:50 #36775 [verbose] > │ #if FABLE_COMPILER_TYPESCRIPT │
00:06:50 #36776 [verbose] > │ let v117 : System.IDisposable = null |> unbox<System.IDisposable> │
00:06:50 #36777 [verbose] > │ v117 │
00:06:50 #36778 [verbose] > │ #endif │
00:06:50 #36779 [verbose] > │ #if FABLE_COMPILER_PYTHON || FABLE_COMPILER_PHP || FABLE_COMPILER_DART │
00:06:50 #36780 [verbose] > │ let v118 : System.IDisposable = Unchecked.defaultof<System.IDisposable> │
00:06:50 #36781 [verbose] > │ v118 │
00:06:50 #36782 [verbose] > │ #endif │
00:06:50 #36783 [verbose] > │ |> fun x -> _v111 <- Some x │
00:06:50 #36784 [verbose] > │ let v119 : System.IDisposable = _v111.Value │
00:06:50 #36785 [verbose] > │ struct (v80, v119) │
00:06:50 #36786 [verbose] > │ #endif │
00:06:50 #36787 [verbose] > │ #if FABLE_COMPILER_TYPESCRIPT │
00:06:50 #36788 [verbose] > │ let struct (v120 : string, v121 : System.IDisposable) = null |> │
00:06:50 #36789 [verbose] > │ unbox<struct (string * System.IDisposable)> │
00:06:50 #36790 [verbose] > │ struct (v120, v121) │
00:06:50 #36791 [verbose] > │ #endif │
00:06:50 #36792 [verbose] > │ #if FABLE_COMPILER_PYTHON || FABLE_COMPILER_PHP || FABLE_COMPILER_DART │
00:06:50 #36793 [verbose] > │ let struct (v122 : string, v123 : System.IDisposable) = │
00:06:50 #36794 [verbose] > │ Unchecked.defaultof<struct (string * System.IDisposable)> │
00:06:50 #36795 [verbose] > │ struct (v122, v123) │
00:06:50 #36796 [verbose] > │ #endif │
00:06:50 #36797 [verbose] > │ |> fun x -> _v0 <- Some x │
00:06:50 #36798 [verbose] > │ let struct (v124 : string, v125 : System.IDisposable) = _v0.Value │
00:06:50 #36799 [verbose] > │ use v125 = v125 │
00:06:50 #36800 [verbose] > │ let v126 : System.IDisposable = v125 │
00:06:50 #36801 [verbose] > │ let v127 : string option = None │
00:06:50 #36802 [verbose] > │ let mutable _v127 = v127 │
00:06:50 #36803 [verbose] > │ #if FABLE_COMPILER_RUST && !WASM && !CONTRACT │
00:06:50 #36804 [verbose] > │ let v128 : string = method1(v124) │
00:06:50 #36805 [verbose] > │ let v129 : string = "fable_library_rust::String_::LrcStr::as_str(&$0)" │
00:06:50 #36806 [verbose] > │ let v130 : Ref<Str> = Fable.Core.RustInterop.emitRustExpr v128 v129 │
00:06:50 #36807 [verbose] > │ let v131 : string = "String::from($0)" │
00:06:50 #36808 [verbose] > │ let v132 : std_string_String = Fable.Core.RustInterop.emitRustExpr v130 │
00:06:50 #36809 [verbose] > │ v131 │
00:06:50 #36810 [verbose] > │ let v133 : string = "std::path::PathBuf::from($0)" │
00:06:50 #36811 [verbose] > │ let v134 : std_path_PathBuf = Fable.Core.RustInterop.emitRustExpr v132 │
00:06:50 #36812 [verbose] > │ v133 │
00:06:50 #36813 [verbose] > │ let v135 : string = method4() │
00:06:50 #36814 [verbose] > │ let v136 : string = "fable_library_rust::String_::LrcStr::as_str(&$0)" │
00:06:50 #36815 [verbose] > │ let v137 : Ref<Str> = Fable.Core.RustInterop.emitRustExpr v135 v136 │
00:06:50 #36816 [verbose] > │ let v138 : string = "String::from($0)" │
00:06:50 #36817 [verbose] > │ let v139 : std_string_String = Fable.Core.RustInterop.emitRustExpr v137 │
00:06:50 #36818 [verbose] > │ v138 │
00:06:50 #36819 [verbose] > │ let v140 : string = "$0.join($1)" │
00:06:50 #36820 [verbose] > │ let v141 : std_path_PathBuf = Fable.Core.RustInterop.emitRustExpr struct │
00:06:50 #36821 [verbose] > │ (v134, v139) v140 │
00:06:50 #36822 [verbose] > │ let v142 : string = "$0.display().to_string()" │
00:06:50 #36823 [verbose] > │ let v143 : std_string_String = Fable.Core.RustInterop.emitRustExpr v141 │
00:06:50 #36824 [verbose] > │ v142 │
00:06:50 #36825 [verbose] > │ let v144 : string = "fable_library_rust::String_::fromString($0)" │
00:06:50 #36826 [verbose] > │ let v145 : string = Fable.Core.RustInterop.emitRustExpr v143 v144 │
00:06:50 #36827 [verbose] > │ v145 │
00:06:50 #36828 [verbose] > │ #endif │
00:06:50 #36829 [verbose] > │ #if FABLE_COMPILER_RUST && WASM │
00:06:50 #36830 [verbose] > │ let v146 : string = null |> unbox<string> │
00:06:50 #36831 [verbose] > │ v146 │
00:06:50 #36832 [verbose] > │ #endif │
00:06:50 #36833 [verbose] > │ #if FABLE_COMPILER_RUST && CONTRACT │
00:06:50 #36834 [verbose] > │ let v147 : string = null |> unbox<string> │
00:06:50 #36835 [verbose] > │ v147 │
00:06:50 #36836 [verbose] > │ #endif │
00:06:50 #36837 [verbose] > │ #if !FABLE_COMPILER && !FABLE_COMPILER_RUST && │
00:06:50 #36838 [verbose] > │ !FABLE_COMPILER_TYPESCRIPT && !WASM && !CONTRACT │
00:06:50 #36839 [verbose] > │ let v148 : string = "test.txt" │
00:06:50 #36840 [verbose] > │ let v149 : string = System.IO.Path.Combine (v124, v148) │
00:06:50 #36841 [verbose] > │ v149 │
00:06:50 #36842 [verbose] > │ #endif │
00:06:50 #36843 [verbose] > │ #if FABLE_COMPILER_TYPESCRIPT │
00:06:50 #36844 [verbose] > │ let v150 : IPathJoin = Fable.Core.JsInterop.importAll v37 │
00:06:50 #36845 [verbose] > │ let v151 : string = "v150.join($0, $1)" │
00:06:50 #36846 [verbose] > │ let v152 : string = Fable.Core.JsInterop.emitJsExpr struct (v124, v148) │
00:06:50 #36847 [verbose] > │ v151 │
00:06:50 #36848 [verbose] > │ v152 │
00:06:50 #36849 [verbose] > │ #endif │
00:06:50 #36850 [verbose] > │ #if FABLE_COMPILER_PYTHON || FABLE_COMPILER_PHP || FABLE_COMPILER_DART │
00:06:50 #36851 [verbose] > │ let v153 : string = Unchecked.defaultof<string> │
00:06:50 #36852 [verbose] > │ v153 │
00:06:50 #36853 [verbose] > │ #endif │
00:06:50 #36854 [verbose] > │ |> fun x -> _v127 <- Some x │
00:06:50 #36855 [verbose] > │ let v154 : string = _v127.Value │
00:06:50 #36856 [verbose] > │ let v155 : string option = None │
00:06:50 #36857 [verbose] > │ let mutable _v155 = v155 │
00:06:50 #36858 [verbose] > │ #if FABLE_COMPILER_RUST && !WASM && !CONTRACT │
00:06:50 #36859 [verbose] > │ let v156 : string = method1(v124) │
00:06:50 #36860 [verbose] > │ let v157 : string = "fable_library_rust::String_::LrcStr::as_str(&$0)" │
00:06:50 #36861 [verbose] > │ let v158 : Ref<Str> = Fable.Core.RustInterop.emitRustExpr v156 v157 │
00:06:50 #36862 [verbose] > │ let v159 : string = "String::from($0)" │
00:06:50 #36863 [verbose] > │ let v160 : std_string_String = Fable.Core.RustInterop.emitRustExpr v158 │
00:06:50 #36864 [verbose] > │ v159 │
00:06:50 #36865 [verbose] > │ let v161 : string = "std::path::PathBuf::from($0)" │
00:06:50 #36866 [verbose] > │ let v162 : std_path_PathBuf = Fable.Core.RustInterop.emitRustExpr v160 │
00:06:50 #36867 [verbose] > │ v161 │
00:06:50 #36868 [verbose] > │ let v163 : string = method5() │
00:06:50 #36869 [verbose] > │ let v164 : string = "fable_library_rust::String_::LrcStr::as_str(&$0)" │
00:06:50 #36870 [verbose] > │ let v165 : Ref<Str> = Fable.Core.RustInterop.emitRustExpr v163 v164 │
00:06:50 #36871 [verbose] > │ let v166 : string = "String::from($0)" │
00:06:50 #36872 [verbose] > │ let v167 : std_string_String = Fable.Core.RustInterop.emitRustExpr v165 │
00:06:50 #36873 [verbose] > │ v166 │
00:06:50 #36874 [verbose] > │ let v168 : string = "$0.join($1)" │
00:06:50 #36875 [verbose] > │ let v169 : std_path_PathBuf = Fable.Core.RustInterop.emitRustExpr struct │
00:06:50 #36876 [verbose] > │ (v162, v167) v168 │
00:06:50 #36877 [verbose] > │ let v170 : string = "$0.display().to_string()" │
00:06:50 #36878 [verbose] > │ let v171 : std_string_String = Fable.Core.RustInterop.emitRustExpr v169 │
00:06:50 #36879 [verbose] > │ v170 │
00:06:50 #36880 [verbose] > │ let v172 : string = "fable_library_rust::String_::fromString($0)" │
00:06:50 #36881 [verbose] > │ let v173 : string = Fable.Core.RustInterop.emitRustExpr v171 v172 │
00:06:50 #36882 [verbose] > │ v173 │
00:06:50 #36883 [verbose] > │ #endif │
00:06:50 #36884 [verbose] > │ #if FABLE_COMPILER_RUST && WASM │
00:06:50 #36885 [verbose] > │ let v174 : string = null |> unbox<string> │
00:06:50 #36886 [verbose] > │ v174 │
00:06:50 #36887 [verbose] > │ #endif │
00:06:50 #36888 [verbose] > │ #if FABLE_COMPILER_RUST && CONTRACT │
00:06:50 #36889 [verbose] > │ let v175 : string = null |> unbox<string> │
00:06:50 #36890 [verbose] > │ v175 │
00:06:50 #36891 [verbose] > │ #endif │
00:06:50 #36892 [verbose] > │ #if !FABLE_COMPILER && !FABLE_COMPILER_RUST && │
00:06:50 #36893 [verbose] > │ !FABLE_COMPILER_TYPESCRIPT && !WASM && !CONTRACT │
00:06:50 #36894 [verbose] > │ let v176 : string = "test2.txt" │
00:06:50 #36895 [verbose] > │ let v177 : string = System.IO.Path.Combine (v124, v176) │
00:06:50 #36896 [verbose] > │ v177 │
00:06:50 #36897 [verbose] > │ #endif │
00:06:50 #36898 [verbose] > │ #if FABLE_COMPILER_TYPESCRIPT │
00:06:50 #36899 [verbose] > │ let v178 : IPathJoin = Fable.Core.JsInterop.importAll v37 │
00:06:50 #36900 [verbose] > │ let v179 : string = "v178.join($0, $1)" │
00:06:50 #36901 [verbose] > │ let v180 : string = Fable.Core.JsInterop.emitJsExpr struct (v124, v176) │
00:06:50 #36902 [verbose] > │ v179 │
00:06:50 #36903 [verbose] > │ v180 │
00:06:50 #36904 [verbose] > │ #endif │
00:06:50 #36905 [verbose] > │ #if FABLE_COMPILER_PYTHON || FABLE_COMPILER_PHP || FABLE_COMPILER_DART │
00:06:50 #36906 [verbose] > │ let v181 : string = Unchecked.defaultof<string> │
00:06:50 #36907 [verbose] > │ v181 │
00:06:50 #36908 [verbose] > │ #endif │
00:06:50 #36909 [verbose] > │ |> fun x -> _v155 <- Some x │
00:06:50 #36910 [verbose] > │ let v182 : string = _v155.Value │
00:06:50 #36911 [verbose] > │ let v183 : Async<struct (int64 * int64 * string)> option = None │
00:06:50 #36912 [verbose] > │ let mutable _v183 = v183 │
00:06:50 #36913 [verbose] > │ #if FABLE_COMPILER_RUST && !WASM && !CONTRACT │
00:06:50 #36914 [verbose] > │ let v184 : Async<struct (int64 * int64 * string)> = null |> │
00:06:50 #36915 [verbose] > │ unbox<Async<struct (int64 * int64 * string)>> │
00:06:50 #36916 [verbose] > │ v184 │
00:06:50 #36917 [verbose] > │ #endif │
00:06:50 #36918 [verbose] > │ #if FABLE_COMPILER_RUST && WASM │
00:06:50 #36919 [verbose] > │ let v185 : Async<struct (int64 * int64 * string)> = null |> │
00:06:50 #36920 [verbose] > │ unbox<Async<struct (int64 * int64 * string)>> │
00:06:50 #36921 [verbose] > │ v185 │
00:06:50 #36922 [verbose] > │ #endif │
00:06:50 #36923 [verbose] > │ #if FABLE_COMPILER_RUST && CONTRACT │
00:06:50 #36924 [verbose] > │ let v186 : Async<struct (int64 * int64 * string)> = null |> │
00:06:50 #36925 [verbose] > │ unbox<Async<struct (int64 * int64 * string)>> │
00:06:50 #36926 [verbose] > │ v186 │
00:06:50 #36927 [verbose] > │ #endif │
00:06:50 #36928 [verbose] > │ #if !FABLE_COMPILER && !FABLE_COMPILER_RUST && │
00:06:50 #36929 [verbose] > │ !FABLE_COMPILER_TYPESCRIPT && !WASM && !CONTRACT │
00:06:50 #36930 [verbose] > │ let v187 : Async<struct (int64 * int64 * string)> option = None │
00:06:50 #36931 [verbose] > │ let mutable _v187 = v187 │
00:06:50 #36932 [verbose] > │ async { │
00:06:50 #36933 [verbose] > │ let v188 : US0 = US0_1 │
00:06:50 #36934 [verbose] > │ let v189 : (unit -> string) = closure6() │
00:06:50 #36935 [verbose] > │ let v190 : (unit -> string) = closure2() │
00:06:50 #36936 [verbose] > │ method6(v188, v189, v190) │
00:06:50 #36937 [verbose] > │ let v191 : Async<unit> option = None │
00:06:50 #36938 [verbose] > │ let mutable _v191 = v191 │
00:06:50 #36939 [verbose] > │ #if FABLE_COMPILER_RUST && !WASM && !CONTRACT │
00:06:50 #36940 [verbose] > │ let v192 : Async<unit> = null |> unbox<Async<unit>> │
00:06:50 #36941 [verbose] > │ v192 │
00:06:50 #36942 [verbose] > │ #endif │
00:06:50 #36943 [verbose] > │ #if FABLE_COMPILER_RUST && WASM │
00:06:50 #36944 [verbose] > │ let v193 : Async<unit> = null |> unbox<Async<unit>> │
00:06:50 #36945 [verbose] > │ v193 │
00:06:50 #36946 [verbose] > │ #endif │
00:06:50 #36947 [verbose] > │ #if FABLE_COMPILER_RUST && CONTRACT │
00:06:50 #36948 [verbose] > │ let v194 : Async<unit> = null |> unbox<Async<unit>> │
00:06:50 #36949 [verbose] > │ v194 │
00:06:50 #36950 [verbose] > │ #endif │
00:06:50 #36951 [verbose] > │ #if !FABLE_COMPILER && !FABLE_COMPILER_RUST && │
00:06:50 #36952 [verbose] > │ !FABLE_COMPILER_TYPESCRIPT && !WASM && !CONTRACT │
00:06:50 #36953 [verbose] > │ let v195 : string = "0" │
00:06:50 #36954 [verbose] > │ let v196 : System.Threading.Tasks.Task = │
00:06:50 #36955 [verbose] > │ System.IO.File.WriteAllTextAsync (v154, v195) │
00:06:50 #36956 [verbose] > │ let v197 : Async<unit> option = None │
00:06:50 #36957 [verbose] > │ let mutable _v197 = v197 │
00:06:50 #36958 [verbose] > │ #if FABLE_COMPILER_RUST && !WASM && !CONTRACT │
00:06:50 #36959 [verbose] > │ let v198 : Async<unit> = null |> unbox<Async<unit>> │
00:06:50 #36960 [verbose] > │ v198 │
00:06:50 #36961 [verbose] > │ #endif │
00:06:50 #36962 [verbose] > │ #if FABLE_COMPILER_RUST && WASM │
00:06:50 #36963 [verbose] > │ let v199 : Async<unit> = null |> unbox<Async<unit>> │
00:06:50 #36964 [verbose] > │ v199 │
00:06:50 #36965 [verbose] > │ #endif │
00:06:50 #36966 [verbose] > │ #if FABLE_COMPILER_RUST && CONTRACT │
00:06:50 #36967 [verbose] > │ let v200 : Async<unit> = null |> unbox<Async<unit>> │
00:06:50 #36968 [verbose] > │ v200 │
00:06:50 #36969 [verbose] > │ #endif │
00:06:50 #36970 [verbose] > │ #if !FABLE_COMPILER && !FABLE_COMPILER_RUST && │
00:06:50 #36971 [verbose] > │ !FABLE_COMPILER_TYPESCRIPT && !WASM && !CONTRACT │
00:06:50 #36972 [verbose] > │ let v201 : (System.Threading.Tasks.Task -> Async<unit>) = │
00:06:50 #36973 [verbose] > │ Async.AwaitTask │
00:06:50 #36974 [verbose] > │ let v202 : Async<unit> = v201 v196 │
00:06:50 #36975 [verbose] > │ v202 │
00:06:50 #36976 [verbose] > │ #endif │
00:06:50 #36977 [verbose] > │ #if FABLE_COMPILER_TYPESCRIPT │
00:06:50 #36978 [verbose] > │ let v203 : Async<unit> = null |> unbox<Async<unit>> │
00:06:50 #36979 [verbose] > │ v203 │
00:06:50 #36980 [verbose] > │ #endif │
00:06:50 #36981 [verbose] > │ #if FABLE_COMPILER_PYTHON || FABLE_COMPILER_PHP || FABLE_COMPILER_DART │
00:06:50 #36982 [verbose] > │ let v204 : Async<unit> = Unchecked.defaultof<Async<unit>> │
00:06:50 #36983 [verbose] > │ v204 │
00:06:50 #36984 [verbose] > │ #endif │
00:06:50 #36985 [verbose] > │ |> fun x -> _v197 <- Some x │
00:06:50 #36986 [verbose] > │ let v205 : Async<unit> = _v197.Value │
00:06:50 #36987 [verbose] > │ v205 │
00:06:50 #36988 [verbose] > │ #endif │
00:06:50 #36989 [verbose] > │ #if FABLE_COMPILER_TYPESCRIPT │
00:06:50 #36990 [verbose] > │ let v206 : Async<unit> = null |> unbox<Async<unit>> │
00:06:50 #36991 [verbose] > │ v206 │
00:06:50 #36992 [verbose] > │ #endif │
00:06:50 #36993 [verbose] > │ #if FABLE_COMPILER_PYTHON || FABLE_COMPILER_PHP || FABLE_COMPILER_DART │
00:06:50 #36994 [verbose] > │ let v207 : Async<unit> = Unchecked.defaultof<Async<unit>> │
00:06:50 #36995 [verbose] > │ v207 │
00:06:50 #36996 [verbose] > │ #endif │
00:06:50 #36997 [verbose] > │ |> fun x -> _v191 <- Some x │
00:06:50 #36998 [verbose] > │ let v208 : Async<unit> = _v191.Value │
00:06:50 #36999 [verbose] > │ do! v208 │
00:06:50 #37000 [verbose] > │ let v209 : US0 = US0_1 │
00:06:50 #37001 [verbose] > │ let v210 : (unit -> string) = closure10() │
00:06:50 #37002 [verbose] > │ method6(v209, v210, v190) │
00:06:50 #37003 [verbose] > │ let v211 : Async<unit> option = None │
00:06:50 #37004 [verbose] > │ let mutable _v211 = v211 │
00:06:50 #37005 [verbose] > │ #if FABLE_COMPILER_RUST && !WASM && !CONTRACT │
00:06:50 #37006 [verbose] > │ let v212 : Async<unit> = null |> unbox<Async<unit>> │
00:06:50 #37007 [verbose] > │ v212 │
00:06:50 #37008 [verbose] > │ #endif │
00:06:50 #37009 [verbose] > │ #if FABLE_COMPILER_RUST && WASM │
00:06:50 #37010 [verbose] > │ let v213 : Async<unit> = null |> unbox<Async<unit>> │
00:06:50 #37011 [verbose] > │ v213 │
00:06:50 #37012 [verbose] > │ #endif │
00:06:50 #37013 [verbose] > │ #if FABLE_COMPILER_RUST && CONTRACT │
00:06:50 #37014 [verbose] > │ let v214 : Async<unit> = null |> unbox<Async<unit>> │
00:06:50 #37015 [verbose] > │ v214 │
00:06:50 #37016 [verbose] > │ #endif │
00:06:50 #37017 [verbose] > │ #if !FABLE_COMPILER && !FABLE_COMPILER_RUST && │
00:06:50 #37018 [verbose] > │ !FABLE_COMPILER_TYPESCRIPT && !WASM && !CONTRACT │
00:06:50 #37019 [verbose] > │ let v215 : Async<unit> option = None │
00:06:50 #37020 [verbose] > │ let mutable _v215 = v215 │
00:06:50 #37021 [verbose] > │ async { │
00:06:50 #37022 [verbose] > │ let v216 : US0 = US0_1 │
00:06:50 #37023 [verbose] > │ let v217 : (unit -> string) = closure11() │
00:06:50 #37024 [verbose] > │ method6(v216, v217, v190) │
00:06:50 #37025 [verbose] > │ let v218 : System.IO.FileStream option = None │
00:06:50 #37026 [verbose] > │ let mutable _v218 = v218 │
00:06:50 #37027 [verbose] > │ #if FABLE_COMPILER_RUST && !WASM && !CONTRACT │
00:06:50 #37028 [verbose] > │ let v219 : System.IO.FileStream = null |> unbox<System.IO.FileStream> │
00:06:50 #37029 [verbose] > │ v219 │
00:06:50 #37030 [verbose] > │ #endif │
00:06:50 #37031 [verbose] > │ #if FABLE_COMPILER_RUST && WASM │
00:06:50 #37032 [verbose] > │ let v220 : System.IO.FileStream = null |> unbox<System.IO.FileStream> │
00:06:50 #37033 [verbose] > │ v220 │
00:06:50 #37034 [verbose] > │ #endif │
00:06:50 #37035 [verbose] > │ #if FABLE_COMPILER_RUST && CONTRACT │
00:06:50 #37036 [verbose] > │ let v221 : System.IO.FileStream = null |> unbox<System.IO.FileStream> │
00:06:50 #37037 [verbose] > │ v221 │
00:06:50 #37038 [verbose] > │ #endif │
00:06:50 #37039 [verbose] > │ #if !FABLE_COMPILER && !FABLE_COMPILER_RUST && │
00:06:50 #37040 [verbose] > │ !FABLE_COMPILER_TYPESCRIPT && !WASM && !CONTRACT │
00:06:50 #37041 [verbose] > │ let v222 : System.IO.FileMode = System.IO.FileMode.Open │
00:06:50 #37042 [verbose] > │ let v223 : System.IO.FileAccess = System.IO.FileAccess.ReadWrite │
00:06:50 #37043 [verbose] > │ let v224 : System.IO.FileShare = System.IO.FileShare.None │
00:06:50 #37044 [verbose] > │ let v225 : System.IO.FileStream = new System.IO.FileStream (v154, v222, │
00:06:50 #37045 [verbose] > │ v223, v224) │
00:06:50 #37046 [verbose] > │ v225 │
00:06:50 #37047 [verbose] > │ #endif │
00:06:50 #37048 [verbose] > │ #if FABLE_COMPILER_TYPESCRIPT │
00:06:50 #37049 [verbose] > │ let v226 : System.IO.FileStream = null |> unbox<System.IO.FileStream> │
00:06:50 #37050 [verbose] > │ v226 │
00:06:50 #37051 [verbose] > │ #endif │
00:06:50 #37052 [verbose] > │ #if FABLE_COMPILER_PYTHON || FABLE_COMPILER_PHP || FABLE_COMPILER_DART │
00:06:50 #37053 [verbose] > │ let v227 : System.IO.FileStream = │
00:06:50 #37054 [verbose] > │ Unchecked.defaultof<System.IO.FileStream> │
00:06:50 #37055 [verbose] > │ v227 │
00:06:50 #37056 [verbose] > │ #endif │
00:06:50 #37057 [verbose] > │ |> fun x -> _v218 <- Some x │
00:06:50 #37058 [verbose] > │ let v228 : System.IO.FileStream = _v218.Value │
00:06:50 #37059 [verbose] > │ use v228 = v228 │
00:06:50 #37060 [verbose] > │ let v229 : System.IO.FileStream = v228 │
00:06:50 #37061 [verbose] > │ let v230 : US0 = US0_1 │
00:06:50 #37062 [verbose] > │ let v231 : (unit -> string) = closure12() │
00:06:50 #37063 [verbose] > │ method6(v230, v231, v190) │
00:06:50 #37064 [verbose] > │ let v232 : Async<unit> option = None │
00:06:50 #37065 [verbose] > │ let mutable _v232 = v232 │
00:06:50 #37066 [verbose] > │ #if FABLE_COMPILER_RUST && !WASM && !CONTRACT │
00:06:50 #37067 [verbose] > │ let v233 : Async<unit> = null |> unbox<Async<unit>> │
00:06:50 #37068 [verbose] > │ v233 │
00:06:50 #37069 [verbose] > │ #endif │
00:06:50 #37070 [verbose] > │ #if FABLE_COMPILER_RUST && WASM │
00:06:50 #37071 [verbose] > │ let v234 : Async<unit> = null |> unbox<Async<unit>> │
00:06:50 #37072 [verbose] > │ v234 │
00:06:50 #37073 [verbose] > │ #endif │
00:06:50 #37074 [verbose] > │ #if FABLE_COMPILER_RUST && CONTRACT │
00:06:50 #37075 [verbose] > │ let v235 : Async<unit> = null |> unbox<Async<unit>> │
00:06:50 #37076 [verbose] > │ v235 │
00:06:50 #37077 [verbose] > │ #endif │
00:06:50 #37078 [verbose] > │ #if !FABLE_COMPILER && !FABLE_COMPILER_RUST && │
00:06:50 #37079 [verbose] > │ !FABLE_COMPILER_TYPESCRIPT && !WASM && !CONTRACT │
00:06:50 #37080 [verbose] > │ let v236 : (int32 -> Async<unit>) = Async.Sleep │
00:06:50 #37081 [verbose] > │ let v237 : Async<unit> = v236 2000 │
00:06:50 #37082 [verbose] > │ v237 │
00:06:50 #37083 [verbose] > │ #endif │
00:06:50 #37084 [verbose] > │ #if FABLE_COMPILER_TYPESCRIPT │
00:06:50 #37085 [verbose] > │ let v238 : Async<unit> = null |> unbox<Async<unit>> │
00:06:50 #37086 [verbose] > │ v238 │
00:06:50 #37087 [verbose] > │ #endif │
00:06:50 #37088 [verbose] > │ #if FABLE_COMPILER_PYTHON || FABLE_COMPILER_PHP || FABLE_COMPILER_DART │
00:06:50 #37089 [verbose] > │ let v239 : Async<unit> = Unchecked.defaultof<Async<unit>> │
00:06:50 #37090 [verbose] > │ v239 │
00:06:50 #37091 [verbose] > │ #endif │
00:06:50 #37092 [verbose] > │ |> fun x -> _v232 <- Some x │
00:06:50 #37093 [verbose] > │ let v240 : Async<unit> = _v232.Value │
00:06:50 #37094 [verbose] > │ do! v240 │
00:06:50 #37095 [verbose] > │ let v241 : US0 = US0_1 │
00:06:50 #37096 [verbose] > │ let v242 : (unit -> string) = closure13() │
00:06:50 #37097 [verbose] > │ method6(v241, v242, v190) │
00:06:50 #37098 [verbose] > │ } │
00:06:50 #37099 [verbose] > │ |> fun x -> _v215 <- Some x │
00:06:50 #37100 [verbose] > │ let v243 : Async<unit> = _v215 |> Option.get │
00:06:50 #37101 [verbose] > │ v243 │
00:06:50 #37102 [verbose] > │ #endif │
00:06:50 #37103 [verbose] > │ #if FABLE_COMPILER_TYPESCRIPT │
00:06:50 #37104 [verbose] > │ let v244 : Async<unit> = null |> unbox<Async<unit>> │
00:06:50 #37105 [verbose] > │ v244 │
00:06:50 #37106 [verbose] > │ #endif │
00:06:50 #37107 [verbose] > │ #if FABLE_COMPILER_PYTHON || FABLE_COMPILER_PHP || FABLE_COMPILER_DART │
00:06:50 #37108 [verbose] > │ let v245 : Async<unit> = Unchecked.defaultof<Async<unit>> │
00:06:50 #37109 [verbose] > │ v245 │
00:06:50 #37110 [verbose] > │ #endif │
00:06:50 #37111 [verbose] > │ |> fun x -> _v211 <- Some x │
00:06:50 #37112 [verbose] > │ let v246 : Async<unit> = _v211.Value │
00:06:50 #37113 [verbose] > │ let v247 : Async<Async<unit>> option = None │
00:06:50 #37114 [verbose] > │ let mutable _v247 = v247 │
00:06:50 #37115 [verbose] > │ #if FABLE_COMPILER_RUST && !WASM && !CONTRACT │
00:06:50 #37116 [verbose] > │ let v248 : Async<Async<unit>> = null |> unbox<Async<Async<unit>>> │
00:06:50 #37117 [verbose] > │ v248 │
00:06:50 #37118 [verbose] > │ #endif │
00:06:50 #37119 [verbose] > │ #if FABLE_COMPILER_RUST && WASM │
00:06:50 #37120 [verbose] > │ let v249 : Async<Async<unit>> = null |> unbox<Async<Async<unit>>> │
00:06:50 #37121 [verbose] > │ v249 │
00:06:50 #37122 [verbose] > │ #endif │
00:06:50 #37123 [verbose] > │ #if FABLE_COMPILER_RUST && CONTRACT │
00:06:50 #37124 [verbose] > │ let v250 : Async<Async<unit>> = null |> unbox<Async<Async<unit>>> │
00:06:50 #37125 [verbose] > │ v250 │
00:06:50 #37126 [verbose] > │ #endif │
00:06:50 #37127 [verbose] > │ #if !FABLE_COMPILER && !FABLE_COMPILER_RUST && │
00:06:50 #37128 [verbose] > │ !FABLE_COMPILER_TYPESCRIPT && !WASM && !CONTRACT │
00:06:50 #37129 [verbose] > │ let v251 : (Async<unit> -> Async<Async<unit>>) = Async.StartChild │
00:06:50 #37130 [verbose] > │ let v252 : Async<Async<unit>> = v251 v246 │
00:06:50 #37131 [verbose] > │ v252 │
00:06:50 #37132 [verbose] > │ #endif │
00:06:50 #37133 [verbose] > │ #if FABLE_COMPILER_TYPESCRIPT │
00:06:50 #37134 [verbose] > │ let v253 : Async<Async<unit>> = null |> unbox<Async<Async<unit>>> │
00:06:50 #37135 [verbose] > │ v253 │
00:06:50 #37136 [verbose] > │ #endif │
00:06:50 #37137 [verbose] > │ #if FABLE_COMPILER_PYTHON || FABLE_COMPILER_PHP || FABLE_COMPILER_DART │
00:06:50 #37138 [verbose] > │ let v254 : Async<Async<unit>> = Unchecked.defaultof<Async<Async<unit>>> │
00:06:50 #37139 [verbose] > │ v254 │
00:06:50 #37140 [verbose] > │ #endif │
00:06:50 #37141 [verbose] > │ |> fun x -> _v247 <- Some x │
00:06:50 #37142 [verbose] > │ let v255 : Async<Async<unit>> = _v247.Value │
00:06:50 #37143 [verbose] > │ let! v255 = v255 │
00:06:50 #37144 [verbose] > │ let v256 : Async<unit> = v255 │
00:06:50 #37145 [verbose] > │ let v257 : US0 = US0_1 │
00:06:50 #37146 [verbose] > │ let v258 : (unit -> string) = closure14() │
00:06:50 #37147 [verbose] > │ method6(v257, v258, v190) │
00:06:50 #37148 [verbose] > │ let v259 : Async<unit> option = None │
00:06:50 #37149 [verbose] > │ let mutable _v259 = v259 │
00:06:50 #37150 [verbose] > │ #if FABLE_COMPILER_RUST && !WASM && !CONTRACT │
00:06:50 #37151 [verbose] > │ let v260 : Async<unit> = null |> unbox<Async<unit>> │
00:06:50 #37152 [verbose] > │ v260 │
00:06:50 #37153 [verbose] > │ #endif │
00:06:50 #37154 [verbose] > │ #if FABLE_COMPILER_RUST && WASM │
00:06:50 #37155 [verbose] > │ let v261 : Async<unit> = null |> unbox<Async<unit>> │
00:06:50 #37156 [verbose] > │ v261 │
00:06:50 #37157 [verbose] > │ #endif │
00:06:50 #37158 [verbose] > │ #if FABLE_COMPILER_RUST && CONTRACT │
00:06:50 #37159 [verbose] > │ let v262 : Async<unit> = null |> unbox<Async<unit>> │
00:06:50 #37160 [verbose] > │ v262 │
00:06:50 #37161 [verbose] > │ #endif │
00:06:50 #37162 [verbose] > │ #if !FABLE_COMPILER && !FABLE_COMPILER_RUST && │
00:06:50 #37163 [verbose] > │ !FABLE_COMPILER_TYPESCRIPT && !WASM && !CONTRACT │
00:06:50 #37164 [verbose] > │ let v263 : (int32 -> Async<unit>) = Async.Sleep │
00:06:50 #37165 [verbose] > │ let v264 : Async<unit> = v263 1 │
00:06:50 #37166 [verbose] > │ v264 │
00:06:50 #37167 [verbose] > │ #endif │
00:06:50 #37168 [verbose] > │ #if FABLE_COMPILER_TYPESCRIPT │
00:06:50 #37169 [verbose] > │ let v265 : Async<unit> = null |> unbox<Async<unit>> │
00:06:50 #37170 [verbose] > │ v265 │
00:06:50 #37171 [verbose] > │ #endif │
00:06:50 #37172 [verbose] > │ #if FABLE_COMPILER_PYTHON || FABLE_COMPILER_PHP || FABLE_COMPILER_DART │
00:06:50 #37173 [verbose] > │ let v266 : Async<unit> = Unchecked.defaultof<Async<unit>> │
00:06:50 #37174 [verbose] > │ v266 │
00:06:50 #37175 [verbose] > │ #endif │
00:06:50 #37176 [verbose] > │ |> fun x -> _v259 <- Some x │
00:06:50 #37177 [verbose] > │ let v267 : Async<unit> = _v259.Value │
00:06:50 #37178 [verbose] > │ do! v267 │
00:06:50 #37179 [verbose] > │ let v268 : US0 = US0_1 │
00:06:50 #37180 [verbose] > │ let v269 : (unit -> string) = closure15() │
00:06:50 #37181 [verbose] > │ method6(v268, v269, v190) │
00:06:50 #37182 [verbose] > │ let v270 : Async<int64> option = None │
00:06:50 #37183 [verbose] > │ let mutable _v270 = v270 │
00:06:50 #37184 [verbose] > │ #if FABLE_COMPILER_RUST && !WASM && !CONTRACT │
00:06:50 #37185 [verbose] > │ let v271 : Async<int64> = null |> unbox<Async<int64>> │
00:06:50 #37186 [verbose] > │ v271 │
00:06:50 #37187 [verbose] > │ #endif │
00:06:50 #37188 [verbose] > │ #if FABLE_COMPILER_RUST && WASM │
00:06:50 #37189 [verbose] > │ let v272 : Async<int64> = null |> unbox<Async<int64>> │
00:06:50 #37190 [verbose] > │ v272 │
00:06:50 #37191 [verbose] > │ #endif │
00:06:50 #37192 [verbose] > │ #if FABLE_COMPILER_RUST && CONTRACT │
00:06:50 #37193 [verbose] > │ let v273 : Async<int64> = null |> unbox<Async<int64>> │
00:06:50 #37194 [verbose] > │ v273 │
00:06:50 #37195 [verbose] > │ #endif │
00:06:50 #37196 [verbose] > │ #if !FABLE_COMPILER && !FABLE_COMPILER_RUST && │
00:06:50 #37197 [verbose] > │ !FABLE_COMPILER_TYPESCRIPT && !WASM && !CONTRACT │
00:06:50 #37198 [verbose] > │ let v274 : int64 = 0L │
00:06:50 #37199 [verbose] > │ let v275 : Async<int64> = method11(v182, v154, v274) │
00:06:50 #37200 [verbose] > │ v275 │
00:06:50 #37201 [verbose] > │ #endif │
00:06:50 #37202 [verbose] > │ #if FABLE_COMPILER_TYPESCRIPT │
00:06:50 #37203 [verbose] > │ let v276 : Async<int64> = null |> unbox<Async<int64>> │
00:06:50 #37204 [verbose] > │ v276 │
00:06:50 #37205 [verbose] > │ #endif │
00:06:50 #37206 [verbose] > │ #if FABLE_COMPILER_PYTHON || FABLE_COMPILER_PHP || FABLE_COMPILER_DART │
00:06:50 #37207 [verbose] > │ let v277 : Async<int64> = Unchecked.defaultof<Async<int64>> │
00:06:50 #37208 [verbose] > │ v277 │
00:06:50 #37209 [verbose] > │ #endif │
00:06:50 #37210 [verbose] > │ |> fun x -> _v270 <- Some x │
00:06:50 #37211 [verbose] > │ let v278 : Async<int64> = _v270.Value │
00:06:50 #37212 [verbose] > │ let! v278 = v278 │
00:06:50 #37213 [verbose] > │ let v279 : int64 = v278 │
00:06:50 #37214 [verbose] > │ let v280 : US0 = US0_1 │
00:06:50 #37215 [verbose] > │ let v281 : (unit -> string) = closure18() │
00:06:50 #37216 [verbose] > │ method6(v280, v281, v190) │
00:06:50 #37217 [verbose] > │ let v282 : Async<int64> option = None │
00:06:50 #37218 [verbose] > │ let mutable _v282 = v282 │
00:06:50 #37219 [verbose] > │ #if FABLE_COMPILER_RUST && !WASM && !CONTRACT │
00:06:50 #37220 [verbose] > │ let v283 : Async<int64> = null |> unbox<Async<int64>> │
00:06:50 #37221 [verbose] > │ v283 │
00:06:50 #37222 [verbose] > │ #endif │
00:06:50 #37223 [verbose] > │ #if FABLE_COMPILER_RUST && WASM │
00:06:50 #37224 [verbose] > │ let v284 : Async<int64> = null |> unbox<Async<int64>> │
00:06:50 #37225 [verbose] > │ v284 │
00:06:50 #37226 [verbose] > │ #endif │
00:06:50 #37227 [verbose] > │ #if FABLE_COMPILER_RUST && CONTRACT │
00:06:50 #37228 [verbose] > │ let v285 : Async<int64> = null |> unbox<Async<int64>> │
00:06:50 #37229 [verbose] > │ v285 │
00:06:50 #37230 [verbose] > │ #endif │
00:06:50 #37231 [verbose] > │ #if !FABLE_COMPILER && !FABLE_COMPILER_RUST && │
00:06:50 #37232 [verbose] > │ !FABLE_COMPILER_TYPESCRIPT && !WASM && !CONTRACT │
00:06:50 #37233 [verbose] > │ let v286 : int64 = 0L │
00:06:50 #37234 [verbose] > │ let v287 : Async<int64> = method13(v182, v286) │
00:06:50 #37235 [verbose] > │ v287 │
00:06:50 #37236 [verbose] > │ #endif │
00:06:50 #37237 [verbose] > │ #if FABLE_COMPILER_TYPESCRIPT │
00:06:50 #37238 [verbose] > │ let v288 : Async<int64> = null |> unbox<Async<int64>> │
00:06:50 #37239 [verbose] > │ v288 │
00:06:50 #37240 [verbose] > │ #endif │
00:06:50 #37241 [verbose] > │ #if FABLE_COMPILER_PYTHON || FABLE_COMPILER_PHP || FABLE_COMPILER_DART │
00:06:50 #37242 [verbose] > │ let v289 : Async<int64> = Unchecked.defaultof<Async<int64>> │
00:06:50 #37243 [verbose] > │ v289 │
00:06:50 #37244 [verbose] > │ #endif │
00:06:50 #37245 [verbose] > │ |> fun x -> _v282 <- Some x │
00:06:50 #37246 [verbose] > │ let v290 : Async<int64> = _v282.Value │
00:06:50 #37247 [verbose] > │ let! v290 = v290 │
00:06:50 #37248 [verbose] > │ let v291 : int64 = v290 │
00:06:50 #37249 [verbose] > │ let v292 : US0 = US0_1 │
00:06:50 #37250 [verbose] > │ let v293 : (unit -> string) = closure20() │
00:06:50 #37251 [verbose] > │ method6(v292, v293, v190) │
00:06:50 #37252 [verbose] > │ let v294 : Async<string> option = None │
00:06:50 #37253 [verbose] > │ let mutable _v294 = v294 │
00:06:50 #37254 [verbose] > │ #if FABLE_COMPILER_RUST && !WASM && !CONTRACT │
00:06:50 #37255 [verbose] > │ let v295 : Async<string> = null |> unbox<Async<string>> │
00:06:50 #37256 [verbose] > │ v295 │
00:06:50 #37257 [verbose] > │ #endif │
00:06:50 #37258 [verbose] > │ #if FABLE_COMPILER_RUST && WASM │
00:06:50 #37259 [verbose] > │ let v296 : Async<string> = null |> unbox<Async<string>> │
00:06:50 #37260 [verbose] > │ v296 │
00:06:50 #37261 [verbose] > │ #endif │
00:06:50 #37262 [verbose] > │ #if FABLE_COMPILER_RUST && CONTRACT │
00:06:50 #37263 [verbose] > │ let v297 : Async<string> = null |> unbox<Async<string>> │
00:06:50 #37264 [verbose] > │ v297 │
00:06:50 #37265 [verbose] > │ #endif │
00:06:50 #37266 [verbose] > │ #if !FABLE_COMPILER && !FABLE_COMPILER_RUST && │
00:06:50 #37267 [verbose] > │ !FABLE_COMPILER_TYPESCRIPT && !WASM && !CONTRACT │
00:06:50 #37268 [verbose] > │ let v298 : (string -> System.Threading.Tasks.Task<string>) = │
00:06:50 #37269 [verbose] > │ System.IO.File.ReadAllTextAsync │
00:06:50 #37270 [verbose] > │ let v299 : System.Threading.Tasks.Task<string> = v298 v182 │
00:06:50 #37271 [verbose] > │ let v300 : Async<string> option = None │
00:06:50 #37272 [verbose] > │ let mutable _v300 = v300 │
00:06:50 #37273 [verbose] > │ #if FABLE_COMPILER_RUST && !WASM && !CONTRACT │
00:06:50 #37274 [verbose] > │ let v301 : Async<string> = null |> unbox<Async<string>> │
00:06:50 #37275 [verbose] > │ v301 │
00:06:50 #37276 [verbose] > │ #endif │
00:06:50 #37277 [verbose] > │ #if FABLE_COMPILER_RUST && WASM │
00:06:50 #37278 [verbose] > │ let v302 : Async<string> = null |> unbox<Async<string>> │
00:06:50 #37279 [verbose] > │ v302 │
00:06:50 #37280 [verbose] > │ #endif │
00:06:50 #37281 [verbose] > │ #if FABLE_COMPILER_RUST && CONTRACT │
00:06:50 #37282 [verbose] > │ let v303 : Async<string> = null |> unbox<Async<string>> │
00:06:50 #37283 [verbose] > │ v303 │
00:06:50 #37284 [verbose] > │ #endif │
00:06:50 #37285 [verbose] > │ #if !FABLE_COMPILER && !FABLE_COMPILER_RUST && │
00:06:50 #37286 [verbose] > │ !FABLE_COMPILER_TYPESCRIPT && !WASM && !CONTRACT │
00:06:50 #37287 [verbose] > │ let v304 : (System.Threading.Tasks.Task<string> -> Async<string>) = │
00:06:50 #37288 [verbose] > │ Async.AwaitTask │
00:06:50 #37289 [verbose] > │ let v305 : Async<string> = v304 v299 │
00:06:50 #37290 [verbose] > │ v305 │
00:06:50 #37291 [verbose] > │ #endif │
00:06:50 #37292 [verbose] > │ #if FABLE_COMPILER_TYPESCRIPT │
00:06:50 #37293 [verbose] > │ let v306 : Async<string> = null |> unbox<Async<string>> │
00:06:50 #37294 [verbose] > │ v306 │
00:06:50 #37295 [verbose] > │ #endif │
00:06:50 #37296 [verbose] > │ #if FABLE_COMPILER_PYTHON || FABLE_COMPILER_PHP || FABLE_COMPILER_DART │
00:06:50 #37297 [verbose] > │ let v307 : Async<string> = Unchecked.defaultof<Async<string>> │
00:06:50 #37298 [verbose] > │ v307 │
00:06:50 #37299 [verbose] > │ #endif │
00:06:50 #37300 [verbose] > │ |> fun x -> _v300 <- Some x │
00:06:50 #37301 [verbose] > │ let v308 : Async<string> = _v300.Value │
00:06:50 #37302 [verbose] > │ v308 │
00:06:50 #37303 [verbose] > │ #endif │
00:06:50 #37304 [verbose] > │ #if FABLE_COMPILER_TYPESCRIPT │
00:06:50 #37305 [verbose] > │ let v309 : Async<string> = null |> unbox<Async<string>> │
00:06:50 #37306 [verbose] > │ v309 │
00:06:50 #37307 [verbose] > │ #endif │
00:06:50 #37308 [verbose] > │ #if FABLE_COMPILER_PYTHON || FABLE_COMPILER_PHP || FABLE_COMPILER_DART │
00:06:50 #37309 [verbose] > │ let v310 : Async<string> = Unchecked.defaultof<Async<string>> │
00:06:50 #37310 [verbose] > │ v310 │
00:06:50 #37311 [verbose] > │ #endif │
00:06:50 #37312 [verbose] > │ |> fun x -> _v294 <- Some x │
00:06:50 #37313 [verbose] > │ let v311 : Async<string> = _v294.Value │
00:06:50 #37314 [verbose] > │ let! v311 = v311 │
00:06:50 #37315 [verbose] > │ let v312 : string = v311 │
00:06:50 #37316 [verbose] > │ let v313 : US0 = US0_1 │
00:06:50 #37317 [verbose] > │ let v314 : (unit -> string) = closure21() │
00:06:50 #37318 [verbose] > │ method6(v313, v314, v190) │
00:06:50 #37319 [verbose] > │ do! v256 │
00:06:50 #37320 [verbose] > │ let v315 : US0 = US0_1 │
00:06:50 #37321 [verbose] > │ let v316 : (unit -> string) = closure22() │
00:06:50 #37322 [verbose] > │ method6(v315, v316, v190) │
00:06:50 #37323 [verbose] > │ return struct (v279, v291, v312) │
00:06:50 #37324 [verbose] > │ } │
00:06:50 #37325 [verbose] > │ |> fun x -> _v187 <- Some x │
00:06:50 #37326 [verbose] > │ let v317 : Async<struct (int64 * int64 * string)> = _v187 |> Option.get │
00:06:50 #37327 [verbose] > │ v317 │
00:06:50 #37328 [verbose] > │ #endif │
00:06:50 #37329 [verbose] > │ #if FABLE_COMPILER_TYPESCRIPT │
00:06:50 #37330 [verbose] > │ let v318 : Async<struct (int64 * int64 * string)> = null |> │
00:06:50 #37331 [verbose] > │ unbox<Async<struct (int64 * int64 * string)>> │
00:06:50 #37332 [verbose] > │ v318 │
00:06:50 #37333 [verbose] > │ #endif │
00:06:50 #37334 [verbose] > │ #if FABLE_COMPILER_PYTHON || FABLE_COMPILER_PHP || FABLE_COMPILER_DART │
00:06:50 #37335 [verbose] > │ let v319 : Async<struct (int64 * int64 * string)> = │
00:06:50 #37336 [verbose] > │ Unchecked.defaultof<Async<struct (int64 * int64 * string)>> │
00:06:50 #37337 [verbose] > │ v319 │
00:06:50 #37338 [verbose] > │ #endif │
00:06:50 #37339 [verbose] > │ |> fun x -> _v183 <- Some x │
00:06:50 #37340 [verbose] > │ let v320 : Async<struct (int64 * int64 * string)> = _v183.Value │
00:06:50 #37341 [verbose] > │ let v321 : Async<US3> option = None │
00:06:50 #37342 [verbose] > │ let mutable _v321 = v321 │
00:06:50 #37343 [verbose] > │ #if FABLE_COMPILER_RUST && !WASM && !CONTRACT │
00:06:50 #37344 [verbose] > │ let v322 : Async<US3> = null |> unbox<Async<US3>> │
00:06:50 #37345 [verbose] > │ v322 │
00:06:50 #37346 [verbose] > │ #endif │
00:06:50 #37347 [verbose] > │ #if FABLE_COMPILER_RUST && WASM │
00:06:50 #37348 [verbose] > │ let v323 : Async<US3> = null |> unbox<Async<US3>> │
00:06:50 #37349 [verbose] > │ v323 │
00:06:50 #37350 [verbose] > │ #endif │
00:06:50 #37351 [verbose] > │ #if FABLE_COMPILER_RUST && CONTRACT │
00:06:50 #37352 [verbose] > │ let v324 : Async<US3> = null |> unbox<Async<US3>> │
00:06:50 #37353 [verbose] > │ v324 │
00:06:50 #37354 [verbose] > │ #endif │
00:06:50 #37355 [verbose] > │ #if !FABLE_COMPILER && !FABLE_COMPILER_RUST && │
00:06:50 #37356 [verbose] > │ !FABLE_COMPILER_TYPESCRIPT && !WASM && !CONTRACT │
00:06:50 #37357 [verbose] > │ let v325 : Async<US3> option = None │
00:06:50 #37358 [verbose] > │ let mutable _v325 = v325 │
00:06:50 #37359 [verbose] > │ #if FABLE_COMPILER_RUST && !WASM && !CONTRACT │
00:06:50 #37360 [verbose] > │ let v326 : Async<US3> = null |> unbox<Async<US3>> │
00:06:50 #37361 [verbose] > │ v326 │
00:06:50 #37362 [verbose] > │ #endif │
00:06:50 #37363 [verbose] > │ #if FABLE_COMPILER_RUST && WASM │
00:06:50 #37364 [verbose] > │ let v327 : Async<US3> = null |> unbox<Async<US3>> │
00:06:50 #37365 [verbose] > │ v327 │
00:06:50 #37366 [verbose] > │ #endif │
00:06:50 #37367 [verbose] > │ #if FABLE_COMPILER_RUST && CONTRACT │
00:06:50 #37368 [verbose] > │ let v328 : Async<US3> = null |> unbox<Async<US3>> │
00:06:50 #37369 [verbose] > │ v328 │
00:06:50 #37370 [verbose] > │ #endif │
00:06:50 #37371 [verbose] > │ #if !FABLE_COMPILER && !FABLE_COMPILER_RUST && │
00:06:50 #37372 [verbose] > │ !FABLE_COMPILER_TYPESCRIPT && !WASM && !CONTRACT │
00:06:50 #37373 [verbose] > │ let v329 : Async<US3> option = None │
00:06:50 #37374 [verbose] > │ let mutable _v329 = v329 │
00:06:50 #37375 [verbose] > │ async { │
00:06:50 #37376 [verbose] > │ let v330 : Async<Async<struct (int64 * int64 * string)>> option = None │
00:06:50 #37377 [verbose] > │ let mutable _v330 = v330 │
00:06:50 #37378 [verbose] > │ #if FABLE_COMPILER_RUST && !WASM && !CONTRACT │
00:06:50 #37379 [verbose] > │ let v331 : Async<Async<struct (int64 * int64 * string)>> = null |> │
00:06:50 #37380 [verbose] > │ unbox<Async<Async<struct (int64 * int64 * string)>>> │
00:06:50 #37381 [verbose] > │ v331 │
00:06:50 #37382 [verbose] > │ #endif │
00:06:50 #37383 [verbose] > │ #if FABLE_COMPILER_RUST && WASM │
00:06:50 #37384 [verbose] > │ let v332 : Async<Async<struct (int64 * int64 * string)>> = null |> │
00:06:50 #37385 [verbose] > │ unbox<Async<Async<struct (int64 * int64 * string)>>> │
00:06:50 #37386 [verbose] > │ v332 │
00:06:50 #37387 [verbose] > │ #endif │
00:06:50 #37388 [verbose] > │ #if FABLE_COMPILER_RUST && CONTRACT │
00:06:50 #37389 [verbose] > │ let v333 : Async<Async<struct (int64 * int64 * string)>> = null |> │
00:06:50 #37390 [verbose] > │ unbox<Async<Async<struct (int64 * int64 * string)>>> │
00:06:50 #37391 [verbose] > │ v333 │
00:06:50 #37392 [verbose] > │ #endif │
00:06:50 #37393 [verbose] > │ #if !FABLE_COMPILER && !FABLE_COMPILER_RUST && │
00:06:50 #37394 [verbose] > │ !FABLE_COMPILER_TYPESCRIPT && !WASM && !CONTRACT │
00:06:50 #37395 [verbose] > │ let v334 : Async<Async<struct (int64 * int64 * string)>> = │
00:06:50 #37396 [verbose] > │ Async.StartChild (v320, 3000) │
00:06:50 #37397 [verbose] > │ v334 │
00:06:50 #37398 [verbose] > │ #endif │
00:06:50 #37399 [verbose] > │ #if FABLE_COMPILER_TYPESCRIPT │
00:06:50 #37400 [verbose] > │ let v335 : Async<Async<struct (int64 * int64 * string)>> = null |> │
00:06:50 #37401 [verbose] > │ unbox<Async<Async<struct (int64 * int64 * string)>>> │
00:06:50 #37402 [verbose] > │ v335 │
00:06:50 #37403 [verbose] > │ #endif │
00:06:50 #37404 [verbose] > │ #if FABLE_COMPILER_PYTHON || FABLE_COMPILER_PHP || FABLE_COMPILER_DART │
00:06:50 #37405 [verbose] > │ let v336 : Async<Async<struct (int64 * int64 * string)>> = │
00:06:50 #37406 [verbose] > │ Unchecked.defaultof<Async<Async<struct (int64 * int64 * string)>>> │
00:06:50 #37407 [verbose] > │ v336 │
00:06:50 #37408 [verbose] > │ #endif │
00:06:50 #37409 [verbose] > │ |> fun x -> _v330 <- Some x │
00:06:50 #37410 [verbose] > │ let v337 : Async<Async<struct (int64 * int64 * string)>> = _v330.Value │
00:06:50 #37411 [verbose] > │ let! v337 = v337 │
00:06:50 #37412 [verbose] > │ let v338 : Async<struct (int64 * int64 * string)> = v337 │
00:06:50 #37413 [verbose] > │ let v339 : Async<Choice<struct (int64 * int64 * string), exn>> option = │
00:06:50 #37414 [verbose] > │ None │
00:06:50 #37415 [verbose] > │ let mutable _v339 = v339 │
00:06:50 #37416 [verbose] > │ #if FABLE_COMPILER_RUST && !WASM && !CONTRACT │
00:06:50 #37417 [verbose] > │ let v340 : Async<Choice<struct (int64 * int64 * string), exn>> = null |> │
00:06:50 #37418 [verbose] > │ unbox<Async<Choice<struct (int64 * int64 * string), exn>>> │
00:06:50 #37419 [verbose] > │ v340 │
00:06:50 #37420 [verbose] > │ #endif │
00:06:50 #37421 [verbose] > │ #if FABLE_COMPILER_RUST && WASM │
00:06:50 #37422 [verbose] > │ let v341 : Async<Choice<struct (int64 * int64 * string), exn>> = null |> │
00:06:50 #37423 [verbose] > │ unbox<Async<Choice<struct (int64 * int64 * string), exn>>> │
00:06:50 #37424 [verbose] > │ v341 │
00:06:50 #37425 [verbose] > │ #endif │
00:06:50 #37426 [verbose] > │ #if FABLE_COMPILER_RUST && CONTRACT │
00:06:50 #37427 [verbose] > │ let v342 : Async<Choice<struct (int64 * int64 * string), exn>> = null |> │
00:06:50 #37428 [verbose] > │ unbox<Async<Choice<struct (int64 * int64 * string), exn>>> │
00:06:50 #37429 [verbose] > │ v342 │
00:06:50 #37430 [verbose] > │ #endif │
00:06:50 #37431 [verbose] > │ #if !FABLE_COMPILER && !FABLE_COMPILER_RUST && │
00:06:50 #37432 [verbose] > │ !FABLE_COMPILER_TYPESCRIPT && !WASM && !CONTRACT │
00:06:50 #37433 [verbose] > │ let v343 : (Async<struct (int64 * int64 * string)> -> │
00:06:50 #37434 [verbose] > │ Async<Choice<struct (int64 * int64 * string), exn>>) = Async.Catch │
00:06:50 #37435 [verbose] > │ let v344 : Async<Choice<struct (int64 * int64 * string), exn>> = v343 │
00:06:50 #37436 [verbose] > │ v338 │
00:06:50 #37437 [verbose] > │ v344 │
00:06:50 #37438 [verbose] > │ #endif │
00:06:50 #37439 [verbose] > │ #if FABLE_COMPILER_TYPESCRIPT │
00:06:50 #37440 [verbose] > │ let v345 : Async<Choice<struct (int64 * int64 * string), exn>> = null |> │
00:06:50 #37441 [verbose] > │ unbox<Async<Choice<struct (int64 * int64 * string), exn>>> │
00:06:50 #37442 [verbose] > │ v345 │
00:06:50 #37443 [verbose] > │ #endif │
00:06:50 #37444 [verbose] > │ #if FABLE_COMPILER_PYTHON || FABLE_COMPILER_PHP || FABLE_COMPILER_DART │
00:06:50 #37445 [verbose] > │ let v346 : Async<Choice<struct (int64 * int64 * string), exn>> = │
00:06:50 #37446 [verbose] > │ Unchecked.defaultof<Async<Choice<struct (int64 * int64 * string), exn>>> │
00:06:50 #37447 [verbose] > │ v346 │
00:06:50 #37448 [verbose] > │ #endif │
00:06:50 #37449 [verbose] > │ |> fun x -> _v339 <- Some x │
00:06:50 #37450 [verbose] > │ let v347 : Async<Choice<struct (int64 * int64 * string), exn>> = │
00:06:50 #37451 [verbose] > │ _v339.Value │
00:06:50 #37452 [verbose] > │ let v348 : Async<US4> option = None │
00:06:50 #37453 [verbose] > │ let mutable _v348 = v348 │
00:06:50 #37454 [verbose] > │ #if FABLE_COMPILER_RUST && !WASM && !CONTRACT │
00:06:50 #37455 [verbose] > │ let v349 : Async<US4> = null |> unbox<Async<US4>> │
00:06:50 #37456 [verbose] > │ v349 │
00:06:50 #37457 [verbose] > │ #endif │
00:06:50 #37458 [verbose] > │ #if FABLE_COMPILER_RUST && WASM │
00:06:50 #37459 [verbose] > │ let v350 : Async<US4> = null |> unbox<Async<US4>> │
00:06:50 #37460 [verbose] > │ v350 │
00:06:50 #37461 [verbose] > │ #endif │
00:06:50 #37462 [verbose] > │ #if FABLE_COMPILER_RUST && CONTRACT │
00:06:50 #37463 [verbose] > │ let v351 : Async<US4> = null |> unbox<Async<US4>> │
00:06:50 #37464 [verbose] > │ v351 │
00:06:50 #37465 [verbose] > │ #endif │
00:06:50 #37466 [verbose] > │ #if !FABLE_COMPILER && !FABLE_COMPILER_RUST && │
00:06:50 #37467 [verbose] > │ !FABLE_COMPILER_TYPESCRIPT && !WASM && !CONTRACT │
00:06:50 #37468 [verbose] > │ let v352 : Async<US4> option = None │
00:06:50 #37469 [verbose] > │ let mutable _v352 = v352 │
00:06:50 #37470 [verbose] > │ async { │
00:06:50 #37471 [verbose] > │ let! v347 = v347 │
00:06:50 #37472 [verbose] > │ let v353 : Choice<struct (int64 * int64 * string), exn> = v347 │
00:06:50 #37473 [verbose] > │ let v354 : US4 option = None │
00:06:50 #37474 [verbose] > │ let mutable _v354 = v354 │
00:06:50 #37475 [verbose] > │ #if FABLE_COMPILER_RUST && !WASM && !CONTRACT │
00:06:50 #37476 [verbose] > │ let v355 : US4 = null |> unbox<US4> │
00:06:50 #37477 [verbose] > │ v355 │
00:06:50 #37478 [verbose] > │ #endif │
00:06:50 #37479 [verbose] > │ #if FABLE_COMPILER_RUST && WASM │
00:06:50 #37480 [verbose] > │ let v356 : US4 = null |> unbox<US4> │
00:06:50 #37481 [verbose] > │ v356 │
00:06:50 #37482 [verbose] > │ #endif │
00:06:50 #37483 [verbose] > │ #if FABLE_COMPILER_RUST && CONTRACT │
00:06:50 #37484 [verbose] > │ let v357 : US4 = null |> unbox<US4> │
00:06:50 #37485 [verbose] > │ v357 │
00:06:50 #37486 [verbose] > │ #endif │
00:06:50 #37487 [verbose] > │ #if !FABLE_COMPILER && !FABLE_COMPILER_RUST && │
00:06:50 #37488 [verbose] > │ !FABLE_COMPILER_TYPESCRIPT && !WASM && !CONTRACT │
00:06:50 #37489 [verbose] > │ let v358 : (struct (int64 * int64 * string) -> US4) = closure23() │
00:06:50 #37490 [verbose] > │ let v359 : (exn -> US4) = closure24() │
00:06:50 #37491 [verbose] > │ let v360 : US4 = match v353 with Choice1Of2 x -> v358 x | Choice2Of2 x │
00:06:50 #37492 [verbose] > │ -> v359 x │
00:06:50 #37493 [verbose] > │ v360 │
00:06:50 #37494 [verbose] > │ #endif │
00:06:50 #37495 [verbose] > │ #if FABLE_COMPILER_TYPESCRIPT │
00:06:50 #37496 [verbose] > │ let v361 : US4 = null |> unbox<US4> │
00:06:50 #37497 [verbose] > │ v361 │
00:06:50 #37498 [verbose] > │ #endif │
00:06:50 #37499 [verbose] > │ #if FABLE_COMPILER_PYTHON || FABLE_COMPILER_PHP || FABLE_COMPILER_DART │
00:06:50 #37500 [verbose] > │ let v362 : US4 = Unchecked.defaultof<US4> │
00:06:50 #37501 [verbose] > │ v362 │
00:06:50 #37502 [verbose] > │ #endif │
00:06:50 #37503 [verbose] > │ |> fun x -> _v354 <- Some x │
00:06:50 #37504 [verbose] > │ let v363 : US4 = _v354.Value │
00:06:50 #37505 [verbose] > │ return v363 │
00:06:50 #37506 [verbose] > │ } │
00:06:50 #37507 [verbose] > │ |> fun x -> _v352 <- Some x │
00:06:50 #37508 [verbose] > │ let v364 : Async<US4> = _v352 |> Option.get │
00:06:50 #37509 [verbose] > │ v364 │
00:06:50 #37510 [verbose] > │ #endif │
00:06:50 #37511 [verbose] > │ #if FABLE_COMPILER_TYPESCRIPT │
00:06:50 #37512 [verbose] > │ let v365 : Async<US4> = null |> unbox<Async<US4>> │
00:06:50 #37513 [verbose] > │ v365 │
00:06:50 #37514 [verbose] > │ #endif │
00:06:50 #37515 [verbose] > │ #if FABLE_COMPILER_PYTHON || FABLE_COMPILER_PHP || FABLE_COMPILER_DART │
00:06:50 #37516 [verbose] > │ let v366 : Async<US4> = Unchecked.defaultof<Async<US4>> │
00:06:50 #37517 [verbose] > │ v366 │
00:06:50 #37518 [verbose] > │ #endif │
00:06:50 #37519 [verbose] > │ |> fun x -> _v348 <- Some x │
00:06:50 #37520 [verbose] > │ let v367 : Async<US4> = _v348.Value │
00:06:50 #37521 [verbose] > │ let v368 : Async<US5> option = None │
00:06:50 #37522 [verbose] > │ let mutable _v368 = v368 │
00:06:50 #37523 [verbose] > │ #if FABLE_COMPILER_RUST && !WASM && !CONTRACT │
00:06:50 #37524 [verbose] > │ let v369 : Async<US5> = null |> unbox<Async<US5>> │
00:06:50 #37525 [verbose] > │ v369 │
00:06:50 #37526 [verbose] > │ #endif │
00:06:50 #37527 [verbose] > │ #if FABLE_COMPILER_RUST && WASM │
00:06:50 #37528 [verbose] > │ let v370 : Async<US5> = null |> unbox<Async<US5>> │
00:06:50 #37529 [verbose] > │ v370 │
00:06:50 #37530 [verbose] > │ #endif │
00:06:50 #37531 [verbose] > │ #if FABLE_COMPILER_RUST && CONTRACT │
00:06:50 #37532 [verbose] > │ let v371 : Async<US5> = null |> unbox<Async<US5>> │
00:06:50 #37533 [verbose] > │ v371 │
00:06:50 #37534 [verbose] > │ #endif │
00:06:50 #37535 [verbose] > │ #if !FABLE_COMPILER && !FABLE_COMPILER_RUST && │
00:06:50 #37536 [verbose] > │ !FABLE_COMPILER_TYPESCRIPT && !WASM && !CONTRACT │
00:06:50 #37537 [verbose] > │ let v372 : Async<US5> option = None │
00:06:50 #37538 [verbose] > │ let mutable _v372 = v372 │
00:06:50 #37539 [verbose] > │ async { │
00:06:50 #37540 [verbose] > │ let! v367 = v367 │
00:06:50 #37541 [verbose] > │ let v373 : US4 = v367 │
00:06:50 #37542 [verbose] > │ let v381 : US5 = │
00:06:50 #37543 [verbose] > │ match v373 with │
00:06:50 #37544 [verbose] > │ | US4_0(v374, v375, v376) -> (* Choice1Of2 *) │
00:06:50 #37545 [verbose] > │ US5_0(v374, v375, v376) │
00:06:50 #37546 [verbose] > │ | US4_1(v378) -> (* Choice2Of2 *) │
00:06:50 #37547 [verbose] > │ US5_1(v378) │
00:06:50 #37548 [verbose] > │ return v381 │
00:06:50 #37549 [verbose] > │ } │
00:06:50 #37550 [verbose] > │ |> fun x -> _v372 <- Some x │
00:06:50 #37551 [verbose] > │ let v382 : Async<US5> = _v372 |> Option.get │
00:06:50 #37552 [verbose] > │ v382 │
00:06:50 #37553 [verbose] > │ #endif │
00:06:50 #37554 [verbose] > │ #if FABLE_COMPILER_TYPESCRIPT │
00:06:50 #37555 [verbose] > │ let v383 : Async<US5> = null |> unbox<Async<US5>> │
00:06:50 #37556 [verbose] > │ v383 │
00:06:50 #37557 [verbose] > │ #endif │
00:06:50 #37558 [verbose] > │ #if FABLE_COMPILER_PYTHON || FABLE_COMPILER_PHP || FABLE_COMPILER_DART │
00:06:50 #37559 [verbose] > │ let v384 : Async<US5> = Unchecked.defaultof<Async<US5>> │
00:06:50 #37560 [verbose] > │ v384 │
00:06:50 #37561 [verbose] > │ #endif │
00:06:50 #37562 [verbose] > │ |> fun x -> _v368 <- Some x │
00:06:50 #37563 [verbose] > │ let v385 : Async<US5> = _v368.Value │
00:06:50 #37564 [verbose] > │ let v386 : Async<US3> option = None │
00:06:50 #37565 [verbose] > │ let mutable _v386 = v386 │
00:06:50 #37566 [verbose] > │ #if FABLE_COMPILER_RUST && !WASM && !CONTRACT │
00:06:50 #37567 [verbose] > │ let v387 : Async<US3> = null |> unbox<Async<US3>> │
00:06:50 #37568 [verbose] > │ v387 │
00:06:50 #37569 [verbose] > │ #endif │
00:06:50 #37570 [verbose] > │ #if FABLE_COMPILER_RUST && WASM │
00:06:50 #37571 [verbose] > │ let v388 : Async<US3> = null |> unbox<Async<US3>> │
00:06:50 #37572 [verbose] > │ v388 │
00:06:50 #37573 [verbose] > │ #endif │
00:06:50 #37574 [verbose] > │ #if FABLE_COMPILER_RUST && CONTRACT │
00:06:50 #37575 [verbose] > │ let v389 : Async<US3> = null |> unbox<Async<US3>> │
00:06:50 #37576 [verbose] > │ v389 │
00:06:50 #37577 [verbose] > │ #endif │
00:06:50 #37578 [verbose] > │ #if !FABLE_COMPILER && !FABLE_COMPILER_RUST && │
00:06:50 #37579 [verbose] > │ !FABLE_COMPILER_TYPESCRIPT && !WASM && !CONTRACT │
00:06:50 #37580 [verbose] > │ let v390 : Async<US3> option = None │
00:06:50 #37581 [verbose] > │ let mutable _v390 = v390 │
00:06:50 #37582 [verbose] > │ async { │
00:06:50 #37583 [verbose] > │ let! v385 = v385 │
00:06:50 #37584 [verbose] > │ let v391 : US5 = v385 │
00:06:50 #37585 [verbose] > │ let v418 : US3 = │
00:06:50 #37586 [verbose] > │ match v391 with │
00:06:50 #37587 [verbose] > │ | US5_1(v396) -> (* Error *) │
00:06:50 #37588 [verbose] > │ let v397 : string = $"%A{v396}" │
00:06:50 #37589 [verbose] > │ let v398 : string = "System.TimeoutException" │
00:06:50 #37590 [verbose] > │ let v399 : bool = v397.Contains v398 │
00:06:50 #37591 [verbose] > │ if v399 then │
00:06:50 #37592 [verbose] > │ let v400 : US0 = US0_1 │
00:06:50 #37593 [verbose] > │ let v401 : (unit -> string) = closure25() │
00:06:50 #37594 [verbose] > │ let v402 : (unit -> string) = closure26() │
00:06:50 #37595 [verbose] > │ method6(v400, v401, v402) │
00:06:50 #37596 [verbose] > │ US3_1 │
00:06:50 #37597 [verbose] > │ else │
00:06:50 #37598 [verbose] > │ let v404 : string option = None │
00:06:50 #37599 [verbose] > │ let mutable _v404 = v404 │
00:06:50 #37600 [verbose] > │ #if FABLE_COMPILER_RUST && !WASM && !CONTRACT │
00:06:50 #37601 [verbose] > │ let v405 : string = $"%A{v396}" │
00:06:50 #37602 [verbose] > │ v405 │
00:06:50 #37603 [verbose] > │ #endif │
00:06:50 #37604 [verbose] > │ #if FABLE_COMPILER_RUST && WASM │
00:06:50 #37605 [verbose] > │ let v406 : string = $"%A{v396}" │
00:06:50 #37606 [verbose] > │ v406 │
00:06:50 #37607 [verbose] > │ #endif │
00:06:50 #37608 [verbose] > │ #if FABLE_COMPILER_RUST && CONTRACT │
00:06:50 #37609 [verbose] > │ let v407 : string = $"%A{v396}" │
00:06:50 #37610 [verbose] > │ v407 │
00:06:50 #37611 [verbose] > │ #endif │
00:06:50 #37612 [verbose] > │ #if !FABLE_COMPILER && !FABLE_COMPILER_RUST && │
00:06:50 #37613 [verbose] > │ !FABLE_COMPILER_TYPESCRIPT && !WASM && !CONTRACT │
00:06:50 #37614 [verbose] > │ let v408 : string = $"{v396.GetType ()}: {v396.Message}" │
00:06:50 #37615 [verbose] > │ v408 │
00:06:50 #37616 [verbose] > │ #endif │
00:06:50 #37617 [verbose] > │ #if FABLE_COMPILER_TYPESCRIPT │
00:06:50 #37618 [verbose] > │ let v409 : string = $"%A{v396}" │
00:06:50 #37619 [verbose] > │ v409 │
00:06:50 #37620 [verbose] > │ #endif │
00:06:50 #37621 [verbose] > │ #if FABLE_COMPILER_PYTHON || FABLE_COMPILER_PHP || │
00:06:50 #37622 [verbose] > │ FABLE_COMPILER_DART │
00:06:50 #37623 [verbose] > │ let v410 : string = Unchecked.defaultof<string> │
00:06:50 #37624 [verbose] > │ v410 │
00:06:50 #37625 [verbose] > │ #endif │
00:06:50 #37626 [verbose] > │ |> fun x -> _v404 <- Some x │
00:06:50 #37627 [verbose] > │ let v411 : string = _v404.Value │
00:06:50 #37628 [verbose] > │ let v412 : US0 = US0_4 │
00:06:50 #37629 [verbose] > │ let v413 : (unit -> string) = closure27(v411) │
00:06:50 #37630 [verbose] > │ let v414 : (unit -> string) = closure26() │
00:06:50 #37631 [verbose] > │ method6(v412, v413, v414) │
00:06:50 #37632 [verbose] > │ US3_1 │
00:06:50 #37633 [verbose] > │ | US5_0(v392, v393, v394) -> (* Ok *) │
00:06:50 #37634 [verbose] > │ US3_0(v392, v393, v394) │
00:06:50 #37635 [verbose] > │ return v418 │
00:06:50 #37636 [verbose] > │ } │
00:06:50 #37637 [verbose] > │ |> fun x -> _v390 <- Some x │
00:06:50 #37638 [verbose] > │ let v419 : Async<US3> = _v390 |> Option.get │
00:06:50 #37639 [verbose] > │ v419 │
00:06:50 #37640 [verbose] > │ #endif │
00:06:50 #37641 [verbose] > │ #if FABLE_COMPILER_TYPESCRIPT │
00:06:50 #37642 [verbose] > │ let v420 : Async<US3> = null |> unbox<Async<US3>> │
00:06:50 #37643 [verbose] > │ v420 │
00:06:50 #37644 [verbose] > │ #endif │
00:06:50 #37645 [verbose] > │ #if FABLE_COMPILER_PYTHON || FABLE_COMPILER_PHP || FABLE_COMPILER_DART │
00:06:50 #37646 [verbose] > │ let v421 : Async<US3> = Unchecked.defaultof<Async<US3>> │
00:06:50 #37647 [verbose] > │ v421 │
00:06:50 #37648 [verbose] > │ #endif │
00:06:50 #37649 [verbose] > │ |> fun x -> _v386 <- Some x │
00:06:50 #37650 [verbose] > │ let v422 : Async<US3> = _v386.Value │
00:06:50 #37651 [verbose] > │ return! v422 │
00:06:50 #37652 [verbose] > │ } │
00:06:50 #37653 [verbose] > │ |> fun x -> _v329 <- Some x │
00:06:50 #37654 [verbose] > │ let v423 : Async<US3> = _v329 |> Option.get │
00:06:50 #37655 [verbose] > │ v423 │
00:06:50 #37656 [verbose] > │ #endif │
00:06:50 #37657 [verbose] > │ #if FABLE_COMPILER_TYPESCRIPT │
00:06:50 #37658 [verbose] > │ let v424 : Async<US3> = null |> unbox<Async<US3>> │
00:06:50 #37659 [verbose] > │ v424 │
00:06:50 #37660 [verbose] > │ #endif │
00:06:50 #37661 [verbose] > │ #if FABLE_COMPILER_PYTHON || FABLE_COMPILER_PHP || FABLE_COMPILER_DART │
00:06:50 #37662 [verbose] > │ let v425 : Async<US3> = Unchecked.defaultof<Async<US3>> │
00:06:50 #37663 [verbose] > │ v425 │
00:06:50 #37664 [verbose] > │ #endif │
00:06:50 #37665 [verbose] > │ |> fun x -> _v325 <- Some x │
00:06:50 #37666 [verbose] > │ let v426 : Async<US3> = _v325.Value │
00:06:50 #37667 [verbose] > │ v426 │
00:06:50 #37668 [verbose] > │ #endif │
00:06:50 #37669 [verbose] > │ #if FABLE_COMPILER_TYPESCRIPT │
00:06:50 #37670 [verbose] > │ let v427 : Async<US3> = null |> unbox<Async<US3>> │
00:06:50 #37671 [verbose] > │ v427 │
00:06:50 #37672 [verbose] > │ #endif │
00:06:50 #37673 [verbose] > │ #if FABLE_COMPILER_PYTHON || FABLE_COMPILER_PHP || FABLE_COMPILER_DART │
00:06:50 #37674 [verbose] > │ let v428 : Async<US3> = Unchecked.defaultof<Async<US3>> │
00:06:50 #37675 [verbose] > │ v428 │
00:06:50 #37676 [verbose] > │ #endif │
00:06:50 #37677 [verbose] > │ |> fun x -> _v321 <- Some x │
00:06:50 #37678 [verbose] > │ let v429 : Async<US3> = _v321.Value │
00:06:50 #37679 [verbose] > │ let v430 : US3 option = None │
00:06:50 #37680 [verbose] > │ let mutable _v430 = v430 │
00:06:50 #37681 [verbose] > │ #if FABLE_COMPILER_RUST && !WASM && !CONTRACT │
00:06:50 #37682 [verbose] > │ let v431 : US3 = null |> unbox<US3> │
00:06:50 #37683 [verbose] > │ v431 │
00:06:50 #37684 [verbose] > │ #endif │
00:06:50 #37685 [verbose] > │ #if FABLE_COMPILER_RUST && WASM │
00:06:50 #37686 [verbose] > │ let v432 : US3 = null |> unbox<US3> │
00:06:50 #37687 [verbose] > │ v432 │
00:06:50 #37688 [verbose] > │ #endif │
00:06:50 #37689 [verbose] > │ #if FABLE_COMPILER_RUST && CONTRACT │
00:06:50 #37690 [verbose] > │ let v433 : US3 = null |> unbox<US3> │
00:06:50 #37691 [verbose] > │ v433 │
00:06:50 #37692 [verbose] > │ #endif │
00:06:50 #37693 [verbose] > │ #if !FABLE_COMPILER && !FABLE_COMPILER_RUST && │
00:06:50 #37694 [verbose] > │ !FABLE_COMPILER_TYPESCRIPT && !WASM && !CONTRACT │
00:06:50 #37695 [verbose] > │ let v434 : (Async<US3> -> US3) = Async.RunSynchronously │
00:06:50 #37696 [verbose] > │ let v435 : US3 = v434 v429 │
00:06:50 #37697 [verbose] > │ v435 │
00:06:50 #37698 [verbose] > │ #endif │
00:06:50 #37699 [verbose] > │ #if FABLE_COMPILER_TYPESCRIPT │
00:06:50 #37700 [verbose] > │ let v436 : US3 = null |> unbox<US3> │
00:06:50 #37701 [verbose] > │ v436 │
00:06:50 #37702 [verbose] > │ #endif │
00:06:50 #37703 [verbose] > │ #if FABLE_COMPILER_PYTHON || FABLE_COMPILER_PHP || FABLE_COMPILER_DART │
00:06:50 #37704 [verbose] > │ let v437 : US3 = Unchecked.defaultof<US3> │
00:06:50 #37705 [verbose] > │ v437 │
00:06:50 #37706 [verbose] > │ #endif │
00:06:50 #37707 [verbose] > │ |> fun x -> _v430 <- Some x │
00:06:50 #37708 [verbose] > │ let v438 : US3 = _v430.Value │
00:06:50 #37709 [verbose] > │ let v521 : bool = │
00:06:50 #37710 [verbose] > │ match v438 with │
00:06:50 #37711 [verbose] > │ | US3_0(v439, v440, v441) -> (* Some *) │
00:06:50 #37712 [verbose] > │ let v442 : bool option = None │
00:06:50 #37713 [verbose] > │ let mutable _v442 = v442 │
00:06:50 #37714 [verbose] > │ #if FABLE_COMPILER_RUST && !WASM && !CONTRACT │
00:06:50 #37715 [verbose] > │ let v443 : bool = null |> unbox<bool> │
00:06:50 #37716 [verbose] > │ v443 │
00:06:50 #37717 [verbose] > │ #endif │
00:06:50 #37718 [verbose] > │ #if FABLE_COMPILER_RUST && WASM │
00:06:50 #37719 [verbose] > │ let v444 : bool = null |> unbox<bool> │
00:06:50 #37720 [verbose] > │ v444 │
00:06:50 #37721 [verbose] > │ #endif │
00:06:50 #37722 [verbose] > │ #if FABLE_COMPILER_RUST && CONTRACT │
00:06:50 #37723 [verbose] > │ let v445 : bool = null |> unbox<bool> │
00:06:50 #37724 [verbose] > │ v445 │
00:06:50 #37725 [verbose] > │ #endif │
00:06:50 #37726 [verbose] > │ #if !FABLE_COMPILER && !FABLE_COMPILER_RUST && │
00:06:50 #37727 [verbose] > │ !FABLE_COMPILER_TYPESCRIPT && !WASM && !CONTRACT │
00:06:50 #37728 [verbose] > │ let v446 : System.Runtime.InteropServices.OSPlatform = │
00:06:50 #37729 [verbose] > │ System.Runtime.InteropServices.OSPlatform.Windows │
00:06:50 #37730 [verbose] > │ let v447 : (System.Runtime.InteropServices.OSPlatform -> bool) = │
00:06:50 #37731 [verbose] > │ System.Runtime.InteropServices.RuntimeInformation.IsOSPlatform │
00:06:50 #37732 [verbose] > │ let v448 : bool = v447 v446 │
00:06:50 #37733 [verbose] > │ v448 │
00:06:50 #37734 [verbose] > │ #endif │
00:06:50 #37735 [verbose] > │ #if FABLE_COMPILER_TYPESCRIPT │
00:06:50 #37736 [verbose] > │ let v449 : bool = null |> unbox<bool> │
00:06:50 #37737 [verbose] > │ v449 │
00:06:50 #37738 [verbose] > │ #endif │
00:06:50 #37739 [verbose] > │ #if FABLE_COMPILER_PYTHON || FABLE_COMPILER_PHP || │
00:06:50 #37740 [verbose] > │ FABLE_COMPILER_DART │
00:06:50 #37741 [verbose] > │ let v450 : bool = Unchecked.defaultof<bool> │
00:06:50 #37742 [verbose] > │ v450 │
00:06:50 #37743 [verbose] > │ #endif │
00:06:50 #37744 [verbose] > │ |> fun x -> _v442 <- Some x │
00:06:50 #37745 [verbose] > │ let v451 : bool = _v442.Value │
00:06:50 #37746 [verbose] > │ let v452 : int64 = │
00:06:50 #37747 [verbose] > │ if v451 then │
00:06:50 #37748 [verbose] > │ 50L │
00:06:50 #37749 [verbose] > │ else │
00:06:50 #37750 [verbose] > │ 0L │
00:06:50 #37751 [verbose] > │ let v453 : bool option = None │
00:06:50 #37752 [verbose] > │ let mutable _v453 = v453 │
00:06:50 #37753 [verbose] > │ #if FABLE_COMPILER_RUST && !WASM && !CONTRACT │
00:06:50 #37754 [verbose] > │ let v454 : bool = null |> unbox<bool> │
00:06:50 #37755 [verbose] > │ v454 │
00:06:50 #37756 [verbose] > │ #endif │
00:06:50 #37757 [verbose] > │ #if FABLE_COMPILER_RUST && WASM │
00:06:50 #37758 [verbose] > │ let v455 : bool = null |> unbox<bool> │
00:06:50 #37759 [verbose] > │ v455 │
00:06:50 #37760 [verbose] > │ #endif │
00:06:50 #37761 [verbose] > │ #if FABLE_COMPILER_RUST && CONTRACT │
00:06:50 #37762 [verbose] > │ let v456 : bool = null |> unbox<bool> │
00:06:50 #37763 [verbose] > │ v456 │
00:06:50 #37764 [verbose] > │ #endif │
00:06:50 #37765 [verbose] > │ #if !FABLE_COMPILER && !FABLE_COMPILER_RUST && │
00:06:50 #37766 [verbose] > │ !FABLE_COMPILER_TYPESCRIPT && !WASM && !CONTRACT │
00:06:50 #37767 [verbose] > │ let v457 : System.Runtime.InteropServices.OSPlatform = │
00:06:50 #37768 [verbose] > │ System.Runtime.InteropServices.OSPlatform.Windows │
00:06:50 #37769 [verbose] > │ let v458 : (System.Runtime.InteropServices.OSPlatform -> bool) = │
00:06:50 #37770 [verbose] > │ System.Runtime.InteropServices.RuntimeInformation.IsOSPlatform │
00:06:50 #37771 [verbose] > │ let v459 : bool = v458 v457 │
00:06:50 #37772 [verbose] > │ v459 │
00:06:50 #37773 [verbose] > │ #endif │
00:06:50 #37774 [verbose] > │ #if FABLE_COMPILER_TYPESCRIPT │
00:06:50 #37775 [verbose] > │ let v460 : bool = null |> unbox<bool> │
00:06:50 #37776 [verbose] > │ v460 │
00:06:50 #37777 [verbose] > │ #endif │
00:06:50 #37778 [verbose] > │ #if FABLE_COMPILER_PYTHON || FABLE_COMPILER_PHP || │
00:06:50 #37779 [verbose] > │ FABLE_COMPILER_DART │
00:06:50 #37780 [verbose] > │ let v461 : bool = Unchecked.defaultof<bool> │
00:06:50 #37781 [verbose] > │ v461 │
00:06:50 #37782 [verbose] > │ #endif │
00:06:50 #37783 [verbose] > │ |> fun x -> _v453 <- Some x │
00:06:50 #37784 [verbose] > │ let v462 : bool = _v453.Value │
00:06:50 #37785 [verbose] > │ let v463 : int64 = │
00:06:50 #37786 [verbose] > │ if v462 then │
00:06:50 #37787 [verbose] > │ 150L │
00:06:50 #37788 [verbose] > │ else │
00:06:50 #37789 [verbose] > │ 0L │
00:06:50 #37790 [verbose] > │ let v464 : string = $"%A{v439}" │
00:06:50 #37791 [verbose] > │ System.Console.WriteLine v464 │
00:06:50 #37792 [verbose] > │ let v465 : string = $"%A{v439}" │
00:06:50 #37793 [verbose] > │ System.Console.WriteLine v465 │
00:06:50 #37794 [verbose] > │ let v466 : bool = v439 >= v452 │
00:06:50 #37795 [verbose] > │ let v468 : bool = │
00:06:50 #37796 [verbose] > │ if v466 then │
00:06:50 #37797 [verbose] > │ true │
00:06:50 #37798 [verbose] > │ else │
00:06:50 #37799 [verbose] > │ method15(v466) │
00:06:50 #37800 [verbose] > │ let v469 : string = $"__expect / actual: %A{v439} / expected: │
00:06:50 #37801 [verbose] > │ %A{v452}" │
00:06:50 #37802 [verbose] > │ let v470 : bool = v468 = false │
00:06:50 #37803 [verbose] > │ if v470 then │
00:06:50 #37804 [verbose] > │ failwith<unit> v469 │
00:06:50 #37805 [verbose] > │ let v471 : string = $"%A{v439}" │
00:06:50 #37806 [verbose] > │ System.Console.WriteLine v471 │
00:06:50 #37807 [verbose] > │ let v472 : bool = v439 <= v463 │
00:06:50 #37808 [verbose] > │ let v474 : bool = │
00:06:50 #37809 [verbose] > │ if v472 then │
00:06:50 #37810 [verbose] > │ true │
00:06:50 #37811 [verbose] > │ else │
00:06:50 #37812 [verbose] > │ method15(v472) │
00:06:50 #37813 [verbose] > │ let v475 : string = $"__expect / actual: %A{v439} / expected: │
00:06:50 #37814 [verbose] > │ %A{v463}" │
00:06:50 #37815 [verbose] > │ let v476 : bool = v474 = false │
00:06:50 #37816 [verbose] > │ if v476 then │
00:06:50 #37817 [verbose] > │ failwith<unit> v475 │
00:06:50 #37818 [verbose] > │ let v477 : string = $"__expect / actual: %A{v439} / expected: │
00:06:50 #37819 [verbose] > │ %A{struct (v452, v463)}" │
00:06:50 #37820 [verbose] > │ let v478 : bool option = None │
00:06:50 #37821 [verbose] > │ let mutable _v478 = v478 │
00:06:50 #37822 [verbose] > │ #if FABLE_COMPILER_RUST && !WASM && !CONTRACT │
00:06:50 #37823 [verbose] > │ let v479 : bool = null |> unbox<bool> │
00:06:50 #37824 [verbose] > │ v479 │
00:06:50 #37825 [verbose] > │ #endif │
00:06:50 #37826 [verbose] > │ #if FABLE_COMPILER_RUST && WASM │
00:06:50 #37827 [verbose] > │ let v480 : bool = null |> unbox<bool> │
00:06:50 #37828 [verbose] > │ v480 │
00:06:50 #37829 [verbose] > │ #endif │
00:06:50 #37830 [verbose] > │ #if FABLE_COMPILER_RUST && CONTRACT │
00:06:50 #37831 [verbose] > │ let v481 : bool = null |> unbox<bool> │
00:06:50 #37832 [verbose] > │ v481 │
00:06:50 #37833 [verbose] > │ #endif │
00:06:50 #37834 [verbose] > │ #if !FABLE_COMPILER && !FABLE_COMPILER_RUST && │
00:06:50 #37835 [verbose] > │ !FABLE_COMPILER_TYPESCRIPT && !WASM && !CONTRACT │
00:06:50 #37836 [verbose] > │ let v482 : System.Runtime.InteropServices.OSPlatform = │
00:06:50 #37837 [verbose] > │ System.Runtime.InteropServices.OSPlatform.Windows │
00:06:50 #37838 [verbose] > │ let v483 : (System.Runtime.InteropServices.OSPlatform -> bool) = │
00:06:50 #37839 [verbose] > │ System.Runtime.InteropServices.RuntimeInformation.IsOSPlatform │
00:06:50 #37840 [verbose] > │ let v484 : bool = v483 v482 │
00:06:50 #37841 [verbose] > │ v484 │
00:06:50 #37842 [verbose] > │ #endif │
00:06:50 #37843 [verbose] > │ #if FABLE_COMPILER_TYPESCRIPT │
00:06:50 #37844 [verbose] > │ let v485 : bool = null |> unbox<bool> │
00:06:50 #37845 [verbose] > │ v485 │
00:06:50 #37846 [verbose] > │ #endif │
00:06:50 #37847 [verbose] > │ #if FABLE_COMPILER_PYTHON || FABLE_COMPILER_PHP || │
00:06:50 #37848 [verbose] > │ FABLE_COMPILER_DART │
00:06:50 #37849 [verbose] > │ let v486 : bool = Unchecked.defaultof<bool> │
00:06:50 #37850 [verbose] > │ v486 │
00:06:50 #37851 [verbose] > │ #endif │
00:06:50 #37852 [verbose] > │ |> fun x -> _v478 <- Some x │
00:06:50 #37853 [verbose] > │ let v487 : bool = _v478.Value │
00:06:50 #37854 [verbose] > │ let v488 : int64 = │
00:06:50 #37855 [verbose] > │ if v487 then │
00:06:50 #37856 [verbose] > │ 0L │
00:06:50 #37857 [verbose] > │ else │
00:06:50 #37858 [verbose] > │ 100L │
00:06:50 #37859 [verbose] > │ let v489 : bool option = None │
00:06:50 #37860 [verbose] > │ let mutable _v489 = v489 │
00:06:50 #37861 [verbose] > │ #if FABLE_COMPILER_RUST && !WASM && !CONTRACT │
00:06:50 #37862 [verbose] > │ let v490 : bool = null |> unbox<bool> │
00:06:50 #37863 [verbose] > │ v490 │
00:06:50 #37864 [verbose] > │ #endif │
00:06:50 #37865 [verbose] > │ #if FABLE_COMPILER_RUST && WASM │
00:06:50 #37866 [verbose] > │ let v491 : bool = null |> unbox<bool> │
00:06:50 #37867 [verbose] > │ v491 │
00:06:50 #37868 [verbose] > │ #endif │
00:06:50 #37869 [verbose] > │ #if FABLE_COMPILER_RUST && CONTRACT │
00:06:50 #37870 [verbose] > │ let v492 : bool = null |> unbox<bool> │
00:06:50 #37871 [verbose] > │ v492 │
00:06:50 #37872 [verbose] > │ #endif │
00:06:50 #37873 [verbose] > │ #if !FABLE_COMPILER && !FABLE_COMPILER_RUST && │
00:06:50 #37874 [verbose] > │ !FABLE_COMPILER_TYPESCRIPT && !WASM && !CONTRACT │
00:06:50 #37875 [verbose] > │ let v493 : System.Runtime.InteropServices.OSPlatform = │
00:06:50 #37876 [verbose] > │ System.Runtime.InteropServices.OSPlatform.Windows │
00:06:50 #37877 [verbose] > │ let v494 : (System.Runtime.InteropServices.OSPlatform -> bool) = │
00:06:50 #37878 [verbose] > │ System.Runtime.InteropServices.RuntimeInformation.IsOSPlatform │
00:06:50 #37879 [verbose] > │ let v495 : bool = v494 v493 │
00:06:50 #37880 [verbose] > │ v495 │
00:06:50 #37881 [verbose] > │ #endif │
00:06:50 #37882 [verbose] > │ #if FABLE_COMPILER_TYPESCRIPT │
00:06:50 #37883 [verbose] > │ let v496 : bool = null |> unbox<bool> │
00:06:50 #37884 [verbose] > │ v496 │
00:06:50 #37885 [verbose] > │ #endif │
00:06:50 #37886 [verbose] > │ #if FABLE_COMPILER_PYTHON || FABLE_COMPILER_PHP || │
00:06:50 #37887 [verbose] > │ FABLE_COMPILER_DART │
00:06:50 #37888 [verbose] > │ let v497 : bool = Unchecked.defaultof<bool> │
00:06:50 #37889 [verbose] > │ v497 │
00:06:50 #37890 [verbose] > │ #endif │
00:06:50 #37891 [verbose] > │ |> fun x -> _v489 <- Some x │
00:06:50 #37892 [verbose] > │ let v498 : bool = _v489.Value │
00:06:50 #37893 [verbose] > │ let v499 : int64 = │
00:06:50 #37894 [verbose] > │ if v498 then │
00:06:50 #37895 [verbose] > │ 0L │
00:06:50 #37896 [verbose] > │ else │
00:06:50 #37897 [verbose] > │ 200L │
00:06:50 #37898 [verbose] > │ let v500 : string = $"%A{v440}" │
00:06:50 #37899 [verbose] > │ System.Console.WriteLine v500 │
00:06:50 #37900 [verbose] > │ let v501 : string = $"%A{v440}" │
00:06:50 #37901 [verbose] > │ System.Console.WriteLine v501 │
00:06:50 #37902 [verbose] > │ let v502 : bool = v440 >= v488 │
00:06:50 #37903 [verbose] > │ let v504 : bool = │
00:06:50 #37904 [verbose] > │ if v502 then │
00:06:50 #37905 [verbose] > │ true │
00:06:50 #37906 [verbose] > │ else │
00:06:50 #37907 [verbose] > │ method15(v502) │
00:06:50 #37908 [verbose] > │ let v505 : string = $"__expect / actual: %A{v440} / expected: │
00:06:50 #37909 [verbose] > │ %A{v488}" │
00:06:50 #37910 [verbose] > │ let v506 : bool = v504 = false │
00:06:50 #37911 [verbose] > │ if v506 then │
00:06:50 #37912 [verbose] > │ failwith<unit> v505 │
00:06:50 #37913 [verbose] > │ let v507 : string = $"%A{v440}" │
00:06:50 #37914 [verbose] > │ System.Console.WriteLine v507 │
00:06:50 #37915 [verbose] > │ let v508 : bool = v440 <= v499 │
00:06:50 #37916 [verbose] > │ let v510 : bool = │
00:06:50 #37917 [verbose] > │ if v508 then │
00:06:50 #37918 [verbose] > │ true │
00:06:50 #37919 [verbose] > │ else │
00:06:50 #37920 [verbose] > │ method15(v508) │
00:06:50 #37921 [verbose] > │ let v511 : string = $"__expect / actual: %A{v440} / expected: │
00:06:50 #37922 [verbose] > │ %A{v499}" │
00:06:50 #37923 [verbose] > │ let v512 : bool = v510 = false │
00:06:50 #37924 [verbose] > │ if v512 then │
00:06:50 #37925 [verbose] > │ failwith<unit> v511 │
00:06:50 #37926 [verbose] > │ let v513 : string = $"__expect / actual: %A{v440} / expected: │
00:06:50 #37927 [verbose] > │ %A{struct (v488, v499)}" │
00:06:50 #37928 [verbose] > │ let v514 : string = method16() │
00:06:50 #37929 [verbose] > │ let v515 : string = $"%A{v441}" │
00:06:50 #37930 [verbose] > │ System.Console.WriteLine v515 │
00:06:50 #37931 [verbose] > │ let v516 : bool = v441 = v514 │
00:06:50 #37932 [verbose] > │ let v518 : bool = │
00:06:50 #37933 [verbose] > │ if v516 then │
00:06:50 #37934 [verbose] > │ true │
00:06:50 #37935 [verbose] > │ else │
00:06:50 #37936 [verbose] > │ method15(v516) │
00:06:50 #37937 [verbose] > │ let v519 : string = $"__expect / actual: %A{v441} / expected: │
00:06:50 #37938 [verbose] > │ %A{v514}" │
00:06:50 #37939 [verbose] > │ let v520 : bool = v518 = false │
00:06:50 #37940 [verbose] > │ if v520 then │
00:06:50 #37941 [verbose] > │ failwith<unit> v519 │
00:06:50 #37942 [verbose] > │ true │
00:06:50 #37943 [verbose] > │ | _ -> │
00:06:50 #37944 [verbose] > │ false │
00:06:50 #37945 [verbose] > │ let v522 : string = $"%A{v521}" │
00:06:50 #37946 [verbose] > │ System.Console.WriteLine v522 │
00:06:50 #37947 [verbose] > │ let v524 : bool = │
00:06:50 #37948 [verbose] > │ if v521 then │
00:06:50 #37949 [verbose] > │ true │
00:06:50 #37950 [verbose] > │ else │
00:06:50 #37951 [verbose] > │ method15(v521) │
00:06:50 #37952 [verbose] > │ let v525 : string = $"__expect / actual: %A{v521} / expected: %A{true}" │
00:06:50 #37953 [verbose] > │ let v526 : bool = v524 = false │
00:06:50 #37954 [verbose] > │ if v526 then │
00:06:50 #37955 [verbose] > │ failwith<unit> v525 │
00:06:50 #37956 [verbose] > │ method0() │
00:06:50 #37957 [verbose] > │ │
00:06:50 #37958 [verbose] > │ 00:00:00 #1 [debug] 1 │
00:06:50 #37959 [verbose] > │ 00:00:00 #2 [debug] 2 │
00:06:50 #37960 [verbose] > │ 00:00:00 #3 [debug] 3 │
00:06:50 #37961 [verbose] > │ 00:00:00 #4 [debug] _1 │
00:06:50 #37962 [verbose] > │ 00:00:00 #5 [debug] _2 │
00:06:50 #37963 [verbose] > │ 00:00:00 #6 [debug] 4 │
00:06:50 #37964 [verbose] > │ 00:00:00 #7 [warning] move_file_async / old_path: test.txt / new_path: │
00:06:50 #37965 [verbose] > │ test2.txt / ex: System.IO.IOException: The process cannot access the file │
00:06:50 #37966 [verbose] > │ because it is being used by another process. │
00:06:50 #37967 [verbose] > │ 00:00:01 #8 [warning] move_file_async / old_path: test.txt / new_path: │
00:06:50 #37968 [verbose] > │ test2.txt / ex: System.IO.IOException: The process cannot access the file │
00:06:50 #37969 [verbose] > │ because it is being used by another process. │
00:06:50 #37970 [verbose] > │ 00:00:02 #9 [debug] _3 │
00:06:50 #37971 [verbose] > │ 00:00:02 #10 [debug] 5 │
00:06:50 #37972 [verbose] > │ 00:00:02 #11 [debug] 6 │
00:06:50 #37973 [verbose] > │ 00:00:02 #12 [debug] 7 │
00:06:50 #37974 [verbose] > │ 00:00:02 #13 [debug] 8 │
00:06:50 #37975 [verbose] > │ 114L │
00:06:50 #37976 [verbose] > │ 114L │
00:06:50 #37977 [verbose] > │ 114L │
00:06:50 #37978 [verbose] > │ 0L │
00:06:50 #37979 [verbose] > │ 0L │
00:06:50 #37980 [verbose] > │ 0L │
00:06:50 #37981 [verbose] > │ "0" │
00:06:50 #37982 [verbose] > │ true │
00:06:50 #37983 [verbose] > │ │
00:06:50 #37984 [verbose] > ╰──────────────────────────────────────────────────────────────────────────────╯
00:06:50 #37985 [verbose] >
00:06:50 #37986 [verbose] > ── markdown ────────────────────────────────────────────────────────────────────
00:06:50 #37987 [verbose] > ╭──────────────────────────────────────────────────────────────────────────────╮
00:06:50 #37988 [verbose] > │ ## find_parent │
00:06:50 #37989 [verbose] > ╰──────────────────────────────────────────────────────────────────────────────╯
00:06:50 #37990 [verbose] >
00:06:50 #37991 [verbose] > ── spiral ──────────────────────────────────────────────────────────────────────
00:06:50 #37992 [verbose] > inl find_parent name is_file root_dir =
00:06:50 #37993 [verbose] > let rec loop dir =
00:06:50 #37994 [verbose] > if dir </> name |> (if is_file then file_exists else directory_exists)
00:06:50 #37995 [verbose] > then dir
00:06:50 #37996 [verbose] > else
00:06:50 #37997 [verbose] > inl result = dir |> (join directory_get_parent)
00:06:50 #37998 [verbose] > match result |> optionm'.unbox with
00:06:50 #37999 [verbose] > | Some parent => parent |> loop
00:06:50 #38000 [verbose] > | None => failwith $'$"""No parent for {if !is_file then "file" else
00:06:50 #38001 [verbose] > "dir"} \'{!name}\' at \'{!root_dir}\' (until \'{!dir}\')"""'
00:06:50 #38002 [verbose] > loop root_dir
00:06:50 #38003 [verbose] > Building c:\home\git\polyglot\target\polyglot\spiral_eval\packages\42b15424d59d588f76decdc860c01bf649f766d756d890cd8c85fbacbe9876f2\main.spi
00:06:51 #38004 [verbose] >
00:06:51 #38005 [verbose] > ╭─[ 265.45ms - stdout ]────────────────────────────────────────────────────────╮
00:06:51 #38006 [verbose] > │ () │
00:06:51 #38007 [verbose] > │ │
00:06:51 #38008 [verbose] > │ │
00:06:51 #38009 [verbose] > ╰──────────────────────────────────────────────────────────────────────────────╯
00:06:51 #38010 [verbose] >
00:06:51 #38011 [verbose] > ── spiral ──────────────────────────────────────────────────────────────────────
00:06:51 #38012 [verbose] > // // test
00:06:51 #38013 [verbose] > // // print_code=false
00:06:51 #38014 [verbose] >
00:06:51 #38015 [verbose] > a ;[[ ".paket", false; "paket.dependencies", true ]]
00:06:51 #38016 [verbose] > |> am.map fun (file, is_file) =>
00:06:51 #38017 [verbose] > get_source_directory ()
00:06:51 #38018 [verbose] > |> find_parent file is_file
00:06:51 #38019 [verbose] > |> directory_info
00:06:51 #38020 [verbose] > |> directory_info_name
00:06:51 #38021 [verbose] > |> am'.distinct
00:06:51 #38022 [verbose] > |> _assert_eq (a ;[[ "polyglot" ]] : _ i32 _)
00:06:51 #38023 [verbose] > Building c:\home\git\polyglot\target\polyglot\spiral_eval\packages\af24989bed67ef8846c560812801c04daa0c71a787fcb7dd96923c42a5dfa196\main.spi
00:06:51 #38024 [verbose] >
00:06:51 #38025 [verbose] > ╭─[ 348.25ms - stdout ]────────────────────────────────────────────────────────╮
00:06:51 #38026 [verbose] > │ [|"polyglot"|] │
00:06:51 #38027 [verbose] > │ │
00:06:51 #38028 [verbose] > ╰──────────────────────────────────────────────────────────────────────────────╯
00:06:51 #38029 [verbose] >
00:06:51 #38030 [verbose] > ── spiral ──────────────────────────────────────────────────────────────────────
00:06:51 #38031 [verbose] > // // test
00:06:51 #38032 [verbose] > // // rust=
00:06:51 #38033 [verbose] > // // print_code=false
00:06:51 #38034 [verbose] >
00:06:51 #38035 [verbose] > types ()
00:06:51 #38036 [verbose] > a ;[[ ".paket", false; "paket.dependencies", true ]]
00:06:51 #38037 [verbose] > |> am.map fun (file, is_file) =>
00:06:51 #38038 [verbose] > fun () =>
00:06:51 #38039 [verbose] > join
00:06:51 #38040 [verbose] > get_source_directory ()
00:06:51 #38041 [verbose] > |> find_parent file is_file
00:06:51 #38042 [verbose] > |> new_path_buf
00:06:51 #38043 [verbose] > |> path_buf_file_name
00:06:51 #38044 [verbose] > |> optionm'.try'
00:06:51 #38045 [verbose] > |> sm'.to_os_string
00:06:51 #38046 [verbose] > |> sm'.os_to_str
00:06:51 #38047 [verbose] > |> optionm'.try'
00:06:51 #38048 [verbose] > |> sm'.ref_to_std_string
00:06:51 #38049 [verbose] > |> sm'.from_std_string
00:06:51 #38050 [verbose] > |> Some
00:06:51 #38051 [verbose] > |> optionm'.box
00:06:51 #38052 [verbose] > |> fun x => x () |> optionm'.unbox
00:06:51 #38053 [verbose] > |> optionm'.default_value ""
00:06:51 #38054 [verbose] > |> am'.distinct
00:06:51 #38055 [verbose] > |> fun result =>
00:06:51 #38056 [verbose] > result |> am'.length |> _assert_eq 1i32
00:06:51 #38057 [verbose] > index result 0i32 |> _assert_eq "polyglot"
00:06:51 #38058 [verbose] > Building c:\home\git\polyglot\target\polyglot\spiral_eval\packages\2ab744a27c3a56c4c5120faf46d3536c4f54bb44f2343e49096012d0926d2e69\main.spi
00:06:58 #38059 [verbose] >
00:06:58 #38060 [verbose] > ╭─[ 6.67s - return value ]─────────────────────────────────────────────────────╮
00:06:58 #38061 [verbose] > │ 1 │
00:06:58 #38062 [verbose] > │ "polyglot" │
00:06:58 #38063 [verbose] > │ │
00:06:58 #38064 [verbose] > │ │
00:06:58 #38065 [verbose] > │ │
00:06:58 #38066 [verbose] > ╰──────────────────────────────────────────────────────────────────────────────╯
00:06:58 #38067 [verbose] >
00:06:58 #38068 [verbose] > ── markdown ────────────────────────────────────────────────────────────────────
00:06:58 #38069 [verbose] > ╭──────────────────────────────────────────────────────────────────────────────╮
00:06:58 #38070 [verbose] > │ ## main │
00:06:58 #38071 [verbose] > ╰──────────────────────────────────────────────────────────────────────────────╯
00:06:58 #38072 [verbose] >
00:06:58 #38073 [verbose] > ── spiral ──────────────────────────────────────────────────────────────────────
00:06:58 #38074 [verbose] > inl main () =
00:06:58 #38075 [verbose] > types ()
00:06:58 #38076 [verbose] > run_target function
00:06:58 #38077 [verbose] > | Fsharp (Native) => fun () =>
00:06:58 #38078 [verbose] > $"let delete_directory_async x = !delete_directory_async x" : ()
00:06:58 #38079 [verbose] > $"let wait_for_file_access x = !wait_for_file_access x" : ()
00:06:58 #38080 [verbose] > $"let wait_for_file_access_read x = !wait_for_file_access_read x" :
00:06:58 #38081 [verbose] > ()
00:06:58 #38082 [verbose] > $"let read_all_text_async x = !read_all_text_async x" : ()
00:06:58 #38083 [verbose] > $"let file_exists_content x = !file_exists_content x" : ()
00:06:58 #38084 [verbose] > $"let write_all_text_async x = !write_all_text_async x" : ()
00:06:58 #38085 [verbose] > $"let write_all_text_exists x = !write_all_text_exists x" : ()
00:06:58 #38086 [verbose] > $"let delete_file_async x = !delete_file_async x" : ()
00:06:58 #38087 [verbose] > $"let move_file_async x = !move_file_async x" : ()
00:06:58 #38088 [verbose] > $"let read_all_text_retry_async x = !read_all_text_retry_async x" :
00:06:58 #38089 [verbose] > ()
00:06:58 #38090 [verbose] > | _ => fun () => ()
00:06:58 #38091 [verbose] > $"let create_temp_directory_name () = !create_temp_directory_name ()" : ()
00:06:58 #38092 [verbose] > $"let create_temp_directory () = !create_temp_directory ()" : ()
00:06:58 #38093 [verbose] > $"let get_source_directory () = !get_source_directory ()" : ()
00:06:58 #38094 [verbose] > $"let find_parent x = !find_parent x" : ()
00:06:58 #38095 [verbose] > inl combine x = (</>) x
00:06:58 #38096 [verbose] > $"let (</>) x = !combine x" : ()
00:06:58 #38097 [verbose] > Building c:\home\git\polyglot\target\polyglot\spiral_eval\packages\64f310846b531f312f55f9a3a7d985e1b45d089b2cd4a76681959e33b65f2960\main.spi
00:06:59 #38098 [verbose] >
00:06:59 #38099 [verbose] > ╭─[ 955.16ms - stdout ]────────────────────────────────────────────────────────╮
00:06:59 #38100 [verbose] > │ #if FABLE_COMPILER // file_system.types │
00:06:59 #38101 [verbose] > │ [<Fable.Core.Erase; Fable.Core.Emit("str")>] type Str = class end │
00:06:59 #38102 [verbose] > │ [<Fable.Core.Erase; Fable.Core.Emit("base64::DecodeError")>] type │
00:06:59 #38103 [verbose] > │ base64_DecodeError = class end │
00:06:59 #38104 [verbose] > │ [<Fable.Core.Erase; Fable.Core.Emit("borsh::io::Error")>] type │
00:06:59 #38105 [verbose] > │ borsh_io_Error = class end │
00:06:59 #38106 [verbose] > │ [<Fable.Core.Erase; Fable.Core.Emit("js_sys::JsString")>] type │
00:06:59 #38107 [verbose] > │ js_sys_JsString = class end │
00:06:59 #38108 [verbose] > │ [<Fable.Core.Erase; Fable.Core.Emit("serde_json::Error")>] type │
00:06:59 #38109 [verbose] > │ serde_json_Error = class end │
00:06:59 #38110 [verbose] > │ [<Fable.Core.Erase; Fable.Core.Emit("serde_json::Value")>] type │
00:06:59 #38111 [verbose] > │ serde_json_Value = class end │
00:06:59 #38112 [verbose] > │ [<Fable.Core.Erase; Fable.Core.Emit("serde_wasm_bindgen::Error")>] type │
00:06:59 #38113 [verbose] > │ serde_wasm_bindgen_Error = class end │
00:06:59 #38114 [verbose] > │ [<Fable.Core.Erase; Fable.Core.Emit("std::ffi::OsStr")>] type std_ffi_OsStr │
00:06:59 #38115 [verbose] > │ = class end │
00:06:59 #38116 [verbose] > │ [<Fable.Core.Erase; Fable.Core.Emit("std::ffi::OsString")>] type │
00:06:59 #38117 [verbose] > │ std_ffi_OsString = class end │
00:06:59 #38118 [verbose] > │ [<Fable.Core.Erase; Fable.Core.Emit("std::str::Utf8Error")>] type │
00:06:59 #38119 [verbose] > │ std_str_Utf8Error = class end │
00:06:59 #38120 [verbose] > │ [<Fable.Core.Erase; Fable.Core.Emit("std::string::String")>] type │
00:06:59 #38121 [verbose] > │ std_string_String = class end │
00:06:59 #38122 [verbose] > │ [<Fable.Core.Erase; Fable.Core.Emit("Func0<$0>")>] type Func0<'T> = class │
00:06:59 #38123 [verbose] > │ end │
00:06:59 #38124 [verbose] > │ [<Fable.Core.Erase; Fable.Core.Emit("Func1<$0, $1>")>] type Func0<'T, 'U> = │
00:06:59 #38125 [verbose] > │ class end │
00:06:59 #38126 [verbose] > │ [<Fable.Core.Erase; Fable.Core.Emit("Box<$0>")>] type Box<'T> = class end │
00:06:59 #38127 [verbose] > │ [<Fable.Core.Erase; Fable.Core.Emit("dyn $0")>] type Dyn<'T> = class end │
00:06:59 #38128 [verbose] > │ [<Fable.Core.Erase; Fable.Core.Emit("Fn() -> $0")>] type Fn<'T> = class end │
00:06:59 #38129 [verbose] > │ [<Fable.Core.Erase; Fable.Core.Emit("Fn()")>] type FnUnit = class end │
00:06:59 #38130 [verbose] > │ [<Fable.Core.Erase; Fable.Core.Emit("FnOnce() -> $0")>] type FnOnce<'T> = │
00:06:59 #38131 [verbose] > │ class end │
00:06:59 #38132 [verbose] > │ [<Fable.Core.Erase; Fable.Core.Emit("Fn($0, $1)")>] type ActionFn2<'T, 'U> = │
00:06:59 #38133 [verbose] > │ class end │
00:06:59 #38134 [verbose] > │ [<Fable.Core.Erase; Fable.Core.Emit("impl $0")>] type Impl<'T> = class end │
00:06:59 #38135 [verbose] > │ [<Fable.Core.Erase; Fable.Core.Emit("mut $0")>] type Mut<'T> = class end │
00:06:59 #38136 [verbose] > │ [<Fable.Core.Erase; Fable.Core.Emit("&$0")>] type Ref<'T> = class end │
00:06:59 #38137 [verbose] > │ [<Fable.Core.Erase; Fable.Core.Emit("&'static $0")>] type StaticRef<'T> = │
00:06:59 #38138 [verbose] > │ class end │
00:06:59 #38139 [verbose] > │ [<Fable.Core.Erase; Fable.Core.Emit("MutCell<$0>")>] type MutCell<'T> = │
00:06:59 #38140 [verbose] > │ class end │
00:06:59 #38141 [verbose] > │ [<Fable.Core.Erase; Fable.Core.Emit("std::any::Any")>] type std_any_Any = │
00:06:59 #38142 [verbose] > │ class end │
00:06:59 #38143 [verbose] > │ [<Fable.Core.Erase; Fable.Core.Emit("std::cell::RefCell<$0>")>] type │
00:06:59 #38144 [verbose] > │ std_cell_RefCell<'T> = class end │
00:06:59 #38145 [verbose] > │ [<Fable.Core.Erase; Fable.Core.Emit("std::pin::Pin<$0>")>] type │
00:06:59 #38146 [verbose] > │ std_pin_Pin<'T> = class end │
00:06:59 #38147 [verbose] > │ [<Fable.Core.Erase; Fable.Core.Emit("std::rc::Rc<$0>")>] type std_rc_Rc<'T> │
00:06:59 #38148 [verbose] > │ = class end │
00:06:59 #38149 [verbose] > │ [<Fable.Core.Erase; Fable.Core.Emit("std::rc::Weak<$0>")>] type │
00:06:59 #38150 [verbose] > │ std_rc_Weak<'T> = class end │
00:06:59 #38151 [verbose] > │ [<Fable.Core.Erase; Fable.Core.Emit("std::sync::Arc<$0>")>] type │
00:06:59 #38152 [verbose] > │ std_sync_Arc<'T> = class end │
00:06:59 #38153 [verbose] > │ [<Fable.Core.Erase; Fable.Core.Emit("std::path::Path")>] type std_path_Path │
00:06:59 #38154 [verbose] > │ = class end │
00:06:59 #38155 [verbose] > │ [<Fable.Core.Erase; Fable.Core.Emit("std::path::PathBuf")>] type │
00:06:59 #38156 [verbose] > │ std_path_PathBuf = class end │
00:06:59 #38157 [verbose] > │ #endif // file_system.types │
00:06:59 #38158 [verbose] > │ type IFsExistsSync = abstract existsSync: path: string -> bool │
00:06:59 #38159 [verbose] > │ module State = let mutable trace_state = None │
00:06:59 #38160 [verbose] > │ type IPathJoin = abstract join: [<System.ParamArray>] paths: string[] -> │
00:06:59 #38161 [verbose] > │ string │
00:06:59 #38162 [verbose] > │ type IPathDirname = abstract dirname: path: string -> string │
00:06:59 #38163 [verbose] > │ type [<Struct>] US1 = │
00:06:59 #38164 [verbose] > │ | US1_0 │
00:06:59 #38165 [verbose] > │ | US1_1 │
00:06:59 #38166 [verbose] > │ | US1_2 │
00:06:59 #38167 [verbose] > │ and [<Struct>] US2 = │
00:06:59 #38168 [verbose] > │ | US2_0 │
00:06:59 #38169 [verbose] > │ | US2_1 │
00:06:59 #38170 [verbose] > │ | US2_2 │
00:06:59 #38171 [verbose] > │ | US2_3 │
00:06:59 #38172 [verbose] > │ | US2_4 │
00:06:59 #38173 [verbose] > │ and [<Struct>] US0 = │
00:06:59 #38174 [verbose] > │ | US0_0 of f0_0 : US1 * f0_1 : US2 │
00:06:59 #38175 [verbose] > │ | US0_1 │
00:06:59 #38176 [verbose] > │ and [<Struct>] US3 = │
00:06:59 #38177 [verbose] > │ | US3_0 │
00:06:59 #38178 [verbose] > │ | US3_1 │
00:06:59 #38179 [verbose] > │ | US3_2 │
00:06:59 #38180 [verbose] > │ | US3_3 │
00:06:59 #38181 [verbose] > │ | US3_4 │
00:06:59 #38182 [verbose] > │ and Mut0 = {mutable l0 : int64} │
00:06:59 #38183 [verbose] > │ and Mut1 = {mutable l0 : bool} │
00:06:59 #38184 [verbose] > │ and Mut2 = {mutable l0 : US3} │
00:06:59 #38185 [verbose] > │ and [<Struct>] US4 = │
00:06:59 #38186 [verbose] > │ | US4_0 of f0_0 : int64 │
00:06:59 #38187 [verbose] > │ | US4_1 │
00:06:59 #38188 [verbose] > │ and [<Struct>] US5 = │
00:06:59 #38189 [verbose] > │ | US5_0 of f0_0 : int64 │
00:06:59 #38190 [verbose] > │ | US5_1 │
00:06:59 #38191 [verbose] > │ and [<Struct>] US6 = │
00:06:59 #38192 [verbose] > │ | US6_0 of f0_0 : int64 │
00:06:59 #38193 [verbose] > │ | US6_1 of f1_0 : exn │
00:06:59 #38194 [verbose] > │ and [<Struct>] US7 = │
00:06:59 #38195 [verbose] > │ | US7_0 of f0_0 : int64 │
00:06:59 #38196 [verbose] > │ | US7_1 of f1_0 : exn │
00:06:59 #38197 [verbose] > │ and [<Struct>] US8 = │
00:06:59 #38198 [verbose] > │ | US8_0 of f0_0 : string │
00:06:59 #38199 [verbose] > │ | US8_1 │
00:06:59 #38200 [verbose] > │ let rec closure2 () (v0 : string) : string = │
00:06:59 #38201 [verbose] > │ let v1 : string option = None │
00:06:59 #38202 [verbose] > │ let mutable _v1 = v1 │
00:06:59 #38203 [verbose] > │ #if FABLE_COMPILER_RUST && !WASM && !CONTRACT │
00:06:59 #38204 [verbose] > │ let v2 : string = null |> unbox<string> │
00:06:59 #38205 [verbose] > │ v2 │
00:06:59 #38206 [verbose] > │ #endif │
00:06:59 #38207 [verbose] > │ #if FABLE_COMPILER_RUST && WASM │
00:06:59 #38208 [verbose] > │ let v3 : string = null |> unbox<string> │
00:06:59 #38209 [verbose] > │ v3 │
00:06:59 #38210 [verbose] > │ #endif │
00:06:59 #38211 [verbose] > │ #if FABLE_COMPILER_RUST && CONTRACT │
00:06:59 #38212 [verbose] > │ let v4 : string = null |> unbox<string> │
00:06:59 #38213 [verbose] > │ v4 │
00:06:59 #38214 [verbose] > │ #endif │
00:06:59 #38215 [verbose] > │ #if !FABLE_COMPILER && !FABLE_COMPILER_RUST && │
00:06:59 #38216 [verbose] > │ !FABLE_COMPILER_TYPESCRIPT && !WASM && !CONTRACT │
00:06:59 #38217 [verbose] > │ let v5 : (string -> string) = System.IO.Path.GetFileName │
00:06:59 #38218 [verbose] > │ let v6 : string = v5 v0 │
00:06:59 #38219 [verbose] > │ v6 │
00:06:59 #38220 [verbose] > │ #endif │
00:06:59 #38221 [verbose] > │ #if FABLE_COMPILER_TYPESCRIPT │
00:06:59 #38222 [verbose] > │ let v7 : string = null |> unbox<string> │
00:06:59 #38223 [verbose] > │ v7 │
00:06:59 #38224 [verbose] > │ #endif │
00:06:59 #38225 [verbose] > │ #if FABLE_COMPILER_PYTHON || FABLE_COMPILER_PHP || FABLE_COMPILER_DART │
00:06:59 #38226 [verbose] > │ let v8 : string = Unchecked.defaultof<string> │
00:06:59 #38227 [verbose] > │ v8 │
00:06:59 #38228 [verbose] > │ #endif │
00:06:59 #38229 [verbose] > │ |> fun x -> _v1 <- Some x │
00:06:59 #38230 [verbose] > │ let v9 : string = _v1.Value │
00:06:59 #38231 [verbose] > │ v9 │
00:06:59 #38232 [verbose] > │ and closure3 () () : string = │
00:06:59 #38233 [verbose] > │ let v0 : string = "" │
00:06:59 #38234 [verbose] > │ v0 │
00:06:59 #38235 [verbose] > │ and method1 (v0 : string, v1 : string) : string = │
00:06:59 #38236 [verbose] > │ let v2 : (string -> string) = closure2() │
00:06:59 #38237 [verbose] > │ let v3 : (unit -> string) = closure3() │
00:06:59 #38238 [verbose] > │ let v4 : string = $"path: {v0 |> v2} / ex: {v1} / {v3 ()}" │
00:06:59 #38239 [verbose] > │ v4 │
00:06:59 #38240 [verbose] > │ and closure1 (v0 : string, v1 : string) () : string = │
00:06:59 #38241 [verbose] > │ method1(v0, v1) │
00:06:59 #38242 [verbose] > │ and method0 (v0 : string, v1 : int64) : Async<int64> = │
00:06:59 #38243 [verbose] > │ let v2 : Async<int64> option = None │
00:06:59 #38244 [verbose] > │ let mutable _v2 = v2 │
00:06:59 #38245 [verbose] > │ #if FABLE_COMPILER_RUST && !WASM && !CONTRACT │
00:06:59 #38246 [verbose] > │ let v3 : Async<int64> = null |> unbox<Async<int64>> │
00:06:59 #38247 [verbose] > │ v3 │
00:06:59 #38248 [verbose] > │ #endif │
00:06:59 #38249 [verbose] > │ #if FABLE_COMPILER_RUST && WASM │
00:06:59 #38250 [verbose] > │ let v4 : Async<int64> = null |> unbox<Async<int64>> │
00:06:59 #38251 [verbose] > │ v4 │
00:06:59 #38252 [verbose] > │ #endif │
00:06:59 #38253 [verbose] > │ #if FABLE_COMPILER_RUST && CONTRACT │
00:06:59 #38254 [verbose] > │ let v5 : Async<int64> = null |> unbox<Async<int64>> │
00:06:59 #38255 [verbose] > │ v5 │
00:06:59 #38256 [verbose] > │ #endif │
00:06:59 #38257 [verbose] > │ #if !FABLE_COMPILER && !FABLE_COMPILER_RUST && │
00:06:59 #38258 [verbose] > │ !FABLE_COMPILER_TYPESCRIPT && !WASM && !CONTRACT │
00:06:59 #38259 [verbose] > │ let v6 : Async<int64> option = None │
00:06:59 #38260 [verbose] > │ let mutable _v6 = v6 │
00:06:59 #38261 [verbose] > │ async { │
00:06:59 #38262 [verbose] > │ try │
00:06:59 #38263 [verbose] > │ let v7 : unit option = None │
00:06:59 #38264 [verbose] > │ let mutable _v7 = v7 │
00:06:59 #38265 [verbose] > │ #if FABLE_COMPILER_RUST && !WASM && !CONTRACT │
00:06:59 #38266 [verbose] > │ null |> unbox<unit> │
00:06:59 #38267 [verbose] > │ () │
00:06:59 #38268 [verbose] > │ #endif │
00:06:59 #38269 [verbose] > │ #if FABLE_COMPILER_RUST && WASM │
00:06:59 #38270 [verbose] > │ null |> unbox<unit> │
00:06:59 #38271 [verbose] > │ () │
00:06:59 #38272 [verbose] > │ #endif │
00:06:59 #38273 [verbose] > │ #if FABLE_COMPILER_RUST && CONTRACT │
00:06:59 #38274 [verbose] > │ null |> unbox<unit> │
00:06:59 #38275 [verbose] > │ () │
00:06:59 #38276 [verbose] > │ #endif │
00:06:59 #38277 [verbose] > │ #if !FABLE_COMPILER && !FABLE_COMPILER_RUST && │
00:06:59 #38278 [verbose] > │ !FABLE_COMPILER_TYPESCRIPT && !WASM && !CONTRACT │
00:06:59 #38279 [verbose] > │ System.IO.Directory.Delete (v0, true) │
00:06:59 #38280 [verbose] > │ () │
00:06:59 #38281 [verbose] > │ #endif │
00:06:59 #38282 [verbose] > │ #if FABLE_COMPILER_TYPESCRIPT │
00:06:59 #38283 [verbose] > │ null |> unbox<unit> │
00:06:59 #38284 [verbose] > │ () │
00:06:59 #38285 [verbose] > │ #endif │
00:06:59 #38286 [verbose] > │ #if FABLE_COMPILER_PYTHON || FABLE_COMPILER_PHP || FABLE_COMPILER_DART │
00:06:59 #38287 [verbose] > │ Unchecked.defaultof<unit> │
00:06:59 #38288 [verbose] > │ () │
00:06:59 #38289 [verbose] > │ #endif │
00:06:59 #38290 [verbose] > │ |> fun x -> _v7 <- Some x │
00:06:59 #38291 [verbose] > │ _v7.Value │
00:06:59 #38292 [verbose] > │ return v1 │
00:06:59 #38293 [verbose] > │ with ex -> │
00:06:59 #38294 [verbose] > │ let v8 : exn = ex │
00:06:59 #38295 [verbose] > │ let v9 : int64 = v1 % 100L │
00:06:59 #38296 [verbose] > │ let v10 : bool = v9 = 0L │
00:06:59 #38297 [verbose] > │ if v10 then │
00:06:59 #38298 [verbose] > │ let v11 : string option = None │
00:06:59 #38299 [verbose] > │ let mutable _v11 = v11 │
00:06:59 #38300 [verbose] > │ #if FABLE_COMPILER_RUST && !WASM && !CONTRACT │
00:06:59 #38301 [verbose] > │ let v12 : string = $"%A{v8}" │
00:06:59 #38302 [verbose] > │ v12 │
00:06:59 #38303 [verbose] > │ #endif │
00:06:59 #38304 [verbose] > │ #if FABLE_COMPILER_RUST && WASM │
00:06:59 #38305 [verbose] > │ let v13 : string = $"%A{v8}" │
00:06:59 #38306 [verbose] > │ v13 │
00:06:59 #38307 [verbose] > │ #endif │
00:06:59 #38308 [verbose] > │ #if FABLE_COMPILER_RUST && CONTRACT │
00:06:59 #38309 [verbose] > │ let v14 : string = $"%A{v8}" │
00:06:59 #38310 [verbose] > │ v14 │
00:06:59 #38311 [verbose] > │ #endif │
00:06:59 #38312 [verbose] > │ #if !FABLE_COMPILER && !FABLE_COMPILER_RUST && │
00:06:59 #38313 [verbose] > │ !FABLE_COMPILER_TYPESCRIPT && !WASM && !CONTRACT │
00:06:59 #38314 [verbose] > │ let v15 : string = $"{v8.GetType ()}: {v8.Message}" │
00:06:59 #38315 [verbose] > │ v15 │
00:06:59 #38316 [verbose] > │ #endif │
00:06:59 #38317 [verbose] > │ #if FABLE_COMPILER_TYPESCRIPT │
00:06:59 #38318 [verbose] > │ let v16 : string = $"%A{v8}" │
00:06:59 #38319 [verbose] > │ v16 │
00:06:59 #38320 [verbose] > │ #endif │
00:06:59 #38321 [verbose] > │ #if FABLE_COMPILER_PYTHON || FABLE_COMPILER_PHP || │
00:06:59 #38322 [verbose] > │ FABLE_COMPILER_DART │
00:06:59 #38323 [verbose] > │ let v17 : string = Unchecked.defaultof<string> │
00:06:59 #38324 [verbose] > │ v17 │
00:06:59 #38325 [verbose] > │ #endif │
00:06:59 #38326 [verbose] > │ |> fun x -> _v11 <- Some x │
00:06:59 #38327 [verbose] > │ let v18 : string = _v11.Value │
00:06:59 #38328 [verbose] > │ let v19 : (unit -> string) = closure1(v0, v18) │
00:06:59 #38329 [verbose] > │ let v20 : string = $"delete_directory_async / {v19 ()}" │
00:06:59 #38330 [verbose] > │ System.Console.WriteLine v20 │
00:06:59 #38331 [verbose] > │ () │
00:06:59 #38332 [verbose] > │ let v21 : Async<unit> option = None │
00:06:59 #38333 [verbose] > │ let mutable _v21 = v21 │
00:06:59 #38334 [verbose] > │ #if FABLE_COMPILER_RUST && !WASM && !CONTRACT │
00:06:59 #38335 [verbose] > │ let v22 : Async<unit> = null |> unbox<Async<unit>> │
00:06:59 #38336 [verbose] > │ v22 │
00:06:59 #38337 [verbose] > │ #endif │
00:06:59 #38338 [verbose] > │ #if FABLE_COMPILER_RUST && WASM │
00:06:59 #38339 [verbose] > │ let v23 : Async<unit> = null |> unbox<Async<unit>> │
00:06:59 #38340 [verbose] > │ v23 │
00:06:59 #38341 [verbose] > │ #endif │
00:06:59 #38342 [verbose] > │ #if FABLE_COMPILER_RUST && CONTRACT │
00:06:59 #38343 [verbose] > │ let v24 : Async<unit> = null |> unbox<Async<unit>> │
00:06:59 #38344 [verbose] > │ v24 │
00:06:59 #38345 [verbose] > │ #endif │
00:06:59 #38346 [verbose] > │ #if !FABLE_COMPILER && !FABLE_COMPILER_RUST && │
00:06:59 #38347 [verbose] > │ !FABLE_COMPILER_TYPESCRIPT && !WASM && !CONTRACT │
00:06:59 #38348 [verbose] > │ let v25 : (int32 -> Async<unit>) = Async.Sleep │
00:06:59 #38349 [verbose] > │ let v26 : Async<unit> = v25 10 │
00:06:59 #38350 [verbose] > │ v26 │
00:06:59 #38351 [verbose] > │ #endif │
00:06:59 #38352 [verbose] > │ #if FABLE_COMPILER_TYPESCRIPT │
00:06:59 #38353 [verbose] > │ let v27 : Async<unit> = null |> unbox<Async<unit>> │
00:06:59 #38354 [verbose] > │ v27 │
00:06:59 #38355 [verbose] > │ #endif │
00:06:59 #38356 [verbose] > │ #if FABLE_COMPILER_PYTHON || FABLE_COMPILER_PHP || FABLE_COMPILER_DART │
00:06:59 #38357 [verbose] > │ let v28 : Async<unit> = Unchecked.defaultof<Async<unit>> │
00:06:59 #38358 [verbose] > │ v28 │
00:06:59 #38359 [verbose] > │ #endif │
00:06:59 #38360 [verbose] > │ |> fun x -> _v21 <- Some x │
00:06:59 #38361 [verbose] > │ let v29 : Async<unit> = _v21.Value │
00:06:59 #38362 [verbose] > │ do! v29 │
00:06:59 #38363 [verbose] > │ let v30 : int64 = v1 + 1L │
00:06:59 #38364 [verbose] > │ let v31 : Async<int64> = method0(v0, v30) │
00:06:59 #38365 [verbose] > │ return! v31 │
00:06:59 #38366 [verbose] > │ (* │
00:06:59 #38367 [verbose] > │ let v32 : int64 = *) │
00:06:59 #38368 [verbose] > │ } │
00:06:59 #38369 [verbose] > │ |> fun x -> _v6 <- Some x │
00:06:59 #38370 [verbose] > │ let v33 : Async<int64> = _v6 |> Option.get │
00:06:59 #38371 [verbose] > │ v33 │
00:06:59 #38372 [verbose] > │ #endif │
00:06:59 #38373 [verbose] > │ #if FABLE_COMPILER_TYPESCRIPT │
00:06:59 #38374 [verbose] > │ let v34 : Async<int64> = null |> unbox<Async<int64>> │
00:06:59 #38375 [verbose] > │ v34 │
00:06:59 #38376 [verbose] > │ #endif │
00:06:59 #38377 [verbose] > │ #if FABLE_COMPILER_PYTHON || FABLE_COMPILER_PHP || FABLE_COMPILER_DART │
00:06:59 #38378 [verbose] > │ let v35 : Async<int64> = Unchecked.defaultof<Async<int64>> │
00:06:59 #38379 [verbose] > │ v35 │
00:06:59 #38380 [verbose] > │ #endif │
00:06:59 #38381 [verbose] > │ |> fun x -> _v2 <- Some x │
00:06:59 #38382 [verbose] > │ let v36 : Async<int64> = _v2.Value │
00:06:59 #38383 [verbose] > │ v36 │
00:06:59 #38384 [verbose] > │ and closure0 () (v0 : string) : Async<int64> = │
00:06:59 #38385 [verbose] > │ let v1 : Async<int64> option = None │
00:06:59 #38386 [verbose] > │ let mutable _v1 = v1 │
00:06:59 #38387 [verbose] > │ #if FABLE_COMPILER_RUST && !WASM && !CONTRACT │
00:06:59 #38388 [verbose] > │ let v2 : Async<int64> = null |> unbox<Async<int64>> │
00:06:59 #38389 [verbose] > │ v2 │
00:06:59 #38390 [verbose] > │ #endif │
00:06:59 #38391 [verbose] > │ #if FABLE_COMPILER_RUST && WASM │
00:06:59 #38392 [verbose] > │ let v3 : Async<int64> = null |> unbox<Async<int64>> │
00:06:59 #38393 [verbose] > │ v3 │
00:06:59 #38394 [verbose] > │ #endif │
00:06:59 #38395 [verbose] > │ #if FABLE_COMPILER_RUST && CONTRACT │
00:06:59 #38396 [verbose] > │ let v4 : Async<int64> = null |> unbox<Async<int64>> │
00:06:59 #38397 [verbose] > │ v4 │
00:06:59 #38398 [verbose] > │ #endif │
00:06:59 #38399 [verbose] > │ #if !FABLE_COMPILER && !FABLE_COMPILER_RUST && │
00:06:59 #38400 [verbose] > │ !FABLE_COMPILER_TYPESCRIPT && !WASM && !CONTRACT │
00:06:59 #38401 [verbose] > │ let v5 : int64 = 0L │
00:06:59 #38402 [verbose] > │ let v6 : Async<int64> = method0(v0, v5) │
00:06:59 #38403 [verbose] > │ v6 │
00:06:59 #38404 [verbose] > │ #endif │
00:06:59 #38405 [verbose] > │ #if FABLE_COMPILER_TYPESCRIPT │
00:06:59 #38406 [verbose] > │ let v7 : Async<int64> = null |> unbox<Async<int64>> │
00:06:59 #38407 [verbose] > │ v7 │
00:06:59 #38408 [verbose] > │ #endif │
00:06:59 #38409 [verbose] > │ #if FABLE_COMPILER_PYTHON || FABLE_COMPILER_PHP || FABLE_COMPILER_DART │
00:06:59 #38410 [verbose] > │ let v8 : Async<int64> = Unchecked.defaultof<Async<int64>> │
00:06:59 #38411 [verbose] > │ v8 │
00:06:59 #38412 [verbose] > │ #endif │
00:06:59 #38413 [verbose] > │ |> fun x -> _v1 <- Some x │
00:06:59 #38414 [verbose] > │ let v9 : Async<int64> = _v1.Value │
00:06:59 #38415 [verbose] > │ v9 │
00:06:59 #38416 [verbose] > │ and method3 (v0 : string, v1 : int64, v2 : string) : string = │
00:06:59 #38417 [verbose] > │ let v3 : (string -> string) = closure2() │
00:06:59 #38418 [verbose] > │ let v4 : (unit -> string) = closure3() │
00:06:59 #38419 [verbose] > │ let v5 : string = $"path: {v0 |> v3} / retry: {v1} / ex: {v2} / {v4 ()}" │
00:06:59 #38420 [verbose] > │ v5 │
00:06:59 #38421 [verbose] > │ and closure6 (v0 : string, v1 : int64, v2 : string) () : string = │
00:06:59 #38422 [verbose] > │ method3(v0, v1, v2) │
00:06:59 #38423 [verbose] > │ and method2 (v0 : string, v1 : US2, v2 : US1, v3 : int64) : Async<int64> = │
00:06:59 #38424 [verbose] > │ let v4 : Async<int64> option = None │
00:06:59 #38425 [verbose] > │ let mutable _v4 = v4 │
00:06:59 #38426 [verbose] > │ #if FABLE_COMPILER_RUST && !WASM && !CONTRACT │
00:06:59 #38427 [verbose] > │ let v5 : Async<int64> = null |> unbox<Async<int64>> │
00:06:59 #38428 [verbose] > │ v5 │
00:06:59 #38429 [verbose] > │ #endif │
00:06:59 #38430 [verbose] > │ #if FABLE_COMPILER_RUST && WASM │
00:06:59 #38431 [verbose] > │ let v6 : Async<int64> = null |> unbox<Async<int64>> │
00:06:59 #38432 [verbose] > │ v6 │
00:06:59 #38433 [verbose] > │ #endif │
00:06:59 #38434 [verbose] > │ #if FABLE_COMPILER_RUST && CONTRACT │
00:06:59 #38435 [verbose] > │ let v7 : Async<int64> = null |> unbox<Async<int64>> │
00:06:59 #38436 [verbose] > │ v7 │
00:06:59 #38437 [verbose] > │ #endif │
00:06:59 #38438 [verbose] > │ #if !FABLE_COMPILER && !FABLE_COMPILER_RUST && │
00:06:59 #38439 [verbose] > │ !FABLE_COMPILER_TYPESCRIPT && !WASM && !CONTRACT │
00:06:59 #38440 [verbose] > │ let v8 : Async<int64> option = None │
00:06:59 #38441 [verbose] > │ let mutable _v8 = v8 │
00:06:59 #38442 [verbose] > │ async { │
00:06:59 #38443 [verbose] > │ try │
00:06:59 #38444 [verbose] > │ let v9 : System.IO.FileStream option = None │
00:06:59 #38445 [verbose] > │ let mutable _v9 = v9 │
00:06:59 #38446 [verbose] > │ #if FABLE_COMPILER_RUST && !WASM && !CONTRACT │
00:06:59 #38447 [verbose] > │ let v10 : System.IO.FileStream = null |> unbox<System.IO.FileStream> │
00:06:59 #38448 [verbose] > │ v10 │
00:06:59 #38449 [verbose] > │ #endif │
00:06:59 #38450 [verbose] > │ #if FABLE_COMPILER_RUST && WASM │
00:06:59 #38451 [verbose] > │ let v11 : System.IO.FileStream = null |> unbox<System.IO.FileStream> │
00:06:59 #38452 [verbose] > │ v11 │
00:06:59 #38453 [verbose] > │ #endif │
00:06:59 #38454 [verbose] > │ #if FABLE_COMPILER_RUST && CONTRACT │
00:06:59 #38455 [verbose] > │ let v12 : System.IO.FileStream = null |> unbox<System.IO.FileStream> │
00:06:59 #38456 [verbose] > │ v12 │
00:06:59 #38457 [verbose] > │ #endif │
00:06:59 #38458 [verbose] > │ #if !FABLE_COMPILER && !FABLE_COMPILER_RUST && │
00:06:59 #38459 [verbose] > │ !FABLE_COMPILER_TYPESCRIPT && !WASM && !CONTRACT │
00:06:59 #38460 [verbose] > │ let v13 : System.IO.FileMode = System.IO.FileMode.Open │
00:06:59 #38461 [verbose] > │ let v19 : System.IO.FileAccess = │
00:06:59 #38462 [verbose] > │ match v2 with │
00:06:59 #38463 [verbose] > │ | US1_0 -> (* AccessRead *) │
00:06:59 #38464 [verbose] > │ let v14 : System.IO.FileAccess = System.IO.FileAccess.Read │
00:06:59 #38465 [verbose] > │ v14 │
00:06:59 #38466 [verbose] > │ | US1_2 -> (* AccessReadWrite *) │
00:06:59 #38467 [verbose] > │ let v16 : System.IO.FileAccess = System.IO.FileAccess.ReadWrite │
00:06:59 #38468 [verbose] > │ v16 │
00:06:59 #38469 [verbose] > │ | US1_1 -> (* AccessWrite *) │
00:06:59 #38470 [verbose] > │ let v15 : System.IO.FileAccess = System.IO.FileAccess.ReadWrite │
00:06:59 #38471 [verbose] > │ v15 │
00:06:59 #38472 [verbose] > │ let v29 : System.IO.FileShare = │
00:06:59 #38473 [verbose] > │ match v1 with │
00:06:59 #38474 [verbose] > │ | US2_4 -> (* ShareDelete *) │
00:06:59 #38475 [verbose] > │ let v24 : System.IO.FileShare = System.IO.FileShare.Delete │
00:06:59 #38476 [verbose] > │ v24 │
00:06:59 #38477 [verbose] > │ | US2_0 -> (* ShareNone *) │
00:06:59 #38478 [verbose] > │ let v20 : System.IO.FileShare = System.IO.FileShare.None │
00:06:59 #38479 [verbose] > │ v20 │
00:06:59 #38480 [verbose] > │ | US2_1 -> (* ShareRead *) │
00:06:59 #38481 [verbose] > │ let v21 : System.IO.FileShare = System.IO.FileShare.Read │
00:06:59 #38482 [verbose] > │ v21 │
00:06:59 #38483 [verbose] > │ | US2_3 -> (* ShareReadWrite *) │
00:06:59 #38484 [verbose] > │ let v23 : System.IO.FileShare = System.IO.FileShare.ReadWrite │
00:06:59 #38485 [verbose] > │ v23 │
00:06:59 #38486 [verbose] > │ | US2_2 -> (* ShareWrite *) │
00:06:59 #38487 [verbose] > │ let v22 : System.IO.FileShare = System.IO.FileShare.Write │
00:06:59 #38488 [verbose] > │ v22 │
00:06:59 #38489 [verbose] > │ let v30 : System.IO.FileStream = new System.IO.FileStream (v0, v13, v19, │
00:06:59 #38490 [verbose] > │ v29) │
00:06:59 #38491 [verbose] > │ v30 │
00:06:59 #38492 [verbose] > │ #endif │
00:06:59 #38493 [verbose] > │ #if FABLE_COMPILER_TYPESCRIPT │
00:06:59 #38494 [verbose] > │ let v31 : System.IO.FileStream = null |> unbox<System.IO.FileStream> │
00:06:59 #38495 [verbose] > │ v31 │
00:06:59 #38496 [verbose] > │ #endif │
00:06:59 #38497 [verbose] > │ #if FABLE_COMPILER_PYTHON || FABLE_COMPILER_PHP || FABLE_COMPILER_DART │
00:06:59 #38498 [verbose] > │ let v32 : System.IO.FileStream = │
00:06:59 #38499 [verbose] > │ Unchecked.defaultof<System.IO.FileStream> │
00:06:59 #38500 [verbose] > │ v32 │
00:06:59 #38501 [verbose] > │ #endif │
00:06:59 #38502 [verbose] > │ |> fun x -> _v9 <- Some x │
00:06:59 #38503 [verbose] > │ let v33 : System.IO.FileStream = _v9.Value │
00:06:59 #38504 [verbose] > │ use v33 = v33 │
00:06:59 #38505 [verbose] > │ let v34 : System.IO.FileStream = v33 │
00:06:59 #38506 [verbose] > │ return v3 │
00:06:59 #38507 [verbose] > │ with ex -> │
00:06:59 #38508 [verbose] > │ let v35 : exn = ex │
00:06:59 #38509 [verbose] > │ let v36 : bool = v3 > 0L │
00:06:59 #38510 [verbose] > │ let v39 : bool = │
00:06:59 #38511 [verbose] > │ if v36 then │
00:06:59 #38512 [verbose] > │ let v37 : int64 = v3 % 100L │
00:06:59 #38513 [verbose] > │ let v38 : bool = v37 = 0L │
00:06:59 #38514 [verbose] > │ v38 │
00:06:59 #38515 [verbose] > │ else │
00:06:59 #38516 [verbose] > │ false │
00:06:59 #38517 [verbose] > │ if v39 then │
00:06:59 #38518 [verbose] > │ let v40 : string option = None │
00:06:59 #38519 [verbose] > │ let mutable _v40 = v40 │
00:06:59 #38520 [verbose] > │ #if FABLE_COMPILER_RUST && !WASM && !CONTRACT │
00:06:59 #38521 [verbose] > │ let v41 : string = $"%A{v35}" │
00:06:59 #38522 [verbose] > │ v41 │
00:06:59 #38523 [verbose] > │ #endif │
00:06:59 #38524 [verbose] > │ #if FABLE_COMPILER_RUST && WASM │
00:06:59 #38525 [verbose] > │ let v42 : string = $"%A{v35}" │
00:06:59 #38526 [verbose] > │ v42 │
00:06:59 #38527 [verbose] > │ #endif │
00:06:59 #38528 [verbose] > │ #if FABLE_COMPILER_RUST && CONTRACT │
00:06:59 #38529 [verbose] > │ let v43 : string = $"%A{v35}" │
00:06:59 #38530 [verbose] > │ v43 │
00:06:59 #38531 [verbose] > │ #endif │
00:06:59 #38532 [verbose] > │ #if !FABLE_COMPILER && !FABLE_COMPILER_RUST && │
00:06:59 #38533 [verbose] > │ !FABLE_COMPILER_TYPESCRIPT && !WASM && !CONTRACT │
00:06:59 #38534 [verbose] > │ let v44 : string = $"{v35.GetType ()}: {v35.Message}" │
00:06:59 #38535 [verbose] > │ v44 │
00:06:59 #38536 [verbose] > │ #endif │
00:06:59 #38537 [verbose] > │ #if FABLE_COMPILER_TYPESCRIPT │
00:06:59 #38538 [verbose] > │ let v45 : string = $"%A{v35}" │
00:06:59 #38539 [verbose] > │ v45 │
00:06:59 #38540 [verbose] > │ #endif │
00:06:59 #38541 [verbose] > │ #if FABLE_COMPILER_PYTHON || FABLE_COMPILER_PHP || │
00:06:59 #38542 [verbose] > │ FABLE_COMPILER_DART │
00:06:59 #38543 [verbose] > │ let v46 : string = Unchecked.defaultof<string> │
00:06:59 #38544 [verbose] > │ v46 │
00:06:59 #38545 [verbose] > │ #endif │
00:06:59 #38546 [verbose] > │ |> fun x -> _v40 <- Some x │
00:06:59 #38547 [verbose] > │ let v47 : string = _v40.Value │
00:06:59 #38548 [verbose] > │ let v48 : (unit -> string) = closure6(v0, v3, v47) │
00:06:59 #38549 [verbose] > │ let v49 : string = $"wait_for_file_access / {v48 ()}" │
00:06:59 #38550 [verbose] > │ System.Console.WriteLine v49 │
00:06:59 #38551 [verbose] > │ () │
00:06:59 #38552 [verbose] > │ let v50 : Async<unit> option = None │
00:06:59 #38553 [verbose] > │ let mutable _v50 = v50 │
00:06:59 #38554 [verbose] > │ #if FABLE_COMPILER_RUST && !WASM && !CONTRACT │
00:06:59 #38555 [verbose] > │ let v51 : Async<unit> = null |> unbox<Async<unit>> │
00:06:59 #38556 [verbose] > │ v51 │
00:06:59 #38557 [verbose] > │ #endif │
00:06:59 #38558 [verbose] > │ #if FABLE_COMPILER_RUST && WASM │
00:06:59 #38559 [verbose] > │ let v52 : Async<unit> = null |> unbox<Async<unit>> │
00:06:59 #38560 [verbose] > │ v52 │
00:06:59 #38561 [verbose] > │ #endif │
00:06:59 #38562 [verbose] > │ #if FABLE_COMPILER_RUST && CONTRACT │
00:06:59 #38563 [verbose] > │ let v53 : Async<unit> = null |> unbox<Async<unit>> │
00:06:59 #38564 [verbose] > │ v53 │
00:06:59 #38565 [verbose] > │ #endif │
00:06:59 #38566 [verbose] > │ #if !FABLE_COMPILER && !FABLE_COMPILER_RUST && │
00:06:59 #38567 [verbose] > │ !FABLE_COMPILER_TYPESCRIPT && !WASM && !CONTRACT │
00:06:59 #38568 [verbose] > │ let v54 : (int32 -> Async<unit>) = Async.Sleep │
00:06:59 #38569 [verbose] > │ let v55 : Async<unit> = v54 10 │
00:06:59 #38570 [verbose] > │ v55 │
00:06:59 #38571 [verbose] > │ #endif │
00:06:59 #38572 [verbose] > │ #if FABLE_COMPILER_TYPESCRIPT │
00:06:59 #38573 [verbose] > │ let v56 : Async<unit> = null |> unbox<Async<unit>> │
00:06:59 #38574 [verbose] > │ v56 │
00:06:59 #38575 [verbose] > │ #endif │
00:06:59 #38576 [verbose] > │ #if FABLE_COMPILER_PYTHON || FABLE_COMPILER_PHP || FABLE_COMPILER_DART │
00:06:59 #38577 [verbose] > │ let v57 : Async<unit> = Unchecked.defaultof<Async<unit>> │
00:06:59 #38578 [verbose] > │ v57 │
00:06:59 #38579 [verbose] > │ #endif │
00:06:59 #38580 [verbose] > │ |> fun x -> _v50 <- Some x │
00:06:59 #38581 [verbose] > │ let v58 : Async<unit> = _v50.Value │
00:06:59 #38582 [verbose] > │ do! v58 │
00:06:59 #38583 [verbose] > │ let v59 : int64 = v3 + 1L │
00:06:59 #38584 [verbose] > │ let v60 : Async<int64> = method2(v0, v1, v2, v59) │
00:06:59 #38585 [verbose] > │ return! v60 │
00:06:59 #38586 [verbose] > │ (* │
00:06:59 #38587 [verbose] > │ let v61 : int64 = *) │
00:06:59 #38588 [verbose] > │ } │
00:06:59 #38589 [verbose] > │ |> fun x -> _v8 <- Some x │
00:06:59 #38590 [verbose] > │ let v62 : Async<int64> = _v8 |> Option.get │
00:06:59 #38591 [verbose] > │ v62 │
00:06:59 #38592 [verbose] > │ #endif │
00:06:59 #38593 [verbose] > │ #if FABLE_COMPILER_TYPESCRIPT │
00:06:59 #38594 [verbose] > │ let v63 : Async<int64> = null |> unbox<Async<int64>> │
00:06:59 #38595 [verbose] > │ v63 │
00:06:59 #38596 [verbose] > │ #endif │
00:06:59 #38597 [verbose] > │ #if FABLE_COMPILER_PYTHON || FABLE_COMPILER_PHP || FABLE_COMPILER_DART │
00:06:59 #38598 [verbose] > │ let v64 : Async<int64> = Unchecked.defaultof<Async<int64>> │
00:06:59 #38599 [verbose] > │ v64 │
00:06:59 #38600 [verbose] > │ #endif │
00:06:59 #38601 [verbose] > │ |> fun x -> _v4 <- Some x │
00:06:59 #38602 [verbose] > │ let v65 : Async<int64> = _v4.Value │
00:06:59 #38603 [verbose] > │ v65 │
00:06:59 #38604 [verbose] > │ and closure5 (v0 : US0) (v1 : string) : Async<int64> = │
00:06:59 #38605 [verbose] > │ let v2 : Async<int64> option = None │
00:06:59 #38606 [verbose] > │ let mutable _v2 = v2 │
00:06:59 #38607 [verbose] > │ #if FABLE_COMPILER_RUST && !WASM && !CONTRACT │
00:06:59 #38608 [verbose] > │ let v3 : Async<int64> = null |> unbox<Async<int64>> │
00:06:59 #38609 [verbose] > │ v3 │
00:06:59 #38610 [verbose] > │ #endif │
00:06:59 #38611 [verbose] > │ #if FABLE_COMPILER_RUST && WASM │
00:06:59 #38612 [verbose] > │ let v4 : Async<int64> = null |> unbox<Async<int64>> │
00:06:59 #38613 [verbose] > │ v4 │
00:06:59 #38614 [verbose] > │ #endif │
00:06:59 #38615 [verbose] > │ #if FABLE_COMPILER_RUST && CONTRACT │
00:06:59 #38616 [verbose] > │ let v5 : Async<int64> = null |> unbox<Async<int64>> │
00:06:59 #38617 [verbose] > │ v5 │
00:06:59 #38618 [verbose] > │ #endif │
00:06:59 #38619 [verbose] > │ #if !FABLE_COMPILER && !FABLE_COMPILER_RUST && │
00:06:59 #38620 [verbose] > │ !FABLE_COMPILER_TYPESCRIPT && !WASM && !CONTRACT │
00:06:59 #38621 [verbose] > │ let struct (v12 : US1, v13 : US2) = │
00:06:59 #38622 [verbose] > │ match v0 with │
00:06:59 #38623 [verbose] > │ | US0_1 -> (* None *) │
00:06:59 #38624 [verbose] > │ let v8 : US1 = US1_2 │
00:06:59 #38625 [verbose] > │ let v9 : US2 = US2_1 │
00:06:59 #38626 [verbose] > │ struct (v8, v9) │
00:06:59 #38627 [verbose] > │ | US0_0(v6, v7) -> (* Some *) │
00:06:59 #38628 [verbose] > │ struct (v6, v7) │
00:06:59 #38629 [verbose] > │ let v14 : int64 = 0L │
00:06:59 #38630 [verbose] > │ let v15 : Async<int64> = method2(v1, v13, v12, v14) │
00:06:59 #38631 [verbose] > │ v15 │
00:06:59 #38632 [verbose] > │ #endif │
00:06:59 #38633 [verbose] > │ #if FABLE_COMPILER_TYPESCRIPT │
00:06:59 #38634 [verbose] > │ let v16 : Async<int64> = null |> unbox<Async<int64>> │
00:06:59 #38635 [verbose] > │ v16 │
00:06:59 #38636 [verbose] > │ #endif │
00:06:59 #38637 [verbose] > │ #if FABLE_COMPILER_PYTHON || FABLE_COMPILER_PHP || FABLE_COMPILER_DART │
00:06:59 #38638 [verbose] > │ let v17 : Async<int64> = Unchecked.defaultof<Async<int64>> │
00:06:59 #38639 [verbose] > │ v17 │
00:06:59 #38640 [verbose] > │ #endif │
00:06:59 #38641 [verbose] > │ |> fun x -> _v2 <- Some x │
00:06:59 #38642 [verbose] > │ let v18 : Async<int64> = _v2.Value │
00:06:59 #38643 [verbose] > │ v18 │
00:06:59 #38644 [verbose] > │ and closure4 () (v0 : US0) : (string -> Async<int64>) = │
00:06:59 #38645 [verbose] > │ closure5(v0) │
00:06:59 #38646 [verbose] > │ and method4 (v0 : string, v1 : int64) : Async<int64> = │
00:06:59 #38647 [verbose] > │ let v2 : Async<int64> option = None │
00:06:59 #38648 [verbose] > │ let mutable _v2 = v2 │
00:06:59 #38649 [verbose] > │ #if FABLE_COMPILER_RUST && !WASM && !CONTRACT │
00:06:59 #38650 [verbose] > │ let v3 : Async<int64> = null |> unbox<Async<int64>> │
00:06:59 #38651 [verbose] > │ v3 │
00:06:59 #38652 [verbose] > │ #endif │
00:06:59 #38653 [verbose] > │ #if FABLE_COMPILER_RUST && WASM │
00:06:59 #38654 [verbose] > │ let v4 : Async<int64> = null |> unbox<Async<int64>> │
00:06:59 #38655 [verbose] > │ v4 │
00:06:59 #38656 [verbose] > │ #endif │
00:06:59 #38657 [verbose] > │ #if FABLE_COMPILER_RUST && CONTRACT │
00:06:59 #38658 [verbose] > │ let v5 : Async<int64> = null |> unbox<Async<int64>> │
00:06:59 #38659 [verbose] > │ v5 │
00:06:59 #38660 [verbose] > │ #endif │
00:06:59 #38661 [verbose] > │ #if !FABLE_COMPILER && !FABLE_COMPILER_RUST && │
00:06:59 #38662 [verbose] > │ !FABLE_COMPILER_TYPESCRIPT && !WASM && !CONTRACT │
00:06:59 #38663 [verbose] > │ let v6 : Async<int64> option = None │
00:06:59 #38664 [verbose] > │ let mutable _v6 = v6 │
00:06:59 #38665 [verbose] > │ async { │
00:06:59 #38666 [verbose] > │ try │
00:06:59 #38667 [verbose] > │ let v7 : System.IO.FileStream option = None │
00:06:59 #38668 [verbose] > │ let mutable _v7 = v7 │
00:06:59 #38669 [verbose] > │ #if FABLE_COMPILER_RUST && !WASM && !CONTRACT │
00:06:59 #38670 [verbose] > │ let v8 : System.IO.FileStream = null |> unbox<System.IO.FileStream> │
00:06:59 #38671 [verbose] > │ v8 │
00:06:59 #38672 [verbose] > │ #endif │
00:06:59 #38673 [verbose] > │ #if FABLE_COMPILER_RUST && WASM │
00:06:59 #38674 [verbose] > │ let v9 : System.IO.FileStream = null |> unbox<System.IO.FileStream> │
00:06:59 #38675 [verbose] > │ v9 │
00:06:59 #38676 [verbose] > │ #endif │
00:06:59 #38677 [verbose] > │ #if FABLE_COMPILER_RUST && CONTRACT │
00:06:59 #38678 [verbose] > │ let v10 : System.IO.FileStream = null |> unbox<System.IO.FileStream> │
00:06:59 #38679 [verbose] > │ v10 │
00:06:59 #38680 [verbose] > │ #endif │
00:06:59 #38681 [verbose] > │ #if !FABLE_COMPILER && !FABLE_COMPILER_RUST && │
00:06:59 #38682 [verbose] > │ !FABLE_COMPILER_TYPESCRIPT && !WASM && !CONTRACT │
00:06:59 #38683 [verbose] > │ let v11 : System.IO.FileMode = System.IO.FileMode.Open │
00:06:59 #38684 [verbose] > │ let v12 : System.IO.FileAccess = System.IO.FileAccess.Read │
00:06:59 #38685 [verbose] > │ let v13 : System.IO.FileShare = System.IO.FileShare.Read │
00:06:59 #38686 [verbose] > │ let v14 : System.IO.FileStream = new System.IO.FileStream (v0, v11, v12, │
00:06:59 #38687 [verbose] > │ v13) │
00:06:59 #38688 [verbose] > │ v14 │
00:06:59 #38689 [verbose] > │ #endif │
00:06:59 #38690 [verbose] > │ #if FABLE_COMPILER_TYPESCRIPT │
00:06:59 #38691 [verbose] > │ let v15 : System.IO.FileStream = null |> unbox<System.IO.FileStream> │
00:06:59 #38692 [verbose] > │ v15 │
00:06:59 #38693 [verbose] > │ #endif │
00:06:59 #38694 [verbose] > │ #if FABLE_COMPILER_PYTHON || FABLE_COMPILER_PHP || FABLE_COMPILER_DART │
00:06:59 #38695 [verbose] > │ let v16 : System.IO.FileStream = │
00:06:59 #38696 [verbose] > │ Unchecked.defaultof<System.IO.FileStream> │
00:06:59 #38697 [verbose] > │ v16 │
00:06:59 #38698 [verbose] > │ #endif │
00:06:59 #38699 [verbose] > │ |> fun x -> _v7 <- Some x │
00:06:59 #38700 [verbose] > │ let v17 : System.IO.FileStream = _v7.Value │
00:06:59 #38701 [verbose] > │ use v17 = v17 │
00:06:59 #38702 [verbose] > │ let v18 : System.IO.FileStream = v17 │
00:06:59 #38703 [verbose] > │ return v1 │
00:06:59 #38704 [verbose] > │ with ex -> │
00:06:59 #38705 [verbose] > │ let v19 : exn = ex │
00:06:59 #38706 [verbose] > │ let v20 : bool = v1 > 0L │
00:06:59 #38707 [verbose] > │ let v23 : bool = │
00:06:59 #38708 [verbose] > │ if v20 then │
00:06:59 #38709 [verbose] > │ let v21 : int64 = v1 % 100L │
00:06:59 #38710 [verbose] > │ let v22 : bool = v21 = 0L │
00:06:59 #38711 [verbose] > │ v22 │
00:06:59 #38712 [verbose] > │ else │
00:06:59 #38713 [verbose] > │ false │
00:06:59 #38714 [verbose] > │ if v23 then │
00:06:59 #38715 [verbose] > │ let v24 : string option = None │
00:06:59 #38716 [verbose] > │ let mutable _v24 = v24 │
00:06:59 #38717 [verbose] > │ #if FABLE_COMPILER_RUST && !WASM && !CONTRACT │
00:06:59 #38718 [verbose] > │ let v25 : string = $"%A{v19}" │
00:06:59 #38719 [verbose] > │ v25 │
00:06:59 #38720 [verbose] > │ #endif │
00:06:59 #38721 [verbose] > │ #if FABLE_COMPILER_RUST && WASM │
00:06:59 #38722 [verbose] > │ let v26 : string = $"%A{v19}" │
00:06:59 #38723 [verbose] > │ v26 │
00:06:59 #38724 [verbose] > │ #endif │
00:06:59 #38725 [verbose] > │ #if FABLE_COMPILER_RUST && CONTRACT │
00:06:59 #38726 [verbose] > │ let v27 : string = $"%A{v19}" │
00:06:59 #38727 [verbose] > │ v27 │
00:06:59 #38728 [verbose] > │ #endif │
00:06:59 #38729 [verbose] > │ #if !FABLE_COMPILER && !FABLE_COMPILER_RUST && │
00:06:59 #38730 [verbose] > │ !FABLE_COMPILER_TYPESCRIPT && !WASM && !CONTRACT │
00:06:59 #38731 [verbose] > │ let v28 : string = $"{v19.GetType ()}: {v19.Message}" │
00:06:59 #38732 [verbose] > │ v28 │
00:06:59 #38733 [verbose] > │ #endif │
00:06:59 #38734 [verbose] > │ #if FABLE_COMPILER_TYPESCRIPT │
00:06:59 #38735 [verbose] > │ let v29 : string = $"%A{v19}" │
00:06:59 #38736 [verbose] > │ v29 │
00:06:59 #38737 [verbose] > │ #endif │
00:06:59 #38738 [verbose] > │ #if FABLE_COMPILER_PYTHON || FABLE_COMPILER_PHP || │
00:06:59 #38739 [verbose] > │ FABLE_COMPILER_DART │
00:06:59 #38740 [verbose] > │ let v30 : string = Unchecked.defaultof<string> │
00:06:59 #38741 [verbose] > │ v30 │
00:06:59 #38742 [verbose] > │ #endif │
00:06:59 #38743 [verbose] > │ |> fun x -> _v24 <- Some x │
00:06:59 #38744 [verbose] > │ let v31 : string = _v24.Value │
00:06:59 #38745 [verbose] > │ let v32 : (unit -> string) = closure6(v0, v1, v31) │
00:06:59 #38746 [verbose] > │ let v33 : string = $"wait_for_file_access / {v32 ()}" │
00:06:59 #38747 [verbose] > │ System.Console.WriteLine v33 │
00:06:59 #38748 [verbose] > │ () │
00:06:59 #38749 [verbose] > │ let v34 : Async<unit> option = None │
00:06:59 #38750 [verbose] > │ let mutable _v34 = v34 │
00:06:59 #38751 [verbose] > │ #if FABLE_COMPILER_RUST && !WASM && !CONTRACT │
00:06:59 #38752 [verbose] > │ let v35 : Async<unit> = null |> unbox<Async<unit>> │
00:06:59 #38753 [verbose] > │ v35 │
00:06:59 #38754 [verbose] > │ #endif │
00:06:59 #38755 [verbose] > │ #if FABLE_COMPILER_RUST && WASM │
00:06:59 #38756 [verbose] > │ let v36 : Async<unit> = null |> unbox<Async<unit>> │
00:06:59 #38757 [verbose] > │ v36 │
00:06:59 #38758 [verbose] > │ #endif │
00:06:59 #38759 [verbose] > │ #if FABLE_COMPILER_RUST && CONTRACT │
00:06:59 #38760 [verbose] > │ let v37 : Async<unit> = null |> unbox<Async<unit>> │
00:06:59 #38761 [verbose] > │ v37 │
00:06:59 #38762 [verbose] > │ #endif │
00:06:59 #38763 [verbose] > │ #if !FABLE_COMPILER && !FABLE_COMPILER_RUST && │
00:06:59 #38764 [verbose] > │ !FABLE_COMPILER_TYPESCRIPT && !WASM && !CONTRACT │
00:06:59 #38765 [verbose] > │ let v38 : (int32 -> Async<unit>) = Async.Sleep │
00:06:59 #38766 [verbose] > │ let v39 : Async<unit> = v38 10 │
00:06:59 #38767 [verbose] > │ v39 │
00:06:59 #38768 [verbose] > │ #endif │
00:06:59 #38769 [verbose] > │ #if FABLE_COMPILER_TYPESCRIPT │
00:06:59 #38770 [verbose] > │ let v40 : Async<unit> = null |> unbox<Async<unit>> │
00:06:59 #38771 [verbose] > │ v40 │
00:06:59 #38772 [verbose] > │ #endif │
00:06:59 #38773 [verbose] > │ #if FABLE_COMPILER_PYTHON || FABLE_COMPILER_PHP || FABLE_COMPILER_DART │
00:06:59 #38774 [verbose] > │ let v41 : Async<unit> = Unchecked.defaultof<Async<unit>> │
00:06:59 #38775 [verbose] > │ v41 │
00:06:59 #38776 [verbose] > │ #endif │
00:06:59 #38777 [verbose] > │ |> fun x -> _v34 <- Some x │
00:06:59 #38778 [verbose] > │ let v42 : Async<unit> = _v34.Value │
00:06:59 #38779 [verbose] > │ do! v42 │
00:06:59 #38780 [verbose] > │ let v43 : int64 = v1 + 1L │
00:06:59 #38781 [verbose] > │ let v44 : Async<int64> = method4(v0, v43) │
00:06:59 #38782 [verbose] > │ return! v44 │
00:06:59 #38783 [verbose] > │ (* │
00:06:59 #38784 [verbose] > │ let v45 : int64 = *) │
00:06:59 #38785 [verbose] > │ } │
00:06:59 #38786 [verbose] > │ |> fun x -> _v6 <- Some x │
00:06:59 #38787 [verbose] > │ let v46 : Async<int64> = _v6 |> Option.get │
00:06:59 #38788 [verbose] > │ v46 │
00:06:59 #38789 [verbose] > │ #endif │
00:06:59 #38790 [verbose] > │ #if FABLE_COMPILER_TYPESCRIPT │
00:06:59 #38791 [verbose] > │ let v47 : Async<int64> = null |> unbox<Async<int64>> │
00:06:59 #38792 [verbose] > │ v47 │
00:06:59 #38793 [verbose] > │ #endif │
00:06:59 #38794 [verbose] > │ #if FABLE_COMPILER_PYTHON || FABLE_COMPILER_PHP || FABLE_COMPILER_DART │
00:06:59 #38795 [verbose] > │ let v48 : Async<int64> = Unchecked.defaultof<Async<int64>> │
00:06:59 #38796 [verbose] > │ v48 │
00:06:59 #38797 [verbose] > │ #endif │
00:06:59 #38798 [verbose] > │ |> fun x -> _v2 <- Some x │
00:06:59 #38799 [verbose] > │ let v49 : Async<int64> = _v2.Value │
00:06:59 #38800 [verbose] > │ v49 │
00:06:59 #38801 [verbose] > │ and closure7 () (v0 : string) : Async<int64> = │
00:06:59 #38802 [verbose] > │ let v1 : Async<int64> option = None │
00:06:59 #38803 [verbose] > │ let mutable _v1 = v1 │
00:06:59 #38804 [verbose] > │ #if FABLE_COMPILER_RUST && !WASM && !CONTRACT │
00:06:59 #38805 [verbose] > │ let v2 : Async<int64> = null |> unbox<Async<int64>> │
00:06:59 #38806 [verbose] > │ v2 │
00:06:59 #38807 [verbose] > │ #endif │
00:06:59 #38808 [verbose] > │ #if FABLE_COMPILER_RUST && WASM │
00:06:59 #38809 [verbose] > │ let v3 : Async<int64> = null |> unbox<Async<int64>> │
00:06:59 #38810 [verbose] > │ v3 │
00:06:59 #38811 [verbose] > │ #endif │
00:06:59 #38812 [verbose] > │ #if FABLE_COMPILER_RUST && CONTRACT │
00:06:59 #38813 [verbose] > │ let v4 : Async<int64> = null |> unbox<Async<int64>> │
00:06:59 #38814 [verbose] > │ v4 │
00:06:59 #38815 [verbose] > │ #endif │
00:06:59 #38816 [verbose] > │ #if !FABLE_COMPILER && !FABLE_COMPILER_RUST && │
00:06:59 #38817 [verbose] > │ !FABLE_COMPILER_TYPESCRIPT && !WASM && !CONTRACT │
00:06:59 #38818 [verbose] > │ let v5 : int64 = 0L │
00:06:59 #38819 [verbose] > │ let v6 : Async<int64> = method4(v0, v5) │
00:06:59 #38820 [verbose] > │ v6 │
00:06:59 #38821 [verbose] > │ #endif │
00:06:59 #38822 [verbose] > │ #if FABLE_COMPILER_TYPESCRIPT │
00:06:59 #38823 [verbose] > │ let v7 : Async<int64> = null |> unbox<Async<int64>> │
00:06:59 #38824 [verbose] > │ v7 │
00:06:59 #38825 [verbose] > │ #endif │
00:06:59 #38826 [verbose] > │ #if FABLE_COMPILER_PYTHON || FABLE_COMPILER_PHP || FABLE_COMPILER_DART │
00:06:59 #38827 [verbose] > │ let v8 : Async<int64> = Unchecked.defaultof<Async<int64>> │
00:06:59 #38828 [verbose] > │ v8 │
00:06:59 #38829 [verbose] > │ #endif │
00:06:59 #38830 [verbose] > │ |> fun x -> _v1 <- Some x │
00:06:59 #38831 [verbose] > │ let v9 : Async<int64> = _v1.Value │
00:06:59 #38832 [verbose] > │ v9 │
00:06:59 #38833 [verbose] > │ and closure8 () (v0 : string) : Async<string> = │
00:06:59 #38834 [verbose] > │ let v1 : Async<string> option = None │
00:06:59 #38835 [verbose] > │ let mutable _v1 = v1 │
00:06:59 #38836 [verbose] > │ #if FABLE_COMPILER_RUST && !WASM && !CONTRACT │
00:06:59 #38837 [verbose] > │ let v2 : Async<string> = null |> unbox<Async<string>> │
00:06:59 #38838 [verbose] > │ v2 │
00:06:59 #38839 [verbose] > │ #endif │
00:06:59 #38840 [verbose] > │ #if FABLE_COMPILER_RUST && WASM │
00:06:59 #38841 [verbose] > │ let v3 : Async<string> = null |> unbox<Async<string>> │
00:06:59 #38842 [verbose] > │ v3 │
00:06:59 #38843 [verbose] > │ #endif │
00:06:59 #38844 [verbose] > │ #if FABLE_COMPILER_RUST && CONTRACT │
00:06:59 #38845 [verbose] > │ let v4 : Async<string> = null |> unbox<Async<string>> │
00:06:59 #38846 [verbose] > │ v4 │
00:06:59 #38847 [verbose] > │ #endif │
00:06:59 #38848 [verbose] > │ #if !FABLE_COMPILER && !FABLE_COMPILER_RUST && │
00:06:59 #38849 [verbose] > │ !FABLE_COMPILER_TYPESCRIPT && !WASM && !CONTRACT │
00:06:59 #38850 [verbose] > │ let v5 : (string -> System.Threading.Tasks.Task<string>) = │
00:06:59 #38851 [verbose] > │ System.IO.File.ReadAllTextAsync │
00:06:59 #38852 [verbose] > │ let v6 : System.Threading.Tasks.Task<string> = v5 v0 │
00:06:59 #38853 [verbose] > │ let v7 : Async<string> option = None │
00:06:59 #38854 [verbose] > │ let mutable _v7 = v7 │
00:06:59 #38855 [verbose] > │ #if FABLE_COMPILER_RUST && !WASM && !CONTRACT │
00:06:59 #38856 [verbose] > │ let v8 : Async<string> = null |> unbox<Async<string>> │
00:06:59 #38857 [verbose] > │ v8 │
00:06:59 #38858 [verbose] > │ #endif │
00:06:59 #38859 [verbose] > │ #if FABLE_COMPILER_RUST && WASM │
00:06:59 #38860 [verbose] > │ let v9 : Async<string> = null |> unbox<Async<string>> │
00:06:59 #38861 [verbose] > │ v9 │
00:06:59 #38862 [verbose] > │ #endif │
00:06:59 #38863 [verbose] > │ #if FABLE_COMPILER_RUST && CONTRACT │
00:06:59 #38864 [verbose] > │ let v10 : Async<string> = null |> unbox<Async<string>> │
00:06:59 #38865 [verbose] > │ v10 │
00:06:59 #38866 [verbose] > │ #endif │
00:06:59 #38867 [verbose] > │ #if !FABLE_COMPILER && !FABLE_COMPILER_RUST && │
00:06:59 #38868 [verbose] > │ !FABLE_COMPILER_TYPESCRIPT && !WASM && !CONTRACT │
00:06:59 #38869 [verbose] > │ let v11 : (System.Threading.Tasks.Task<string> -> Async<string>) = │
00:06:59 #38870 [verbose] > │ Async.AwaitTask │
00:06:59 #38871 [verbose] > │ let v12 : Async<string> = v11 v6 │
00:06:59 #38872 [verbose] > │ v12 │
00:06:59 #38873 [verbose] > │ #endif │
00:06:59 #38874 [verbose] > │ #if FABLE_COMPILER_TYPESCRIPT │
00:06:59 #38875 [verbose] > │ let v13 : Async<string> = null |> unbox<Async<string>> │
00:06:59 #38876 [verbose] > │ v13 │
00:06:59 #38877 [verbose] > │ #endif │
00:06:59 #38878 [verbose] > │ #if FABLE_COMPILER_PYTHON || FABLE_COMPILER_PHP || FABLE_COMPILER_DART │
00:06:59 #38879 [verbose] > │ let v14 : Async<string> = Unchecked.defaultof<Async<string>> │
00:06:59 #38880 [verbose] > │ v14 │
00:06:59 #38881 [verbose] > │ #endif │
00:06:59 #38882 [verbose] > │ |> fun x -> _v7 <- Some x │
00:06:59 #38883 [verbose] > │ let v15 : Async<string> = _v7.Value │
00:06:59 #38884 [verbose] > │ v15 │
00:06:59 #38885 [verbose] > │ #endif │
00:06:59 #38886 [verbose] > │ #if FABLE_COMPILER_TYPESCRIPT │
00:06:59 #38887 [verbose] > │ let v16 : Async<string> = null |> unbox<Async<string>> │
00:06:59 #38888 [verbose] > │ v16 │
00:06:59 #38889 [verbose] > │ #endif │
00:06:59 #38890 [verbose] > │ #if FABLE_COMPILER_PYTHON || FABLE_COMPILER_PHP || FABLE_COMPILER_DART │
00:06:59 #38891 [verbose] > │ let v17 : Async<string> = Unchecked.defaultof<Async<string>> │
00:06:59 #38892 [verbose] > │ v17 │
00:06:59 #38893 [verbose] > │ #endif │
00:06:59 #38894 [verbose] > │ |> fun x -> _v1 <- Some x │
00:06:59 #38895 [verbose] > │ let v18 : Async<string> = _v1.Value │
00:06:59 #38896 [verbose] > │ v18 │
00:06:59 #38897 [verbose] > │ and method5 (v0 : string) : string = │
00:06:59 #38898 [verbose] > │ v0 │
00:06:59 #38899 [verbose] > │ and closure10 (v0 : string) (v1 : string) : Async<bool> = │
00:06:59 #38900 [verbose] > │ let v2 : Async<bool> option = None │
00:06:59 #38901 [verbose] > │ let mutable _v2 = v2 │
00:06:59 #38902 [verbose] > │ #if FABLE_COMPILER_RUST && !WASM && !CONTRACT │
00:06:59 #38903 [verbose] > │ let v3 : Async<bool> = null |> unbox<Async<bool>> │
00:06:59 #38904 [verbose] > │ v3 │
00:06:59 #38905 [verbose] > │ #endif │
00:06:59 #38906 [verbose] > │ #if FABLE_COMPILER_RUST && WASM │
00:06:59 #38907 [verbose] > │ let v4 : Async<bool> = null |> unbox<Async<bool>> │
00:06:59 #38908 [verbose] > │ v4 │
00:06:59 #38909 [verbose] > │ #endif │
00:06:59 #38910 [verbose] > │ #if FABLE_COMPILER_RUST && CONTRACT │
00:06:59 #38911 [verbose] > │ let v5 : Async<bool> = null |> unbox<Async<bool>> │
00:06:59 #38912 [verbose] > │ v5 │
00:06:59 #38913 [verbose] > │ #endif │
00:06:59 #38914 [verbose] > │ #if !FABLE_COMPILER && !FABLE_COMPILER_RUST && │
00:06:59 #38915 [verbose] > │ !FABLE_COMPILER_TYPESCRIPT && !WASM && !CONTRACT │
00:06:59 #38916 [verbose] > │ let v6 : Async<bool> option = None │
00:06:59 #38917 [verbose] > │ let mutable _v6 = v6 │
00:06:59 #38918 [verbose] > │ #if FABLE_COMPILER_RUST && !WASM && !CONTRACT │
00:06:59 #38919 [verbose] > │ let v7 : Async<bool> = null |> unbox<Async<bool>> │
00:06:59 #38920 [verbose] > │ v7 │
00:06:59 #38921 [verbose] > │ #endif │
00:06:59 #38922 [verbose] > │ #if FABLE_COMPILER_RUST && WASM │
00:06:59 #38923 [verbose] > │ let v8 : Async<bool> = null |> unbox<Async<bool>> │
00:06:59 #38924 [verbose] > │ v8 │
00:06:59 #38925 [verbose] > │ #endif │
00:06:59 #38926 [verbose] > │ #if FABLE_COMPILER_RUST && CONTRACT │
00:06:59 #38927 [verbose] > │ let v9 : Async<bool> = null |> unbox<Async<bool>> │
00:06:59 #38928 [verbose] > │ v9 │
00:06:59 #38929 [verbose] > │ #endif │
00:06:59 #38930 [verbose] > │ #if !FABLE_COMPILER && !FABLE_COMPILER_RUST && │
00:06:59 #38931 [verbose] > │ !FABLE_COMPILER_TYPESCRIPT && !WASM && !CONTRACT │
00:06:59 #38932 [verbose] > │ let v10 : Async<bool> option = None │
00:06:59 #38933 [verbose] > │ let mutable _v10 = v10 │
00:06:59 #38934 [verbose] > │ async { │
00:06:59 #38935 [verbose] > │ let v11 : bool option = None │
00:06:59 #38936 [verbose] > │ let mutable _v11 = v11 │
00:06:59 #38937 [verbose] > │ #if FABLE_COMPILER_RUST && !WASM && !CONTRACT │
00:06:59 #38938 [verbose] > │ let v12 : string = method5(v0) │
00:06:59 #38939 [verbose] > │ let v13 : string = "fable_library_rust::String_::LrcStr::as_str(&$0)" │
00:06:59 #38940 [verbose] > │ let v14 : Ref<Str> = Fable.Core.RustInterop.emitRustExpr v12 v13 │
00:06:59 #38941 [verbose] > │ let v15 : string = "String::from($0)" │
00:06:59 #38942 [verbose] > │ let v16 : std_string_String = Fable.Core.RustInterop.emitRustExpr v14 │
00:06:59 #38943 [verbose] > │ v15 │
00:06:59 #38944 [verbose] > │ let v17 : string = "std::path::PathBuf::from($0)" │
00:06:59 #38945 [verbose] > │ let v18 : std_path_PathBuf = Fable.Core.RustInterop.emitRustExpr v16 v17 │
00:06:59 #38946 [verbose] > │ let v19 : string = "$0.exists()" │
00:06:59 #38947 [verbose] > │ let v20 : bool = Fable.Core.RustInterop.emitRustExpr v18 v19 │
00:06:59 #38948 [verbose] > │ let v23 : bool = │
00:06:59 #38949 [verbose] > │ if v20 then │
00:06:59 #38950 [verbose] > │ let v21 : string = "$0.is_file()" │
00:06:59 #38951 [verbose] > │ let v22 : bool = Fable.Core.RustInterop.emitRustExpr v18 v21 │
00:06:59 #38952 [verbose] > │ v22 │
00:06:59 #38953 [verbose] > │ else │
00:06:59 #38954 [verbose] > │ false │
00:06:59 #38955 [verbose] > │ v23 │
00:06:59 #38956 [verbose] > │ #endif │
00:06:59 #38957 [verbose] > │ #if FABLE_COMPILER_RUST && WASM │
00:06:59 #38958 [verbose] > │ let v24 : bool = null |> unbox<bool> │
00:06:59 #38959 [verbose] > │ v24 │
00:06:59 #38960 [verbose] > │ #endif │
00:06:59 #38961 [verbose] > │ #if FABLE_COMPILER_RUST && CONTRACT │
00:06:59 #38962 [verbose] > │ let v25 : bool = null |> unbox<bool> │
00:06:59 #38963 [verbose] > │ v25 │
00:06:59 #38964 [verbose] > │ #endif │
00:06:59 #38965 [verbose] > │ #if !FABLE_COMPILER && !FABLE_COMPILER_RUST && │
00:06:59 #38966 [verbose] > │ !FABLE_COMPILER_TYPESCRIPT && !WASM && !CONTRACT │
00:06:59 #38967 [verbose] > │ let v26 : (string -> bool) = System.IO.File.Exists │
00:06:59 #38968 [verbose] > │ let v27 : bool = v26 v0 │
00:06:59 #38969 [verbose] > │ v27 │
00:06:59 #38970 [verbose] > │ #endif │
00:06:59 #38971 [verbose] > │ #if FABLE_COMPILER_TYPESCRIPT │
00:06:59 #38972 [verbose] > │ let v28 : string = "fs" │
00:06:59 #38973 [verbose] > │ let v29 : IFsExistsSync = Fable.Core.JsInterop.importAll v28 │
00:06:59 #38974 [verbose] > │ let v30 : string = "v29.existsSync($0)" │
00:06:59 #38975 [verbose] > │ let v31 : bool = Fable.Core.JsInterop.emitJsExpr v0 v30 │
00:06:59 #38976 [verbose] > │ v31 │
00:06:59 #38977 [verbose] > │ #endif │
00:06:59 #38978 [verbose] > │ #if FABLE_COMPILER_PYTHON || FABLE_COMPILER_PHP || FABLE_COMPILER_DART │
00:06:59 #38979 [verbose] > │ let v32 : bool = Unchecked.defaultof<bool> │
00:06:59 #38980 [verbose] > │ v32 │
00:06:59 #38981 [verbose] > │ #endif │
00:06:59 #38982 [verbose] > │ |> fun x -> _v11 <- Some x │
00:06:59 #38983 [verbose] > │ let v33 : bool = _v11.Value │
00:06:59 #38984 [verbose] > │ let v34 : bool = v33 = false │
00:06:59 #38985 [verbose] > │ if v34 then │
00:06:59 #38986 [verbose] > │ return false │
00:06:59 #38987 [verbose] > │ (* │
00:06:59 #38988 [verbose] > │ () │
00:06:59 #38989 [verbose] > │ else │
00:06:59 #38990 [verbose] > │ *) else │
00:06:59 #38991 [verbose] > │ let v35 : Async<string> option = None │
00:06:59 #38992 [verbose] > │ let mutable _v35 = v35 │
00:06:59 #38993 [verbose] > │ #if FABLE_COMPILER_RUST && !WASM && !CONTRACT │
00:06:59 #38994 [verbose] > │ let v36 : Async<string> = null |> unbox<Async<string>> │
00:06:59 #38995 [verbose] > │ v36 │
00:06:59 #38996 [verbose] > │ #endif │
00:06:59 #38997 [verbose] > │ #if FABLE_COMPILER_RUST && WASM │
00:06:59 #38998 [verbose] > │ let v37 : Async<string> = null |> unbox<Async<string>> │
00:06:59 #38999 [verbose] > │ v37 │
00:06:59 #39000 [verbose] > │ #endif │
00:06:59 #39001 [verbose] > │ #if FABLE_COMPILER_RUST && CONTRACT │
00:06:59 #39002 [verbose] > │ let v38 : Async<string> = null |> unbox<Async<string>> │
00:06:59 #39003 [verbose] > │ v38 │
00:06:59 #39004 [verbose] > │ #endif │
00:06:59 #39005 [verbose] > │ #if !FABLE_COMPILER && !FABLE_COMPILER_RUST && │
00:06:59 #39006 [verbose] > │ !FABLE_COMPILER_TYPESCRIPT && !WASM && !CONTRACT │
00:06:59 #39007 [verbose] > │ let v39 : (string -> System.Threading.Tasks.Task<string>) = │
00:06:59 #39008 [verbose] > │ System.IO.File.ReadAllTextAsync │
00:06:59 #39009 [verbose] > │ let v40 : System.Threading.Tasks.Task<string> = v39 v0 │
00:06:59 #39010 [verbose] > │ let v41 : Async<string> option = None │
00:06:59 #39011 [verbose] > │ let mutable _v41 = v41 │
00:06:59 #39012 [verbose] > │ #if FABLE_COMPILER_RUST && !WASM && !CONTRACT │
00:06:59 #39013 [verbose] > │ let v42 : Async<string> = null |> unbox<Async<string>> │
00:06:59 #39014 [verbose] > │ v42 │
00:06:59 #39015 [verbose] > │ #endif │
00:06:59 #39016 [verbose] > │ #if FABLE_COMPILER_RUST && WASM │
00:06:59 #39017 [verbose] > │ let v43 : Async<string> = null |> unbox<Async<string>> │
00:06:59 #39018 [verbose] > │ v43 │
00:06:59 #39019 [verbose] > │ #endif │
00:06:59 #39020 [verbose] > │ #if FABLE_COMPILER_RUST && CONTRACT │
00:06:59 #39021 [verbose] > │ let v44 : Async<string> = null |> unbox<Async<string>> │
00:06:59 #39022 [verbose] > │ v44 │
00:06:59 #39023 [verbose] > │ #endif │
00:06:59 #39024 [verbose] > │ #if !FABLE_COMPILER && !FABLE_COMPILER_RUST && │
00:06:59 #39025 [verbose] > │ !FABLE_COMPILER_TYPESCRIPT && !WASM && !CONTRACT │
00:06:59 #39026 [verbose] > │ let v45 : (System.Threading.Tasks.Task<string> -> Async<string>) = │
00:06:59 #39027 [verbose] > │ Async.AwaitTask │
00:06:59 #39028 [verbose] > │ let v46 : Async<string> = v45 v40 │
00:06:59 #39029 [verbose] > │ v46 │
00:06:59 #39030 [verbose] > │ #endif │
00:06:59 #39031 [verbose] > │ #if FABLE_COMPILER_TYPESCRIPT │
00:06:59 #39032 [verbose] > │ let v47 : Async<string> = null |> unbox<Async<string>> │
00:06:59 #39033 [verbose] > │ v47 │
00:06:59 #39034 [verbose] > │ #endif │
00:06:59 #39035 [verbose] > │ #if FABLE_COMPILER_PYTHON || FABLE_COMPILER_PHP || │
00:06:59 #39036 [verbose] > │ FABLE_COMPILER_DART │
00:06:59 #39037 [verbose] > │ let v48 : Async<string> = Unchecked.defaultof<Async<string>> │
00:06:59 #39038 [verbose] > │ v48 │
00:06:59 #39039 [verbose] > │ #endif │
00:06:59 #39040 [verbose] > │ |> fun x -> _v41 <- Some x │
00:06:59 #39041 [verbose] > │ let v49 : Async<string> = _v41.Value │
00:06:59 #39042 [verbose] > │ v49 │
00:06:59 #39043 [verbose] > │ #endif │
00:06:59 #39044 [verbose] > │ #if FABLE_COMPILER_TYPESCRIPT │
00:06:59 #39045 [verbose] > │ let v50 : Async<string> = null |> unbox<Async<string>> │
00:06:59 #39046 [verbose] > │ v50 │
00:06:59 #39047 [verbose] > │ #endif │
00:06:59 #39048 [verbose] > │ #if FABLE_COMPILER_PYTHON || FABLE_COMPILER_PHP || │
00:06:59 #39049 [verbose] > │ FABLE_COMPILER_DART │
00:06:59 #39050 [verbose] > │ let v51 : Async<string> = Unchecked.defaultof<Async<string>> │
00:06:59 #39051 [verbose] > │ v51 │
00:06:59 #39052 [verbose] > │ #endif │
00:06:59 #39053 [verbose] > │ |> fun x -> _v35 <- Some x │
00:06:59 #39054 [verbose] > │ let v52 : Async<string> = _v35.Value │
00:06:59 #39055 [verbose] > │ let! v52 = v52 │
00:06:59 #39056 [verbose] > │ let v53 : string = v52 │
00:06:59 #39057 [verbose] > │ let v54 : bool = v1 = v53 │
00:06:59 #39058 [verbose] > │ return v54 │
00:06:59 #39059 [verbose] > │ (* │
00:06:59 #39060 [verbose] > │ () │
00:06:59 #39061 [verbose] > │ *) │
00:06:59 #39062 [verbose] > │ } │
00:06:59 #39063 [verbose] > │ |> fun x -> _v10 <- Some x │
00:06:59 #39064 [verbose] > │ let v55 : Async<bool> = _v10 |> Option.get │
00:06:59 #39065 [verbose] > │ v55 │
00:06:59 #39066 [verbose] > │ #endif │
00:06:59 #39067 [verbose] > │ #if FABLE_COMPILER_TYPESCRIPT │
00:06:59 #39068 [verbose] > │ let v56 : Async<bool> = null |> unbox<Async<bool>> │
00:06:59 #39069 [verbose] > │ v56 │
00:06:59 #39070 [verbose] > │ #endif │
00:06:59 #39071 [verbose] > │ #if FABLE_COMPILER_PYTHON || FABLE_COMPILER_PHP || FABLE_COMPILER_DART │
00:06:59 #39072 [verbose] > │ let v57 : Async<bool> = Unchecked.defaultof<Async<bool>> │
00:06:59 #39073 [verbose] > │ v57 │
00:06:59 #39074 [verbose] > │ #endif │
00:06:59 #39075 [verbose] > │ |> fun x -> _v6 <- Some x │
00:06:59 #39076 [verbose] > │ let v58 : Async<bool> = _v6.Value │
00:06:59 #39077 [verbose] > │ v58 │
00:06:59 #39078 [verbose] > │ #endif │
00:06:59 #39079 [verbose] > │ #if FABLE_COMPILER_TYPESCRIPT │
00:06:59 #39080 [verbose] > │ let v59 : Async<bool> = null |> unbox<Async<bool>> │
00:06:59 #39081 [verbose] > │ v59 │
00:06:59 #39082 [verbose] > │ #endif │
00:06:59 #39083 [verbose] > │ #if FABLE_COMPILER_PYTHON || FABLE_COMPILER_PHP || FABLE_COMPILER_DART │
00:06:59 #39084 [verbose] > │ let v60 : Async<bool> = Unchecked.defaultof<Async<bool>> │
00:06:59 #39085 [verbose] > │ v60 │
00:06:59 #39086 [verbose] > │ #endif │
00:06:59 #39087 [verbose] > │ |> fun x -> _v2 <- Some x │
00:06:59 #39088 [verbose] > │ let v61 : Async<bool> = _v2.Value │
00:06:59 #39089 [verbose] > │ v61 │
00:06:59 #39090 [verbose] > │ and closure9 () (v0 : string) : (string -> Async<bool>) = │
00:06:59 #39091 [verbose] > │ closure10(v0) │
00:06:59 #39092 [verbose] > │ and closure12 (v0 : string) (v1 : string) : Async<unit> = │
00:06:59 #39093 [verbose] > │ let v2 : Async<unit> option = None │
00:06:59 #39094 [verbose] > │ let mutable _v2 = v2 │
00:06:59 #39095 [verbose] > │ #if FABLE_COMPILER_RUST && !WASM && !CONTRACT │
00:06:59 #39096 [verbose] > │ let v3 : Async<unit> = null |> unbox<Async<unit>> │
00:06:59 #39097 [verbose] > │ v3 │
00:06:59 #39098 [verbose] > │ #endif │
00:06:59 #39099 [verbose] > │ #if FABLE_COMPILER_RUST && WASM │
00:06:59 #39100 [verbose] > │ let v4 : Async<unit> = null |> unbox<Async<unit>> │
00:06:59 #39101 [verbose] > │ v4 │
00:06:59 #39102 [verbose] > │ #endif │
00:06:59 #39103 [verbose] > │ #if FABLE_COMPILER_RUST && CONTRACT │
00:06:59 #39104 [verbose] > │ let v5 : Async<unit> = null |> unbox<Async<unit>> │
00:06:59 #39105 [verbose] > │ v5 │
00:06:59 #39106 [verbose] > │ #endif │
00:06:59 #39107 [verbose] > │ #if !FABLE_COMPILER && !FABLE_COMPILER_RUST && │
00:06:59 #39108 [verbose] > │ !FABLE_COMPILER_TYPESCRIPT && !WASM && !CONTRACT │
00:06:59 #39109 [verbose] > │ let v6 : System.Threading.Tasks.Task = System.IO.File.WriteAllTextAsync │
00:06:59 #39110 [verbose] > │ (v0, v1) │
00:06:59 #39111 [verbose] > │ let v7 : Async<unit> option = None │
00:06:59 #39112 [verbose] > │ let mutable _v7 = v7 │
00:06:59 #39113 [verbose] > │ #if FABLE_COMPILER_RUST && !WASM && !CONTRACT │
00:06:59 #39114 [verbose] > │ let v8 : Async<unit> = null |> unbox<Async<unit>> │
00:06:59 #39115 [verbose] > │ v8 │
00:06:59 #39116 [verbose] > │ #endif │
00:06:59 #39117 [verbose] > │ #if FABLE_COMPILER_RUST && WASM │
00:06:59 #39118 [verbose] > │ let v9 : Async<unit> = null |> unbox<Async<unit>> │
00:06:59 #39119 [verbose] > │ v9 │
00:06:59 #39120 [verbose] > │ #endif │
00:06:59 #39121 [verbose] > │ #if FABLE_COMPILER_RUST && CONTRACT │
00:06:59 #39122 [verbose] > │ let v10 : Async<unit> = null |> unbox<Async<unit>> │
00:06:59 #39123 [verbose] > │ v10 │
00:06:59 #39124 [verbose] > │ #endif │
00:06:59 #39125 [verbose] > │ #if !FABLE_COMPILER && !FABLE_COMPILER_RUST && │
00:06:59 #39126 [verbose] > │ !FABLE_COMPILER_TYPESCRIPT && !WASM && !CONTRACT │
00:06:59 #39127 [verbose] > │ let v11 : (System.Threading.Tasks.Task -> Async<unit>) = Async.AwaitTask │
00:06:59 #39128 [verbose] > │ let v12 : Async<unit> = v11 v6 │
00:06:59 #39129 [verbose] > │ v12 │
00:06:59 #39130 [verbose] > │ #endif │
00:06:59 #39131 [verbose] > │ #if FABLE_COMPILER_TYPESCRIPT │
00:06:59 #39132 [verbose] > │ let v13 : Async<unit> = null |> unbox<Async<unit>> │
00:06:59 #39133 [verbose] > │ v13 │
00:06:59 #39134 [verbose] > │ #endif │
00:06:59 #39135 [verbose] > │ #if FABLE_COMPILER_PYTHON || FABLE_COMPILER_PHP || FABLE_COMPILER_DART │
00:06:59 #39136 [verbose] > │ let v14 : Async<unit> = Unchecked.defaultof<Async<unit>> │
00:06:59 #39137 [verbose] > │ v14 │
00:06:59 #39138 [verbose] > │ #endif │
00:06:59 #39139 [verbose] > │ |> fun x -> _v7 <- Some x │
00:06:59 #39140 [verbose] > │ let v15 : Async<unit> = _v7.Value │
00:06:59 #39141 [verbose] > │ v15 │
00:06:59 #39142 [verbose] > │ #endif │
00:06:59 #39143 [verbose] > │ #if FABLE_COMPILER_TYPESCRIPT │
00:06:59 #39144 [verbose] > │ let v16 : Async<unit> = null |> unbox<Async<unit>> │
00:06:59 #39145 [verbose] > │ v16 │
00:06:59 #39146 [verbose] > │ #endif │
00:06:59 #39147 [verbose] > │ #if FABLE_COMPILER_PYTHON || FABLE_COMPILER_PHP || FABLE_COMPILER_DART │
00:06:59 #39148 [verbose] > │ let v17 : Async<unit> = Unchecked.defaultof<Async<unit>> │
00:06:59 #39149 [verbose] > │ v17 │
00:06:59 #39150 [verbose] > │ #endif │
00:06:59 #39151 [verbose] > │ |> fun x -> _v2 <- Some x │
00:06:59 #39152 [verbose] > │ let v18 : Async<unit> = _v2.Value │
00:06:59 #39153 [verbose] > │ v18 │
00:06:59 #39154 [verbose] > │ and closure11 () (v0 : string) : (string -> Async<unit>) = │
00:06:59 #39155 [verbose] > │ closure12(v0) │
00:06:59 #39156 [verbose] > │ and closure14 (v0 : string) (v1 : string) : Async<unit> = │
00:06:59 #39157 [verbose] > │ let v2 : Async<unit> option = None │
00:06:59 #39158 [verbose] > │ let mutable _v2 = v2 │
00:06:59 #39159 [verbose] > │ #if FABLE_COMPILER_RUST && !WASM && !CONTRACT │
00:06:59 #39160 [verbose] > │ let v3 : Async<unit> = null |> unbox<Async<unit>> │
00:06:59 #39161 [verbose] > │ v3 │
00:06:59 #39162 [verbose] > │ #endif │
00:06:59 #39163 [verbose] > │ #if FABLE_COMPILER_RUST && WASM │
00:06:59 #39164 [verbose] > │ let v4 : Async<unit> = null |> unbox<Async<unit>> │
00:06:59 #39165 [verbose] > │ v4 │
00:06:59 #39166 [verbose] > │ #endif │
00:06:59 #39167 [verbose] > │ #if FABLE_COMPILER_RUST && CONTRACT │
00:06:59 #39168 [verbose] > │ let v5 : Async<unit> = null |> unbox<Async<unit>> │
00:06:59 #39169 [verbose] > │ v5 │
00:06:59 #39170 [verbose] > │ #endif │
00:06:59 #39171 [verbose] > │ #if !FABLE_COMPILER && !FABLE_COMPILER_RUST && │
00:06:59 #39172 [verbose] > │ !FABLE_COMPILER_TYPESCRIPT && !WASM && !CONTRACT │
00:06:59 #39173 [verbose] > │ let v6 : Async<unit> option = None │
00:06:59 #39174 [verbose] > │ let mutable _v6 = v6 │
00:06:59 #39175 [verbose] > │ async { │
00:06:59 #39176 [verbose] > │ let v7 : Async<bool> option = None │
00:06:59 #39177 [verbose] > │ let mutable _v7 = v7 │
00:06:59 #39178 [verbose] > │ #if FABLE_COMPILER_RUST && !WASM && !CONTRACT │
00:06:59 #39179 [verbose] > │ let v8 : Async<bool> = null |> unbox<Async<bool>> │
00:06:59 #39180 [verbose] > │ v8 │
00:06:59 #39181 [verbose] > │ #endif │
00:06:59 #39182 [verbose] > │ #if FABLE_COMPILER_RUST && WASM │
00:06:59 #39183 [verbose] > │ let v9 : Async<bool> = null |> unbox<Async<bool>> │
00:06:59 #39184 [verbose] > │ v9 │
00:06:59 #39185 [verbose] > │ #endif │
00:06:59 #39186 [verbose] > │ #if FABLE_COMPILER_RUST && CONTRACT │
00:06:59 #39187 [verbose] > │ let v10 : Async<bool> = null |> unbox<Async<bool>> │
00:06:59 #39188 [verbose] > │ v10 │
00:06:59 #39189 [verbose] > │ #endif │
00:06:59 #39190 [verbose] > │ #if !FABLE_COMPILER && !FABLE_COMPILER_RUST && │
00:06:59 #39191 [verbose] > │ !FABLE_COMPILER_TYPESCRIPT && !WASM && !CONTRACT │
00:06:59 #39192 [verbose] > │ let v11 : Async<bool> option = None │
00:06:59 #39193 [verbose] > │ let mutable _v11 = v11 │
00:06:59 #39194 [verbose] > │ #if FABLE_COMPILER_RUST && !WASM && !CONTRACT │
00:06:59 #39195 [verbose] > │ let v12 : Async<bool> = null |> unbox<Async<bool>> │
00:06:59 #39196 [verbose] > │ v12 │
00:06:59 #39197 [verbose] > │ #endif │
00:06:59 #39198 [verbose] > │ #if FABLE_COMPILER_RUST && WASM │
00:06:59 #39199 [verbose] > │ let v13 : Async<bool> = null |> unbox<Async<bool>> │
00:06:59 #39200 [verbose] > │ v13 │
00:06:59 #39201 [verbose] > │ #endif │
00:06:59 #39202 [verbose] > │ #if FABLE_COMPILER_RUST && CONTRACT │
00:06:59 #39203 [verbose] > │ let v14 : Async<bool> = null |> unbox<Async<bool>> │
00:06:59 #39204 [verbose] > │ v14 │
00:06:59 #39205 [verbose] > │ #endif │
00:06:59 #39206 [verbose] > │ #if !FABLE_COMPILER && !FABLE_COMPILER_RUST && │
00:06:59 #39207 [verbose] > │ !FABLE_COMPILER_TYPESCRIPT && !WASM && !CONTRACT │
00:06:59 #39208 [verbose] > │ let v15 : Async<bool> option = None │
00:06:59 #39209 [verbose] > │ let mutable _v15 = v15 │
00:06:59 #39210 [verbose] > │ async { │
00:06:59 #39211 [verbose] > │ let v16 : bool option = None │
00:06:59 #39212 [verbose] > │ let mutable _v16 = v16 │
00:06:59 #39213 [verbose] > │ #if FABLE_COMPILER_RUST && !WASM && !CONTRACT │
00:06:59 #39214 [verbose] > │ let v17 : string = method5(v0) │
00:06:59 #39215 [verbose] > │ let v18 : string = "fable_library_rust::String_::LrcStr::as_str(&$0)" │
00:06:59 #39216 [verbose] > │ let v19 : Ref<Str> = Fable.Core.RustInterop.emitRustExpr v17 v18 │
00:06:59 #39217 [verbose] > │ let v20 : string = "String::from($0)" │
00:06:59 #39218 [verbose] > │ let v21 : std_string_String = Fable.Core.RustInterop.emitRustExpr v19 │
00:06:59 #39219 [verbose] > │ v20 │
00:06:59 #39220 [verbose] > │ let v22 : string = "std::path::PathBuf::from($0)" │
00:06:59 #39221 [verbose] > │ let v23 : std_path_PathBuf = Fable.Core.RustInterop.emitRustExpr v21 v22 │
00:06:59 #39222 [verbose] > │ let v24 : string = "$0.exists()" │
00:06:59 #39223 [verbose] > │ let v25 : bool = Fable.Core.RustInterop.emitRustExpr v23 v24 │
00:06:59 #39224 [verbose] > │ let v28 : bool = │
00:06:59 #39225 [verbose] > │ if v25 then │
00:06:59 #39226 [verbose] > │ let v26 : string = "$0.is_file()" │
00:06:59 #39227 [verbose] > │ let v27 : bool = Fable.Core.RustInterop.emitRustExpr v23 v26 │
00:06:59 #39228 [verbose] > │ v27 │
00:06:59 #39229 [verbose] > │ else │
00:06:59 #39230 [verbose] > │ false │
00:06:59 #39231 [verbose] > │ v28 │
00:06:59 #39232 [verbose] > │ #endif │
00:06:59 #39233 [verbose] > │ #if FABLE_COMPILER_RUST && WASM │
00:06:59 #39234 [verbose] > │ let v29 : bool = null |> unbox<bool> │
00:06:59 #39235 [verbose] > │ v29 │
00:06:59 #39236 [verbose] > │ #endif │
00:06:59 #39237 [verbose] > │ #if FABLE_COMPILER_RUST && CONTRACT │
00:06:59 #39238 [verbose] > │ let v30 : bool = null |> unbox<bool> │
00:06:59 #39239 [verbose] > │ v30 │
00:06:59 #39240 [verbose] > │ #endif │
00:06:59 #39241 [verbose] > │ #if !FABLE_COMPILER && !FABLE_COMPILER_RUST && │
00:06:59 #39242 [verbose] > │ !FABLE_COMPILER_TYPESCRIPT && !WASM && !CONTRACT │
00:06:59 #39243 [verbose] > │ let v31 : (string -> bool) = System.IO.File.Exists │
00:06:59 #39244 [verbose] > │ let v32 : bool = v31 v0 │
00:06:59 #39245 [verbose] > │ v32 │
00:06:59 #39246 [verbose] > │ #endif │
00:06:59 #39247 [verbose] > │ #if FABLE_COMPILER_TYPESCRIPT │
00:06:59 #39248 [verbose] > │ let v33 : string = "fs" │
00:06:59 #39249 [verbose] > │ let v34 : IFsExistsSync = Fable.Core.JsInterop.importAll v33 │
00:06:59 #39250 [verbose] > │ let v35 : string = "v34.existsSync($0)" │
00:06:59 #39251 [verbose] > │ let v36 : bool = Fable.Core.JsInterop.emitJsExpr v0 v35 │
00:06:59 #39252 [verbose] > │ v36 │
00:06:59 #39253 [verbose] > │ #endif │
00:06:59 #39254 [verbose] > │ #if FABLE_COMPILER_PYTHON || FABLE_COMPILER_PHP || FABLE_COMPILER_DART │
00:06:59 #39255 [verbose] > │ let v37 : bool = Unchecked.defaultof<bool> │
00:06:59 #39256 [verbose] > │ v37 │
00:06:59 #39257 [verbose] > │ #endif │
00:06:59 #39258 [verbose] > │ |> fun x -> _v16 <- Some x │
00:06:59 #39259 [verbose] > │ let v38 : bool = _v16.Value │
00:06:59 #39260 [verbose] > │ let v39 : bool = v38 = false │
00:06:59 #39261 [verbose] > │ if v39 then │
00:06:59 #39262 [verbose] > │ return false │
00:06:59 #39263 [verbose] > │ (* │
00:06:59 #39264 [verbose] > │ () │
00:06:59 #39265 [verbose] > │ else │
00:06:59 #39266 [verbose] > │ *) else │
00:06:59 #39267 [verbose] > │ let v40 : Async<string> option = None │
00:06:59 #39268 [verbose] > │ let mutable _v40 = v40 │
00:06:59 #39269 [verbose] > │ #if FABLE_COMPILER_RUST && !WASM && !CONTRACT │
00:06:59 #39270 [verbose] > │ let v41 : Async<string> = null |> unbox<Async<string>> │
00:06:59 #39271 [verbose] > │ v41 │
00:06:59 #39272 [verbose] > │ #endif │
00:06:59 #39273 [verbose] > │ #if FABLE_COMPILER_RUST && WASM │
00:06:59 #39274 [verbose] > │ let v42 : Async<string> = null |> unbox<Async<string>> │
00:06:59 #39275 [verbose] > │ v42 │
00:06:59 #39276 [verbose] > │ #endif │
00:06:59 #39277 [verbose] > │ #if FABLE_COMPILER_RUST && CONTRACT │
00:06:59 #39278 [verbose] > │ let v43 : Async<string> = null |> unbox<Async<string>> │
00:06:59 #39279 [verbose] > │ v43 │
00:06:59 #39280 [verbose] > │ #endif │
00:06:59 #39281 [verbose] > │ #if !FABLE_COMPILER && !FABLE_COMPILER_RUST && │
00:06:59 #39282 [verbose] > │ !FABLE_COMPILER_TYPESCRIPT && !WASM && !CONTRACT │
00:06:59 #39283 [verbose] > │ let v44 : (string -> System.Threading.Tasks.Task<string>) = │
00:06:59 #39284 [verbose] > │ System.IO.File.ReadAllTextAsync │
00:06:59 #39285 [verbose] > │ let v45 : System.Threading.Tasks.Task<string> = v44 v0 │
00:06:59 #39286 [verbose] > │ let v46 : Async<string> option = None │
00:06:59 #39287 [verbose] > │ let mutable _v46 = v46 │
00:06:59 #39288 [verbose] > │ #if FABLE_COMPILER_RUST && !WASM && !CONTRACT │
00:06:59 #39289 [verbose] > │ let v47 : Async<string> = null |> unbox<Async<string>> │
00:06:59 #39290 [verbose] > │ v47 │
00:06:59 #39291 [verbose] > │ #endif │
00:06:59 #39292 [verbose] > │ #if FABLE_COMPILER_RUST && WASM │
00:06:59 #39293 [verbose] > │ let v48 : Async<string> = null |> unbox<Async<string>> │
00:06:59 #39294 [verbose] > │ v48 │
00:06:59 #39295 [verbose] > │ #endif │
00:06:59 #39296 [verbose] > │ #if FABLE_COMPILER_RUST && CONTRACT │
00:06:59 #39297 [verbose] > │ let v49 : Async<string> = null |> unbox<Async<string>> │
00:06:59 #39298 [verbose] > │ v49 │
00:06:59 #39299 [verbose] > │ #endif │
00:06:59 #39300 [verbose] > │ #if !FABLE_COMPILER && !FABLE_COMPILER_RUST && │
00:06:59 #39301 [verbose] > │ !FABLE_COMPILER_TYPESCRIPT && !WASM && !CONTRACT │
00:06:59 #39302 [verbose] > │ let v50 : (System.Threading.Tasks.Task<string> -> Async<string>) = │
00:06:59 #39303 [verbose] > │ Async.AwaitTask │
00:06:59 #39304 [verbose] > │ let v51 : Async<string> = v50 v45 │
00:06:59 #39305 [verbose] > │ v51 │
00:06:59 #39306 [verbose] > │ #endif │
00:06:59 #39307 [verbose] > │ #if FABLE_COMPILER_TYPESCRIPT │
00:06:59 #39308 [verbose] > │ let v52 : Async<string> = null |> unbox<Async<string>> │
00:06:59 #39309 [verbose] > │ v52 │
00:06:59 #39310 [verbose] > │ #endif │
00:06:59 #39311 [verbose] > │ #if FABLE_COMPILER_PYTHON || FABLE_COMPILER_PHP || │
00:06:59 #39312 [verbose] > │ FABLE_COMPILER_DART │
00:06:59 #39313 [verbose] > │ let v53 : Async<string> = Unchecked.defaultof<Async<string>> │
00:06:59 #39314 [verbose] > │ v53 │
00:06:59 #39315 [verbose] > │ #endif │
00:06:59 #39316 [verbose] > │ |> fun x -> _v46 <- Some x │
00:06:59 #39317 [verbose] > │ let v54 : Async<string> = _v46.Value │
00:06:59 #39318 [verbose] > │ v54 │
00:06:59 #39319 [verbose] > │ #endif │
00:06:59 #39320 [verbose] > │ #if FABLE_COMPILER_TYPESCRIPT │
00:06:59 #39321 [verbose] > │ let v55 : Async<string> = null |> unbox<Async<string>> │
00:06:59 #39322 [verbose] > │ v55 │
00:06:59 #39323 [verbose] > │ #endif │
00:06:59 #39324 [verbose] > │ #if FABLE_COMPILER_PYTHON || FABLE_COMPILER_PHP || │
00:06:59 #39325 [verbose] > │ FABLE_COMPILER_DART │
00:06:59 #39326 [verbose] > │ let v56 : Async<string> = Unchecked.defaultof<Async<string>> │
00:06:59 #39327 [verbose] > │ v56 │
00:06:59 #39328 [verbose] > │ #endif │
00:06:59 #39329 [verbose] > │ |> fun x -> _v40 <- Some x │
00:06:59 #39330 [verbose] > │ let v57 : Async<string> = _v40.Value │
00:06:59 #39331 [verbose] > │ let! v57 = v57 │
00:06:59 #39332 [verbose] > │ let v58 : string = v57 │
00:06:59 #39333 [verbose] > │ let v59 : bool = v1 = v58 │
00:06:59 #39334 [verbose] > │ return v59 │
00:06:59 #39335 [verbose] > │ (* │
00:06:59 #39336 [verbose] > │ () │
00:06:59 #39337 [verbose] > │ *) │
00:06:59 #39338 [verbose] > │ } │
00:06:59 #39339 [verbose] > │ |> fun x -> _v15 <- Some x │
00:06:59 #39340 [verbose] > │ let v60 : Async<bool> = _v15 |> Option.get │
00:06:59 #39341 [verbose] > │ v60 │
00:06:59 #39342 [verbose] > │ #endif │
00:06:59 #39343 [verbose] > │ #if FABLE_COMPILER_TYPESCRIPT │
00:06:59 #39344 [verbose] > │ let v61 : Async<bool> = null |> unbox<Async<bool>> │
00:06:59 #39345 [verbose] > │ v61 │
00:06:59 #39346 [verbose] > │ #endif │
00:06:59 #39347 [verbose] > │ #if FABLE_COMPILER_PYTHON || FABLE_COMPILER_PHP || FABLE_COMPILER_DART │
00:06:59 #39348 [verbose] > │ let v62 : Async<bool> = Unchecked.defaultof<Async<bool>> │
00:06:59 #39349 [verbose] > │ v62 │
00:06:59 #39350 [verbose] > │ #endif │
00:06:59 #39351 [verbose] > │ |> fun x -> _v11 <- Some x │
00:06:59 #39352 [verbose] > │ let v63 : Async<bool> = _v11.Value │
00:06:59 #39353 [verbose] > │ v63 │
00:06:59 #39354 [verbose] > │ #endif │
00:06:59 #39355 [verbose] > │ #if FABLE_COMPILER_TYPESCRIPT │
00:06:59 #39356 [verbose] > │ let v64 : Async<bool> = null |> unbox<Async<bool>> │
00:06:59 #39357 [verbose] > │ v64 │
00:06:59 #39358 [verbose] > │ #endif │
00:06:59 #39359 [verbose] > │ #if FABLE_COMPILER_PYTHON || FABLE_COMPILER_PHP || FABLE_COMPILER_DART │
00:06:59 #39360 [verbose] > │ let v65 : Async<bool> = Unchecked.defaultof<Async<bool>> │
00:06:59 #39361 [verbose] > │ v65 │
00:06:59 #39362 [verbose] > │ #endif │
00:06:59 #39363 [verbose] > │ |> fun x -> _v7 <- Some x │
00:06:59 #39364 [verbose] > │ let v66 : Async<bool> = _v7.Value │
00:06:59 #39365 [verbose] > │ let! v66 = v66 │
00:06:59 #39366 [verbose] > │ let v67 : bool = v66 │
00:06:59 #39367 [verbose] > │ let v68 : bool = v67 = false │
00:06:59 #39368 [verbose] > │ if v68 then │
00:06:59 #39369 [verbose] > │ let v69 : Async<unit> option = None │
00:06:59 #39370 [verbose] > │ let mutable _v69 = v69 │
00:06:59 #39371 [verbose] > │ #if FABLE_COMPILER_RUST && !WASM && !CONTRACT │
00:06:59 #39372 [verbose] > │ let v70 : Async<unit> = null |> unbox<Async<unit>> │
00:06:59 #39373 [verbose] > │ v70 │
00:06:59 #39374 [verbose] > │ #endif │
00:06:59 #39375 [verbose] > │ #if FABLE_COMPILER_RUST && WASM │
00:06:59 #39376 [verbose] > │ let v71 : Async<unit> = null |> unbox<Async<unit>> │
00:06:59 #39377 [verbose] > │ v71 │
00:06:59 #39378 [verbose] > │ #endif │
00:06:59 #39379 [verbose] > │ #if FABLE_COMPILER_RUST && CONTRACT │
00:06:59 #39380 [verbose] > │ let v72 : Async<unit> = null |> unbox<Async<unit>> │
00:06:59 #39381 [verbose] > │ v72 │
00:06:59 #39382 [verbose] > │ #endif │
00:06:59 #39383 [verbose] > │ #if !FABLE_COMPILER && !FABLE_COMPILER_RUST && │
00:06:59 #39384 [verbose] > │ !FABLE_COMPILER_TYPESCRIPT && !WASM && !CONTRACT │
00:06:59 #39385 [verbose] > │ let v73 : System.Threading.Tasks.Task = │
00:06:59 #39386 [verbose] > │ System.IO.File.WriteAllTextAsync (v0, v1) │
00:06:59 #39387 [verbose] > │ let v74 : Async<unit> option = None │
00:06:59 #39388 [verbose] > │ let mutable _v74 = v74 │
00:06:59 #39389 [verbose] > │ #if FABLE_COMPILER_RUST && !WASM && !CONTRACT │
00:06:59 #39390 [verbose] > │ let v75 : Async<unit> = null |> unbox<Async<unit>> │
00:06:59 #39391 [verbose] > │ v75 │
00:06:59 #39392 [verbose] > │ #endif │
00:06:59 #39393 [verbose] > │ #if FABLE_COMPILER_RUST && WASM │
00:06:59 #39394 [verbose] > │ let v76 : Async<unit> = null |> unbox<Async<unit>> │
00:06:59 #39395 [verbose] > │ v76 │
00:06:59 #39396 [verbose] > │ #endif │
00:06:59 #39397 [verbose] > │ #if FABLE_COMPILER_RUST && CONTRACT │
00:06:59 #39398 [verbose] > │ let v77 : Async<unit> = null |> unbox<Async<unit>> │
00:06:59 #39399 [verbose] > │ v77 │
00:06:59 #39400 [verbose] > │ #endif │
00:06:59 #39401 [verbose] > │ #if !FABLE_COMPILER && !FABLE_COMPILER_RUST && │
00:06:59 #39402 [verbose] > │ !FABLE_COMPILER_TYPESCRIPT && !WASM && !CONTRACT │
00:06:59 #39403 [verbose] > │ let v78 : (System.Threading.Tasks.Task -> Async<unit>) = │
00:06:59 #39404 [verbose] > │ Async.AwaitTask │
00:06:59 #39405 [verbose] > │ let v79 : Async<unit> = v78 v73 │
00:06:59 #39406 [verbose] > │ v79 │
00:06:59 #39407 [verbose] > │ #endif │
00:06:59 #39408 [verbose] > │ #if FABLE_COMPILER_TYPESCRIPT │
00:06:59 #39409 [verbose] > │ let v80 : Async<unit> = null |> unbox<Async<unit>> │
00:06:59 #39410 [verbose] > │ v80 │
00:06:59 #39411 [verbose] > │ #endif │
00:06:59 #39412 [verbose] > │ #if FABLE_COMPILER_PYTHON || FABLE_COMPILER_PHP || │
00:06:59 #39413 [verbose] > │ FABLE_COMPILER_DART │
00:06:59 #39414 [verbose] > │ let v81 : Async<unit> = Unchecked.defaultof<Async<unit>> │
00:06:59 #39415 [verbose] > │ v81 │
00:06:59 #39416 [verbose] > │ #endif │
00:06:59 #39417 [verbose] > │ |> fun x -> _v74 <- Some x │
00:06:59 #39418 [verbose] > │ let v82 : Async<unit> = _v74.Value │
00:06:59 #39419 [verbose] > │ v82 │
00:06:59 #39420 [verbose] > │ #endif │
00:06:59 #39421 [verbose] > │ #if FABLE_COMPILER_TYPESCRIPT │
00:06:59 #39422 [verbose] > │ let v83 : Async<unit> = null |> unbox<Async<unit>> │
00:06:59 #39423 [verbose] > │ v83 │
00:06:59 #39424 [verbose] > │ #endif │
00:06:59 #39425 [verbose] > │ #if FABLE_COMPILER_PYTHON || FABLE_COMPILER_PHP || │
00:06:59 #39426 [verbose] > │ FABLE_COMPILER_DART │
00:06:59 #39427 [verbose] > │ let v84 : Async<unit> = Unchecked.defaultof<Async<unit>> │
00:06:59 #39428 [verbose] > │ v84 │
00:06:59 #39429 [verbose] > │ #endif │
00:06:59 #39430 [verbose] > │ |> fun x -> _v69 <- Some x │
00:06:59 #39431 [verbose] > │ let v85 : Async<unit> = _v69.Value │
00:06:59 #39432 [verbose] > │ do! v85 │
00:06:59 #39433 [verbose] > │ () │
00:06:59 #39434 [verbose] > │ } │
00:06:59 #39435 [verbose] > │ |> fun x -> _v6 <- Some x │
00:06:59 #39436 [verbose] > │ let v86 : Async<unit> = _v6 |> Option.get │
00:06:59 #39437 [verbose] > │ v86 │
00:06:59 #39438 [verbose] > │ #endif │
00:06:59 #39439 [verbose] > │ #if FABLE_COMPILER_TYPESCRIPT │
00:06:59 #39440 [verbose] > │ let v87 : Async<unit> = null |> unbox<Async<unit>> │
00:06:59 #39441 [verbose] > │ v87 │
00:06:59 #39442 [verbose] > │ #endif │
00:06:59 #39443 [verbose] > │ #if FABLE_COMPILER_PYTHON || FABLE_COMPILER_PHP || FABLE_COMPILER_DART │
00:06:59 #39444 [verbose] > │ let v88 : Async<unit> = Unchecked.defaultof<Async<unit>> │
00:06:59 #39445 [verbose] > │ v88 │
00:06:59 #39446 [verbose] > │ #endif │
00:06:59 #39447 [verbose] > │ |> fun x -> _v2 <- Some x │
00:06:59 #39448 [verbose] > │ let v89 : Async<unit> = _v2.Value │
00:06:59 #39449 [verbose] > │ v89 │
00:06:59 #39450 [verbose] > │ and closure13 () (v0 : string) : (string -> Async<unit>) = │
00:06:59 #39451 [verbose] > │ closure14(v0) │
00:06:59 #39452 [verbose] > │ and closure16 () () : string = │
00:06:59 #39453 [verbose] > │ let v0 : string = "delete_file_async" │
00:06:59 #39454 [verbose] > │ v0 │
00:06:59 #39455 [verbose] > │ and method8 (v0 : int64 option) : int64 option = │
00:06:59 #39456 [verbose] > │ v0 │
00:06:59 #39457 [verbose] > │ and method9 (v0 : int64 option) : int64 option = │
00:06:59 #39458 [verbose] > │ v0 │
00:06:59 #39459 [verbose] > │ and closure17 () () : struct (Mut0 * Mut1 * Mut1 * Mut2 * int64 option) = │
00:06:59 #39460 [verbose] > │ let v0 : Mut1 = {l0 = true} : Mut1 │
00:06:59 #39461 [verbose] > │ let v1 : Mut0 = {l0 = 0L} : Mut0 │
00:06:59 #39462 [verbose] > │ let v2 : US3 = US3_0 │
00:06:59 #39463 [verbose] > │ let v3 : Mut2 = {l0 = v2} : Mut2 │
00:06:59 #39464 [verbose] > │ let v4 : Mut1 = {l0 = false} : Mut1 │
00:06:59 #39465 [verbose] > │ let v5 : int64 option option = None │
00:06:59 #39466 [verbose] > │ let mutable _v5 = v5 │
00:06:59 #39467 [verbose] > │ #if INTERACTIVE || !FABLE_COMPILER │
00:06:59 #39468 [verbose] > │ let v6 : string option = None │
00:06:59 #39469 [verbose] > │ let mutable _v6 = v6 │
00:06:59 #39470 [verbose] > │ #if FABLE_COMPILER_RUST && !WASM && !CONTRACT │
00:06:59 #39471 [verbose] > │ let v7 : string = null |> unbox<string> │
00:06:59 #39472 [verbose] > │ v7 │
00:06:59 #39473 [verbose] > │ #endif │
00:06:59 #39474 [verbose] > │ #if FABLE_COMPILER_RUST && WASM │
00:06:59 #39475 [verbose] > │ let v8 : string = null |> unbox<string> │
00:06:59 #39476 [verbose] > │ v8 │
00:06:59 #39477 [verbose] > │ #endif │
00:06:59 #39478 [verbose] > │ #if FABLE_COMPILER_RUST && CONTRACT │
00:06:59 #39479 [verbose] > │ let v9 : string = null |> unbox<string> │
00:06:59 #39480 [verbose] > │ v9 │
00:06:59 #39481 [verbose] > │ #endif │
00:06:59 #39482 [verbose] > │ #if !FABLE_COMPILER && !FABLE_COMPILER_RUST && │
00:06:59 #39483 [verbose] > │ !FABLE_COMPILER_TYPESCRIPT && !WASM && !CONTRACT │
00:06:59 #39484 [verbose] > │ let v10 : string = │
00:06:59 #39485 [verbose] > │ System.Reflection.Assembly.GetEntryAssembly().GetName().Name │
00:06:59 #39486 [verbose] > │ v10 │
00:06:59 #39487 [verbose] > │ #endif │
00:06:59 #39488 [verbose] > │ #if FABLE_COMPILER_TYPESCRIPT │
00:06:59 #39489 [verbose] > │ let v11 : string = null |> unbox<string> │
00:06:59 #39490 [verbose] > │ v11 │
00:06:59 #39491 [verbose] > │ #endif │
00:06:59 #39492 [verbose] > │ #if FABLE_COMPILER_PYTHON || FABLE_COMPILER_PHP || FABLE_COMPILER_DART │
00:06:59 #39493 [verbose] > │ let v12 : string = Unchecked.defaultof<string> │
00:06:59 #39494 [verbose] > │ v12 │
00:06:59 #39495 [verbose] > │ #endif │
00:06:59 #39496 [verbose] > │ |> fun x -> _v6 <- Some x │
00:06:59 #39497 [verbose] > │ let v13 : string = _v6.Value │
00:06:59 #39498 [verbose] > │ let v15 : bool = v13 = "Microsoft.DotNet.Interactive.App" │
00:06:59 #39499 [verbose] > │ let v16 : bool = v15 <> true │
00:06:59 #39500 [verbose] > │ let v22 : US4 = │
00:06:59 #39501 [verbose] > │ if v16 then │
00:06:59 #39502 [verbose] > │ let v17 : System.DateTime = System.DateTime.Now │
00:06:59 #39503 [verbose] > │ let v18 : (System.DateTime -> int64) = _.Ticks │
00:06:59 #39504 [verbose] > │ let v19 : int64 = v18 v17 │
00:06:59 #39505 [verbose] > │ US4_0(v19) │
00:06:59 #39506 [verbose] > │ else │
00:06:59 #39507 [verbose] > │ US4_1 │
00:06:59 #39508 [verbose] > │ let v27 : int64 option = │
00:06:59 #39509 [verbose] > │ match v22 with │
00:06:59 #39510 [verbose] > │ | US4_1 -> (* None *) │
00:06:59 #39511 [verbose] > │ let v25 : int64 option = None │
00:06:59 #39512 [verbose] > │ v25 │
00:06:59 #39513 [verbose] > │ | US4_0(v23) -> (* Some *) │
00:06:59 #39514 [verbose] > │ let v24 : int64 option = Some v23 │
00:06:59 #39515 [verbose] > │ v24 │
00:06:59 #39516 [verbose] > │ let v28 : int64 option = method8(v27) │
00:06:59 #39517 [verbose] > │ v28 │
00:06:59 #39518 [verbose] > │ #else │
00:06:59 #39519 [verbose] > │ let v29 : int64 option = None │
00:06:59 #39520 [verbose] > │ let v30 : int64 option = method9(v29) │
00:06:59 #39521 [verbose] > │ v30 │
00:06:59 #39522 [verbose] > │ #endif │
00:06:59 #39523 [verbose] > │ |> fun x -> _v5 <- Some x │
00:06:59 #39524 [verbose] > │ let v31 : int64 option = _v5.Value │
00:06:59 #39525 [verbose] > │ struct (v1, v4, v0, v3, v31) │
00:06:59 #39526 [verbose] > │ and closure19 () (v0 : int64) : US5 = │
00:06:59 #39527 [verbose] > │ US5_0(v0) │
00:06:59 #39528 [verbose] > │ and method10 () : (int64 -> US5) = │
00:06:59 #39529 [verbose] > │ closure19() │
00:06:59 #39530 [verbose] > │ and method11 () : string = │
00:06:59 #39531 [verbose] > │ let v0 : string = "" │
00:06:59 #39532 [verbose] > │ v0 │
00:06:59 #39533 [verbose] > │ and closure18 (v0 : US3, v1 : (unit -> string), v2 : (unit -> string)) () : │
00:06:59 #39534 [verbose] > │ string = │
00:06:59 #39535 [verbose] > │ let v3 : (unit -> struct (Mut0 * Mut1 * Mut1 * Mut2 * int64 option)) = │
00:06:59 #39536 [verbose] > │ closure17() │
00:06:59 #39537 [verbose] > │ if State.trace_state = None then State.trace_state <- v3 () |> Some │
00:06:59 #39538 [verbose] > │ let struct (v4 : Mut0, v5 : Mut1, v6 : Mut1, v7 : Mut2, v8 : int64 │
00:06:59 #39539 [verbose] > │ option) = State.trace_state.Value │
00:06:59 #39540 [verbose] > │ let v9 : string option = None │
00:06:59 #39541 [verbose] > │ let mutable _v9 = v9 │
00:06:59 #39542 [verbose] > │ #if FABLE_COMPILER_RUST && !WASM && !CONTRACT │
00:06:59 #39543 [verbose] > │ let v10 : (int64 -> US5) = method10() │
00:06:59 #39544 [verbose] > │ let v11 : US5 = US5_1 │
00:06:59 #39545 [verbose] > │ let v12 : US5 = v8 |> Option.map v10 |> Option.defaultValue v11 │
00:06:59 #39546 [verbose] > │ let v30 : System.DateTime = │
00:06:59 #39547 [verbose] > │ match v12 with │
00:06:59 #39548 [verbose] > │ | US5_1 -> (* None *) │
00:06:59 #39549 [verbose] > │ let v28 : System.DateTime = System.DateTime.Now │
00:06:59 #39550 [verbose] > │ v28 │
00:06:59 #39551 [verbose] > │ | US5_0(v13) -> (* Some *) │
00:06:59 #39552 [verbose] > │ let v14 : System.DateTime = System.DateTime.Now │
00:06:59 #39553 [verbose] > │ let v15 : (System.DateTime -> int64) = _.Ticks │
00:06:59 #39554 [verbose] > │ let v16 : int64 = v15 v14 │
00:06:59 #39555 [verbose] > │ let v17 : int64 = v16 - v13 │
00:06:59 #39556 [verbose] > │ let v18 : System.TimeSpan = System.TimeSpan v17 │
00:06:59 #39557 [verbose] > │ let v19 : (System.TimeSpan -> int32) = _.Hours │
00:06:59 #39558 [verbose] > │ let v20 : int32 = v19 v18 │
00:06:59 #39559 [verbose] > │ let v21 : (System.TimeSpan -> int32) = _.Minutes │
00:06:59 #39560 [verbose] > │ let v22 : int32 = v21 v18 │
00:06:59 #39561 [verbose] > │ let v23 : (System.TimeSpan -> int32) = _.Seconds │
00:06:59 #39562 [verbose] > │ let v24 : int32 = v23 v18 │
00:06:59 #39563 [verbose] > │ let v25 : (System.TimeSpan -> int32) = _.Milliseconds │
00:06:59 #39564 [verbose] > │ let v26 : int32 = v25 v18 │
00:06:59 #39565 [verbose] > │ let v27 : System.DateTime = System.DateTime (1, 1, 1, v20, v22, │
00:06:59 #39566 [verbose] > │ v24, v26) │
00:06:59 #39567 [verbose] > │ v27 │
00:06:59 #39568 [verbose] > │ let v31 : string = "hh:mm:ss" │
00:06:59 #39569 [verbose] > │ let v32 : string = v30.ToString v31 │
00:06:59 #39570 [verbose] > │ v32 │
00:06:59 #39571 [verbose] > │ #endif │
00:06:59 #39572 [verbose] > │ #if FABLE_COMPILER_RUST && WASM │
00:06:59 #39573 [verbose] > │ let v33 : string = method11() │
00:06:59 #39574 [verbose] > │ v33 │
00:06:59 #39575 [verbose] > │ #endif │
00:06:59 #39576 [verbose] > │ #if FABLE_COMPILER_RUST && CONTRACT │
00:06:59 #39577 [verbose] > │ let v34 : string = method11() │
00:06:59 #39578 [verbose] > │ v34 │
00:06:59 #39579 [verbose] > │ #endif │
00:06:59 #39580 [verbose] > │ #if !FABLE_COMPILER && !FABLE_COMPILER_RUST && │
00:06:59 #39581 [verbose] > │ !FABLE_COMPILER_TYPESCRIPT && !WASM && !CONTRACT │
00:06:59 #39582 [verbose] > │ let v35 : (int64 -> US5) = method10() │
00:06:59 #39583 [verbose] > │ let v36 : US5 = US5_1 │
00:06:59 #39584 [verbose] > │ let v37 : US5 = v8 |> Option.map v35 |> Option.defaultValue v36 │
00:06:59 #39585 [verbose] > │ let v55 : System.DateTime = │
00:06:59 #39586 [verbose] > │ match v37 with │
00:06:59 #39587 [verbose] > │ | US5_1 -> (* None *) │
00:06:59 #39588 [verbose] > │ let v53 : System.DateTime = System.DateTime.Now │
00:06:59 #39589 [verbose] > │ v53 │
00:06:59 #39590 [verbose] > │ | US5_0(v38) -> (* Some *) │
00:06:59 #39591 [verbose] > │ let v39 : System.DateTime = System.DateTime.Now │
00:06:59 #39592 [verbose] > │ let v40 : (System.DateTime -> int64) = _.Ticks │
00:06:59 #39593 [verbose] > │ let v41 : int64 = v40 v39 │
00:06:59 #39594 [verbose] > │ let v42 : int64 = v41 - v38 │
00:06:59 #39595 [verbose] > │ let v43 : System.TimeSpan = System.TimeSpan v42 │
00:06:59 #39596 [verbose] > │ let v44 : (System.TimeSpan -> int32) = _.Hours │
00:06:59 #39597 [verbose] > │ let v45 : int32 = v44 v43 │
00:06:59 #39598 [verbose] > │ let v46 : (System.TimeSpan -> int32) = _.Minutes │
00:06:59 #39599 [verbose] > │ let v47 : int32 = v46 v43 │
00:06:59 #39600 [verbose] > │ let v48 : (System.TimeSpan -> int32) = _.Seconds │
00:06:59 #39601 [verbose] > │ let v49 : int32 = v48 v43 │
00:06:59 #39602 [verbose] > │ let v50 : (System.TimeSpan -> int32) = _.Milliseconds │
00:06:59 #39603 [verbose] > │ let v51 : int32 = v50 v43 │
00:06:59 #39604 [verbose] > │ let v52 : System.DateTime = System.DateTime (1, 1, 1, v45, v47, │
00:06:59 #39605 [verbose] > │ v49, v51) │
00:06:59 #39606 [verbose] > │ v52 │
00:06:59 #39607 [verbose] > │ let v56 : string = "HH:mm:ss" │
00:06:59 #39608 [verbose] > │ let v57 : string = v55.ToString v56 │
00:06:59 #39609 [verbose] > │ v57 │
00:06:59 #39610 [verbose] > │ #endif │
00:06:59 #39611 [verbose] > │ #if FABLE_COMPILER_TYPESCRIPT │
00:06:59 #39612 [verbose] > │ let v58 : string = method11() │
00:06:59 #39613 [verbose] > │ v58 │
00:06:59 #39614 [verbose] > │ #endif │
00:06:59 #39615 [verbose] > │ #if FABLE_COMPILER_PYTHON || FABLE_COMPILER_PHP || FABLE_COMPILER_DART │
00:06:59 #39616 [verbose] > │ let v59 : string = Unchecked.defaultof<string> │
00:06:59 #39617 [verbose] > │ v59 │
00:06:59 #39618 [verbose] > │ #endif │
00:06:59 #39619 [verbose] > │ |> fun x -> _v9 <- Some x │
00:06:59 #39620 [verbose] > │ let v60 : string = _v9.Value │
00:06:59 #39621 [verbose] > │ let v61 : int64 = v4.l0 │
00:06:59 #39622 [verbose] > │ let v71 : string = │
00:06:59 #39623 [verbose] > │ match v0 with │
00:06:59 #39624 [verbose] > │ | US3_4 -> (* Critical *) │
00:06:59 #39625 [verbose] > │ let v66 : string = "Critical" │
00:06:59 #39626 [verbose] > │ v66 │
00:06:59 #39627 [verbose] > │ | US3_1 -> (* Debug *) │
00:06:59 #39628 [verbose] > │ let v63 : string = "Debug" │
00:06:59 #39629 [verbose] > │ v63 │
00:06:59 #39630 [verbose] > │ | US3_2 -> (* Info *) │
00:06:59 #39631 [verbose] > │ let v64 : string = "Info" │
00:06:59 #39632 [verbose] > │ v64 │
00:06:59 #39633 [verbose] > │ | US3_0 -> (* Verbose *) │
00:06:59 #39634 [verbose] > │ let v62 : string = "Verbose" │
00:06:59 #39635 [verbose] > │ v62 │
00:06:59 #39636 [verbose] > │ | US3_3 -> (* Warning *) │
00:06:59 #39637 [verbose] > │ let v65 : string = "Warning" │
00:06:59 #39638 [verbose] > │ v65 │
00:06:59 #39639 [verbose] > │ let v72 : string = v71.ToLower () │
00:06:59 #39640 [verbose] > │ let v73 : string = $"{v60} #{v61} [{v72}] %s{v1 ()} / %s{v2 ()}" │
00:06:59 #39641 [verbose] > │ let v74 : (char []) = [||] │
00:06:59 #39642 [verbose] > │ let v75 : string = v73.TrimStart v74 │
00:06:59 #39643 [verbose] > │ let v76 : (char []) = [|' '; '/'|] │
00:06:59 #39644 [verbose] > │ let v77 : string = v75.TrimEnd v76 │
00:06:59 #39645 [verbose] > │ v77 │
00:06:59 #39646 [verbose] > │ and method7 (v0 : US3, v1 : (unit -> string), v2 : (unit -> string)) : unit │
00:06:59 #39647 [verbose] > │ = │
00:06:59 #39648 [verbose] > │ let v3 : (unit -> struct (Mut0 * Mut1 * Mut1 * Mut2 * int64 option)) = │
00:06:59 #39649 [verbose] > │ closure17() │
00:06:59 #39650 [verbose] > │ if State.trace_state = None then State.trace_state <- v3 () |> Some │
00:06:59 #39651 [verbose] > │ let struct (v4 : Mut0, v5 : Mut1, v6 : Mut1, v7 : Mut2, v8 : int64 │
00:06:59 #39652 [verbose] > │ option) = State.trace_state.Value │
00:06:59 #39653 [verbose] > │ if State.trace_state = None then State.trace_state <- v3 () |> Some │
00:06:59 #39654 [verbose] > │ let struct (v9 : Mut0, v10 : Mut1, v11 : Mut1, v12 : Mut2, v13 : int64 │
00:06:59 #39655 [verbose] > │ option) = State.trace_state.Value │
00:06:59 #39656 [verbose] > │ let v14 : US3 = v12.l0 │
00:06:59 #39657 [verbose] > │ let v15 : bool = v11.l0 │
00:06:59 #39658 [verbose] > │ let v17 : bool = │
00:06:59 #39659 [verbose] > │ if v15 then │
00:06:59 #39660 [verbose] > │ let v16 : bool = v0 >= v14 │
00:06:59 #39661 [verbose] > │ v16 │
00:06:59 #39662 [verbose] > │ else │
00:06:59 #39663 [verbose] > │ false │
00:06:59 #39664 [verbose] > │ if v17 then │
00:06:59 #39665 [verbose] > │ let v18 : int64 = v4.l0 │
00:06:59 #39666 [verbose] > │ let v19 : int64 = v18 + 1L │
00:06:59 #39667 [verbose] > │ v4.l0 <- v19 │
00:06:59 #39668 [verbose] > │ let v20 : (unit -> string) = closure18(v0, v1, v2) │
00:06:59 #39669 [verbose] > │ let v21 : string = $"%s{v20 ()}" │
00:06:59 #39670 [verbose] > │ let v22 : unit option = None │
00:06:59 #39671 [verbose] > │ let mutable _v22 = v22 │
00:06:59 #39672 [verbose] > │ #if FABLE_COMPILER_RUST && !WASM && !CONTRACT │
00:06:59 #39673 [verbose] > │ let v23 : string = @"println!(""{}"", $0)" │
00:06:59 #39674 [verbose] > │ Fable.Core.RustInterop.emitRustExpr v21 v23 │
00:06:59 #39675 [verbose] > │ () │
00:06:59 #39676 [verbose] > │ #endif │
00:06:59 #39677 [verbose] > │ #if FABLE_COMPILER_RUST && WASM │
00:06:59 #39678 [verbose] > │ let v24 : string = @"println!(""{}"", $0)" │
00:06:59 #39679 [verbose] > │ Fable.Core.RustInterop.emitRustExpr v21 v24 │
00:06:59 #39680 [verbose] > │ () │
00:06:59 #39681 [verbose] > │ #endif │
00:06:59 #39682 [verbose] > │ #if FABLE_COMPILER_RUST && CONTRACT │
00:06:59 #39683 [verbose] > │ let v25 : string = @"println!(""{}"", $0)" │
00:06:59 #39684 [verbose] > │ Fable.Core.RustInterop.emitRustExpr v21 v25 │
00:06:59 #39685 [verbose] > │ () │
00:06:59 #39686 [verbose] > │ #endif │
00:06:59 #39687 [verbose] > │ #if !FABLE_COMPILER && !FABLE_COMPILER_RUST && │
00:06:59 #39688 [verbose] > │ !FABLE_COMPILER_TYPESCRIPT && !WASM && !CONTRACT │
00:06:59 #39689 [verbose] > │ System.Console.WriteLine v21 │
00:06:59 #39690 [verbose] > │ () │
00:06:59 #39691 [verbose] > │ #endif │
00:06:59 #39692 [verbose] > │ #if FABLE_COMPILER_TYPESCRIPT │
00:06:59 #39693 [verbose] > │ System.Console.WriteLine v21 │
00:06:59 #39694 [verbose] > │ () │
00:06:59 #39695 [verbose] > │ #endif │
00:06:59 #39696 [verbose] > │ #if FABLE_COMPILER_PYTHON || FABLE_COMPILER_PHP || │
00:06:59 #39697 [verbose] > │ FABLE_COMPILER_DART │
00:06:59 #39698 [verbose] > │ Unchecked.defaultof<unit> │
00:06:59 #39699 [verbose] > │ () │
00:06:59 #39700 [verbose] > │ #endif │
00:06:59 #39701 [verbose] > │ |> fun x -> _v22 <- Some x │
00:06:59 #39702 [verbose] > │ _v22.Value │
00:06:59 #39703 [verbose] > │ () │
00:06:59 #39704 [verbose] > │ and method6 (v0 : string, v1 : int64) : Async<int64> = │
00:06:59 #39705 [verbose] > │ let v2 : Async<int64> option = None │
00:06:59 #39706 [verbose] > │ let mutable _v2 = v2 │
00:06:59 #39707 [verbose] > │ #if FABLE_COMPILER_RUST && !WASM && !CONTRACT │
00:06:59 #39708 [verbose] > │ let v3 : Async<int64> = null |> unbox<Async<int64>> │
00:06:59 #39709 [verbose] > │ v3 │
00:06:59 #39710 [verbose] > │ #endif │
00:06:59 #39711 [verbose] > │ #if FABLE_COMPILER_RUST && WASM │
00:06:59 #39712 [verbose] > │ let v4 : Async<int64> = null |> unbox<Async<int64>> │
00:06:59 #39713 [verbose] > │ v4 │
00:06:59 #39714 [verbose] > │ #endif │
00:06:59 #39715 [verbose] > │ #if FABLE_COMPILER_RUST && CONTRACT │
00:06:59 #39716 [verbose] > │ let v5 : Async<int64> = null |> unbox<Async<int64>> │
00:06:59 #39717 [verbose] > │ v5 │
00:06:59 #39718 [verbose] > │ #endif │
00:06:59 #39719 [verbose] > │ #if !FABLE_COMPILER && !FABLE_COMPILER_RUST && │
00:06:59 #39720 [verbose] > │ !FABLE_COMPILER_TYPESCRIPT && !WASM && !CONTRACT │
00:06:59 #39721 [verbose] > │ let v6 : Async<int64> option = None │
00:06:59 #39722 [verbose] > │ let mutable _v6 = v6 │
00:06:59 #39723 [verbose] > │ async { │
00:06:59 #39724 [verbose] > │ try │
00:06:59 #39725 [verbose] > │ let v7 : unit option = None │
00:06:59 #39726 [verbose] > │ let mutable _v7 = v7 │
00:06:59 #39727 [verbose] > │ #if FABLE_COMPILER_RUST && !WASM && !CONTRACT │
00:06:59 #39728 [verbose] > │ null |> unbox<unit> │
00:06:59 #39729 [verbose] > │ () │
00:06:59 #39730 [verbose] > │ #endif │
00:06:59 #39731 [verbose] > │ #if FABLE_COMPILER_RUST && WASM │
00:06:59 #39732 [verbose] > │ null |> unbox<unit> │
00:06:59 #39733 [verbose] > │ () │
00:06:59 #39734 [verbose] > │ #endif │
00:06:59 #39735 [verbose] > │ #if FABLE_COMPILER_RUST && CONTRACT │
00:06:59 #39736 [verbose] > │ null |> unbox<unit> │
00:06:59 #39737 [verbose] > │ () │
00:06:59 #39738 [verbose] > │ #endif │
00:06:59 #39739 [verbose] > │ #if !FABLE_COMPILER && !FABLE_COMPILER_RUST && │
00:06:59 #39740 [verbose] > │ !FABLE_COMPILER_TYPESCRIPT && !WASM && !CONTRACT │
00:06:59 #39741 [verbose] > │ let v8 : (string -> unit) = System.IO.File.Delete │
00:06:59 #39742 [verbose] > │ v8 v0 │
00:06:59 #39743 [verbose] > │ () │
00:06:59 #39744 [verbose] > │ #endif │
00:06:59 #39745 [verbose] > │ #if FABLE_COMPILER_TYPESCRIPT │
00:06:59 #39746 [verbose] > │ null |> unbox<unit> │
00:06:59 #39747 [verbose] > │ () │
00:06:59 #39748 [verbose] > │ #endif │
00:06:59 #39749 [verbose] > │ #if FABLE_COMPILER_PYTHON || FABLE_COMPILER_PHP || FABLE_COMPILER_DART │
00:06:59 #39750 [verbose] > │ Unchecked.defaultof<unit> │
00:06:59 #39751 [verbose] > │ () │
00:06:59 #39752 [verbose] > │ #endif │
00:06:59 #39753 [verbose] > │ |> fun x -> _v7 <- Some x │
00:06:59 #39754 [verbose] > │ _v7.Value │
00:06:59 #39755 [verbose] > │ return v1 │
00:06:59 #39756 [verbose] > │ with ex -> │
00:06:59 #39757 [verbose] > │ let v9 : exn = ex │
00:06:59 #39758 [verbose] > │ let v10 : int64 = v1 % 100L │
00:06:59 #39759 [verbose] > │ let v11 : bool = v10 = 0L │
00:06:59 #39760 [verbose] > │ if v11 then │
00:06:59 #39761 [verbose] > │ let v12 : string option = None │
00:06:59 #39762 [verbose] > │ let mutable _v12 = v12 │
00:06:59 #39763 [verbose] > │ #if FABLE_COMPILER_RUST && !WASM && !CONTRACT │
00:06:59 #39764 [verbose] > │ let v13 : string = $"%A{v9}" │
00:06:59 #39765 [verbose] > │ v13 │
00:06:59 #39766 [verbose] > │ #endif │
00:06:59 #39767 [verbose] > │ #if FABLE_COMPILER_RUST && WASM │
00:06:59 #39768 [verbose] > │ let v14 : string = $"%A{v9}" │
00:06:59 #39769 [verbose] > │ v14 │
00:06:59 #39770 [verbose] > │ #endif │
00:06:59 #39771 [verbose] > │ #if FABLE_COMPILER_RUST && CONTRACT │
00:06:59 #39772 [verbose] > │ let v15 : string = $"%A{v9}" │
00:06:59 #39773 [verbose] > │ v15 │
00:06:59 #39774 [verbose] > │ #endif │
00:06:59 #39775 [verbose] > │ #if !FABLE_COMPILER && !FABLE_COMPILER_RUST && │
00:06:59 #39776 [verbose] > │ !FABLE_COMPILER_TYPESCRIPT && !WASM && !CONTRACT │
00:06:59 #39777 [verbose] > │ let v16 : string = $"{v9.GetType ()}: {v9.Message}" │
00:06:59 #39778 [verbose] > │ v16 │
00:06:59 #39779 [verbose] > │ #endif │
00:06:59 #39780 [verbose] > │ #if FABLE_COMPILER_TYPESCRIPT │
00:06:59 #39781 [verbose] > │ let v17 : string = $"%A{v9}" │
00:06:59 #39782 [verbose] > │ v17 │
00:06:59 #39783 [verbose] > │ #endif │
00:06:59 #39784 [verbose] > │ #if FABLE_COMPILER_PYTHON || FABLE_COMPILER_PHP || │
00:06:59 #39785 [verbose] > │ FABLE_COMPILER_DART │
00:06:59 #39786 [verbose] > │ let v18 : string = Unchecked.defaultof<string> │
00:06:59 #39787 [verbose] > │ v18 │
00:06:59 #39788 [verbose] > │ #endif │
00:06:59 #39789 [verbose] > │ |> fun x -> _v12 <- Some x │
00:06:59 #39790 [verbose] > │ let v19 : string = _v12.Value │
00:06:59 #39791 [verbose] > │ let v20 : US3 = US3_3 │
00:06:59 #39792 [verbose] > │ let v21 : (unit -> string) = closure16() │
00:06:59 #39793 [verbose] > │ let v22 : (unit -> string) = closure3() │
00:06:59 #39794 [verbose] > │ method7(v20, v21, v22) │
00:06:59 #39795 [verbose] > │ let v23 : Async<unit> option = None │
00:06:59 #39796 [verbose] > │ let mutable _v23 = v23 │
00:06:59 #39797 [verbose] > │ #if FABLE_COMPILER_RUST && !WASM && !CONTRACT │
00:06:59 #39798 [verbose] > │ let v24 : Async<unit> = null |> unbox<Async<unit>> │
00:06:59 #39799 [verbose] > │ v24 │
00:06:59 #39800 [verbose] > │ #endif │
00:06:59 #39801 [verbose] > │ #if FABLE_COMPILER_RUST && WASM │
00:06:59 #39802 [verbose] > │ let v25 : Async<unit> = null |> unbox<Async<unit>> │
00:06:59 #39803 [verbose] > │ v25 │
00:06:59 #39804 [verbose] > │ #endif │
00:06:59 #39805 [verbose] > │ #if FABLE_COMPILER_RUST && CONTRACT │
00:06:59 #39806 [verbose] > │ let v26 : Async<unit> = null |> unbox<Async<unit>> │
00:06:59 #39807 [verbose] > │ v26 │
00:06:59 #39808 [verbose] > │ #endif │
00:06:59 #39809 [verbose] > │ #if !FABLE_COMPILER && !FABLE_COMPILER_RUST && │
00:06:59 #39810 [verbose] > │ !FABLE_COMPILER_TYPESCRIPT && !WASM && !CONTRACT │
00:06:59 #39811 [verbose] > │ let v27 : (int32 -> Async<unit>) = Async.Sleep │
00:06:59 #39812 [verbose] > │ let v28 : Async<unit> = v27 10 │
00:06:59 #39813 [verbose] > │ v28 │
00:06:59 #39814 [verbose] > │ #endif │
00:06:59 #39815 [verbose] > │ #if FABLE_COMPILER_TYPESCRIPT │
00:06:59 #39816 [verbose] > │ let v29 : Async<unit> = null |> unbox<Async<unit>> │
00:06:59 #39817 [verbose] > │ v29 │
00:06:59 #39818 [verbose] > │ #endif │
00:06:59 #39819 [verbose] > │ #if FABLE_COMPILER_PYTHON || FABLE_COMPILER_PHP || FABLE_COMPILER_DART │
00:06:59 #39820 [verbose] > │ let v30 : Async<unit> = Unchecked.defaultof<Async<unit>> │
00:06:59 #39821 [verbose] > │ v30 │
00:06:59 #39822 [verbose] > │ #endif │
00:06:59 #39823 [verbose] > │ |> fun x -> _v23 <- Some x │
00:06:59 #39824 [verbose] > │ let v31 : Async<unit> = _v23.Value │
00:06:59 #39825 [verbose] > │ do! v31 │
00:06:59 #39826 [verbose] > │ let v32 : int64 = v1 + 1L │
00:06:59 #39827 [verbose] > │ let v33 : Async<int64> = method6(v0, v32) │
00:06:59 #39828 [verbose] > │ return! v33 │
00:06:59 #39829 [verbose] > │ (* │
00:06:59 #39830 [verbose] > │ let v34 : int64 = *) │
00:06:59 #39831 [verbose] > │ } │
00:06:59 #39832 [verbose] > │ |> fun x -> _v6 <- Some x │
00:06:59 #39833 [verbose] > │ let v35 : Async<int64> = _v6 |> Option.get │
00:06:59 #39834 [verbose] > │ v35 │
00:06:59 #39835 [verbose] > │ #endif │
00:06:59 #39836 [verbose] > │ #if FABLE_COMPILER_TYPESCRIPT │
00:06:59 #39837 [verbose] > │ let v36 : Async<int64> = null |> unbox<Async<int64>> │
00:06:59 #39838 [verbose] > │ v36 │
00:06:59 #39839 [verbose] > │ #endif │
00:06:59 #39840 [verbose] > │ #if FABLE_COMPILER_PYTHON || FABLE_COMPILER_PHP || FABLE_COMPILER_DART │
00:06:59 #39841 [verbose] > │ let v37 : Async<int64> = Unchecked.defaultof<Async<int64>> │
00:06:59 #39842 [verbose] > │ v37 │
00:06:59 #39843 [verbose] > │ #endif │
00:06:59 #39844 [verbose] > │ |> fun x -> _v2 <- Some x │
00:06:59 #39845 [verbose] > │ let v38 : Async<int64> = _v2.Value │
00:06:59 #39846 [verbose] > │ v38 │
00:06:59 #39847 [verbose] > │ and closure15 () (v0 : string) : Async<int64> = │
00:06:59 #39848 [verbose] > │ let v1 : Async<int64> option = None │
00:06:59 #39849 [verbose] > │ let mutable _v1 = v1 │
00:06:59 #39850 [verbose] > │ #if FABLE_COMPILER_RUST && !WASM && !CONTRACT │
00:06:59 #39851 [verbose] > │ let v2 : Async<int64> = null |> unbox<Async<int64>> │
00:06:59 #39852 [verbose] > │ v2 │
00:06:59 #39853 [verbose] > │ #endif │
00:06:59 #39854 [verbose] > │ #if FABLE_COMPILER_RUST && WASM │
00:06:59 #39855 [verbose] > │ let v3 : Async<int64> = null |> unbox<Async<int64>> │
00:06:59 #39856 [verbose] > │ v3 │
00:06:59 #39857 [verbose] > │ #endif │
00:06:59 #39858 [verbose] > │ #if FABLE_COMPILER_RUST && CONTRACT │
00:06:59 #39859 [verbose] > │ let v4 : Async<int64> = null |> unbox<Async<int64>> │
00:06:59 #39860 [verbose] > │ v4 │
00:06:59 #39861 [verbose] > │ #endif │
00:06:59 #39862 [verbose] > │ #if !FABLE_COMPILER && !FABLE_COMPILER_RUST && │
00:06:59 #39863 [verbose] > │ !FABLE_COMPILER_TYPESCRIPT && !WASM && !CONTRACT │
00:06:59 #39864 [verbose] > │ let v5 : int64 = 0L │
00:06:59 #39865 [verbose] > │ let v6 : Async<int64> = method6(v0, v5) │
00:06:59 #39866 [verbose] > │ v6 │
00:06:59 #39867 [verbose] > │ #endif │
00:06:59 #39868 [verbose] > │ #if FABLE_COMPILER_TYPESCRIPT │
00:06:59 #39869 [verbose] > │ let v7 : Async<int64> = null |> unbox<Async<int64>> │
00:06:59 #39870 [verbose] > │ v7 │
00:06:59 #39871 [verbose] > │ #endif │
00:06:59 #39872 [verbose] > │ #if FABLE_COMPILER_PYTHON || FABLE_COMPILER_PHP || FABLE_COMPILER_DART │
00:06:59 #39873 [verbose] > │ let v8 : Async<int64> = Unchecked.defaultof<Async<int64>> │
00:06:59 #39874 [verbose] > │ v8 │
00:06:59 #39875 [verbose] > │ #endif │
00:06:59 #39876 [verbose] > │ |> fun x -> _v1 <- Some x │
00:06:59 #39877 [verbose] > │ let v9 : Async<int64> = _v1.Value │
00:06:59 #39878 [verbose] > │ v9 │
00:06:59 #39879 [verbose] > │ and closure22 () () : string = │
00:06:59 #39880 [verbose] > │ let v0 : string = "move_file_async" │
00:06:59 #39881 [verbose] > │ v0 │
00:06:59 #39882 [verbose] > │ and method13 (v0 : string, v1 : string, v2 : exn) : string = │
00:06:59 #39883 [verbose] > │ let v3 : string option = None │
00:06:59 #39884 [verbose] > │ let mutable _v3 = v3 │
00:06:59 #39885 [verbose] > │ #if FABLE_COMPILER_RUST && !WASM && !CONTRACT │
00:06:59 #39886 [verbose] > │ let v4 : string = $"%A{v2}" │
00:06:59 #39887 [verbose] > │ v4 │
00:06:59 #39888 [verbose] > │ #endif │
00:06:59 #39889 [verbose] > │ #if FABLE_COMPILER_RUST && WASM │
00:06:59 #39890 [verbose] > │ let v5 : string = $"%A{v2}" │
00:06:59 #39891 [verbose] > │ v5 │
00:06:59 #39892 [verbose] > │ #endif │
00:06:59 #39893 [verbose] > │ #if FABLE_COMPILER_RUST && CONTRACT │
00:06:59 #39894 [verbose] > │ let v6 : string = $"%A{v2}" │
00:06:59 #39895 [verbose] > │ v6 │
00:06:59 #39896 [verbose] > │ #endif │
00:06:59 #39897 [verbose] > │ #if !FABLE_COMPILER && !FABLE_COMPILER_RUST && │
00:06:59 #39898 [verbose] > │ !FABLE_COMPILER_TYPESCRIPT && !WASM && !CONTRACT │
00:06:59 #39899 [verbose] > │ let v7 : string = $"{v2.GetType ()}: {v2.Message}" │
00:06:59 #39900 [verbose] > │ v7 │
00:06:59 #39901 [verbose] > │ #endif │
00:06:59 #39902 [verbose] > │ #if FABLE_COMPILER_TYPESCRIPT │
00:06:59 #39903 [verbose] > │ let v8 : string = $"%A{v2}" │
00:06:59 #39904 [verbose] > │ v8 │
00:06:59 #39905 [verbose] > │ #endif │
00:06:59 #39906 [verbose] > │ #if FABLE_COMPILER_PYTHON || FABLE_COMPILER_PHP || FABLE_COMPILER_DART │
00:06:59 #39907 [verbose] > │ let v9 : string = Unchecked.defaultof<string> │
00:06:59 #39908 [verbose] > │ v9 │
00:06:59 #39909 [verbose] > │ #endif │
00:06:59 #39910 [verbose] > │ |> fun x -> _v3 <- Some x │
00:06:59 #39911 [verbose] > │ let v10 : string = _v3.Value │
00:06:59 #39912 [verbose] > │ let v11 : (string -> string) = closure2() │
00:06:59 #39913 [verbose] > │ let v12 : (unit -> string) = closure3() │
00:06:59 #39914 [verbose] > │ let v13 : string = $"old_path: {v1 |> v11} / new_path: {v0 |> v11} / ex: │
00:06:59 #39915 [verbose] > │ {v10} / {v12 ()}" │
00:06:59 #39916 [verbose] > │ v13 │
00:06:59 #39917 [verbose] > │ and closure23 (v0 : string, v1 : string, v2 : exn) () : string = │
00:06:59 #39918 [verbose] > │ method13(v0, v1, v2) │
00:06:59 #39919 [verbose] > │ and method12 (v0 : string, v1 : string, v2 : int64) : Async<int64> = │
00:06:59 #39920 [verbose] > │ let v3 : Async<int64> option = None │
00:06:59 #39921 [verbose] > │ let mutable _v3 = v3 │
00:06:59 #39922 [verbose] > │ #if FABLE_COMPILER_RUST && !WASM && !CONTRACT │
00:06:59 #39923 [verbose] > │ let v4 : Async<int64> = null |> unbox<Async<int64>> │
00:06:59 #39924 [verbose] > │ v4 │
00:06:59 #39925 [verbose] > │ #endif │
00:06:59 #39926 [verbose] > │ #if FABLE_COMPILER_RUST && WASM │
00:06:59 #39927 [verbose] > │ let v5 : Async<int64> = null |> unbox<Async<int64>> │
00:06:59 #39928 [verbose] > │ v5 │
00:06:59 #39929 [verbose] > │ #endif │
00:06:59 #39930 [verbose] > │ #if FABLE_COMPILER_RUST && CONTRACT │
00:06:59 #39931 [verbose] > │ let v6 : Async<int64> = null |> unbox<Async<int64>> │
00:06:59 #39932 [verbose] > │ v6 │
00:06:59 #39933 [verbose] > │ #endif │
00:06:59 #39934 [verbose] > │ #if !FABLE_COMPILER && !FABLE_COMPILER_RUST && │
00:06:59 #39935 [verbose] > │ !FABLE_COMPILER_TYPESCRIPT && !WASM && !CONTRACT │
00:06:59 #39936 [verbose] > │ let v7 : Async<int64> option = None │
00:06:59 #39937 [verbose] > │ let mutable _v7 = v7 │
00:06:59 #39938 [verbose] > │ async { │
00:06:59 #39939 [verbose] > │ try │
00:06:59 #39940 [verbose] > │ let v8 : unit option = None │
00:06:59 #39941 [verbose] > │ let mutable _v8 = v8 │
00:06:59 #39942 [verbose] > │ #if FABLE_COMPILER_RUST && !WASM && !CONTRACT │
00:06:59 #39943 [verbose] > │ null |> unbox<unit> │
00:06:59 #39944 [verbose] > │ () │
00:06:59 #39945 [verbose] > │ #endif │
00:06:59 #39946 [verbose] > │ #if FABLE_COMPILER_RUST && WASM │
00:06:59 #39947 [verbose] > │ null |> unbox<unit> │
00:06:59 #39948 [verbose] > │ () │
00:06:59 #39949 [verbose] > │ #endif │
00:06:59 #39950 [verbose] > │ #if FABLE_COMPILER_RUST && CONTRACT │
00:06:59 #39951 [verbose] > │ null |> unbox<unit> │
00:06:59 #39952 [verbose] > │ () │
00:06:59 #39953 [verbose] > │ #endif │
00:06:59 #39954 [verbose] > │ #if !FABLE_COMPILER && !FABLE_COMPILER_RUST && │
00:06:59 #39955 [verbose] > │ !FABLE_COMPILER_TYPESCRIPT && !WASM && !CONTRACT │
00:06:59 #39956 [verbose] > │ System.IO.File.Move (v1, v0) │
00:06:59 #39957 [verbose] > │ () │
00:06:59 #39958 [verbose] > │ #endif │
00:06:59 #39959 [verbose] > │ #if FABLE_COMPILER_TYPESCRIPT │
00:06:59 #39960 [verbose] > │ null |> unbox<unit> │
00:06:59 #39961 [verbose] > │ () │
00:06:59 #39962 [verbose] > │ #endif │
00:06:59 #39963 [verbose] > │ #if FABLE_COMPILER_PYTHON || FABLE_COMPILER_PHP || FABLE_COMPILER_DART │
00:06:59 #39964 [verbose] > │ Unchecked.defaultof<unit> │
00:06:59 #39965 [verbose] > │ () │
00:06:59 #39966 [verbose] > │ #endif │
00:06:59 #39967 [verbose] > │ |> fun x -> _v8 <- Some x │
00:06:59 #39968 [verbose] > │ _v8.Value │
00:06:59 #39969 [verbose] > │ return v2 │
00:06:59 #39970 [verbose] > │ with ex -> │
00:06:59 #39971 [verbose] > │ let v9 : exn = ex │
00:06:59 #39972 [verbose] > │ let v10 : int64 = v2 % 100L │
00:06:59 #39973 [verbose] > │ let v11 : bool = v10 = 0L │
00:06:59 #39974 [verbose] > │ if v11 then │
00:06:59 #39975 [verbose] > │ let v12 : US3 = US3_3 │
00:06:59 #39976 [verbose] > │ let v13 : (unit -> string) = closure22() │
00:06:59 #39977 [verbose] > │ let v14 : (unit -> string) = closure23(v0, v1, v9) │
00:06:59 #39978 [verbose] > │ method7(v12, v13, v14) │
00:06:59 #39979 [verbose] > │ let v15 : Async<unit> option = None │
00:06:59 #39980 [verbose] > │ let mutable _v15 = v15 │
00:06:59 #39981 [verbose] > │ #if FABLE_COMPILER_RUST && !WASM && !CONTRACT │
00:06:59 #39982 [verbose] > │ let v16 : Async<unit> = null |> unbox<Async<unit>> │
00:06:59 #39983 [verbose] > │ v16 │
00:06:59 #39984 [verbose] > │ #endif │
00:06:59 #39985 [verbose] > │ #if FABLE_COMPILER_RUST && WASM │
00:06:59 #39986 [verbose] > │ let v17 : Async<unit> = null |> unbox<Async<unit>> │
00:06:59 #39987 [verbose] > │ v17 │
00:06:59 #39988 [verbose] > │ #endif │
00:06:59 #39989 [verbose] > │ #if FABLE_COMPILER_RUST && CONTRACT │
00:06:59 #39990 [verbose] > │ let v18 : Async<unit> = null |> unbox<Async<unit>> │
00:06:59 #39991 [verbose] > │ v18 │
00:06:59 #39992 [verbose] > │ #endif │
00:06:59 #39993 [verbose] > │ #if !FABLE_COMPILER && !FABLE_COMPILER_RUST && │
00:06:59 #39994 [verbose] > │ !FABLE_COMPILER_TYPESCRIPT && !WASM && !CONTRACT │
00:06:59 #39995 [verbose] > │ let v19 : (int32 -> Async<unit>) = Async.Sleep │
00:06:59 #39996 [verbose] > │ let v20 : Async<unit> = v19 10 │
00:06:59 #39997 [verbose] > │ v20 │
00:06:59 #39998 [verbose] > │ #endif │
00:06:59 #39999 [verbose] > │ #if FABLE_COMPILER_TYPESCRIPT │
00:06:59 #40000 [verbose] > │ let v21 : Async<unit> = null |> unbox<Async<unit>> │
00:06:59 #40001 [verbose] > │ v21 │
00:06:59 #40002 [verbose] > │ #endif │
00:06:59 #40003 [verbose] > │ #if FABLE_COMPILER_PYTHON || FABLE_COMPILER_PHP || FABLE_COMPILER_DART │
00:06:59 #40004 [verbose] > │ let v22 : Async<unit> = Unchecked.defaultof<Async<unit>> │
00:06:59 #40005 [verbose] > │ v22 │
00:06:59 #40006 [verbose] > │ #endif │
00:06:59 #40007 [verbose] > │ |> fun x -> _v15 <- Some x │
00:06:59 #40008 [verbose] > │ let v23 : Async<unit> = _v15.Value │
00:06:59 #40009 [verbose] > │ do! v23 │
00:06:59 #40010 [verbose] > │ let v24 : int64 = v2 + 1L │
00:06:59 #40011 [verbose] > │ let v25 : Async<int64> = method12(v0, v1, v24) │
00:06:59 #40012 [verbose] > │ return! v25 │
00:06:59 #40013 [verbose] > │ (* │
00:06:59 #40014 [verbose] > │ *) │
00:06:59 #40015 [verbose] > │ } │
00:06:59 #40016 [verbose] > │ |> fun x -> _v7 <- Some x │
00:06:59 #40017 [verbose] > │ let v26 : Async<int64> = _v7 |> Option.get │
00:06:59 #40018 [verbose] > │ v26 │
00:06:59 #40019 [verbose] > │ #endif │
00:06:59 #40020 [verbose] > │ #if FABLE_COMPILER_TYPESCRIPT │
00:06:59 #40021 [verbose] > │ let v27 : Async<int64> = null |> unbox<Async<int64>> │
00:06:59 #40022 [verbose] > │ v27 │
00:06:59 #40023 [verbose] > │ #endif │
00:06:59 #40024 [verbose] > │ #if FABLE_COMPILER_PYTHON || FABLE_COMPILER_PHP || FABLE_COMPILER_DART │
00:06:59 #40025 [verbose] > │ let v28 : Async<int64> = Unchecked.defaultof<Async<int64>> │
00:06:59 #40026 [verbose] > │ v28 │
00:06:59 #40027 [verbose] > │ #endif │
00:06:59 #40028 [verbose] > │ |> fun x -> _v3 <- Some x │
00:06:59 #40029 [verbose] > │ let v29 : Async<int64> = _v3.Value │
00:06:59 #40030 [verbose] > │ v29 │
00:06:59 #40031 [verbose] > │ and closure21 (v0 : string) (v1 : string) : Async<int64> = │
00:06:59 #40032 [verbose] > │ let v2 : Async<int64> option = None │
00:06:59 #40033 [verbose] > │ let mutable _v2 = v2 │
00:06:59 #40034 [verbose] > │ #if FABLE_COMPILER_RUST && !WASM && !CONTRACT │
00:06:59 #40035 [verbose] > │ let v3 : Async<int64> = null |> unbox<Async<int64>> │
00:06:59 #40036 [verbose] > │ v3 │
00:06:59 #40037 [verbose] > │ #endif │
00:06:59 #40038 [verbose] > │ #if FABLE_COMPILER_RUST && WASM │
00:06:59 #40039 [verbose] > │ let v4 : Async<int64> = null |> unbox<Async<int64>> │
00:06:59 #40040 [verbose] > │ v4 │
00:06:59 #40041 [verbose] > │ #endif │
00:06:59 #40042 [verbose] > │ #if FABLE_COMPILER_RUST && CONTRACT │
00:06:59 #40043 [verbose] > │ let v5 : Async<int64> = null |> unbox<Async<int64>> │
00:06:59 #40044 [verbose] > │ v5 │
00:06:59 #40045 [verbose] > │ #endif │
00:06:59 #40046 [verbose] > │ #if !FABLE_COMPILER && !FABLE_COMPILER_RUST && │
00:06:59 #40047 [verbose] > │ !FABLE_COMPILER_TYPESCRIPT && !WASM && !CONTRACT │
00:06:59 #40048 [verbose] > │ let v6 : int64 = 0L │
00:06:59 #40049 [verbose] > │ let v7 : Async<int64> = method12(v0, v1, v6) │
00:06:59 #40050 [verbose] > │ v7 │
00:06:59 #40051 [verbose] > │ #endif │
00:06:59 #40052 [verbose] > │ #if FABLE_COMPILER_TYPESCRIPT │
00:06:59 #40053 [verbose] > │ let v8 : Async<int64> = null |> unbox<Async<int64>> │
00:06:59 #40054 [verbose] > │ v8 │
00:06:59 #40055 [verbose] > │ #endif │
00:06:59 #40056 [verbose] > │ #if FABLE_COMPILER_PYTHON || FABLE_COMPILER_PHP || FABLE_COMPILER_DART │
00:06:59 #40057 [verbose] > │ let v9 : Async<int64> = Unchecked.defaultof<Async<int64>> │
00:06:59 #40058 [verbose] > │ v9 │
00:06:59 #40059 [verbose] > │ #endif │
00:06:59 #40060 [verbose] > │ |> fun x -> _v2 <- Some x │
00:06:59 #40061 [verbose] > │ let v10 : Async<int64> = _v2.Value │
00:06:59 #40062 [verbose] > │ v10 │
00:06:59 #40063 [verbose] > │ and closure20 () (v0 : string) : (string -> Async<int64>) = │
00:06:59 #40064 [verbose] > │ closure21(v0) │
00:06:59 #40065 [verbose] > │ and closure25 () (v0 : int64) : US6 = │
00:06:59 #40066 [verbose] > │ US6_0(v0) │
00:06:59 #40067 [verbose] > │ and closure26 () (v0 : exn) : US6 = │
00:06:59 #40068 [verbose] > │ US6_1(v0) │
00:06:59 #40069 [verbose] > │ and closure27 () () : string = │
00:06:59 #40070 [verbose] > │ let v0 : string = "run_with_timeout_async" │
00:06:59 #40071 [verbose] > │ v0 │
00:06:59 #40072 [verbose] > │ and closure28 () () : string = │
00:06:59 #40073 [verbose] > │ let v0 : (unit -> string) = closure3() │
00:06:59 #40074 [verbose] > │ let v1 : string = $"timeout: {1000} / {v0 ()}" │
00:06:59 #40075 [verbose] > │ v1 │
00:06:59 #40076 [verbose] > │ and closure29 (v0 : string) () : string = │
00:06:59 #40077 [verbose] > │ let v1 : string = $"run_with_timeout_async** / ex: {v0}" │
00:06:59 #40078 [verbose] > │ v1 │
00:06:59 #40079 [verbose] > │ and closure30 () () : string = │
00:06:59 #40080 [verbose] > │ let v0 : string = "read_all_text_retry_async" │
00:06:59 #40081 [verbose] > │ v0 │
00:06:59 #40082 [verbose] > │ and method15 (v0 : int64, v1 : string) : string = │
00:06:59 #40083 [verbose] > │ let v2 : (unit -> string) = closure3() │
00:06:59 #40084 [verbose] > │ let v3 : string = $"retry: {v0} / ex: {v1} / {v2 ()}" │
00:06:59 #40085 [verbose] > │ v3 │
00:06:59 #40086 [verbose] > │ and closure31 (v0 : int64, v1 : string) () : string = │
00:06:59 #40087 [verbose] > │ method15(v0, v1) │
00:06:59 #40088 [verbose] > │ and method14 (v0 : string, v1 : int64) : Async<string option> = │
00:06:59 #40089 [verbose] > │ let v2 : Async<string option> option = None │
00:06:59 #40090 [verbose] > │ let mutable _v2 = v2 │
00:06:59 #40091 [verbose] > │ #if FABLE_COMPILER_RUST && !WASM && !CONTRACT │
00:06:59 #40092 [verbose] > │ let v3 : Async<string option> = null |> unbox<Async<string option>> │
00:06:59 #40093 [verbose] > │ v3 │
00:06:59 #40094 [verbose] > │ #endif │
00:06:59 #40095 [verbose] > │ #if FABLE_COMPILER_RUST && WASM │
00:06:59 #40096 [verbose] > │ let v4 : Async<string option> = null |> unbox<Async<string option>> │
00:06:59 #40097 [verbose] > │ v4 │
00:06:59 #40098 [verbose] > │ #endif │
00:06:59 #40099 [verbose] > │ #if FABLE_COMPILER_RUST && CONTRACT │
00:06:59 #40100 [verbose] > │ let v5 : Async<string option> = null |> unbox<Async<string option>> │
00:06:59 #40101 [verbose] > │ v5 │
00:06:59 #40102 [verbose] > │ #endif │
00:06:59 #40103 [verbose] > │ #if !FABLE_COMPILER && !FABLE_COMPILER_RUST && │
00:06:59 #40104 [verbose] > │ !FABLE_COMPILER_TYPESCRIPT && !WASM && !CONTRACT │
00:06:59 #40105 [verbose] > │ let v6 : Async<string option> option = None │
00:06:59 #40106 [verbose] > │ let mutable _v6 = v6 │
00:06:59 #40107 [verbose] > │ async { │
00:06:59 #40108 [verbose] > │ try │
00:06:59 #40109 [verbose] > │ let v7 : bool = v1 > 0L │
00:06:59 #40110 [verbose] > │ if v7 then │
00:06:59 #40111 [verbose] > │ let v8 : Async<int64> option = None │
00:06:59 #40112 [verbose] > │ let mutable _v8 = v8 │
00:06:59 #40113 [verbose] > │ #if FABLE_COMPILER_RUST && !WASM && !CONTRACT │
00:06:59 #40114 [verbose] > │ let v9 : Async<int64> = null |> unbox<Async<int64>> │
00:06:59 #40115 [verbose] > │ v9 │
00:06:59 #40116 [verbose] > │ #endif │
00:06:59 #40117 [verbose] > │ #if FABLE_COMPILER_RUST && WASM │
00:06:59 #40118 [verbose] > │ let v10 : Async<int64> = null |> unbox<Async<int64>> │
00:06:59 #40119 [verbose] > │ v10 │
00:06:59 #40120 [verbose] > │ #endif │
00:06:59 #40121 [verbose] > │ #if FABLE_COMPILER_RUST && CONTRACT │
00:06:59 #40122 [verbose] > │ let v11 : Async<int64> = null |> unbox<Async<int64>> │
00:06:59 #40123 [verbose] > │ v11 │
00:06:59 #40124 [verbose] > │ #endif │
00:06:59 #40125 [verbose] > │ #if !FABLE_COMPILER && !FABLE_COMPILER_RUST && │
00:06:59 #40126 [verbose] > │ !FABLE_COMPILER_TYPESCRIPT && !WASM && !CONTRACT │
00:06:59 #40127 [verbose] > │ let v12 : int64 = 0L │
00:06:59 #40128 [verbose] > │ let v13 : Async<int64> = method4(v0, v12) │
00:06:59 #40129 [verbose] > │ v13 │
00:06:59 #40130 [verbose] > │ #endif │
00:06:59 #40131 [verbose] > │ #if FABLE_COMPILER_TYPESCRIPT │
00:06:59 #40132 [verbose] > │ let v14 : Async<int64> = null |> unbox<Async<int64>> │
00:06:59 #40133 [verbose] > │ v14 │
00:06:59 #40134 [verbose] > │ #endif │
00:06:59 #40135 [verbose] > │ #if FABLE_COMPILER_PYTHON || FABLE_COMPILER_PHP || │
00:06:59 #40136 [verbose] > │ FABLE_COMPILER_DART │
00:06:59 #40137 [verbose] > │ let v15 : Async<int64> = Unchecked.defaultof<Async<int64>> │
00:06:59 #40138 [verbose] > │ v15 │
00:06:59 #40139 [verbose] > │ #endif │
00:06:59 #40140 [verbose] > │ |> fun x -> _v8 <- Some x │
00:06:59 #40141 [verbose] > │ let v16 : Async<int64> = _v8.Value │
00:06:59 #40142 [verbose] > │ let v17 : Async<US5> option = None │
00:06:59 #40143 [verbose] > │ let mutable _v17 = v17 │
00:06:59 #40144 [verbose] > │ #if FABLE_COMPILER_RUST && !WASM && !CONTRACT │
00:06:59 #40145 [verbose] > │ let v18 : Async<US5> = null |> unbox<Async<US5>> │
00:06:59 #40146 [verbose] > │ v18 │
00:06:59 #40147 [verbose] > │ #endif │
00:06:59 #40148 [verbose] > │ #if FABLE_COMPILER_RUST && WASM │
00:06:59 #40149 [verbose] > │ let v19 : Async<US5> = null |> unbox<Async<US5>> │
00:06:59 #40150 [verbose] > │ v19 │
00:06:59 #40151 [verbose] > │ #endif │
00:06:59 #40152 [verbose] > │ #if FABLE_COMPILER_RUST && CONTRACT │
00:06:59 #40153 [verbose] > │ let v20 : Async<US5> = null |> unbox<Async<US5>> │
00:06:59 #40154 [verbose] > │ v20 │
00:06:59 #40155 [verbose] > │ #endif │
00:06:59 #40156 [verbose] > │ #if !FABLE_COMPILER && !FABLE_COMPILER_RUST && │
00:06:59 #40157 [verbose] > │ !FABLE_COMPILER_TYPESCRIPT && !WASM && !CONTRACT │
00:06:59 #40158 [verbose] > │ let v21 : Async<US5> option = None │
00:06:59 #40159 [verbose] > │ let mutable _v21 = v21 │
00:06:59 #40160 [verbose] > │ #if FABLE_COMPILER_RUST && !WASM && !CONTRACT │
00:06:59 #40161 [verbose] > │ let v22 : Async<US5> = null |> unbox<Async<US5>> │
00:06:59 #40162 [verbose] > │ v22 │
00:06:59 #40163 [verbose] > │ #endif │
00:06:59 #40164 [verbose] > │ #if FABLE_COMPILER_RUST && WASM │
00:06:59 #40165 [verbose] > │ let v23 : Async<US5> = null |> unbox<Async<US5>> │
00:06:59 #40166 [verbose] > │ v23 │
00:06:59 #40167 [verbose] > │ #endif │
00:06:59 #40168 [verbose] > │ #if FABLE_COMPILER_RUST && CONTRACT │
00:06:59 #40169 [verbose] > │ let v24 : Async<US5> = null |> unbox<Async<US5>> │
00:06:59 #40170 [verbose] > │ v24 │
00:06:59 #40171 [verbose] > │ #endif │
00:06:59 #40172 [verbose] > │ #if !FABLE_COMPILER && !FABLE_COMPILER_RUST && │
00:06:59 #40173 [verbose] > │ !FABLE_COMPILER_TYPESCRIPT && !WASM && !CONTRACT │
00:06:59 #40174 [verbose] > │ let v25 : Async<US5> option = None │
00:06:59 #40175 [verbose] > │ let mutable _v25 = v25 │
00:06:59 #40176 [verbose] > │ async { │
00:06:59 #40177 [verbose] > │ let v26 : Async<Async<int64>> option = None │
00:06:59 #40178 [verbose] > │ let mutable _v26 = v26 │
00:06:59 #40179 [verbose] > │ #if FABLE_COMPILER_RUST && !WASM && !CONTRACT │
00:06:59 #40180 [verbose] > │ let v27 : Async<Async<int64>> = null |> unbox<Async<Async<int64>>> │
00:06:59 #40181 [verbose] > │ v27 │
00:06:59 #40182 [verbose] > │ #endif │
00:06:59 #40183 [verbose] > │ #if FABLE_COMPILER_RUST && WASM │
00:06:59 #40184 [verbose] > │ let v28 : Async<Async<int64>> = null |> unbox<Async<Async<int64>>> │
00:06:59 #40185 [verbose] > │ v28 │
00:06:59 #40186 [verbose] > │ #endif │
00:06:59 #40187 [verbose] > │ #if FABLE_COMPILER_RUST && CONTRACT │
00:06:59 #40188 [verbose] > │ let v29 : Async<Async<int64>> = null |> unbox<Async<Async<int64>>> │
00:06:59 #40189 [verbose] > │ v29 │
00:06:59 #40190 [verbose] > │ #endif │
00:06:59 #40191 [verbose] > │ #if !FABLE_COMPILER && !FABLE_COMPILER_RUST && │
00:06:59 #40192 [verbose] > │ !FABLE_COMPILER_TYPESCRIPT && !WASM && !CONTRACT │
00:06:59 #40193 [verbose] > │ let v30 : Async<Async<int64>> = Async.StartChild (v16, 1000) │
00:06:59 #40194 [verbose] > │ v30 │
00:06:59 #40195 [verbose] > │ #endif │
00:06:59 #40196 [verbose] > │ #if FABLE_COMPILER_TYPESCRIPT │
00:06:59 #40197 [verbose] > │ let v31 : Async<Async<int64>> = null |> unbox<Async<Async<int64>>> │
00:06:59 #40198 [verbose] > │ v31 │
00:06:59 #40199 [verbose] > │ #endif │
00:06:59 #40200 [verbose] > │ #if FABLE_COMPILER_PYTHON || FABLE_COMPILER_PHP || │
00:06:59 #40201 [verbose] > │ FABLE_COMPILER_DART │
00:06:59 #40202 [verbose] > │ let v32 : Async<Async<int64>> = │
00:06:59 #40203 [verbose] > │ Unchecked.defaultof<Async<Async<int64>>> │
00:06:59 #40204 [verbose] > │ v32 │
00:06:59 #40205 [verbose] > │ #endif │
00:06:59 #40206 [verbose] > │ |> fun x -> _v26 <- Some x │
00:06:59 #40207 [verbose] > │ let v33 : Async<Async<int64>> = _v26.Value │
00:06:59 #40208 [verbose] > │ let! v33 = v33 │
00:06:59 #40209 [verbose] > │ let v34 : Async<int64> = v33 │
00:06:59 #40210 [verbose] > │ let v35 : Async<Choice<int64, exn>> option = None │
00:06:59 #40211 [verbose] > │ let mutable _v35 = v35 │
00:06:59 #40212 [verbose] > │ #if FABLE_COMPILER_RUST && !WASM && !CONTRACT │
00:06:59 #40213 [verbose] > │ let v36 : Async<Choice<int64, exn>> = null |> │
00:06:59 #40214 [verbose] > │ unbox<Async<Choice<int64, exn>>> │
00:06:59 #40215 [verbose] > │ v36 │
00:06:59 #40216 [verbose] > │ #endif │
00:06:59 #40217 [verbose] > │ #if FABLE_COMPILER_RUST && WASM │
00:06:59 #40218 [verbose] > │ let v37 : Async<Choice<int64, exn>> = null |> │
00:06:59 #40219 [verbose] > │ unbox<Async<Choice<int64, exn>>> │
00:06:59 #40220 [verbose] > │ v37 │
00:06:59 #40221 [verbose] > │ #endif │
00:06:59 #40222 [verbose] > │ #if FABLE_COMPILER_RUST && CONTRACT │
00:06:59 #40223 [verbose] > │ let v38 : Async<Choice<int64, exn>> = null |> │
00:06:59 #40224 [verbose] > │ unbox<Async<Choice<int64, exn>>> │
00:06:59 #40225 [verbose] > │ v38 │
00:06:59 #40226 [verbose] > │ #endif │
00:06:59 #40227 [verbose] > │ #if !FABLE_COMPILER && !FABLE_COMPILER_RUST && │
00:06:59 #40228 [verbose] > │ !FABLE_COMPILER_TYPESCRIPT && !WASM && !CONTRACT │
00:06:59 #40229 [verbose] > │ let v39 : (Async<int64> -> Async<Choice<int64, exn>>) = Async.Catch │
00:06:59 #40230 [verbose] > │ let v40 : Async<Choice<int64, exn>> = v39 v34 │
00:06:59 #40231 [verbose] > │ v40 │
00:06:59 #40232 [verbose] > │ #endif │
00:06:59 #40233 [verbose] > │ #if FABLE_COMPILER_TYPESCRIPT │
00:06:59 #40234 [verbose] > │ let v41 : Async<Choice<int64, exn>> = null |> │
00:06:59 #40235 [verbose] > │ unbox<Async<Choice<int64, exn>>> │
00:06:59 #40236 [verbose] > │ v41 │
00:06:59 #40237 [verbose] > │ #endif │
00:06:59 #40238 [verbose] > │ #if FABLE_COMPILER_PYTHON || FABLE_COMPILER_PHP || │
00:06:59 #40239 [verbose] > │ FABLE_COMPILER_DART │
00:06:59 #40240 [verbose] > │ let v42 : Async<Choice<int64, exn>> = │
00:06:59 #40241 [verbose] > │ Unchecked.defaultof<Async<Choice<int64, exn>>> │
00:06:59 #40242 [verbose] > │ v42 │
00:06:59 #40243 [verbose] > │ #endif │
00:06:59 #40244 [verbose] > │ |> fun x -> _v35 <- Some x │
00:06:59 #40245 [verbose] > │ let v43 : Async<Choice<int64, exn>> = _v35.Value │
00:06:59 #40246 [verbose] > │ let v44 : Async<US6> option = None │
00:06:59 #40247 [verbose] > │ let mutable _v44 = v44 │
00:06:59 #40248 [verbose] > │ #if FABLE_COMPILER_RUST && !WASM && !CONTRACT │
00:06:59 #40249 [verbose] > │ let v45 : Async<US6> = null |> unbox<Async<US6>> │
00:06:59 #40250 [verbose] > │ v45 │
00:06:59 #40251 [verbose] > │ #endif │
00:06:59 #40252 [verbose] > │ #if FABLE_COMPILER_RUST && WASM │
00:06:59 #40253 [verbose] > │ let v46 : Async<US6> = null |> unbox<Async<US6>> │
00:06:59 #40254 [verbose] > │ v46 │
00:06:59 #40255 [verbose] > │ #endif │
00:06:59 #40256 [verbose] > │ #if FABLE_COMPILER_RUST && CONTRACT │
00:06:59 #40257 [verbose] > │ let v47 : Async<US6> = null |> unbox<Async<US6>> │
00:06:59 #40258 [verbose] > │ v47 │
00:06:59 #40259 [verbose] > │ #endif │
00:06:59 #40260 [verbose] > │ #if !FABLE_COMPILER && !FABLE_COMPILER_RUST && │
00:06:59 #40261 [verbose] > │ !FABLE_COMPILER_TYPESCRIPT && !WASM && !CONTRACT │
00:06:59 #40262 [verbose] > │ let v48 : Async<US6> option = None │
00:06:59 #40263 [verbose] > │ let mutable _v48 = v48 │
00:06:59 #40264 [verbose] > │ async { │
00:06:59 #40265 [verbose] > │ let! v43 = v43 │
00:06:59 #40266 [verbose] > │ let v49 : Choice<int64, exn> = v43 │
00:06:59 #40267 [verbose] > │ let v50 : US6 option = None │
00:06:59 #40268 [verbose] > │ let mutable _v50 = v50 │
00:06:59 #40269 [verbose] > │ #if FABLE_COMPILER_RUST && !WASM && !CONTRACT │
00:06:59 #40270 [verbose] > │ let v51 : US6 = null |> unbox<US6> │
00:06:59 #40271 [verbose] > │ v51 │
00:06:59 #40272 [verbose] > │ #endif │
00:06:59 #40273 [verbose] > │ #if FABLE_COMPILER_RUST && WASM │
00:06:59 #40274 [verbose] > │ let v52 : US6 = null |> unbox<US6> │
00:06:59 #40275 [verbose] > │ v52 │
00:06:59 #40276 [verbose] > │ #endif │
00:06:59 #40277 [verbose] > │ #if FABLE_COMPILER_RUST && CONTRACT │
00:06:59 #40278 [verbose] > │ let v53 : US6 = null |> unbox<US6> │
00:06:59 #40279 [verbose] > │ v53 │
00:06:59 #40280 [verbose] > │ #endif │
00:06:59 #40281 [verbose] > │ #if !FABLE_COMPILER && !FABLE_COMPILER_RUST && │
00:06:59 #40282 [verbose] > │ !FABLE_COMPILER_TYPESCRIPT && !WASM && !CONTRACT │
00:06:59 #40283 [verbose] > │ let v54 : (int64 -> US6) = closure25() │
00:06:59 #40284 [verbose] > │ let v55 : (exn -> US6) = closure26() │
00:06:59 #40285 [verbose] > │ let v56 : US6 = match v49 with Choice1Of2 x -> v54 x | Choice2Of2 x │
00:06:59 #40286 [verbose] > │ -> v55 x │
00:06:59 #40287 [verbose] > │ v56 │
00:06:59 #40288 [verbose] > │ #endif │
00:06:59 #40289 [verbose] > │ #if FABLE_COMPILER_TYPESCRIPT │
00:06:59 #40290 [verbose] > │ let v57 : US6 = null |> unbox<US6> │
00:06:59 #40291 [verbose] > │ v57 │
00:06:59 #40292 [verbose] > │ #endif │
00:06:59 #40293 [verbose] > │ #if FABLE_COMPILER_PYTHON || FABLE_COMPILER_PHP || │
00:06:59 #40294 [verbose] > │ FABLE_COMPILER_DART │
00:06:59 #40295 [verbose] > │ let v58 : US6 = Unchecked.defaultof<US6> │
00:06:59 #40296 [verbose] > │ v58 │
00:06:59 #40297 [verbose] > │ #endif │
00:06:59 #40298 [verbose] > │ |> fun x -> _v50 <- Some x │
00:06:59 #40299 [verbose] > │ let v59 : US6 = _v50.Value │
00:06:59 #40300 [verbose] > │ return v59 │
00:06:59 #40301 [verbose] > │ } │
00:06:59 #40302 [verbose] > │ |> fun x -> _v48 <- Some x │
00:06:59 #40303 [verbose] > │ let v60 : Async<US6> = _v48 |> Option.get │
00:06:59 #40304 [verbose] > │ v60 │
00:06:59 #40305 [verbose] > │ #endif │
00:06:59 #40306 [verbose] > │ #if FABLE_COMPILER_TYPESCRIPT │
00:06:59 #40307 [verbose] > │ let v61 : Async<US6> = null |> unbox<Async<US6>> │
00:06:59 #40308 [verbose] > │ v61 │
00:06:59 #40309 [verbose] > │ #endif │
00:06:59 #40310 [verbose] > │ #if FABLE_COMPILER_PYTHON || FABLE_COMPILER_PHP || │
00:06:59 #40311 [verbose] > │ FABLE_COMPILER_DART │
00:06:59 #40312 [verbose] > │ let v62 : Async<US6> = Unchecked.defaultof<Async<US6>> │
00:06:59 #40313 [verbose] > │ v62 │
00:06:59 #40314 [verbose] > │ #endif │
00:06:59 #40315 [verbose] > │ |> fun x -> _v44 <- Some x │
00:06:59 #40316 [verbose] > │ let v63 : Async<US6> = _v44.Value │
00:06:59 #40317 [verbose] > │ let v64 : Async<US7> option = None │
00:06:59 #40318 [verbose] > │ let mutable _v64 = v64 │
00:06:59 #40319 [verbose] > │ #if FABLE_COMPILER_RUST && !WASM && !CONTRACT │
00:06:59 #40320 [verbose] > │ let v65 : Async<US7> = null |> unbox<Async<US7>> │
00:06:59 #40321 [verbose] > │ v65 │
00:06:59 #40322 [verbose] > │ #endif │
00:06:59 #40323 [verbose] > │ #if FABLE_COMPILER_RUST && WASM │
00:06:59 #40324 [verbose] > │ let v66 : Async<US7> = null |> unbox<Async<US7>> │
00:06:59 #40325 [verbose] > │ v66 │
00:06:59 #40326 [verbose] > │ #endif │
00:06:59 #40327 [verbose] > │ #if FABLE_COMPILER_RUST && CONTRACT │
00:06:59 #40328 [verbose] > │ let v67 : Async<US7> = null |> unbox<Async<US7>> │
00:06:59 #40329 [verbose] > │ v67 │
00:06:59 #40330 [verbose] > │ #endif │
00:06:59 #40331 [verbose] > │ #if !FABLE_COMPILER && !FABLE_COMPILER_RUST && │
00:06:59 #40332 [verbose] > │ !FABLE_COMPILER_TYPESCRIPT && !WASM && !CONTRACT │
00:06:59 #40333 [verbose] > │ let v68 : Async<US7> option = None │
00:06:59 #40334 [verbose] > │ let mutable _v68 = v68 │
00:06:59 #40335 [verbose] > │ async { │
00:06:59 #40336 [verbose] > │ let! v63 = v63 │
00:06:59 #40337 [verbose] > │ let v69 : US6 = v63 │
00:06:59 #40338 [verbose] > │ let v75 : US7 = │
00:06:59 #40339 [verbose] > │ match v69 with │
00:06:59 #40340 [verbose] > │ | US6_0(v70) -> (* Choice1Of2 *) │
00:06:59 #40341 [verbose] > │ US7_0(v70) │
00:06:59 #40342 [verbose] > │ | US6_1(v72) -> (* Choice2Of2 *) │
00:06:59 #40343 [verbose] > │ US7_1(v72) │
00:06:59 #40344 [verbose] > │ return v75 │
00:06:59 #40345 [verbose] > │ } │
00:06:59 #40346 [verbose] > │ |> fun x -> _v68 <- Some x │
00:07:00 #40347 [verbose] > │ let v76 : Async<US7> = _v68 |> Option.get │
00:07:00 #40348 [verbose] > │ v76 │
00:07:00 #40349 [verbose] > │ #endif │
00:07:00 #40350 [verbose] > │ #if FABLE_COMPILER_TYPESCRIPT │
00:07:00 #40351 [verbose] > │ let v77 : Async<US7> = null |> unbox<Async<US7>> │
00:07:00 #40352 [verbose] > │ v77 │
00:07:00 #40353 [verbose] > │ #endif │
00:07:00 #40354 [verbose] > │ #if FABLE_COMPILER_PYTHON || FABLE_COMPILER_PHP || │
00:07:00 #40355 [verbose] > │ FABLE_COMPILER_DART │
00:07:00 #40356 [verbose] > │ let v78 : Async<US7> = Unchecked.defaultof<Async<US7>> │
00:07:00 #40357 [verbose] > │ v78 │
00:07:00 #40358 [verbose] > │ #endif │
00:07:00 #40359 [verbose] > │ |> fun x -> _v64 <- Some x │
00:07:00 #40360 [verbose] > │ let v79 : Async<US7> = _v64.Value │
00:07:00 #40361 [verbose] > │ let v80 : Async<US5> option = None │
00:07:00 #40362 [verbose] > │ let mutable _v80 = v80 │
00:07:00 #40363 [verbose] > │ #if FABLE_COMPILER_RUST && !WASM && !CONTRACT │
00:07:00 #40364 [verbose] > │ let v81 : Async<US5> = null |> unbox<Async<US5>> │
00:07:00 #40365 [verbose] > │ v81 │
00:07:00 #40366 [verbose] > │ #endif │
00:07:00 #40367 [verbose] > │ #if FABLE_COMPILER_RUST && WASM │
00:07:00 #40368 [verbose] > │ let v82 : Async<US5> = null |> unbox<Async<US5>> │
00:07:00 #40369 [verbose] > │ v82 │
00:07:00 #40370 [verbose] > │ #endif │
00:07:00 #40371 [verbose] > │ #if FABLE_COMPILER_RUST && CONTRACT │
00:07:00 #40372 [verbose] > │ let v83 : Async<US5> = null |> unbox<Async<US5>> │
00:07:00 #40373 [verbose] > │ v83 │
00:07:00 #40374 [verbose] > │ #endif │
00:07:00 #40375 [verbose] > │ #if !FABLE_COMPILER && !FABLE_COMPILER_RUST && │
00:07:00 #40376 [verbose] > │ !FABLE_COMPILER_TYPESCRIPT && !WASM && !CONTRACT │
00:07:00 #40377 [verbose] > │ let v84 : Async<US5> option = None │
00:07:00 #40378 [verbose] > │ let mutable _v84 = v84 │
00:07:00 #40379 [verbose] > │ async { │
00:07:00 #40380 [verbose] > │ let! v79 = v79 │
00:07:00 #40381 [verbose] > │ let v85 : US7 = v79 │
00:07:00 #40382 [verbose] > │ let v110 : US5 = │
00:07:00 #40383 [verbose] > │ match v85 with │
00:07:00 #40384 [verbose] > │ | US7_1(v88) -> (* Error *) │
00:07:00 #40385 [verbose] > │ let v89 : string = $"%A{v88}" │
00:07:00 #40386 [verbose] > │ let v90 : string = "System.TimeoutException" │
00:07:00 #40387 [verbose] > │ let v91 : bool = v89.Contains v90 │
00:07:00 #40388 [verbose] > │ if v91 then │
00:07:00 #40389 [verbose] > │ let v92 : US3 = US3_1 │
00:07:00 #40390 [verbose] > │ let v93 : (unit -> string) = closure27() │
00:07:00 #40391 [verbose] > │ let v94 : (unit -> string) = closure28() │
00:07:00 #40392 [verbose] > │ method7(v92, v93, v94) │
00:07:00 #40393 [verbose] > │ US5_1 │
00:07:00 #40394 [verbose] > │ else │
00:07:00 #40395 [verbose] > │ let v96 : string option = None │
00:07:00 #40396 [verbose] > │ let mutable _v96 = v96 │
00:07:00 #40397 [verbose] > │ #if FABLE_COMPILER_RUST && !WASM && !CONTRACT │
00:07:00 #40398 [verbose] > │ let v97 : string = $"%A{v88}" │
00:07:00 #40399 [verbose] > │ v97 │
00:07:00 #40400 [verbose] > │ #endif │
00:07:00 #40401 [verbose] > │ #if FABLE_COMPILER_RUST && WASM │
00:07:00 #40402 [verbose] > │ let v98 : string = $"%A{v88}" │
00:07:00 #40403 [verbose] > │ v98 │
00:07:00 #40404 [verbose] > │ #endif │
00:07:00 #40405 [verbose] > │ #if FABLE_COMPILER_RUST && CONTRACT │
00:07:00 #40406 [verbose] > │ let v99 : string = $"%A{v88}" │
00:07:00 #40407 [verbose] > │ v99 │
00:07:00 #40408 [verbose] > │ #endif │
00:07:00 #40409 [verbose] > │ #if !FABLE_COMPILER && !FABLE_COMPILER_RUST && │
00:07:00 #40410 [verbose] > │ !FABLE_COMPILER_TYPESCRIPT && !WASM && !CONTRACT │
00:07:00 #40411 [verbose] > │ let v100 : string = $"{v88.GetType ()}: {v88.Message}" │
00:07:00 #40412 [verbose] > │ v100 │
00:07:00 #40413 [verbose] > │ #endif │
00:07:00 #40414 [verbose] > │ #if FABLE_COMPILER_TYPESCRIPT │
00:07:00 #40415 [verbose] > │ let v101 : string = $"%A{v88}" │
00:07:00 #40416 [verbose] > │ v101 │
00:07:00 #40417 [verbose] > │ #endif │
00:07:00 #40418 [verbose] > │ #if FABLE_COMPILER_PYTHON || FABLE_COMPILER_PHP || │
00:07:00 #40419 [verbose] > │ FABLE_COMPILER_DART │
00:07:00 #40420 [verbose] > │ let v102 : string = Unchecked.defaultof<string> │
00:07:00 #40421 [verbose] > │ v102 │
00:07:00 #40422 [verbose] > │ #endif │
00:07:00 #40423 [verbose] > │ |> fun x -> _v96 <- Some x │
00:07:00 #40424 [verbose] > │ let v103 : string = _v96.Value │
00:07:00 #40425 [verbose] > │ let v104 : US3 = US3_4 │
00:07:00 #40426 [verbose] > │ let v105 : (unit -> string) = closure29(v103) │
00:07:00 #40427 [verbose] > │ let v106 : (unit -> string) = closure28() │
00:07:00 #40428 [verbose] > │ method7(v104, v105, v106) │
00:07:00 #40429 [verbose] > │ US5_1 │
00:07:00 #40430 [verbose] > │ | US7_0(v86) -> (* Ok *) │
00:07:00 #40431 [verbose] > │ US5_0(v86) │
00:07:00 #40432 [verbose] > │ return v110 │
00:07:00 #40433 [verbose] > │ } │
00:07:00 #40434 [verbose] > │ |> fun x -> _v84 <- Some x │
00:07:00 #40435 [verbose] > │ let v111 : Async<US5> = _v84 |> Option.get │
00:07:00 #40436 [verbose] > │ v111 │
00:07:00 #40437 [verbose] > │ #endif │
00:07:00 #40438 [verbose] > │ #if FABLE_COMPILER_TYPESCRIPT │
00:07:00 #40439 [verbose] > │ let v112 : Async<US5> = null |> unbox<Async<US5>> │
00:07:00 #40440 [verbose] > │ v112 │
00:07:00 #40441 [verbose] > │ #endif │
00:07:00 #40442 [verbose] > │ #if FABLE_COMPILER_PYTHON || FABLE_COMPILER_PHP || │
00:07:00 #40443 [verbose] > │ FABLE_COMPILER_DART │
00:07:00 #40444 [verbose] > │ let v113 : Async<US5> = Unchecked.defaultof<Async<US5>> │
00:07:00 #40445 [verbose] > │ v113 │
00:07:00 #40446 [verbose] > │ #endif │
00:07:00 #40447 [verbose] > │ |> fun x -> _v80 <- Some x │
00:07:00 #40448 [verbose] > │ let v114 : Async<US5> = _v80.Value │
00:07:00 #40449 [verbose] > │ return! v114 │
00:07:00 #40450 [verbose] > │ } │
00:07:00 #40451 [verbose] > │ |> fun x -> _v25 <- Some x │
00:07:00 #40452 [verbose] > │ let v115 : Async<US5> = _v25 |> Option.get │
00:07:00 #40453 [verbose] > │ v115 │
00:07:00 #40454 [verbose] > │ #endif │
00:07:00 #40455 [verbose] > │ #if FABLE_COMPILER_TYPESCRIPT │
00:07:00 #40456 [verbose] > │ let v116 : Async<US5> = null |> unbox<Async<US5>> │
00:07:00 #40457 [verbose] > │ v116 │
00:07:00 #40458 [verbose] > │ #endif │
00:07:00 #40459 [verbose] > │ #if FABLE_COMPILER_PYTHON || FABLE_COMPILER_PHP || │
00:07:00 #40460 [verbose] > │ FABLE_COMPILER_DART │
00:07:00 #40461 [verbose] > │ let v117 : Async<US5> = Unchecked.defaultof<Async<US5>> │
00:07:00 #40462 [verbose] > │ v117 │
00:07:00 #40463 [verbose] > │ #endif │
00:07:00 #40464 [verbose] > │ |> fun x -> _v21 <- Some x │
00:07:00 #40465 [verbose] > │ let v118 : Async<US5> = _v21.Value │
00:07:00 #40466 [verbose] > │ v118 │
00:07:00 #40467 [verbose] > │ #endif │
00:07:00 #40468 [verbose] > │ #if FABLE_COMPILER_TYPESCRIPT │
00:07:00 #40469 [verbose] > │ let v119 : Async<US5> = null |> unbox<Async<US5>> │
00:07:00 #40470 [verbose] > │ v119 │
00:07:00 #40471 [verbose] > │ #endif │
00:07:00 #40472 [verbose] > │ #if FABLE_COMPILER_PYTHON || FABLE_COMPILER_PHP || │
00:07:00 #40473 [verbose] > │ FABLE_COMPILER_DART │
00:07:00 #40474 [verbose] > │ let v120 : Async<US5> = Unchecked.defaultof<Async<US5>> │
00:07:00 #40475 [verbose] > │ v120 │
00:07:00 #40476 [verbose] > │ #endif │
00:07:00 #40477 [verbose] > │ |> fun x -> _v17 <- Some x │
00:07:00 #40478 [verbose] > │ let v121 : Async<US5> = _v17.Value │
00:07:00 #40479 [verbose] > │ let v122 : Async<unit> option = None │
00:07:00 #40480 [verbose] > │ let mutable _v122 = v122 │
00:07:00 #40481 [verbose] > │ #if FABLE_COMPILER_RUST && !WASM && !CONTRACT │
00:07:00 #40482 [verbose] > │ let v123 : Async<unit> = null |> unbox<Async<unit>> │
00:07:00 #40483 [verbose] > │ v123 │
00:07:00 #40484 [verbose] > │ #endif │
00:07:00 #40485 [verbose] > │ #if FABLE_COMPILER_RUST && WASM │
00:07:00 #40486 [verbose] > │ let v124 : Async<unit> = null |> unbox<Async<unit>> │
00:07:00 #40487 [verbose] > │ v124 │
00:07:00 #40488 [verbose] > │ #endif │
00:07:00 #40489 [verbose] > │ #if FABLE_COMPILER_RUST && CONTRACT │
00:07:00 #40490 [verbose] > │ let v125 : Async<unit> = null |> unbox<Async<unit>> │
00:07:00 #40491 [verbose] > │ v125 │
00:07:00 #40492 [verbose] > │ #endif │
00:07:00 #40493 [verbose] > │ #if !FABLE_COMPILER && !FABLE_COMPILER_RUST && │
00:07:00 #40494 [verbose] > │ !FABLE_COMPILER_TYPESCRIPT && !WASM && !CONTRACT │
00:07:00 #40495 [verbose] > │ let v126 : (Async<US5> -> Async<unit>) = Async.Ignore │
00:07:00 #40496 [verbose] > │ let v127 : Async<unit> = v126 v121 │
00:07:00 #40497 [verbose] > │ v127 │
00:07:00 #40498 [verbose] > │ #endif │
00:07:00 #40499 [verbose] > │ #if FABLE_COMPILER_TYPESCRIPT │
00:07:00 #40500 [verbose] > │ let v128 : Async<unit> = null |> unbox<Async<unit>> │
00:07:00 #40501 [verbose] > │ v128 │
00:07:00 #40502 [verbose] > │ #endif │
00:07:00 #40503 [verbose] > │ #if FABLE_COMPILER_PYTHON || FABLE_COMPILER_PHP || │
00:07:00 #40504 [verbose] > │ FABLE_COMPILER_DART │
00:07:00 #40505 [verbose] > │ let v129 : Async<unit> = Unchecked.defaultof<Async<unit>> │
00:07:00 #40506 [verbose] > │ v129 │
00:07:00 #40507 [verbose] > │ #endif │
00:07:00 #40508 [verbose] > │ |> fun x -> _v122 <- Some x │
00:07:00 #40509 [verbose] > │ let v130 : Async<unit> = _v122.Value │
00:07:00 #40510 [verbose] > │ do! v130 │
00:07:00 #40511 [verbose] > │ () │
00:07:00 #40512 [verbose] > │ let v131 : Async<string> option = None │
00:07:00 #40513 [verbose] > │ let mutable _v131 = v131 │
00:07:00 #40514 [verbose] > │ #if FABLE_COMPILER_RUST && !WASM && !CONTRACT │
00:07:00 #40515 [verbose] > │ let v132 : Async<string> = null |> unbox<Async<string>> │
00:07:00 #40516 [verbose] > │ v132 │
00:07:00 #40517 [verbose] > │ #endif │
00:07:00 #40518 [verbose] > │ #if FABLE_COMPILER_RUST && WASM │
00:07:00 #40519 [verbose] > │ let v133 : Async<string> = null |> unbox<Async<string>> │
00:07:00 #40520 [verbose] > │ v133 │
00:07:00 #40521 [verbose] > │ #endif │
00:07:00 #40522 [verbose] > │ #if FABLE_COMPILER_RUST && CONTRACT │
00:07:00 #40523 [verbose] > │ let v134 : Async<string> = null |> unbox<Async<string>> │
00:07:00 #40524 [verbose] > │ v134 │
00:07:00 #40525 [verbose] > │ #endif │
00:07:00 #40526 [verbose] > │ #if !FABLE_COMPILER && !FABLE_COMPILER_RUST && │
00:07:00 #40527 [verbose] > │ !FABLE_COMPILER_TYPESCRIPT && !WASM && !CONTRACT │
00:07:00 #40528 [verbose] > │ let v135 : (string -> System.Threading.Tasks.Task<string>) = │
00:07:00 #40529 [verbose] > │ System.IO.File.ReadAllTextAsync │
00:07:00 #40530 [verbose] > │ let v136 : System.Threading.Tasks.Task<string> = v135 v0 │
00:07:00 #40531 [verbose] > │ let v137 : Async<string> option = None │
00:07:00 #40532 [verbose] > │ let mutable _v137 = v137 │
00:07:00 #40533 [verbose] > │ #if FABLE_COMPILER_RUST && !WASM && !CONTRACT │
00:07:00 #40534 [verbose] > │ let v138 : Async<string> = null |> unbox<Async<string>> │
00:07:00 #40535 [verbose] > │ v138 │
00:07:00 #40536 [verbose] > │ #endif │
00:07:00 #40537 [verbose] > │ #if FABLE_COMPILER_RUST && WASM │
00:07:00 #40538 [verbose] > │ let v139 : Async<string> = null |> unbox<Async<string>> │
00:07:00 #40539 [verbose] > │ v139 │
00:07:00 #40540 [verbose] > │ #endif │
00:07:00 #40541 [verbose] > │ #if FABLE_COMPILER_RUST && CONTRACT │
00:07:00 #40542 [verbose] > │ let v140 : Async<string> = null |> unbox<Async<string>> │
00:07:00 #40543 [verbose] > │ v140 │
00:07:00 #40544 [verbose] > │ #endif │
00:07:00 #40545 [verbose] > │ #if !FABLE_COMPILER && !FABLE_COMPILER_RUST && │
00:07:00 #40546 [verbose] > │ !FABLE_COMPILER_TYPESCRIPT && !WASM && !CONTRACT │
00:07:00 #40547 [verbose] > │ let v141 : (System.Threading.Tasks.Task<string> -> Async<string>) = │
00:07:00 #40548 [verbose] > │ Async.AwaitTask │
00:07:00 #40549 [verbose] > │ let v142 : Async<string> = v141 v136 │
00:07:00 #40550 [verbose] > │ v142 │
00:07:00 #40551 [verbose] > │ #endif │
00:07:00 #40552 [verbose] > │ #if FABLE_COMPILER_TYPESCRIPT │
00:07:00 #40553 [verbose] > │ let v143 : Async<string> = null |> unbox<Async<string>> │
00:07:00 #40554 [verbose] > │ v143 │
00:07:00 #40555 [verbose] > │ #endif │
00:07:00 #40556 [verbose] > │ #if FABLE_COMPILER_PYTHON || FABLE_COMPILER_PHP || FABLE_COMPILER_DART │
00:07:00 #40557 [verbose] > │ let v144 : Async<string> = Unchecked.defaultof<Async<string>> │
00:07:00 #40558 [verbose] > │ v144 │
00:07:00 #40559 [verbose] > │ #endif │
00:07:00 #40560 [verbose] > │ |> fun x -> _v137 <- Some x │
00:07:00 #40561 [verbose] > │ let v145 : Async<string> = _v137.Value │
00:07:00 #40562 [verbose] > │ v145 │
00:07:00 #40563 [verbose] > │ #endif │
00:07:00 #40564 [verbose] > │ #if FABLE_COMPILER_TYPESCRIPT │
00:07:00 #40565 [verbose] > │ let v146 : Async<string> = null |> unbox<Async<string>> │
00:07:00 #40566 [verbose] > │ v146 │
00:07:00 #40567 [verbose] > │ #endif │
00:07:00 #40568 [verbose] > │ #if FABLE_COMPILER_PYTHON || FABLE_COMPILER_PHP || FABLE_COMPILER_DART │
00:07:00 #40569 [verbose] > │ let v147 : Async<string> = Unchecked.defaultof<Async<string>> │
00:07:00 #40570 [verbose] > │ v147 │
00:07:00 #40571 [verbose] > │ #endif │
00:07:00 #40572 [verbose] > │ |> fun x -> _v131 <- Some x │
00:07:00 #40573 [verbose] > │ let v148 : Async<string> = _v131.Value │
00:07:00 #40574 [verbose] > │ let v149 : Async<string option> option = None │
00:07:00 #40575 [verbose] > │ let mutable _v149 = v149 │
00:07:00 #40576 [verbose] > │ #if FABLE_COMPILER_RUST && !WASM && !CONTRACT │
00:07:00 #40577 [verbose] > │ let v150 : Async<string option> = null |> unbox<Async<string option>> │
00:07:00 #40578 [verbose] > │ v150 │
00:07:00 #40579 [verbose] > │ #endif │
00:07:00 #40580 [verbose] > │ #if FABLE_COMPILER_RUST && WASM │
00:07:00 #40581 [verbose] > │ let v151 : Async<string option> = null |> unbox<Async<string option>> │
00:07:00 #40582 [verbose] > │ v151 │
00:07:00 #40583 [verbose] > │ #endif │
00:07:00 #40584 [verbose] > │ #if FABLE_COMPILER_RUST && CONTRACT │
00:07:00 #40585 [verbose] > │ let v152 : Async<string option> = null |> unbox<Async<string option>> │
00:07:00 #40586 [verbose] > │ v152 │
00:07:00 #40587 [verbose] > │ #endif │
00:07:00 #40588 [verbose] > │ #if !FABLE_COMPILER && !FABLE_COMPILER_RUST && │
00:07:00 #40589 [verbose] > │ !FABLE_COMPILER_TYPESCRIPT && !WASM && !CONTRACT │
00:07:00 #40590 [verbose] > │ let v153 : Async<string option> option = None │
00:07:00 #40591 [verbose] > │ let mutable _v153 = v153 │
00:07:00 #40592 [verbose] > │ async { │
00:07:00 #40593 [verbose] > │ let! v148 = v148 │
00:07:00 #40594 [verbose] > │ let v154 : string = v148 │
00:07:00 #40595 [verbose] > │ let v155 : string option = Some v154 │
00:07:00 #40596 [verbose] > │ return v155 │
00:07:00 #40597 [verbose] > │ } │
00:07:00 #40598 [verbose] > │ |> fun x -> _v153 <- Some x │
00:07:00 #40599 [verbose] > │ let v156 : Async<string option> = _v153 |> Option.get │
00:07:00 #40600 [verbose] > │ v156 │
00:07:00 #40601 [verbose] > │ #endif │
00:07:00 #40602 [verbose] > │ #if FABLE_COMPILER_TYPESCRIPT │
00:07:00 #40603 [verbose] > │ let v157 : Async<string option> = null |> unbox<Async<string option>> │
00:07:00 #40604 [verbose] > │ v157 │
00:07:00 #40605 [verbose] > │ #endif │
00:07:00 #40606 [verbose] > │ #if FABLE_COMPILER_PYTHON || FABLE_COMPILER_PHP || FABLE_COMPILER_DART │
00:07:00 #40607 [verbose] > │ let v158 : Async<string option> = Unchecked.defaultof<Async<string │
00:07:00 #40608 [verbose] > │ option>> │
00:07:00 #40609 [verbose] > │ v158 │
00:07:00 #40610 [verbose] > │ #endif │
00:07:00 #40611 [verbose] > │ |> fun x -> _v149 <- Some x │
00:07:00 #40612 [verbose] > │ let v159 : Async<string option> = _v149.Value │
00:07:00 #40613 [verbose] > │ return! v159 │
00:07:00 #40614 [verbose] > │ with ex -> │
00:07:00 #40615 [verbose] > │ let v160 : exn = ex │
00:07:00 #40616 [verbose] > │ let v161 : bool = v1 = 0L │
00:07:00 #40617 [verbose] > │ let v162 : bool = v161 <> true │
00:07:00 #40618 [verbose] > │ if v162 then │
00:07:00 #40619 [verbose] > │ let v163 : string option = None │
00:07:00 #40620 [verbose] > │ let mutable _v163 = v163 │
00:07:00 #40621 [verbose] > │ #if FABLE_COMPILER_RUST && !WASM && !CONTRACT │
00:07:00 #40622 [verbose] > │ let v164 : string = $"%A{v160}" │
00:07:00 #40623 [verbose] > │ v164 │
00:07:00 #40624 [verbose] > │ #endif │
00:07:00 #40625 [verbose] > │ #if FABLE_COMPILER_RUST && WASM │
00:07:00 #40626 [verbose] > │ let v165 : string = $"%A{v160}" │
00:07:00 #40627 [verbose] > │ v165 │
00:07:00 #40628 [verbose] > │ #endif │
00:07:00 #40629 [verbose] > │ #if FABLE_COMPILER_RUST && CONTRACT │
00:07:00 #40630 [verbose] > │ let v166 : string = $"%A{v160}" │
00:07:00 #40631 [verbose] > │ v166 │
00:07:00 #40632 [verbose] > │ #endif │
00:07:00 #40633 [verbose] > │ #if !FABLE_COMPILER && !FABLE_COMPILER_RUST && │
00:07:00 #40634 [verbose] > │ !FABLE_COMPILER_TYPESCRIPT && !WASM && !CONTRACT │
00:07:00 #40635 [verbose] > │ let v167 : string = $"{v160.GetType ()}: {v160.Message}" │
00:07:00 #40636 [verbose] > │ v167 │
00:07:00 #40637 [verbose] > │ #endif │
00:07:00 #40638 [verbose] > │ #if FABLE_COMPILER_TYPESCRIPT │
00:07:00 #40639 [verbose] > │ let v168 : string = $"%A{v160}" │
00:07:00 #40640 [verbose] > │ v168 │
00:07:00 #40641 [verbose] > │ #endif │
00:07:00 #40642 [verbose] > │ #if FABLE_COMPILER_PYTHON || FABLE_COMPILER_PHP || │
00:07:00 #40643 [verbose] > │ FABLE_COMPILER_DART │
00:07:00 #40644 [verbose] > │ let v169 : string = Unchecked.defaultof<string> │
00:07:00 #40645 [verbose] > │ v169 │
00:07:00 #40646 [verbose] > │ #endif │
00:07:00 #40647 [verbose] > │ |> fun x -> _v163 <- Some x │
00:07:00 #40648 [verbose] > │ let v170 : string = _v163.Value │
00:07:00 #40649 [verbose] > │ let v171 : US3 = US3_1 │
00:07:00 #40650 [verbose] > │ let v172 : (unit -> string) = closure30() │
00:07:00 #40651 [verbose] > │ let v173 : (unit -> string) = closure31(v1, v170) │
00:07:00 #40652 [verbose] > │ method7(v171, v172, v173) │
00:07:00 #40653 [verbose] > │ let v174 : string option = None │
00:07:00 #40654 [verbose] > │ return v174 │
00:07:00 #40655 [verbose] > │ (* │
00:07:00 #40656 [verbose] > │ () │
00:07:00 #40657 [verbose] > │ else │
00:07:00 #40658 [verbose] > │ *) else │
00:07:00 #40659 [verbose] > │ let v175 : int64 = v1 + 1L │
00:07:00 #40660 [verbose] > │ let v176 : Async<string option> = method14(v0, v175) │
00:07:00 #40661 [verbose] > │ return! v176 │
00:07:00 #40662 [verbose] > │ (* │
00:07:00 #40663 [verbose] > │ () │
00:07:00 #40664 [verbose] > │ *) │
00:07:00 #40665 [verbose] > │ (* │
00:07:00 #40666 [verbose] > │ let v177 : string option = *) │
00:07:00 #40667 [verbose] > │ } │
00:07:00 #40668 [verbose] > │ |> fun x -> _v6 <- Some x │
00:07:00 #40669 [verbose] > │ let v178 : Async<string option> = _v6 |> Option.get │
00:07:00 #40670 [verbose] > │ v178 │
00:07:00 #40671 [verbose] > │ #endif │
00:07:00 #40672 [verbose] > │ #if FABLE_COMPILER_TYPESCRIPT │
00:07:00 #40673 [verbose] > │ let v179 : Async<string option> = null |> unbox<Async<string option>> │
00:07:00 #40674 [verbose] > │ v179 │
00:07:00 #40675 [verbose] > │ #endif │
00:07:00 #40676 [verbose] > │ #if FABLE_COMPILER_PYTHON || FABLE_COMPILER_PHP || FABLE_COMPILER_DART │
00:07:00 #40677 [verbose] > │ let v180 : Async<string option> = Unchecked.defaultof<Async<string │
00:07:00 #40678 [verbose] > │ option>> │
00:07:00 #40679 [verbose] > │ v180 │
00:07:00 #40680 [verbose] > │ #endif │
00:07:00 #40681 [verbose] > │ |> fun x -> _v2 <- Some x │
00:07:00 #40682 [verbose] > │ let v181 : Async<string option> = _v2.Value │
00:07:00 #40683 [verbose] > │ v181 │
00:07:00 #40684 [verbose] > │ and closure24 () (v0 : string) : Async<string option> = │
00:07:00 #40685 [verbose] > │ let v1 : Async<string option> option = None │
00:07:00 #40686 [verbose] > │ let mutable _v1 = v1 │
00:07:00 #40687 [verbose] > │ #if FABLE_COMPILER_RUST && !WASM && !CONTRACT │
00:07:00 #40688 [verbose] > │ let v2 : Async<string option> = null |> unbox<Async<string option>> │
00:07:00 #40689 [verbose] > │ v2 │
00:07:00 #40690 [verbose] > │ #endif │
00:07:00 #40691 [verbose] > │ #if FABLE_COMPILER_RUST && WASM │
00:07:00 #40692 [verbose] > │ let v3 : Async<string option> = null |> unbox<Async<string option>> │
00:07:00 #40693 [verbose] > │ v3 │
00:07:00 #40694 [verbose] > │ #endif │
00:07:00 #40695 [verbose] > │ #if FABLE_COMPILER_RUST && CONTRACT │
00:07:00 #40696 [verbose] > │ let v4 : Async<string option> = null |> unbox<Async<string option>> │
00:07:00 #40697 [verbose] > │ v4 │
00:07:00 #40698 [verbose] > │ #endif │
00:07:00 #40699 [verbose] > │ #if !FABLE_COMPILER && !FABLE_COMPILER_RUST && │
00:07:00 #40700 [verbose] > │ !FABLE_COMPILER_TYPESCRIPT && !WASM && !CONTRACT │
00:07:00 #40701 [verbose] > │ let v5 : int64 = 0L │
00:07:00 #40702 [verbose] > │ let v6 : Async<string option> = method14(v0, v5) │
00:07:00 #40703 [verbose] > │ v6 │
00:07:00 #40704 [verbose] > │ #endif │
00:07:00 #40705 [verbose] > │ #if FABLE_COMPILER_TYPESCRIPT │
00:07:00 #40706 [verbose] > │ let v7 : Async<string option> = null |> unbox<Async<string option>> │
00:07:00 #40707 [verbose] > │ v7 │
00:07:00 #40708 [verbose] > │ #endif │
00:07:00 #40709 [verbose] > │ #if FABLE_COMPILER_PYTHON || FABLE_COMPILER_PHP || FABLE_COMPILER_DART │
00:07:00 #40710 [verbose] > │ let v8 : Async<string option> = Unchecked.defaultof<Async<string │
00:07:00 #40711 [verbose] > │ option>> │
00:07:00 #40712 [verbose] > │ v8 │
00:07:00 #40713 [verbose] > │ #endif │
00:07:00 #40714 [verbose] > │ |> fun x -> _v1 <- Some x │
00:07:00 #40715 [verbose] > │ let v9 : Async<string option> = _v1.Value │
00:07:00 #40716 [verbose] > │ v9 │
00:07:00 #40717 [verbose] > │ and closure33 () () : string = │
00:07:00 #40718 [verbose] > │ let v0 : string option = None │
00:07:00 #40719 [verbose] > │ let mutable _v0 = v0 │
00:07:00 #40720 [verbose] > │ #if FABLE_COMPILER_RUST && !WASM && !CONTRACT │
00:07:00 #40721 [verbose] > │ let v1 : string = null |> unbox<string> │
00:07:00 #40722 [verbose] > │ v1 │
00:07:00 #40723 [verbose] > │ #endif │
00:07:00 #40724 [verbose] > │ #if FABLE_COMPILER_RUST && WASM │
00:07:00 #40725 [verbose] > │ let v2 : string = null |> unbox<string> │
00:07:00 #40726 [verbose] > │ v2 │
00:07:00 #40727 [verbose] > │ #endif │
00:07:00 #40728 [verbose] > │ #if FABLE_COMPILER_RUST && CONTRACT │
00:07:00 #40729 [verbose] > │ let v3 : string = null |> unbox<string> │
00:07:00 #40730 [verbose] > │ v3 │
00:07:00 #40731 [verbose] > │ #endif │
00:07:00 #40732 [verbose] > │ #if !FABLE_COMPILER && !FABLE_COMPILER_RUST && │
00:07:00 #40733 [verbose] > │ !FABLE_COMPILER_TYPESCRIPT && !WASM && !CONTRACT │
00:07:00 #40734 [verbose] > │ let v4 : string = │
00:07:00 #40735 [verbose] > │ System.Reflection.Assembly.GetEntryAssembly().GetName().Name │
00:07:00 #40736 [verbose] > │ v4 │
00:07:00 #40737 [verbose] > │ #endif │
00:07:00 #40738 [verbose] > │ #if FABLE_COMPILER_TYPESCRIPT │
00:07:00 #40739 [verbose] > │ let v5 : string = null |> unbox<string> │
00:07:00 #40740 [verbose] > │ v5 │
00:07:00 #40741 [verbose] > │ #endif │
00:07:00 #40742 [verbose] > │ #if FABLE_COMPILER_PYTHON || FABLE_COMPILER_PHP || FABLE_COMPILER_DART │
00:07:00 #40743 [verbose] > │ let v6 : string = Unchecked.defaultof<string> │
00:07:00 #40744 [verbose] > │ v6 │
00:07:00 #40745 [verbose] > │ #endif │
00:07:00 #40746 [verbose] > │ |> fun x -> _v0 <- Some x │
00:07:00 #40747 [verbose] > │ let v7 : string = _v0.Value │
00:07:00 #40748 [verbose] > │ v7 │
00:07:00 #40749 [verbose] > │ and closure32 () () : string = │
00:07:00 #40750 [verbose] > │ let v0 : string option = None │
00:07:00 #40751 [verbose] > │ let mutable _v0 = v0 │
00:07:00 #40752 [verbose] > │ #if FABLE_COMPILER_RUST && !WASM && !CONTRACT │
00:07:00 #40753 [verbose] > │ let v1 : string = null |> unbox<string> │
00:07:00 #40754 [verbose] > │ v1 │
00:07:00 #40755 [verbose] > │ #endif │
00:07:00 #40756 [verbose] > │ #if FABLE_COMPILER_RUST && WASM │
00:07:00 #40757 [verbose] > │ let v2 : string = null |> unbox<string> │
00:07:00 #40758 [verbose] > │ v2 │
00:07:00 #40759 [verbose] > │ #endif │
00:07:00 #40760 [verbose] > │ #if FABLE_COMPILER_RUST && CONTRACT │
00:07:00 #40761 [verbose] > │ let v3 : string = null |> unbox<string> │
00:07:00 #40762 [verbose] > │ v3 │
00:07:00 #40763 [verbose] > │ #endif │
00:07:00 #40764 [verbose] > │ #if !FABLE_COMPILER && !FABLE_COMPILER_RUST && │
00:07:00 #40765 [verbose] > │ !FABLE_COMPILER_TYPESCRIPT && !WASM && !CONTRACT │
00:07:00 #40766 [verbose] > │ let v4 : (unit -> string) = System.IO.Path.GetTempPath │
00:07:00 #40767 [verbose] > │ let v5 : string = v4 () │
00:07:00 #40768 [verbose] > │ let v6 : (unit -> string) = closure33() │
00:07:00 #40769 [verbose] > │ let v7 : string = $"!{v6 ()}" │
00:07:00 #40770 [verbose] > │ let v8 : string option = None │
00:07:00 #40771 [verbose] > │ let mutable _v8 = v8 │
00:07:00 #40772 [verbose] > │ #if FABLE_COMPILER_RUST && !WASM && !CONTRACT │
00:07:00 #40773 [verbose] > │ let v9 : string = method5(v5) │
00:07:00 #40774 [verbose] > │ let v10 : string = "fable_library_rust::String_::LrcStr::as_str(&$0)" │
00:07:00 #40775 [verbose] > │ let v11 : Ref<Str> = Fable.Core.RustInterop.emitRustExpr v9 v10 │
00:07:00 #40776 [verbose] > │ let v12 : string = "String::from($0)" │
00:07:00 #40777 [verbose] > │ let v13 : std_string_String = Fable.Core.RustInterop.emitRustExpr v11 │
00:07:00 #40778 [verbose] > │ v12 │
00:07:00 #40779 [verbose] > │ let v14 : string = "std::path::PathBuf::from($0)" │
00:07:00 #40780 [verbose] > │ let v15 : std_path_PathBuf = Fable.Core.RustInterop.emitRustExpr v13 v14 │
00:07:00 #40781 [verbose] > │ let v16 : string = method5(v7) │
00:07:00 #40782 [verbose] > │ let v17 : string = "fable_library_rust::String_::LrcStr::as_str(&$0)" │
00:07:00 #40783 [verbose] > │ let v18 : Ref<Str> = Fable.Core.RustInterop.emitRustExpr v16 v17 │
00:07:00 #40784 [verbose] > │ let v19 : string = "String::from($0)" │
00:07:00 #40785 [verbose] > │ let v20 : std_string_String = Fable.Core.RustInterop.emitRustExpr v18 │
00:07:00 #40786 [verbose] > │ v19 │
00:07:00 #40787 [verbose] > │ let v21 : string = "$0.join($1)" │
00:07:00 #40788 [verbose] > │ let v22 : std_path_PathBuf = Fable.Core.RustInterop.emitRustExpr struct │
00:07:00 #40789 [verbose] > │ (v15, v20) v21 │
00:07:00 #40790 [verbose] > │ let v23 : string = "$0.display().to_string()" │
00:07:00 #40791 [verbose] > │ let v24 : std_string_String = Fable.Core.RustInterop.emitRustExpr v22 │
00:07:00 #40792 [verbose] > │ v23 │
00:07:00 #40793 [verbose] > │ let v25 : string = "fable_library_rust::String_::fromString($0)" │
00:07:00 #40794 [verbose] > │ let v26 : string = Fable.Core.RustInterop.emitRustExpr v24 v25 │
00:07:00 #40795 [verbose] > │ v26 │
00:07:00 #40796 [verbose] > │ #endif │
00:07:00 #40797 [verbose] > │ #if FABLE_COMPILER_RUST && WASM │
00:07:00 #40798 [verbose] > │ let v27 : string = null |> unbox<string> │
00:07:00 #40799 [verbose] > │ v27 │
00:07:00 #40800 [verbose] > │ #endif │
00:07:00 #40801 [verbose] > │ #if FABLE_COMPILER_RUST && CONTRACT │
00:07:00 #40802 [verbose] > │ let v28 : string = null |> unbox<string> │
00:07:00 #40803 [verbose] > │ v28 │
00:07:00 #40804 [verbose] > │ #endif │
00:07:00 #40805 [verbose] > │ #if !FABLE_COMPILER && !FABLE_COMPILER_RUST && │
00:07:00 #40806 [verbose] > │ !FABLE_COMPILER_TYPESCRIPT && !WASM && !CONTRACT │
00:07:00 #40807 [verbose] > │ let v29 : string = System.IO.Path.Combine (v5, v7) │
00:07:00 #40808 [verbose] > │ v29 │
00:07:00 #40809 [verbose] > │ #endif │
00:07:00 #40810 [verbose] > │ #if FABLE_COMPILER_TYPESCRIPT │
00:07:00 #40811 [verbose] > │ let v30 : string = "path" │
00:07:00 #40812 [verbose] > │ let v31 : IPathJoin = Fable.Core.JsInterop.importAll v30 │
00:07:00 #40813 [verbose] > │ let v32 : string = "v31.join($0, $1)" │
00:07:00 #40814 [verbose] > │ let v33 : string = Fable.Core.JsInterop.emitJsExpr struct (v5, v7) v32 │
00:07:00 #40815 [verbose] > │ v33 │
00:07:00 #40816 [verbose] > │ #endif │
00:07:00 #40817 [verbose] > │ #if FABLE_COMPILER_PYTHON || FABLE_COMPILER_PHP || FABLE_COMPILER_DART │
00:07:00 #40818 [verbose] > │ let v34 : string = Unchecked.defaultof<string> │
00:07:00 #40819 [verbose] > │ v34 │
00:07:00 #40820 [verbose] > │ #endif │
00:07:00 #40821 [verbose] > │ |> fun x -> _v8 <- Some x │
00:07:00 #40822 [verbose] > │ let v35 : string = _v8.Value │
00:07:00 #40823 [verbose] > │ let v36 : System.DateTime = System.DateTime.Now │
00:07:00 #40824 [verbose] > │ let v37 : System.Guid = System.Guid.NewGuid () │
00:07:00 #40825 [verbose] > │ let v38 : (System.Guid -> string) = _.ToString() │
00:07:00 #40826 [verbose] > │ let v39 : string = v38 v37 │
00:07:00 #40827 [verbose] > │ let v40 : string = v36.ToString "yyyyMMdd-HHmm-ssff-ffff-f" │
00:07:00 #40828 [verbose] > │ let v41 : System.Guid = System.Guid $"{v40}{v39.[v40.Length..]}" │
00:07:00 #40829 [verbose] > │ let v42 : (System.Guid -> string) = _.ToString() │
00:07:00 #40830 [verbose] > │ let v43 : string = v42 v41 │
00:07:00 #40831 [verbose] > │ let v44 : string option = None │
00:07:00 #40832 [verbose] > │ let mutable _v44 = v44 │
00:07:00 #40833 [verbose] > │ #if FABLE_COMPILER_RUST && !WASM && !CONTRACT │
00:07:00 #40834 [verbose] > │ let v45 : string = method5(v35) │
00:07:00 #40835 [verbose] > │ let v46 : string = "fable_library_rust::String_::LrcStr::as_str(&$0)" │
00:07:00 #40836 [verbose] > │ let v47 : Ref<Str> = Fable.Core.RustInterop.emitRustExpr v45 v46 │
00:07:00 #40837 [verbose] > │ let v48 : string = "String::from($0)" │
00:07:00 #40838 [verbose] > │ let v49 : std_string_String = Fable.Core.RustInterop.emitRustExpr v47 │
00:07:00 #40839 [verbose] > │ v48 │
00:07:00 #40840 [verbose] > │ let v50 : string = "std::path::PathBuf::from($0)" │
00:07:00 #40841 [verbose] > │ let v51 : std_path_PathBuf = Fable.Core.RustInterop.emitRustExpr v49 v50 │
00:07:00 #40842 [verbose] > │ let v52 : string = method5(v43) │
00:07:00 #40843 [verbose] > │ let v53 : string = "fable_library_rust::String_::LrcStr::as_str(&$0)" │
00:07:00 #40844 [verbose] > │ let v54 : Ref<Str> = Fable.Core.RustInterop.emitRustExpr v52 v53 │
00:07:00 #40845 [verbose] > │ let v55 : string = "String::from($0)" │
00:07:00 #40846 [verbose] > │ let v56 : std_string_String = Fable.Core.RustInterop.emitRustExpr v54 │
00:07:00 #40847 [verbose] > │ v55 │
00:07:00 #40848 [verbose] > │ let v57 : string = "$0.join($1)" │
00:07:00 #40849 [verbose] > │ let v58 : std_path_PathBuf = Fable.Core.RustInterop.emitRustExpr struct │
00:07:00 #40850 [verbose] > │ (v51, v56) v57 │
00:07:00 #40851 [verbose] > │ let v59 : string = "$0.display().to_string()" │
00:07:00 #40852 [verbose] > │ let v60 : std_string_String = Fable.Core.RustInterop.emitRustExpr v58 │
00:07:00 #40853 [verbose] > │ v59 │
00:07:00 #40854 [verbose] > │ let v61 : string = "fable_library_rust::String_::fromString($0)" │
00:07:00 #40855 [verbose] > │ let v62 : string = Fable.Core.RustInterop.emitRustExpr v60 v61 │
00:07:00 #40856 [verbose] > │ v62 │
00:07:00 #40857 [verbose] > │ #endif │
00:07:00 #40858 [verbose] > │ #if FABLE_COMPILER_RUST && WASM │
00:07:00 #40859 [verbose] > │ let v63 : string = null |> unbox<string> │
00:07:00 #40860 [verbose] > │ v63 │
00:07:00 #40861 [verbose] > │ #endif │
00:07:00 #40862 [verbose] > │ #if FABLE_COMPILER_RUST && CONTRACT │
00:07:00 #40863 [verbose] > │ let v64 : string = null |> unbox<string> │
00:07:00 #40864 [verbose] > │ v64 │
00:07:00 #40865 [verbose] > │ #endif │
00:07:00 #40866 [verbose] > │ #if !FABLE_COMPILER && !FABLE_COMPILER_RUST && │
00:07:00 #40867 [verbose] > │ !FABLE_COMPILER_TYPESCRIPT && !WASM && !CONTRACT │
00:07:00 #40868 [verbose] > │ let v65 : string = System.IO.Path.Combine (v35, v43) │
00:07:00 #40869 [verbose] > │ v65 │
00:07:00 #40870 [verbose] > │ #endif │
00:07:00 #40871 [verbose] > │ #if FABLE_COMPILER_TYPESCRIPT │
00:07:00 #40872 [verbose] > │ let v66 : IPathJoin = Fable.Core.JsInterop.importAll v30 │
00:07:00 #40873 [verbose] > │ let v67 : string = "v66.join($0, $1)" │
00:07:00 #40874 [verbose] > │ let v68 : string = Fable.Core.JsInterop.emitJsExpr struct (v35, v43) v67 │
00:07:00 #40875 [verbose] > │ v68 │
00:07:00 #40876 [verbose] > │ #endif │
00:07:00 #40877 [verbose] > │ #if FABLE_COMPILER_PYTHON || FABLE_COMPILER_PHP || FABLE_COMPILER_DART │
00:07:00 #40878 [verbose] > │ let v69 : string = Unchecked.defaultof<string> │
00:07:00 #40879 [verbose] > │ v69 │
00:07:00 #40880 [verbose] > │ #endif │
00:07:00 #40881 [verbose] > │ |> fun x -> _v44 <- Some x │
00:07:00 #40882 [verbose] > │ let v70 : string = _v44.Value │
00:07:00 #40883 [verbose] > │ v70 │
00:07:00 #40884 [verbose] > │ #endif │
00:07:00 #40885 [verbose] > │ #if FABLE_COMPILER_TYPESCRIPT │
00:07:00 #40886 [verbose] > │ let v71 : string = null |> unbox<string> │
00:07:00 #40887 [verbose] > │ v71 │
00:07:00 #40888 [verbose] > │ #endif │
00:07:00 #40889 [verbose] > │ #if FABLE_COMPILER_PYTHON || FABLE_COMPILER_PHP || FABLE_COMPILER_DART │
00:07:00 #40890 [verbose] > │ let v72 : string = Unchecked.defaultof<string> │
00:07:00 #40891 [verbose] > │ v72 │
00:07:00 #40892 [verbose] > │ #endif │
00:07:00 #40893 [verbose] > │ |> fun x -> _v0 <- Some x │
00:07:00 #40894 [verbose] > │ let v73 : string = _v0.Value │
00:07:00 #40895 [verbose] > │ v73 │
00:07:00 #40896 [verbose] > │ and closure35 (v0 : string, v1 : string) () : string = │
00:07:00 #40897 [verbose] > │ let v2 : (unit -> string) = closure3() │
00:07:00 #40898 [verbose] > │ let v3 : string = $"temp_folder: {v0} / result: {v1} {v2 ()}" │
00:07:00 #40899 [verbose] > │ v3 │
00:07:00 #40900 [verbose] > │ and closure36 (v0 : string) () : unit = │
00:07:00 #40901 [verbose] > │ let v1 : Async<int64> option = None │
00:07:00 #40902 [verbose] > │ let mutable _v1 = v1 │
00:07:00 #40903 [verbose] > │ #if FABLE_COMPILER_RUST && !WASM && !CONTRACT │
00:07:00 #40904 [verbose] > │ let v2 : Async<int64> = null |> unbox<Async<int64>> │
00:07:00 #40905 [verbose] > │ v2 │
00:07:00 #40906 [verbose] > │ #endif │
00:07:00 #40907 [verbose] > │ #if FABLE_COMPILER_RUST && WASM │
00:07:00 #40908 [verbose] > │ let v3 : Async<int64> = null |> unbox<Async<int64>> │
00:07:00 #40909 [verbose] > │ v3 │
00:07:00 #40910 [verbose] > │ #endif │
00:07:00 #40911 [verbose] > │ #if FABLE_COMPILER_RUST && CONTRACT │
00:07:00 #40912 [verbose] > │ let v4 : Async<int64> = null |> unbox<Async<int64>> │
00:07:00 #40913 [verbose] > │ v4 │
00:07:00 #40914 [verbose] > │ #endif │
00:07:00 #40915 [verbose] > │ #if !FABLE_COMPILER && !FABLE_COMPILER_RUST && │
00:07:00 #40916 [verbose] > │ !FABLE_COMPILER_TYPESCRIPT && !WASM && !CONTRACT │
00:07:00 #40917 [verbose] > │ let v5 : int64 = 0L │
00:07:00 #40918 [verbose] > │ let v6 : Async<int64> = method0(v0, v5) │
00:07:00 #40919 [verbose] > │ v6 │
00:07:00 #40920 [verbose] > │ #endif │
00:07:00 #40921 [verbose] > │ #if FABLE_COMPILER_TYPESCRIPT │
00:07:00 #40922 [verbose] > │ let v7 : Async<int64> = null |> unbox<Async<int64>> │
00:07:00 #40923 [verbose] > │ v7 │
00:07:00 #40924 [verbose] > │ #endif │
00:07:00 #40925 [verbose] > │ #if FABLE_COMPILER_PYTHON || FABLE_COMPILER_PHP || FABLE_COMPILER_DART │
00:07:00 #40926 [verbose] > │ let v8 : Async<int64> = Unchecked.defaultof<Async<int64>> │
00:07:00 #40927 [verbose] > │ v8 │
00:07:00 #40928 [verbose] > │ #endif │
00:07:00 #40929 [verbose] > │ |> fun x -> _v1 <- Some x │
00:07:00 #40930 [verbose] > │ let v9 : Async<int64> = _v1.Value │
00:07:00 #40931 [verbose] > │ let v10 : Async<unit> option = None │
00:07:00 #40932 [verbose] > │ let mutable _v10 = v10 │
00:07:00 #40933 [verbose] > │ #if FABLE_COMPILER_RUST && !WASM && !CONTRACT │
00:07:00 #40934 [verbose] > │ let v11 : Async<unit> = null |> unbox<Async<unit>> │
00:07:00 #40935 [verbose] > │ v11 │
00:07:00 #40936 [verbose] > │ #endif │
00:07:00 #40937 [verbose] > │ #if FABLE_COMPILER_RUST && WASM │
00:07:00 #40938 [verbose] > │ let v12 : Async<unit> = null |> unbox<Async<unit>> │
00:07:00 #40939 [verbose] > │ v12 │
00:07:00 #40940 [verbose] > │ #endif │
00:07:00 #40941 [verbose] > │ #if FABLE_COMPILER_RUST && CONTRACT │
00:07:00 #40942 [verbose] > │ let v13 : Async<unit> = null |> unbox<Async<unit>> │
00:07:00 #40943 [verbose] > │ v13 │
00:07:00 #40944 [verbose] > │ #endif │
00:07:00 #40945 [verbose] > │ #if !FABLE_COMPILER && !FABLE_COMPILER_RUST && │
00:07:00 #40946 [verbose] > │ !FABLE_COMPILER_TYPESCRIPT && !WASM && !CONTRACT │
00:07:00 #40947 [verbose] > │ let v14 : (Async<int64> -> Async<unit>) = Async.Ignore │
00:07:00 #40948 [verbose] > │ let v15 : Async<unit> = v14 v9 │
00:07:00 #40949 [verbose] > │ v15 │
00:07:00 #40950 [verbose] > │ #endif │
00:07:00 #40951 [verbose] > │ #if FABLE_COMPILER_TYPESCRIPT │
00:07:00 #40952 [verbose] > │ let v16 : Async<unit> = null |> unbox<Async<unit>> │
00:07:00 #40953 [verbose] > │ v16 │
00:07:00 #40954 [verbose] > │ #endif │
00:07:00 #40955 [verbose] > │ #if FABLE_COMPILER_PYTHON || FABLE_COMPILER_PHP || FABLE_COMPILER_DART │
00:07:00 #40956 [verbose] > │ let v17 : Async<unit> = Unchecked.defaultof<Async<unit>> │
00:07:00 #40957 [verbose] > │ v17 │
00:07:00 #40958 [verbose] > │ #endif │
00:07:00 #40959 [verbose] > │ |> fun x -> _v10 <- Some x │
00:07:00 #40960 [verbose] > │ let v18 : Async<unit> = _v10.Value │
00:07:00 #40961 [verbose] > │ let v19 : unit option = None │
00:07:00 #40962 [verbose] > │ let mutable _v19 = v19 │
00:07:00 #40963 [verbose] > │ #if FABLE_COMPILER_RUST && !WASM && !CONTRACT │
00:07:00 #40964 [verbose] > │ null |> unbox<unit> │
00:07:00 #40965 [verbose] > │ () │
00:07:00 #40966 [verbose] > │ #endif │
00:07:00 #40967 [verbose] > │ #if FABLE_COMPILER_RUST && WASM │
00:07:00 #40968 [verbose] > │ null |> unbox<unit> │
00:07:00 #40969 [verbose] > │ () │
00:07:00 #40970 [verbose] > │ #endif │
00:07:00 #40971 [verbose] > │ #if FABLE_COMPILER_RUST && CONTRACT │
00:07:00 #40972 [verbose] > │ null |> unbox<unit> │
00:07:00 #40973 [verbose] > │ () │
00:07:00 #40974 [verbose] > │ #endif │
00:07:00 #40975 [verbose] > │ #if !FABLE_COMPILER && !FABLE_COMPILER_RUST && │
00:07:00 #40976 [verbose] > │ !FABLE_COMPILER_TYPESCRIPT && !WASM && !CONTRACT │
00:07:00 #40977 [verbose] > │ let v20 : (Async<unit> -> unit) = Async.RunSynchronously │
00:07:00 #40978 [verbose] > │ v20 v18 │
00:07:00 #40979 [verbose] > │ () │
00:07:00 #40980 [verbose] > │ #endif │
00:07:00 #40981 [verbose] > │ #if FABLE_COMPILER_TYPESCRIPT │
00:07:00 #40982 [verbose] > │ null |> unbox<unit> │
00:07:00 #40983 [verbose] > │ () │
00:07:00 #40984 [verbose] > │ #endif │
00:07:00 #40985 [verbose] > │ #if FABLE_COMPILER_PYTHON || FABLE_COMPILER_PHP || FABLE_COMPILER_DART │
00:07:00 #40986 [verbose] > │ Unchecked.defaultof<unit> │
00:07:00 #40987 [verbose] > │ () │
00:07:00 #40988 [verbose] > │ #endif │
00:07:00 #40989 [verbose] > │ |> fun x -> _v19 <- Some x │
00:07:00 #40990 [verbose] > │ _v19.Value │
00:07:00 #40991 [verbose] > │ () │
00:07:00 #40992 [verbose] > │ and closure34 () () : struct (string * System.IDisposable) = │
00:07:00 #40993 [verbose] > │ let v0 : struct (string * System.IDisposable) option = None │
00:07:00 #40994 [verbose] > │ let mutable _v0 = v0 │
00:07:00 #40995 [verbose] > │ #if FABLE_COMPILER_RUST && !WASM && !CONTRACT │
00:07:00 #40996 [verbose] > │ let struct (v1 : string, v2 : System.IDisposable) = null |> unbox<struct │
00:07:00 #40997 [verbose] > │ (string * System.IDisposable)> │
00:07:00 #40998 [verbose] > │ struct (v1, v2) │
00:07:00 #40999 [verbose] > │ #endif │
00:07:00 #41000 [verbose] > │ #if FABLE_COMPILER_RUST && WASM │
00:07:00 #41001 [verbose] > │ let struct (v3 : string, v4 : System.IDisposable) = null |> unbox<struct │
00:07:00 #41002 [verbose] > │ (string * System.IDisposable)> │
00:07:00 #41003 [verbose] > │ struct (v3, v4) │
00:07:00 #41004 [verbose] > │ #endif │
00:07:00 #41005 [verbose] > │ #if FABLE_COMPILER_RUST && CONTRACT │
00:07:00 #41006 [verbose] > │ let struct (v5 : string, v6 : System.IDisposable) = null |> unbox<struct │
00:07:00 #41007 [verbose] > │ (string * System.IDisposable)> │
00:07:00 #41008 [verbose] > │ struct (v5, v6) │
00:07:00 #41009 [verbose] > │ #endif │
00:07:00 #41010 [verbose] > │ #if !FABLE_COMPILER && !FABLE_COMPILER_RUST && │
00:07:00 #41011 [verbose] > │ !FABLE_COMPILER_TYPESCRIPT && !WASM && !CONTRACT │
00:07:00 #41012 [verbose] > │ let v7 : string option = None │
00:07:00 #41013 [verbose] > │ let mutable _v7 = v7 │
00:07:00 #41014 [verbose] > │ #if FABLE_COMPILER_RUST && !WASM && !CONTRACT │
00:07:00 #41015 [verbose] > │ let v8 : string = null |> unbox<string> │
00:07:00 #41016 [verbose] > │ v8 │
00:07:00 #41017 [verbose] > │ #endif │
00:07:00 #41018 [verbose] > │ #if FABLE_COMPILER_RUST && WASM │
00:07:00 #41019 [verbose] > │ let v9 : string = null |> unbox<string> │
00:07:00 #41020 [verbose] > │ v9 │
00:07:00 #41021 [verbose] > │ #endif │
00:07:00 #41022 [verbose] > │ #if FABLE_COMPILER_RUST && CONTRACT │
00:07:00 #41023 [verbose] > │ let v10 : string = null |> unbox<string> │
00:07:00 #41024 [verbose] > │ v10 │
00:07:00 #41025 [verbose] > │ #endif │
00:07:00 #41026 [verbose] > │ #if !FABLE_COMPILER && !FABLE_COMPILER_RUST && │
00:07:00 #41027 [verbose] > │ !FABLE_COMPILER_TYPESCRIPT && !WASM && !CONTRACT │
00:07:00 #41028 [verbose] > │ let v11 : (unit -> string) = System.IO.Path.GetTempPath │
00:07:00 #41029 [verbose] > │ let v12 : string = v11 () │
00:07:00 #41030 [verbose] > │ let v13 : (unit -> string) = closure33() │
00:07:00 #41031 [verbose] > │ let v14 : string = $"!{v13 ()}" │
00:07:00 #41032 [verbose] > │ let v15 : string option = None │
00:07:00 #41033 [verbose] > │ let mutable _v15 = v15 │
00:07:00 #41034 [verbose] > │ #if FABLE_COMPILER_RUST && !WASM && !CONTRACT │
00:07:00 #41035 [verbose] > │ let v16 : string = method5(v12) │
00:07:00 #41036 [verbose] > │ let v17 : string = "fable_library_rust::String_::LrcStr::as_str(&$0)" │
00:07:00 #41037 [verbose] > │ let v18 : Ref<Str> = Fable.Core.RustInterop.emitRustExpr v16 v17 │
00:07:00 #41038 [verbose] > │ let v19 : string = "String::from($0)" │
00:07:00 #41039 [verbose] > │ let v20 : std_string_String = Fable.Core.RustInterop.emitRustExpr v18 │
00:07:00 #41040 [verbose] > │ v19 │
00:07:00 #41041 [verbose] > │ let v21 : string = "std::path::PathBuf::from($0)" │
00:07:00 #41042 [verbose] > │ let v22 : std_path_PathBuf = Fable.Core.RustInterop.emitRustExpr v20 v21 │
00:07:00 #41043 [verbose] > │ let v23 : string = method5(v14) │
00:07:00 #41044 [verbose] > │ let v24 : string = "fable_library_rust::String_::LrcStr::as_str(&$0)" │
00:07:00 #41045 [verbose] > │ let v25 : Ref<Str> = Fable.Core.RustInterop.emitRustExpr v23 v24 │
00:07:00 #41046 [verbose] > │ let v26 : string = "String::from($0)" │
00:07:00 #41047 [verbose] > │ let v27 : std_string_String = Fable.Core.RustInterop.emitRustExpr v25 │
00:07:00 #41048 [verbose] > │ v26 │
00:07:00 #41049 [verbose] > │ let v28 : string = "$0.join($1)" │
00:07:00 #41050 [verbose] > │ let v29 : std_path_PathBuf = Fable.Core.RustInterop.emitRustExpr struct │
00:07:00 #41051 [verbose] > │ (v22, v27) v28 │
00:07:00 #41052 [verbose] > │ let v30 : string = "$0.display().to_string()" │
00:07:00 #41053 [verbose] > │ let v31 : std_string_String = Fable.Core.RustInterop.emitRustExpr v29 │
00:07:00 #41054 [verbose] > │ v30 │
00:07:00 #41055 [verbose] > │ let v32 : string = "fable_library_rust::String_::fromString($0)" │
00:07:00 #41056 [verbose] > │ let v33 : string = Fable.Core.RustInterop.emitRustExpr v31 v32 │
00:07:00 #41057 [verbose] > │ v33 │
00:07:00 #41058 [verbose] > │ #endif │
00:07:00 #41059 [verbose] > │ #if FABLE_COMPILER_RUST && WASM │
00:07:00 #41060 [verbose] > │ let v34 : string = null |> unbox<string> │
00:07:00 #41061 [verbose] > │ v34 │
00:07:00 #41062 [verbose] > │ #endif │
00:07:00 #41063 [verbose] > │ #if FABLE_COMPILER_RUST && CONTRACT │
00:07:00 #41064 [verbose] > │ let v35 : string = null |> unbox<string> │
00:07:00 #41065 [verbose] > │ v35 │
00:07:00 #41066 [verbose] > │ #endif │
00:07:00 #41067 [verbose] > │ #if !FABLE_COMPILER && !FABLE_COMPILER_RUST && │
00:07:00 #41068 [verbose] > │ !FABLE_COMPILER_TYPESCRIPT && !WASM && !CONTRACT │
00:07:00 #41069 [verbose] > │ let v36 : string = System.IO.Path.Combine (v12, v14) │
00:07:00 #41070 [verbose] > │ v36 │
00:07:00 #41071 [verbose] > │ #endif │
00:07:00 #41072 [verbose] > │ #if FABLE_COMPILER_TYPESCRIPT │
00:07:00 #41073 [verbose] > │ let v37 : string = "path" │
00:07:00 #41074 [verbose] > │ let v38 : IPathJoin = Fable.Core.JsInterop.importAll v37 │
00:07:00 #41075 [verbose] > │ let v39 : string = "v38.join($0, $1)" │
00:07:00 #41076 [verbose] > │ let v40 : string = Fable.Core.JsInterop.emitJsExpr struct (v12, v14) v39 │
00:07:00 #41077 [verbose] > │ v40 │
00:07:00 #41078 [verbose] > │ #endif │
00:07:00 #41079 [verbose] > │ #if FABLE_COMPILER_PYTHON || FABLE_COMPILER_PHP || FABLE_COMPILER_DART │
00:07:00 #41080 [verbose] > │ let v41 : string = Unchecked.defaultof<string> │
00:07:00 #41081 [verbose] > │ v41 │
00:07:00 #41082 [verbose] > │ #endif │
00:07:00 #41083 [verbose] > │ |> fun x -> _v15 <- Some x │
00:07:00 #41084 [verbose] > │ let v42 : string = _v15.Value │
00:07:00 #41085 [verbose] > │ let v43 : System.DateTime = System.DateTime.Now │
00:07:00 #41086 [verbose] > │ let v44 : System.Guid = System.Guid.NewGuid () │
00:07:00 #41087 [verbose] > │ let v45 : (System.Guid -> string) = _.ToString() │
00:07:00 #41088 [verbose] > │ let v46 : string = v45 v44 │
00:07:00 #41089 [verbose] > │ let v47 : string = v43.ToString "yyyyMMdd-HHmm-ssff-ffff-f" │
00:07:00 #41090 [verbose] > │ let v48 : System.Guid = System.Guid $"{v47}{v46.[v47.Length..]}" │
00:07:00 #41091 [verbose] > │ let v49 : (System.Guid -> string) = _.ToString() │
00:07:00 #41092 [verbose] > │ let v50 : string = v49 v48 │
00:07:00 #41093 [verbose] > │ let v51 : string option = None │
00:07:00 #41094 [verbose] > │ let mutable _v51 = v51 │
00:07:00 #41095 [verbose] > │ #if FABLE_COMPILER_RUST && !WASM && !CONTRACT │
00:07:00 #41096 [verbose] > │ let v52 : string = method5(v42) │
00:07:00 #41097 [verbose] > │ let v53 : string = "fable_library_rust::String_::LrcStr::as_str(&$0)" │
00:07:00 #41098 [verbose] > │ let v54 : Ref<Str> = Fable.Core.RustInterop.emitRustExpr v52 v53 │
00:07:00 #41099 [verbose] > │ let v55 : string = "String::from($0)" │
00:07:00 #41100 [verbose] > │ let v56 : std_string_String = Fable.Core.RustInterop.emitRustExpr v54 │
00:07:00 #41101 [verbose] > │ v55 │
00:07:00 #41102 [verbose] > │ let v57 : string = "std::path::PathBuf::from($0)" │
00:07:00 #41103 [verbose] > │ let v58 : std_path_PathBuf = Fable.Core.RustInterop.emitRustExpr v56 v57 │
00:07:00 #41104 [verbose] > │ let v59 : string = method5(v50) │
00:07:00 #41105 [verbose] > │ let v60 : string = "fable_library_rust::String_::LrcStr::as_str(&$0)" │
00:07:00 #41106 [verbose] > │ let v61 : Ref<Str> = Fable.Core.RustInterop.emitRustExpr v59 v60 │
00:07:00 #41107 [verbose] > │ let v62 : string = "String::from($0)" │
00:07:00 #41108 [verbose] > │ let v63 : std_string_String = Fable.Core.RustInterop.emitRustExpr v61 │
00:07:00 #41109 [verbose] > │ v62 │
00:07:00 #41110 [verbose] > │ let v64 : string = "$0.join($1)" │
00:07:00 #41111 [verbose] > │ let v65 : std_path_PathBuf = Fable.Core.RustInterop.emitRustExpr struct │
00:07:00 #41112 [verbose] > │ (v58, v63) v64 │
00:07:00 #41113 [verbose] > │ let v66 : string = "$0.display().to_string()" │
00:07:00 #41114 [verbose] > │ let v67 : std_string_String = Fable.Core.RustInterop.emitRustExpr v65 │
00:07:00 #41115 [verbose] > │ v66 │
00:07:00 #41116 [verbose] > │ let v68 : string = "fable_library_rust::String_::fromString($0)" │
00:07:00 #41117 [verbose] > │ let v69 : string = Fable.Core.RustInterop.emitRustExpr v67 v68 │
00:07:00 #41118 [verbose] > │ v69 │
00:07:00 #41119 [verbose] > │ #endif │
00:07:00 #41120 [verbose] > │ #if FABLE_COMPILER_RUST && WASM │
00:07:00 #41121 [verbose] > │ let v70 : string = null |> unbox<string> │
00:07:00 #41122 [verbose] > │ v70 │
00:07:00 #41123 [verbose] > │ #endif │
00:07:00 #41124 [verbose] > │ #if FABLE_COMPILER_RUST && CONTRACT │
00:07:00 #41125 [verbose] > │ let v71 : string = null |> unbox<string> │
00:07:00 #41126 [verbose] > │ v71 │
00:07:00 #41127 [verbose] > │ #endif │
00:07:00 #41128 [verbose] > │ #if !FABLE_COMPILER && !FABLE_COMPILER_RUST && │
00:07:00 #41129 [verbose] > │ !FABLE_COMPILER_TYPESCRIPT && !WASM && !CONTRACT │
00:07:00 #41130 [verbose] > │ let v72 : string = System.IO.Path.Combine (v42, v50) │
00:07:00 #41131 [verbose] > │ v72 │
00:07:00 #41132 [verbose] > │ #endif │
00:07:00 #41133 [verbose] > │ #if FABLE_COMPILER_TYPESCRIPT │
00:07:00 #41134 [verbose] > │ let v73 : IPathJoin = Fable.Core.JsInterop.importAll v37 │
00:07:00 #41135 [verbose] > │ let v74 : string = "v73.join($0, $1)" │
00:07:00 #41136 [verbose] > │ let v75 : string = Fable.Core.JsInterop.emitJsExpr struct (v42, v50) v74 │
00:07:00 #41137 [verbose] > │ v75 │
00:07:00 #41138 [verbose] > │ #endif │
00:07:00 #41139 [verbose] > │ #if FABLE_COMPILER_PYTHON || FABLE_COMPILER_PHP || FABLE_COMPILER_DART │
00:07:00 #41140 [verbose] > │ let v76 : string = Unchecked.defaultof<string> │
00:07:00 #41141 [verbose] > │ v76 │
00:07:00 #41142 [verbose] > │ #endif │
00:07:00 #41143 [verbose] > │ |> fun x -> _v51 <- Some x │
00:07:00 #41144 [verbose] > │ let v77 : string = _v51.Value │
00:07:00 #41145 [verbose] > │ v77 │
00:07:00 #41146 [verbose] > │ #endif │
00:07:00 #41147 [verbose] > │ #if FABLE_COMPILER_TYPESCRIPT │
00:07:00 #41148 [verbose] > │ let v78 : string = null |> unbox<string> │
00:07:00 #41149 [verbose] > │ v78 │
00:07:00 #41150 [verbose] > │ #endif │
00:07:00 #41151 [verbose] > │ #if FABLE_COMPILER_PYTHON || FABLE_COMPILER_PHP || FABLE_COMPILER_DART │
00:07:00 #41152 [verbose] > │ let v79 : string = Unchecked.defaultof<string> │
00:07:00 #41153 [verbose] > │ v79 │
00:07:00 #41154 [verbose] > │ #endif │
00:07:00 #41155 [verbose] > │ |> fun x -> _v7 <- Some x │
00:07:00 #41156 [verbose] > │ let v80 : string = _v7.Value │
00:07:00 #41157 [verbose] > │ let v81 : System.IO.DirectoryInfo option = None │
00:07:00 #41158 [verbose] > │ let mutable _v81 = v81 │
00:07:00 #41159 [verbose] > │ #if FABLE_COMPILER_RUST && !WASM && !CONTRACT │
00:07:00 #41160 [verbose] > │ let v82 : System.IO.DirectoryInfo = null |> │
00:07:00 #41161 [verbose] > │ unbox<System.IO.DirectoryInfo> │
00:07:00 #41162 [verbose] > │ v82 │
00:07:00 #41163 [verbose] > │ #endif │
00:07:00 #41164 [verbose] > │ #if FABLE_COMPILER_RUST && WASM │
00:07:00 #41165 [verbose] > │ let v83 : System.IO.DirectoryInfo = null |> │
00:07:00 #41166 [verbose] > │ unbox<System.IO.DirectoryInfo> │
00:07:00 #41167 [verbose] > │ v83 │
00:07:00 #41168 [verbose] > │ #endif │
00:07:00 #41169 [verbose] > │ #if FABLE_COMPILER_RUST && CONTRACT │
00:07:00 #41170 [verbose] > │ let v84 : System.IO.DirectoryInfo = null |> │
00:07:00 #41171 [verbose] > │ unbox<System.IO.DirectoryInfo> │
00:07:00 #41172 [verbose] > │ v84 │
00:07:00 #41173 [verbose] > │ #endif │
00:07:00 #41174 [verbose] > │ #if !FABLE_COMPILER && !FABLE_COMPILER_RUST && │
00:07:00 #41175 [verbose] > │ !FABLE_COMPILER_TYPESCRIPT && !WASM && !CONTRACT │
00:07:00 #41176 [verbose] > │ let v85 : (string -> System.IO.DirectoryInfo) = │
00:07:00 #41177 [verbose] > │ System.IO.Directory.CreateDirectory │
00:07:00 #41178 [verbose] > │ let v86 : System.IO.DirectoryInfo = v85 v80 │
00:07:00 #41179 [verbose] > │ v86 │
00:07:00 #41180 [verbose] > │ #endif │
00:07:00 #41181 [verbose] > │ #if FABLE_COMPILER_TYPESCRIPT │
00:07:00 #41182 [verbose] > │ let v87 : System.IO.DirectoryInfo = null |> │
00:07:00 #41183 [verbose] > │ unbox<System.IO.DirectoryInfo> │
00:07:00 #41184 [verbose] > │ v87 │
00:07:00 #41185 [verbose] > │ #endif │
00:07:00 #41186 [verbose] > │ #if FABLE_COMPILER_PYTHON || FABLE_COMPILER_PHP || FABLE_COMPILER_DART │
00:07:00 #41187 [verbose] > │ let v88 : System.IO.DirectoryInfo = │
00:07:00 #41188 [verbose] > │ Unchecked.defaultof<System.IO.DirectoryInfo> │
00:07:00 #41189 [verbose] > │ v88 │
00:07:00 #41190 [verbose] > │ #endif │
00:07:00 #41191 [verbose] > │ |> fun x -> _v81 <- Some x │
00:07:00 #41192 [verbose] > │ let v89 : System.IO.DirectoryInfo = _v81.Value │
00:07:00 #41193 [verbose] > │ let v90 : bool option = None │
00:07:00 #41194 [verbose] > │ let mutable _v90 = v90 │
00:07:00 #41195 [verbose] > │ #if FABLE_COMPILER_RUST && !WASM && !CONTRACT │
00:07:00 #41196 [verbose] > │ let v91 : bool = null |> unbox<bool> │
00:07:00 #41197 [verbose] > │ v91 │
00:07:00 #41198 [verbose] > │ #endif │
00:07:00 #41199 [verbose] > │ #if FABLE_COMPILER_RUST && WASM │
00:07:00 #41200 [verbose] > │ let v92 : bool = null |> unbox<bool> │
00:07:00 #41201 [verbose] > │ v92 │
00:07:00 #41202 [verbose] > │ #endif │
00:07:00 #41203 [verbose] > │ #if FABLE_COMPILER_RUST && CONTRACT │
00:07:00 #41204 [verbose] > │ let v93 : bool = null |> unbox<bool> │
00:07:00 #41205 [verbose] > │ v93 │
00:07:00 #41206 [verbose] > │ #endif │
00:07:00 #41207 [verbose] > │ #if !FABLE_COMPILER && !FABLE_COMPILER_RUST && │
00:07:00 #41208 [verbose] > │ !FABLE_COMPILER_TYPESCRIPT && !WASM && !CONTRACT │
00:07:00 #41209 [verbose] > │ let v94 : bool = v89.Exists │
00:07:00 #41210 [verbose] > │ v94 │
00:07:00 #41211 [verbose] > │ #endif │
00:07:00 #41212 [verbose] > │ #if FABLE_COMPILER_TYPESCRIPT │
00:07:00 #41213 [verbose] > │ let v95 : bool = null |> unbox<bool> │
00:07:00 #41214 [verbose] > │ v95 │
00:07:00 #41215 [verbose] > │ #endif │
00:07:00 #41216 [verbose] > │ #if FABLE_COMPILER_PYTHON || FABLE_COMPILER_PHP || FABLE_COMPILER_DART │
00:07:00 #41217 [verbose] > │ let v96 : bool = Unchecked.defaultof<bool> │
00:07:00 #41218 [verbose] > │ v96 │
00:07:00 #41219 [verbose] > │ #endif │
00:07:00 #41220 [verbose] > │ |> fun x -> _v90 <- Some x │
00:07:00 #41221 [verbose] > │ let v97 : bool = _v90.Value │
00:07:00 #41222 [verbose] > │ let v98 : bool = v97 = false │
00:07:00 #41223 [verbose] > │ if v98 then │
00:07:00 #41224 [verbose] > │ let v99 : System.DateTime option = None │
00:07:00 #41225 [verbose] > │ let mutable _v99 = v99 │
00:07:00 #41226 [verbose] > │ #if FABLE_COMPILER_RUST && !WASM && !CONTRACT │
00:07:00 #41227 [verbose] > │ let v100 : System.DateTime = null |> unbox<System.DateTime> │
00:07:00 #41228 [verbose] > │ v100 │
00:07:00 #41229 [verbose] > │ #endif │
00:07:00 #41230 [verbose] > │ #if FABLE_COMPILER_RUST && WASM │
00:07:00 #41231 [verbose] > │ let v101 : System.DateTime = null |> unbox<System.DateTime> │
00:07:00 #41232 [verbose] > │ v101 │
00:07:00 #41233 [verbose] > │ #endif │
00:07:00 #41234 [verbose] > │ #if FABLE_COMPILER_RUST && CONTRACT │
00:07:00 #41235 [verbose] > │ let v102 : System.DateTime = null |> unbox<System.DateTime> │
00:07:00 #41236 [verbose] > │ v102 │
00:07:00 #41237 [verbose] > │ #endif │
00:07:00 #41238 [verbose] > │ #if !FABLE_COMPILER && !FABLE_COMPILER_RUST && │
00:07:00 #41239 [verbose] > │ !FABLE_COMPILER_TYPESCRIPT && !WASM && !CONTRACT │
00:07:00 #41240 [verbose] > │ let v103 : System.DateTime = v89.CreationTime │
00:07:00 #41241 [verbose] > │ v103 │
00:07:00 #41242 [verbose] > │ #endif │
00:07:00 #41243 [verbose] > │ #if FABLE_COMPILER_TYPESCRIPT │
00:07:00 #41244 [verbose] > │ let v104 : System.DateTime = null |> unbox<System.DateTime> │
00:07:00 #41245 [verbose] > │ v104 │
00:07:00 #41246 [verbose] > │ #endif │
00:07:00 #41247 [verbose] > │ #if FABLE_COMPILER_PYTHON || FABLE_COMPILER_PHP || │
00:07:00 #41248 [verbose] > │ FABLE_COMPILER_DART │
00:07:00 #41249 [verbose] > │ let v105 : System.DateTime = Unchecked.defaultof<System.DateTime> │
00:07:00 #41250 [verbose] > │ v105 │
00:07:00 #41251 [verbose] > │ #endif │
00:07:00 #41252 [verbose] > │ |> fun x -> _v99 <- Some x │
00:07:00 #41253 [verbose] > │ let v106 : System.DateTime = _v99.Value │
00:07:00 #41254 [verbose] > │ let v107 : obj = {| Exists = v97; CreationTime = v106 |} │
00:07:00 #41255 [verbose] > │ let v108 : string = $"%A{v107}" │
00:07:00 #41256 [verbose] > │ let v109 : (unit -> string) = closure35(v80, v108) │
00:07:00 #41257 [verbose] > │ let v110 : string = $"create_temp_directory / {v109 ()}" │
00:07:00 #41258 [verbose] > │ System.Console.WriteLine v110 │
00:07:00 #41259 [verbose] > │ () │
00:07:00 #41260 [verbose] > │ let v111 : System.IDisposable option = None │
00:07:00 #41261 [verbose] > │ let mutable _v111 = v111 │
00:07:00 #41262 [verbose] > │ #if FABLE_COMPILER_RUST && !WASM && !CONTRACT │
00:07:00 #41263 [verbose] > │ let v112 : System.IDisposable = null |> unbox<System.IDisposable> │
00:07:00 #41264 [verbose] > │ v112 │
00:07:00 #41265 [verbose] > │ #endif │
00:07:00 #41266 [verbose] > │ #if FABLE_COMPILER_RUST && WASM │
00:07:00 #41267 [verbose] > │ let v113 : System.IDisposable = null |> unbox<System.IDisposable> │
00:07:00 #41268 [verbose] > │ v113 │
00:07:00 #41269 [verbose] > │ #endif │
00:07:00 #41270 [verbose] > │ #if FABLE_COMPILER_RUST && CONTRACT │
00:07:00 #41271 [verbose] > │ let v114 : System.IDisposable = null |> unbox<System.IDisposable> │
00:07:00 #41272 [verbose] > │ v114 │
00:07:00 #41273 [verbose] > │ #endif │
00:07:00 #41274 [verbose] > │ #if !FABLE_COMPILER && !FABLE_COMPILER_RUST && │
00:07:00 #41275 [verbose] > │ !FABLE_COMPILER_TYPESCRIPT && !WASM && !CONTRACT │
00:07:00 #41276 [verbose] > │ let v115 : (unit -> unit) = closure36(v80) │
00:07:00 #41277 [verbose] > │ let v116 : System.IDisposable = { new System.IDisposable with member │
00:07:00 #41278 [verbose] > │ _.Dispose () = v115 () } │
00:07:00 #41279 [verbose] > │ v116 │
00:07:00 #41280 [verbose] > │ #endif │
00:07:00 #41281 [verbose] > │ #if FABLE_COMPILER_TYPESCRIPT │
00:07:00 #41282 [verbose] > │ let v117 : System.IDisposable = null |> unbox<System.IDisposable> │
00:07:00 #41283 [verbose] > │ v117 │
00:07:00 #41284 [verbose] > │ #endif │
00:07:00 #41285 [verbose] > │ #if FABLE_COMPILER_PYTHON || FABLE_COMPILER_PHP || FABLE_COMPILER_DART │
00:07:00 #41286 [verbose] > │ let v118 : System.IDisposable = Unchecked.defaultof<System.IDisposable> │
00:07:00 #41287 [verbose] > │ v118 │
00:07:00 #41288 [verbose] > │ #endif │
00:07:00 #41289 [verbose] > │ |> fun x -> _v111 <- Some x │
00:07:00 #41290 [verbose] > │ let v119 : System.IDisposable = _v111.Value │
00:07:00 #41291 [verbose] > │ struct (v80, v119) │
00:07:00 #41292 [verbose] > │ #endif │
00:07:00 #41293 [verbose] > │ #if FABLE_COMPILER_TYPESCRIPT │
00:07:00 #41294 [verbose] > │ let struct (v120 : string, v121 : System.IDisposable) = null |> │
00:07:00 #41295 [verbose] > │ unbox<struct (string * System.IDisposable)> │
00:07:00 #41296 [verbose] > │ struct (v120, v121) │
00:07:00 #41297 [verbose] > │ #endif │
00:07:00 #41298 [verbose] > │ #if FABLE_COMPILER_PYTHON || FABLE_COMPILER_PHP || FABLE_COMPILER_DART │
00:07:00 #41299 [verbose] > │ let struct (v122 : string, v123 : System.IDisposable) = │
00:07:00 #41300 [verbose] > │ Unchecked.defaultof<struct (string * System.IDisposable)> │
00:07:00 #41301 [verbose] > │ struct (v122, v123) │
00:07:00 #41302 [verbose] > │ #endif │
00:07:00 #41303 [verbose] > │ |> fun x -> _v0 <- Some x │
00:07:00 #41304 [verbose] > │ let struct (v124 : string, v125 : System.IDisposable) = _v0.Value │
00:07:00 #41305 [verbose] > │ struct (v124, v125) │
00:07:00 #41306 [verbose] > │ and closure37 () () : string = │
00:07:00 #41307 [verbose] > │ let v0 : string = __SOURCE_DIRECTORY__ │
00:07:00 #41308 [verbose] > │ v0 │
00:07:00 #41309 [verbose] > │ and closure41 () (v0 : string) : bool = │
00:07:00 #41310 [verbose] > │ let v1 : bool option = None │
00:07:00 #41311 [verbose] > │ let mutable _v1 = v1 │
00:07:00 #41312 [verbose] > │ #if FABLE_COMPILER_RUST && !WASM && !CONTRACT │
00:07:00 #41313 [verbose] > │ let v2 : string = method5(v0) │
00:07:00 #41314 [verbose] > │ let v3 : string = "fable_library_rust::String_::LrcStr::as_str(&$0)" │
00:07:00 #41315 [verbose] > │ let v4 : Ref<Str> = Fable.Core.RustInterop.emitRustExpr v2 v3 │
00:07:00 #41316 [verbose] > │ let v5 : string = "String::from($0)" │
00:07:00 #41317 [verbose] > │ let v6 : std_string_String = Fable.Core.RustInterop.emitRustExpr v4 v5 │
00:07:00 #41318 [verbose] > │ let v7 : string = "std::path::PathBuf::from($0)" │
00:07:00 #41319 [verbose] > │ let v8 : std_path_PathBuf = Fable.Core.RustInterop.emitRustExpr v6 v7 │
00:07:00 #41320 [verbose] > │ let v9 : string = "$0.exists()" │
00:07:00 #41321 [verbose] > │ let v10 : bool = Fable.Core.RustInterop.emitRustExpr v8 v9 │
00:07:00 #41322 [verbose] > │ let v13 : bool = │
00:07:00 #41323 [verbose] > │ if v10 then │
00:07:00 #41324 [verbose] > │ let v11 : string = "$0.is_file()" │
00:07:00 #41325 [verbose] > │ let v12 : bool = Fable.Core.RustInterop.emitRustExpr v8 v11 │
00:07:00 #41326 [verbose] > │ v12 │
00:07:00 #41327 [verbose] > │ else │
00:07:00 #41328 [verbose] > │ false │
00:07:00 #41329 [verbose] > │ v13 │
00:07:00 #41330 [verbose] > │ #endif │
00:07:00 #41331 [verbose] > │ #if FABLE_COMPILER_RUST && WASM │
00:07:00 #41332 [verbose] > │ let v14 : bool = null |> unbox<bool> │
00:07:00 #41333 [verbose] > │ v14 │
00:07:00 #41334 [verbose] > │ #endif │
00:07:00 #41335 [verbose] > │ #if FABLE_COMPILER_RUST && CONTRACT │
00:07:00 #41336 [verbose] > │ let v15 : bool = null |> unbox<bool> │
00:07:00 #41337 [verbose] > │ v15 │
00:07:00 #41338 [verbose] > │ #endif │
00:07:00 #41339 [verbose] > │ #if !FABLE_COMPILER && !FABLE_COMPILER_RUST && │
00:07:00 #41340 [verbose] > │ !FABLE_COMPILER_TYPESCRIPT && !WASM && !CONTRACT │
00:07:00 #41341 [verbose] > │ let v16 : (string -> bool) = System.IO.File.Exists │
00:07:00 #41342 [verbose] > │ let v17 : bool = v16 v0 │
00:07:00 #41343 [verbose] > │ v17 │
00:07:00 #41344 [verbose] > │ #endif │
00:07:00 #41345 [verbose] > │ #if FABLE_COMPILER_TYPESCRIPT │
00:07:00 #41346 [verbose] > │ let v18 : string = "fs" │
00:07:00 #41347 [verbose] > │ let v19 : IFsExistsSync = Fable.Core.JsInterop.importAll v18 │
00:07:00 #41348 [verbose] > │ let v20 : string = "v19.existsSync($0)" │
00:07:00 #41349 [verbose] > │ let v21 : bool = Fable.Core.JsInterop.emitJsExpr v0 v20 │
00:07:00 #41350 [verbose] > │ v21 │
00:07:00 #41351 [verbose] > │ #endif │
00:07:00 #41352 [verbose] > │ #if FABLE_COMPILER_PYTHON || FABLE_COMPILER_PHP || FABLE_COMPILER_DART │
00:07:00 #41353 [verbose] > │ let v22 : bool = Unchecked.defaultof<bool> │
00:07:00 #41354 [verbose] > │ v22 │
00:07:00 #41355 [verbose] > │ #endif │
00:07:00 #41356 [verbose] > │ |> fun x -> _v1 <- Some x │
00:07:00 #41357 [verbose] > │ let v23 : bool = _v1.Value │
00:07:00 #41358 [verbose] > │ v23 │
00:07:00 #41359 [verbose] > │ and closure42 () (v0 : string) : bool = │
00:07:00 #41360 [verbose] > │ let v1 : bool option = None │
00:07:00 #41361 [verbose] > │ let mutable _v1 = v1 │
00:07:00 #41362 [verbose] > │ #if FABLE_COMPILER_RUST && !WASM && !CONTRACT │
00:07:00 #41363 [verbose] > │ let v2 : string = method5(v0) │
00:07:00 #41364 [verbose] > │ let v3 : string = "fable_library_rust::String_::LrcStr::as_str(&$0)" │
00:07:00 #41365 [verbose] > │ let v4 : Ref<Str> = Fable.Core.RustInterop.emitRustExpr v2 v3 │
00:07:00 #41366 [verbose] > │ let v5 : string = "String::from($0)" │
00:07:00 #41367 [verbose] > │ let v6 : std_string_String = Fable.Core.RustInterop.emitRustExpr v4 v5 │
00:07:00 #41368 [verbose] > │ let v7 : string = "std::path::PathBuf::from($0)" │
00:07:00 #41369 [verbose] > │ let v8 : std_path_PathBuf = Fable.Core.RustInterop.emitRustExpr v6 v7 │
00:07:00 #41370 [verbose] > │ let v9 : string = "$0.exists()" │
00:07:00 #41371 [verbose] > │ let v10 : bool = Fable.Core.RustInterop.emitRustExpr v8 v9 │
00:07:00 #41372 [verbose] > │ let v13 : bool = │
00:07:00 #41373 [verbose] > │ if v10 then │
00:07:00 #41374 [verbose] > │ let v11 : string = "$0.is_dir()" │
00:07:00 #41375 [verbose] > │ let v12 : bool = Fable.Core.RustInterop.emitRustExpr v8 v11 │
00:07:00 #41376 [verbose] > │ v12 │
00:07:00 #41377 [verbose] > │ else │
00:07:00 #41378 [verbose] > │ false │
00:07:00 #41379 [verbose] > │ v13 │
00:07:00 #41380 [verbose] > │ #endif │
00:07:00 #41381 [verbose] > │ #if FABLE_COMPILER_RUST && WASM │
00:07:00 #41382 [verbose] > │ let v14 : bool = null |> unbox<bool> │
00:07:00 #41383 [verbose] > │ v14 │
00:07:00 #41384 [verbose] > │ #endif │
00:07:00 #41385 [verbose] > │ #if FABLE_COMPILER_RUST && CONTRACT │
00:07:00 #41386 [verbose] > │ let v15 : bool = null |> unbox<bool> │
00:07:00 #41387 [verbose] > │ v15 │
00:07:00 #41388 [verbose] > │ #endif │
00:07:00 #41389 [verbose] > │ #if !FABLE_COMPILER && !FABLE_COMPILER_RUST && │
00:07:00 #41390 [verbose] > │ !FABLE_COMPILER_TYPESCRIPT && !WASM && !CONTRACT │
00:07:00 #41391 [verbose] > │ let v16 : (string -> bool) = System.IO.Directory.Exists │
00:07:00 #41392 [verbose] > │ let v17 : bool = v16 v0 │
00:07:00 #41393 [verbose] > │ v17 │
00:07:00 #41394 [verbose] > │ #endif │
00:07:00 #41395 [verbose] > │ #if FABLE_COMPILER_TYPESCRIPT │
00:07:00 #41396 [verbose] > │ let v18 : string = "fs" │
00:07:00 #41397 [verbose] > │ let v19 : IFsExistsSync = Fable.Core.JsInterop.importAll v18 │
00:07:00 #41398 [verbose] > │ let v20 : string = "v19.existsSync($0)" │
00:07:00 #41399 [verbose] > │ let v21 : bool = Fable.Core.JsInterop.emitJsExpr v0 v20 │
00:07:00 #41400 [verbose] > │ v21 │
00:07:00 #41401 [verbose] > │ #endif │
00:07:00 #41402 [verbose] > │ #if FABLE_COMPILER_PYTHON || FABLE_COMPILER_PHP || FABLE_COMPILER_DART │
00:07:00 #41403 [verbose] > │ let v22 : bool = Unchecked.defaultof<bool> │
00:07:00 #41404 [verbose] > │ v22 │
00:07:00 #41405 [verbose] > │ #endif │
00:07:00 #41406 [verbose] > │ |> fun x -> _v1 <- Some x │
00:07:00 #41407 [verbose] > │ let v23 : bool = _v1.Value │
00:07:00 #41408 [verbose] > │ v23 │
00:07:00 #41409 [verbose] > │ and closure43 () (v0 : string) : string option = │
00:07:00 #41410 [verbose] > │ let v1 : US8 option = None │
00:07:00 #41411 [verbose] > │ let mutable _v1 = v1 │
00:07:00 #41412 [verbose] > │ #if FABLE_COMPILER_RUST && !WASM && !CONTRACT │
00:07:00 #41413 [verbose] > │ let v2 : string = method5(v0) │
00:07:00 #41414 [verbose] > │ let v3 : string = "fable_library_rust::String_::LrcStr::as_str(&$0)" │
00:07:00 #41415 [verbose] > │ let v4 : Ref<Str> = Fable.Core.RustInterop.emitRustExpr v2 v3 │
00:07:00 #41416 [verbose] > │ let v5 : string = "String::from($0)" │
00:07:00 #41417 [verbose] > │ let v6 : std_string_String = Fable.Core.RustInterop.emitRustExpr v4 v5 │
00:07:00 #41418 [verbose] > │ let v7 : string = "std::path::PathBuf::from($0)" │
00:07:00 #41419 [verbose] > │ let v8 : std_path_PathBuf = Fable.Core.RustInterop.emitRustExpr v6 v7 │
00:07:00 #41420 [verbose] > │ let v9 : string = "$0.parent().map(std::path::PathBuf::from)" │
00:07:00 #41421 [verbose] > │ let v10 : std_path_PathBuf option = Fable.Core.RustInterop.emitRustExpr │
00:07:00 #41422 [verbose] > │ v8 v9 │
00:07:00 #41423 [verbose] > │ let v11 : string = "$0?" │
00:07:00 #41424 [verbose] > │ let v12 : std_path_PathBuf = Fable.Core.RustInterop.emitRustExpr v10 v11 │
00:07:00 #41425 [verbose] > │ let v13 : string = "$0.display().to_string()" │
00:07:00 #41426 [verbose] > │ let v14 : std_string_String = Fable.Core.RustInterop.emitRustExpr v12 │
00:07:00 #41427 [verbose] > │ v13 │
00:07:00 #41428 [verbose] > │ let v15 : string = "fable_library_rust::String_::fromString($0)" │
00:07:00 #41429 [verbose] > │ let v16 : string = Fable.Core.RustInterop.emitRustExpr v14 v15 │
00:07:00 #41430 [verbose] > │ let v17 : US8 = US8_0(v16) │
00:07:00 #41431 [verbose] > │ v17 │
00:07:00 #41432 [verbose] > │ #endif │
00:07:00 #41433 [verbose] > │ #if FABLE_COMPILER_RUST && WASM │
00:07:00 #41434 [verbose] > │ let v18 : US8 = null |> unbox<US8> │
00:07:00 #41435 [verbose] > │ v18 │
00:07:00 #41436 [verbose] > │ #endif │
00:07:00 #41437 [verbose] > │ #if FABLE_COMPILER_RUST && CONTRACT │
00:07:00 #41438 [verbose] > │ let v19 : US8 = null |> unbox<US8> │
00:07:00 #41439 [verbose] > │ v19 │
00:07:00 #41440 [verbose] > │ #endif │
00:07:00 #41441 [verbose] > │ #if !FABLE_COMPILER && !FABLE_COMPILER_RUST && │
00:07:00 #41442 [verbose] > │ !FABLE_COMPILER_TYPESCRIPT && !WASM && !CONTRACT │
00:07:00 #41443 [verbose] > │ let v20 : (string -> System.IO.DirectoryInfo) = │
00:07:00 #41444 [verbose] > │ System.IO.Directory.GetParent │
00:07:00 #41445 [verbose] > │ let v21 : System.IO.DirectoryInfo = v20 v0 │
00:07:00 #41446 [verbose] > │ let v22 : System.IO.DirectoryInfo = null |> │
00:07:00 #41447 [verbose] > │ unbox<System.IO.DirectoryInfo> │
00:07:00 #41448 [verbose] > │ let v23 : bool = v21 = v22 │
00:07:00 #41449 [verbose] > │ let v34 : US8 = │
00:07:00 #41450 [verbose] > │ if v23 then │
00:07:00 #41451 [verbose] > │ US8_1 │
00:07:00 #41452 [verbose] > │ else │
00:07:00 #41453 [verbose] > │ let v25 : string option = None │
00:07:00 #41454 [verbose] > │ let mutable _v25 = v25 │
00:07:00 #41455 [verbose] > │ #if FABLE_COMPILER_RUST && !WASM && !CONTRACT │
00:07:00 #41456 [verbose] > │ let v26 : string = null |> unbox<string> │
00:07:00 #41457 [verbose] > │ v26 │
00:07:00 #41458 [verbose] > │ #endif │
00:07:00 #41459 [verbose] > │ #if FABLE_COMPILER_RUST && WASM │
00:07:00 #41460 [verbose] > │ let v27 : string = null |> unbox<string> │
00:07:00 #41461 [verbose] > │ v27 │
00:07:00 #41462 [verbose] > │ #endif │
00:07:00 #41463 [verbose] > │ #if FABLE_COMPILER_RUST && CONTRACT │
00:07:00 #41464 [verbose] > │ let v28 : string = null |> unbox<string> │
00:07:00 #41465 [verbose] > │ v28 │
00:07:00 #41466 [verbose] > │ #endif │
00:07:00 #41467 [verbose] > │ #if !FABLE_COMPILER && !FABLE_COMPILER_RUST && │
00:07:00 #41468 [verbose] > │ !FABLE_COMPILER_TYPESCRIPT && !WASM && !CONTRACT │
00:07:00 #41469 [verbose] > │ let v29 : string = v21.FullName │
00:07:00 #41470 [verbose] > │ v29 │
00:07:00 #41471 [verbose] > │ #endif │
00:07:00 #41472 [verbose] > │ #if FABLE_COMPILER_TYPESCRIPT │
00:07:00 #41473 [verbose] > │ let v30 : string = null |> unbox<string> │
00:07:00 #41474 [verbose] > │ v30 │
00:07:00 #41475 [verbose] > │ #endif │
00:07:00 #41476 [verbose] > │ #if FABLE_COMPILER_PYTHON || FABLE_COMPILER_PHP || │
00:07:00 #41477 [verbose] > │ FABLE_COMPILER_DART │
00:07:00 #41478 [verbose] > │ let v31 : string = Unchecked.defaultof<string> │
00:07:00 #41479 [verbose] > │ v31 │
00:07:00 #41480 [verbose] > │ #endif │
00:07:00 #41481 [verbose] > │ |> fun x -> _v25 <- Some x │
00:07:00 #41482 [verbose] > │ let v32 : string = _v25.Value │
00:07:00 #41483 [verbose] > │ US8_0(v32) │
00:07:00 #41484 [verbose] > │ v34 │
00:07:00 #41485 [verbose] > │ #endif │
00:07:00 #41486 [verbose] > │ #if FABLE_COMPILER_TYPESCRIPT │
00:07:00 #41487 [verbose] > │ let v35 : string = "path" │
00:07:00 #41488 [verbose] > │ let v36 : IPathDirname = Fable.Core.JsInterop.importAll v35 │
00:07:00 #41489 [verbose] > │ let v37 : string = "v36.dirname($0)" │
00:07:00 #41490 [verbose] > │ let v38 : string = Fable.Core.JsInterop.emitJsExpr v0 v37 │
00:07:00 #41491 [verbose] > │ let v39 : US8 = US8_0(v38) │
00:07:00 #41492 [verbose] > │ v39 │
00:07:00 #41493 [verbose] > │ #endif │
00:07:00 #41494 [verbose] > │ #if FABLE_COMPILER_PYTHON || FABLE_COMPILER_PHP || FABLE_COMPILER_DART │
00:07:00 #41495 [verbose] > │ let v40 : US8 = Unchecked.defaultof<US8> │
00:07:00 #41496 [verbose] > │ v40 │
00:07:00 #41497 [verbose] > │ #endif │
00:07:00 #41498 [verbose] > │ |> fun x -> _v1 <- Some x │
00:07:00 #41499 [verbose] > │ let v41 : US8 = _v1.Value │
00:07:00 #41500 [verbose] > │ match v41 with │
00:07:00 #41501 [verbose] > │ | US8_1 -> (* None *) │
00:07:00 #41502 [verbose] > │ let v44 : string option = None │
00:07:00 #41503 [verbose] > │ v44 │
00:07:00 #41504 [verbose] > │ | US8_0(v42) -> (* Some *) │
00:07:00 #41505 [verbose] > │ let v43 : string option = Some v42 │
00:07:00 #41506 [verbose] > │ v43 │
00:07:00 #41507 [verbose] > │ and method17 () : (string -> string option) = │
00:07:00 #41508 [verbose] > │ closure43() │
00:07:00 #41509 [verbose] > │ and closure44 () (v0 : string) : US8 = │
00:07:00 #41510 [verbose] > │ US8_0(v0) │
00:07:00 #41511 [verbose] > │ and method18 () : (string -> US8) = │
00:07:00 #41512 [verbose] > │ closure44() │
00:07:00 #41513 [verbose] > │ and method19 (v0 : string, v1 : bool, v2 : string, v3 : string) : string = │
00:07:00 #41514 [verbose] > │ let v4 : string option = None │
00:07:00 #41515 [verbose] > │ let mutable _v4 = v4 │
00:07:00 #41516 [verbose] > │ #if FABLE_COMPILER_RUST && !WASM && !CONTRACT │
00:07:00 #41517 [verbose] > │ let v5 : string = method5(v3) │
00:07:00 #41518 [verbose] > │ let v6 : string = "fable_library_rust::String_::LrcStr::as_str(&$0)" │
00:07:00 #41519 [verbose] > │ let v7 : Ref<Str> = Fable.Core.RustInterop.emitRustExpr v5 v6 │
00:07:00 #41520 [verbose] > │ let v8 : string = "String::from($0)" │
00:07:00 #41521 [verbose] > │ let v9 : std_string_String = Fable.Core.RustInterop.emitRustExpr v7 v8 │
00:07:00 #41522 [verbose] > │ let v10 : string = "std::path::PathBuf::from($0)" │
00:07:00 #41523 [verbose] > │ let v11 : std_path_PathBuf = Fable.Core.RustInterop.emitRustExpr v9 v10 │
00:07:00 #41524 [verbose] > │ let v12 : string = method5(v0) │
00:07:00 #41525 [verbose] > │ let v13 : string = "fable_library_rust::String_::LrcStr::as_str(&$0)" │
00:07:00 #41526 [verbose] > │ let v14 : Ref<Str> = Fable.Core.RustInterop.emitRustExpr v12 v13 │
00:07:00 #41527 [verbose] > │ let v15 : string = "String::from($0)" │
00:07:00 #41528 [verbose] > │ let v16 : std_string_String = Fable.Core.RustInterop.emitRustExpr v14 │
00:07:00 #41529 [verbose] > │ v15 │
00:07:00 #41530 [verbose] > │ let v17 : string = "$0.join($1)" │
00:07:00 #41531 [verbose] > │ let v18 : std_path_PathBuf = Fable.Core.RustInterop.emitRustExpr struct │
00:07:00 #41532 [verbose] > │ (v11, v16) v17 │
00:07:00 #41533 [verbose] > │ let v19 : string = "$0.display().to_string()" │
00:07:00 #41534 [verbose] > │ let v20 : std_string_String = Fable.Core.RustInterop.emitRustExpr v18 │
00:07:00 #41535 [verbose] > │ v19 │
00:07:00 #41536 [verbose] > │ let v21 : string = "fable_library_rust::String_::fromString($0)" │
00:07:00 #41537 [verbose] > │ let v22 : string = Fable.Core.RustInterop.emitRustExpr v20 v21 │
00:07:00 #41538 [verbose] > │ v22 │
00:07:00 #41539 [verbose] > │ #endif │
00:07:00 #41540 [verbose] > │ #if FABLE_COMPILER_RUST && WASM │
00:07:00 #41541 [verbose] > │ let v23 : string = null |> unbox<string> │
00:07:00 #41542 [verbose] > │ v23 │
00:07:00 #41543 [verbose] > │ #endif │
00:07:00 #41544 [verbose] > │ #if FABLE_COMPILER_RUST && CONTRACT │
00:07:00 #41545 [verbose] > │ let v24 : string = null |> unbox<string> │
00:07:00 #41546 [verbose] > │ v24 │
00:07:00 #41547 [verbose] > │ #endif │
00:07:00 #41548 [verbose] > │ #if !FABLE_COMPILER && !FABLE_COMPILER_RUST && │
00:07:00 #41549 [verbose] > │ !FABLE_COMPILER_TYPESCRIPT && !WASM && !CONTRACT │
00:07:00 #41550 [verbose] > │ let v25 : string = System.IO.Path.Combine (v3, v0) │
00:07:00 #41551 [verbose] > │ v25 │
00:07:00 #41552 [verbose] > │ #endif │
00:07:00 #41553 [verbose] > │ #if FABLE_COMPILER_TYPESCRIPT │
00:07:00 #41554 [verbose] > │ let v26 : string = "path" │
00:07:00 #41555 [verbose] > │ let v27 : IPathJoin = Fable.Core.JsInterop.importAll v26 │
00:07:00 #41556 [verbose] > │ let v28 : string = "v27.join($0, $1)" │
00:07:00 #41557 [verbose] > │ let v29 : string = Fable.Core.JsInterop.emitJsExpr struct (v3, v0) v28 │
00:07:00 #41558 [verbose] > │ v29 │
00:07:00 #41559 [verbose] > │ #endif │
00:07:00 #41560 [verbose] > │ #if FABLE_COMPILER_PYTHON || FABLE_COMPILER_PHP || FABLE_COMPILER_DART │
00:07:00 #41561 [verbose] > │ let v30 : string = Unchecked.defaultof<string> │
00:07:00 #41562 [verbose] > │ v30 │
00:07:00 #41563 [verbose] > │ #endif │
00:07:00 #41564 [verbose] > │ |> fun x -> _v4 <- Some x │
00:07:00 #41565 [verbose] > │ let v31 : string = _v4.Value │
00:07:00 #41566 [verbose] > │ let v34 : (string -> bool) = │
00:07:00 #41567 [verbose] > │ if v1 then │
00:07:00 #41568 [verbose] > │ closure41() │
00:07:00 #41569 [verbose] > │ else │
00:07:00 #41570 [verbose] > │ closure42() │
00:07:00 #41571 [verbose] > │ let v35 : bool = v34 v31 │
00:07:00 #41572 [verbose] > │ if v35 then │
00:07:00 #41573 [verbose] > │ v3 │
00:07:00 #41574 [verbose] > │ else │
00:07:00 #41575 [verbose] > │ let v36 : (string -> string option) = method17() │
00:07:00 #41576 [verbose] > │ let v37 : string option = v36 v3 │
00:07:00 #41577 [verbose] > │ let v38 : (string -> US8) = method18() │
00:07:00 #41578 [verbose] > │ let v39 : US8 = US8_1 │
00:07:00 #41579 [verbose] > │ let v40 : US8 = v37 |> Option.map v38 |> Option.defaultValue v39 │
00:07:00 #41580 [verbose] > │ match v40 with │
00:07:00 #41581 [verbose] > │ | US8_1 -> (* None *) │
00:07:00 #41582 [verbose] > │ let v43 : string = $"""No parent for {if v1 then "file" else │
00:07:00 #41583 [verbose] > │ "dir"} '{v0}' at '{v2}' (until '{v3}')""" │
00:07:00 #41584 [verbose] > │ failwith<string> v43 │
00:07:00 #41585 [verbose] > │ | US8_0(v41) -> (* Some *) │
00:07:00 #41586 [verbose] > │ method19(v0, v1, v2, v41) │
00:07:00 #41587 [verbose] > │ and method16 (v0 : string, v1 : bool, v2 : string) : string = │
00:07:00 #41588 [verbose] > │ let v3 : string option = None │
00:07:00 #41589 [verbose] > │ let mutable _v3 = v3 │
00:07:00 #41590 [verbose] > │ #if FABLE_COMPILER_RUST && !WASM && !CONTRACT │
00:07:00 #41591 [verbose] > │ let v4 : string = method5(v2) │
00:07:00 #41592 [verbose] > │ let v5 : string = "fable_library_rust::String_::LrcStr::as_str(&$0)" │
00:07:00 #41593 [verbose] > │ let v6 : Ref<Str> = Fable.Core.RustInterop.emitRustExpr v4 v5 │
00:07:00 #41594 [verbose] > │ let v7 : string = "String::from($0)" │
00:07:00 #41595 [verbose] > │ let v8 : std_string_String = Fable.Core.RustInterop.emitRustExpr v6 v7 │
00:07:00 #41596 [verbose] > │ let v9 : string = "std::path::PathBuf::from($0)" │
00:07:00 #41597 [verbose] > │ let v10 : std_path_PathBuf = Fable.Core.RustInterop.emitRustExpr v8 v9 │
00:07:00 #41598 [verbose] > │ let v11 : string = method5(v0) │
00:07:00 #41599 [verbose] > │ let v12 : string = "fable_library_rust::String_::LrcStr::as_str(&$0)" │
00:07:00 #41600 [verbose] > │ let v13 : Ref<Str> = Fable.Core.RustInterop.emitRustExpr v11 v12 │
00:07:00 #41601 [verbose] > │ let v14 : string = "String::from($0)" │
00:07:00 #41602 [verbose] > │ let v15 : std_string_String = Fable.Core.RustInterop.emitRustExpr v13 │
00:07:00 #41603 [verbose] > │ v14 │
00:07:00 #41604 [verbose] > │ let v16 : string = "$0.join($1)" │
00:07:00 #41605 [verbose] > │ let v17 : std_path_PathBuf = Fable.Core.RustInterop.emitRustExpr struct │
00:07:00 #41606 [verbose] > │ (v10, v15) v16 │
00:07:00 #41607 [verbose] > │ let v18 : string = "$0.display().to_string()" │
00:07:00 #41608 [verbose] > │ let v19 : std_string_String = Fable.Core.RustInterop.emitRustExpr v17 │
00:07:00 #41609 [verbose] > │ v18 │
00:07:00 #41610 [verbose] > │ let v20 : string = "fable_library_rust::String_::fromString($0)" │
00:07:00 #41611 [verbose] > │ let v21 : string = Fable.Core.RustInterop.emitRustExpr v19 v20 │
00:07:00 #41612 [verbose] > │ v21 │
00:07:00 #41613 [verbose] > │ #endif │
00:07:00 #41614 [verbose] > │ #if FABLE_COMPILER_RUST && WASM │
00:07:00 #41615 [verbose] > │ let v22 : string = null |> unbox<string> │
00:07:00 #41616 [verbose] > │ v22 │
00:07:00 #41617 [verbose] > │ #endif │
00:07:00 #41618 [verbose] > │ #if FABLE_COMPILER_RUST && CONTRACT │
00:07:00 #41619 [verbose] > │ let v23 : string = null |> unbox<string> │
00:07:00 #41620 [verbose] > │ v23 │
00:07:00 #41621 [verbose] > │ #endif │
00:07:00 #41622 [verbose] > │ #if !FABLE_COMPILER && !FABLE_COMPILER_RUST && │
00:07:00 #41623 [verbose] > │ !FABLE_COMPILER_TYPESCRIPT && !WASM && !CONTRACT │
00:07:00 #41624 [verbose] > │ let v24 : string = System.IO.Path.Combine (v2, v0) │
00:07:00 #41625 [verbose] > │ v24 │
00:07:00 #41626 [verbose] > │ #endif │
00:07:00 #41627 [verbose] > │ #if FABLE_COMPILER_TYPESCRIPT │
00:07:00 #41628 [verbose] > │ let v25 : string = "path" │
00:07:00 #41629 [verbose] > │ let v26 : IPathJoin = Fable.Core.JsInterop.importAll v25 │
00:07:00 #41630 [verbose] > │ let v27 : string = "v26.join($0, $1)" │
00:07:00 #41631 [verbose] > │ let v28 : string = Fable.Core.JsInterop.emitJsExpr struct (v2, v0) v27 │
00:07:00 #41632 [verbose] > │ v28 │
00:07:00 #41633 [verbose] > │ #endif │
00:07:00 #41634 [verbose] > │ #if FABLE_COMPILER_PYTHON || FABLE_COMPILER_PHP || FABLE_COMPILER_DART │
00:07:00 #41635 [verbose] > │ let v29 : string = Unchecked.defaultof<string> │
00:07:00 #41636 [verbose] > │ v29 │
00:07:00 #41637 [verbose] > │ #endif │
00:07:00 #41638 [verbose] > │ |> fun x -> _v3 <- Some x │
00:07:00 #41639 [verbose] > │ let v30 : string = _v3.Value │
00:07:00 #41640 [verbose] > │ let v33 : (string -> bool) = │
00:07:00 #41641 [verbose] > │ if v1 then │
00:07:00 #41642 [verbose] > │ closure41() │
00:07:00 #41643 [verbose] > │ else │
00:07:00 #41644 [verbose] > │ closure42() │
00:07:00 #41645 [verbose] > │ let v34 : bool = v33 v30 │
00:07:00 #41646 [verbose] > │ if v34 then │
00:07:00 #41647 [verbose] > │ v2 │
00:07:00 #41648 [verbose] > │ else │
00:07:00 #41649 [verbose] > │ let v35 : (string -> string option) = method17() │
00:07:00 #41650 [verbose] > │ let v36 : string option = v35 v2 │
00:07:00 #41651 [verbose] > │ let v37 : (string -> US8) = method18() │
00:07:00 #41652 [verbose] > │ let v38 : US8 = US8_1 │
00:07:00 #41653 [verbose] > │ let v39 : US8 = v36 |> Option.map v37 |> Option.defaultValue v38 │
00:07:00 #41654 [verbose] > │ match v39 with │
00:07:00 #41655 [verbose] > │ | US8_1 -> (* None *) │
00:07:00 #41656 [verbose] > │ let v42 : string = $"""No parent for {if v1 then "file" else │
00:07:00 #41657 [verbose] > │ "dir"} '{v0}' at '{v2}' (until '{v2}')""" │
00:07:00 #41658 [verbose] > │ failwith<string> v42 │
00:07:00 #41659 [verbose] > │ | US8_0(v40) -> (* Some *) │
00:07:00 #41660 [verbose] > │ method19(v0, v1, v2, v40) │
00:07:00 #41661 [verbose] > │ and closure40 (v0 : string, v1 : bool) (v2 : string) : string = │
00:07:00 #41662 [verbose] > │ method16(v0, v1, v2) │
00:07:00 #41663 [verbose] > │ and closure39 (v0 : string) (v1 : bool) : (string -> string) = │
00:07:00 #41664 [verbose] > │ closure40(v0, v1) │
00:07:00 #41665 [verbose] > │ and closure38 () (v0 : string) : (bool -> (string -> string)) = │
00:07:00 #41666 [verbose] > │ closure39(v0) │
00:07:00 #41667 [verbose] > │ and closure46 (v0 : string) (v1 : string) : string = │
00:07:00 #41668 [verbose] > │ let v2 : string option = None │
00:07:00 #41669 [verbose] > │ let mutable _v2 = v2 │
00:07:00 #41670 [verbose] > │ #if FABLE_COMPILER_RUST && !WASM && !CONTRACT │
00:07:00 #41671 [verbose] > │ let v3 : string = method5(v0) │
00:07:00 #41672 [verbose] > │ let v4 : string = "fable_library_rust::String_::LrcStr::as_str(&$0)" │
00:07:00 #41673 [verbose] > │ let v5 : Ref<Str> = Fable.Core.RustInterop.emitRustExpr v3 v4 │
00:07:00 #41674 [verbose] > │ let v6 : string = "String::from($0)" │
00:07:00 #41675 [verbose] > │ let v7 : std_string_String = Fable.Core.RustInterop.emitRustExpr v5 v6 │
00:07:00 #41676 [verbose] > │ let v8 : string = "std::path::PathBuf::from($0)" │
00:07:00 #41677 [verbose] > │ let v9 : std_path_PathBuf = Fable.Core.RustInterop.emitRustExpr v7 v8 │
00:07:00 #41678 [verbose] > │ let v10 : string = method5(v1) │
00:07:00 #41679 [verbose] > │ let v11 : string = "fable_library_rust::String_::LrcStr::as_str(&$0)" │
00:07:00 #41680 [verbose] > │ let v12 : Ref<Str> = Fable.Core.RustInterop.emitRustExpr v10 v11 │
00:07:00 #41681 [verbose] > │ let v13 : string = "String::from($0)" │
00:07:00 #41682 [verbose] > │ let v14 : std_string_String = Fable.Core.RustInterop.emitRustExpr v12 │
00:07:00 #41683 [verbose] > │ v13 │
00:07:00 #41684 [verbose] > │ let v15 : string = "$0.join($1)" │
00:07:00 #41685 [verbose] > │ let v16 : std_path_PathBuf = Fable.Core.RustInterop.emitRustExpr struct │
00:07:00 #41686 [verbose] > │ (v9, v14) v15 │
00:07:00 #41687 [verbose] > │ let v17 : string = "$0.display().to_string()" │
00:07:00 #41688 [verbose] > │ let v18 : std_string_String = Fable.Core.RustInterop.emitRustExpr v16 │
00:07:00 #41689 [verbose] > │ v17 │
00:07:00 #41690 [verbose] > │ let v19 : string = "fable_library_rust::String_::fromString($0)" │
00:07:00 #41691 [verbose] > │ let v20 : string = Fable.Core.RustInterop.emitRustExpr v18 v19 │
00:07:00 #41692 [verbose] > │ v20 │
00:07:00 #41693 [verbose] > │ #endif │
00:07:00 #41694 [verbose] > │ #if FABLE_COMPILER_RUST && WASM │
00:07:00 #41695 [verbose] > │ let v21 : string = null |> unbox<string> │
00:07:00 #41696 [verbose] > │ v21 │
00:07:00 #41697 [verbose] > │ #endif │
00:07:00 #41698 [verbose] > │ #if FABLE_COMPILER_RUST && CONTRACT │
00:07:00 #41699 [verbose] > │ let v22 : string = null |> unbox<string> │
00:07:00 #41700 [verbose] > │ v22 │
00:07:00 #41701 [verbose] > │ #endif │
00:07:00 #41702 [verbose] > │ #if !FABLE_COMPILER && !FABLE_COMPILER_RUST && │
00:07:00 #41703 [verbose] > │ !FABLE_COMPILER_TYPESCRIPT && !WASM && !CONTRACT │
00:07:00 #41704 [verbose] > │ let v23 : string = System.IO.Path.Combine (v0, v1) │
00:07:00 #41705 [verbose] > │ v23 │
00:07:00 #41706 [verbose] > │ #endif │
00:07:00 #41707 [verbose] > │ #if FABLE_COMPILER_TYPESCRIPT │
00:07:00 #41708 [verbose] > │ let v24 : string = "path" │
00:07:00 #41709 [verbose] > │ let v25 : IPathJoin = Fable.Core.JsInterop.importAll v24 │
00:07:00 #41710 [verbose] > │ let v26 : string = "v25.join($0, $1)" │
00:07:00 #41711 [verbose] > │ let v27 : string = Fable.Core.JsInterop.emitJsExpr struct (v0, v1) v26 │
00:07:00 #41712 [verbose] > │ v27 │
00:07:00 #41713 [verbose] > │ #endif │
00:07:00 #41714 [verbose] > │ #if FABLE_COMPILER_PYTHON || FABLE_COMPILER_PHP || FABLE_COMPILER_DART │
00:07:00 #41715 [verbose] > │ let v28 : string = Unchecked.defaultof<string> │
00:07:00 #41716 [verbose] > │ v28 │
00:07:00 #41717 [verbose] > │ #endif │
00:07:00 #41718 [verbose] > │ |> fun x -> _v2 <- Some x │
00:07:00 #41719 [verbose] > │ let v29 : string = _v2.Value │
00:07:00 #41720 [verbose] > │ v29 │
00:07:00 #41721 [verbose] > │ and closure45 () (v0 : string) : (string -> string) = │
00:07:00 #41722 [verbose] > │ closure46(v0) │
00:07:00 #41723 [verbose] > │ let v0 : unit option = None │
00:07:00 #41724 [verbose] > │ let mutable _v0 = v0 │
00:07:00 #41725 [verbose] > │ #if FABLE_COMPILER_RUST && !WASM && !CONTRACT │
00:07:00 #41726 [verbose] > │ () │
00:07:00 #41727 [verbose] > │ #endif │
00:07:00 #41728 [verbose] > │ #if FABLE_COMPILER_RUST && WASM │
00:07:00 #41729 [verbose] > │ () │
00:07:00 #41730 [verbose] > │ #endif │
00:07:00 #41731 [verbose] > │ #if FABLE_COMPILER_RUST && CONTRACT │
00:07:00 #41732 [verbose] > │ () │
00:07:00 #41733 [verbose] > │ #endif │
00:07:00 #41734 [verbose] > │ #if !FABLE_COMPILER && !FABLE_COMPILER_RUST && !FABLE_COMPILER_TYPESCRIPT && │
00:07:00 #41735 [verbose] > │ !WASM && !CONTRACT │
00:07:00 #41736 [verbose] > │ let v1 : (string -> Async<int64>) = closure0() │
00:07:00 #41737 [verbose] > │ let delete_directory_async x = v1 x │
00:07:00 #41738 [verbose] > │ let v2 : (US0 -> (string -> Async<int64>)) = closure4() │
00:07:00 #41739 [verbose] > │ let wait_for_file_access x = v2 x │
00:07:00 #41740 [verbose] > │ let v3 : (string -> Async<int64>) = closure7() │
00:07:00 #41741 [verbose] > │ let wait_for_file_access_read x = v3 x │
00:07:00 #41742 [verbose] > │ let v4 : (string -> Async<string>) = closure8() │
00:07:00 #41743 [verbose] > │ let read_all_text_async x = v4 x │
00:07:00 #41744 [verbose] > │ let v5 : (string -> (string -> Async<bool>)) = closure9() │
00:07:00 #41745 [verbose] > │ let file_exists_content x = v5 x │
00:07:00 #41746 [verbose] > │ let v6 : (string -> (string -> Async<unit>)) = closure11() │
00:07:00 #41747 [verbose] > │ let write_all_text_async x = v6 x │
00:07:00 #41748 [verbose] > │ let v7 : (string -> (string -> Async<unit>)) = closure13() │
00:07:00 #41749 [verbose] > │ let write_all_text_exists x = v7 x │
00:07:00 #41750 [verbose] > │ let v8 : (string -> Async<int64>) = closure15() │
00:07:00 #41751 [verbose] > │ let delete_file_async x = v8 x │
00:07:00 #41752 [verbose] > │ let v9 : (string -> (string -> Async<int64>)) = closure20() │
00:07:00 #41753 [verbose] > │ let move_file_async x = v9 x │
00:07:00 #41754 [verbose] > │ let v10 : (string -> Async<string option>) = closure24() │
00:07:00 #41755 [verbose] > │ let read_all_text_retry_async x = v10 x │
00:07:00 #41756 [verbose] > │ () │
00:07:00 #41757 [verbose] > │ #endif │
00:07:00 #41758 [verbose] > │ #if FABLE_COMPILER_TYPESCRIPT │
00:07:00 #41759 [verbose] > │ () │
00:07:00 #41760 [verbose] > │ #endif │
00:07:00 #41761 [verbose] > │ #if FABLE_COMPILER_PYTHON || FABLE_COMPILER_PHP || FABLE_COMPILER_DART │
00:07:00 #41762 [verbose] > │ Unchecked.defaultof<unit> │
00:07:00 #41763 [verbose] > │ () │
00:07:00 #41764 [verbose] > │ #endif │
00:07:00 #41765 [verbose] > │ |> fun x -> _v0 <- Some x │
00:07:00 #41766 [verbose] > │ _v0.Value │
00:07:00 #41767 [verbose] > │ let v11 : (unit -> string) = closure32() │
00:07:00 #41768 [verbose] > │ let create_temp_directory_name () = v11 () │
00:07:00 #41769 [verbose] > │ let v12 : (unit -> struct (string * System.IDisposable)) = closure34() │
00:07:00 #41770 [verbose] > │ let create_temp_directory () = v12 () │
00:07:00 #41771 [verbose] > │ let v13 : (unit -> string) = closure37() │
00:07:00 #41772 [verbose] > │ let get_source_directory () = v13 () │
00:07:00 #41773 [verbose] > │ let v14 : (string -> (bool -> (string -> string))) = closure38() │
00:07:00 #41774 [verbose] > │ let find_parent x = v14 x │
00:07:00 #41775 [verbose] > │ let v15 : (string -> (string -> string)) = closure45() │
00:07:00 #41776 [verbose] > │ let (</>) x = v15 x │
00:07:00 #41777 [verbose] > │ () │
00:07:00 #41778 [verbose] > │ │
00:07:00 #41779 [verbose] > │ │
00:07:00 #41780 [verbose] > ╰──────────────────────────────────────────────────────────────────────────────╯
00:07:02 #41781 [verbose] > [NbConvertApp] Converting notebook file_system.dib.ipynb to html
00:07:02 #41782 [verbose] > C:\Users\i574n\scoop\apps\python\current\Lib\site-packages\nbformat\__init__.py:93: MissingIDFieldWarning: Code cell is missing an id field, this will become a hard error in future nbformat versions. You may want to use `normalize()` on your notebooks before validations (available since nbformat 5.1.4). Previous versions of nbformat are fixing this issue transparently, and will stop doing so in the future.
00:07:02 #41783 [verbose] > validate(nb)
00:07:02 #41784 [verbose] > C:\Users\i574n\scoop\apps\python\current\Lib\site-packages\nbconvert\filters\highlight.py:71: UserWarning: IPython3 lexer unavailable, falling back on Python 3
00:07:02 #41785 [verbose] > return _pygments_highlight(
00:07:03 #41786 [verbose] > [NbConvertApp] Writing 952949 bytes to file_system.dib.html
00:07:04 #41787 [debug] execute_with_options_async / exit_code: 0 / output.Length: 1138778
00:07:04 #24 [debug] main / executeCommand / exitCode: 0
00:07:04 #41788 [debug] execute_with_options_async / options: struct (Some System.Threading.CancellationToken,
"pwsh -c "../../scripts/invoke-dib.ps1 rust.dib" -Retries 3", None, None,
None)
00:07:06 #41789 [verbose] >
00:07:06 #41790 [verbose] > ── markdown ────────────────────────────────────────────────────────────────────
00:07:06 #41791 [verbose] > ╭──────────────────────────────────────────────────────────────────────────────╮
00:07:06 #41792 [verbose] > │ # rust │
00:07:06 #41793 [verbose] > ╰──────────────────────────────────────────────────────────────────────────────╯
00:07:06 #41794 [verbose] >
00:07:06 #41795 [verbose] > ── spiral ──────────────────────────────────────────────────────────────────────
00:07:06 #41796 [verbose] > // // test
00:07:06 #41797 [verbose] >
00:07:06 #41798 [verbose] > open testing
00:07:09 #41799 [verbose] > Building c:\home\git\polyglot\target\polyglot\spiral_eval\packages\8837341da068f4ef4271045b3ef1c89d209237bf74b4f11596b6ee2d484becb0\main.spi
00:07:10 #41800 [verbose] >
00:07:10 #41801 [verbose] > ╭─[ 3.57s - stdout ]───────────────────────────────────────────────────────────╮
00:07:10 #41802 [verbose] > │ () │
00:07:10 #41803 [verbose] > │ │
00:07:10 #41804 [verbose] > │ │
00:07:10 #41805 [verbose] > ╰──────────────────────────────────────────────────────────────────────────────╯
00:07:10 #41806 [verbose] >
00:07:10 #41807 [verbose] > ── spiral ──────────────────────────────────────────────────────────────────────
00:07:10 #41808 [verbose] > inl types () =
00:07:10 #41809 [verbose] > global "[[<Fable.Core.Erase; Fable.Core.Emit(\"Func0<$0>\")>]] type
00:07:10 #41810 [verbose] > Func0<'T> = class end"
00:07:10 #41811 [verbose] > global "[[<Fable.Core.Erase; Fable.Core.Emit(\"Func1<$0, $1>\")>]] type
00:07:10 #41812 [verbose] > Func0<'T, 'U> = class end"
00:07:10 #41813 [verbose] > global "[[<Fable.Core.Erase; Fable.Core.Emit(\"Box<$0>\")>]] type Box<'T> =
00:07:10 #41814 [verbose] > class end"
00:07:10 #41815 [verbose] > global "[[<Fable.Core.Erase; Fable.Core.Emit(\"dyn $0\")>]] type Dyn<'T> =
00:07:10 #41816 [verbose] > class end"
00:07:10 #41817 [verbose] > global "[[<Fable.Core.Erase; Fable.Core.Emit(\"Fn() -> $0\")>]] type Fn<'T>
00:07:10 #41818 [verbose] > = class end"
00:07:10 #41819 [verbose] > global "[[<Fable.Core.Erase; Fable.Core.Emit(\"Fn()\")>]] type FnUnit =
00:07:10 #41820 [verbose] > class end"
00:07:10 #41821 [verbose] > global "[[<Fable.Core.Erase; Fable.Core.Emit(\"FnOnce() -> $0\")>]] type
00:07:10 #41822 [verbose] > FnOnce<'T> = class end"
00:07:10 #41823 [verbose] > global "[[<Fable.Core.Erase; Fable.Core.Emit(\"Fn($0, $1)\")>]] type
00:07:10 #41824 [verbose] > ActionFn2<'T, 'U> = class end"
00:07:10 #41825 [verbose] > global "[[<Fable.Core.Erase; Fable.Core.Emit(\"impl $0\")>]] type Impl<'T> =
00:07:10 #41826 [verbose] > class end"
00:07:10 #41827 [verbose] > global "[[<Fable.Core.Erase; Fable.Core.Emit(\"mut $0\")>]] type Mut<'T> =
00:07:10 #41828 [verbose] > class end"
00:07:10 #41829 [verbose] > global "[[<Fable.Core.Erase; Fable.Core.Emit(\"&$0\")>]] type Ref<'T> =
00:07:10 #41830 [verbose] > class end"
00:07:10 #41831 [verbose] > global "[[<Fable.Core.Erase; Fable.Core.Emit(\"&'static $0\")>]] type
00:07:10 #41832 [verbose] > StaticRef<'T> = class end"
00:07:10 #41833 [verbose] > global "[[<Fable.Core.Erase; Fable.Core.Emit(\"MutCell<$0>\")>]] type
00:07:10 #41834 [verbose] > MutCell<'T> = class end"
00:07:10 #41835 [verbose] > global "[[<Fable.Core.Erase; Fable.Core.Emit(\"std::any::Any\")>]] type
00:07:10 #41836 [verbose] > std_any_Any = class end"
00:07:10 #41837 [verbose] > global "[[<Fable.Core.Erase; Fable.Core.Emit(\"std::cell::RefCell<$0>\")>]]
00:07:10 #41838 [verbose] > type std_cell_RefCell<'T> = class end"
00:07:10 #41839 [verbose] > global "[[<Fable.Core.Erase; Fable.Core.Emit(\"std::pin::Pin<$0>\")>]] type
00:07:10 #41840 [verbose] > std_pin_Pin<'T> = class end"
00:07:10 #41841 [verbose] > global "[[<Fable.Core.Erase; Fable.Core.Emit(\"std::rc::Rc<$0>\")>]] type
00:07:10 #41842 [verbose] > std_rc_Rc<'T> = class end"
00:07:10 #41843 [verbose] > global "[[<Fable.Core.Erase; Fable.Core.Emit(\"std::rc::Weak<$0>\")>]] type
00:07:10 #41844 [verbose] > std_rc_Weak<'T> = class end"
00:07:10 #41845 [verbose] > global "[[<Fable.Core.Erase; Fable.Core.Emit(\"std::sync::Arc<$0>\")>]] type
00:07:10 #41846 [verbose] > std_sync_Arc<'T> = class end"
00:07:10 #41847 [verbose] > Building c:\home\git\polyglot\target\polyglot\spiral_eval\packages\3e20d3e3caeadf90605cf83818836a8b0dcdcf1b00a032a9e93bfb17b605aefb\main.spi
00:07:10 #41848 [verbose] >
00:07:10 #41849 [verbose] > ╭─[ 285.32ms - stdout ]────────────────────────────────────────────────────────╮
00:07:10 #41850 [verbose] > │ () │
00:07:10 #41851 [verbose] > │ │
00:07:10 #41852 [verbose] > │ │
00:07:10 #41853 [verbose] > ╰──────────────────────────────────────────────────────────────────────────────╯
00:07:10 #41854 [verbose] >
00:07:10 #41855 [verbose] > ── spiral ──────────────────────────────────────────────────────────────────────
00:07:10 #41856 [verbose] > nominal ref_cell t = $"std_cell_RefCell<`t>"
00:07:10 #41857 [verbose] > nominal rc t = $"std_rc_Rc<`t>"
00:07:10 #41858 [verbose] > nominal weak_rc t = $"std_rc_Weak<`t>"
00:07:10 #41859 [verbose] > nominal box t = $"Box<`t>"
00:07:10 #41860 [verbose] > nominal mut_cell t = $"MutCell<`t>"
00:07:10 #41861 [verbose] > nominal pin t = $"std_pin_Pin<`t>"
00:07:10 #41862 [verbose] > nominal arc t = $"std_sync_Arc<`t>"
00:07:10 #41863 [verbose] > nominal dyn' t = $"Dyn<`t>"
00:07:10 #41864 [verbose] > nominal fn' t = $"Fn<`t>"
00:07:10 #41865 [verbose] > nominal action_fn2 t u = $"ActionFn2<`t, `u>"
00:07:10 #41866 [verbose] > nominal fn_once t = $"FnOnce<`t>"
00:07:10 #41867 [verbose] > nominal fn_unit = $"FnUnit"
00:07:10 #41868 [verbose] > nominal func0 t = $"Func0<`t>"
00:07:10 #41869 [verbose] > nominal func1 t u = $"Func0<`t, `u>"
00:07:10 #41870 [verbose] > nominal impl t = $"Impl<`t>"
00:07:10 #41871 [verbose] > nominal mut' t = $"Mut<`t>"
00:07:10 #41872 [verbose] > nominal ref' t = $"Ref<`t>"
00:07:10 #41873 [verbose] > nominal static_ref' t = $"StaticRef<`t>"
00:07:10 #41874 [verbose] > Building c:\home\git\polyglot\target\polyglot\spiral_eval\packages\df9de4a83d249a050dd047d71fcda7af056c90e88daebc86b809bc739c47e9fd\main.spi
00:07:10 #41875 [verbose] >
00:07:10 #41876 [verbose] > ╭─[ 233.46ms - stdout ]────────────────────────────────────────────────────────╮
00:07:10 #41877 [verbose] > │ () │
00:07:10 #41878 [verbose] > │ │
00:07:10 #41879 [verbose] > │ │
00:07:10 #41880 [verbose] > ╰──────────────────────────────────────────────────────────────────────────────╯
00:07:10 #41881 [verbose] >
00:07:10 #41882 [verbose] > ── markdown ────────────────────────────────────────────────────────────────────
00:07:10 #41883 [verbose] > ╭──────────────────────────────────────────────────────────────────────────────╮
00:07:10 #41884 [verbose] > │ ## emit_expr │
00:07:10 #41885 [verbose] > ╰──────────────────────────────────────────────────────────────────────────────╯
00:07:10 #41886 [verbose] >
00:07:10 #41887 [verbose] > ── spiral ──────────────────────────────────────────────────────────────────────
00:07:10 #41888 [verbose] > inl emit_expr forall a t. (args : a) (code : string) : t =
00:07:10 #41889 [verbose] > real
00:07:10 #41890 [verbose] > $"Fable.Core.RustInterop.emitRustExpr !args !code" : t
00:07:11 #41891 [verbose] > Building c:\home\git\polyglot\target\polyglot\spiral_eval\packages\713ea7ed29648ee169800dcb141af81be3a4cbf4a6b811a1ede2bf02689796a0\main.spi
00:07:11 #41892 [verbose] >
00:07:11 #41893 [verbose] > ╭─[ 249.39ms - stdout ]────────────────────────────────────────────────────────╮
00:07:11 #41894 [verbose] > │ () │
00:07:11 #41895 [verbose] > │ │
00:07:11 #41896 [verbose] > │ │
00:07:11 #41897 [verbose] > ╰──────────────────────────────────────────────────────────────────────────────╯
00:07:11 #41898 [verbose] >
00:07:11 #41899 [verbose] > ── spiral ──────────────────────────────────────────────────────────────────────
00:07:11 #41900 [verbose] > inl (~!\) forall t. (code : string) : t =
00:07:11 #41901 [verbose] > emit_expr () code
00:07:11 #41902 [verbose] >
00:07:11 #41903 [verbose] > inl (~!\\) forall t u. ((args : t), (code : string)) : u =
00:07:11 #41904 [verbose] > emit_expr args code
00:07:11 #41905 [verbose] >
00:07:11 #41906 [verbose] > inl emit forall t. (x : t) : t =
00:07:11 #41907 [verbose] > !\\(x, $'"$0"')
00:07:11 #41908 [verbose] >
00:07:11 #41909 [verbose] > inl emit' forall t. (x : t) : t =
00:07:11 #41910 [verbose] > !\\(x, $'"let !x = $0"')
00:07:11 #41911 [verbose] > x
00:07:11 #41912 [verbose] >
00:07:11 #41913 [verbose] > inl new_box forall t. (x : t) : box t =
00:07:11 #41914 [verbose] > inl x = join x
00:07:11 #41915 [verbose] > !\($'"Box::new(!x)"')
00:07:11 #41916 [verbose] >
00:07:11 #41917 [verbose] > inl new_rc forall t. (x : t) : rc t =
00:07:11 #41918 [verbose] > inl x = join x
00:07:11 #41919 [verbose] > !\($'"std::rc::Rc::new(!x)"')
00:07:11 #41920 [verbose] >
00:07:11 #41921 [verbose] > inl rc_clone forall t. (x : rc t) : rc t =
00:07:11 #41922 [verbose] > inl x = join x
00:07:11 #41923 [verbose] > !\($'"std::rc::Rc::clone(&!x)"')
00:07:11 #41924 [verbose] >
00:07:11 #41925 [verbose] > inl rc_downgrade forall t. (x : rc t) : weak_rc t =
00:07:11 #41926 [verbose] > inl x = join x
00:07:11 #41927 [verbose] > !\($'"std::rc::Rc::downgrade(&!x)"')
00:07:11 #41928 [verbose] >
00:07:11 #41929 [verbose] > inl new_ref_cell forall t. (x : t) : ref_cell t =
00:07:11 #41930 [verbose] > inl x = join x
00:07:11 #41931 [verbose] > !\($'"std::cell::RefCell::new(!x)"')
00:07:11 #41932 [verbose] >
00:07:11 #41933 [verbose] > inl ref_cell_borrow forall t. (x : rc (ref_cell t)) : t =
00:07:11 #41934 [verbose] > inl x = join x
00:07:11 #41935 [verbose] > !\($'"*std::cell::RefCell::borrow(&std::rc::Rc::clone(&!x))"')
00:07:11 #41936 [verbose] >
00:07:11 #41937 [verbose] > inl ref_cell_borrow_mut forall t. (x : rc (ref_cell t)) : mut' t =
00:07:11 #41938 [verbose] > inl x = join x
00:07:11 #41939 [verbose] > !\($'"*std::cell::RefCell::borrow_mut(&std::rc::Rc::clone(&!x))"')
00:07:11 #41940 [verbose] >
00:07:11 #41941 [verbose] > inl to_mut forall t. (x : t) : mut' t =
00:07:11 #41942 [verbose] > // !\($'"let mut !x = !x"')
00:07:11 #41943 [verbose] > // !\($'"!x"')
00:07:11 #41944 [verbose] > emit_expr () $"\"let mut !x = !x\""
00:07:11 #41945 [verbose] > emit_expr () $"\"!x\""
00:07:11 #41946 [verbose] >
00:07:11 #41947 [verbose] > inl ref_map forall t u. (fn : t -> u) (x : ref' t) : ref' u =
00:07:11 #41948 [verbose] > !\($'"!fn(!x)"')
00:07:11 #41949 [verbose] >
00:07:11 #41950 [verbose] > inl from_mut forall t. (x : mut' t) : t =
00:07:11 #41951 [verbose] > !\($'"!x"')
00:07:11 #41952 [verbose] >
00:07:11 #41953 [verbose] > inl new_arc forall t. (x : t) : arc t =
00:07:11 #41954 [verbose] > inl x = join x
00:07:11 #41955 [verbose] > !\($'"std::sync::Arc::new(!x)"')
00:07:11 #41956 [verbose] >
00:07:11 #41957 [verbose] > inl box_fn forall t. (x : () -> ()) : box t =
00:07:11 #41958 [verbose] > inl x = join x
00:07:11 #41959 [verbose] > !\($'"Box::new(move || !x())"')
00:07:11 #41960 [verbose] >
00:07:11 #41961 [verbose] > inl new_pin forall t. (x : t) : pin (box t) =
00:07:11 #41962 [verbose] > inl x = join x
00:07:11 #41963 [verbose] > !\($'"Box::pin(!x)"')
00:07:11 #41964 [verbose] >
00:07:11 #41965 [verbose] > inl deref forall t. (ref : ref' t) : t =
00:07:11 #41966 [verbose] > inl ref = join ref
00:07:11 #41967 [verbose] > !\($'"*!ref"')
00:07:11 #41968 [verbose] >
00:07:11 #41969 [verbose] > inl ops_deref forall t. (ref : t) : t =
00:07:11 #41970 [verbose] > inl ref = join ref
00:07:11 #41971 [verbose] > !\($'"core::ops::Deref::deref(&!ref)"')
00:07:11 #41972 [verbose] >
00:07:11 #41973 [verbose] > inl func0_get forall t. (x : func0 t) : t =
00:07:11 #41974 [verbose] > inl x = join x
00:07:11 #41975 [verbose] > !\($'"!x()"')
00:07:11 #41976 [verbose] >
00:07:11 #41977 [verbose] > inl func0_move forall t. (fn : func0 t) : t =
00:07:11 #41978 [verbose] > inl fn = join fn
00:07:11 #41979 [verbose] > !\($'"(move || !fn())()"')
00:07:11 #41980 [verbose] >
00:07:11 #41981 [verbose] > inl move forall t. (fn : () -> t) : func0 t =
00:07:11 #41982 [verbose] > !\\(fn, $'"Func0::new(move || $0())"')
00:07:11 #41983 [verbose] >
00:07:11 #41984 [verbose] > inl to_static_ref_unbox forall t. (x : ref' t) : static_ref' t =
00:07:11 #41985 [verbose] > $"!x |> unbox"
00:07:11 #41986 [verbose] >
00:07:11 #41987 [verbose] > inl from_static_ref_unbox forall t. (x : static_ref' t) : ref' t =
00:07:11 #41988 [verbose] > $"!x |> unbox"
00:07:11 #41989 [verbose] >
00:07:11 #41990 [verbose] > inl box_leak forall t. (x : box t) : static_ref' (mut' t) =
00:07:11 #41991 [verbose] > emit_expr () $"\"Box::leak(!x)\""
00:07:11 #41992 [verbose] >
00:07:11 #41993 [verbose] >
00:07:11 #41994 [verbose] > inl fix_closure depth' x' =
00:07:11 #41995 [verbose] > inl depth = depth' |> fst
00:07:11 #41996 [verbose] > if depth = 1
00:07:11 #41997 [verbose] > then !\($'"!x' })"')
00:07:11 #41998 [verbose] > elif depth = 2
00:07:11 #41999 [verbose] > then !\($'"!x' }})"')
00:07:11 #42000 [verbose] > elif depth = 3
00:07:11 #42001 [verbose] > then !\($'"!x' }}})"')
00:07:11 #42002 [verbose] > elif depth = 4
00:07:11 #42003 [verbose] > then !\($'"!x' }}}})"')
00:07:11 #42004 [verbose] > elif depth = 5
00:07:11 #42005 [verbose] > then !\($'"!x' }}}}})"')
00:07:11 #42006 [verbose] > elif depth = 6 // , 4) // ?
00:07:11 #42007 [verbose] > then !\($'"!x' }}}}}})"')
00:07:11 #42008 [verbose] > elif depth = 7 // , 5) // 7
00:07:11 #42009 [verbose] > then !\($'"!x' }}}}}}})"')
00:07:11 #42010 [verbose] > elif depth = 8 // , 5) // 7
00:07:11 #42011 [verbose] > then !\($'"!x' }}}}}}}})"')
00:07:11 #42012 [verbose] >
00:07:11 #42013 [verbose] > inl depth = depth' |> snd
00:07:11 #42014 [verbose] > if depth = 1
00:07:11 #42015 [verbose] > then !\($'"{ //"')
00:07:11 #42016 [verbose] > elif depth = 2
00:07:11 #42017 [verbose] > then !\($'"{{ //"')
00:07:11 #42018 [verbose] > elif depth = 3
00:07:11 #42019 [verbose] > then !\($'"{{{ //"')
00:07:11 #42020 [verbose] > elif depth = 4
00:07:11 #42021 [verbose] > then !\($'"{{{{ //"')
00:07:11 #42022 [verbose] > elif depth = 5
00:07:11 #42023 [verbose] > then !\($'"{{{{{ //"')
00:07:11 #42024 [verbose] > elif depth = 6
00:07:11 #42025 [verbose] > then !\($'"{{{{{{ //"')
00:07:11 #42026 [verbose] > elif depth = 7
00:07:11 #42027 [verbose] > then !\($'"{{{{{{{ //"')
00:07:11 #42028 [verbose] > elif depth = 8
00:07:11 #42029 [verbose] > then !\($'"{{{{{{{{ //"')
00:07:11 #42030 [verbose] > Building c:\home\git\polyglot\target\polyglot\spiral_eval\packages\b75c03298c9ae011648653395674b57e5031fdbafcb6cddff0b0eeb5b7431661\main.spi
00:07:11 #42031 [verbose] >
00:07:11 #42032 [verbose] > ╭─[ 240.46ms - stdout ]────────────────────────────────────────────────────────╮
00:07:11 #42033 [verbose] > │ () │
00:07:11 #42034 [verbose] > │ │
00:07:11 #42035 [verbose] > │ │
00:07:11 #42036 [verbose] > ╰──────────────────────────────────────────────────────────────────────────────╯
00:07:13 #42037 [verbose] > [NbConvertApp] Converting notebook rust.dib.ipynb to html
00:07:13 #42038 [verbose] > C:\Users\i574n\scoop\apps\python\current\Lib\site-packages\nbformat\__init__.py:93: MissingIDFieldWarning: Code cell is missing an id field, this will become a hard error in future nbformat versions. You may want to use `normalize()` on your notebooks before validations (available since nbformat 5.1.4). Previous versions of nbformat are fixing this issue transparently, and will stop doing so in the future.
00:07:13 #42039 [verbose] > validate(nb)
00:07:13 #42040 [verbose] > C:\Users\i574n\scoop\apps\python\current\Lib\site-packages\nbconvert\filters\highlight.py:71: UserWarning: IPython3 lexer unavailable, falling back on Python 3
00:07:13 #42041 [verbose] > return _pygments_highlight(
00:07:14 #42042 [verbose] > [NbConvertApp] Writing 305573 bytes to rust.dib.html
00:07:14 #42043 [debug] execute_with_options_async / exit_code: 0 / output.Length: 9782
00:07:14 #25 [debug] main / executeCommand / exitCode: 0
00:07:14 #42044 [debug] execute_with_options_async / options: struct (Some System.Threading.CancellationToken,
"pwsh -c "../../scripts/invoke-dib.ps1 physics.dib" -Retries 3", None,
None, None)
00:07:17 #42045 [verbose] >
00:07:17 #42046 [verbose] > ── markdown ────────────────────────────────────────────────────────────────────
00:07:17 #42047 [verbose] > ╭──────────────────────────────────────────────────────────────────────────────╮
00:07:17 #42048 [verbose] > │ # physics │
00:07:17 #42049 [verbose] > ╰──────────────────────────────────────────────────────────────────────────────╯
00:07:17 #42050 [verbose] >
00:07:17 #42051 [verbose] > ── fsharp ──────────────────────────────────────────────────────────────────────
00:07:17 #42052 [verbose] > #!import ../../lib/fsharp/Plotting.dib
00:07:17 #42053 [verbose] >
00:07:17 #42054 [verbose] > ── fsharp - import ─────────────────────────────────────────────────────────────
00:07:17 #42055 [verbose] > #r
00:07:17 #42056 [verbose] > "C:/Users/i574n/.nuget/packages/dotnet-repl/0.1.204/tools/net7.0/any/Microsoft.A
00:07:17 #42057 [verbose] > spNetCore.Html.Abstractions.dll"
00:07:17 #42058 [verbose] > #r
00:07:17 #42059 [verbose] > "C:/Users/i574n/.nuget/packages/dotnet-repl/0.1.204/tools/net7.0/any/Microsoft.D
00:07:17 #42060 [verbose] > otNet.Interactive.dll"
00:07:17 #42061 [verbose] > #r
00:07:17 #42062 [verbose] > "C:/Users/i574n/.nuget/packages/dotnet-repl/0.1.204/tools/net7.0/any/Microsoft.D
00:07:17 #42063 [verbose] > otNet.Interactive.FSharp.dll"
00:07:17 #42064 [verbose] > #r
00:07:17 #42065 [verbose] > "C:/Users/i574n/.nuget/packages/dotnet-repl/0.1.204/tools/net7.0/any/Microsoft.D
00:07:17 #42066 [verbose] > otNet.Interactive.Formatting.dll"
00:07:17 #42067 [verbose] > open System
00:07:17 #42068 [verbose] > open System.IO
00:07:17 #42069 [verbose] > open System.Text
00:07:17 #42070 [verbose] > open Microsoft.DotNet.Interactive.Formatting
00:07:20 #42071 [verbose] >
00:07:20 #42072 [verbose] > ── fsharp - import ─────────────────────────────────────────────────────────────
00:07:20 #42073 [verbose] > #r
00:07:20 #42074 [verbose] > "C:/Users/i574n/.nuget/packages/dotnet-repl/0.1.204/tools/net7.0/any/Microsoft.D
00:07:20 #42075 [verbose] > otNet.Interactive.FSharp.dll"
00:07:20 #42076 [verbose] > open Microsoft.DotNet.Interactive.FSharp.FSharpKernelHelpers
00:07:20 #42077 [verbose] > #r
00:07:20 #42078 [verbose] > "C:/Users/i574n/.nuget/packages/dotnet-repl/0.1.204/tools/net7.0/any/Microsoft.D
00:07:20 #42079 [verbose] > otNet.Interactive.dll"
00:07:20 #42080 [verbose] > open type Microsoft.DotNet.Interactive.Kernel
00:07:20 #42081 [verbose] >
00:07:20 #42082 [verbose] > ── fsharp - import ─────────────────────────────────────────────────────────────
00:07:20 #42083 [verbose] > #r
00:07:20 #42084 [verbose] > @"../../../../../../../.nuget/packages/fsharp.control.asyncseq/3.2.1/lib/netstan
00:07:20 #42085 [verbose] > dard2.1/FSharp.Control.AsyncSeq.dll"
00:07:20 #42086 [verbose] > #r
00:07:20 #42087 [verbose] > @"../../../../../../../.nuget/packages/system.reactive/6.0.1-preview.1/lib/net6.
00:07:20 #42088 [verbose] > 0/System.Reactive.dll"
00:07:20 #42089 [verbose] > #r
00:07:20 #42090 [verbose] > @"../../../../../../../.nuget/packages/system.reactive.linq/6.0.1-preview.1/lib
00:07:20 #42091 [verbose] > netstandard2.0/System.Reactive.Linq.dll"
00:07:20 #42092 [verbose] > #r
00:07:20 #42093 [verbose] > @"../../../../../../../.nuget/packages/argu/6.2.2/lib/netstandard2.0/Argu.dll"
00:07:20 #42094 [verbose] > #r
00:07:20 #42095 [verbose] > @"../../../../../../../.nuget/packages/system.commandline/2.0.0-beta4.22272.1/li
00:07:20 #42096 [verbose] > b/net6.0/System.CommandLine.dll"
00:07:20 #42097 [verbose] > #r
00:07:20 #42098 [verbose] > @"../../../../../../../.nuget/packages/fsharp.json/0.4.1/lib/netstandard2.0/FSha
00:07:20 #42099 [verbose] > rp.Json.dll"
00:07:20 #42100 [verbose] >
00:07:20 #42101 [verbose] > ── fsharp - import ─────────────────────────────────────────────────────────────
00:07:20 #42102 [verbose] > //// test
00:07:20 #42103 [verbose] >
00:07:20 #42104 [verbose] > Formatter.ListExpansionLimit <- 100
00:07:21 #42105 [verbose] >
00:07:21 #42106 [verbose] > ── fsharp - import ─────────────────────────────────────────────────────────────
00:07:21 #42107 [verbose] > type [[<Struct>]] US0 =
00:07:21 #42108 [verbose] > | US0_0
00:07:21 #42109 [verbose] > | US0_1
00:07:21 #42110 [verbose] > and [[<Struct>]] US1 =
00:07:21 #42111 [verbose] > | US1_0 of f0_0 : US0
00:07:21 #42112 [verbose] > | US1_1
00:07:21 #42113 [verbose] > let rec closure0 () (v0 : (unit -> unit)) : System.IDisposable =
00:07:21 #42114 [verbose] > let v1 : System.IDisposable option = None
00:07:21 #42115 [verbose] > let mutable _v1 = v1
00:07:21 #42116 [verbose] > #if FABLE_COMPILER_RUST && !WASM && !CONTRACT
00:07:21 #42117 [verbose] > let v2 : System.IDisposable = null |> unbox<System.IDisposable>
00:07:21 #42118 [verbose] > v2
00:07:21 #42119 [verbose] > #endif
00:07:21 #42120 [verbose] > #if FABLE_COMPILER_RUST && WASM
00:07:21 #42121 [verbose] > let v3 : System.IDisposable = null |> unbox<System.IDisposable>
00:07:21 #42122 [verbose] > v3
00:07:21 #42123 [verbose] > #endif
00:07:21 #42124 [verbose] > #if FABLE_COMPILER_RUST && CONTRACT
00:07:21 #42125 [verbose] > let v4 : System.IDisposable = null |> unbox<System.IDisposable>
00:07:21 #42126 [verbose] > v4
00:07:21 #42127 [verbose] > #endif
00:07:21 #42128 [verbose] > #if !FABLE_COMPILER && !FABLE_COMPILER_RUST && !FABLE_COMPILER_TYPESCRIPT &&
00:07:21 #42129 [verbose] > !WASM && !CONTRACT
00:07:21 #42130 [verbose] > let v5 : System.ID...
00:07:22 #42131 [verbose] >
00:07:22 #42132 [verbose] > ── fsharp - import ─────────────────────────────────────────────────────────────
00:07:22 #42133 [verbose] > type Mut0 = {mutable l0 : int32; mutable l1 : string}
00:07:22 #42134 [verbose] > and Mut1 = {mutable l0 : int32}
00:07:22 #42135 [verbose] > let rec closure1 (v0 : string) (v1 : string) : bool =
00:07:22 #42136 [verbose] > let v2 : bool = v1.Contains v0
00:07:22 #42137 [verbose] > v2
00:07:22 #42138 [verbose] > and closure0 () (v0 : string) : (string -> bool) =
00:07:22 #42139 [verbose] > closure1(v0)
00:07:22 #42140 [verbose] > and closure3 (v0 : string) (v1 : string) : bool =
00:07:22 #42141 [verbose] > let v2 : bool = v1.EndsWith v0
00:07:22 #42142 [verbose] > v2
00:07:22 #42143 [verbose] > and closure2 () (v0 : string) : (string -> bool) =
00:07:22 #42144 [verbose] > closure3(v0)
00:07:22 #42145 [verbose] > and closure6 (v0 : int32, v1 : char) (v2 : string) : string =
00:07:22 #42146 [verbose] > let v3 : string = v2.PadLeft (v0, v1)
00:07:22 #42147 [verbose] > v3
00:07:22 #42148 [verbose] > and closure5 (v0 : int32) (v1 : char) : (string -> string) =
00:07:22 #42149 [verbose] > closure6(v0, v1)
00:07:22 #42150 [verbose] > and closure4 () (v0 : int32) : (char -> (string -> string)) =
00:07:22 #42151 [verbose] > closure5(v0)
00:07:22 #42152 [verbose] > and closure8 (v0 : int32) (v1 : string) : string =
00:07:22 #42153 [verbose] > let v2 : stri...
00:07:22 #42154 [verbose] >
00:07:22 #42155 [verbose] > ── fsharp - import ─────────────────────────────────────────────────────────────
00:07:22 #42156 [verbose] > type ICryptoCreateHash = abstract createHash: x: string -> obj
00:07:22 #42157 [verbose] > type Mut0 = {mutable l0 : int32}
00:07:22 #42158 [verbose] > let rec method0 (v0 : int32, v1 : Mut0) : bool =
00:07:22 #42159 [verbose] > let v2 : int32 = v1.l0
00:07:22 #42160 [verbose] > let v3 : bool = v2 < v0
00:07:22 #42161 [verbose] > v3
00:07:22 #42162 [verbose] > and method1 () : string =
00:07:22 #42163 [verbose] > let v0 : string = ""
00:07:22 #42164 [verbose] > v0
00:07:22 #42165 [verbose] > and closure0 () (v0 : string) : string =
00:07:22 #42166 [verbose] > let v1 : string option = None
00:07:22 #42167 [verbose] > let mutable _v1 = v1
00:07:22 #42168 [verbose] > #if FABLE_COMPILER_RUST && !WASM && !CONTRACT
00:07:22 #42169 [verbose] > let v2 : string = null |> unbox<string>
00:07:22 #42170 [verbose] > v2
00:07:22 #42171 [verbose] > #endif
00:07:22 #42172 [verbose] > #if FABLE_COMPILER_RUST && WASM
00:07:22 #42173 [verbose] > let v3 : string = null |> unbox<string>
00:07:22 #42174 [verbose] > v3
00:07:22 #42175 [verbose] > #endif
00:07:22 #42176 [verbose] > #if FABLE_COMPILER_RUST && CONTRACT
00:07:22 #42177 [verbose] > let v4 : string = null |> unbox<string>
00:07:22 #42178 [verbose] > v4
00:07:22 #42179 [verbose] > #endif
00:07:22 #42180 [verbose] > #if !FABLE_COMPILER && !FABLE_COMPILER_RUST && !FABLE_COMPILER_TYP...
00:07:22 #42181 [verbose] >
00:07:22 #42182 [verbose] > ── fsharp - import ─────────────────────────────────────────────────────────────
00:07:22 #42183 [verbose] > let rec closure1 (v0 : System.Guid) (v1 : System.DateTime) : System.Guid =
00:07:22 #42184 [verbose] > let v2 : (System.Guid -> string) = _.ToString()
00:07:22 #42185 [verbose] > let v3 : string = v2 v0
00:07:22 #42186 [verbose] > let v4 : string = v1.ToString "yyyyMMdd-HHmm-ssff-ffff-f"
00:07:22 #42187 [verbose] > let v5 : System.Guid = System.Guid $"{v4}{v3.[[v4.Length..]]}"
00:07:22 #42188 [verbose] > v5
00:07:22 #42189 [verbose] > and closure0 () (v0 : System.Guid) : (System.DateTime -> System.Guid) =
00:07:22 #42190 [verbose] > closure1(v0)
00:07:22 #42191 [verbose] > and closure5 (v0 : string, v1 : string) (v2 : string) : string =
00:07:22 #42192 [verbose] > let v3 : string = v2.Replace (v0, v1)
00:07:22 #42193 [verbose] > v3
00:07:22 #42194 [verbose] > and closure4 (v0 : string) (v1 : string) : (string -> string) =
00:07:22 #42195 [verbose] > closure5(v0, v1)
00:07:22 #42196 [verbose] > and closure3 () (v0 : string) : (string -> (string -> string)) =
00:07:22 #42197 [verbose] > closure4(v0)
00:07:22 #42198 [verbose] > and method0 () : (string -> (string -> (string -> string))) =
00:07:22 #42199 [verbose] > closure3()
00:07:22 #42200 [verbose] > and closure2 (...
00:07:23 #42201 [verbose] >
00:07:23 #42202 [verbose] > ── fsharp - import ─────────────────────────────────────────────────────────────
00:07:23 #42203 [verbose] > let rec closure0 () (v0 : System.Threading.CancellationToken) :
00:07:23 #42204 [verbose] > Async<System.Threading.CancellationToken> =
00:07:23 #42205 [verbose] > let v1 : Async<System.Threading.CancellationToken> option = None
00:07:23 #42206 [verbose] > let mutable _v1 = v1
00:07:23 #42207 [verbose] > #if FABLE_COMPILER_RUST && !WASM && !CONTRACT
00:07:23 #42208 [verbose] > let v2 : Async<System.Threading.CancellationToken> = null |>
00:07:23 #42209 [verbose] > unbox<Async<System.Threading.CancellationToken>>
00:07:23 #42210 [verbose] > v2
00:07:23 #42211 [verbose] > #endif
00:07:23 #42212 [verbose] > #if FABLE_COMPILER_RUST && WASM
00:07:23 #42213 [verbose] > let v3 : Async<System.Threading.CancellationToken> = null |>
00:07:23 #42214 [verbose] > unbox<Async<System.Threading.CancellationToken>>
00:07:23 #42215 [verbose] > v3
00:07:23 #42216 [verbose] > #endif
00:07:23 #42217 [verbose] > #if FABLE_COMPILER_RUST && CONTRACT
00:07:23 #42218 [verbose] > let v4 : Async<System.Threading.CancellationToken> = null |>
00:07:23 #42219 [verbose] > unbox<Async<System.Threading.CancellationToken>>
00:07:23 #42220 [verbose] > v4
00:07:23 #42221 [verbose] > #endif
00:07:23 #42222 [verbose] > #if !FABLE_COMPILER...
00:07:23 #42223 [verbose] >
00:07:23 #42224 [verbose] > ── fsharp - import ─────────────────────────────────────────────────────────────
00:07:23 #42225 [verbose] > #if FABLE_COMPILER
00:07:23 #42226 [verbose] > [[<CompilationRepresentation (CompilationRepresentationFlags.ModuleSuffix)>]]
00:07:23 #42227 [verbose] > module System =
00:07:23 #42228 [verbose] > module Diagnostics =
00:07:23 #42229 [verbose] > type Process = unit
00:07:23 #42230 [verbose] > type DataReceivedEventArgs = unit
00:07:23 #42231 [verbose] > #endif
00:07:23 #42232 [verbose] > module State = let mutable trace_state = None
00:07:23 #42233 [verbose] > type [[<Struct>]] US0 =
00:07:23 #42234 [verbose] > | US0_0
00:07:23 #42235 [verbose] > | US0_1
00:07:23 #42236 [verbose] > | US0_2
00:07:23 #42237 [verbose] > | US0_3
00:07:23 #42238 [verbose] > | US0_4
00:07:23 #42239 [verbose] > and UH0 =
00:07:23 #42240 [verbose] > | UH0_0
00:07:23 #42241 [verbose] > | UH0_1 of char * UH0
00:07:23 #42242 [verbose] > and [[<Struct>]] US2 =
00:07:23 #42243 [verbose] > | US2_0
00:07:23 #42244 [verbose] > | US2_1
00:07:23 #42245 [verbose] > and [[<Struct>]] US1 =
00:07:23 #42246 [verbose] > | US1_0
00:07:23 #42247 [verbose] > | US1_1 of f1_0 : US2
00:07:23 #42248 [verbose] > | US1_2
00:07:23 #42249 [verbose] > and [[<Struct>]] US3 =
00:07:23 #42250 [verbose] > | US3_0 of f0_0 : string
00:07:23 #42251 [verbose] > | US3_1
00:07:23 #42252 [verbose] > and Mut0 = {mutable l0 : int64}
00:07:23 #42253 [verbose] > and Mut1 = {mutable l0 : bool}
00:07:23 #42254 [verbose] > and Mut2 = {mutable l0 : US0}
00:07:23 #42255 [verbose] > and [[<Struct>]] US4 =
00:07:23 #42256 [verbose] > | US4_0 of f0_0 : int64
00:07:23 #42257 [verbose] > | US4_1
00:07:23 #42258 [verbose] > and [[<Struct>]] US5 =
00:07:23 #42259 [verbose] > | US5_0 of f0_0 : i...
00:07:24 #42260 [verbose] >
00:07:24 #42261 [verbose] > ── fsharp - import ─────────────────────────────────────────────────────────────
00:07:24 #42262 [verbose] > #if FABLE_COMPILER // file_system.types
00:07:24 #42263 [verbose] > [[<Fable.Core.Erase; Fable.Core.Emit("str")>]] type Str = class end
00:07:24 #42264 [verbose] > [[<Fable.Core.Erase; Fable.Core.Emit("base64::DecodeError")>]] type
00:07:24 #42265 [verbose] > base64_DecodeError = class end
00:07:24 #42266 [verbose] > [[<Fable.Core.Erase; Fable.Core.Emit("borsh::io::Error")>]] type borsh_io_Error
00:07:24 #42267 [verbose] > = class end
00:07:24 #42268 [verbose] > [[<Fable.Core.Erase; Fable.Core.Emit("js_sys::JsString")>]] type js_sys_JsString
00:07:24 #42269 [verbose] > = class end
00:07:24 #42270 [verbose] > [[<Fable.Core.Erase; Fable.Core.Emit("serde_json::Error")>]] type
00:07:24 #42271 [verbose] > serde_json_Error = class end
00:07:24 #42272 [verbose] > [[<Fable.Core.Erase; Fable.Core.Emit("serde_json::Value")>]] type
00:07:24 #42273 [verbose] > serde_json_Value = class end
00:07:24 #42274 [verbose] > [[<Fable.Core.Erase; Fable.Core.Emit("serde_wasm_bindgen::Error")>]] type
00:07:24 #42275 [verbose] > serde_wasm_bindgen_Error = class end
00:07:24 #42276 [verbose] > [[<Fable.Core.Erase; Fable.Core.Emit("std::ffi::OsStr")>]] type std_ffi_O...
00:07:25 #42277 [verbose] >
00:07:25 #42278 [verbose] > ── fsharp - import ─────────────────────────────────────────────────────────────
00:07:25 #42279 [verbose] > module State = let mutable trace_state = None
00:07:25 #42280 [verbose] > type [[<Struct>]] US0 =
00:07:25 #42281 [verbose] > | US0_0
00:07:25 #42282 [verbose] > | US0_1
00:07:25 #42283 [verbose] > | US0_2
00:07:25 #42284 [verbose] > | US0_3
00:07:25 #42285 [verbose] > | US0_4
00:07:25 #42286 [verbose] > and Mut0 = {mutable l0 : int64}
00:07:25 #42287 [verbose] > and Mut1 = {mutable l0 : bool}
00:07:25 #42288 [verbose] > and Mut2 = {mutable l0 : US0}
00:07:25 #42289 [verbose] > and [[<Struct>]] US1 =
00:07:25 #42290 [verbose] > | US1_0 of f0_0 : int64
00:07:25 #42291 [verbose] > | US1_1
00:07:25 #42292 [verbose] > and [[<Struct>]] US2 =
00:07:25 #42293 [verbose] > | US2_0 of f0_0 : int64
00:07:25 #42294 [verbose] > | US2_1
00:07:25 #42295 [verbose] > let rec method1 (v0 : int64 option) : int64 option =
00:07:25 #42296 [verbose] > v0
00:07:25 #42297 [verbose] > and method2 (v0 : int64 option) : int64 option =
00:07:25 #42298 [verbose] > v0
00:07:25 #42299 [verbose] > and closure3 () () : struct (Mut0 * Mut1 * Mut1 * Mut2 * int64 option) =
00:07:25 #42300 [verbose] > let v0 : Mut1 = {l0 = true} : Mut1
00:07:25 #42301 [verbose] > let v1 : Mut0 = {l0 = 0L} : Mut0
00:07:25 #42302 [verbose] > let v2 : US0 = US0_0
00:07:25 #42303 [verbose] > let v3 : Mut2 = {l0 = v2} : Mut2
00:07:25 #42304 [verbose] > let v4 : Mut1 = {l0 = false} : Mut1
00:07:25 #42305 [verbose] > let v5 : int64 option option = None
00:07:25 #42306 [verbose] > ...
00:07:26 #42307 [verbose] >
00:07:26 #42308 [verbose] > ── fsharp - import ─────────────────────────────────────────────────────────────
00:07:26 #42309 [verbose] > module SpiralTrace =
00:07:26 #42310 [verbose] > let get_trace_state () =
00:07:26 #42311 [verbose] > #if !INTERACTIVE
00:07:26 #42312 [verbose] > Trace.get_trace_state ()
00:07:26 #42313 [verbose] > #else
00:07:26 #42314 [verbose] > get_trace_state ()
00:07:26 #42315 [verbose] > #endif
00:07:26 #42316 [verbose] >
00:07:26 #42317 [verbose] > let trace x =
00:07:26 #42318 [verbose] > #if !INTERACTIVE
00:07:26 #42319 [verbose] > Trace.trace x
00:07:26 #42320 [verbose] > #else
00:07:26 #42321 [verbose] > trace x
00:07:26 #42322 [verbose] > #endif
00:07:26 #42323 [verbose] >
00:07:26 #42324 [verbose] > type TraceLevel =
00:07:26 #42325 [verbose] > #if !INTERACTIVE
00:07:26 #42326 [verbose] > Trace.US0
00:07:26 #42327 [verbose] > #else
00:07:26 #42328 [verbose] > US0
00:07:26 #42329 [verbose] > #endif
00:07:26 #42330 [verbose] >
00:07:26 #42331 [verbose] > #if !FABLE_COMPILER && !WASM && !CONTRACT
00:07:26 #42332 [verbose] >
00:07:26 #42333 [verbose] > module SpiralAsync =
00:07:26 #42334 [verbose] > let merge_cancellation_token_with_default_async x =
00:07:26 #42335 [verbose] > #if !INTERACTIVE
00:07:26 #42336 [verbose] > Async_.merge_cancellation_token_with_default_async x
00:07:26 #42337 [verbose] > #else
00:07:26 #42338 [verbose] > merge_cancellation_token_with_default_async x
00:07:26 #42339 [verbose] > #endif
00:07:26 #42340 [verbose] >
00:07:26 #42341 [verbose] > module SpiralRuntime =
00:07:26 #42342 [verbose] > let get_executable_suffix () =
00:07:26 #42343 [verbose] > #if !INTERACTIVE
00:07:26 #42344 [verbose] > Runtime.get_executable_suffix ()
00:07:26 #42345 [verbose] > #else
00:07:26 #42346 [verbose] > get_executable_suffix ()
00:07:26 #42347 [verbose] > #endif
00:07:26 #42348 [verbose] >
00:07:26 #42349 [verbose] > let is...
00:07:26 #42350 [verbose] >
00:07:26 #42351 [verbose] > ── fsharp - import ─────────────────────────────────────────────────────────────
00:07:26 #42352 [verbose] > #if !INTERACTIVE
00:07:26 #42353 [verbose] > namespace Polyglot
00:07:26 #42354 [verbose] > #endif
00:07:26 #42355 [verbose] >
00:07:26 #42356 [verbose] > module Common =
00:07:26 #42357 [verbose] >
00:07:26 #42358 [verbose] > #if !INTERACTIVE
00:07:26 #42359 [verbose] > open Lib
00:07:26 #42360 [verbose] > #endif
00:07:26 #42361 [verbose] >
00:07:26 #42362 [verbose] > let nl = System.Environment.NewLine
00:07:26 #42363 [verbose] > let q = @""""
00:07:26 #42364 [verbose] >
00:07:26 #42365 [verbose] > let inline cons head tail = head :: tail
00:07:26 #42366 [verbose] >
00:07:26 #42367 [verbose] > /// ## memoize
00:07:26 #42368 [verbose] >
00:07:26 #42369 [verbose] > let inline memoize fn =
00:07:26 #42370 [verbose] > let result = lazy fn ()
00:07:26 #42371 [verbose] > fun () -> result.Value
00:07:26 #42372 [verbose] >
00:07:26 #42373 [verbose] > /// ## TraceLevel
00:07:26 #42374 [verbose] >
00:07:26 #42375 [verbose] > type TraceLevel =
00:07:26 #42376 [verbose] > | Verbose
00:07:26 #42377 [verbose] > | Debug
00:07:26 #42378 [verbose] > | Info
00:07:26 #42379 [verbose] > | Warning
00:07:26 #42380 [verbose] > | Critical
00:07:26 #42381 [verbose] >
00:07:26 #42382 [verbose] > let inline getLocals () = ""
00:07:26 #42383 [verbose] >
00:07:26 #42384 [verbose] > /// ## trace
00:07:26 #42385 [verbose] >
00:07:26 #42386 [verbose] > let to_trace_level = function
00:07:26 #42387 [verbose] > | Verbose -> SpiralTrace.TraceLevel.US0_0
00:07:26 #42388 [verbose] > | Debug -> SpiralTrace.TraceLevel.US0_1
00:07:26 #42389 [verbose] > | Info -> SpiralTrace.TraceLevel.US0_2
00:07:26 #42390 [verbose] > | Warning -> SpiralTrace.TraceLevel.US0_3
00:07:26 #42391 [verbose] > | Critical ->...
00:07:26 #42392 [verbose] >
00:07:26 #42393 [verbose] > ── fsharp - import ─────────────────────────────────────────────────────────────
00:07:26 #42394 [verbose] > #if !INTERACTIVE
00:07:26 #42395 [verbose] > namespace Polyglot
00:07:26 #42396 [verbose] > #endif
00:07:26 #42397 [verbose] >
00:07:26 #42398 [verbose] > module CommonFSharp =
00:07:26 #42399 [verbose] >
00:07:26 #42400 [verbose] > open Common
00:07:26 #42401 [verbose] >
00:07:26 #42402 [verbose] > /// ## getUnionCaseName
00:07:26 #42403 [verbose] >
00:07:26 #42404 [verbose] > let inline getUnionCaseName<'T> (x: 'T) =
00:07:26 #42405 [verbose] > match Reflection.FSharpValue.GetUnionFields(x, typeof<'T>) with
00:07:26 #42406 [verbose] > | case, _ -> case.Name
00:07:26 #42407 [verbose] >
00:07:26 #42408 [verbose] >
00:07:26 #42409 [verbose] > ── fsharp - import ─────────────────────────────────────────────────────────────
00:07:26 #42410 [verbose] > #if !INTERACTIVE
00:07:26 #42411 [verbose] > namespace Polyglot
00:07:26 #42412 [verbose] > #endif
00:07:26 #42413 [verbose] >
00:07:26 #42414 [verbose] > module Async =
00:07:26 #42415 [verbose] >
00:07:26 #42416 [verbose] > #if !INTERACTIVE
00:07:26 #42417 [verbose] > open Lib
00:07:26 #42418 [verbose] > #endif
00:07:26 #42419 [verbose] >
00:07:26 #42420 [verbose] > open Common
00:07:26 #42421 [verbose] >
00:07:26 #42422 [verbose] > /// ## choice
00:07:26 #42423 [verbose] >
00:07:26 #42424 [verbose] > let inline choice asyncs = async {
00:07:26 #42425 [verbose] > let e = Event<_> ()
00:07:26 #42426 [verbose] > use cts = new System.Threading.CancellationTokenSource ()
00:07:26 #42427 [verbose] > let fn =
00:07:26 #42428 [verbose] > asyncs
00:07:26 #42429 [verbose] > |> Seq.map (fun a -> async {
00:07:26 #42430 [verbose] > let! x = a
00:07:26 #42431 [verbose] > e.Trigger x
00:07:26 #42432 [verbose] > })
00:07:26 #42433 [verbose] > |> Async.Parallel
00:07:26 #42434 [verbose] > |> Async.Ignore
00:07:26 #42435 [verbose] > Async.Start (fn, cts.Token)
00:07:26 #42436 [verbose] > let! result = Async.AwaitEvent e.Publish
00:07:26 #42437 [verbose] > cts.Cancel ()
00:07:26 #42438 [verbose] > return result
00:07:26 #42439 [verbose] > }
00:07:26 #42440 [verbose] >
00:07:26 #42441 [verbose] > /// ## map
00:07:26 #42442 [verbose] >
00:07:26 #42443 [verbose] > let inline map fn a = async {
00:07:26 #42444 [verbose] > let! x = a
00:07:26 #42445 [verbose] > return fn x
00:07:26 #42446 [verbose] > }
00:07:26 #42447 [verbose] >
00:07:26 #42448 [verbose] > /// ## catch
00:07:26 #42449 [verbose] >
00:07:26 #42450 [verbose] > let inline catch a =
00:07:26 #42451 [verbose] > ...
00:07:26 #42452 [verbose] >
00:07:26 #42453 [verbose] > ── fsharp - import ─────────────────────────────────────────────────────────────
00:07:26 #42454 [verbose] > #if !INTERACTIVE
00:07:26 #42455 [verbose] > namespace Polyglot
00:07:26 #42456 [verbose] > #endif
00:07:26 #42457 [verbose] >
00:07:26 #42458 [verbose] > module AsyncSeq =
00:07:26 #42459 [verbose] >
00:07:26 #42460 [verbose] > #if !INTERACTIVE
00:07:26 #42461 [verbose] > open Lib
00:07:26 #42462 [verbose] > #endif
00:07:26 #42463 [verbose] >
00:07:26 #42464 [verbose] > open Common
00:07:26 #42465 [verbose] >
00:07:26 #42466 [verbose] > /// ## subscribeEvent
00:07:26 #42467 [verbose] >
00:07:26 #42468 [verbose] > let inline subscribeEvent (event: IEvent<'H, 'A>) map =
00:07:26 #42469 [verbose] > let observable = System.Reactive.Linq.Observable.FromEventPattern<'H,
00:07:26 #42470 [verbose] > 'A>(event.AddHandler, event.RemoveHandler)
00:07:26 #42471 [verbose] > System.Reactive.Linq.Observable.Select (observable, fun event -> map
00:07:26 #42472 [verbose] > event.EventArgs)
00:07:26 #42473 [verbose] > |> FSharp.Control.AsyncSeq.ofObservableBuffered
00:07:26 #42474 [verbose] >
00:07:26 #42475 [verbose] > let subscribeToken (token : System.Threading.CancellationToken) =
00:07:26 #42476 [verbose] > let tcs = new System.Threading.Tasks.TaskCompletionSource ()
00:07:26 #42477 [verbose] > System.Action tcs.SetResult |> token.Register |> ignore
00:07:26 #42478 [verbose] > let start = System.DateTime.Now.Ticks
00:07:26 #42479 [verbose] > FSharp.Control.A...
00:07:27 #42480 [verbose] >
00:07:27 #42481 [verbose] > ── fsharp - import ─────────────────────────────────────────────────────────────
00:07:27 #42482 [verbose] > #if !INTERACTIVE
00:07:27 #42483 [verbose] > namespace Polyglot
00:07:27 #42484 [verbose] > #endif
00:07:27 #42485 [verbose] >
00:07:27 #42486 [verbose] > module Networking =
00:07:27 #42487 [verbose] >
00:07:27 #42488 [verbose] > #if !INTERACTIVE
00:07:27 #42489 [verbose] > open Lib
00:07:27 #42490 [verbose] > #endif
00:07:27 #42491 [verbose] >
00:07:27 #42492 [verbose] > open Common
00:07:27 #42493 [verbose] >
00:07:27 #42494 [verbose] > /// ## testPortOpen
00:07:27 #42495 [verbose] >
00:07:27 #42496 [verbose] > let inline testPortOpen port = async {
00:07:27 #42497 [verbose] > let! ct = Async.CancellationToken
00:07:27 #42498 [verbose] > use client = new System.Net.Sockets.TcpClient ()
00:07:27 #42499 [verbose] > try
00:07:27 #42500 [verbose] > do! client.ConnectAsync ("127.0.0.1", port, ct) |>
00:07:27 #42501 [verbose] > Async.awaitValueTaskUnit
00:07:27 #42502 [verbose] > return true
00:07:27 #42503 [verbose] > with ex ->
00:07:27 #42504 [verbose] > trace Verbose (fun () -> $"testPortOpen / ex: {ex |>
00:07:27 #42505 [verbose] > SpiralSm.format_exception}") getLocals
00:07:27 #42506 [verbose] > return false
00:07:27 #42507 [verbose] > }
00:07:27 #42508 [verbose] >
00:07:27 #42509 [verbose] > let inline testPortOpenTimeout timeout port = async {
00:07:27 #42510 [verbose] > let! result =
00:07:27 #42511 [verbose] > testPortOpen port
00:07:27 #42512 [verbose] > |> Async.runWithTimeoutAsync timeout
00:07:27 #42513 [verbose] > return
00:07:27 #42514 [verbose] > ...
00:07:27 #42515 [verbose] >
00:07:27 #42516 [verbose] > ── fsharp - import ─────────────────────────────────────────────────────────────
00:07:27 #42517 [verbose] > #if !INTERACTIVE
00:07:27 #42518 [verbose] > namespace Polyglot
00:07:27 #42519 [verbose] > #endif
00:07:27 #42520 [verbose] >
00:07:27 #42521 [verbose] > module Runtime =
00:07:27 #42522 [verbose] >
00:07:27 #42523 [verbose] > #if !INTERACTIVE
00:07:27 #42524 [verbose] > open Lib
00:07:27 #42525 [verbose] > #endif
00:07:27 #42526 [verbose] >
00:07:27 #42527 [verbose] > open Common
00:07:27 #42528 [verbose] >
00:07:27 #42529 [verbose] > /// ## splitArgs
00:07:27 #42530 [verbose] >
00:07:27 #42531 [verbose] > let inline splitArgs commandLine =
00:07:27 #42532 [verbose] > commandLine
00:07:27 #42533 [verbose] > |> System.CommandLine.Parsing.CommandLineStringSplitter.Instance.Split
00:07:27 #42534 [verbose] >
00:07:27 #42535 [verbose] > /// ## parseArgs
00:07:27 #42536 [verbose] >
00:07:27 #42537 [verbose] > let inline parseArgs<'T when 'T :> Argu.IArgParserTemplate> args =
00:07:27 #42538 [verbose] > let assemblyName =
00:07:27 #42539 [verbose] > System.Reflection.Assembly.GetEntryAssembly().GetName().Name
00:07:27 #42540 [verbose] > let errorHandler : Argu.IExiter =
00:07:27 #42541 [verbose] > if [[ "Microsoft.DotNet.Interactive.App"; "dotnet-repl" ]] |>
00:07:27 #42542 [verbose] > List.contains assemblyName
00:07:27 #42543 [verbose] > then Argu.ExceptionExiter ()
00:07:27 #42544 [verbose] > else Argu.ProcessExiter (function Argu.ErrorCode.HelpText -> None |
00:07:27 #42545 [verbose] > _ -> Some System.ConsoleColor...
00:07:27 #42546 [verbose] >
00:07:27 #42547 [verbose] > ── fsharp - import ─────────────────────────────────────────────────────────────
00:07:27 #42548 [verbose] > #if !INTERACTIVE
00:07:27 #42549 [verbose] > namespace Polyglot
00:07:27 #42550 [verbose] > #endif
00:07:27 #42551 [verbose] >
00:07:27 #42552 [verbose] > module FileSystem =
00:07:27 #42553 [verbose] >
00:07:27 #42554 [verbose] > #if !INTERACTIVE
00:07:27 #42555 [verbose] > open Lib
00:07:27 #42556 [verbose] > #endif
00:07:27 #42557 [verbose] >
00:07:27 #42558 [verbose] > open Common
00:07:27 #42559 [verbose] > open SpiralFileSystem.Operators
00:07:27 #42560 [verbose] >
00:07:27 #42561 [verbose] > /// ## watchDirectory
00:07:27 #42562 [verbose] >
00:07:27 #42563 [verbose] > [[<RequireQualifiedAccess>]]
00:07:27 #42564 [verbose] > type FileSystemChangeType =
00:07:27 #42565 [verbose] > | Failure
00:07:27 #42566 [verbose] > | Changed
00:07:27 #42567 [verbose] > | Created
00:07:27 #42568 [verbose] > | Deleted
00:07:27 #42569 [verbose] > | Renamed
00:07:27 #42570 [verbose] >
00:07:27 #42571 [verbose] > [[<RequireQualifiedAccess>]]
00:07:27 #42572 [verbose] > type FileSystemChange =
00:07:27 #42573 [verbose] > | Failure of exn: exn
00:07:27 #42574 [verbose] > | Changed of path: string * content: string option
00:07:27 #42575 [verbose] > | Created of path: string * content: string option
00:07:27 #42576 [verbose] > | Deleted of path: string
00:07:27 #42577 [verbose] > | Renamed of oldPath: string * (string * string option)
00:07:27 #42578 [verbose] >
00:07:27 #42579 [verbose] >
00:07:27 #42580 [verbose] > let inline watchDirectoryWithFilter filter shouldReadContent path =
00:07:27 #42581 [verbose] > let fullPath = path |> Sys...
00:07:28 #42582 [verbose] >
00:07:28 #42583 [verbose] > ── fsharp - import ─────────────────────────────────────────────────────────────
00:07:28 #42584 [verbose] > #if !INTERACTIVE
00:07:28 #42585 [verbose] > open Lib
00:07:28 #42586 [verbose] > #endif
00:07:28 #42587 [verbose] >
00:07:28 #42588 [verbose] > ── fsharp - import ─────────────────────────────────────────────────────────────
00:07:28 #42589 [verbose] > open Common
00:07:28 #42590 [verbose] > open SpiralFileSystem.Operators
00:07:28 #42591 [verbose] >
00:07:28 #42592 [verbose] > ── fsharp - import ─────────────────────────────────────────────────────────────
00:07:28 #42593 [verbose] > let repositoryRoot = SpiralFileSystem.get_source_directory () |>
00:07:28 #42594 [verbose] > SpiralFileSystem.find_parent ".paket" false
00:07:28 #42595 [verbose] > let tmpSpiralPath = repositoryRoot </> "target/polyglot/plotting"
00:07:28 #42596 [verbose] > let linePlotsDataPath = tmpSpiralPath </> "line-data"
00:07:28 #42597 [verbose] > let linePlotsSvgPath = tmpSpiralPath </> "line-svg"
00:07:28 #42598 [verbose] >
00:07:28 #42599 [verbose] > [[ tmpSpiralPath; linePlotsDataPath; linePlotsSvgPath ]]
00:07:28 #42600 [verbose] > |> List.iter (fun dir -> if Directory.Exists dir |> not then
00:07:28 #42601 [verbose] > Directory.CreateDirectory dir |> ignore)
00:07:28 #42602 [verbose] >
00:07:28 #42603 [verbose] > Formatter.Register<struct (string * string * string * struct (string * float
00:07:28 #42604 [verbose] > array * float array) array)> (
00:07:28 #42605 [verbose] > (fun struct (caption, x_desc, y_desc, ys) ->
00:07:28 #42606 [verbose] > let json = (caption, x_desc, y_desc, ys) |> FSharp.Json.Json.serialize
00:07:28 #42607 [verbose] > async {
00:07:28 #42608 [verbose] > let hashHex = json |> SpiralCrypto.hash_text
00:07:28 #42609 [verbose] > ...
00:07:28 #42610 [verbose] >
00:07:28 #42611 [verbose] > ── spiral ──────────────────────────────────────────────────────────────────────
00:07:28 #42612 [verbose] > // // test
00:07:28 #42613 [verbose] >
00:07:28 #42614 [verbose] > open testing
00:07:29 #42615 [verbose] > Building c:\home\git\polyglot\target\polyglot\spiral_eval\packages\8837341da068f4ef4271045b3ef1c89d209237bf74b4f11596b6ee2d484becb0\main.spi
00:07:29 #42616 [verbose] >
00:07:29 #42617 [verbose] > ╭─[ 1.35s - stdout ]───────────────────────────────────────────────────────────╮
00:07:29 #42618 [verbose] > │ () │
00:07:29 #42619 [verbose] > │ │
00:07:29 #42620 [verbose] > │ │
00:07:29 #42621 [verbose] > ╰──────────────────────────────────────────────────────────────────────────────╯
00:07:29 #42622 [verbose] >
00:07:29 #42623 [verbose] > ── spiral ──────────────────────────────────────────────────────────────────────
00:07:29 #42624 [verbose] > open listm'_operators
00:07:29 #42625 [verbose] > Building c:\home\git\polyglot\target\polyglot\spiral_eval\packages\57b3e233f8078b43cef5d98551cf98bae9dc3b21df53bed25f284d199ff708dd\main.spi
00:07:30 #42626 [verbose] >
00:07:30 #42627 [verbose] > ╭─[ 258.75ms - stdout ]────────────────────────────────────────────────────────╮
00:07:30 #42628 [verbose] > │ () │
00:07:30 #42629 [verbose] > │ │
00:07:30 #42630 [verbose] > │ │
00:07:30 #42631 [verbose] > ╰──────────────────────────────────────────────────────────────────────────────╯
00:07:30 #42632 [verbose] >
00:07:30 #42633 [verbose] > ── markdown ────────────────────────────────────────────────────────────────────
00:07:30 #42634 [verbose] > ╭──────────────────────────────────────────────────────────────────────────────╮
00:07:30 #42635 [verbose] > │ ## init_series │
00:07:30 #42636 [verbose] > ╰──────────────────────────────────────────────────────────────────────────────╯
00:07:30 #42637 [verbose] >
00:07:30 #42638 [verbose] > ── spiral ──────────────────────────────────────────────────────────────────────
00:07:30 #42639 [verbose] > // // test
00:07:30 #42640 [verbose] >
00:07:30 #42641 [verbose] > inl x : a _ f64 = am'.init_series -3 3 0.01
00:07:30 #42642 [verbose] > inl y = x |> am.map math.square
00:07:30 #42643 [verbose] > "square", "x", "y", ;[[ "square", x, y ]]
00:07:30 #42644 [verbose] > Building c:\home\git\polyglot\target\polyglot\spiral_eval\packages\0449c0f87005948ff44a52881eaf559cb5510130812aa8fa45a5c226ff0d315b\main.spi
00:07:30 #42645 [verbose] >
00:07:30 #42646 [verbose] > ╭─[ 502.86ms - return value ]──────────────────────────────────────────────────╮
00:07:30 #42647 [verbose] > │ <svg width="640" height="480" viewBox="0 0 640 480" │
00:07:30 #42648 [verbose] > │ xmlns="http://www.w3.org/2000/svg"> │
00:07:30 #42649 [verbose] > │ <rect x="0" y="0" width="640" height="480" opacity="1" fill="#141414" │
00:07:30 #42650 [verbose] > │ stroke="none"/> │
00:07:30 #42651 [verbose] > │ <text x="320" y="10" dy="0.76em" text-anchor="middle" │
00:07:30 #42652 [verbose] > │ font-family="sans-serif" font-size="9.67741935483871" opacity="1" │
00:07:30 #42653 [verbose] > │ fill="#FFFFFF"> │
00:07:30 #42654 [verbose] > │ square │
00:07:30 #42655 [verbose] > │ </text> │
00:07:30 #42656 [verbose] > │ <line opacity="1" stroke="#323232" stroke-width="1" x1="61" y1="424" x2="61" │
00:07:30 #42657 [verbose] > │ y2="75"/> │
00:07:30 #42658 [verbose] > │ <line opacity="1" stroke="#323232" stroke-width="1" x1="69" y1="424" x2="69" │
00:07:30 #42659 [verbose] > │ y2="75"/> │
00:07:30 #42660 [verbose] > │ <line opacity="1" stroke="#323232" stroke-width="1" x1="78" y1="424" x2="78" │
00:07:30 #42661 [verbose] > │ y2="75"/> │
00:07:30 #42662 [verbose] > │ <line opacity="1" stroke="#323232" stroke-width="1" x1="86" y1="424" x2="86" │
00:07:30 #42663 [verbose] > │ y2="75"/> │
00:07:30 #42664 [verbose] > │ <line opacity="1" stroke="#323232" stroke-width="1" x1="94" y1="424" x2="94" │
00:07:30 #42665 [verbose] > │ ... │
00:07:30 #42666 [verbose] > ╰──────────────────────────────────────────────────────────────────────────────╯
00:07:30 #42667 [verbose] >
00:07:30 #42668 [verbose] > ╭─[ 519.21ms - stdout ]────────────────────────────────────────────────────────╮
00:07:30 #42669 [verbose] > │ type Mut0 = {mutable l0 : int32} │
00:07:30 #42670 [verbose] > │ let rec method1 (v0 : Mut0) : bool = │
00:07:30 #42671 [verbose] > │ let v1 : int32 = v0.l0 │
00:07:30 #42672 [verbose] > │ let v2 : bool = v1 < 601 │
00:07:30 #42673 [verbose] > │ v2 │
00:07:30 #42674 [verbose] > │ and method2 (v0 : int32, v1 : Mut0) : bool = │
00:07:30 #42675 [verbose] > │ let v2 : int32 = v1.l0 │
00:07:30 #42676 [verbose] > │ let v3 : bool = v2 < v0 │
00:07:30 #42677 [verbose] > │ v3 │
00:07:30 #42678 [verbose] > │ and method0 () : struct (string * string * string * (struct (string * (float │
00:07:30 #42679 [verbose] > │ []) * (float [])) [])) = │
00:07:30 #42680 [verbose] > │ let v0 : (float []) = Array.zeroCreate<float> (601) │
00:07:30 #42681 [verbose] > │ let v1 : Mut0 = {l0 = 0} : Mut0 │
00:07:30 #42682 [verbose] > │ while method1(v1) do │
00:07:30 #42683 [verbose] > │ let v3 : int32 = v1.l0 │
00:07:30 #42684 [verbose] > │ let v4 : float = float v3 │
00:07:30 #42685 [verbose] > │ let v5 : float = 0.01 * v4 │
00:07:30 #42686 [verbose] > │ let v6 : float = -3.0 + v5 │
00:07:30 #42687 [verbose] > │ v0.[int v3] <- v6 │
00:07:30 #42688 [verbose] > │ let v7 : int32 = v3 + 1 │
00:07:30 #42689 [verbose] > │ v1.l0 <- v7 │
00:07:30 #42690 [verbose] > │ () │
00:07:30 #42691 [verbose] > │ let v8 : int32 = v0.Length │
00:07:30 #42692 [verbose] > │ let v9 : (float []) = Array.zeroCreate<float> (v8) │
00:07:30 #42693 [verbose] > │ let v10 : Mut0 = {l0 = 0} : Mut0 │
00:07:30 #42694 [verbose] > │ while method2(v8, v10) do │
00:07:30 #42695 [verbose] > │ let v12 : int32 = v10.l0 │
00:07:30 #42696 [verbose] > │ let v13 : float = v0.[int v12] │
00:07:30 #42697 [verbose] > │ let v14 : float = v13 ** 2.0 │
00:07:30 #42698 [verbose] > │ v9.[int v12] <- v14 │
00:07:30 #42699 [verbose] > │ let v15 : int32 = v12 + 1 │
00:07:30 #42700 [verbose] > │ v10.l0 <- v15 │
00:07:30 #42701 [verbose] > │ () │
00:07:30 #42702 [verbose] > │ let v16 : string = "square" │
00:07:30 #42703 [verbose] > │ let v17 : (struct (string * (float []) * (float [])) []) = [|struct │
00:07:30 #42704 [verbose] > │ (v16, v0, v9)|] │
00:07:30 #42705 [verbose] > │ let v18 : string = "x" │
00:07:30 #42706 [verbose] > │ let v19 : string = "y" │
00:07:30 #42707 [verbose] > │ struct (v16, v18, v19, v17) │
00:07:30 #42708 [verbose] > │ method0() │
00:07:30 #42709 [verbose] > │ │
00:07:30 #42710 [verbose] > │ │
00:07:30 #42711 [verbose] > ╰──────────────────────────────────────────────────────────────────────────────╯
00:07:30 #42712 [verbose] >
00:07:30 #42713 [verbose] > ── spiral ──────────────────────────────────────────────────────────────────────
00:07:30 #42714 [verbose] > // // test
00:07:30 #42715 [verbose] >
00:07:30 #42716 [verbose] > inl x : a _ f64 = am'.init_series -10 10 0.1
00:07:30 #42717 [verbose] > inl y_sin = x |> am.map sin
00:07:30 #42718 [verbose] > inl y_cos = x |> am.map cos
00:07:30 #42719 [verbose] > "sin cos", "x", "y", ;[[ "sin", x, y_sin; "cos", x, y_cos ]]
00:07:30 #42720 [verbose] > Building c:\home\git\polyglot\target\polyglot\spiral_eval\packages\31935fcb7a36c7d27e2a6736430fd8585c36b2dd921469c03f41118dbacd488c\main.spi
00:07:30 #42721 [verbose] >
00:07:30 #42722 [verbose] > ╭─[ 304.59ms - return value ]──────────────────────────────────────────────────╮
00:07:30 #42723 [verbose] > │ <svg width="640" height="480" viewBox="0 0 640 480" │
00:07:30 #42724 [verbose] > │ xmlns="http://www.w3.org/2000/svg"> │
00:07:30 #42725 [verbose] > │ <rect x="0" y="0" width="640" height="480" opacity="1" fill="#141414" │
00:07:30 #42726 [verbose] > │ stroke="none"/> │
00:07:30 #42727 [verbose] > │ <text x="320" y="10" dy="0.76em" text-anchor="middle" │
00:07:30 #42728 [verbose] > │ font-family="sans-serif" font-size="9.67741935483871" opacity="1" │
00:07:30 #42729 [verbose] > │ fill="#FFFFFF"> │
00:07:30 #42730 [verbose] > │ sin cos │
00:07:30 #42731 [verbose] > │ </text> │
00:07:30 #42732 [verbose] > │ <line opacity="1" stroke="#323232" stroke-width="1" x1="57" y1="424" x2="57" │
00:07:30 #42733 [verbose] > │ y2="75"/> │
00:07:30 #42734 [verbose] > │ <line opacity="1" stroke="#323232" stroke-width="1" x1="69" y1="424" x2="69" │
00:07:30 #42735 [verbose] > │ y2="75"/> │
00:07:30 #42736 [verbose] > │ <line opacity="1" stroke="#323232" stroke-width="1" x1="82" y1="424" x2="82" │
00:07:30 #42737 [verbose] > │ y2="75"/> │
00:07:30 #42738 [verbose] > │ <line opacity="1" stroke="#323232" stroke-width="1" x1="94" y1="424" x2="94" │
00:07:30 #42739 [verbose] > │ y2="75"/> │
00:07:30 #42740 [verbose] > │ <line opacity="1" stroke="#323232" stroke-width="1" x1="107" y1="424" │
00:07:30 #42741 [verbose] > │ x2="10... │
00:07:30 #42742 [verbose] > ╰──────────────────────────────────────────────────────────────────────────────╯
00:07:30 #42743 [verbose] >
00:07:30 #42744 [verbose] > ╭─[ 320.58ms - stdout ]────────────────────────────────────────────────────────╮
00:07:30 #42745 [verbose] > │ type Mut0 = {mutable l0 : int32} │
00:07:30 #42746 [verbose] > │ let rec method1 (v0 : Mut0) : bool = │
00:07:30 #42747 [verbose] > │ let v1 : int32 = v0.l0 │
00:07:30 #42748 [verbose] > │ let v2 : bool = v1 < 201 │
00:07:30 #42749 [verbose] > │ v2 │
00:07:30 #42750 [verbose] > │ and method2 (v0 : int32, v1 : Mut0) : bool = │
00:07:30 #42751 [verbose] > │ let v2 : int32 = v1.l0 │
00:07:30 #42752 [verbose] > │ let v3 : bool = v2 < v0 │
00:07:30 #42753 [verbose] > │ v3 │
00:07:30 #42754 [verbose] > │ and method0 () : struct (string * string * string * (struct (string * (float │
00:07:30 #42755 [verbose] > │ []) * (float [])) [])) = │
00:07:30 #42756 [verbose] > │ let v0 : (float []) = Array.zeroCreate<float> (201) │
00:07:30 #42757 [verbose] > │ let v1 : Mut0 = {l0 = 0} : Mut0 │
00:07:30 #42758 [verbose] > │ while method1(v1) do │
00:07:30 #42759 [verbose] > │ let v3 : int32 = v1.l0 │
00:07:30 #42760 [verbose] > │ let v4 : float = float v3 │
00:07:30 #42761 [verbose] > │ let v5 : float = 0.1 * v4 │
00:07:30 #42762 [verbose] > │ let v6 : float = -10.0 + v5 │
00:07:30 #42763 [verbose] > │ v0.[int v3] <- v6 │
00:07:30 #42764 [verbose] > │ let v7 : int32 = v3 + 1 │
00:07:30 #42765 [verbose] > │ v1.l0 <- v7 │
00:07:30 #42766 [verbose] > │ () │
00:07:30 #42767 [verbose] > │ let v8 : int32 = v0.Length │
00:07:30 #42768 [verbose] > │ let v9 : (float []) = Array.zeroCreate<float> (v8) │
00:07:30 #42769 [verbose] > │ let v10 : Mut0 = {l0 = 0} : Mut0 │
00:07:30 #42770 [verbose] > │ while method2(v8, v10) do │
00:07:30 #42771 [verbose] > │ let v12 : int32 = v10.l0 │
00:07:30 #42772 [verbose] > │ let v13 : float = v0.[int v12] │
00:07:30 #42773 [verbose] > │ let v14 : float = sin v13 │
00:07:30 #42774 [verbose] > │ v9.[int v12] <- v14 │
00:07:30 #42775 [verbose] > │ let v15 : int32 = v12 + 1 │
00:07:30 #42776 [verbose] > │ v10.l0 <- v15 │
00:07:30 #42777 [verbose] > │ () │
00:07:30 #42778 [verbose] > │ let v16 : (float []) = Array.zeroCreate<float> (v8) │
00:07:30 #42779 [verbose] > │ let v17 : Mut0 = {l0 = 0} : Mut0 │
00:07:30 #42780 [verbose] > │ while method2(v8, v17) do │
00:07:30 #42781 [verbose] > │ let v19 : int32 = v17.l0 │
00:07:30 #42782 [verbose] > │ let v20 : float = v0.[int v19] │
00:07:30 #42783 [verbose] > │ let v21 : float = cos v20 │
00:07:30 #42784 [verbose] > │ v16.[int v19] <- v21 │
00:07:30 #42785 [verbose] > │ let v22 : int32 = v19 + 1 │
00:07:30 #42786 [verbose] > │ v17.l0 <- v22 │
00:07:30 #42787 [verbose] > │ () │
00:07:30 #42788 [verbose] > │ let v23 : string = "sin" │
00:07:30 #42789 [verbose] > │ let v24 : string = "cos" │
00:07:30 #42790 [verbose] > │ let v25 : (struct (string * (float []) * (float [])) []) = [|struct │
00:07:30 #42791 [verbose] > │ (v23, v0, v9); struct (v24, v0, v16)|] │
00:07:30 #42792 [verbose] > │ let v26 : string = "sin cos" │
00:07:30 #42793 [verbose] > │ let v27 : string = "x" │
00:07:30 #42794 [verbose] > │ let v28 : string = "y" │
00:07:30 #42795 [verbose] > │ struct (v26, v27, v28, v25) │
00:07:30 #42796 [verbose] > │ method0() │
00:07:30 #42797 [verbose] > │ │
00:07:30 #42798 [verbose] > │ │
00:07:30 #42799 [verbose] > ╰──────────────────────────────────────────────────────────────────────────────╯
00:07:30 #42800 [verbose] >
00:07:30 #42801 [verbose] > ── spiral ──────────────────────────────────────────────────────────────────────
00:07:30 #42802 [verbose] > // // test
00:07:30 #42803 [verbose] >
00:07:30 #42804 [verbose] > inl y_pos y0 vy0 ay t =
00:07:30 #42805 [verbose] > y0 + vy0 * t + ay * (t |> math.square) / 2
00:07:30 #42806 [verbose] >
00:07:30 #42807 [verbose] > inl x : a _ f64 = am'.init_series 0 5 0.01
00:07:30 #42808 [verbose] > inl y = x |> am.map (y_pos 0 20 -9.8)
00:07:30 #42809 [verbose] > "projectile motion", "time (s)", "", ;[[ "height of projectile (m)", x, y ]]
00:07:31 #42810 [verbose] > Building c:\home\git\polyglot\target\polyglot\spiral_eval\packages\10da5a316a98dd9c8e1fdbf98aea21ef7dfc06e1d55ef490be6c36784f69a323\main.spi
00:07:31 #42811 [verbose] >
00:07:31 #42812 [verbose] > ╭─[ 363.68ms - return value ]──────────────────────────────────────────────────╮
00:07:31 #42813 [verbose] > │ <svg width="640" height="480" viewBox="0 0 640 480" │
00:07:31 #42814 [verbose] > │ xmlns="http://www.w3.org/2000/svg"> │
00:07:31 #42815 [verbose] > │ <rect x="0" y="0" width="640" height="480" opacity="1" fill="#141414" │
00:07:31 #42816 [verbose] > │ stroke="none"/> │
00:07:31 #42817 [verbose] > │ <text x="320" y="10" dy="0.76em" text-anchor="middle" │
00:07:31 #42818 [verbose] > │ font-family="sans-serif" font-size="9.67741935483871" opacity="1" │
00:07:31 #42819 [verbose] > │ fill="#FFFFFF"> │
00:07:31 #42820 [verbose] > │ projectile motion │
00:07:31 #42821 [verbose] > │ </text> │
00:07:31 #42822 [verbose] > │ <line opacity="1" stroke="#323232" stroke-width="1" x1="59" y1="424" x2="59" │
00:07:31 #42823 [verbose] > │ y2="75"/> │
00:07:31 #42824 [verbose] > │ <line opacity="1" stroke="#323232" stroke-width="1" x1="69" y1="424" x2="69" │
00:07:31 #42825 [verbose] > │ y2="75"/> │
00:07:31 #42826 [verbose] > │ <line opacity="1" stroke="#323232" stroke-width="1" x1="79" y1="424" x2="79" │
00:07:31 #42827 [verbose] > │ y2="75"/> │
00:07:31 #42828 [verbose] > │ <line opacity="1" stroke="#323232" stroke-width="1" x1="89" y1="424" x2="89" │
00:07:31 #42829 [verbose] > │ y2="75"/> │
00:07:31 #42830 [verbose] > │ <line opacity="1" stroke="#323232" stroke-width="1" x1="99" y1="42... │
00:07:31 #42831 [verbose] > ╰──────────────────────────────────────────────────────────────────────────────╯
00:07:31 #42832 [verbose] >
00:07:31 #42833 [verbose] > ╭─[ 374.01ms - stdout ]────────────────────────────────────────────────────────╮
00:07:31 #42834 [verbose] > │ type Mut0 = {mutable l0 : int32} │
00:07:31 #42835 [verbose] > │ let rec method1 (v0 : Mut0) : bool = │
00:07:31 #42836 [verbose] > │ let v1 : int32 = v0.l0 │
00:07:31 #42837 [verbose] > │ let v2 : bool = v1 < 501 │
00:07:31 #42838 [verbose] > │ v2 │
00:07:31 #42839 [verbose] > │ and method2 (v0 : int32, v1 : Mut0) : bool = │
00:07:31 #42840 [verbose] > │ let v2 : int32 = v1.l0 │
00:07:31 #42841 [verbose] > │ let v3 : bool = v2 < v0 │
00:07:31 #42842 [verbose] > │ v3 │
00:07:31 #42843 [verbose] > │ and method0 () : struct (string * string * string * (struct (string * (float │
00:07:31 #42844 [verbose] > │ []) * (float [])) [])) = │
00:07:31 #42845 [verbose] > │ let v0 : (float []) = Array.zeroCreate<float> (501) │
00:07:31 #42846 [verbose] > │ let v1 : Mut0 = {l0 = 0} : Mut0 │
00:07:31 #42847 [verbose] > │ while method1(v1) do │
00:07:31 #42848 [verbose] > │ let v3 : int32 = v1.l0 │
00:07:31 #42849 [verbose] > │ let v4 : float = float v3 │
00:07:31 #42850 [verbose] > │ let v5 : float = 0.01 * v4 │
00:07:31 #42851 [verbose] > │ v0.[int v3] <- v5 │
00:07:31 #42852 [verbose] > │ let v6 : int32 = v3 + 1 │
00:07:31 #42853 [verbose] > │ v1.l0 <- v6 │
00:07:31 #42854 [verbose] > │ () │
00:07:31 #42855 [verbose] > │ let v7 : int32 = v0.Length │
00:07:31 #42856 [verbose] > │ let v8 : (float []) = Array.zeroCreate<float> (v7) │
00:07:31 #42857 [verbose] > │ let v9 : Mut0 = {l0 = 0} : Mut0 │
00:07:31 #42858 [verbose] > │ while method2(v7, v9) do │
00:07:31 #42859 [verbose] > │ let v11 : int32 = v9.l0 │
00:07:31 #42860 [verbose] > │ let v12 : float = v0.[int v11] │
00:07:31 #42861 [verbose] > │ let v13 : float = 20.0 * v12 │
00:07:31 #42862 [verbose] > │ let v14 : float = v12 ** 2.0 │
00:07:31 #42863 [verbose] > │ let v15 : float = -9.8 * v14 │
00:07:31 #42864 [verbose] > │ let v16 : float = v15 / 2.0 │
00:07:31 #42865 [verbose] > │ let v17 : float = v13 + v16 │
00:07:31 #42866 [verbose] > │ v8.[int v11] <- v17 │
00:07:31 #42867 [verbose] > │ let v18 : int32 = v11 + 1 │
00:07:31 #42868 [verbose] > │ v9.l0 <- v18 │
00:07:31 #42869 [verbose] > │ () │
00:07:31 #42870 [verbose] > │ let v19 : string = "height of projectile (m)" │
00:07:31 #42871 [verbose] > │ let v20 : (struct (string * (float []) * (float [])) []) = [|struct │
00:07:31 #42872 [verbose] > │ (v19, v0, v8)|] │
00:07:31 #42873 [verbose] > │ let v21 : string = "projectile motion" │
00:07:31 #42874 [verbose] > │ let v22 : string = "time (s)" │
00:07:31 #42875 [verbose] > │ let v23 : string = "" │
00:07:31 #42876 [verbose] > │ struct (v21, v22, v23, v20) │
00:07:31 #42877 [verbose] > │ method0() │
00:07:31 #42878 [verbose] > │ │
00:07:31 #42879 [verbose] > │ │
00:07:31 #42880 [verbose] > ╰──────────────────────────────────────────────────────────────────────────────╯
00:07:31 #42881 [verbose] >
00:07:31 #42882 [verbose] > ── markdown ────────────────────────────────────────────────────────────────────
00:07:31 #42883 [verbose] > ╭──────────────────────────────────────────────────────────────────────────────╮
00:07:31 #42884 [verbose] > │ ## velocity_cf │
00:07:31 #42885 [verbose] > ╰──────────────────────────────────────────────────────────────────────────────╯
00:07:31 #42886 [verbose] >
00:07:31 #42887 [verbose] > ── spiral ──────────────────────────────────────────────────────────────────────
00:07:31 #42888 [verbose] > type mass = f64
00:07:31 #42889 [verbose] > type time = f64
00:07:31 #42890 [verbose] > type position = f64
00:07:31 #42891 [verbose] > type velocity = f64
00:07:31 #42892 [verbose] > type force = f64
00:07:31 #42893 [verbose] >
00:07:31 #42894 [verbose] > type velocity_cf = mass -> velocity -> list force -> (time -> velocity)
00:07:31 #42895 [verbose] >
00:07:31 #42896 [verbose] > inl velocity_cf m v0 fs =
00:07:31 #42897 [verbose] > inl f_net = fs |> listm'.sum
00:07:31 #42898 [verbose] > inl a0 = f_net / m
00:07:31 #42899 [verbose] > inl v t = v0 + a0 * t
00:07:31 #42900 [verbose] > v
00:07:31 #42901 [verbose] > Building c:\home\git\polyglot\target\polyglot\spiral_eval\packages\09c46f40acfcb898ae8e6b8843d59ab5917f50368e1d383a0c2270178c7e7b6c\main.spi
00:07:31 #42902 [verbose] >
00:07:31 #42903 [verbose] > ╭─[ 263.53ms - stdout ]────────────────────────────────────────────────────────╮
00:07:31 #42904 [verbose] > │ () │
00:07:31 #42905 [verbose] > │ │
00:07:31 #42906 [verbose] > │ │
00:07:31 #42907 [verbose] > ╰──────────────────────────────────────────────────────────────────────────────╯
00:07:31 #42908 [verbose] >
00:07:31 #42909 [verbose] > ── spiral ──────────────────────────────────────────────────────────────────────
00:07:31 #42910 [verbose] > // // test
00:07:31 #42911 [verbose] >
00:07:31 #42912 [verbose] > velocity_cf 0.1f64 0.6 [[ 0.04; -0.08 ]] 0
00:07:31 #42913 [verbose] > |> _assert_eq 0.6
00:07:31 #42914 [verbose] >
00:07:31 #42915 [verbose] > velocity_cf 0.1f64 0.6 [[ 0.04; -0.08 ]] 1
00:07:31 #42916 [verbose] > |> _assert_eq 0.2
00:07:31 #42917 [verbose] > Building c:\home\git\polyglot\target\polyglot\spiral_eval\packages\14c86fb6f214ea352e7ce11a5862e32020c1068108dab1e39900e0cf320dc2f8\main.spi
00:07:31 #42918 [verbose] >
00:07:31 #42919 [verbose] > ╭─[ 343.41ms - stdout ]────────────────────────────────────────────────────────╮
00:07:31 #42920 [verbose] > │ let rec method0 () : unit = │
00:07:31 #42921 [verbose] > │ let v0 : string = $"%A{0.6}" │
00:07:31 #42922 [verbose] > │ System.Console.WriteLine v0 │
00:07:31 #42923 [verbose] > │ let v1 : string = $"__expect / actual: %A{0.6} / expected: %A{0.6}" │
00:07:31 #42924 [verbose] > │ let v2 : string = $"%A{0.2}" │
00:07:31 #42925 [verbose] > │ System.Console.WriteLine v2 │
00:07:31 #42926 [verbose] > │ let v3 : string = $"__expect / actual: %A{0.2} / expected: %A{0.2}" │
00:07:31 #42927 [verbose] > │ () │
00:07:31 #42928 [verbose] > │ method0() │
00:07:31 #42929 [verbose] > │ │
00:07:31 #42930 [verbose] > │ 0.6 │
00:07:31 #42931 [verbose] > │ 0.2 │
00:07:31 #42932 [verbose] > │ │
00:07:31 #42933 [verbose] > ╰──────────────────────────────────────────────────────────────────────────────╯
00:07:31 #42934 [verbose] >
00:07:31 #42935 [verbose] > ── spiral ──────────────────────────────────────────────────────────────────────
00:07:31 #42936 [verbose] > // // test
00:07:31 #42937 [verbose] >
00:07:31 #42938 [verbose] > inl x = am'.init_series 0 4 0.1
00:07:31 #42939 [verbose] > inl y = x |> am.map (velocity_cf 0.1f64 0.6 [[ 0.04; -0.08 ]])
00:07:31 #42940 [verbose] > "car on an air track", "time (s)", "", ;[[ "velocity of car (m/s)", x, y ]]
00:07:32 #42941 [verbose] > Building c:\home\git\polyglot\target\polyglot\spiral_eval\packages\3a87803d3d74cd12d200b974dc0c5a09f3dbbe67ab571f44f693ca5185327052\main.spi
00:07:32 #42942 [verbose] >
00:07:32 #42943 [verbose] > ╭─[ 322.60ms - return value ]──────────────────────────────────────────────────╮
00:07:32 #42944 [verbose] > │ <svg width="640" height="480" viewBox="0 0 640 480" │
00:07:32 #42945 [verbose] > │ xmlns="http://www.w3.org/2000/svg"> │
00:07:32 #42946 [verbose] > │ <rect x="0" y="0" width="640" height="480" opacity="1" fill="#141414" │
00:07:32 #42947 [verbose] > │ stroke="none"/> │
00:07:32 #42948 [verbose] > │ <text x="320" y="10" dy="0.76em" text-anchor="middle" │
00:07:32 #42949 [verbose] > │ font-family="sans-serif" font-size="9.67741935483871" opacity="1" │
00:07:32 #42950 [verbose] > │ fill="#FFFFFF"> │
00:07:32 #42951 [verbose] > │ car on an air track │
00:07:32 #42952 [verbose] > │ </text> │
00:07:32 #42953 [verbose] > │ <line opacity="1" stroke="#323232" stroke-width="1" x1="57" y1="424" x2="57" │
00:07:32 #42954 [verbose] > │ y2="75"/> │
00:07:32 #42955 [verbose] > │ <line opacity="1" stroke="#323232" stroke-width="1" x1="69" y1="424" x2="69" │
00:07:32 #42956 [verbose] > │ y2="75"/> │
00:07:32 #42957 [verbose] > │ <line opacity="1" stroke="#323232" stroke-width="1" x1="82" y1="424" x2="82" │
00:07:32 #42958 [verbose] > │ y2="75"/> │
00:07:32 #42959 [verbose] > │ <line opacity="1" stroke="#323232" stroke-width="1" x1="94" y1="424" x2="94" │
00:07:32 #42960 [verbose] > │ y2="75"/> │
00:07:32 #42961 [verbose] > │ <line opacity="1" stroke="#323232" stroke-width="1" x1="107" y1=... │
00:07:32 #42962 [verbose] > ╰──────────────────────────────────────────────────────────────────────────────╯
00:07:32 #42963 [verbose] >
00:07:32 #42964 [verbose] > ╭─[ 332.75ms - stdout ]────────────────────────────────────────────────────────╮
00:07:32 #42965 [verbose] > │ type Mut0 = {mutable l0 : int32} │
00:07:32 #42966 [verbose] > │ let rec method1 (v0 : Mut0) : bool = │
00:07:32 #42967 [verbose] > │ let v1 : int32 = v0.l0 │
00:07:32 #42968 [verbose] > │ let v2 : bool = v1 < 41 │
00:07:32 #42969 [verbose] > │ v2 │
00:07:32 #42970 [verbose] > │ and method2 (v0 : int32, v1 : Mut0) : bool = │
00:07:32 #42971 [verbose] > │ let v2 : int32 = v1.l0 │
00:07:32 #42972 [verbose] > │ let v3 : bool = v2 < v0 │
00:07:32 #42973 [verbose] > │ v3 │
00:07:32 #42974 [verbose] > │ and method0 () : struct (string * string * string * (struct (string * (float │
00:07:32 #42975 [verbose] > │ []) * (float [])) [])) = │
00:07:32 #42976 [verbose] > │ let v0 : (float []) = Array.zeroCreate<float> (41) │
00:07:32 #42977 [verbose] > │ let v1 : Mut0 = {l0 = 0} : Mut0 │
00:07:32 #42978 [verbose] > │ while method1(v1) do │
00:07:32 #42979 [verbose] > │ let v3 : int32 = v1.l0 │
00:07:32 #42980 [verbose] > │ let v4 : float = float v3 │
00:07:32 #42981 [verbose] > │ let v5 : float = 0.1 * v4 │
00:07:32 #42982 [verbose] > │ v0.[int v3] <- v5 │
00:07:32 #42983 [verbose] > │ let v6 : int32 = v3 + 1 │
00:07:32 #42984 [verbose] > │ v1.l0 <- v6 │
00:07:32 #42985 [verbose] > │ () │
00:07:32 #42986 [verbose] > │ let v7 : int32 = v0.Length │
00:07:32 #42987 [verbose] > │ let v8 : (float []) = Array.zeroCreate<float> (v7) │
00:07:32 #42988 [verbose] > │ let v9 : Mut0 = {l0 = 0} : Mut0 │
00:07:32 #42989 [verbose] > │ while method2(v7, v9) do │
00:07:32 #42990 [verbose] > │ let v11 : int32 = v9.l0 │
00:07:32 #42991 [verbose] > │ let v12 : float = v0.[int v11] │
00:07:32 #42992 [verbose] > │ let v13 : float = -0.39999999999999997 * v12 │
00:07:32 #42993 [verbose] > │ let v14 : float = 0.6 + v13 │
00:07:32 #42994 [verbose] > │ v8.[int v11] <- v14 │
00:07:32 #42995 [verbose] > │ let v15 : int32 = v11 + 1 │
00:07:32 #42996 [verbose] > │ v9.l0 <- v15 │
00:07:32 #42997 [verbose] > │ () │
00:07:32 #42998 [verbose] > │ let v16 : string = "velocity of car (m/s)" │
00:07:32 #42999 [verbose] > │ let v17 : (struct (string * (float []) * (float [])) []) = [|struct │
00:07:32 #43000 [verbose] > │ (v16, v0, v8)|] │
00:07:32 #43001 [verbose] > │ let v18 : string = "car on an air track" │
00:07:32 #43002 [verbose] > │ let v19 : string = "time (s)" │
00:07:32 #43003 [verbose] > │ let v20 : string = "" │
00:07:32 #43004 [verbose] > │ struct (v18, v19, v20, v17) │
00:07:32 #43005 [verbose] > │ method0() │
00:07:32 #43006 [verbose] > │ │
00:07:32 #43007 [verbose] > │ │
00:07:32 #43008 [verbose] > ╰──────────────────────────────────────────────────────────────────────────────╯
00:07:32 #43009 [verbose] >
00:07:32 #43010 [verbose] > ── markdown ────────────────────────────────────────────────────────────────────
00:07:32 #43011 [verbose] > ╭──────────────────────────────────────────────────────────────────────────────╮
00:07:32 #43012 [verbose] > │ ## derivative │
00:07:32 #43013 [verbose] > ╰──────────────────────────────────────────────────────────────────────────────╯
00:07:32 #43014 [verbose] >
00:07:32 #43015 [verbose] > ── spiral ──────────────────────────────────────────────────────────────────────
00:07:32 #43016 [verbose] > type derivative = (f64 -> f64) -> f64 -> f64
00:07:32 #43017 [verbose] >
00:07:32 #43018 [verbose] > inl derivative dt : derivative =
00:07:32 #43019 [verbose] > fun x t =>
00:07:32 #43020 [verbose] > (x (t + dt / 2) - x (t - dt / 2)) / dt
00:07:32 #43021 [verbose] > Building c:\home\git\polyglot\target\polyglot\spiral_eval\packages\f62fa942fd54a23fb7d2a7760f27a8763e2ec5d1b3de90d76f0fad52176c6146\main.spi
00:07:32 #43022 [verbose] >
00:07:32 #43023 [verbose] > ╭─[ 216.15ms - stdout ]────────────────────────────────────────────────────────╮
00:07:32 #43024 [verbose] > │ () │
00:07:32 #43025 [verbose] > │ │
00:07:32 #43026 [verbose] > │ │
00:07:32 #43027 [verbose] > ╰──────────────────────────────────────────────────────────────────────────────╯
00:07:32 #43028 [verbose] >
00:07:32 #43029 [verbose] > ── spiral ──────────────────────────────────────────────────────────────────────
00:07:32 #43030 [verbose] > // // test
00:07:32 #43031 [verbose] >
00:07:32 #43032 [verbose] > derivative 1 (fun x => x ** 4 / 4) 1 - 1
00:07:32 #43033 [verbose] > |> _assert_approx_eq None 0.25
00:07:32 #43034 [verbose] >
00:07:32 #43035 [verbose] > derivative 0.001 (fun x => x ** 4 / 4) 1 - 1
00:07:32 #43036 [verbose] > |> _assert_approx_eq None 0.0000002499998827953931
00:07:32 #43037 [verbose] >
00:07:32 #43038 [verbose] > derivative 0.000001 (fun x => x ** 4 / 4) 1 - 1
00:07:32 #43039 [verbose] > |> _assert_approx_eq None 0.000000000001000088900582341
00:07:32 #43040 [verbose] >
00:07:32 #43041 [verbose] > derivative 0.000000001 (fun x => x ** 4 / 4) 1 - 1
00:07:32 #43042 [verbose] > |> _assert_approx_eq None 0.00000008274037099909037
00:07:32 #43043 [verbose] >
00:07:32 #43044 [verbose] > derivative 0.000000000001 (fun x => x ** 4 / 4) 1 - 1
00:07:32 #43045 [verbose] > |> _assert_approx_eq None 0.00008890058234101161
00:07:32 #43046 [verbose] >
00:07:32 #43047 [verbose] > derivative 0.000000000000001 (fun x => x ** 4 / 4) 1 - 1
00:07:32 #43048 [verbose] > |> _assert_approx_eq None -0.0007992778373592246
00:07:32 #43049 [verbose] >
00:07:32 #43050 [verbose] > derivative 0.000000000000000001 (fun x => x ** 4 / 4) 1 - 1
00:07:32 #43051 [verbose] > |> _assert_approx_eq None -1
00:07:32 #43052 [verbose] > Building c:\home\git\polyglot\target\polyglot\spiral_eval\packages\ac36a4f469df9844cbf6dbfe2fa3f4dde2f8c4db9f26b779c87fde0ee50f0795\main.spi
00:07:32 #43053 [verbose] >
00:07:32 #43054 [verbose] > ╭─[ 298.60ms - stdout ]────────────────────────────────────────────────────────╮
00:07:32 #43055 [verbose] > │ let rec method0 () : unit = │
00:07:32 #43056 [verbose] > │ let v0 : string = $"%A{0.25}" │
00:07:32 #43057 [verbose] > │ System.Console.WriteLine v0 │
00:07:32 #43058 [verbose] > │ let v1 : string = $"__expect / actual: %A{0.25} / expected: %A{0.25}" │
00:07:32 #43059 [verbose] > │ let v2 : string = $"%A{2.499998827953931E-07}" │
00:07:32 #43060 [verbose] > │ System.Console.WriteLine v2 │
00:07:32 #43061 [verbose] > │ let v3 : string = $"__expect / actual: %A{2.499998827953931E-07} / │
00:07:32 #43062 [verbose] > │ expected: %A{2.499998827953931E-07}" │
00:07:32 #43063 [verbose] > │ let v4 : string = $"%A{1.000088900582341E-12}" │
00:07:32 #43064 [verbose] > │ System.Console.WriteLine v4 │
00:07:32 #43065 [verbose] > │ let v5 : string = $"__expect / actual: %A{1.000088900582341E-12} / │
00:07:32 #43066 [verbose] > │ expected: %A{1.000088900582341E-12}" │
00:07:32 #43067 [verbose] > │ let v6 : string = $"%A{8.274037099909037E-08}" │
00:07:32 #43068 [verbose] > │ System.Console.WriteLine v6 │
00:07:32 #43069 [verbose] > │ let v7 : string = $"__expect / actual: %A{8.274037099909037E-08} / │
00:07:32 #43070 [verbose] > │ expected: %A{8.274037099909037E-08}" │
00:07:32 #43071 [verbose] > │ let v8 : string = $"%A{8.890058234101161E-05}" │
00:07:32 #43072 [verbose] > │ System.Console.WriteLine v8 │
00:07:32 #43073 [verbose] > │ let v9 : string = $"__expect / actual: %A{8.890058234101161E-05} / │
00:07:32 #43074 [verbose] > │ expected: %A{8.890058234101161E-05}" │
00:07:32 #43075 [verbose] > │ let v10 : string = $"%A{-0.0007992778373592246}" │
00:07:32 #43076 [verbose] > │ System.Console.WriteLine v10 │
00:07:32 #43077 [verbose] > │ let v11 : string = $"__expect / actual: %A{-0.0007992778373592246} / │
00:07:32 #43078 [verbose] > │ expected: %A{-0.0007992778373592246}" │
00:07:32 #43079 [verbose] > │ let v12 : string = $"%A{-1.0}" │
00:07:32 #43080 [verbose] > │ System.Console.WriteLine v12 │
00:07:32 #43081 [verbose] > │ let v13 : string = $"__expect / actual: %A{-1.0} / expected: %A{-1.0}" │
00:07:32 #43082 [verbose] > │ () │
00:07:32 #43083 [verbose] > │ method0() │
00:07:32 #43084 [verbose] > │ │
00:07:32 #43085 [verbose] > │ 0.25 │
00:07:32 #43086 [verbose] > │ 2.499998828e-07 │
00:07:32 #43087 [verbose] > │ 1.000088901e-12 │
00:07:32 #43088 [verbose] > │ 8.2740371e-08 │
00:07:32 #43089 [verbose] > │ 8.890058234e-05 │
00:07:32 #43090 [verbose] > │ -0.0007992778374 │
00:07:32 #43091 [verbose] > │ -1.0 │
00:07:32 #43092 [verbose] > │ │
00:07:32 #43093 [verbose] > ╰──────────────────────────────────────────────────────────────────────────────╯
00:07:32 #43094 [verbose] >
00:07:32 #43095 [verbose] > ── markdown ────────────────────────────────────────────────────────────────────
00:07:32 #43096 [verbose] > ╭──────────────────────────────────────────────────────────────────────────────╮
00:07:32 #43097 [verbose] > │ ## integration │
00:07:32 #43098 [verbose] > ╰──────────────────────────────────────────────────────────────────────────────╯
00:07:32 #43099 [verbose] >
00:07:32 #43100 [verbose] > ── spiral ──────────────────────────────────────────────────────────────────────
00:07:32 #43101 [verbose] > type integration = (f64 -> f64) -> f64 -> f64 -> f64
00:07:32 #43102 [verbose] >
00:07:32 #43103 [verbose] > inl integral dt : integration =
00:07:32 #43104 [verbose] > fun f a b =>
00:07:32 #43105 [verbose] > inl rec loop t y =
00:07:32 #43106 [verbose] > if t < b
00:07:32 #43107 [verbose] > then loop (t + dt) (y + f t * dt)
00:07:32 #43108 [verbose] > else t, y
00:07:32 #43109 [verbose] > loop (a + dt / 2) 0
00:07:32 #43110 [verbose] > |> snd
00:07:33 #43111 [verbose] > Building c:\home\git\polyglot\target\polyglot\spiral_eval\packages\a59da5f2a573ab66d523c994153baf17bdc48fb399ba5dde006aef94787f9f06\main.spi
00:07:33 #43112 [verbose] >
00:07:33 #43113 [verbose] > ╭─[ 282.73ms - stdout ]────────────────────────────────────────────────────────╮
00:07:33 #43114 [verbose] > │ () │
00:07:33 #43115 [verbose] > │ │
00:07:33 #43116 [verbose] > │ │
00:07:33 #43117 [verbose] > ╰──────────────────────────────────────────────────────────────────────────────╯
00:07:33 #43118 [verbose] >
00:07:33 #43119 [verbose] > ── spiral ──────────────────────────────────────────────────────────────────────
00:07:33 #43120 [verbose] > // // test
00:07:33 #43121 [verbose] >
00:07:33 #43122 [verbose] > integral 0.01 math.square 0 1
00:07:33 #43123 [verbose] > |> _assert_approx_eq None 0.33332500000000004
00:07:33 #43124 [verbose] > Building c:\home\git\polyglot\target\polyglot\spiral_eval\packages\17fd69da1bc84f350e91e67dc11421a58185fcd5b1d9ce173535944c4e9f36c1\main.spi
00:07:33 #43125 [verbose] >
00:07:33 #43126 [verbose] > ╭─[ 245.28ms - stdout ]────────────────────────────────────────────────────────╮
00:07:33 #43127 [verbose] > │ let rec method0 () : unit = │
00:07:33 #43128 [verbose] > │ let v0 : string = $"%A{0.3333250000000004}" │
00:07:33 #43129 [verbose] > │ System.Console.WriteLine v0 │
00:07:33 #43130 [verbose] > │ let v1 : string = $"__expect / actual: %A{0.3333250000000004} / │
00:07:33 #43131 [verbose] > │ expected: %A{0.33332500000000004}" │
00:07:33 #43132 [verbose] > │ () │
00:07:33 #43133 [verbose] > │ method0() │
00:07:33 #43134 [verbose] > │ │
00:07:33 #43135 [verbose] > │ 0.333325 │
00:07:33 #43136 [verbose] > │ │
00:07:33 #43137 [verbose] > ╰──────────────────────────────────────────────────────────────────────────────╯
00:07:33 #43138 [verbose] >
00:07:33 #43139 [verbose] > ── spiral ──────────────────────────────────────────────────────────────────────
00:07:33 #43140 [verbose] > inl integral' dt : integration =
00:07:33 #43141 [verbose] > fun f a b =>
00:07:33 #43142 [verbose] > listm'.init_series (a + dt / 2) (b - dt / 2) dt
00:07:33 #43143 [verbose] > |> listm.map (f >> (*) dt)
00:07:33 #43144 [verbose] > |> listm'.sum
00:07:33 #43145 [verbose] > Building c:\home\git\polyglot\target\polyglot\spiral_eval\packages\4f971dd297fd5181766262311dfee64da39d5f78e2272647a3dec805c5bb3e6d\main.spi
00:07:33 #43146 [verbose] >
00:07:33 #43147 [verbose] > ╭─[ 215.02ms - stdout ]────────────────────────────────────────────────────────╮
00:07:33 #43148 [verbose] > │ () │
00:07:33 #43149 [verbose] > │ │
00:07:33 #43150 [verbose] > │ │
00:07:33 #43151 [verbose] > ╰──────────────────────────────────────────────────────────────────────────────╯
00:07:33 #43152 [verbose] >
00:07:33 #43153 [verbose] > ── spiral ──────────────────────────────────────────────────────────────────────
00:07:33 #43154 [verbose] > // // test
00:07:33 #43155 [verbose] >
00:07:33 #43156 [verbose] > integral' 0.1 math.square 0 1
00:07:33 #43157 [verbose] > |> _assert_approx_eq None (integral 0.1 math.square 0 1)
00:07:33 #43158 [verbose] > Building c:\home\git\polyglot\target\polyglot\spiral_eval\packages\8698d12c80dec9294f9bd43001744dfc2d6c60269ed9ab48cd04dc2cf29b6dcf\main.spi
00:07:33 #43159 [verbose] >
00:07:33 #43160 [verbose] > ╭─[ 249.48ms - stdout ]────────────────────────────────────────────────────────╮
00:07:33 #43161 [verbose] > │ let rec method0 () : unit = │
00:07:33 #43162 [verbose] > │ let v0 : string = $"%A{0.3325000000000001}" │
00:07:33 #43163 [verbose] > │ System.Console.WriteLine v0 │
00:07:33 #43164 [verbose] > │ let v1 : string = $"__expect / actual: %A{0.3325000000000001} / │
00:07:33 #43165 [verbose] > │ expected: %A{0.33249999999999996}" │
00:07:33 #43166 [verbose] > │ () │
00:07:33 #43167 [verbose] > │ method0() │
00:07:33 #43168 [verbose] > │ │
00:07:33 #43169 [verbose] > │ 0.3325 │
00:07:33 #43170 [verbose] > │ │
00:07:33 #43171 [verbose] > ╰──────────────────────────────────────────────────────────────────────────────╯
00:07:33 #43172 [verbose] >
00:07:33 #43173 [verbose] > ── spiral ──────────────────────────────────────────────────────────────────────
00:07:33 #43174 [verbose] > inl integral'' dt : integration =
00:07:33 #43175 [verbose] > fun f a b =>
00:07:33 #43176 [verbose] > am'.init_series (a + dt / 2) (b - dt / 2) dt
00:07:33 #43177 [verbose] > |> am.map (f >> (*) dt)
00:07:33 #43178 [verbose] > |> am'.sum
00:07:34 #43179 [verbose] > Building c:\home\git\polyglot\target\polyglot\spiral_eval\packages\78707b950bbad05cafdb65ad98fb71b35b8ba53cb718406bdb5db88f6a7acfd4\main.spi
00:07:34 #43180 [verbose] >
00:07:34 #43181 [verbose] > ╭─[ 232.55ms - stdout ]────────────────────────────────────────────────────────╮
00:07:34 #43182 [verbose] > │ () │
00:07:34 #43183 [verbose] > │ │
00:07:34 #43184 [verbose] > │ │
00:07:34 #43185 [verbose] > ╰──────────────────────────────────────────────────────────────────────────────╯
00:07:34 #43186 [verbose] >
00:07:34 #43187 [verbose] > ── spiral ──────────────────────────────────────────────────────────────────────
00:07:34 #43188 [verbose] > // // test
00:07:34 #43189 [verbose] >
00:07:34 #43190 [verbose] > integral'' 0.01 math.square 0 1
00:07:34 #43191 [verbose] > |> _assert_approx_eq None (integral 0.01 math.square 0 1)
00:07:34 #43192 [verbose] > Building c:\home\git\polyglot\target\polyglot\spiral_eval\packages\d410ee738c976ed4f88dc813ca9600392b0cef7251c96047f666c78e5457fa1e\main.spi
00:07:34 #43193 [verbose] >
00:07:34 #43194 [verbose] > ╭─[ 349.52ms - stdout ]────────────────────────────────────────────────────────╮
00:07:34 #43195 [verbose] > │ type Mut0 = {mutable l0 : int32} │
00:07:34 #43196 [verbose] > │ and Mut1 = {mutable l0 : int32; mutable l1 : float} │
00:07:34 #43197 [verbose] > │ let rec method1 (v0 : Mut0) : bool = │
00:07:34 #43198 [verbose] > │ let v1 : int32 = v0.l0 │
00:07:34 #43199 [verbose] > │ let v2 : bool = v1 < 100 │
00:07:34 #43200 [verbose] > │ v2 │
00:07:34 #43201 [verbose] > │ and method2 (v0 : int32, v1 : Mut0) : bool = │
00:07:34 #43202 [verbose] > │ let v2 : int32 = v1.l0 │
00:07:34 #43203 [verbose] > │ let v3 : bool = v2 < v0 │
00:07:34 #43204 [verbose] > │ v3 │
00:07:34 #43205 [verbose] > │ and method3 (v0 : int32, v1 : Mut1) : bool = │
00:07:34 #43206 [verbose] > │ let v2 : int32 = v1.l0 │
00:07:34 #43207 [verbose] > │ let v3 : bool = v2 < v0 │
00:07:34 #43208 [verbose] > │ v3 │
00:07:34 #43209 [verbose] > │ and method4 (v0 : bool) : bool = │
00:07:34 #43210 [verbose] > │ v0 │
00:07:34 #43211 [verbose] > │ and method0 () : unit = │
00:07:34 #43212 [verbose] > │ let v0 : (float []) = Array.zeroCreate<float> (100) │
00:07:34 #43213 [verbose] > │ let v1 : Mut0 = {l0 = 0} : Mut0 │
00:07:34 #43214 [verbose] > │ while method1(v1) do │
00:07:34 #43215 [verbose] > │ let v3 : int32 = v1.l0 │
00:07:34 #43216 [verbose] > │ let v4 : float = float v3 │
00:07:34 #43217 [verbose] > │ let v5 : float = 0.01 * v4 │
00:07:34 #43218 [verbose] > │ let v6 : float = 0.005 + v5 │
00:07:34 #43219 [verbose] > │ v0.[int v3] <- v6 │
00:07:34 #43220 [verbose] > │ let v7 : int32 = v3 + 1 │
00:07:34 #43221 [verbose] > │ v1.l0 <- v7 │
00:07:34 #43222 [verbose] > │ () │
00:07:34 #43223 [verbose] > │ let v8 : int32 = v0.Length │
00:07:34 #43224 [verbose] > │ let v9 : (float []) = Array.zeroCreate<float> (v8) │
00:07:34 #43225 [verbose] > │ let v10 : Mut0 = {l0 = 0} : Mut0 │
00:07:34 #43226 [verbose] > │ while method2(v8, v10) do │
00:07:34 #43227 [verbose] > │ let v12 : int32 = v10.l0 │
00:07:34 #43228 [verbose] > │ let v13 : float = v0.[int v12] │
00:07:34 #43229 [verbose] > │ let v14 : float = v13 ** 2.0 │
00:07:34 #43230 [verbose] > │ let v15 : float = 0.01 * v14 │
00:07:34 #43231 [verbose] > │ v9.[int v12] <- v15 │
00:07:34 #43232 [verbose] > │ let v16 : int32 = v12 + 1 │
00:07:34 #43233 [verbose] > │ v10.l0 <- v16 │
00:07:34 #43234 [verbose] > │ () │
00:07:34 #43235 [verbose] > │ let v17 : int32 = v9.Length │
00:07:34 #43236 [verbose] > │ let v18 : Mut1 = {l0 = 0; l1 = 0.0} : Mut1 │
00:07:34 #43237 [verbose] > │ while method3(v17, v18) do │
00:07:34 #43238 [verbose] > │ let v20 : int32 = v18.l0 │
00:07:34 #43239 [verbose] > │ let v21 : float = v18.l1 │
00:07:34 #43240 [verbose] > │ let v22 : float = v9.[int v20] │
00:07:34 #43241 [verbose] > │ let v23 : float = v21 + v22 │
00:07:34 #43242 [verbose] > │ let v24 : int32 = v20 + 1 │
00:07:34 #43243 [verbose] > │ v18.l0 <- v24 │
00:07:34 #43244 [verbose] > │ v18.l1 <- v23 │
00:07:34 #43245 [verbose] > │ () │
00:07:34 #43246 [verbose] > │ let v25 : float = v18.l1 │
00:07:34 #43247 [verbose] > │ let v26 : string = $"%A{v25}" │
00:07:34 #43248 [verbose] > │ System.Console.WriteLine v26 │
00:07:34 #43249 [verbose] > │ let v27 : float = 0.3333250000000004 - v25 │
00:07:34 #43250 [verbose] > │ let v28 : float = -v27 │
00:07:34 #43251 [verbose] > │ let v29 : bool = v27 >= v28 │
00:07:34 #43252 [verbose] > │ let v30 : float = │
00:07:34 #43253 [verbose] > │ if v29 then │
00:07:34 #43254 [verbose] > │ v27 │
00:07:34 #43255 [verbose] > │ else │
00:07:34 #43256 [verbose] > │ v28 │
00:07:34 #43257 [verbose] > │ let v31 : bool = v30 < 1E-08 │
00:07:34 #43258 [verbose] > │ let v33 : bool = │
00:07:34 #43259 [verbose] > │ if v31 then │
00:07:34 #43260 [verbose] > │ true │
00:07:34 #43261 [verbose] > │ else │
00:07:34 #43262 [verbose] > │ method4(v31) │
00:07:34 #43263 [verbose] > │ let v34 : string = $"__expect / actual: %A{v25} / expected: │
00:07:34 #43264 [verbose] > │ %A{0.3333250000000004}" │
00:07:34 #43265 [verbose] > │ let v35 : bool = v33 = false │
00:07:34 #43266 [verbose] > │ if v35 then │
00:07:34 #43267 [verbose] > │ failwith<unit> v34 │
00:07:34 #43268 [verbose] > │ method0() │
00:07:34 #43269 [verbose] > │ │
00:07:34 #43270 [verbose] > │ 0.333325 │
00:07:34 #43271 [verbose] > │ │
00:07:34 #43272 [verbose] > ╰──────────────────────────────────────────────────────────────────────────────╯
00:07:34 #43273 [verbose] >
00:07:34 #43274 [verbose] > ── markdown ────────────────────────────────────────────────────────────────────
00:07:34 #43275 [verbose] > ╭──────────────────────────────────────────────────────────────────────────────╮
00:07:34 #43276 [verbose] > │ ## anti_derivative │
00:07:34 #43277 [verbose] > ╰──────────────────────────────────────────────────────────────────────────────╯
00:07:34 #43278 [verbose] >
00:07:34 #43279 [verbose] > ── spiral ──────────────────────────────────────────────────────────────────────
00:07:34 #43280 [verbose] > inl anti_derivative dt v0 a t =
00:07:34 #43281 [verbose] > v0 + integral' dt a 0 t
00:07:34 #43282 [verbose] > Building c:\home\git\polyglot\target\polyglot\spiral_eval\packages\55e768cb3a9e9622467eb06370e2a988eb6f88de1e0623b55822a55aebe17f09\main.spi
00:07:34 #43283 [verbose] >
00:07:34 #43284 [verbose] > ╭─[ 366.14ms - stdout ]────────────────────────────────────────────────────────╮
00:07:34 #43285 [verbose] > │ () │
00:07:34 #43286 [verbose] > │ │
00:07:34 #43287 [verbose] > │ │
00:07:34 #43288 [verbose] > ╰──────────────────────────────────────────────────────────────────────────────╯
00:07:34 #43289 [verbose] >
00:07:34 #43290 [verbose] > ── markdown ────────────────────────────────────────────────────────────────────
00:07:34 #43291 [verbose] > ╭──────────────────────────────────────────────────────────────────────────────╮
00:07:34 #43292 [verbose] > │ ## velocity_ft │
00:07:34 #43293 [verbose] > ╰──────────────────────────────────────────────────────────────────────────────╯
00:07:34 #43294 [verbose] >
00:07:34 #43295 [verbose] > ── spiral ──────────────────────────────────────────────────────────────────────
00:07:34 #43296 [verbose] > type velocity_ft = mass -> velocity -> list (time -> force) -> (time ->
00:07:34 #43297 [verbose] > velocity)
00:07:34 #43298 [verbose] >
00:07:34 #43299 [verbose] > inl velocity_ft dt : velocity_ft =
00:07:34 #43300 [verbose] > fun m v0 fs =>
00:07:34 #43301 [verbose] > inl f_net t = fs |> listm.map (fun f => f t) |> listm'.sum
00:07:34 #43302 [verbose] > inl a t = f_net t / m
00:07:34 #43303 [verbose] > anti_derivative dt v0 a
00:07:34 #43304 [verbose] > Building c:\home\git\polyglot\target\polyglot\spiral_eval\packages\3778ebf84e63226cba964518afaeeaf9c0dea5902f03fcab5cc183aa7d93ebc0\main.spi
00:07:35 #43305 [verbose] >
00:07:35 #43306 [verbose] > ╭─[ 236.60ms - stdout ]────────────────────────────────────────────────────────╮
00:07:35 #43307 [verbose] > │ () │
00:07:35 #43308 [verbose] > │ │
00:07:35 #43309 [verbose] > │ │
00:07:35 #43310 [verbose] > ╰──────────────────────────────────────────────────────────────────────────────╯
00:07:35 #43311 [verbose] >
00:07:35 #43312 [verbose] > ── markdown ────────────────────────────────────────────────────────────────────
00:07:35 #43313 [verbose] > ╭──────────────────────────────────────────────────────────────────────────────╮
00:07:35 #43314 [verbose] > │ ## position_ft │
00:07:35 #43315 [verbose] > ╰──────────────────────────────────────────────────────────────────────────────╯
00:07:35 #43316 [verbose] >
00:07:35 #43317 [verbose] > ── spiral ──────────────────────────────────────────────────────────────────────
00:07:35 #43318 [verbose] > type position_ft = mass -> position -> velocity -> list (time -> force) -> (time
00:07:35 #43319 [verbose] > -> position)
00:07:35 #43320 [verbose] >
00:07:35 #43321 [verbose] > inl position_ft dt : position_ft =
00:07:35 #43322 [verbose] > fun m x0 v0 fs =>
00:07:35 #43323 [verbose] > velocity_ft dt m v0 fs
00:07:35 #43324 [verbose] > |> anti_derivative dt x0
00:07:35 #43325 [verbose] > Building c:\home\git\polyglot\target\polyglot\spiral_eval\packages\c6dd1555aa293e3b17fa82d3fdf5cb5c6e3ff484cae2ac22d894e6ffb410d9b9\main.spi
00:07:35 #43326 [verbose] >
00:07:35 #43327 [verbose] > ╭─[ 224.38ms - stdout ]────────────────────────────────────────────────────────╮
00:07:35 #43328 [verbose] > │ () │
00:07:35 #43329 [verbose] > │ │
00:07:35 #43330 [verbose] > │ │
00:07:35 #43331 [verbose] > ╰──────────────────────────────────────────────────────────────────────────────╯
00:07:35 #43332 [verbose] >
00:07:35 #43333 [verbose] > ── spiral ──────────────────────────────────────────────────────────────────────
00:07:35 #43334 [verbose] > // // test
00:07:35 #43335 [verbose] >
00:07:35 #43336 [verbose] > inl pedal_coast (t : time) : force =
00:07:35 #43337 [verbose] > inl t_cycle = 20
00:07:35 #43338 [verbose] > inl n_complete : i32 = t / t_cycle |> conv
00:07:35 #43339 [verbose] > inl remainder = t - conv n_complete * t_cycle
00:07:35 #43340 [verbose] > if remainder > 0 && remainder < 10
00:07:35 #43341 [verbose] > then 10
00:07:35 #43342 [verbose] > else 0
00:07:35 #43343 [verbose] >
00:07:35 #43344 [verbose] > inl x = am'.init_series -5 45 0.1
00:07:35 #43345 [verbose] > inl y = x |> am.map pedal_coast
00:07:35 #43346 [verbose] > "child pedaling then coasting", "time (s)", "", ;[[ "force on bike (N)", x, y ]]
00:07:35 #43347 [verbose] > Building c:\home\git\polyglot\target\polyglot\spiral_eval\packages\5371a37e5edc073d918011924a497dd6345f2e1e9be452adf722e365e8875f80\main.spi
00:07:35 #43348 [verbose] >
00:07:35 #43349 [verbose] > ╭─[ 296.14ms - return value ]──────────────────────────────────────────────────╮
00:07:35 #43350 [verbose] > │ <svg width="640" height="480" viewBox="0 0 640 480" │
00:07:35 #43351 [verbose] > │ xmlns="http://www.w3.org/2000/svg"> │
00:07:35 #43352 [verbose] > │ <rect x="0" y="0" width="640" height="480" opacity="1" fill="#141414" │
00:07:35 #43353 [verbose] > │ stroke="none"/> │
00:07:35 #43354 [verbose] > │ <text x="320" y="10" dy="0.76em" text-anchor="middle" │
00:07:35 #43355 [verbose] > │ font-family="sans-serif" font-size="9.67741935483871" opacity="1" │
00:07:35 #43356 [verbose] > │ fill="#FFFFFF"> │
00:07:35 #43357 [verbose] > │ child pedaling then coasting │
00:07:35 #43358 [verbose] > │ </text> │
00:07:35 #43359 [verbose] > │ <line opacity="1" stroke="#323232" stroke-width="1" x1="59" y1="424" x2="59" │
00:07:35 #43360 [verbose] > │ y2="75"/> │
00:07:35 #43361 [verbose] > │ <line opacity="1" stroke="#323232" stroke-width="1" x1="69" y1="424" x2="69" │
00:07:35 #43362 [verbose] > │ y2="75"/> │
00:07:35 #43363 [verbose] > │ <line opacity="1" stroke="#323232" stroke-width="1" x1="79" y1="424" x2="79" │
00:07:35 #43364 [verbose] > │ y2="75"/> │
00:07:35 #43365 [verbose] > │ <line opacity="1" stroke="#323232" stroke-width="1" x1="89" y1="424" x2="89" │
00:07:35 #43366 [verbose] > │ y2="75"/> │
00:07:35 #43367 [verbose] > │ <line opacity="1" stroke="#323232" stroke-width="1" x1=... │
00:07:35 #43368 [verbose] > ╰──────────────────────────────────────────────────────────────────────────────╯
00:07:35 #43369 [verbose] >
00:07:35 #43370 [verbose] > ╭─[ 306.62ms - stdout ]────────────────────────────────────────────────────────╮
00:07:35 #43371 [verbose] > │ type Mut0 = {mutable l0 : int32} │
00:07:35 #43372 [verbose] > │ let rec method1 (v0 : Mut0) : bool = │
00:07:35 #43373 [verbose] > │ let v1 : int32 = v0.l0 │
00:07:35 #43374 [verbose] > │ let v2 : bool = v1 < 501 │
00:07:35 #43375 [verbose] > │ v2 │
00:07:35 #43376 [verbose] > │ and method2 (v0 : int32, v1 : Mut0) : bool = │
00:07:35 #43377 [verbose] > │ let v2 : int32 = v1.l0 │
00:07:35 #43378 [verbose] > │ let v3 : bool = v2 < v0 │
00:07:35 #43379 [verbose] > │ v3 │
00:07:35 #43380 [verbose] > │ and method0 () : struct (string * string * string * (struct (string * (float │
00:07:35 #43381 [verbose] > │ []) * (float [])) [])) = │
00:07:35 #43382 [verbose] > │ let v0 : (float []) = Array.zeroCreate<float> (501) │
00:07:35 #43383 [verbose] > │ let v1 : Mut0 = {l0 = 0} : Mut0 │
00:07:35 #43384 [verbose] > │ while method1(v1) do │
00:07:35 #43385 [verbose] > │ let v3 : int32 = v1.l0 │
00:07:35 #43386 [verbose] > │ let v4 : float = float v3 │
00:07:35 #43387 [verbose] > │ let v5 : float = 0.1 * v4 │
00:07:35 #43388 [verbose] > │ let v6 : float = -5.0 + v5 │
00:07:35 #43389 [verbose] > │ v0.[int v3] <- v6 │
00:07:35 #43390 [verbose] > │ let v7 : int32 = v3 + 1 │
00:07:35 #43391 [verbose] > │ v1.l0 <- v7 │
00:07:35 #43392 [verbose] > │ () │
00:07:35 #43393 [verbose] > │ let v8 : int32 = v0.Length │
00:07:35 #43394 [verbose] > │ let v9 : (float []) = Array.zeroCreate<float> (v8) │
00:07:35 #43395 [verbose] > │ let v10 : Mut0 = {l0 = 0} : Mut0 │
00:07:35 #43396 [verbose] > │ while method2(v8, v10) do │
00:07:35 #43397 [verbose] > │ let v12 : int32 = v10.l0 │
00:07:35 #43398 [verbose] > │ let v13 : float = v0.[int v12] │
00:07:35 #43399 [verbose] > │ let v14 : float = v13 / 20.0 │
00:07:35 #43400 [verbose] > │ let v15 : int32 = int32 v14 │
00:07:35 #43401 [verbose] > │ let v16 : float = float v15 │
00:07:35 #43402 [verbose] > │ let v17 : float = v16 * 20.0 │
00:07:35 #43403 [verbose] > │ let v18 : float = v13 - v17 │
00:07:35 #43404 [verbose] > │ let v19 : bool = v18 > 0.0 │
00:07:35 #43405 [verbose] > │ let v21 : bool = │
00:07:35 #43406 [verbose] > │ if v19 then │
00:07:35 #43407 [verbose] > │ let v20 : bool = v18 < 10.0 │
00:07:35 #43408 [verbose] > │ v20 │
00:07:35 #43409 [verbose] > │ else │
00:07:35 #43410 [verbose] > │ false │
00:07:35 #43411 [verbose] > │ let v22 : float = │
00:07:35 #43412 [verbose] > │ if v21 then │
00:07:35 #43413 [verbose] > │ 10.0 │
00:07:35 #43414 [verbose] > │ else │
00:07:35 #43415 [verbose] > │ 0.0 │
00:07:35 #43416 [verbose] > │ v9.[int v12] <- v22 │
00:07:35 #43417 [verbose] > │ let v23 : int32 = v12 + 1 │
00:07:35 #43418 [verbose] > │ v10.l0 <- v23 │
00:07:35 #43419 [verbose] > │ () │
00:07:35 #43420 [verbose] > │ let v24 : string = "force on bike (N)" │
00:07:35 #43421 [verbose] > │ let v25 : (struct (string * (float []) * (float [])) []) = [|struct │
00:07:35 #43422 [verbose] > │ (v24, v0, v9)|] │
00:07:35 #43423 [verbose] > │ let v26 : string = "child pedaling then coasting" │
00:07:35 #43424 [verbose] > │ let v27 : string = "time (s)" │
00:07:35 #43425 [verbose] > │ let v28 : string = "" │
00:07:35 #43426 [verbose] > │ struct (v26, v27, v28, v25) │
00:07:35 #43427 [verbose] > │ method0() │
00:07:35 #43428 [verbose] > │ │
00:07:35 #43429 [verbose] > │ │
00:07:35 #43430 [verbose] > ╰──────────────────────────────────────────────────────────────────────────────╯
00:07:35 #43431 [verbose] >
00:07:35 #43432 [verbose] > ── spiral ──────────────────────────────────────────────────────────────────────
00:07:35 #43433 [verbose] > // // test
00:07:35 #43434 [verbose] >
00:07:35 #43435 [verbose] > inl x = am'.init_series -5 45 1
00:07:35 #43436 [verbose] > inl y = x |> am.map (position_ft 0.1f64 20 0 0 [[ pedal_coast ]])
00:07:35 #43437 [verbose] > "child pedaling then coasting", "time (s)", "", ;[[ "position of bike (m)", x, y
00:07:35 #43438 [verbose] > ]]
00:07:35 #43439 [verbose] > Building c:\home\git\polyglot\target\polyglot\spiral_eval\packages\03f64dd3cbcf9e74d342a8ffe7ca7f380a3f867a6db38b20d2965c1bcdc5a1d1\main.spi
00:07:36 #43440 [verbose] >
00:07:36 #43441 [verbose] > ╭─[ 562.50ms - return value ]──────────────────────────────────────────────────╮
00:07:36 #43442 [verbose] > │ <svg width="640" height="480" viewBox="0 0 640 480" │
00:07:36 #43443 [verbose] > │ xmlns="http://www.w3.org/2000/svg"> │
00:07:36 #43444 [verbose] > │ <rect x="0" y="0" width="640" height="480" opacity="1" fill="#141414" │
00:07:36 #43445 [verbose] > │ stroke="none"/> │
00:07:36 #43446 [verbose] > │ <text x="320" y="10" dy="0.76em" text-anchor="middle" │
00:07:36 #43447 [verbose] > │ font-family="sans-serif" font-size="9.67741935483871" opacity="1" │
00:07:36 #43448 [verbose] > │ fill="#FFFFFF"> │
00:07:36 #43449 [verbose] > │ child pedaling then coasting │
00:07:36 #43450 [verbose] > │ </text> │
00:07:36 #43451 [verbose] > │ <line opacity="1" stroke="#323232" stroke-width="1" x1="59" y1="424" x2="59" │
00:07:36 #43452 [verbose] > │ y2="75"/> │
00:07:36 #43453 [verbose] > │ <line opacity="1" stroke="#323232" stroke-width="1" x1="69" y1="424" x2="69" │
00:07:36 #43454 [verbose] > │ y2="75"/> │
00:07:36 #43455 [verbose] > │ <line opacity="1" stroke="#323232" stroke-width="1" x1="79" y1="424" x2="79" │
00:07:36 #43456 [verbose] > │ y2="75"/> │
00:07:36 #43457 [verbose] > │ <line opacity="1" stroke="#323232" stroke-width="1" x1="89" y1="424" x2="89" │
00:07:36 #43458 [verbose] > │ y2="75"/> │
00:07:36 #43459 [verbose] > │ <line opacity="1" stroke="#323232" stroke-width="1" x1=... │
00:07:36 #43460 [verbose] > ╰──────────────────────────────────────────────────────────────────────────────╯
00:07:36 #43461 [verbose] >
00:07:36 #43462 [verbose] > ╭─[ 574.44ms - stdout ]────────────────────────────────────────────────────────╮
00:07:36 #43463 [verbose] > │ type Mut0 = {mutable l0 : int32} │
00:07:36 #43464 [verbose] > │ and UH0 = │
00:07:36 #43465 [verbose] > │ | UH0_0 │
00:07:36 #43466 [verbose] > │ | UH0_1 of float * UH0 │
00:07:36 #43467 [verbose] > │ let rec method1 (v0 : Mut0) : bool = │
00:07:36 #43468 [verbose] > │ let v1 : int32 = v0.l0 │
00:07:36 #43469 [verbose] > │ let v2 : bool = v1 < 51 │
00:07:36 #43470 [verbose] > │ v2 │
00:07:36 #43471 [verbose] > │ and method2 (v0 : int32, v1 : Mut0) : bool = │
00:07:36 #43472 [verbose] > │ let v2 : int32 = v1.l0 │
00:07:36 #43473 [verbose] > │ let v3 : bool = v2 < v0 │
00:07:36 #43474 [verbose] > │ v3 │
00:07:36 #43475 [verbose] > │ and method3 (v0 : float, v1 : float) : UH0 = │
00:07:36 #43476 [verbose] > │ let v2 : bool = v1 < v0 │
00:07:36 #43477 [verbose] > │ if v2 then │
00:07:36 #43478 [verbose] > │ let v3 : float = 0.1 * v1 │
00:07:36 #43479 [verbose] > │ let v4 : float = 0.05 + v3 │
00:07:36 #43480 [verbose] > │ let v5 : float = v1 + 1.0 │
00:07:36 #43481 [verbose] > │ let v6 : UH0 = method3(v0, v5) │
00:07:36 #43482 [verbose] > │ UH0_1(v4, v6) │
00:07:36 #43483 [verbose] > │ else │
00:07:36 #43484 [verbose] > │ UH0_0 │
00:07:36 #43485 [verbose] > │ and method5 (v0 : UH0, v1 : UH0) : UH0 = │
00:07:36 #43486 [verbose] > │ match v0 with │
00:07:36 #43487 [verbose] > │ | UH0_1(v2, v3) -> (* Cons *) │
00:07:36 #43488 [verbose] > │ let v4 : UH0 = method5(v3, v1) │
00:07:36 #43489 [verbose] > │ let v5 : float = v2 / 20.0 │
00:07:36 #43490 [verbose] > │ let v6 : int32 = int32 v5 │
00:07:36 #43491 [verbose] > │ let v7 : float = float v6 │
00:07:36 #43492 [verbose] > │ let v8 : float = v7 * 20.0 │
00:07:36 #43493 [verbose] > │ let v9 : float = v2 - v8 │
00:07:36 #43494 [verbose] > │ let v10 : bool = v9 > 0.0 │
00:07:36 #43495 [verbose] > │ let v12 : bool = │
00:07:36 #43496 [verbose] > │ if v10 then │
00:07:36 #43497 [verbose] > │ let v11 : bool = v9 < 10.0 │
00:07:36 #43498 [verbose] > │ v11 │
00:07:36 #43499 [verbose] > │ else │
00:07:36 #43500 [verbose] > │ false │
00:07:36 #43501 [verbose] > │ let v13 : float = │
00:07:36 #43502 [verbose] > │ if v12 then │
00:07:36 #43503 [verbose] > │ 10.0 │
00:07:36 #43504 [verbose] > │ else │
00:07:36 #43505 [verbose] > │ 0.0 │
00:07:36 #43506 [verbose] > │ let v14 : float = v13 / 20.0 │
00:07:36 #43507 [verbose] > │ let v15 : float = 0.1 * v14 │
00:07:36 #43508 [verbose] > │ UH0_1(v15, v4) │
00:07:36 #43509 [verbose] > │ | UH0_0 -> (* Nil *) │
00:07:36 #43510 [verbose] > │ v1 │
00:07:36 #43511 [verbose] > │ and method6 (v0 : UH0, v1 : float) : float = │
00:07:36 #43512 [verbose] > │ match v0 with │
00:07:36 #43513 [verbose] > │ | UH0_1(v2, v3) -> (* Cons *) │
00:07:36 #43514 [verbose] > │ let v4 : float = v1 + v2 │
00:07:36 #43515 [verbose] > │ method6(v3, v4) │
00:07:36 #43516 [verbose] > │ | UH0_0 -> (* Nil *) │
00:07:36 #43517 [verbose] > │ v1 │
00:07:36 #43518 [verbose] > │ and method4 (v0 : UH0, v1 : UH0) : UH0 = │
00:07:36 #43519 [verbose] > │ match v0 with │
00:07:36 #43520 [verbose] > │ | UH0_1(v2, v3) -> (* Cons *) │
00:07:36 #43521 [verbose] > │ let v4 : UH0 = method4(v3, v1) │
00:07:36 #43522 [verbose] > │ let v5 : float = v2 - 0.05 │
00:07:36 #43523 [verbose] > │ let v6 : float = v5 - 0.05 │
00:07:36 #43524 [verbose] > │ let v7 : float = v6 / 0.1 │
00:07:36 #43525 [verbose] > │ let v8 : float = v7 + 1.0 │
00:07:36 #43526 [verbose] > │ let v9 : float = 0.0 │
00:07:36 #43527 [verbose] > │ let v10 : UH0 = method3(v8, v9) │
00:07:36 #43528 [verbose] > │ let v11 : UH0 = UH0_0 │
00:07:36 #43529 [verbose] > │ let v12 : UH0 = method5(v10, v11) │
00:07:36 #43530 [verbose] > │ let v13 : float = 0.0 │
00:07:36 #43531 [verbose] > │ let v14 : float = method6(v12, v13) │
00:07:36 #43532 [verbose] > │ let v15 : float = 0.1 * v14 │
00:07:36 #43533 [verbose] > │ UH0_1(v15, v4) │
00:07:36 #43534 [verbose] > │ | UH0_0 -> (* Nil *) │
00:07:36 #43535 [verbose] > │ v1 │
00:07:36 #43536 [verbose] > │ and method0 () : struct (string * string * string * (struct (string * (float │
00:07:36 #43537 [verbose] > │ []) * (float [])) [])) = │
00:07:36 #43538 [verbose] > │ let v0 : (float []) = Array.zeroCreate<float> (51) │
00:07:36 #43539 [verbose] > │ let v1 : Mut0 = {l0 = 0} : Mut0 │
00:07:36 #43540 [verbose] > │ while method1(v1) do │
00:07:36 #43541 [verbose] > │ let v3 : int32 = v1.l0 │
00:07:36 #43542 [verbose] > │ let v4 : float = float v3 │
00:07:36 #43543 [verbose] > │ let v5 : float = -5.0 + v4 │
00:07:36 #43544 [verbose] > │ v0.[int v3] <- v5 │
00:07:36 #43545 [verbose] > │ let v6 : int32 = v3 + 1 │
00:07:36 #43546 [verbose] > │ v1.l0 <- v6 │
00:07:36 #43547 [verbose] > │ () │
00:07:36 #43548 [verbose] > │ let v7 : int32 = v0.Length │
00:07:36 #43549 [verbose] > │ let v8 : (float []) = Array.zeroCreate<float> (v7) │
00:07:36 #43550 [verbose] > │ let v9 : Mut0 = {l0 = 0} : Mut0 │
00:07:36 #43551 [verbose] > │ while method2(v7, v9) do │
00:07:36 #43552 [verbose] > │ let v11 : int32 = v9.l0 │
00:07:36 #43553 [verbose] > │ let v12 : float = v0.[int v11] │
00:07:36 #43554 [verbose] > │ let v13 : float = v12 - 0.05 │
00:07:36 #43555 [verbose] > │ let v14 : float = v13 - 0.05 │
00:07:36 #43556 [verbose] > │ let v15 : float = v14 / 0.1 │
00:07:36 #43557 [verbose] > │ let v16 : float = v15 + 1.0 │
00:07:36 #43558 [verbose] > │ let v17 : float = 0.0 │
00:07:36 #43559 [verbose] > │ let v18 : UH0 = method3(v16, v17) │
00:07:36 #43560 [verbose] > │ let v19 : UH0 = UH0_0 │
00:07:36 #43561 [verbose] > │ let v20 : UH0 = method4(v18, v19) │
00:07:36 #43562 [verbose] > │ let v21 : float = 0.0 │
00:07:36 #43563 [verbose] > │ let v22 : float = method6(v20, v21) │
00:07:36 #43564 [verbose] > │ v8.[int v11] <- v22 │
00:07:36 #43565 [verbose] > │ let v23 : int32 = v11 + 1 │
00:07:36 #43566 [verbose] > │ v9.l0 <- v23 │
00:07:36 #43567 [verbose] > │ () │
00:07:36 #43568 [verbose] > │ let v24 : string = "position of bike (m)" │
00:07:36 #43569 [verbose] > │ let v25 : (struct (string * (float []) * (float [])) []) = [|struct │
00:07:36 #43570 [verbose] > │ (v24, v0, v8)|] │
00:07:36 #43571 [verbose] > │ let v26 : string = "child pedaling then coasting" │
00:07:36 #43572 [verbose] > │ let v27 : string = "time (s)" │
00:07:36 #43573 [verbose] > │ let v28 : string = "" │
00:07:36 #43574 [verbose] > │ struct (v26, v27, v28, v25) │
00:07:36 #43575 [verbose] > │ method0() │
00:07:36 #43576 [verbose] > │ │
00:07:36 #43577 [verbose] > │ │
00:07:36 #43578 [verbose] > ╰──────────────────────────────────────────────────────────────────────────────╯
00:07:36 #43579 [verbose] >
00:07:36 #43580 [verbose] > ── markdown ────────────────────────────────────────────────────────────────────
00:07:36 #43581 [verbose] > ╭──────────────────────────────────────────────────────────────────────────────╮
00:07:36 #43582 [verbose] > │ ## velocity_fv │
00:07:36 #43583 [verbose] > ╰──────────────────────────────────────────────────────────────────────────────╯
00:07:36 #43584 [verbose] >
00:07:36 #43585 [verbose] > ── spiral ──────────────────────────────────────────────────────────────────────
00:07:36 #43586 [verbose] > inl newton_second_v m fs v0 =
00:07:36 #43587 [verbose] > fs |> listm.map (fun f => f v0) |> listm'.sum |> fun x => x / m
00:07:36 #43588 [verbose] >
00:07:36 #43589 [verbose] > inl update_velocity dt m fs v0 =
00:07:36 #43590 [verbose] > v0 + newton_second_v m fs v0 * dt
00:07:36 #43591 [verbose] >
00:07:36 #43592 [verbose] > inl velocity_fv dt m v0 fs t =
00:07:36 #43593 [verbose] > stream.iterate (update_velocity dt m fs) v0
00:07:36 #43594 [verbose] > |> stream.try_item (t / dt |> math.round |> abs)
00:07:36 #43595 [verbose] > |> optionm'.default_value 0
00:07:36 #43596 [verbose] > Building c:\home\git\polyglot\target\polyglot\spiral_eval\packages\8cadf054706247d4ee5bf28641c441c60f932a80e14a9250eb6865364a77c574\main.spi
00:07:36 #43597 [verbose] >
00:07:36 #43598 [verbose] > ╭─[ 231.26ms - stdout ]────────────────────────────────────────────────────────╮
00:07:36 #43599 [verbose] > │ () │
00:07:36 #43600 [verbose] > │ │
00:07:36 #43601 [verbose] > │ │
00:07:36 #43602 [verbose] > ╰──────────────────────────────────────────────────────────────────────────────╯
00:07:36 #43603 [verbose] >
00:07:36 #43604 [verbose] > ── spiral ──────────────────────────────────────────────────────────────────────
00:07:36 #43605 [verbose] > inl f_air drag rho area v =
00:07:36 #43606 [verbose] > -drag * rho * area * abs v * v / 2
00:07:36 #43607 [verbose] > Building c:\home\git\polyglot\target\polyglot\spiral_eval\packages\cc5a41ae5dcbb87ee1a4b829dcfa9e0c12560e76c647f8ce967cddfdcaaf2f66\main.spi
00:07:36 #43608 [verbose] >
00:07:36 #43609 [verbose] > ╭─[ 240.58ms - stdout ]────────────────────────────────────────────────────────╮
00:07:36 #43610 [verbose] > │ () │
00:07:36 #43611 [verbose] > │ │
00:07:36 #43612 [verbose] > │ │
00:07:36 #43613 [verbose] > ╰──────────────────────────────────────────────────────────────────────────────╯
00:07:36 #43614 [verbose] >
00:07:36 #43615 [verbose] > ── spiral ──────────────────────────────────────────────────────────────────────
00:07:36 #43616 [verbose] > // // test
00:07:36 #43617 [verbose] >
00:07:36 #43618 [verbose] > inl x = am'.init_series 0 60 0.5
00:07:36 #43619 [verbose] > inl y = x |> am.map (velocity_fv 1 70 0f64 [[ fun _ => 100; f_air 2 1.225 0.6
00:07:36 #43620 [verbose] > ]])
00:07:36 #43621 [verbose] > "bike velocity", "time (s)", "", ;[[ "velocity of bike (m/s)", x, y ]]
00:07:36 #43622 [verbose] > Building c:\home\git\polyglot\target\polyglot\spiral_eval\packages\df5ae175ebd026d4f654fd4d886465d5ad9c6418a4000cd04bbc9a134409e037\main.spi
00:07:37 #43623 [verbose] >
00:07:37 #43624 [verbose] > ╭─[ 539.37ms - return value ]──────────────────────────────────────────────────╮
00:07:37 #43625 [verbose] > │ <svg width="640" height="480" viewBox="0 0 640 480" │
00:07:37 #43626 [verbose] > │ xmlns="http://www.w3.org/2000/svg"> │
00:07:37 #43627 [verbose] > │ <rect x="0" y="0" width="640" height="480" opacity="1" fill="#141414" │
00:07:37 #43628 [verbose] > │ stroke="none"/> │
00:07:37 #43629 [verbose] > │ <text x="320" y="10" dy="0.76em" text-anchor="middle" │
00:07:37 #43630 [verbose] > │ font-family="sans-serif" font-size="9.67741935483871" opacity="1" │
00:07:37 #43631 [verbose] > │ fill="#FFFFFF"> │
00:07:37 #43632 [verbose] > │ bike velocity │
00:07:37 #43633 [verbose] > │ </text> │
00:07:37 #43634 [verbose] > │ <line opacity="1" stroke="#323232" stroke-width="1" x1="61" y1="424" x2="61" │
00:07:37 #43635 [verbose] > │ y2="75"/> │
00:07:37 #43636 [verbose] > │ <line opacity="1" stroke="#323232" stroke-width="1" x1="69" y1="424" x2="69" │
00:07:37 #43637 [verbose] > │ y2="75"/> │
00:07:37 #43638 [verbose] > │ <line opacity="1" stroke="#323232" stroke-width="1" x1="78" y1="424" x2="78" │
00:07:37 #43639 [verbose] > │ y2="75"/> │
00:07:37 #43640 [verbose] > │ <line opacity="1" stroke="#323232" stroke-width="1" x1="86" y1="424" x2="86" │
00:07:37 #43641 [verbose] > │ y2="75"/> │
00:07:37 #43642 [verbose] > │ <line opacity="1" stroke="#323232" stroke-width="1" x1="94" y1="424" x... │
00:07:37 #43643 [verbose] > ╰──────────────────────────────────────────────────────────────────────────────╯
00:07:37 #43644 [verbose] >
00:07:37 #43645 [verbose] > ╭─[ 555.38ms - stdout ]────────────────────────────────────────────────────────╮
00:07:37 #43646 [verbose] > │ type Mut0 = {mutable l0 : int32} │
00:07:37 #43647 [verbose] > │ and UH0 = │
00:07:37 #43648 [verbose] > │ | UH0_0 of float * (unit -> UH0) │
00:07:37 #43649 [verbose] > │ | UH0_1 │
00:07:37 #43650 [verbose] > │ and [<Struct>] US0 = │
00:07:37 #43651 [verbose] > │ | US0_0 of f0_0 : float │
00:07:37 #43652 [verbose] > │ | US0_1 │
00:07:37 #43653 [verbose] > │ let rec method1 (v0 : Mut0) : bool = │
00:07:37 #43654 [verbose] > │ let v1 : int32 = v0.l0 │
00:07:37 #43655 [verbose] > │ let v2 : bool = v1 < 121 │
00:07:37 #43656 [verbose] > │ v2 │
00:07:37 #43657 [verbose] > │ and method2 (v0 : int32, v1 : Mut0) : bool = │
00:07:37 #43658 [verbose] > │ let v2 : int32 = v1.l0 │
00:07:37 #43659 [verbose] > │ let v3 : bool = v2 < v0 │
00:07:37 #43660 [verbose] > │ v3 │
00:07:37 #43661 [verbose] > │ and closure129 () () : UH0 = │
00:07:37 #43662 [verbose] > │ let v0 : (unit -> UH0) = closure129() │
00:07:37 #43663 [verbose] > │ UH0_0(11.664236870396083, v0) │
00:07:37 #43664 [verbose] > │ and closure128 () () : UH0 = │
00:07:37 #43665 [verbose] > │ let v0 : (unit -> UH0) = closure129() │
00:07:37 #43666 [verbose] > │ UH0_0(11.664236870396081, v0) │
00:07:37 #43667 [verbose] > │ and closure127 () () : UH0 = │
00:07:37 #43668 [verbose] > │ let v0 : (unit -> UH0) = closure128() │
00:07:37 #43669 [verbose] > │ UH0_0(11.66423687039608, v0) │
00:07:37 #43670 [verbose] > │ and closure126 () () : UH0 = │
00:07:37 #43671 [verbose] > │ let v0 : (unit -> UH0) = closure127() │
00:07:37 #43672 [verbose] > │ UH0_0(11.664236870396078, v0) │
00:07:37 #43673 [verbose] > │ and closure125 () () : UH0 = │
00:07:37 #43674 [verbose] > │ let v0 : (unit -> UH0) = closure126() │
00:07:37 #43675 [verbose] > │ UH0_0(11.664236870396074, v0) │
00:07:37 #43676 [verbose] > │ and closure124 () () : UH0 = │
00:07:37 #43677 [verbose] > │ let v0 : (unit -> UH0) = closure125() │
00:07:37 #43678 [verbose] > │ UH0_0(11.66423687039607, v0) │
00:07:37 #43679 [verbose] > │ and closure123 () () : UH0 = │
00:07:37 #43680 [verbose] > │ let v0 : (unit -> UH0) = closure124() │
00:07:37 #43681 [verbose] > │ UH0_0(11.664236870396065, v0) │
00:07:37 #43682 [verbose] > │ and closure122 () () : UH0 = │
00:07:37 #43683 [verbose] > │ let v0 : (unit -> UH0) = closure123() │
00:07:37 #43684 [verbose] > │ UH0_0(11.664236870396058, v0) │
00:07:37 #43685 [verbose] > │ and closure121 () () : UH0 = │
00:07:37 #43686 [verbose] > │ let v0 : (unit -> UH0) = closure122() │
00:07:37 #43687 [verbose] > │ UH0_0(11.66423687039605, v0) │
00:07:37 #43688 [verbose] > │ and closure120 () () : UH0 = │
00:07:37 #43689 [verbose] > │ let v0 : (unit -> UH0) = closure121() │
00:07:37 #43690 [verbose] > │ UH0_0(11.664236870396037, v0) │
00:07:37 #43691 [verbose] > │ and closure119 () () : UH0 = │
00:07:37 #43692 [verbose] > │ let v0 : (unit -> UH0) = closure120() │
00:07:37 #43693 [verbose] > │ UH0_0(11.66423687039602, v0) │
00:07:37 #43694 [verbose] > │ and closure118 () () : UH0 = │
00:07:37 #43695 [verbose] > │ let v0 : (unit -> UH0) = closure119() │
00:07:37 #43696 [verbose] > │ UH0_0(11.664236870396, v0) │
00:07:37 #43697 [verbose] > │ and closure117 () () : UH0 = │
00:07:37 #43698 [verbose] > │ let v0 : (unit -> UH0) = closure118() │
00:07:37 #43699 [verbose] > │ UH0_0(11.664236870395971, v0) │
00:07:37 #43700 [verbose] > │ and closure116 () () : UH0 = │
00:07:37 #43701 [verbose] > │ let v0 : (unit -> UH0) = closure117() │
00:07:37 #43702 [verbose] > │ UH0_0(11.664236870395934, v0) │
00:07:37 #43703 [verbose] > │ and closure115 () () : UH0 = │
00:07:37 #43704 [verbose] > │ let v0 : (unit -> UH0) = closure116() │
00:07:37 #43705 [verbose] > │ UH0_0(11.664236870395884, v0) │
00:07:37 #43706 [verbose] > │ and closure114 () () : UH0 = │
00:07:37 #43707 [verbose] > │ let v0 : (unit -> UH0) = closure115() │
00:07:37 #43708 [verbose] > │ UH0_0(11.664236870395818, v0) │
00:07:37 #43709 [verbose] > │ and closure113 () () : UH0 = │
00:07:37 #43710 [verbose] > │ let v0 : (unit -> UH0) = closure114() │
00:07:37 #43711 [verbose] > │ UH0_0(11.664236870395731, v0) │
00:07:37 #43712 [verbose] > │ and closure112 () () : UH0 = │
00:07:37 #43713 [verbose] > │ let v0 : (unit -> UH0) = closure113() │
00:07:37 #43714 [verbose] > │ UH0_0(11.664236870395616, v0) │
00:07:37 #43715 [verbose] > │ and closure111 () () : UH0 = │
00:07:37 #43716 [verbose] > │ let v0 : (unit -> UH0) = closure112() │
00:07:37 #43717 [verbose] > │ UH0_0(11.664236870395463, v0) │
00:07:37 #43718 [verbose] > │ and closure110 () () : UH0 = │
00:07:37 #43719 [verbose] > │ let v0 : (unit -> UH0) = closure111() │
00:07:37 #43720 [verbose] > │ UH0_0(11.66423687039526, v0) │
00:07:37 #43721 [verbose] > │ and closure109 () () : UH0 = │
00:07:37 #43722 [verbose] > │ let v0 : (unit -> UH0) = closure110() │
00:07:37 #43723 [verbose] > │ UH0_0(11.664236870394992, v0) │
00:07:37 #43724 [verbose] > │ and closure108 () () : UH0 = │
00:07:37 #43725 [verbose] > │ let v0 : (unit -> UH0) = closure109() │
00:07:37 #43726 [verbose] > │ UH0_0(11.664236870394637, v0) │
00:07:37 #43727 [verbose] > │ and closure107 () () : UH0 = │
00:07:37 #43728 [verbose] > │ let v0 : (unit -> UH0) = closure108() │
00:07:37 #43729 [verbose] > │ UH0_0(11.664236870394168, v0) │
00:07:37 #43730 [verbose] > │ and closure106 () () : UH0 = │
00:07:37 #43731 [verbose] > │ let v0 : (unit -> UH0) = closure107() │
00:07:37 #43732 [verbose] > │ UH0_0(11.664236870393546, v0) │
00:07:37 #43733 [verbose] > │ and closure105 () () : UH0 = │
00:07:37 #43734 [verbose] > │ let v0 : (unit -> UH0) = closure106() │
00:07:37 #43735 [verbose] > │ UH0_0(11.664236870392722, v0) │
00:07:37 #43736 [verbose] > │ and closure104 () () : UH0 = │
00:07:37 #43737 [verbose] > │ let v0 : (unit -> UH0) = closure105() │
00:07:37 #43738 [verbose] > │ UH0_0(11.664236870391631, v0) │
00:07:37 #43739 [verbose] > │ and closure103 () () : UH0 = │
00:07:37 #43740 [verbose] > │ let v0 : (unit -> UH0) = closure104() │
00:07:37 #43741 [verbose] > │ UH0_0(11.664236870390187, v0) │
00:07:37 #43742 [verbose] > │ and closure102 () () : UH0 = │
00:07:37 #43743 [verbose] > │ let v0 : (unit -> UH0) = closure103() │
00:07:37 #43744 [verbose] > │ UH0_0(11.664236870388274, v0) │
00:07:37 #43745 [verbose] > │ and closure101 () () : UH0 = │
00:07:37 #43746 [verbose] > │ let v0 : (unit -> UH0) = closure102() │
00:07:37 #43747 [verbose] > │ UH0_0(11.66423687038574, v0) │
00:07:37 #43748 [verbose] > │ and closure100 () () : UH0 = │
00:07:37 #43749 [verbose] > │ let v0 : (unit -> UH0) = closure101() │
00:07:37 #43750 [verbose] > │ UH0_0(11.664236870382384, v0) │
00:07:37 #43751 [verbose] > │ and closure99 () () : UH0 = │
00:07:37 #43752 [verbose] > │ let v0 : (unit -> UH0) = closure100() │
00:07:37 #43753 [verbose] > │ UH0_0(11.664236870377938, v0) │
00:07:37 #43754 [verbose] > │ and closure98 () () : UH0 = │
00:07:37 #43755 [verbose] > │ let v0 : (unit -> UH0) = closure99() │
00:07:37 #43756 [verbose] > │ UH0_0(11.66423687037205, v0) │
00:07:37 #43757 [verbose] > │ and closure97 () () : UH0 = │
00:07:37 #43758 [verbose] > │ let v0 : (unit -> UH0) = closure98() │
00:07:37 #43759 [verbose] > │ UH0_0(11.664236870364254, v0) │
00:07:37 #43760 [verbose] > │ and closure96 () () : UH0 = │
00:07:37 #43761 [verbose] > │ let v0 : (unit -> UH0) = closure97() │
00:07:37 #43762 [verbose] > │ UH0_0(11.664236870353927, v0) │
00:07:37 #43763 [verbose] > │ and closure95 () () : UH0 = │
00:07:37 #43764 [verbose] > │ let v0 : (unit -> UH0) = closure96() │
00:07:37 #43765 [verbose] > │ UH0_0(11.664236870340249, v0) │
00:07:37 #43766 [verbose] > │ and closure94 () () : UH0 = │
00:07:37 #43767 [verbose] > │ let v0 : (unit -> UH0) = closure95() │
00:07:37 #43768 [verbose] > │ UH0_0(11.664236870322135, v0) │
00:07:37 #43769 [verbose] > │ and closure93 () () : UH0 = │
00:07:37 #43770 [verbose] > │ let v0 : (unit -> UH0) = closure94() │
00:07:37 #43771 [verbose] > │ UH0_0(11.664236870298145, v0) │
00:07:37 #43772 [verbose] > │ and closure92 () () : UH0 = │
00:07:37 #43773 [verbose] > │ let v0 : (unit -> UH0) = closure93() │
00:07:37 #43774 [verbose] > │ UH0_0(11.664236870266372, v0) │
00:07:37 #43775 [verbose] > │ and closure91 () () : UH0 = │
00:07:37 #43776 [verbose] > │ let v0 : (unit -> UH0) = closure92() │
00:07:37 #43777 [verbose] > │ UH0_0(11.664236870224292, v0) │
00:07:37 #43778 [verbose] > │ and closure90 () () : UH0 = │
00:07:37 #43779 [verbose] > │ let v0 : (unit -> UH0) = closure91() │
00:07:37 #43780 [verbose] > │ UH0_0(11.66423687016856, v0) │
00:07:37 #43781 [verbose] > │ and closure89 () () : UH0 = │
00:07:37 #43782 [verbose] > │ let v0 : (unit -> UH0) = closure90() │
00:07:37 #43783 [verbose] > │ UH0_0(11.664236870094747, v0) │
00:07:37 #43784 [verbose] > │ and closure88 () () : UH0 = │
00:07:37 #43785 [verbose] > │ let v0 : (unit -> UH0) = closure89() │
00:07:37 #43786 [verbose] > │ UH0_0(11.664236869996989, v0) │
00:07:37 #43787 [verbose] > │ and closure87 () () : UH0 = │
00:07:37 #43788 [verbose] > │ let v0 : (unit -> UH0) = closure88() │
00:07:37 #43789 [verbose] > │ UH0_0(11.664236869867516, v0) │
00:07:37 #43790 [verbose] > │ and closure86 () () : UH0 = │
00:07:37 #43791 [verbose] > │ let v0 : (unit -> UH0) = closure87() │
00:07:37 #43792 [verbose] > │ UH0_0(11.66423686969604, v0) │
00:07:37 #43793 [verbose] > │ and closure85 () () : UH0 = │
00:07:37 #43794 [verbose] > │ let v0 : (unit -> UH0) = closure86() │
00:07:37 #43795 [verbose] > │ UH0_0(11.664236869468937, v0) │
00:07:37 #43796 [verbose] > │ and closure84 () () : UH0 = │
00:07:37 #43797 [verbose] > │ let v0 : (unit -> UH0) = closure85() │
00:07:37 #43798 [verbose] > │ UH0_0(11.664236869168157, v0) │
00:07:37 #43799 [verbose] > │ and closure83 () () : UH0 = │
00:07:37 #43800 [verbose] > │ let v0 : (unit -> UH0) = closure84() │
00:07:37 #43801 [verbose] > │ UH0_0(11.6642368687698, v0) │
00:07:37 #43802 [verbose] > │ and closure82 () () : UH0 = │
00:07:37 #43803 [verbose] > │ let v0 : (unit -> UH0) = closure83() │
00:07:37 #43804 [verbose] > │ UH0_0(11.664236868242211, v0) │
00:07:37 #43805 [verbose] > │ and closure81 () () : UH0 = │
00:07:37 #43806 [verbose] > │ let v0 : (unit -> UH0) = closure82() │
00:07:37 #43807 [verbose] > │ UH0_0(11.664236867543465, v0) │
00:07:37 #43808 [verbose] > │ and closure80 () () : UH0 = │
00:07:37 #43809 [verbose] > │ let v0 : (unit -> UH0) = closure81() │
00:07:37 #43810 [verbose] > │ UH0_0(11.664236866618037, v0) │
00:07:37 #43811 [verbose] > │ and closure79 () () : UH0 = │
00:07:37 #43812 [verbose] > │ let v0 : (unit -> UH0) = closure80() │
00:07:37 #43813 [verbose] > │ UH0_0(11.664236865392386, v0) │
00:07:37 #43814 [verbose] > │ and closure78 () () : UH0 = │
00:07:37 #43815 [verbose] > │ let v0 : (unit -> UH0) = closure79() │
00:07:37 #43816 [verbose] > │ UH0_0(11.664236863769117, v0) │
00:07:37 #43817 [verbose] > │ and closure77 () () : UH0 = │
00:07:37 #43818 [verbose] > │ let v0 : (unit -> UH0) = closure78() │
00:07:37 #43819 [verbose] > │ UH0_0(11.664236861619237, v0) │
00:07:37 #43820 [verbose] > │ and closure76 () () : UH0 = │
00:07:37 #43821 [verbose] > │ let v0 : (unit -> UH0) = closure77() │
00:07:37 #43822 [verbose] > │ UH0_0(11.664236858771906, v0) │
00:07:37 #43823 [verbose] > │ and closure75 () () : UH0 = │
00:07:37 #43824 [verbose] > │ let v0 : (unit -> UH0) = closure76() │
00:07:37 #43825 [verbose] > │ UH0_0(11.66423685500086, v0) │
00:07:37 #43826 [verbose] > │ and closure74 () () : UH0 = │
00:07:37 #43827 [verbose] > │ let v0 : (unit -> UH0) = closure75() │
00:07:37 #43828 [verbose] > │ UH0_0(11.664236850006436, v0) │
00:07:37 #43829 [verbose] > │ and closure73 () () : UH0 = │
00:07:37 #43830 [verbose] > │ let v0 : (unit -> UH0) = closure74() │
00:07:37 #43831 [verbose] > │ UH0_0(11.664236843391752, v0) │
00:07:37 #43832 [verbose] > │ and closure72 () () : UH0 = │
00:07:37 #43833 [verbose] > │ let v0 : (unit -> UH0) = closure73() │
00:07:37 #43834 [verbose] > │ UH0_0(11.664236834631172, v0) │
00:07:37 #43835 [verbose] > │ and closure71 () () : UH0 = │
00:07:37 #43836 [verbose] > │ let v0 : (unit -> UH0) = closure72() │
00:07:37 #43837 [verbose] > │ UH0_0(11.66423682302854, v0) │
00:07:37 #43838 [verbose] > │ and closure70 () () : UH0 = │
00:07:37 #43839 [verbose] > │ let v0 : (unit -> UH0) = closure71() │
00:07:37 #43840 [verbose] > │ UH0_0(11.664236807661855, v0) │
00:07:37 #43841 [verbose] > │ and closure69 () () : UH0 = │
00:07:37 #43842 [verbose] > │ let v0 : (unit -> UH0) = closure70() │
00:07:37 #43843 [verbose] > │ UH0_0(11.664236787310005, v0) │
00:07:37 #43844 [verbose] > │ and closure68 () () : UH0 = │
00:07:37 #43845 [verbose] > │ let v0 : (unit -> UH0) = closure69() │
00:07:37 #43846 [verbose] > │ UH0_0(11.664236760355733, v0) │
00:07:37 #43847 [verbose] > │ and closure67 () () : UH0 = │
00:07:37 #43848 [verbose] > │ let v0 : (unit -> UH0) = closure68() │
00:07:37 #43849 [verbose] > │ UH0_0(11.664236724657123, v0) │
00:07:37 #43850 [verbose] > │ and closure66 () () : UH0 = │
00:07:37 #43851 [verbose] > │ let v0 : (unit -> UH0) = closure67() │
00:07:37 #43852 [verbose] > │ UH0_0(11.66423667737739, v0) │
00:07:37 #43853 [verbose] > │ and closure65 () () : UH0 = │
00:07:37 #43854 [verbose] > │ let v0 : (unit -> UH0) = closure66() │
00:07:37 #43855 [verbose] > │ UH0_0(11.664236614759462, v0) │
00:07:37 #43856 [verbose] > │ and closure64 () () : UH0 = │
00:07:37 #43857 [verbose] > │ let v0 : (unit -> UH0) = closure65() │
00:07:37 #43858 [verbose] > │ UH0_0(11.664236531827415, v0) │
00:07:37 #43859 [verbose] > │ and closure63 () () : UH0 = │
00:07:37 #43860 [verbose] > │ let v0 : (unit -> UH0) = closure64() │
00:07:37 #43861 [verbose] > │ UH0_0(11.664236421991067, v0) │
00:07:37 #43862 [verbose] > │ and closure62 () () : UH0 = │
00:07:37 #43863 [verbose] > │ let v0 : (unit -> UH0) = closure63() │
00:07:37 #43864 [verbose] > │ UH0_0(11.664236276522294, v0) │
00:07:37 #43865 [verbose] > │ and closure61 () () : UH0 = │
00:07:37 #43866 [verbose] > │ let v0 : (unit -> UH0) = closure62() │
00:07:37 #43867 [verbose] > │ UH0_0(11.664236083861448, v0) │
00:07:37 #43868 [verbose] > │ and closure60 () () : UH0 = │
00:07:37 #43869 [verbose] > │ let v0 : (unit -> UH0) = closure61() │
00:07:37 #43870 [verbose] > │ UH0_0(11.664235828698772, v0) │
00:07:37 #43871 [verbose] > │ and closure59 () () : UH0 = │
00:07:37 #43872 [verbose] > │ let v0 : (unit -> UH0) = closure60() │
00:07:37 #43873 [verbose] > │ UH0_0(11.664235490757811, v0) │
00:07:37 #43874 [verbose] > │ and closure58 () () : UH0 = │
00:07:37 #43875 [verbose] > │ let v0 : (unit -> UH0) = closure59() │
00:07:37 #43876 [verbose] > │ UH0_0(11.664235043184158, v0) │
00:07:37 #43877 [verbose] > │ and closure57 () () : UH0 = │
00:07:37 #43878 [verbose] > │ let v0 : (unit -> UH0) = closure58() │
00:07:37 #43879 [verbose] > │ UH0_0(11.66423445041147, v0) │
00:07:37 #43880 [verbose] > │ and closure56 () () : UH0 = │
00:07:37 #43881 [verbose] > │ let v0 : (unit -> UH0) = closure57() │
00:07:37 #43882 [verbose] > │ UH0_0(11.664233665335203, v0) │
00:07:37 #43883 [verbose] > │ and closure55 () () : UH0 = │
00:07:37 #43884 [verbose] > │ let v0 : (unit -> UH0) = closure56() │
00:07:37 #43885 [verbose] > │ UH0_0(11.664232625569467, v0) │
00:07:37 #43886 [verbose] > │ and closure54 () () : UH0 = │
00:07:37 #43887 [verbose] > │ let v0 : (unit -> UH0) = closure55() │
00:07:37 #43888 [verbose] > │ UH0_0(11.664231248489562, v0) │
00:07:37 #43889 [verbose] > │ and closure53 () () : UH0 = │
00:07:37 #43890 [verbose] > │ let v0 : (unit -> UH0) = closure54() │
00:07:37 #43891 [verbose] > │ UH0_0(11.664229424666262, v0) │
00:07:37 #43892 [verbose] > │ and closure52 () () : UH0 = │
00:07:37 #43893 [verbose] > │ let v0 : (unit -> UH0) = closure53() │
00:07:37 #43894 [verbose] > │ UH0_0(11.66422700917009, v0) │
00:07:37 #43895 [verbose] > │ and closure51 () () : UH0 = │
00:07:37 #43896 [verbose] > │ let v0 : (unit -> UH0) = closure52() │
00:07:37 #43897 [verbose] > │ UH0_0(11.664223810054642, v0) │
00:07:37 #43898 [verbose] > │ and closure50 () () : UH0 = │
00:07:37 #43899 [verbose] > │ let v0 : (unit -> UH0) = closure51() │
00:07:37 #43900 [verbose] > │ UH0_0(11.664219573103773, v0) │
00:07:37 #43901 [verbose] > │ and closure49 () () : UH0 = │
00:07:37 #43902 [verbose] > │ let v0 : (unit -> UH0) = closure50() │
00:07:37 #43903 [verbose] > │ UH0_0(11.6642139616307, v0) │
00:07:37 #43904 [verbose] > │ and closure48 () () : UH0 = │
00:07:37 #43905 [verbose] > │ let v0 : (unit -> UH0) = closure49() │
00:07:37 #43906 [verbose] > │ UH0_0(11.664206529723813, v0) │
00:07:37 #43907 [verbose] > │ and closure47 () () : UH0 = │
00:07:37 #43908 [verbose] > │ let v0 : (unit -> UH0) = closure48() │
00:07:37 #43909 [verbose] > │ UH0_0(11.664196686813408, v0) │
00:07:37 #43910 [verbose] > │ and closure46 () () : UH0 = │
00:07:37 #43911 [verbose] > │ let v0 : (unit -> UH0) = closure47() │
00:07:37 #43912 [verbose] > │ UH0_0(11.664183650743945, v0) │
00:07:37 #43913 [verbose] > │ and closure45 () () : UH0 = │
00:07:37 #43914 [verbose] > │ let v0 : (unit -> UH0) = closure46() │
00:07:37 #43915 [verbose] > │ UH0_0(11.664166385623318, v0) │
00:07:37 #43916 [verbose] > │ and closure44 () () : UH0 = │
00:07:37 #43917 [verbose] > │ let v0 : (unit -> UH0) = closure45() │
00:07:37 #43918 [verbose] > │ UH0_0(11.664143519511356, v0) │
00:07:37 #43919 [verbose] > │ and closure43 () () : UH0 = │
00:07:37 #43920 [verbose] > │ let v0 : (unit -> UH0) = closure44() │
00:07:37 #43921 [verbose] > │ UH0_0(11.664113235408447, v0) │
00:07:37 #43922 [verbose] > │ and closure42 () () : UH0 = │
00:07:37 #43923 [verbose] > │ let v0 : (unit -> UH0) = closure43() │
00:07:37 #43924 [verbose] > │ UH0_0(11.66407312688485, v0) │
00:07:37 #43925 [verbose] > │ and closure41 () () : UH0 = │
00:07:37 #43926 [verbose] > │ let v0 : (unit -> UH0) = closure42() │
00:07:37 #43927 [verbose] > │ UH0_0(11.664020006883758, v0) │
00:07:37 #43928 [verbose] > │ and closure40 () () : UH0 = │
00:07:37 #43929 [verbose] > │ let v0 : (unit -> UH0) = closure41() │
00:07:37 #43930 [verbose] > │ UH0_0(11.663949654514292, v0) │
00:07:37 #43931 [verbose] > │ and closure39 () () : UH0 = │
00:07:37 #43932 [verbose] > │ let v0 : (unit -> UH0) = closure40() │
00:07:37 #43933 [verbose] > │ UH0_0(11.663856479730171, v0) │
00:07:37 #43934 [verbose] > │ and closure38 () () : UH0 = │
00:07:37 #43935 [verbose] > │ let v0 : (unit -> UH0) = closure39() │
00:07:37 #43936 [verbose] > │ UH0_0(11.663733079277343, v0) │
00:07:37 #43937 [verbose] > │ and closure37 () () : UH0 = │
00:07:37 #43938 [verbose] > │ let v0 : (unit -> UH0) = closure38() │
00:07:37 #43939 [verbose] > │ UH0_0(11.663569648675777, v0) │
00:07:37 #43940 [verbose] > │ and closure36 () () : UH0 = │
00:07:37 #43941 [verbose] > │ let v0 : (unit -> UH0) = closure37() │
00:07:37 #43942 [verbose] > │ UH0_0(11.663353203599439, v0) │
00:07:37 #43943 [verbose] > │ and closure35 () () : UH0 = │
00:07:37 #43944 [verbose] > │ let v0 : (unit -> UH0) = closure36() │
00:07:37 #43945 [verbose] > │ UH0_0(11.663066548940721, v0) │
00:07:37 #43946 [verbose] > │ and closure34 () () : UH0 = │
00:07:37 #43947 [verbose] > │ let v0 : (unit -> UH0) = closure35() │
00:07:37 #43948 [verbose] > │ UH0_0(11.662686913915445, v0) │
00:07:37 #43949 [verbose] > │ and closure33 () () : UH0 = │
00:07:37 #43950 [verbose] > │ let v0 : (unit -> UH0) = closure34() │
00:07:37 #43951 [verbose] > │ UH0_0(11.662184145236864, v0) │
00:07:37 #43952 [verbose] > │ and closure32 () () : UH0 = │
00:07:37 #43953 [verbose] > │ let v0 : (unit -> UH0) = closure33() │
00:07:37 #43954 [verbose] > │ UH0_0(11.661518315638029, v0) │
00:07:37 #43955 [verbose] > │ and closure31 () () : UH0 = │
00:07:37 #43956 [verbose] > │ let v0 : (unit -> UH0) = closure32() │
00:07:37 #43957 [verbose] > │ UH0_0(11.66063655920926, v0) │
00:07:37 #43958 [verbose] > │ and closure30 () () : UH0 = │
00:07:37 #43959 [verbose] > │ let v0 : (unit -> UH0) = closure31() │
00:07:37 #43960 [verbose] > │ UH0_0(11.659468884709733, v0) │
00:07:37 #43961 [verbose] > │ and closure29 () () : UH0 = │
00:07:37 #43962 [verbose] > │ let v0 : (unit -> UH0) = closure30() │
00:07:37 #43963 [verbose] > │ UH0_0(11.657922638782631, v0) │
00:07:37 #43964 [verbose] > │ and closure28 () () : UH0 = │
00:07:37 #43965 [verbose] > │ let v0 : (unit -> UH0) = closure29() │
00:07:37 #43966 [verbose] > │ UH0_0(11.655875187195818, v0) │
00:07:37 #43967 [verbose] > │ and closure27 () () : UH0 = │
00:07:37 #43968 [verbose] > │ let v0 : (unit -> UH0) = closure28() │
00:07:37 #43969 [verbose] > │ UH0_0(11.653164246713697, v0) │
00:07:37 #43970 [verbose] > │ and closure26 () () : UH0 = │
00:07:37 #43971 [verbose] > │ let v0 : (unit -> UH0) = closure27() │
00:07:37 #43972 [verbose] > │ UH0_0(11.64957512416459, v0) │
00:07:37 #43973 [verbose] > │ and closure25 () () : UH0 = │
00:07:37 #43974 [verbose] > │ let v0 : (unit -> UH0) = closure26() │
00:07:37 #43975 [verbose] > │ UH0_0(11.644823892116417, v0) │
00:07:37 #43976 [verbose] > │ and closure24 () () : UH0 = │
00:07:37 #43977 [verbose] > │ let v0 : (unit -> UH0) = closure25() │
00:07:37 #43978 [verbose] > │ UH0_0(11.63853524018339, v0) │
00:07:37 #43979 [verbose] > │ and closure23 () () : UH0 = │
00:07:37 #43980 [verbose] > │ let v0 : (unit -> UH0) = closure24() │
00:07:37 #43981 [verbose] > │ UH0_0(11.630213374558416, v0) │
00:07:37 #43982 [verbose] > │ and closure22 () () : UH0 = │
00:07:37 #43983 [verbose] > │ let v0 : (unit -> UH0) = closure23() │
00:07:37 #43984 [verbose] > │ UH0_0(11.619203884549703, v0) │
00:07:37 #43985 [verbose] > │ and closure21 () () : UH0 = │
00:07:37 #43986 [verbose] > │ let v0 : (unit -> UH0) = closure22() │
00:07:37 #43987 [verbose] > │ UH0_0(11.604643948207235, v0) │
00:07:37 #43988 [verbose] > │ and closure20 () () : UH0 = │
00:07:37 #43989 [verbose] > │ let v0 : (unit -> UH0) = closure21() │
00:07:37 #43990 [verbose] > │ UH0_0(11.585397618384544, v0) │
00:07:37 #43991 [verbose] > │ and closure19 () () : UH0 = │
00:07:37 #43992 [verbose] > │ let v0 : (unit -> UH0) = closure20() │
00:07:37 #43993 [verbose] > │ UH0_0(11.559972254267073, v0) │
00:07:37 #43994 [verbose] > │ and closure18 () () : UH0 = │
00:07:37 #43995 [verbose] > │ let v0 : (unit -> UH0) = closure19() │
00:07:37 #43996 [verbose] > │ UH0_0(11.526411536153837, v0) │
00:07:37 #43997 [verbose] > │ and closure17 () () : UH0 = │
00:07:37 #43998 [verbose] > │ let v0 : (unit -> UH0) = closure18() │
00:07:37 #43999 [verbose] > │ UH0_0(11.48216011776808, v0) │
00:07:37 #44000 [verbose] > │ and closure16 () () : UH0 = │
00:07:37 #44001 [verbose] > │ let v0 : (unit -> UH0) = closure17() │
00:07:37 #44002 [verbose] > │ UH0_0(11.42389519391233, v0) │
00:07:37 #44003 [verbose] > │ and closure15 () () : UH0 = │
00:07:37 #44004 [verbose] > │ let v0 : (unit -> UH0) = closure16() │
00:07:37 #44005 [verbose] > │ UH0_0(11.347321723441393, v0) │
00:07:37 #44006 [verbose] > │ and closure14 () () : UH0 = │
00:07:37 #44007 [verbose] > │ let v0 : (unit -> UH0) = closure15() │
00:07:37 #44008 [verbose] > │ UH0_0(11.246931775734161, v0) │
00:07:37 #44009 [verbose] > │ and closure13 () () : UH0 = │
00:07:37 #44010 [verbose] > │ let v0 : (unit -> UH0) = closure14() │
00:07:37 #44011 [verbose] > │ UH0_0(11.115736011467376, v0) │
00:07:37 #44012 [verbose] > │ and closure12 () () : UH0 = │
00:07:37 #44013 [verbose] > │ let v0 : (unit -> UH0) = closure13() │
00:07:37 #44014 [verbose] > │ UH0_0(10.94498876251829, v0) │
00:07:37 #44015 [verbose] > │ and closure11 () () : UH0 = │
00:07:37 #44016 [verbose] > │ let v0 : (unit -> UH0) = closure12() │
00:07:37 #44017 [verbose] > │ UH0_0(10.72394989903564, v0) │
00:07:37 #44018 [verbose] > │ and closure10 () () : UH0 = │
00:07:37 #44019 [verbose] > │ let v0 : (unit -> UH0) = closure11() │
00:07:37 #44020 [verbose] > │ UH0_0(10.439758275369812, v0) │
00:07:37 #44021 [verbose] > │ and closure9 () () : UH0 = │
00:07:37 #44022 [verbose] > │ let v0 : (unit -> UH0) = closure10() │
00:07:37 #44023 [verbose] > │ UH0_0(10.077531599826058, v0) │
00:07:37 #44024 [verbose] > │ and closure8 () () : UH0 = │
00:07:37 #44025 [verbose] > │ let v0 : (unit -> UH0) = closure9() │
00:07:37 #44026 [verbose] > │ UH0_0(9.62084761372258, v0) │
00:07:37 #44027 [verbose] > │ and closure7 () () : UH0 = │
00:07:37 #44028 [verbose] > │ let v0 : (unit -> UH0) = closure8() │
00:07:37 #44029 [verbose] > │ UH0_0(9.052781056066443, v0) │
00:07:37 #44030 [verbose] > │ and closure6 () () : UH0 = │
00:07:37 #44031 [verbose] > │ let v0 : (unit -> UH0) = closure7() │
00:07:37 #44032 [verbose] > │ UH0_0(8.357635347880503, v0) │
00:07:37 #44033 [verbose] > │ and closure5 () () : UH0 = │
00:07:37 #44034 [verbose] > │ let v0 : (unit -> UH0) = closure6() │
00:07:37 #44035 [verbose] > │ UH0_0(7.523376447621674, v0) │
00:07:37 #44036 [verbose] > │ and closure4 () () : UH0 = │
00:07:37 #44037 [verbose] > │ let v0 : (unit -> UH0) = closure5() │
00:07:37 #44038 [verbose] > │ UH0_0(6.544529054818572, v0) │
00:07:37 #44039 [verbose] > │ and closure3 () () : UH0 = │
00:07:37 #44040 [verbose] > │ let v0 : (unit -> UH0) = closure4() │
00:07:37 #44041 [verbose] > │ UH0_0(5.424976512996006, v0) │
00:07:37 #44042 [verbose] > │ and closure2 () () : UH0 = │
00:07:37 #44043 [verbose] > │ let v0 : (unit -> UH0) = closure3() │
00:07:37 #44044 [verbose] > │ UH0_0(4.179852321428571, v0) │
00:07:37 #44045 [verbose] > │ and closure1 () () : UH0 = │
00:07:37 #44046 [verbose] > │ let v0 : (unit -> UH0) = closure2() │
00:07:37 #44047 [verbose] > │ UH0_0(2.835714285714286, v0) │
00:07:37 #44048 [verbose] > │ and closure0 () () : UH0 = │
00:07:37 #44049 [verbose] > │ let v0 : (unit -> UH0) = closure1() │
00:07:37 #44050 [verbose] > │ UH0_0(1.4285714285714286, v0) │
00:07:37 #44051 [verbose] > │ and method3 (v0 : float, v1 : UH0) : US0 = │
00:07:37 #44052 [verbose] > │ match v1 with │
00:07:37 #44053 [verbose] > │ | UH0_0(v2, v3) -> (* StreamCons *) │
00:07:37 #44054 [verbose] > │ let v4 : bool = v0 <= 0.0 │
00:07:37 #44055 [verbose] > │ if v4 then │
00:07:37 #44056 [verbose] > │ US0_0(v2) │
00:07:37 #44057 [verbose] > │ else │
00:07:37 #44058 [verbose] > │ let v6 : float = v0 - 1.0 │
00:07:37 #44059 [verbose] > │ let v7 : UH0 = v3 () │
00:07:37 #44060 [verbose] > │ method3(v6, v7) │
00:07:37 #44061 [verbose] > │ | UH0_1 -> (* StreamNil *) │
00:07:37 #44062 [verbose] > │ US0_1 │
00:07:37 #44063 [verbose] > │ and method0 () : struct (string * string * string * (struct (string * (float │
00:07:37 #44064 [verbose] > │ []) * (float [])) [])) = │
00:07:37 #44065 [verbose] > │ let v0 : (float []) = Array.zeroCreate<float> (121) │
00:07:37 #44066 [verbose] > │ let v1 : Mut0 = {l0 = 0} : Mut0 │
00:07:37 #44067 [verbose] > │ while method1(v1) do │
00:07:37 #44068 [verbose] > │ let v3 : int32 = v1.l0 │
00:07:37 #44069 [verbose] > │ let v4 : float = float v3 │
00:07:37 #44070 [verbose] > │ let v5 : float = 0.5 * v4 │
00:07:37 #44071 [verbose] > │ v0.[int v3] <- v5 │
00:07:37 #44072 [verbose] > │ let v6 : int32 = v3 + 1 │
00:07:37 #44073 [verbose] > │ v1.l0 <- v6 │
00:07:37 #44074 [verbose] > │ () │
00:07:37 #44075 [verbose] > │ let v7 : int32 = v0.Length │
00:07:37 #44076 [verbose] > │ let v8 : (float []) = Array.zeroCreate<float> (v7) │
00:07:37 #44077 [verbose] > │ let v9 : Mut0 = {l0 = 0} : Mut0 │
00:07:37 #44078 [verbose] > │ while method2(v7, v9) do │
00:07:37 #44079 [verbose] > │ let v11 : int32 = v9.l0 │
00:07:37 #44080 [verbose] > │ let v12 : float = v0.[int v11] │
00:07:37 #44081 [verbose] > │ let v13 : float = round v12 │
00:07:37 #44082 [verbose] > │ let v14 : float = -v13 │
00:07:37 #44083 [verbose] > │ let v15 : bool = v13 >= v14 │
00:07:37 #44084 [verbose] > │ let v16 : float = │
00:07:37 #44085 [verbose] > │ if v15 then │
00:07:37 #44086 [verbose] > │ v13 │
00:07:37 #44087 [verbose] > │ else │
00:07:37 #44088 [verbose] > │ v14 │
00:07:37 #44089 [verbose] > │ let v17 : float = 0.0 │
00:07:37 #44090 [verbose] > │ let v18 : (unit -> UH0) = closure0() │
00:07:37 #44091 [verbose] > │ let v19 : UH0 = UH0_0(v17, v18) │
00:07:37 #44092 [verbose] > │ let v20 : US0 = method3(v16, v19) │
00:07:37 #44093 [verbose] > │ let v23 : float = │
00:07:37 #44094 [verbose] > │ match v20 with │
00:07:37 #44095 [verbose] > │ | US0_1 -> (* None *) │
00:07:37 #44096 [verbose] > │ 0.0 │
00:07:37 #44097 [verbose] > │ | US0_0(v21) -> (* Some *) │
00:07:37 #44098 [verbose] > │ v21 │
00:07:37 #44099 [verbose] > │ v8.[int v11] <- v23 │
00:07:37 #44100 [verbose] > │ let v24 : int32 = v11 + 1 │
00:07:37 #44101 [verbose] > │ v9.l0 <- v24 │
00:07:37 #44102 [verbose] > │ () │
00:07:37 #44103 [verbose] > │ let v25 : string = "velocity of bike (m/s)" │
00:07:37 #44104 [verbose] > │ let v26 : (struct (string * (float []) * (float [])) []) = [|struct │
00:07:37 #44105 [verbose] > │ (v25, v0, v8)|] │
00:07:37 #44106 [verbose] > │ let v27 : string = "bike velocity" │
00:07:37 #44107 [verbose] > │ let v28 : string = "time (s)" │
00:07:37 #44108 [verbose] > │ let v29 : string = "" │
00:07:37 #44109 [verbose] > │ struct (v27, v28, v29, v26) │
00:07:37 #44110 [verbose] > │ method0() │
00:07:37 #44111 [verbose] > │ │
00:07:37 #44112 [verbose] > │ │
00:07:37 #44113 [verbose] > ╰──────────────────────────────────────────────────────────────────────────────╯
00:07:37 #44114 [verbose] >
00:07:37 #44115 [verbose] > ── markdown ────────────────────────────────────────────────────────────────────
00:07:37 #44116 [verbose] > ╭──────────────────────────────────────────────────────────────────────────────╮
00:07:37 #44117 [verbose] > │ ## velocity_ftv │
00:07:37 #44118 [verbose] > ╰──────────────────────────────────────────────────────────────────────────────╯
00:07:37 #44119 [verbose] >
00:07:37 #44120 [verbose] > ── spiral ──────────────────────────────────────────────────────────────────────
00:07:37 #44121 [verbose] > inl newton_second_tv m fs (t, v0) =
00:07:37 #44122 [verbose] > inl f_net = fs |> listm.map (fun f => f (t, v0)) |> listm'.sum
00:07:37 #44123 [verbose] > inl acc = f_net / m
00:07:37 #44124 [verbose] > 1, acc
00:07:37 #44125 [verbose] >
00:07:37 #44126 [verbose] > inl update_tv dt m fs (t, v0) =
00:07:37 #44127 [verbose] > inl dtdt, dvdt = newton_second_tv m fs (t, v0)
00:07:37 #44128 [verbose] > t + dtdt * dt, v0 + dvdt * dt
00:07:37 #44129 [verbose] >
00:07:37 #44130 [verbose] > inl velocity_ftv dt m tv0 fs t =
00:07:37 #44131 [verbose] > stream.iterate (join update_tv dt m fs) tv0
00:07:37 #44132 [verbose] > |> stream.try_item (t / dt |> math.round |> abs)
00:07:37 #44133 [verbose] > |> optionm.map snd
00:07:37 #44134 [verbose] > |> optionm'.default_value 0
00:07:37 #44135 [verbose] > Building c:\home\git\polyglot\target\polyglot\spiral_eval\packages\d218a9f0d4f71edfddf9edaab957f8fab2b166eece9ba73b5e32b4571d892197\main.spi
00:07:37 #44136 [verbose] >
00:07:37 #44137 [verbose] > ╭─[ 211.42ms - stdout ]────────────────────────────────────────────────────────╮
00:07:37 #44138 [verbose] > │ () │
00:07:37 #44139 [verbose] > │ │
00:07:37 #44140 [verbose] > │ │
00:07:37 #44141 [verbose] > ╰──────────────────────────────────────────────────────────────────────────────╯
00:07:37 #44142 [verbose] >
00:07:37 #44143 [verbose] > ── spiral ──────────────────────────────────────────────────────────────────────
00:07:37 #44144 [verbose] > // // test
00:07:37 #44145 [verbose] >
00:07:37 #44146 [verbose] > inl x = am'.init_series 0 100 0.1
00:07:37 #44147 [verbose] > inl y =
00:07:37 #44148 [verbose] > x
00:07:37 #44149 [verbose] > |> am.map (
00:07:37 #44150 [verbose] > velocity_ftv 0.1 20 (dyn (0, 0)) [[ fun (t, _) => pedal_coast t; fun (_,
00:07:37 #44151 [verbose] > v) => f_air 2 1.225 0.5 v ]]
00:07:37 #44152 [verbose] > )
00:07:37 #44153 [verbose] > "pedaling and coasting with air", "time (s)", "", ;[[ "velocity of bike (m/s)",
00:07:37 #44154 [verbose] > x, y ]]
00:07:37 #44155 [verbose] > Building c:\home\git\polyglot\target\polyglot\spiral_eval\packages\11d81127bc5df6c3de0208718f589d1a44b95a9738be9b46afa4314ff75080c3\main.spi
00:07:38 #44156 [verbose] >
00:07:38 #44157 [verbose] > ╭─[ 503.06ms - return value ]──────────────────────────────────────────────────╮
00:07:38 #44158 [verbose] > │ <svg width="640" height="480" viewBox="0 0 640 480" │
00:07:38 #44159 [verbose] > │ xmlns="http://www.w3.org/2000/svg"> │
00:07:38 #44160 [verbose] > │ <rect x="0" y="0" width="640" height="480" opacity="1" fill="#141414" │
00:07:38 #44161 [verbose] > │ stroke="none"/> │
00:07:38 #44162 [verbose] > │ <text x="320" y="10" dy="0.76em" text-anchor="middle" │
00:07:38 #44163 [verbose] > │ font-family="sans-serif" font-size="9.67741935483871" opacity="1" │
00:07:38 #44164 [verbose] > │ fill="#FFFFFF"> │
00:07:38 #44165 [verbose] > │ pedaling and coasting with air │
00:07:38 #44166 [verbose] > │ </text> │
00:07:38 #44167 [verbose] > │ <line opacity="1" stroke="#323232" stroke-width="1" x1="59" y1="424" x2="59" │
00:07:38 #44168 [verbose] > │ y2="75"/> │
00:07:38 #44169 [verbose] > │ <line opacity="1" stroke="#323232" stroke-width="1" x1="69" y1="424" x2="69" │
00:07:38 #44170 [verbose] > │ y2="75"/> │
00:07:38 #44171 [verbose] > │ <line opacity="1" stroke="#323232" stroke-width="1" x1="79" y1="424" x2="79" │
00:07:38 #44172 [verbose] > │ y2="75"/> │
00:07:38 #44173 [verbose] > │ <line opacity="1" stroke="#323232" stroke-width="1" x1="89" y1="424" x2="89" │
00:07:38 #44174 [verbose] > │ y2="75"/> │
00:07:38 #44175 [verbose] > │ <line opacity="1" stroke="#323232" stroke-width="1" x... │
00:07:38 #44176 [verbose] > ╰──────────────────────────────────────────────────────────────────────────────╯
00:07:38 #44177 [verbose] >
00:07:38 #44178 [verbose] > ╭─[ 513.13ms - stdout ]────────────────────────────────────────────────────────╮
00:07:38 #44179 [verbose] > │ type Mut0 = {mutable l0 : int32} │
00:07:38 #44180 [verbose] > │ and UH0 = │
00:07:38 #44181 [verbose] > │ | UH0_0 of float * float * (unit -> UH0) │
00:07:38 #44182 [verbose] > │ | UH0_1 │
00:07:38 #44183 [verbose] > │ and [<Struct>] US0 = │
00:07:38 #44184 [verbose] > │ | US0_0 of f0_0 : float * f0_1 : float │
00:07:38 #44185 [verbose] > │ | US0_1 │
00:07:38 #44186 [verbose] > │ and [<Struct>] US1 = │
00:07:38 #44187 [verbose] > │ | US1_0 of f0_0 : float │
00:07:38 #44188 [verbose] > │ | US1_1 │
00:07:38 #44189 [verbose] > │ let rec method1 (v0 : Mut0) : bool = │
00:07:38 #44190 [verbose] > │ let v1 : int32 = v0.l0 │
00:07:38 #44191 [verbose] > │ let v2 : bool = v1 < 1001 │
00:07:38 #44192 [verbose] > │ v2 │
00:07:38 #44193 [verbose] > │ and method2 (v0 : int32, v1 : Mut0) : bool = │
00:07:38 #44194 [verbose] > │ let v2 : int32 = v1.l0 │
00:07:38 #44195 [verbose] > │ let v3 : bool = v2 < v0 │
00:07:38 #44196 [verbose] > │ v3 │
00:07:38 #44197 [verbose] > │ and closure0 () struct (v0 : float, v1 : float) : struct (float * float) = │
00:07:38 #44198 [verbose] > │ let v2 : float = -v1 │
00:07:38 #44199 [verbose] > │ let v3 : bool = v1 >= v2 │
00:07:38 #44200 [verbose] > │ let v4 : float = │
00:07:38 #44201 [verbose] > │ if v3 then │
00:07:38 #44202 [verbose] > │ v1 │
00:07:38 #44203 [verbose] > │ else │
00:07:38 #44204 [verbose] > │ v2 │
00:07:38 #44205 [verbose] > │ let v5 : float = -1.225 * v4 │
00:07:38 #44206 [verbose] > │ let v6 : float = v5 * v1 │
00:07:38 #44207 [verbose] > │ let v7 : float = v6 / 2.0 │
00:07:38 #44208 [verbose] > │ let v8 : float = v0 / 20.0 │
00:07:38 #44209 [verbose] > │ let v9 : int32 = int32 v8 │
00:07:38 #44210 [verbose] > │ let v10 : float = float v9 │
00:07:38 #44211 [verbose] > │ let v11 : float = v10 * 20.0 │
00:07:38 #44212 [verbose] > │ let v12 : float = v0 - v11 │
00:07:38 #44213 [verbose] > │ let v13 : bool = v12 > 0.0 │
00:07:38 #44214 [verbose] > │ let v15 : bool = │
00:07:38 #44215 [verbose] > │ if v13 then │
00:07:38 #44216 [verbose] > │ let v14 : bool = v12 < 10.0 │
00:07:38 #44217 [verbose] > │ v14 │
00:07:38 #44218 [verbose] > │ else │
00:07:38 #44219 [verbose] > │ false │
00:07:38 #44220 [verbose] > │ let v16 : float = │
00:07:38 #44221 [verbose] > │ if v15 then │
00:07:38 #44222 [verbose] > │ 10.0 │
00:07:38 #44223 [verbose] > │ else │
00:07:38 #44224 [verbose] > │ 0.0 │
00:07:38 #44225 [verbose] > │ let v17 : float = v16 + v7 │
00:07:38 #44226 [verbose] > │ let v18 : float = v17 / 20.0 │
00:07:38 #44227 [verbose] > │ let v19 : float = v0 + 0.1 │
00:07:38 #44228 [verbose] > │ let v20 : float = v18 * 0.1 │
00:07:38 #44229 [verbose] > │ let v21 : float = v1 + v20 │
00:07:38 #44230 [verbose] > │ struct (v19, v21) │
00:07:38 #44231 [verbose] > │ and method3 () : (struct (float * float) -> struct (float * float)) = │
00:07:38 #44232 [verbose] > │ closure0() │
00:07:38 #44233 [verbose] > │ and closure1 (v0 : (struct (float * float) -> struct (float * float)), v1 : │
00:07:38 #44234 [verbose] > │ float, v2 : float, v3 : float, v4 : float) () : UH0 = │
00:07:38 #44235 [verbose] > │ let struct (v5 : float, v6 : float) = v0 struct (v3, v4) │
00:07:38 #44236 [verbose] > │ let v7 : (unit -> UH0) = closure1(v0, v1, v2, v5, v6) │
00:07:38 #44237 [verbose] > │ UH0_0(v3, v4, v7) │
00:07:38 #44238 [verbose] > │ and method4 (v0 : float, v1 : UH0) : US0 = │
00:07:38 #44239 [verbose] > │ match v1 with │
00:07:38 #44240 [verbose] > │ | UH0_0(v2, v3, v4) -> (* StreamCons *) │
00:07:38 #44241 [verbose] > │ let v5 : bool = v0 <= 0.0 │
00:07:38 #44242 [verbose] > │ if v5 then │
00:07:38 #44243 [verbose] > │ US0_0(v2, v3) │
00:07:38 #44244 [verbose] > │ else │
00:07:38 #44245 [verbose] > │ let v7 : float = v0 - 1.0 │
00:07:38 #44246 [verbose] > │ let v8 : UH0 = v4 () │
00:07:38 #44247 [verbose] > │ method4(v7, v8) │
00:07:38 #44248 [verbose] > │ | UH0_1 -> (* StreamNil *) │
00:07:38 #44249 [verbose] > │ US0_1 │
00:07:38 #44250 [verbose] > │ and method0 () : struct (string * string * string * (struct (string * (float │
00:07:38 #44251 [verbose] > │ []) * (float [])) [])) = │
00:07:38 #44252 [verbose] > │ let v0 : (float []) = Array.zeroCreate<float> (1001) │
00:07:38 #44253 [verbose] > │ let v1 : Mut0 = {l0 = 0} : Mut0 │
00:07:38 #44254 [verbose] > │ while method1(v1) do │
00:07:38 #44255 [verbose] > │ let v3 : int32 = v1.l0 │
00:07:38 #44256 [verbose] > │ let v4 : float = float v3 │
00:07:38 #44257 [verbose] > │ let v5 : float = 0.1 * v4 │
00:07:38 #44258 [verbose] > │ v0.[int v3] <- v5 │
00:07:38 #44259 [verbose] > │ let v6 : int32 = v3 + 1 │
00:07:38 #44260 [verbose] > │ v1.l0 <- v6 │
00:07:38 #44261 [verbose] > │ () │
00:07:38 #44262 [verbose] > │ let v7 : float = 0.0 │
00:07:38 #44263 [verbose] > │ let v8 : float = 0.0 │
00:07:38 #44264 [verbose] > │ let v9 : int32 = v0.Length │
00:07:38 #44265 [verbose] > │ let v10 : (float []) = Array.zeroCreate<float> (v9) │
00:07:38 #44266 [verbose] > │ let v11 : Mut0 = {l0 = 0} : Mut0 │
00:07:38 #44267 [verbose] > │ while method2(v9, v11) do │
00:07:38 #44268 [verbose] > │ let v13 : int32 = v11.l0 │
00:07:38 #44269 [verbose] > │ let v14 : float = v0.[int v13] │
00:07:38 #44270 [verbose] > │ let v15 : (struct (float * float) -> struct (float * float)) = │
00:07:38 #44271 [verbose] > │ method3() │
00:07:38 #44272 [verbose] > │ let struct (v16 : float, v17 : float) = v15 struct (v7, v8) │
00:07:38 #44273 [verbose] > │ let v18 : float = v14 / 0.1 │
00:07:38 #44274 [verbose] > │ let v19 : float = round v18 │
00:07:38 #44275 [verbose] > │ let v20 : float = -v19 │
00:07:38 #44276 [verbose] > │ let v21 : bool = v19 >= v20 │
00:07:38 #44277 [verbose] > │ let v22 : float = │
00:07:38 #44278 [verbose] > │ if v21 then │
00:07:38 #44279 [verbose] > │ v19 │
00:07:38 #44280 [verbose] > │ else │
00:07:38 #44281 [verbose] > │ v20 │
00:07:38 #44282 [verbose] > │ let v23 : (unit -> UH0) = closure1(v15, v7, v8, v16, v17) │
00:07:38 #44283 [verbose] > │ let v24 : UH0 = UH0_0(v7, v8, v23) │
00:07:38 #44284 [verbose] > │ let v25 : US0 = method4(v22, v24) │
00:07:38 #44285 [verbose] > │ let v31 : US1 = │
00:07:38 #44286 [verbose] > │ match v25 with │
00:07:38 #44287 [verbose] > │ | US0_1 -> (* None *) │
00:07:38 #44288 [verbose] > │ US1_1 │
00:07:38 #44289 [verbose] > │ | US0_0(v26, v27) -> (* Some *) │
00:07:38 #44290 [verbose] > │ US1_0(v27) │
00:07:38 #44291 [verbose] > │ let v34 : float = │
00:07:38 #44292 [verbose] > │ match v31 with │
00:07:38 #44293 [verbose] > │ | US1_1 -> (* None *) │
00:07:38 #44294 [verbose] > │ 0.0 │
00:07:38 #44295 [verbose] > │ | US1_0(v32) -> (* Some *) │
00:07:38 #44296 [verbose] > │ v32 │
00:07:38 #44297 [verbose] > │ v10.[int v13] <- v34 │
00:07:38 #44298 [verbose] > │ let v35 : int32 = v13 + 1 │
00:07:38 #44299 [verbose] > │ v11.l0 <- v35 │
00:07:38 #44300 [verbose] > │ () │
00:07:38 #44301 [verbose] > │ let v36 : string = "velocity of bike (m/s)" │
00:07:38 #44302 [verbose] > │ let v37 : (struct (string * (float []) * (float [])) []) = [|struct │
00:07:38 #44303 [verbose] > │ (v36, v0, v10)|] │
00:07:38 #44304 [verbose] > │ let v38 : string = "pedaling and coasting with air" │
00:07:38 #44305 [verbose] > │ let v39 : string = "time (s)" │
00:07:38 #44306 [verbose] > │ let v40 : string = "" │
00:07:38 #44307 [verbose] > │ struct (v38, v39, v40, v37) │
00:07:38 #44308 [verbose] > │ method0() │
00:07:38 #44309 [verbose] > │ │
00:07:38 #44310 [verbose] > │ │
00:07:38 #44311 [verbose] > ╰──────────────────────────────────────────────────────────────────────────────╯
00:07:38 #44312 [verbose] >
00:07:38 #44313 [verbose] > ── markdown ────────────────────────────────────────────────────────────────────
00:07:38 #44314 [verbose] > ╭──────────────────────────────────────────────────────────────────────────────╮
00:07:38 #44315 [verbose] > │ ## velocity_ftxv │
00:07:38 #44316 [verbose] > ╰──────────────────────────────────────────────────────────────────────────────╯
00:07:38 #44317 [verbose] >
00:07:38 #44318 [verbose] > ── spiral ──────────────────────────────────────────────────────────────────────
00:07:38 #44319 [verbose] > nominal state_1d = time * position * velocity
00:07:38 #44320 [verbose] > nominal rrr = f64 * f64 * f64
00:07:38 #44321 [verbose] >
00:07:38 #44322 [verbose] > inl newton_second_1d m fs (state_1d (t, x0, v0)) =
00:07:38 #44323 [verbose] > inl f_net = fs |> listm.map (fun f => f (state_1d (t, x0, v0))) |>
00:07:38 #44324 [verbose] > listm'.sum
00:07:38 #44325 [verbose] > inl acc = f_net / m
00:07:38 #44326 [verbose] > rrr (1f64, v0, acc)
00:07:38 #44327 [verbose] >
00:07:38 #44328 [verbose] > inl euler_1d dt deriv (state_1d (t0, x0, v0) as t) =
00:07:38 #44329 [verbose] > inl (rrr (_, _, dvdt)) = deriv t
00:07:38 #44330 [verbose] > inl t1 = t0 + dt
00:07:38 #44331 [verbose] > inl x1 = x0 + v0 * dt
00:07:38 #44332 [verbose] > inl v1 = v0 + dvdt * dt
00:07:38 #44333 [verbose] > state_1d (t1, x1, v1)
00:07:38 #44334 [verbose] >
00:07:38 #44335 [verbose] > inl update_txv dt m fs =
00:07:38 #44336 [verbose] > newton_second_1d m fs |> euler_1d dt
00:07:38 #44337 [verbose] >
00:07:38 #44338 [verbose] > inl states_txv dt m txv0 fs =
00:07:38 #44339 [verbose] > seq.iterate_ (update_txv dt m fs) txv0
00:07:38 #44340 [verbose] >
00:07:38 #44341 [verbose] > inl velocity_1d sts t =
00:07:38 #44342 [verbose] > inl (state_1d (t0, _, _)) = sts 0
00:07:38 #44343 [verbose] > inl (state_1d (t1, _, _)) = sts 1
00:07:38 #44344 [verbose] > inl dt = t1 - t0
00:07:38 #44345 [verbose] > inl num_steps = t / dt |> math.round |> abs
00:07:38 #44346 [verbose] > inl (state_1d (_, _, v0)) = sts num_steps
00:07:38 #44347 [verbose] > v0
00:07:38 #44348 [verbose] >
00:07:38 #44349 [verbose] > inl velocity_ftxv dt m txv0 fs =
00:07:38 #44350 [verbose] > states_txv dt m txv0 fs |> velocity_1d
00:07:38 #44351 [verbose] >
00:07:38 #44352 [verbose] > inl position_1d sts t =
00:07:38 #44353 [verbose] > inl (state_1d (t0, _, _)) = sts 0
00:07:38 #44354 [verbose] > inl (state_1d (t1, _, _)) = sts 1
00:07:38 #44355 [verbose] > inl dt = t1 - t0
00:07:38 #44356 [verbose] > inl num_steps = t / dt |> math.round |> abs
00:07:38 #44357 [verbose] > inl (state_1d (_, x0, _)) = sts num_steps
00:07:38 #44358 [verbose] > x0
00:07:38 #44359 [verbose] >
00:07:38 #44360 [verbose] > inl position_ftxv dt m txv0 fs =
00:07:38 #44361 [verbose] > states_txv dt m txv0 fs |> position_1d
00:07:38 #44362 [verbose] >
00:07:38 #44363 [verbose] > inl spring_force k (state_1d (_, x0, _)) =
00:07:38 #44364 [verbose] > -k * x0
00:07:38 #44365 [verbose] > Building c:\home\git\polyglot\target\polyglot\spiral_eval\packages\89b3a4095c013cc6473d1bc2bf94e7ef989921c44e204dd9594201600f91ec7a\main.spi
00:07:38 #44366 [verbose] >
00:07:38 #44367 [verbose] > ╭─[ 265.42ms - stdout ]────────────────────────────────────────────────────────╮
00:07:38 #44368 [verbose] > │ () │
00:07:38 #44369 [verbose] > │ │
00:07:38 #44370 [verbose] > │ │
00:07:38 #44371 [verbose] > ╰──────────────────────────────────────────────────────────────────────────────╯
00:07:38 #44372 [verbose] >
00:07:38 #44373 [verbose] > ── spiral ──────────────────────────────────────────────────────────────────────
00:07:38 #44374 [verbose] > // // test
00:07:38 #44375 [verbose] >
00:07:38 #44376 [verbose] > inl damped_ho_forces () =
00:07:38 #44377 [verbose] > [[
00:07:38 #44378 [verbose] > spring_force 0.8
00:07:38 #44379 [verbose] > fun (state_1d (_, _, v0)) => f_air 2 1.225 (pi * math.square 0.02) v0
00:07:38 #44380 [verbose] > fun _ => -0.0027 * 9.80665
00:07:38 #44381 [verbose] > ]]
00:07:38 #44382 [verbose] >
00:07:38 #44383 [verbose] > inl damped_ho_states () =
00:07:38 #44384 [verbose] > states_txv 0.001 0.0027 (state_1d (0, 0.1, 0)) (damped_ho_forces ())
00:07:38 #44385 [verbose] >
00:07:38 #44386 [verbose] > inl pingpong_position t =
00:07:38 #44387 [verbose] > position_ftxv 0.001 0.0027 (state_1d (0, 0.1, 0)) (damped_ho_forces ()) t
00:07:38 #44388 [verbose] >
00:07:38 #44389 [verbose] > inl x : a _ f64 = am'.init_series 0 3 0.01
00:07:38 #44390 [verbose] > inl y = x |> am.map pingpong_position
00:07:38 #44391 [verbose] > "ping pong ball on a slinky", "time (s)", "", ;[[ "position (m)", x, y ]]
00:07:38 #44392 [verbose] > Building c:\home\git\polyglot\target\polyglot\spiral_eval\packages\42e95dd9ca916012d6e31809c95132abe5b9eb77f49dcdee3fa5bf715799e35a\main.spi
00:07:39 #44393 [verbose] >
00:07:39 #44394 [verbose] > ╭─[ 493.29ms - return value ]──────────────────────────────────────────────────╮
00:07:39 #44395 [verbose] > │ <svg width="640" height="480" viewBox="0 0 640 480" │
00:07:39 #44396 [verbose] > │ xmlns="http://www.w3.org/2000/svg"> │
00:07:39 #44397 [verbose] > │ <rect x="0" y="0" width="640" height="480" opacity="1" fill="#141414" │
00:07:39 #44398 [verbose] > │ stroke="none"/> │
00:07:39 #44399 [verbose] > │ <text x="320" y="10" dy="0.76em" text-anchor="middle" │
00:07:39 #44400 [verbose] > │ font-family="sans-serif" font-size="9.67741935483871" opacity="1" │
00:07:39 #44401 [verbose] > │ fill="#FFFFFF"> │
00:07:39 #44402 [verbose] > │ ping pong ball on a slinky │
00:07:39 #44403 [verbose] > │ </text> │
00:07:39 #44404 [verbose] > │ <line opacity="1" stroke="#323232" stroke-width="1" x1="61" y1="424" x2="61" │
00:07:39 #44405 [verbose] > │ y2="75"/> │
00:07:39 #44406 [verbose] > │ <line opacity="1" stroke="#323232" stroke-width="1" x1="69" y1="424" x2="69" │
00:07:39 #44407 [verbose] > │ y2="75"/> │
00:07:39 #44408 [verbose] > │ <line opacity="1" stroke="#323232" stroke-width="1" x1="78" y1="424" x2="78" │
00:07:39 #44409 [verbose] > │ y2="75"/> │
00:07:39 #44410 [verbose] > │ <line opacity="1" stroke="#323232" stroke-width="1" x1="86" y1="424" x2="86" │
00:07:39 #44411 [verbose] > │ y2="75"/> │
00:07:39 #44412 [verbose] > │ <line opacity="1" stroke="#323232" stroke-width="1" x1="9... │
00:07:39 #44413 [verbose] > ╰──────────────────────────────────────────────────────────────────────────────╯
00:07:39 #44414 [verbose] >
00:07:39 #44415 [verbose] > ╭─[ 502.82ms - stdout ]────────────────────────────────────────────────────────╮
00:07:39 #44416 [verbose] > │ type Mut0 = {mutable l0 : int32} │
00:07:39 #44417 [verbose] > │ let rec method1 (v0 : Mut0) : bool = │
00:07:39 #44418 [verbose] > │ let v1 : int32 = v0.l0 │
00:07:39 #44419 [verbose] > │ let v2 : bool = v1 < 301 │
00:07:39 #44420 [verbose] > │ v2 │
00:07:39 #44421 [verbose] > │ and method2 (v0 : int32, v1 : Mut0) : bool = │
00:07:39 #44422 [verbose] > │ let v2 : int32 = v1.l0 │
00:07:39 #44423 [verbose] > │ let v3 : bool = v2 < v0 │
00:07:39 #44424 [verbose] > │ v3 │
00:07:39 #44425 [verbose] > │ and method3 (v0 : float, v1 : float, v2 : float, v3 : float) : struct (float │
00:07:39 #44426 [verbose] > │ * float * float) = │
00:07:39 #44427 [verbose] > │ let v4 : bool = v3 <= 0.0 │
00:07:39 #44428 [verbose] > │ if v4 then │
00:07:39 #44429 [verbose] > │ struct (v0, v1, v2) │
00:07:39 #44430 [verbose] > │ else │
00:07:39 #44431 [verbose] > │ let v5 : float = -v2 │
00:07:39 #44432 [verbose] > │ let v6 : bool = v2 >= v5 │
00:07:39 #44433 [verbose] > │ let v7 : float = │
00:07:39 #44434 [verbose] > │ if v6 then │
00:07:39 #44435 [verbose] > │ v2 │
00:07:39 #44436 [verbose] > │ else │
00:07:39 #44437 [verbose] > │ v5 │
00:07:39 #44438 [verbose] > │ let v8 : float = -0.0030787608005179976 * v7 │
00:07:39 #44439 [verbose] > │ let v9 : float = v8 * v2 │
00:07:39 #44440 [verbose] > │ let v10 : float = v9 / 2.0 │
00:07:39 #44441 [verbose] > │ let v11 : float = -0.8 * v1 │
00:07:39 #44442 [verbose] > │ let v12 : float = v11 + v10 │
00:07:39 #44443 [verbose] > │ let v13 : float = v12 + -0.026477955 │
00:07:39 #44444 [verbose] > │ let v14 : float = v13 / 0.0027 │
00:07:39 #44445 [verbose] > │ let v15 : float = v0 + 0.001 │
00:07:39 #44446 [verbose] > │ let v16 : float = v2 * 0.001 │
00:07:39 #44447 [verbose] > │ let v17 : float = v1 + v16 │
00:07:39 #44448 [verbose] > │ let v18 : float = v14 * 0.001 │
00:07:39 #44449 [verbose] > │ let v19 : float = v2 + v18 │
00:07:39 #44450 [verbose] > │ let v20 : float = v3 - 1.0 │
00:07:39 #44451 [verbose] > │ method3(v15, v17, v19, v20) │
00:07:39 #44452 [verbose] > │ and method0 () : struct (string * string * string * (struct (string * (float │
00:07:39 #44453 [verbose] > │ []) * (float [])) [])) = │
00:07:39 #44454 [verbose] > │ let v0 : (float []) = Array.zeroCreate<float> (301) │
00:07:39 #44455 [verbose] > │ let v1 : Mut0 = {l0 = 0} : Mut0 │
00:07:39 #44456 [verbose] > │ while method1(v1) do │
00:07:39 #44457 [verbose] > │ let v3 : int32 = v1.l0 │
00:07:39 #44458 [verbose] > │ let v4 : float = float v3 │
00:07:39 #44459 [verbose] > │ let v5 : float = 0.01 * v4 │
00:07:39 #44460 [verbose] > │ v0.[int v3] <- v5 │
00:07:39 #44461 [verbose] > │ let v6 : int32 = v3 + 1 │
00:07:39 #44462 [verbose] > │ v1.l0 <- v6 │
00:07:39 #44463 [verbose] > │ () │
00:07:39 #44464 [verbose] > │ let v7 : int32 = v0.Length │
00:07:39 #44465 [verbose] > │ let v8 : (float []) = Array.zeroCreate<float> (v7) │
00:07:39 #44466 [verbose] > │ let v9 : Mut0 = {l0 = 0} : Mut0 │
00:07:39 #44467 [verbose] > │ while method2(v7, v9) do │
00:07:39 #44468 [verbose] > │ let v11 : int32 = v9.l0 │
00:07:39 #44469 [verbose] > │ let v12 : float = v0.[int v11] │
00:07:39 #44470 [verbose] > │ let v13 : float = 0.0 │
00:07:39 #44471 [verbose] > │ let v14 : float = 0.1 │
00:07:39 #44472 [verbose] > │ let v15 : float = 0.0 │
00:07:39 #44473 [verbose] > │ let v16 : float = 0.0 │
00:07:39 #44474 [verbose] > │ let struct (v17 : float, v18 : float, v19 : float) = method3(v13, │
00:07:39 #44475 [verbose] > │ v14, v15, v16) │
00:07:39 #44476 [verbose] > │ let v20 : float = 0.0 │
00:07:39 #44477 [verbose] > │ let v21 : float = 0.1 │
00:07:39 #44478 [verbose] > │ let v22 : float = 0.0 │
00:07:39 #44479 [verbose] > │ let v23 : float = 1.0 │
00:07:39 #44480 [verbose] > │ let struct (v24 : float, v25 : float, v26 : float) = method3(v20, │
00:07:39 #44481 [verbose] > │ v21, v22, v23) │
00:07:39 #44482 [verbose] > │ let v27 : float = v24 - v17 │
00:07:39 #44483 [verbose] > │ let v28 : float = v12 / v27 │
00:07:39 #44484 [verbose] > │ let v29 : float = round v28 │
00:07:39 #44485 [verbose] > │ let v30 : float = -v29 │
00:07:39 #44486 [verbose] > │ let v31 : bool = v29 >= v30 │
00:07:39 #44487 [verbose] > │ let v32 : float = │
00:07:39 #44488 [verbose] > │ if v31 then │
00:07:39 #44489 [verbose] > │ v29 │
00:07:39 #44490 [verbose] > │ else │
00:07:39 #44491 [verbose] > │ v30 │
00:07:39 #44492 [verbose] > │ let v33 : float = 0.0 │
00:07:39 #44493 [verbose] > │ let v34 : float = 0.1 │
00:07:39 #44494 [verbose] > │ let v35 : float = 0.0 │
00:07:39 #44495 [verbose] > │ let struct (v36 : float, v37 : float, v38 : float) = method3(v33, │
00:07:39 #44496 [verbose] > │ v34, v35, v32) │
00:07:39 #44497 [verbose] > │ v8.[int v11] <- v37 │
00:07:39 #44498 [verbose] > │ let v39 : int32 = v11 + 1 │
00:07:39 #44499 [verbose] > │ v9.l0 <- v39 │
00:07:39 #44500 [verbose] > │ () │
00:07:39 #44501 [verbose] > │ let v40 : string = "position (m)" │
00:07:39 #44502 [verbose] > │ let v41 : (struct (string * (float []) * (float [])) []) = [|struct │
00:07:39 #44503 [verbose] > │ (v40, v0, v8)|] │
00:07:39 #44504 [verbose] > │ let v42 : string = "ping pong ball on a slinky" │
00:07:39 #44505 [verbose] > │ let v43 : string = "time (s)" │
00:07:39 #44506 [verbose] > │ let v44 : string = "" │
00:07:39 #44507 [verbose] > │ struct (v42, v43, v44, v41) │
00:07:39 #44508 [verbose] > │ method0() │
00:07:39 #44509 [verbose] > │ │
00:07:39 #44510 [verbose] > │ │
00:07:39 #44511 [verbose] > ╰──────────────────────────────────────────────────────────────────────────────╯
00:07:39 #44512 [verbose] >
00:07:39 #44513 [verbose] > ── spiral ──────────────────────────────────────────────────────────────────────
00:07:39 #44514 [verbose] > // // test
00:07:39 #44515 [verbose] >
00:07:39 #44516 [verbose] > inl pingpong_velocity t =
00:07:39 #44517 [verbose] > velocity_ftxv 0.001 0.0027 (state_1d (0, 0.1, 0)) (damped_ho_forces ()) t
00:07:39 #44518 [verbose] >
00:07:39 #44519 [verbose] > inl x = am'.init_series 0 3 0.01
00:07:39 #44520 [verbose] > inl y = x |> am.map pingpong_velocity
00:07:39 #44521 [verbose] > "ping pong ball on a slinky", "time (s)", "", ;[[ "velocity (m/s)", x, y ]]
00:07:39 #44522 [verbose] > Building c:\home\git\polyglot\target\polyglot\spiral_eval\packages\d2704dacd1f8e675502c0f69600095f04f86eaf392d42da2be925171e1c02caf\main.spi
00:07:39 #44523 [verbose] >
00:07:39 #44524 [verbose] > ╭─[ 316.70ms - return value ]──────────────────────────────────────────────────╮
00:07:39 #44525 [verbose] > │ <svg width="640" height="480" viewBox="0 0 640 480" │
00:07:39 #44526 [verbose] > │ xmlns="http://www.w3.org/2000/svg"> │
00:07:39 #44527 [verbose] > │ <rect x="0" y="0" width="640" height="480" opacity="1" fill="#141414" │
00:07:39 #44528 [verbose] > │ stroke="none"/> │
00:07:39 #44529 [verbose] > │ <text x="320" y="10" dy="0.76em" text-anchor="middle" │
00:07:39 #44530 [verbose] > │ font-family="sans-serif" font-size="9.67741935483871" opacity="1" │
00:07:39 #44531 [verbose] > │ fill="#FFFFFF"> │
00:07:39 #44532 [verbose] > │ ping pong ball on a slinky │
00:07:39 #44533 [verbose] > │ </text> │
00:07:39 #44534 [verbose] > │ <line opacity="1" stroke="#323232" stroke-width="1" x1="61" y1="424" x2="61" │
00:07:39 #44535 [verbose] > │ y2="75"/> │
00:07:39 #44536 [verbose] > │ <line opacity="1" stroke="#323232" stroke-width="1" x1="69" y1="424" x2="69" │
00:07:39 #44537 [verbose] > │ y2="75"/> │
00:07:39 #44538 [verbose] > │ <line opacity="1" stroke="#323232" stroke-width="1" x1="78" y1="424" x2="78" │
00:07:39 #44539 [verbose] > │ y2="75"/> │
00:07:39 #44540 [verbose] > │ <line opacity="1" stroke="#323232" stroke-width="1" x1="86" y1="424" x2="86" │
00:07:39 #44541 [verbose] > │ y2="75"/> │
00:07:39 #44542 [verbose] > │ <line opacity="1" stroke="#323232" stroke-width="1" x1="9... │
00:07:39 #44543 [verbose] > ╰──────────────────────────────────────────────────────────────────────────────╯
00:07:39 #44544 [verbose] >
00:07:39 #44545 [verbose] > ╭─[ 326.99ms - stdout ]────────────────────────────────────────────────────────╮
00:07:39 #44546 [verbose] > │ type Mut0 = {mutable l0 : int32} │
00:07:39 #44547 [verbose] > │ let rec method1 (v0 : Mut0) : bool = │
00:07:39 #44548 [verbose] > │ let v1 : int32 = v0.l0 │
00:07:39 #44549 [verbose] > │ let v2 : bool = v1 < 301 │
00:07:39 #44550 [verbose] > │ v2 │
00:07:39 #44551 [verbose] > │ and method2 (v0 : int32, v1 : Mut0) : bool = │
00:07:39 #44552 [verbose] > │ let v2 : int32 = v1.l0 │
00:07:39 #44553 [verbose] > │ let v3 : bool = v2 < v0 │
00:07:39 #44554 [verbose] > │ v3 │
00:07:39 #44555 [verbose] > │ and method3 (v0 : float, v1 : float, v2 : float, v3 : float) : struct (float │
00:07:39 #44556 [verbose] > │ * float * float) = │
00:07:39 #44557 [verbose] > │ let v4 : bool = v3 <= 0.0 │
00:07:39 #44558 [verbose] > │ if v4 then │
00:07:39 #44559 [verbose] > │ struct (v0, v1, v2) │
00:07:39 #44560 [verbose] > │ else │
00:07:39 #44561 [verbose] > │ let v5 : float = -v2 │
00:07:39 #44562 [verbose] > │ let v6 : bool = v2 >= v5 │
00:07:39 #44563 [verbose] > │ let v7 : float = │
00:07:39 #44564 [verbose] > │ if v6 then │
00:07:39 #44565 [verbose] > │ v2 │
00:07:39 #44566 [verbose] > │ else │
00:07:39 #44567 [verbose] > │ v5 │
00:07:39 #44568 [verbose] > │ let v8 : float = -0.0030787608005179976 * v7 │
00:07:39 #44569 [verbose] > │ let v9 : float = v8 * v2 │
00:07:39 #44570 [verbose] > │ let v10 : float = v9 / 2.0 │
00:07:39 #44571 [verbose] > │ let v11 : float = -0.8 * v1 │
00:07:39 #44572 [verbose] > │ let v12 : float = v11 + v10 │
00:07:39 #44573 [verbose] > │ let v13 : float = v12 + -0.026477955 │
00:07:39 #44574 [verbose] > │ let v14 : float = v13 / 0.0027 │
00:07:39 #44575 [verbose] > │ let v15 : float = v0 + 0.001 │
00:07:39 #44576 [verbose] > │ let v16 : float = v2 * 0.001 │
00:07:39 #44577 [verbose] > │ let v17 : float = v1 + v16 │
00:07:39 #44578 [verbose] > │ let v18 : float = v14 * 0.001 │
00:07:39 #44579 [verbose] > │ let v19 : float = v2 + v18 │
00:07:39 #44580 [verbose] > │ let v20 : float = v3 - 1.0 │
00:07:39 #44581 [verbose] > │ method3(v15, v17, v19, v20) │
00:07:39 #44582 [verbose] > │ and method0 () : struct (string * string * string * (struct (string * (float │
00:07:39 #44583 [verbose] > │ []) * (float [])) [])) = │
00:07:39 #44584 [verbose] > │ let v0 : (float []) = Array.zeroCreate<float> (301) │
00:07:39 #44585 [verbose] > │ let v1 : Mut0 = {l0 = 0} : Mut0 │
00:07:39 #44586 [verbose] > │ while method1(v1) do │
00:07:39 #44587 [verbose] > │ let v3 : int32 = v1.l0 │
00:07:39 #44588 [verbose] > │ let v4 : float = float v3 │
00:07:39 #44589 [verbose] > │ let v5 : float = 0.01 * v4 │
00:07:39 #44590 [verbose] > │ v0.[int v3] <- v5 │
00:07:39 #44591 [verbose] > │ let v6 : int32 = v3 + 1 │
00:07:39 #44592 [verbose] > │ v1.l0 <- v6 │
00:07:39 #44593 [verbose] > │ () │
00:07:39 #44594 [verbose] > │ let v7 : int32 = v0.Length │
00:07:39 #44595 [verbose] > │ let v8 : (float []) = Array.zeroCreate<float> (v7) │
00:07:39 #44596 [verbose] > │ let v9 : Mut0 = {l0 = 0} : Mut0 │
00:07:39 #44597 [verbose] > │ while method2(v7, v9) do │
00:07:39 #44598 [verbose] > │ let v11 : int32 = v9.l0 │
00:07:39 #44599 [verbose] > │ let v12 : float = v0.[int v11] │
00:07:39 #44600 [verbose] > │ let v13 : float = 0.0 │
00:07:39 #44601 [verbose] > │ let v14 : float = 0.1 │
00:07:39 #44602 [verbose] > │ let v15 : float = 0.0 │
00:07:39 #44603 [verbose] > │ let v16 : float = 0.0 │
00:07:39 #44604 [verbose] > │ let struct (v17 : float, v18 : float, v19 : float) = method3(v13, │
00:07:39 #44605 [verbose] > │ v14, v15, v16) │
00:07:39 #44606 [verbose] > │ let v20 : float = 0.0 │
00:07:39 #44607 [verbose] > │ let v21 : float = 0.1 │
00:07:39 #44608 [verbose] > │ let v22 : float = 0.0 │
00:07:39 #44609 [verbose] > │ let v23 : float = 1.0 │
00:07:39 #44610 [verbose] > │ let struct (v24 : float, v25 : float, v26 : float) = method3(v20, │
00:07:39 #44611 [verbose] > │ v21, v22, v23) │
00:07:39 #44612 [verbose] > │ let v27 : float = v24 - v17 │
00:07:39 #44613 [verbose] > │ let v28 : float = v12 / v27 │
00:07:39 #44614 [verbose] > │ let v29 : float = round v28 │
00:07:39 #44615 [verbose] > │ let v30 : float = -v29 │
00:07:39 #44616 [verbose] > │ let v31 : bool = v29 >= v30 │
00:07:39 #44617 [verbose] > │ let v32 : float = │
00:07:39 #44618 [verbose] > │ if v31 then │
00:07:39 #44619 [verbose] > │ v29 │
00:07:39 #44620 [verbose] > │ else │
00:07:39 #44621 [verbose] > │ v30 │
00:07:39 #44622 [verbose] > │ let v33 : float = 0.0 │
00:07:39 #44623 [verbose] > │ let v34 : float = 0.1 │
00:07:39 #44624 [verbose] > │ let v35 : float = 0.0 │
00:07:39 #44625 [verbose] > │ let struct (v36 : float, v37 : float, v38 : float) = method3(v33, │
00:07:39 #44626 [verbose] > │ v34, v35, v32) │
00:07:39 #44627 [verbose] > │ v8.[int v11] <- v38 │
00:07:39 #44628 [verbose] > │ let v39 : int32 = v11 + 1 │
00:07:39 #44629 [verbose] > │ v9.l0 <- v39 │
00:07:39 #44630 [verbose] > │ () │
00:07:39 #44631 [verbose] > │ let v40 : string = "velocity (m/s)" │
00:07:39 #44632 [verbose] > │ let v41 : (struct (string * (float []) * (float [])) []) = [|struct │
00:07:39 #44633 [verbose] > │ (v40, v0, v8)|] │
00:07:39 #44634 [verbose] > │ let v42 : string = "ping pong ball on a slinky" │
00:07:39 #44635 [verbose] > │ let v43 : string = "time (s)" │
00:07:39 #44636 [verbose] > │ let v44 : string = "" │
00:07:39 #44637 [verbose] > │ struct (v42, v43, v44, v41) │
00:07:39 #44638 [verbose] > │ method0() │
00:07:39 #44639 [verbose] > │ │
00:07:39 #44640 [verbose] > │ │
00:07:39 #44641 [verbose] > ╰──────────────────────────────────────────────────────────────────────────────╯
00:07:39 #44642 [verbose] >
00:07:39 #44643 [verbose] > ── markdown ────────────────────────────────────────────────────────────────────
00:07:39 #44644 [verbose] > ╭──────────────────────────────────────────────────────────────────────────────╮
00:07:39 #44645 [verbose] > │ ## shift │
00:07:39 #44646 [verbose] > ╰──────────────────────────────────────────────────────────────────────────────╯
00:07:39 #44647 [verbose] >
00:07:39 #44648 [verbose] > ── spiral ──────────────────────────────────────────────────────────────────────
00:07:39 #44649 [verbose] > type update_function s = s -> s
00:07:39 #44650 [verbose] >
00:07:39 #44651 [verbose] > type differential_equation s ds = s -> ds
00:07:39 #44652 [verbose] >
00:07:39 #44653 [verbose] > type numerical_method s ds = differential_equation s ds -> update_function s
00:07:39 #44654 [verbose] >
00:07:39 #44655 [verbose] >
00:07:39 #44656 [verbose] > inl solver method =
00:07:39 #44657 [verbose] > method >> seq.iterate
00:07:39 #44658 [verbose] > inl solver' method =
00:07:39 #44659 [verbose] > method >> seq.iterate'
00:07:39 #44660 [verbose] > inl solver_ method =
00:07:39 #44661 [verbose] > method >> seq.iterate_
00:07:39 #44662 [verbose] >
00:07:39 #44663 [verbose] >
00:07:39 #44664 [verbose] > inl euler_cromer_1d dt deriv (state_1d (t0, x0, v0) as t) =
00:07:39 #44665 [verbose] > inl (rrr (_, _, dvdt)) = deriv t
00:07:39 #44666 [verbose] > inl t1 = t0 + dt
00:07:39 #44667 [verbose] > inl v1 = v0 + dvdt * dt
00:07:39 #44668 [verbose] > inl x1 = x0 + v1 * dt
00:07:39 #44669 [verbose] > state_1d (t1, x1, v1)
00:07:39 #44670 [verbose] >
00:07:39 #44671 [verbose] > inl update_txv_ec dt m fs =
00:07:39 #44672 [verbose] > euler_cromer_1d dt (newton_second_1d m fs)
00:07:39 #44673 [verbose] >
00:07:39 #44674 [verbose] > prototype (+++) ds : ds -> ds -> ds
00:07:39 #44675 [verbose] > prototype scale ds : f64 -> ds -> ds
00:07:39 #44676 [verbose] >
00:07:39 #44677 [verbose] > instance (+++) rrr = fun (rrr (dtdt0, dxdt0, dvdt0)) (rrr (dtdt1, dxdt1, dvdt1))
00:07:39 #44678 [verbose] > =>
00:07:39 #44679 [verbose] > rrr (dtdt0 + dtdt1, dxdt0 + dxdt1, dvdt0 + dvdt1)
00:07:39 #44680 [verbose] >
00:07:39 #44681 [verbose] > instance scale rrr = fun w (rrr (dtdt0, dxdt0, dvdt0)) =>
00:07:39 #44682 [verbose] > rrr (w * dtdt0, w * dxdt0, w * dvdt0)
00:07:39 #44683 [verbose] >
00:07:39 #44684 [verbose] > prototype shift s : forall ds. f64 -> ds -> s -> s
00:07:39 #44685 [verbose] >
00:07:39 #44686 [verbose] > instance shift state_1d = fun dt ds (state_1d (t, x, v)) =>
00:07:39 #44687 [verbose] > inl dtdt, dxdt, dvdt =
00:07:39 #44688 [verbose] > real
00:07:39 #44689 [verbose] > match ds with
00:07:39 #44690 [verbose] > | rrr x => x
00:07:39 #44691 [verbose] > | state_1d x => x
00:07:39 #44692 [verbose] > state_1d (t + dtdt * dt, x + dxdt * dt, v + dvdt * dt)
00:07:39 #44693 [verbose] >
00:07:39 #44694 [verbose] > inl euler dt deriv st0 =
00:07:39 #44695 [verbose] > shift dt (deriv st0) st0
00:07:39 #44696 [verbose] >
00:07:39 #44697 [verbose] > inl runge_kutta_4 dt deriv st0 =
00:07:39 #44698 [verbose] > inl m0 = deriv st0
00:07:39 #44699 [verbose] > inl m1 = deriv (shift (dt / 2) m0 st0)
00:07:39 #44700 [verbose] > inl m2 = deriv (shift (dt / 2) m1 st0)
00:07:39 #44701 [verbose] > inl m3 = deriv (shift dt m2 st0)
00:07:39 #44702 [verbose] > shift (dt / 6) (m0 +++ m1 +++ m1 +++ m2 +++ m2 +++ m3) st0
00:07:39 #44703 [verbose] >
00:07:39 #44704 [verbose] > inl exponential (_, x0, v0) =
00:07:39 #44705 [verbose] > 1f64, v0, x0
00:07:39 #44706 [verbose] >
00:07:39 #44707 [verbose] > inl of_state_1d (state_1d (t, x, v)) =
00:07:39 #44708 [verbose] > t, x, v
00:07:39 #44709 [verbose] > Building c:\home\git\polyglot\target\polyglot\spiral_eval\packages\4d9b7e5bd2fd17f3c205d926efce1b4f74cfa12c66e517a2ee4ef38bd223be23\main.spi
00:07:39 #44710 [verbose] >
00:07:39 #44711 [verbose] > ╭─[ 230.79ms - stdout ]────────────────────────────────────────────────────────╮
00:07:39 #44712 [verbose] > │ () │
00:07:39 #44713 [verbose] > │ │
00:07:39 #44714 [verbose] > │ │
00:07:39 #44715 [verbose] > ╰──────────────────────────────────────────────────────────────────────────────╯
00:07:39 #44716 [verbose] >
00:07:39 #44717 [verbose] > ── spiral ──────────────────────────────────────────────────────────────────────
00:07:39 #44718 [verbose] > // // test
00:07:39 #44719 [verbose] >
00:07:39 #44720 [verbose] > solver (euler 0.01) (of_state_1d >> exponential >> state_1d) (state_1d (0, 1,
00:07:39 #44721 [verbose] > 1)) 800i32
00:07:39 #44722 [verbose] > |> _assert_eq (state_1d (7.999999999999874, 2864.8311229272326,
00:07:39 #44723 [verbose] > 2864.8311229272326))
00:07:39 #44724 [verbose] >
00:07:39 #44725 [verbose] > solver (euler_cromer_1d 0.1) (of_state_1d >> exponential >> rrr) (state_1d (0,
00:07:39 #44726 [verbose] > 1, 1)) 80i32
00:07:39 #44727 [verbose] > |> _assert_eq (state_1d (7.999999999999988, 3043.379244966009,
00:07:39 #44728 [verbose] > 2895.0121485099035))
00:07:39 #44729 [verbose] >
00:07:39 #44730 [verbose] > solver (runge_kutta_4 1) (of_state_1d >> exponential >> rrr) (state_1d (0, 1,
00:07:39 #44731 [verbose] > 1)) 8i32
00:07:39 #44732 [verbose] > |> _assert_eq (state_1d (8.0, 2894.789038540849, 2894.789038540849))
00:07:39 #44733 [verbose] > Building c:\home\git\polyglot\target\polyglot\spiral_eval\packages\cf687232b760467ad6c5cabe4dd1ba6eb21d6ef972b08c2da6bfbb5b154df643\main.spi
00:07:40 #44734 [verbose] >
00:07:40 #44735 [verbose] > ╭─[ 327.60ms - stdout ]────────────────────────────────────────────────────────╮
00:07:40 #44736 [verbose] > │ let rec method0 () : unit = │
00:07:40 #44737 [verbose] > │ let v0 : string = $"%A{struct (7.999999999999874, 2864.8311229272326, │
00:07:40 #44738 [verbose] > │ 2864.8311229272326)}" │
00:07:40 #44739 [verbose] > │ System.Console.WriteLine v0 │
00:07:40 #44740 [verbose] > │ let v1 : string = $"__expect / actual: %A{struct (7.999999999999874, │
00:07:40 #44741 [verbose] > │ 2864.8311229272326, 2864.8311229272326)} / expected: %A{struct │
00:07:40 #44742 [verbose] > │ (7.999999999999874, 2864.8311229272326, 2864.8311229272326)}" │
00:07:40 #44743 [verbose] > │ let v2 : string = $"%A{struct (7.999999999999988, 3043.379244966009, │
00:07:40 #44744 [verbose] > │ 2895.0121485099035)}" │
00:07:40 #44745 [verbose] > │ System.Console.WriteLine v2 │
00:07:40 #44746 [verbose] > │ let v3 : string = $"__expect / actual: %A{struct (7.999999999999988, │
00:07:40 #44747 [verbose] > │ 3043.379244966009, 2895.0121485099035)} / expected: %A{struct │
00:07:40 #44748 [verbose] > │ (7.999999999999988, 3043.379244966009, 2895.0121485099035)}" │
00:07:40 #44749 [verbose] > │ let v4 : string = $"%A{struct (8.0, 2894.789038540849, │
00:07:40 #44750 [verbose] > │ 2894.789038540849)}" │
00:07:40 #44751 [verbose] > │ System.Console.WriteLine v4 │
00:07:40 #44752 [verbose] > │ let v5 : string = $"__expect / actual: %A{struct (8.0, │
00:07:40 #44753 [verbose] > │ 2894.789038540849, 2894.789038540849)} / expected: %A{struct (8.0, │
00:07:40 #44754 [verbose] > │ 2894.789038540849, 2894.789038540849)}" │
00:07:40 #44755 [verbose] > │ () │
00:07:40 #44756 [verbose] > │ method0() │
00:07:40 #44757 [verbose] > │ │
00:07:40 #44758 [verbose] > │ struct (8.0, 2864.831123, 2864.831123) │
00:07:40 #44759 [verbose] > │ struct (8.0, 3043.379245, 2895.012149) │
00:07:40 #44760 [verbose] > │ struct (8.0, 2894.789039, 2894.789039) │
00:07:40 #44761 [verbose] > │ │
00:07:40 #44762 [verbose] > ╰──────────────────────────────────────────────────────────────────────────────╯
00:07:40 #44763 [verbose] >
00:07:40 #44764 [verbose] > ── markdown ────────────────────────────────────────────────────────────────────
00:07:40 #44765 [verbose] > ╭──────────────────────────────────────────────────────────────────────────────╮
00:07:40 #44766 [verbose] > │ ## vec │
00:07:40 #44767 [verbose] > ╰──────────────────────────────────────────────────────────────────────────────╯
00:07:40 #44768 [verbose] >
00:07:40 #44769 [verbose] > ── spiral ──────────────────────────────────────────────────────────────────────
00:07:40 #44770 [verbose] > type vec =
00:07:40 #44771 [verbose] > {
00:07:40 #44772 [verbose] > x : f64
00:07:40 #44773 [verbose] > y : f64
00:07:40 #44774 [verbose] > z : f64
00:07:40 #44775 [verbose] > }
00:07:40 #44776 [verbose] >
00:07:40 #44777 [verbose] > inl vec x y z : vec =
00:07:40 #44778 [verbose] > { x y z }
00:07:40 #44779 [verbose] > Building c:\home\git\polyglot\target\polyglot\spiral_eval\packages\113688ea39e922be1f2cbea8f3ab1c64a3502d5756c5e284f9b54107aa74b3cd\main.spi
00:07:40 #44780 [verbose] >
00:07:40 #44781 [verbose] > ╭─[ 219.68ms - stdout ]────────────────────────────────────────────────────────╮
00:07:40 #44782 [verbose] > │ () │
00:07:40 #44783 [verbose] > │ │
00:07:40 #44784 [verbose] > │ │
00:07:40 #44785 [verbose] > ╰──────────────────────────────────────────────────────────────────────────────╯
00:07:40 #44786 [verbose] >
00:07:40 #44787 [verbose] > ── spiral ──────────────────────────────────────────────────────────────────────
00:07:40 #44788 [verbose] > // // test
00:07:40 #44789 [verbose] >
00:07:40 #44790 [verbose] > vec 1 2 3 .z
00:07:40 #44791 [verbose] > |> _assert_eq 3
00:07:40 #44792 [verbose] > Building c:\home\git\polyglot\target\polyglot\spiral_eval\packages\8f370e817a347ceb072e3c0fd906893fafc06de25036652b8696960f2f41ba49\main.spi
00:07:40 #44793 [verbose] >
00:07:40 #44794 [verbose] > ╭─[ 240.58ms - stdout ]────────────────────────────────────────────────────────╮
00:07:40 #44795 [verbose] > │ let rec method0 () : unit = │
00:07:40 #44796 [verbose] > │ let v0 : string = $"%A{3.0}" │
00:07:40 #44797 [verbose] > │ System.Console.WriteLine v0 │
00:07:40 #44798 [verbose] > │ let v1 : string = $"__expect / actual: %A{3.0} / expected: %A{3.0}" │
00:07:40 #44799 [verbose] > │ () │
00:07:40 #44800 [verbose] > │ method0() │
00:07:40 #44801 [verbose] > │ │
00:07:40 #44802 [verbose] > │ 3.0 │
00:07:40 #44803 [verbose] > │ │
00:07:40 #44804 [verbose] > ╰──────────────────────────────────────────────────────────────────────────────╯
00:07:40 #44805 [verbose] >
00:07:40 #44806 [verbose] > ── markdown ────────────────────────────────────────────────────────────────────
00:07:40 #44807 [verbose] > ╭──────────────────────────────────────────────────────────────────────────────╮
00:07:40 #44808 [verbose] > │ ### consts │
00:07:40 #44809 [verbose] > ╰──────────────────────────────────────────────────────────────────────────────╯
00:07:40 #44810 [verbose] >
00:07:40 #44811 [verbose] > ── spiral ──────────────────────────────────────────────────────────────────────
00:07:40 #44812 [verbose] > inl i_hat () = vec 1 0 0
00:07:40 #44813 [verbose] > inl j_hat () = vec 0 1 0
00:07:40 #44814 [verbose] > inl k_hat () = vec 0 0 1
00:07:40 #44815 [verbose] > inl zero_vec () = vec 0 0 0
00:07:40 #44816 [verbose] > Building c:\home\git\polyglot\target\polyglot\spiral_eval\packages\806bc6556579b8801c2e7f1a5838f4b19530f2318364f9e0bb45103e18688304\main.spi
00:07:40 #44817 [verbose] >
00:07:40 #44818 [verbose] > ╭─[ 239.15ms - stdout ]────────────────────────────────────────────────────────╮
00:07:40 #44819 [verbose] > │ () │
00:07:40 #44820 [verbose] > │ │
00:07:40 #44821 [verbose] > │ │
00:07:40 #44822 [verbose] > ╰──────────────────────────────────────────────────────────────────────────────╯
00:07:40 #44823 [verbose] >
00:07:40 #44824 [verbose] > ── markdown ────────────────────────────────────────────────────────────────────
00:07:40 #44825 [verbose] > ╭──────────────────────────────────────────────────────────────────────────────╮
00:07:40 #44826 [verbose] > │ ### ^+^ │
00:07:40 #44827 [verbose] > ╰──────────────────────────────────────────────────────────────────────────────╯
00:07:40 #44828 [verbose] >
00:07:40 #44829 [verbose] > ── spiral ──────────────────────────────────────────────────────────────────────
00:07:40 #44830 [verbose] > inl (^+^) (a : vec) (b : vec) =
00:07:40 #44831 [verbose] > vec (a.x + b.x) (a.y + b.y) (a.z + b.z)
00:07:40 #44832 [verbose] > Building c:\home\git\polyglot\target\polyglot\spiral_eval\packages\8f5114f16e22a4b014986489a471908e0697a847154a7ad65c6a04ea22876d13\main.spi
00:07:40 #44833 [verbose] >
00:07:40 #44834 [verbose] > ╭─[ 227.78ms - stdout ]────────────────────────────────────────────────────────╮
00:07:40 #44835 [verbose] > │ () │
00:07:40 #44836 [verbose] > │ │
00:07:40 #44837 [verbose] > │ │
00:07:40 #44838 [verbose] > ╰──────────────────────────────────────────────────────────────────────────────╯
00:07:40 #44839 [verbose] >
00:07:40 #44840 [verbose] > ── spiral ──────────────────────────────────────────────────────────────────────
00:07:40 #44841 [verbose] > // // test
00:07:40 #44842 [verbose] >
00:07:40 #44843 [verbose] > vec 1 2 3 ^+^ vec 4 5 6
00:07:40 #44844 [verbose] > |> _assert_eq (vec 5 7 9)
00:07:41 #44845 [verbose] > Building c:\home\git\polyglot\target\polyglot\spiral_eval\packages\01b0a038126e8a0653a8196f201a6326f4f962458948c0ff5d420011df60fa66\main.spi
00:07:41 #44846 [verbose] >
00:07:41 #44847 [verbose] > ╭─[ 227.80ms - stdout ]────────────────────────────────────────────────────────╮
00:07:41 #44848 [verbose] > │ let rec method0 () : unit = │
00:07:41 #44849 [verbose] > │ let v0 : string = $"%A{struct (5.0, 7.0, 9.0)}" │
00:07:41 #44850 [verbose] > │ System.Console.WriteLine v0 │
00:07:41 #44851 [verbose] > │ let v1 : string = $"__expect / actual: %A{struct (5.0, 7.0, 9.0)} / │
00:07:41 #44852 [verbose] > │ expected: %A{struct (5.0, 7.0, 9.0)}" │
00:07:41 #44853 [verbose] > │ () │
00:07:41 #44854 [verbose] > │ method0() │
00:07:41 #44855 [verbose] > │ │
00:07:41 #44856 [verbose] > │ struct (5.0, 7.0, 9.0) │
00:07:41 #44857 [verbose] > │ │
00:07:41 #44858 [verbose] > ╰──────────────────────────────────────────────────────────────────────────────╯
00:07:41 #44859 [verbose] >
00:07:41 #44860 [verbose] > ── markdown ────────────────────────────────────────────────────────────────────
00:07:41 #44861 [verbose] > ╭──────────────────────────────────────────────────────────────────────────────╮
00:07:41 #44862 [verbose] > │ ### sum_vec │
00:07:41 #44863 [verbose] > ╰──────────────────────────────────────────────────────────────────────────────╯
00:07:41 #44864 [verbose] >
00:07:41 #44865 [verbose] > ── spiral ──────────────────────────────────────────────────────────────────────
00:07:41 #44866 [verbose] > inl sum_vec vs =
00:07:41 #44867 [verbose] > vs |> listm.fold (^+^) (zero_vec ())
00:07:41 #44868 [verbose] > Building c:\home\git\polyglot\target\polyglot\spiral_eval\packages\9261787301f9705e537bdaf77fbc2b02d9d82ac521fc4a65af671d38806a6a18\main.spi
00:07:41 #44869 [verbose] >
00:07:41 #44870 [verbose] > ╭─[ 391.48ms - stdout ]────────────────────────────────────────────────────────╮
00:07:41 #44871 [verbose] > │ () │
00:07:41 #44872 [verbose] > │ │
00:07:41 #44873 [verbose] > │ │
00:07:41 #44874 [verbose] > ╰──────────────────────────────────────────────────────────────────────────────╯
00:07:41 #44875 [verbose] >
00:07:41 #44876 [verbose] > ── spiral ──────────────────────────────────────────────────────────────────────
00:07:41 #44877 [verbose] > // // test
00:07:41 #44878 [verbose] >
00:07:41 #44879 [verbose] > [[ vec 1 2 3; vec 4 5 6 ]]
00:07:41 #44880 [verbose] > |> sum_vec
00:07:41 #44881 [verbose] > |> _assert_eq (vec 5 7 9)
00:07:41 #44882 [verbose] > Building c:\home\git\polyglot\target\polyglot\spiral_eval\packages\d9c699d72c3b1f17d43c509e750577475066860e1565027adcd8ec665cd2cde3\main.spi
00:07:41 #44883 [verbose] >
00:07:41 #44884 [verbose] > ╭─[ 247.51ms - stdout ]────────────────────────────────────────────────────────╮
00:07:41 #44885 [verbose] > │ let rec method0 () : unit = │
00:07:41 #44886 [verbose] > │ let v0 : string = $"%A{struct (5.0, 7.0, 9.0)}" │
00:07:41 #44887 [verbose] > │ System.Console.WriteLine v0 │
00:07:41 #44888 [verbose] > │ let v1 : string = $"__expect / actual: %A{struct (5.0, 7.0, 9.0)} / │
00:07:41 #44889 [verbose] > │ expected: %A{struct (5.0, 7.0, 9.0)}" │
00:07:41 #44890 [verbose] > │ () │
00:07:41 #44891 [verbose] > │ method0() │
00:07:41 #44892 [verbose] > │ │
00:07:41 #44893 [verbose] > │ struct (5.0, 7.0, 9.0) │
00:07:41 #44894 [verbose] > │ │
00:07:41 #44895 [verbose] > ╰──────────────────────────────────────────────────────────────────────────────╯
00:07:41 #44896 [verbose] >
00:07:41 #44897 [verbose] > ── markdown ────────────────────────────────────────────────────────────────────
00:07:41 #44898 [verbose] > ╭──────────────────────────────────────────────────────────────────────────────╮
00:07:41 #44899 [verbose] > │ ### *^ │
00:07:41 #44900 [verbose] > ╰──────────────────────────────────────────────────────────────────────────────╯
00:07:41 #44901 [verbose] >
00:07:41 #44902 [verbose] > ── spiral ──────────────────────────────────────────────────────────────────────
00:07:41 #44903 [verbose] > inl (*^) c { x y z } =
00:07:41 #44904 [verbose] > vec (c * x) (c * y) (c * z)
00:07:42 #44905 [verbose] > Building c:\home\git\polyglot\target\polyglot\spiral_eval\packages\abaae8700f9854712d7db58058ea59c5e646178315ec74d0a4bef2c54b3ba99f\main.spi
00:07:42 #44906 [verbose] >
00:07:42 #44907 [verbose] > ╭─[ 242.47ms - stdout ]────────────────────────────────────────────────────────╮
00:07:42 #44908 [verbose] > │ () │
00:07:42 #44909 [verbose] > │ │
00:07:42 #44910 [verbose] > │ │
00:07:42 #44911 [verbose] > ╰──────────────────────────────────────────────────────────────────────────────╯
00:07:42 #44912 [verbose] >
00:07:42 #44913 [verbose] > ── spiral ──────────────────────────────────────────────────────────────────────
00:07:42 #44914 [verbose] > // // test
00:07:42 #44915 [verbose] >
00:07:42 #44916 [verbose] > 5 *^ vec 1 2 3
00:07:42 #44917 [verbose] > |> _assert_eq (vec 5 10 15)
00:07:42 #44918 [verbose] > Building c:\home\git\polyglot\target\polyglot\spiral_eval\packages\0f1ae917a76bbe7f5135a7e2bbdb054e2bd9d550fd80e75345653d63dbbc2ec2\main.spi
00:07:42 #44919 [verbose] >
00:07:42 #44920 [verbose] > ╭─[ 249.59ms - stdout ]────────────────────────────────────────────────────────╮
00:07:42 #44921 [verbose] > │ let rec method0 () : unit = │
00:07:42 #44922 [verbose] > │ let v0 : string = $"%A{struct (5.0, 10.0, 15.0)}" │
00:07:42 #44923 [verbose] > │ System.Console.WriteLine v0 │
00:07:42 #44924 [verbose] > │ let v1 : string = $"__expect / actual: %A{struct (5.0, 10.0, 15.0)} / │
00:07:42 #44925 [verbose] > │ expected: %A{struct (5.0, 10.0, 15.0)}" │
00:07:42 #44926 [verbose] > │ () │
00:07:42 #44927 [verbose] > │ method0() │
00:07:42 #44928 [verbose] > │ │
00:07:42 #44929 [verbose] > │ struct (5.0, 10.0, 15.0) │
00:07:42 #44930 [verbose] > │ │
00:07:42 #44931 [verbose] > ╰──────────────────────────────────────────────────────────────────────────────╯
00:07:42 #44932 [verbose] >
00:07:42 #44933 [verbose] > ── spiral ──────────────────────────────────────────────────────────────────────
00:07:42 #44934 [verbose] > // // test
00:07:42 #44935 [verbose] >
00:07:42 #44936 [verbose] > 3 *^ i_hat () ^+^ 4 *^ k_hat ()
00:07:42 #44937 [verbose] > |> _assert_eq (vec 3 0 4)
00:07:42 #44938 [verbose] > Building c:\home\git\polyglot\target\polyglot\spiral_eval\packages\548493a74b752b6677b0d1a3ab7fad656548d2c02f7629e9db61399e9bc12278\main.spi
00:07:42 #44939 [verbose] >
00:07:42 #44940 [verbose] > ╭─[ 247.79ms - stdout ]────────────────────────────────────────────────────────╮
00:07:42 #44941 [verbose] > │ let rec method0 () : unit = │
00:07:42 #44942 [verbose] > │ let v0 : string = $"%A{struct (3.0, 0.0, 4.0)}" │
00:07:42 #44943 [verbose] > │ System.Console.WriteLine v0 │
00:07:42 #44944 [verbose] > │ let v1 : string = $"__expect / actual: %A{struct (3.0, 0.0, 4.0)} / │
00:07:42 #44945 [verbose] > │ expected: %A{struct (3.0, 0.0, 4.0)}" │
00:07:42 #44946 [verbose] > │ () │
00:07:42 #44947 [verbose] > │ method0() │
00:07:42 #44948 [verbose] > │ │
00:07:42 #44949 [verbose] > │ struct (3.0, 0.0, 4.0) │
00:07:42 #44950 [verbose] > │ │
00:07:42 #44951 [verbose] > ╰──────────────────────────────────────────────────────────────────────────────╯
00:07:42 #44952 [verbose] >
00:07:42 #44953 [verbose] > ── markdown ────────────────────────────────────────────────────────────────────
00:07:42 #44954 [verbose] > ╭──────────────────────────────────────────────────────────────────────────────╮
00:07:42 #44955 [verbose] > │ ### ^* │
00:07:42 #44956 [verbose] > ╰──────────────────────────────────────────────────────────────────────────────╯
00:07:42 #44957 [verbose] >
00:07:42 #44958 [verbose] > ── spiral ──────────────────────────────────────────────────────────────────────
00:07:42 #44959 [verbose] > inl (^*) v c =
00:07:42 #44960 [verbose] > (*^) c v
00:07:42 #44961 [verbose] > Building c:\home\git\polyglot\target\polyglot\spiral_eval\packages\f2705282a9dd8b0bb6b80c5d6c33563ec802f205ccfcea53e6fcecc892eb3632\main.spi
00:07:42 #44962 [verbose] >
00:07:42 #44963 [verbose] > ╭─[ 230.06ms - stdout ]────────────────────────────────────────────────────────╮
00:07:42 #44964 [verbose] > │ () │
00:07:42 #44965 [verbose] > │ │
00:07:42 #44966 [verbose] > │ │
00:07:42 #44967 [verbose] > ╰──────────────────────────────────────────────────────────────────────────────╯
00:07:42 #44968 [verbose] >
00:07:42 #44969 [verbose] > ── spiral ──────────────────────────────────────────────────────────────────────
00:07:42 #44970 [verbose] > // // test
00:07:42 #44971 [verbose] >
00:07:42 #44972 [verbose] > vec 1 2 3 ^* 5
00:07:42 #44973 [verbose] > |> _assert_eq (vec 5 10 15)
00:07:42 #44974 [verbose] > Building c:\home\git\polyglot\target\polyglot\spiral_eval\packages\966fe99f28aa701402adc0fbc0196bdc3de9cd51bad12cb0af9326b9c5003bff\main.spi
00:07:43 #44975 [verbose] >
00:07:43 #44976 [verbose] > ╭─[ 263.50ms - stdout ]────────────────────────────────────────────────────────╮
00:07:43 #44977 [verbose] > │ let rec method0 () : unit = │
00:07:43 #44978 [verbose] > │ let v0 : string = $"%A{struct (5.0, 10.0, 15.0)}" │
00:07:43 #44979 [verbose] > │ System.Console.WriteLine v0 │
00:07:43 #44980 [verbose] > │ let v1 : string = $"__expect / actual: %A{struct (5.0, 10.0, 15.0)} / │
00:07:43 #44981 [verbose] > │ expected: %A{struct (5.0, 10.0, 15.0)}" │
00:07:43 #44982 [verbose] > │ () │
00:07:43 #44983 [verbose] > │ method0() │
00:07:43 #44984 [verbose] > │ │
00:07:43 #44985 [verbose] > │ struct (5.0, 10.0, 15.0) │
00:07:43 #44986 [verbose] > │ │
00:07:43 #44987 [verbose] > ╰──────────────────────────────────────────────────────────────────────────────╯
00:07:43 #44988 [verbose] >
00:07:43 #44989 [verbose] > ── markdown ────────────────────────────────────────────────────────────────────
00:07:43 #44990 [verbose] > ╭──────────────────────────────────────────────────────────────────────────────╮
00:07:43 #44991 [verbose] > │ ### ^/ │
00:07:43 #44992 [verbose] > ╰──────────────────────────────────────────────────────────────────────────────╯
00:07:43 #44993 [verbose] >
00:07:43 #44994 [verbose] > ── spiral ──────────────────────────────────────────────────────────────────────
00:07:43 #44995 [verbose] > inl (^/) { x y z } c =
00:07:43 #44996 [verbose] > vec (x / c) (y / c) (z / c)
00:07:43 #44997 [verbose] > Building c:\home\git\polyglot\target\polyglot\spiral_eval\packages\50afd38d2e8556266a8ca846b008c929b0b71b9e987a04ac44f1d078a5c41ac0\main.spi
00:07:43 #44998 [verbose] >
00:07:43 #44999 [verbose] > ╭─[ 224.77ms - stdout ]────────────────────────────────────────────────────────╮
00:07:43 #45000 [verbose] > │ () │
00:07:43 #45001 [verbose] > │ │
00:07:43 #45002 [verbose] > │ │
00:07:43 #45003 [verbose] > ╰──────────────────────────────────────────────────────────────────────────────╯
00:07:43 #45004 [verbose] >
00:07:43 #45005 [verbose] > ── spiral ──────────────────────────────────────────────────────────────────────
00:07:43 #45006 [verbose] > // // test
00:07:43 #45007 [verbose] >
00:07:43 #45008 [verbose] > vec 1 2 3 ^/ 5
00:07:43 #45009 [verbose] > |> _assert_eq (vec 0.2 0.4 0.6)
00:07:43 #45010 [verbose] > Building c:\home\git\polyglot\target\polyglot\spiral_eval\packages\4bc6f7b7165a783a415091e011b173e9124d123f4e7565ca071fac3a344ceee6\main.spi
00:07:43 #45011 [verbose] >
00:07:43 #45012 [verbose] > ╭─[ 217.87ms - stdout ]────────────────────────────────────────────────────────╮
00:07:43 #45013 [verbose] > │ let rec method0 () : unit = │
00:07:43 #45014 [verbose] > │ let v0 : string = $"%A{struct (0.2, 0.4, 0.6)}" │
00:07:43 #45015 [verbose] > │ System.Console.WriteLine v0 │
00:07:43 #45016 [verbose] > │ let v1 : string = $"__expect / actual: %A{struct (0.2, 0.4, 0.6)} / │
00:07:43 #45017 [verbose] > │ expected: %A{struct (0.2, 0.4, 0.6)}" │
00:07:43 #45018 [verbose] > │ () │
00:07:43 #45019 [verbose] > │ method0() │
00:07:43 #45020 [verbose] > │ │
00:07:43 #45021 [verbose] > │ struct (0.2, 0.4, 0.6) │
00:07:43 #45022 [verbose] > │ │
00:07:43 #45023 [verbose] > ╰──────────────────────────────────────────────────────────────────────────────╯
00:07:43 #45024 [verbose] >
00:07:43 #45025 [verbose] > ── markdown ────────────────────────────────────────────────────────────────────
00:07:43 #45026 [verbose] > ╭──────────────────────────────────────────────────────────────────────────────╮
00:07:43 #45027 [verbose] > │ ### negate_vec │
00:07:43 #45028 [verbose] > ╰──────────────────────────────────────────────────────────────────────────────╯
00:07:43 #45029 [verbose] >
00:07:43 #45030 [verbose] > ── spiral ──────────────────────────────────────────────────────────────────────
00:07:43 #45031 [verbose] > inl negate_vec v =
00:07:43 #45032 [verbose] > v ^* -1
00:07:43 #45033 [verbose] > Building c:\home\git\polyglot\target\polyglot\spiral_eval\packages\8ba7ec44ade356759d3c7a8edd8377be35532483606275bee83bce44536efeb0\main.spi
00:07:43 #45034 [verbose] >
00:07:43 #45035 [verbose] > ╭─[ 376.06ms - stdout ]────────────────────────────────────────────────────────╮
00:07:43 #45036 [verbose] > │ () │
00:07:43 #45037 [verbose] > │ │
00:07:43 #45038 [verbose] > │ │
00:07:43 #45039 [verbose] > ╰──────────────────────────────────────────────────────────────────────────────╯
00:07:43 #45040 [verbose] >
00:07:43 #45041 [verbose] > ── spiral ──────────────────────────────────────────────────────────────────────
00:07:43 #45042 [verbose] > // // test
00:07:43 #45043 [verbose] >
00:07:43 #45044 [verbose] > vec 1 2 3
00:07:43 #45045 [verbose] > |> negate_vec
00:07:43 #45046 [verbose] > |> _assert_eq (vec -1 -2 -3)
00:07:44 #45047 [verbose] > Building c:\home\git\polyglot\target\polyglot\spiral_eval\packages\8a0f1545b0f83a1009fdc0a035cecccb7d8ab02298120bc116e3e139a8f25a39\main.spi
00:07:44 #45048 [verbose] >
00:07:44 #45049 [verbose] > ╭─[ 245.21ms - stdout ]────────────────────────────────────────────────────────╮
00:07:44 #45050 [verbose] > │ let rec method0 () : unit = │
00:07:44 #45051 [verbose] > │ let v0 : string = $"%A{struct (-1.0, -2.0, -3.0)}" │
00:07:44 #45052 [verbose] > │ System.Console.WriteLine v0 │
00:07:44 #45053 [verbose] > │ let v1 : string = $"__expect / actual: %A{struct (-1.0, -2.0, -3.0)} / │
00:07:44 #45054 [verbose] > │ expected: %A{struct (-1.0, -2.0, -3.0)}" │
00:07:44 #45055 [verbose] > │ () │
00:07:44 #45056 [verbose] > │ method0() │
00:07:44 #45057 [verbose] > │ │
00:07:44 #45058 [verbose] > │ struct (-1.0, -2.0, -3.0) │
00:07:44 #45059 [verbose] > │ │
00:07:44 #45060 [verbose] > ╰──────────────────────────────────────────────────────────────────────────────╯
00:07:44 #45061 [verbose] >
00:07:44 #45062 [verbose] > ── markdown ────────────────────────────────────────────────────────────────────
00:07:44 #45063 [verbose] > ╭──────────────────────────────────────────────────────────────────────────────╮
00:07:44 #45064 [verbose] > │ ### ^-^ │
00:07:44 #45065 [verbose] > ╰──────────────────────────────────────────────────────────────────────────────╯
00:07:44 #45066 [verbose] >
00:07:44 #45067 [verbose] > ── spiral ──────────────────────────────────────────────────────────────────────
00:07:44 #45068 [verbose] > inl (^-^) a b =
00:07:44 #45069 [verbose] > a ^+^ (negate_vec b)
00:07:44 #45070 [verbose] > Building c:\home\git\polyglot\target\polyglot\spiral_eval\packages\c732722ed06670a422c02a30556874a9cdf85330159398870e8dcb00058ba2f4\main.spi
00:07:44 #45071 [verbose] >
00:07:44 #45072 [verbose] > ╭─[ 262.87ms - stdout ]────────────────────────────────────────────────────────╮
00:07:44 #45073 [verbose] > │ () │
00:07:44 #45074 [verbose] > │ │
00:07:44 #45075 [verbose] > │ │
00:07:44 #45076 [verbose] > ╰──────────────────────────────────────────────────────────────────────────────╯
00:07:44 #45077 [verbose] >
00:07:44 #45078 [verbose] > ── spiral ──────────────────────────────────────────────────────────────────────
00:07:44 #45079 [verbose] > // // test
00:07:44 #45080 [verbose] >
00:07:44 #45081 [verbose] > vec 1 2 3 ^-^ vec 4 5 6
00:07:44 #45082 [verbose] > |> _assert_eq (vec -3 -3 -3)
00:07:44 #45083 [verbose] > Building c:\home\git\polyglot\target\polyglot\spiral_eval\packages\3446c2b52f31454aa5ae7bdbbf29aa5dc6e7c1db0cd5b1d703ac3ec918635b14\main.spi
00:07:44 #45084 [verbose] >
00:07:44 #45085 [verbose] > ╭─[ 234.77ms - stdout ]────────────────────────────────────────────────────────╮
00:07:44 #45086 [verbose] > │ let rec method0 () : unit = │
00:07:44 #45087 [verbose] > │ let v0 : string = $"%A{struct (-3.0, -3.0, -3.0)}" │
00:07:44 #45088 [verbose] > │ System.Console.WriteLine v0 │
00:07:44 #45089 [verbose] > │ let v1 : string = $"__expect / actual: %A{struct (-3.0, -3.0, -3.0)} / │
00:07:44 #45090 [verbose] > │ expected: %A{struct (-3.0, -3.0, -3.0)}" │
00:07:44 #45091 [verbose] > │ () │
00:07:44 #45092 [verbose] > │ method0() │
00:07:44 #45093 [verbose] > │ │
00:07:44 #45094 [verbose] > │ struct (-3.0, -3.0, -3.0) │
00:07:44 #45095 [verbose] > │ │
00:07:44 #45096 [verbose] > ╰──────────────────────────────────────────────────────────────────────────────╯
00:07:44 #45097 [verbose] >
00:07:44 #45098 [verbose] > ── markdown ────────────────────────────────────────────────────────────────────
00:07:44 #45099 [verbose] > ╭──────────────────────────────────────────────────────────────────────────────╮
00:07:44 #45100 [verbose] > │ ### <.> │
00:07:44 #45101 [verbose] > ╰──────────────────────────────────────────────────────────────────────────────╯
00:07:44 #45102 [verbose] >
00:07:44 #45103 [verbose] > ── spiral ──────────────────────────────────────────────────────────────────────
00:07:44 #45104 [verbose] > inl (<.>) { x = ax y = ay z = az } { x = bx y = by z = bz } =
00:07:44 #45105 [verbose] > ax * bx + ay * by + az * bz
00:07:44 #45106 [verbose] > Building c:\home\git\polyglot\target\polyglot\spiral_eval\packages\52d772a3260e827ea2d68325b288a9119bd96d8bfe6e93cd48fb0f3b15350208\main.spi
00:07:44 #45107 [verbose] >
00:07:44 #45108 [verbose] > ╭─[ 200.75ms - stdout ]────────────────────────────────────────────────────────╮
00:07:44 #45109 [verbose] > │ () │
00:07:44 #45110 [verbose] > │ │
00:07:44 #45111 [verbose] > │ │
00:07:44 #45112 [verbose] > ╰──────────────────────────────────────────────────────────────────────────────╯
00:07:44 #45113 [verbose] >
00:07:44 #45114 [verbose] > ── spiral ──────────────────────────────────────────────────────────────────────
00:07:44 #45115 [verbose] > // // test
00:07:44 #45116 [verbose] >
00:07:44 #45117 [verbose] > vec 1 2 3 <.> vec 4 5 6
00:07:44 #45118 [verbose] > |> _assert_eq 32
00:07:45 #45119 [verbose] > Building c:\home\git\polyglot\target\polyglot\spiral_eval\packages\5cb5f9a53ee45f8d45db785c1281c4f9be7f30c954be991ebd61613e2fc9c8e1\main.spi
00:07:45 #45120 [verbose] >
00:07:45 #45121 [verbose] > ╭─[ 271.29ms - stdout ]────────────────────────────────────────────────────────╮
00:07:45 #45122 [verbose] > │ let rec method0 () : unit = │
00:07:45 #45123 [verbose] > │ let v0 : string = $"%A{32.0}" │
00:07:45 #45124 [verbose] > │ System.Console.WriteLine v0 │
00:07:45 #45125 [verbose] > │ let v1 : string = $"__expect / actual: %A{32.0} / expected: %A{32.0}" │
00:07:45 #45126 [verbose] > │ () │
00:07:45 #45127 [verbose] > │ method0() │
00:07:45 #45128 [verbose] > │ │
00:07:45 #45129 [verbose] > │ 32.0 │
00:07:45 #45130 [verbose] > │ │
00:07:45 #45131 [verbose] > ╰──────────────────────────────────────────────────────────────────────────────╯
00:07:45 #45132 [verbose] >
00:07:45 #45133 [verbose] > ── markdown ────────────────────────────────────────────────────────────────────
00:07:45 #45134 [verbose] > ╭──────────────────────────────────────────────────────────────────────────────╮
00:07:45 #45135 [verbose] > │ ### \>\< │
00:07:45 #45136 [verbose] > ╰──────────────────────────────────────────────────────────────────────────────╯
00:07:45 #45137 [verbose] >
00:07:45 #45138 [verbose] > ── spiral ──────────────────────────────────────────────────────────────────────
00:07:45 #45139 [verbose] > inl (><) (a : vec) (b : vec) =
00:07:45 #45140 [verbose] > vec
00:07:45 #45141 [verbose] > (a.y * b.z - a.z * b.y)
00:07:45 #45142 [verbose] > (a.z * b.x - a.x * b.z)
00:07:45 #45143 [verbose] > (a.x * b.y - a.y * b.x)
00:07:45 #45144 [verbose] > Building c:\home\git\polyglot\target\polyglot\spiral_eval\packages\a5e61f90699377c6cd439c6f459ff614a7fc7601412a7063fb78b30a625d6641\main.spi
00:07:45 #45145 [verbose] >
00:07:45 #45146 [verbose] > ╭─[ 231.07ms - stdout ]────────────────────────────────────────────────────────╮
00:07:45 #45147 [verbose] > │ () │
00:07:45 #45148 [verbose] > │ │
00:07:45 #45149 [verbose] > │ │
00:07:45 #45150 [verbose] > ╰──────────────────────────────────────────────────────────────────────────────╯
00:07:45 #45151 [verbose] >
00:07:45 #45152 [verbose] > ── spiral ──────────────────────────────────────────────────────────────────────
00:07:45 #45153 [verbose] > // // test
00:07:45 #45154 [verbose] >
00:07:45 #45155 [verbose] > vec 1 2 3 >< vec 4 5 6
00:07:45 #45156 [verbose] > |> _assert_eq (vec -3 6 -3)
00:07:45 #45157 [verbose] > Building c:\home\git\polyglot\target\polyglot\spiral_eval\packages\4faf695f8fa6a82d45f6adfbbfd0604aa0584b0579fa2ecf0f80b2f941af9012\main.spi
00:07:45 #45158 [verbose] >
00:07:45 #45159 [verbose] > ╭─[ 246.13ms - stdout ]────────────────────────────────────────────────────────╮
00:07:45 #45160 [verbose] > │ let rec method0 () : unit = │
00:07:45 #45161 [verbose] > │ let v0 : string = $"%A{struct (-3.0, 6.0, -3.0)}" │
00:07:45 #45162 [verbose] > │ System.Console.WriteLine v0 │
00:07:45 #45163 [verbose] > │ let v1 : string = $"__expect / actual: %A{struct (-3.0, 6.0, -3.0)} / │
00:07:45 #45164 [verbose] > │ expected: %A{struct (-3.0, 6.0, -3.0)}" │
00:07:45 #45165 [verbose] > │ () │
00:07:45 #45166 [verbose] > │ method0() │
00:07:45 #45167 [verbose] > │ │
00:07:45 #45168 [verbose] > │ struct (-3.0, 6.0, -3.0) │
00:07:45 #45169 [verbose] > │ │
00:07:45 #45170 [verbose] > ╰──────────────────────────────────────────────────────────────────────────────╯
00:07:45 #45171 [verbose] >
00:07:45 #45172 [verbose] > ── markdown ────────────────────────────────────────────────────────────────────
00:07:45 #45173 [verbose] > ╭──────────────────────────────────────────────────────────────────────────────╮
00:07:45 #45174 [verbose] > │ ### magnitude │
00:07:45 #45175 [verbose] > ╰──────────────────────────────────────────────────────────────────────────────╯
00:07:45 #45176 [verbose] >
00:07:45 #45177 [verbose] > ── spiral ──────────────────────────────────────────────────────────────────────
00:07:45 #45178 [verbose] > inl magnitude v =
00:07:45 #45179 [verbose] > v <.> v |> sqrt
00:07:45 #45180 [verbose] > Building c:\home\git\polyglot\target\polyglot\spiral_eval\packages\a5ee51bd3b4825ba93a1b077ff4961438142d9da048abaa8d69e3a61c2d23059\main.spi
00:07:45 #45181 [verbose] >
00:07:45 #45182 [verbose] > ╭─[ 249.03ms - stdout ]────────────────────────────────────────────────────────╮
00:07:45 #45183 [verbose] > │ () │
00:07:45 #45184 [verbose] > │ │
00:07:45 #45185 [verbose] > │ │
00:07:45 #45186 [verbose] > ╰──────────────────────────────────────────────────────────────────────────────╯
00:07:45 #45187 [verbose] >
00:07:45 #45188 [verbose] > ── spiral ──────────────────────────────────────────────────────────────────────
00:07:45 #45189 [verbose] > // // test
00:07:45 #45190 [verbose] >
00:07:45 #45191 [verbose] > vec 1 2 3
00:07:45 #45192 [verbose] > |> magnitude
00:07:45 #45193 [verbose] > |> _assert_approx_eq None 3.7416573867739413
00:07:46 #45194 [verbose] > Building c:\home\git\polyglot\target\polyglot\spiral_eval\packages\bc77b9c16c9aae76697855c1206917244bbd3df26f410e836c5f50e5cffac095\main.spi
00:07:46 #45195 [verbose] >
00:07:46 #45196 [verbose] > ╭─[ 452.99ms - stdout ]────────────────────────────────────────────────────────╮
00:07:46 #45197 [verbose] > │ let rec method0 () : unit = │
00:07:46 #45198 [verbose] > │ let v0 : string = $"%A{3.7416573867739413}" │
00:07:46 #45199 [verbose] > │ System.Console.WriteLine v0 │
00:07:46 #45200 [verbose] > │ let v1 : string = $"__expect / actual: %A{3.7416573867739413} / │
00:07:46 #45201 [verbose] > │ expected: %A{3.7416573867739413}" │
00:07:46 #45202 [verbose] > │ () │
00:07:46 #45203 [verbose] > │ method0() │
00:07:46 #45204 [verbose] > │ │
00:07:46 #45205 [verbose] > │ 3.741657387 │
00:07:46 #45206 [verbose] > │ │
00:07:46 #45207 [verbose] > ╰──────────────────────────────────────────────────────────────────────────────╯
00:07:46 #45208 [verbose] >
00:07:46 #45209 [verbose] > ── markdown ────────────────────────────────────────────────────────────────────
00:07:46 #45210 [verbose] > ╭──────────────────────────────────────────────────────────────────────────────╮
00:07:46 #45211 [verbose] > │ ### v1 │
00:07:46 #45212 [verbose] > ╰──────────────────────────────────────────────────────────────────────────────╯
00:07:46 #45213 [verbose] >
00:07:46 #45214 [verbose] > ── spiral ──────────────────────────────────────────────────────────────────────
00:07:46 #45215 [verbose] > inl v1 t =
00:07:46 #45216 [verbose] > 2 *^ (t ** 2 *^ i_hat () ^+^ 3 *^ (t ** 3 *^ j_hat () ^+^ t ** 4 *^ k_hat
00:07:46 #45217 [verbose] > ()))
00:07:46 #45218 [verbose] > Building c:\home\git\polyglot\target\polyglot\spiral_eval\packages\3bdcea2559adc47304c47571116ccb8e71c6e145cb79eecdab28e093462dc5a1\main.spi
00:07:46 #45219 [verbose] >
00:07:46 #45220 [verbose] > ╭─[ 230.91ms - stdout ]────────────────────────────────────────────────────────╮
00:07:46 #45221 [verbose] > │ () │
00:07:46 #45222 [verbose] > │ │
00:07:46 #45223 [verbose] > │ │
00:07:46 #45224 [verbose] > ╰──────────────────────────────────────────────────────────────────────────────╯
00:07:46 #45225 [verbose] >
00:07:46 #45226 [verbose] > ── spiral ──────────────────────────────────────────────────────────────────────
00:07:46 #45227 [verbose] > // // test
00:07:46 #45228 [verbose] >
00:07:46 #45229 [verbose] > v1 1
00:07:46 #45230 [verbose] > |> _assert_eq (vec 2 6 6)
00:07:46 #45231 [verbose] > Building c:\home\git\polyglot\target\polyglot\spiral_eval\packages\a6269b466164e66b00544a5d424106d727e9daf61440c349ec8a9627b5c648b5\main.spi
00:07:46 #45232 [verbose] >
00:07:46 #45233 [verbose] > ╭─[ 348.58ms - stdout ]────────────────────────────────────────────────────────╮
00:07:46 #45234 [verbose] > │ let rec method0 () : unit = │
00:07:46 #45235 [verbose] > │ let v0 : string = $"%A{struct (2.0, 6.0, 6.0)}" │
00:07:46 #45236 [verbose] > │ System.Console.WriteLine v0 │
00:07:46 #45237 [verbose] > │ let v1 : string = $"__expect / actual: %A{struct (2.0, 6.0, 6.0)} / │
00:07:46 #45238 [verbose] > │ expected: %A{struct (2.0, 6.0, 6.0)}" │
00:07:46 #45239 [verbose] > │ () │
00:07:46 #45240 [verbose] > │ method0() │
00:07:46 #45241 [verbose] > │ │
00:07:46 #45242 [verbose] > │ struct (2.0, 6.0, 6.0) │
00:07:46 #45243 [verbose] > │ │
00:07:46 #45244 [verbose] > ╰──────────────────────────────────────────────────────────────────────────────╯
00:07:46 #45245 [verbose] >
00:07:46 #45246 [verbose] > ── markdown ────────────────────────────────────────────────────────────────────
00:07:46 #45247 [verbose] > ╭──────────────────────────────────────────────────────────────────────────────╮
00:07:46 #45248 [verbose] > │ ### vec_derivative │
00:07:46 #45249 [verbose] > ╰──────────────────────────────────────────────────────────────────────────────╯
00:07:46 #45250 [verbose] >
00:07:46 #45251 [verbose] > ── spiral ──────────────────────────────────────────────────────────────────────
00:07:46 #45252 [verbose] > type vec_derivative = (f64 -> vec) -> f64 -> vec
00:07:46 #45253 [verbose] >
00:07:46 #45254 [verbose] > inl vec_derivative dt : vec_derivative =
00:07:46 #45255 [verbose] > fun v t =>
00:07:46 #45256 [verbose] > (v (t + dt / 2) ^-^ v (t - dt / 2)) ^/ dt
00:07:47 #45257 [verbose] > Building c:\home\git\polyglot\target\polyglot\spiral_eval\packages\b6600abb173c8827e778123471b70245424004725195db0a3d939ab500d5eddf\main.spi
00:07:47 #45258 [verbose] >
00:07:47 #45259 [verbose] > ╭─[ 216.41ms - stdout ]────────────────────────────────────────────────────────╮
00:07:47 #45260 [verbose] > │ () │
00:07:47 #45261 [verbose] > │ │
00:07:47 #45262 [verbose] > │ │
00:07:47 #45263 [verbose] > ╰──────────────────────────────────────────────────────────────────────────────╯
00:07:47 #45264 [verbose] >
00:07:47 #45265 [verbose] > ── spiral ──────────────────────────────────────────────────────────────────────
00:07:47 #45266 [verbose] > // // test
00:07:47 #45267 [verbose] >
00:07:47 #45268 [verbose] > vec_derivative 0.01 v1 3 .x
00:07:47 #45269 [verbose] > |> _assert_approx_eq None (derivative 0.01 (v1 >> fun v => v.x) 3)
00:07:47 #45270 [verbose] > Building c:\home\git\polyglot\target\polyglot\spiral_eval\packages\4b40c81929f4b19c0a206e9734354f645ae343f882b132d49c98dfc26981b41b\main.spi
00:07:47 #45271 [verbose] >
00:07:47 #45272 [verbose] > ╭─[ 253.35ms - stdout ]────────────────────────────────────────────────────────╮
00:07:47 #45273 [verbose] > │ let rec method0 () : unit = │
00:07:47 #45274 [verbose] > │ let v0 : string = $"%A{11.999999999999744}" │
00:07:47 #45275 [verbose] > │ System.Console.WriteLine v0 │
00:07:47 #45276 [verbose] > │ let v1 : string = $"__expect / actual: %A{11.999999999999744} / │
00:07:47 #45277 [verbose] > │ expected: %A{11.999999999999744}" │
00:07:47 #45278 [verbose] > │ () │
00:07:47 #45279 [verbose] > │ method0() │
00:07:47 #45280 [verbose] > │ │
00:07:47 #45281 [verbose] > │ 12.0 │
00:07:47 #45282 [verbose] > │ │
00:07:47 #45283 [verbose] > ╰──────────────────────────────────────────────────────────────────────────────╯
00:07:47 #45284 [verbose] >
00:07:47 #45285 [verbose] > ── markdown ────────────────────────────────────────────────────────────────────
00:07:47 #45286 [verbose] > ╭──────────────────────────────────────────────────────────────────────────────╮
00:07:47 #45287 [verbose] > │ ## states_ps │
00:07:47 #45288 [verbose] > ╰──────────────────────────────────────────────────────────────────────────────╯
00:07:47 #45289 [verbose] >
00:07:47 #45290 [verbose] > ── spiral ──────────────────────────────────────────────────────────────────────
00:07:47 #45291 [verbose] > nominal particle_state =
00:07:47 #45292 [verbose] > {
00:07:47 #45293 [verbose] > mass : f64
00:07:47 #45294 [verbose] > charge : f64
00:07:47 #45295 [verbose] > time : f64
00:07:47 #45296 [verbose] > pos_vec : vec
00:07:47 #45297 [verbose] > velocity : vec
00:07:47 #45298 [verbose] > }
00:07:47 #45299 [verbose] >
00:07:47 #45300 [verbose] > inl default_particle_state () : particle_state =
00:07:47 #45301 [verbose] > particle_state {
00:07:47 #45302 [verbose] > mass = 1
00:07:47 #45303 [verbose] > charge = 0
00:07:47 #45304 [verbose] > time = 0
00:07:47 #45305 [verbose] > pos_vec = zero_vec ()
00:07:47 #45306 [verbose] > velocity = zero_vec ()
00:07:47 #45307 [verbose] > }
00:07:47 #45308 [verbose] >
00:07:47 #45309 [verbose] > type one_body_force = particle_state -> vec
00:07:47 #45310 [verbose] >
00:07:47 #45311 [verbose] > nominal d_particle_state =
00:07:47 #45312 [verbose] > {
00:07:47 #45313 [verbose] > dmdt : f64
00:07:47 #45314 [verbose] > dqdt : f64
00:07:47 #45315 [verbose] > dtdt : f64
00:07:47 #45316 [verbose] > drdt : vec
00:07:47 #45317 [verbose] > dvdt : vec
00:07:47 #45318 [verbose] > }
00:07:47 #45319 [verbose] >
00:07:47 #45320 [verbose] > inl newton_second_ps (fs : list one_body_force) (st : particle_state) :
00:07:47 #45321 [verbose] > d_particle_state =
00:07:47 #45322 [verbose] > inl f_net = fs |> listm.map (fun f => f st) |> sum_vec
00:07:47 #45323 [verbose] > d_particle_state {
00:07:47 #45324 [verbose] > dmdt = 0
00:07:47 #45325 [verbose] > dqdt = 0
00:07:47 #45326 [verbose] > dtdt = 1
00:07:47 #45327 [verbose] > drdt = st.velocity
00:07:47 #45328 [verbose] > dvdt = f_net ^/ st.mass
00:07:47 #45329 [verbose] > }
00:07:47 #45330 [verbose] >
00:07:47 #45331 [verbose] > inl earth_surface_gravity (st : particle_state) =
00:07:47 #45332 [verbose] > inl g = 9.80665
00:07:47 #45333 [verbose] > -st.mass * g *^ k_hat ()
00:07:47 #45334 [verbose] >
00:07:47 #45335 [verbose] > inl air_resistance drag rho area (st : particle_state) =
00:07:47 #45336 [verbose] > -0.5 * drag * rho * area * magnitude st.velocity *^ st.velocity
00:07:47 #45337 [verbose] >
00:07:47 #45338 [verbose] > inl euler_cromer_ps dt (deriv : particle_state -> d_particle_state)
00:07:47 #45339 [verbose] > (particle_state st) =
00:07:47 #45340 [verbose] > inl dst : d_particle_state = deriv (particle_state st)
00:07:47 #45341 [verbose] > inl v' = st.velocity ^+^ dst.dvdt ^* dt
00:07:47 #45342 [verbose] > particle_state { st with
00:07:47 #45343 [verbose] > time = st.time + dt
00:07:47 #45344 [verbose] > pos_vec = st.pos_vec ^+^ v' ^* dt
00:07:47 #45345 [verbose] > velocity = st.velocity ^+^ dst.dvdt ^* dt
00:07:47 #45346 [verbose] > }
00:07:47 #45347 [verbose] >
00:07:47 #45348 [verbose] > instance (+++) d_particle_state = fun (dps : d_particle_state) (dps' :
00:07:47 #45349 [verbose] > d_particle_state) =>
00:07:47 #45350 [verbose] > d_particle_state {
00:07:47 #45351 [verbose] > dmdt = dps.dmdt + dps'.dmdt
00:07:47 #45352 [verbose] > dqdt = dps.dqdt + dps'.dqdt
00:07:47 #45353 [verbose] > dtdt = dps.dtdt + dps'.dtdt
00:07:47 #45354 [verbose] > drdt = dps.drdt ^+^ dps'.drdt
00:07:47 #45355 [verbose] > dvdt = dps.dvdt ^+^ dps'.dvdt
00:07:47 #45356 [verbose] > }
00:07:47 #45357 [verbose] >
00:07:47 #45358 [verbose] > instance scale d_particle_state = fun w (dps : d_particle_state) =>
00:07:47 #45359 [verbose] > d_particle_state {
00:07:47 #45360 [verbose] > dmdt = w * dps.dmdt
00:07:47 #45361 [verbose] > dqdt = w * dps.dqdt
00:07:47 #45362 [verbose] > dtdt = w * dps.dtdt
00:07:47 #45363 [verbose] > drdt = w *^ dps.drdt
00:07:47 #45364 [verbose] > dvdt = w *^ dps.dvdt
00:07:47 #45365 [verbose] > }
00:07:47 #45366 [verbose] >
00:07:47 #45367 [verbose] > instance shift particle_state = fun dt dps (particle_state st) =>
00:07:47 #45368 [verbose] > inl (d_particle_state dps) =
00:07:47 #45369 [verbose] > real
00:07:47 #45370 [verbose] > match dps with
00:07:47 #45371 [verbose] > | d_particle_state _ => dps
00:07:47 #45372 [verbose] > particle_state { st with
00:07:47 #45373 [verbose] > time = st.time + dps.dtdt * dt
00:07:47 #45374 [verbose] > pos_vec = st.pos_vec ^+^ dps.drdt ^* dt
00:07:47 #45375 [verbose] > velocity = st.velocity ^+^ dps.dvdt ^* dt
00:07:47 #45376 [verbose] > }
00:07:47 #45377 [verbose] >
00:07:47 #45378 [verbose] > inl states_ps (method : numerical_method particle_state d_particle_state) : _ ->
00:07:47 #45379 [verbose] > _ -> i32 -> particle_state =
00:07:47 #45380 [verbose] > newton_second_ps >> method >> seq.iterate_
00:07:47 #45381 [verbose] >
00:07:47 #45382 [verbose] > inl z_ge0 sts =
00:07:47 #45383 [verbose] > sts
00:07:47 #45384 [verbose] > |> seq.take_while_ (fun (particle_state st) _ => st.pos_vec.z >= 0)
00:07:47 #45385 [verbose] >
00:07:47 #45386 [verbose] > inl trajectory sts =
00:07:47 #45387 [verbose] > sts |> listm.map (fun (particle_state st) => st.pos_vec.y, st.pos_vec.z)
00:07:47 #45388 [verbose] > Building c:\home\git\polyglot\target\polyglot\spiral_eval\packages\cf19d0076e60db8574ef2fba498a50eabd9d0754b19e7398362265e7955877fd\main.spi
00:07:47 #45389 [verbose] >
00:07:47 #45390 [verbose] > ╭─[ 235.53ms - stdout ]────────────────────────────────────────────────────────╮
00:07:47 #45391 [verbose] > │ () │
00:07:47 #45392 [verbose] > │ │
00:07:47 #45393 [verbose] > │ │
00:07:47 #45394 [verbose] > ╰──────────────────────────────────────────────────────────────────────────────╯
00:07:47 #45395 [verbose] >
00:07:47 #45396 [verbose] > ── spiral ──────────────────────────────────────────────────────────────────────
00:07:47 #45397 [verbose] > // // test
00:07:47 #45398 [verbose] >
00:07:47 #45399 [verbose] > inl update_ps (method : numerical_method particle_state d_particle_state) =
00:07:47 #45400 [verbose] > newton_second_ps >> method
00:07:47 #45401 [verbose] >
00:07:47 #45402 [verbose] > inl position_ps (method : numerical_method particle_state d_particle_state) fs
00:07:47 #45403 [verbose] > st t =
00:07:47 #45404 [verbose] > inl states : i32 -> particle_state = states_ps method fs st
00:07:47 #45405 [verbose] > inl dt = (states 1).time - (states 0).time
00:07:47 #45406 [verbose] > inl num_steps = t / dt |> math.round |> abs
00:07:47 #45407 [verbose] > inl st1 = solver' method (newton_second_ps fs) st num_steps
00:07:47 #45408 [verbose] > st1.pos_vec
00:07:47 #45409 [verbose] >
00:07:47 #45410 [verbose] > inl sun_gravity (st : particle_state) : vec =
00:07:47 #45411 [verbose] > inl big_g = 0.0000000000667408
00:07:47 #45412 [verbose] > inl sun_mass = 1988480000000000000000000000000
00:07:47 #45413 [verbose] > -big_g * sun_mass * st.mass *^ st.pos_vec ^/ magnitude st.pos_vec ** 3
00:07:47 #45414 [verbose] >
00:07:47 #45415 [verbose] > inl wind_force v_wind drag rho area (st : particle_state) =
00:07:47 #45416 [verbose] > inl v_rel = st.velocity ^-^ v_wind
00:07:47 #45417 [verbose] > -0.5 * drag * rho * area * magnitude v_rel *^ v_rel
00:07:47 #45418 [verbose] >
00:07:47 #45419 [verbose] > inl rock_state () =
00:07:47 #45420 [verbose] > inl (particle_state default_particle_state') = default_particle_state ()
00:07:47 #45421 [verbose] > particle_state { default_particle_state' with
00:07:47 #45422 [verbose] > mass = 2
00:07:47 #45423 [verbose] > velocity = vec 3 0 4
00:07:47 #45424 [verbose] > }
00:07:47 #45425 [verbose] >
00:07:47 #45426 [verbose] > inl halley_update dt =
00:07:47 #45427 [verbose] > update_ps (euler_cromer_ps dt) [[ sun_gravity ]]
00:07:47 #45428 [verbose] >
00:07:47 #45429 [verbose] > inl halley_initial () =
00:07:47 #45430 [verbose] > inl (particle_state default_particle_state') = default_particle_state ()
00:07:47 #45431 [verbose] > particle_state { default_particle_state' with
00:07:47 #45432 [verbose] > mass = 220000000000000
00:07:47 #45433 [verbose] > pos_vec = 87660000000 *^ i_hat ()
00:07:47 #45434 [verbose] > velocity = 54569 *^ j_hat ()
00:07:47 #45435 [verbose] > }
00:07:47 #45436 [verbose] > Building c:\home\git\polyglot\target\polyglot\spiral_eval\packages\2592fde8250f260a3c89ded60b67224644460a61f32f59fd0cc6387aef87af7c\main.spi
00:07:47 #45437 [verbose] >
00:07:47 #45438 [verbose] > ╭─[ 238.53ms - stdout ]────────────────────────────────────────────────────────╮
00:07:47 #45439 [verbose] > │ () │
00:07:47 #45440 [verbose] > │ │
00:07:47 #45441 [verbose] > │ │
00:07:47 #45442 [verbose] > ╰──────────────────────────────────────────────────────────────────────────────╯
00:07:47 #45443 [verbose] >
00:07:47 #45444 [verbose] > ── spiral ──────────────────────────────────────────────────────────────────────
00:07:47 #45445 [verbose] > // // test
00:07:47 #45446 [verbose] >
00:07:47 #45447 [verbose] > inl baseball_forces () =
00:07:47 #45448 [verbose] > inl area = pi * (0.074 / 2) ** 2
00:07:47 #45449 [verbose] > [[
00:07:47 #45450 [verbose] > earth_surface_gravity
00:07:47 #45451 [verbose] > air_resistance 0.3 1.225 area
00:07:47 #45452 [verbose] > ]]
00:07:47 #45453 [verbose] >
00:07:47 #45454 [verbose] > inl baseball_trajectory dt v0 theta_deg =
00:07:47 #45455 [verbose] > inl theta_rad = theta_deg * pi / 180
00:07:47 #45456 [verbose] > inl vy0 = v0 * cos theta_rad
00:07:47 #45457 [verbose] > inl vz0 = v0 * sin theta_rad
00:07:47 #45458 [verbose] > inl initial_state =
00:07:47 #45459 [verbose] > particle_state {
00:07:47 #45460 [verbose] > mass = 0.145
00:07:47 #45461 [verbose] > charge = 0
00:07:47 #45462 [verbose] > time = 0
00:07:47 #45463 [verbose] > pos_vec = zero_vec ()
00:07:47 #45464 [verbose] > velocity = vec 0 vy0 vz0
00:07:47 #45465 [verbose] > }
00:07:47 #45466 [verbose] > states_ps (euler_cromer_ps dt) (baseball_forces ()) initial_state
00:07:47 #45467 [verbose] > >> Some
00:07:47 #45468 [verbose] > |> z_ge0
00:07:47 #45469 [verbose] > |> trajectory
00:07:47 #45470 [verbose] >
00:07:47 #45471 [verbose] > inl baseball_range dt v0 theta_deg =
00:07:47 #45472 [verbose] > baseball_trajectory dt v0 theta_deg
00:07:47 #45473 [verbose] > |> listm.fold (fun _ (y, _) => y) 0
00:07:47 #45474 [verbose] >
00:07:47 #45475 [verbose] > inl x : a _ f64 = am'.init_series 10 80 1
00:07:47 #45476 [verbose] > inl y = x |> am.map (baseball_range 0.01 45)
00:07:47 #45477 [verbose] > "range for a baseball hit at 45 m/s",
00:07:47 #45478 [verbose] > "angle above horizontal (degrees)",
00:07:47 #45479 [verbose] > "",
00:07:47 #45480 [verbose] > ;[[ "horizontal range (m)", x, y ]]
00:07:48 #45481 [verbose] > Building c:\home\git\polyglot\target\polyglot\spiral_eval\packages\8d07a968f72d011a6ea3536d1c85fd8ae878efce3c92f1e2a9d85ba80bc560a0\main.spi
00:07:49 #45482 [verbose] >
00:07:49 #45483 [verbose] > ╭─[ 1.10s - return value ]─────────────────────────────────────────────────────╮
00:07:49 #45484 [verbose] > │ <svg width="640" height="480" viewBox="0 0 640 480" │
00:07:49 #45485 [verbose] > │ xmlns="http://www.w3.org/2000/svg"> │
00:07:49 #45486 [verbose] > │ <rect x="0" y="0" width="640" height="480" opacity="1" fill="#141414" │
00:07:49 #45487 [verbose] > │ stroke="none"/> │
00:07:49 #45488 [verbose] > │ <text x="320" y="10" dy="0.76em" text-anchor="middle" │
00:07:49 #45489 [verbose] > │ font-family="sans-serif" font-size="9.67741935483871" opacity="1" │
00:07:49 #45490 [verbose] > │ fill="#FFFFFF"> │
00:07:49 #45491 [verbose] > │ range for a baseball hit at 45 m/s │
00:07:49 #45492 [verbose] > │ </text> │
00:07:49 #45493 [verbose] > │ <line opacity="1" stroke="#323232" stroke-width="1" x1="55" y1="424" x2="55" │
00:07:49 #45494 [verbose] > │ y2="75"/> │
00:07:49 #45495 [verbose] > │ <line opacity="1" stroke="#323232" stroke-width="1" x1="62" y1="424" x2="62" │
00:07:49 #45496 [verbose] > │ y2="75"/> │
00:07:49 #45497 [verbose] > │ <line opacity="1" stroke="#323232" stroke-width="1" x1="69" y1="424" x2="69" │
00:07:49 #45498 [verbose] > │ y2="75"/> │
00:07:49 #45499 [verbose] > │ <line opacity="1" stroke="#323232" stroke-width="1" x1="77" y1="424" x2="77" │
00:07:49 #45500 [verbose] > │ y2="75"/> │
00:07:49 #45501 [verbose] > │ <line opacity="1" stroke="#323232" stroke-width="... │
00:07:49 #45502 [verbose] > ╰──────────────────────────────────────────────────────────────────────────────╯
00:07:49 #45503 [verbose] >
00:07:49 #45504 [verbose] > ╭─[ 1.11s - stdout ]───────────────────────────────────────────────────────────╮
00:07:49 #45505 [verbose] > │ type Mut0 = {mutable l0 : int32} │
00:07:49 #45506 [verbose] > │ and UH0 = │
00:07:49 #45507 [verbose] > │ | UH0_0 │
00:07:49 #45508 [verbose] > │ | UH0_1 of float * float * float * float * float * float * float * float │
00:07:49 #45509 [verbose] > │ * float * UH0 │
00:07:49 #45510 [verbose] > │ and UH1 = │
00:07:49 #45511 [verbose] > │ | UH1_0 │
00:07:49 #45512 [verbose] > │ | UH1_1 of float * float * UH1 │
00:07:49 #45513 [verbose] > │ let rec method1 (v0 : Mut0) : bool = │
00:07:49 #45514 [verbose] > │ let v1 : int32 = v0.l0 │
00:07:49 #45515 [verbose] > │ let v2 : bool = v1 < 71 │
00:07:49 #45516 [verbose] > │ v2 │
00:07:49 #45517 [verbose] > │ and method2 (v0 : int32, v1 : Mut0) : bool = │
00:07:49 #45518 [verbose] > │ let v2 : int32 = v1.l0 │
00:07:49 #45519 [verbose] > │ let v3 : bool = v2 < v0 │
00:07:49 #45520 [verbose] > │ v3 │
00:07:49 #45521 [verbose] > │ and method4 (v0 : float, v1 : float, v2 : float, v3 : float, v4 : float, v5 │
00:07:49 #45522 [verbose] > │ : float, v6 : float, v7 : float, v8 : float, v9 : int32) : struct (float * │
00:07:49 #45523 [verbose] > │ float * float * float * float * float * float * float * float) = │
00:07:49 #45524 [verbose] > │ let v10 : bool = v9 <= 0 │
00:07:49 #45525 [verbose] > │ if v10 then │
00:07:49 #45526 [verbose] > │ struct (v0, v1, v2, v3, v4, v5, v6, v7, v8) │
00:07:49 #45527 [verbose] > │ else │
00:07:49 #45528 [verbose] > │ let v11 : float = v6 * v6 │
00:07:49 #45529 [verbose] > │ let v12 : float = v7 * v7 │
00:07:49 #45530 [verbose] > │ let v13 : float = v11 + v12 │
00:07:49 #45531 [verbose] > │ let v14 : float = v8 * v8 │
00:07:49 #45532 [verbose] > │ let v15 : float = v13 + v14 │
00:07:49 #45533 [verbose] > │ let v16 : float = sqrt v15 │
00:07:49 #45534 [verbose] > │ let v17 : float = -0.0007902794129829633 * v16 │
00:07:49 #45535 [verbose] > │ let v18 : float = v17 * v6 │
00:07:49 #45536 [verbose] > │ let v19 : float = v17 * v7 │
00:07:49 #45537 [verbose] > │ let v20 : float = v17 * v8 │
00:07:49 #45538 [verbose] > │ let v21 : float = -v1 │
00:07:49 #45539 [verbose] > │ let v22 : float = v21 * 9.80665 │
00:07:49 #45540 [verbose] > │ let v23 : float = v22 * 0.0 │
00:07:49 #45541 [verbose] > │ let v24 : float = v23 + v18 │
00:07:49 #45542 [verbose] > │ let v25 : float = v23 + v19 │
00:07:49 #45543 [verbose] > │ let v26 : float = v22 + v20 │
00:07:49 #45544 [verbose] > │ let v27 : float = v24 / v1 │
00:07:49 #45545 [verbose] > │ let v28 : float = v25 / v1 │
00:07:49 #45546 [verbose] > │ let v29 : float = v26 / v1 │
00:07:49 #45547 [verbose] > │ let v30 : float = 0.01 * v27 │
00:07:49 #45548 [verbose] > │ let v31 : float = 0.01 * v28 │
00:07:49 #45549 [verbose] > │ let v32 : float = 0.01 * v29 │
00:07:49 #45550 [verbose] > │ let v33 : float = v6 + v30 │
00:07:49 #45551 [verbose] > │ let v34 : float = v7 + v31 │
00:07:49 #45552 [verbose] > │ let v35 : float = v8 + v32 │
00:07:49 #45553 [verbose] > │ let v36 : float = v5 + 0.01 │
00:07:49 #45554 [verbose] > │ let v37 : float = 0.01 * v33 │
00:07:49 #45555 [verbose] > │ let v38 : float = 0.01 * v34 │
00:07:49 #45556 [verbose] > │ let v39 : float = 0.01 * v35 │
00:07:49 #45557 [verbose] > │ let v40 : float = v2 + v37 │
00:07:49 #45558 [verbose] > │ let v41 : float = v3 + v38 │
00:07:49 #45559 [verbose] > │ let v42 : float = v4 + v39 │
00:07:49 #45560 [verbose] > │ let v43 : int32 = v9 - 1 │
00:07:49 #45561 [verbose] > │ method4(v0, v1, v40, v41, v42, v36, v33, v34, v35, v43) │
00:07:49 #45562 [verbose] > │ and method5 (v0 : UH0, v1 : UH0) : UH0 = │
00:07:49 #45563 [verbose] > │ match v0 with │
00:07:49 #45564 [verbose] > │ | UH0_1(v2, v3, v4, v5, v6, v7, v8, v9, v10, v11) -> (* Cons *) │
00:07:49 #45565 [verbose] > │ let v12 : UH0 = UH0_1(v2, v3, v4, v5, v6, v7, v8, v9, v10, v1) │
00:07:49 #45566 [verbose] > │ method5(v11, v12) │
00:07:49 #45567 [verbose] > │ | UH0_0 -> (* Nil *) │
00:07:49 #45568 [verbose] > │ v1 │
00:07:49 #45569 [verbose] > │ and method3 (v0 : float, v1 : float, v2 : UH0, v3 : int32) : UH0 = │
00:07:49 #45570 [verbose] > │ let v4 : float = 0.0 │
00:07:49 #45571 [verbose] > │ let v5 : float = 0.145 │
00:07:49 #45572 [verbose] > │ let v6 : float = 0.0 │
00:07:49 #45573 [verbose] > │ let v7 : float = 0.0 │
00:07:49 #45574 [verbose] > │ let v8 : float = 0.0 │
00:07:49 #45575 [verbose] > │ let v9 : float = 0.0 │
00:07:49 #45576 [verbose] > │ let v10 : float = 0.0 │
00:07:49 #45577 [verbose] > │ let struct (v11 : float, v12 : float, v13 : float, v14 : float, v15 : │
00:07:49 #45578 [verbose] > │ float, v16 : float, v17 : float, v18 : float, v19 : float) = method4(v4, v5, │
00:07:49 #45579 [verbose] > │ v6, v7, v8, v9, v10, v0, v1, v3) │
00:07:49 #45580 [verbose] > │ let v20 : bool = v15 >= 0.0 │
00:07:49 #45581 [verbose] > │ if v20 then │
00:07:49 #45582 [verbose] > │ let v21 : UH0 = UH0_1(v11, v12, v13, v14, v15, v16, v17, v18, v19, │
00:07:49 #45583 [verbose] > │ v2) │
00:07:49 #45584 [verbose] > │ let v22 : int32 = v3 + 1 │
00:07:49 #45585 [verbose] > │ method3(v0, v1, v21, v22) │
00:07:49 #45586 [verbose] > │ else │
00:07:49 #45587 [verbose] > │ let v24 : UH0 = UH0_0 │
00:07:49 #45588 [verbose] > │ method5(v2, v24) │
00:07:49 #45589 [verbose] > │ and method6 (v0 : UH0, v1 : UH1) : UH1 = │
00:07:49 #45590 [verbose] > │ match v0 with │
00:07:49 #45591 [verbose] > │ | UH0_1(v2, v3, v4, v5, v6, v7, v8, v9, v10, v11) -> (* Cons *) │
00:07:49 #45592 [verbose] > │ let v12 : UH1 = method6(v11, v1) │
00:07:49 #45593 [verbose] > │ UH1_1(v5, v6, v12) │
00:07:49 #45594 [verbose] > │ | UH0_0 -> (* Nil *) │
00:07:49 #45595 [verbose] > │ v1 │
00:07:49 #45596 [verbose] > │ and method7 (v0 : UH1, v1 : float) : float = │
00:07:49 #45597 [verbose] > │ match v0 with │
00:07:49 #45598 [verbose] > │ | UH1_1(v2, v3, v4) -> (* Cons *) │
00:07:49 #45599 [verbose] > │ method7(v4, v2) │
00:07:49 #45600 [verbose] > │ | UH1_0 -> (* Nil *) │
00:07:49 #45601 [verbose] > │ v1 │
00:07:49 #45602 [verbose] > │ and method0 () : struct (string * string * string * (struct (string * (float │
00:07:49 #45603 [verbose] > │ []) * (float [])) [])) = │
00:07:49 #45604 [verbose] > │ let v0 : (float []) = Array.zeroCreate<float> (71) │
00:07:49 #45605 [verbose] > │ let v1 : Mut0 = {l0 = 0} : Mut0 │
00:07:49 #45606 [verbose] > │ while method1(v1) do │
00:07:49 #45607 [verbose] > │ let v3 : int32 = v1.l0 │
00:07:49 #45608 [verbose] > │ let v4 : float = float v3 │
00:07:49 #45609 [verbose] > │ let v5 : float = 10.0 + v4 │
00:07:49 #45610 [verbose] > │ v0.[int v3] <- v5 │
00:07:49 #45611 [verbose] > │ let v6 : int32 = v3 + 1 │
00:07:49 #45612 [verbose] > │ v1.l0 <- v6 │
00:07:49 #45613 [verbose] > │ () │
00:07:49 #45614 [verbose] > │ let v7 : int32 = v0.Length │
00:07:49 #45615 [verbose] > │ let v8 : (float []) = Array.zeroCreate<float> (v7) │
00:07:49 #45616 [verbose] > │ let v9 : Mut0 = {l0 = 0} : Mut0 │
00:07:49 #45617 [verbose] > │ while method2(v7, v9) do │
00:07:49 #45618 [verbose] > │ let v11 : int32 = v9.l0 │
00:07:49 #45619 [verbose] > │ let v12 : float = v0.[int v11] │
00:07:49 #45620 [verbose] > │ let v13 : float = v12 * 3.141592653589793 │
00:07:49 #45621 [verbose] > │ let v14 : float = v13 / 180.0 │
00:07:49 #45622 [verbose] > │ let v15 : float = cos v14 │
00:07:49 #45623 [verbose] > │ let v16 : float = 45.0 * v15 │
00:07:49 #45624 [verbose] > │ let v17 : float = sin v14 │
00:07:49 #45625 [verbose] > │ let v18 : float = 45.0 * v17 │
00:07:49 #45626 [verbose] > │ let v19 : UH0 = UH0_0 │
00:07:49 #45627 [verbose] > │ let v20 : int32 = 0 │
00:07:49 #45628 [verbose] > │ let v21 : UH0 = method3(v16, v18, v19, v20) │
00:07:49 #45629 [verbose] > │ let v22 : UH1 = UH1_0 │
00:07:49 #45630 [verbose] > │ let v23 : UH1 = method6(v21, v22) │
00:07:49 #45631 [verbose] > │ let v24 : float = 0.0 │
00:07:49 #45632 [verbose] > │ let v25 : float = method7(v23, v24) │
00:07:49 #45633 [verbose] > │ v8.[int v11] <- v25 │
00:07:49 #45634 [verbose] > │ let v26 : int32 = v11 + 1 │
00:07:49 #45635 [verbose] > │ v9.l0 <- v26 │
00:07:49 #45636 [verbose] > │ () │
00:07:49 #45637 [verbose] > │ let v27 : string = "horizontal range (m)" │
00:07:49 #45638 [verbose] > │ let v28 : (struct (string * (float []) * (float [])) []) = [|struct │
00:07:49 #45639 [verbose] > │ (v27, v0, v8)|] │
00:07:49 #45640 [verbose] > │ let v29 : string = "range for a baseball hit at 45 m/s" │
00:07:49 #45641 [verbose] > │ let v30 : string = "angle above horizontal (degrees)" │
00:07:49 #45642 [verbose] > │ let v31 : string = "" │
00:07:49 #45643 [verbose] > │ struct (v29, v30, v31, v28) │
00:07:49 #45644 [verbose] > │ method0() │
00:07:49 #45645 [verbose] > │ │
00:07:49 #45646 [verbose] > │ │
00:07:49 #45647 [verbose] > ╰──────────────────────────────────────────────────────────────────────────────╯
00:07:49 #45648 [verbose] >
00:07:49 #45649 [verbose] > ── spiral ──────────────────────────────────────────────────────────────────────
00:07:49 #45650 [verbose] > // // test
00:07:49 #45651 [verbose] >
00:07:49 #45652 [verbose] > inl best_angle (min, max) =
00:07:49 #45653 [verbose] > let rec loop theta_deg (best_range, best_theta_deg) =
00:07:49 #45654 [verbose] > if theta_deg > max
00:07:49 #45655 [verbose] > then best_range, best_theta_deg
00:07:49 #45656 [verbose] > else
00:07:49 #45657 [verbose] > inl range = baseball_range 0.01 45 theta_deg
00:07:49 #45658 [verbose] > loop
00:07:49 #45659 [verbose] > (theta_deg + 1)
00:07:49 #45660 [verbose] > (if range > best_range
00:07:49 #45661 [verbose] > then range, theta_deg
00:07:49 #45662 [verbose] > else best_range, best_theta_deg)
00:07:49 #45663 [verbose] > loop min (0f64, min)
00:07:49 #45664 [verbose] >
00:07:49 #45665 [verbose] > best_angle (30f64, 60f64)
00:07:49 #45666 [verbose] > |> _assert_eq (116.77499158246208, 41)
00:07:49 #45667 [verbose] > Building c:\home\git\polyglot\target\polyglot\spiral_eval\packages\bc68087efbfbb05400079955b8bb0609cbb864bbb87e8869387561adf0b942cc\main.spi
00:07:49 #45668 [verbose] >
00:07:49 #45669 [verbose] > ╭─[ 595.59ms - stdout ]────────────────────────────────────────────────────────╮
00:07:49 #45670 [verbose] > │ type UH0 = │
00:07:49 #45671 [verbose] > │ | UH0_0 │
00:07:49 #45672 [verbose] > │ | UH0_1 of float * float * float * float * float * float * float * float │
00:07:49 #45673 [verbose] > │ * float * UH0 │
00:07:49 #45674 [verbose] > │ and UH1 = │
00:07:49 #45675 [verbose] > │ | UH1_0 │
00:07:49 #45676 [verbose] > │ | UH1_1 of float * float * UH1 │
00:07:49 #45677 [verbose] > │ let rec method3 (v0 : float, v1 : float, v2 : float, v3 : float, v4 : float, │
00:07:49 #45678 [verbose] > │ v5 : float, v6 : float, v7 : float, v8 : float, v9 : int32) : struct (float │
00:07:49 #45679 [verbose] > │ * float * float * float * float * float * float * float * float) = │
00:07:49 #45680 [verbose] > │ let v10 : bool = v9 <= 0 │
00:07:49 #45681 [verbose] > │ if v10 then │
00:07:49 #45682 [verbose] > │ struct (v0, v1, v2, v3, v4, v5, v6, v7, v8) │
00:07:49 #45683 [verbose] > │ else │
00:07:49 #45684 [verbose] > │ let v11 : float = v6 * v6 │
00:07:49 #45685 [verbose] > │ let v12 : float = v7 * v7 │
00:07:49 #45686 [verbose] > │ let v13 : float = v11 + v12 │
00:07:49 #45687 [verbose] > │ let v14 : float = v8 * v8 │
00:07:49 #45688 [verbose] > │ let v15 : float = v13 + v14 │
00:07:49 #45689 [verbose] > │ let v16 : float = sqrt v15 │
00:07:49 #45690 [verbose] > │ let v17 : float = -0.0007902794129829633 * v16 │
00:07:49 #45691 [verbose] > │ let v18 : float = v17 * v6 │
00:07:49 #45692 [verbose] > │ let v19 : float = v17 * v7 │
00:07:49 #45693 [verbose] > │ let v20 : float = v17 * v8 │
00:07:49 #45694 [verbose] > │ let v21 : float = -v1 │
00:07:49 #45695 [verbose] > │ let v22 : float = v21 * 9.80665 │
00:07:49 #45696 [verbose] > │ let v23 : float = v22 * 0.0 │
00:07:49 #45697 [verbose] > │ let v24 : float = v23 + v18 │
00:07:49 #45698 [verbose] > │ let v25 : float = v23 + v19 │
00:07:49 #45699 [verbose] > │ let v26 : float = v22 + v20 │
00:07:49 #45700 [verbose] > │ let v27 : float = v24 / v1 │
00:07:49 #45701 [verbose] > │ let v28 : float = v25 / v1 │
00:07:49 #45702 [verbose] > │ let v29 : float = v26 / v1 │
00:07:49 #45703 [verbose] > │ let v30 : float = 0.01 * v27 │
00:07:49 #45704 [verbose] > │ let v31 : float = 0.01 * v28 │
00:07:49 #45705 [verbose] > │ let v32 : float = 0.01 * v29 │
00:07:49 #45706 [verbose] > │ let v33 : float = v6 + v30 │
00:07:49 #45707 [verbose] > │ let v34 : float = v7 + v31 │
00:07:49 #45708 [verbose] > │ let v35 : float = v8 + v32 │
00:07:49 #45709 [verbose] > │ let v36 : float = v5 + 0.01 │
00:07:49 #45710 [verbose] > │ let v37 : float = 0.01 * v33 │
00:07:49 #45711 [verbose] > │ let v38 : float = 0.01 * v34 │
00:07:49 #45712 [verbose] > │ let v39 : float = 0.01 * v35 │
00:07:49 #45713 [verbose] > │ let v40 : float = v2 + v37 │
00:07:49 #45714 [verbose] > │ let v41 : float = v3 + v38 │
00:07:49 #45715 [verbose] > │ let v42 : float = v4 + v39 │
00:07:49 #45716 [verbose] > │ let v43 : int32 = v9 - 1 │
00:07:49 #45717 [verbose] > │ method3(v0, v1, v40, v41, v42, v36, v33, v34, v35, v43) │
00:07:49 #45718 [verbose] > │ and method4 (v0 : UH0, v1 : UH0) : UH0 = │
00:07:49 #45719 [verbose] > │ match v0 with │
00:07:49 #45720 [verbose] > │ | UH0_1(v2, v3, v4, v5, v6, v7, v8, v9, v10, v11) -> (* Cons *) │
00:07:49 #45721 [verbose] > │ let v12 : UH0 = UH0_1(v2, v3, v4, v5, v6, v7, v8, v9, v10, v1) │
00:07:49 #45722 [verbose] > │ method4(v11, v12) │
00:07:49 #45723 [verbose] > │ | UH0_0 -> (* Nil *) │
00:07:49 #45724 [verbose] > │ v1 │
00:07:49 #45725 [verbose] > │ and method2 (v0 : float, v1 : float, v2 : UH0, v3 : int32) : UH0 = │
00:07:49 #45726 [verbose] > │ let v4 : float = 0.0 │
00:07:49 #45727 [verbose] > │ let v5 : float = 0.145 │
00:07:49 #45728 [verbose] > │ let v6 : float = 0.0 │
00:07:49 #45729 [verbose] > │ let v7 : float = 0.0 │
00:07:49 #45730 [verbose] > │ let v8 : float = 0.0 │
00:07:49 #45731 [verbose] > │ let v9 : float = 0.0 │
00:07:49 #45732 [verbose] > │ let v10 : float = 0.0 │
00:07:49 #45733 [verbose] > │ let struct (v11 : float, v12 : float, v13 : float, v14 : float, v15 : │
00:07:49 #45734 [verbose] > │ float, v16 : float, v17 : float, v18 : float, v19 : float) = method3(v4, v5, │
00:07:49 #45735 [verbose] > │ v6, v7, v8, v9, v10, v0, v1, v3) │
00:07:49 #45736 [verbose] > │ let v20 : bool = v15 >= 0.0 │
00:07:49 #45737 [verbose] > │ if v20 then │
00:07:49 #45738 [verbose] > │ let v21 : UH0 = UH0_1(v11, v12, v13, v14, v15, v16, v17, v18, v19, │
00:07:49 #45739 [verbose] > │ v2) │
00:07:49 #45740 [verbose] > │ let v22 : int32 = v3 + 1 │
00:07:49 #45741 [verbose] > │ method2(v0, v1, v21, v22) │
00:07:49 #45742 [verbose] > │ else │
00:07:49 #45743 [verbose] > │ let v24 : UH0 = UH0_0 │
00:07:49 #45744 [verbose] > │ method4(v2, v24) │
00:07:49 #45745 [verbose] > │ and method5 (v0 : UH0, v1 : UH1) : UH1 = │
00:07:49 #45746 [verbose] > │ match v0 with │
00:07:49 #45747 [verbose] > │ | UH0_1(v2, v3, v4, v5, v6, v7, v8, v9, v10, v11) -> (* Cons *) │
00:07:49 #45748 [verbose] > │ let v12 : UH1 = method5(v11, v1) │
00:07:49 #45749 [verbose] > │ UH1_1(v5, v6, v12) │
00:07:49 #45750 [verbose] > │ | UH0_0 -> (* Nil *) │
00:07:49 #45751 [verbose] > │ v1 │
00:07:49 #45752 [verbose] > │ and method6 (v0 : UH1, v1 : float) : float = │
00:07:49 #45753 [verbose] > │ match v0 with │
00:07:49 #45754 [verbose] > │ | UH1_1(v2, v3, v4) -> (* Cons *) │
00:07:49 #45755 [verbose] > │ method6(v4, v2) │
00:07:49 #45756 [verbose] > │ | UH1_0 -> (* Nil *) │
00:07:49 #45757 [verbose] > │ v1 │
00:07:49 #45758 [verbose] > │ and method1 (v0 : float, v1 : float, v2 : float) : struct (float * float) = │
00:07:49 #45759 [verbose] > │ let v3 : bool = v0 > 60.0 │
00:07:49 #45760 [verbose] > │ if v3 then │
00:07:49 #45761 [verbose] > │ struct (v2, v1) │
00:07:49 #45762 [verbose] > │ else │
00:07:49 #45763 [verbose] > │ let v4 : float = v0 * 3.141592653589793 │
00:07:49 #45764 [verbose] > │ let v5 : float = v4 / 180.0 │
00:07:49 #45765 [verbose] > │ let v6 : float = cos v5 │
00:07:49 #45766 [verbose] > │ let v7 : float = 45.0 * v6 │
00:07:49 #45767 [verbose] > │ let v8 : float = sin v5 │
00:07:49 #45768 [verbose] > │ let v9 : float = 45.0 * v8 │
00:07:49 #45769 [verbose] > │ let v10 : UH0 = UH0_0 │
00:07:49 #45770 [verbose] > │ let v11 : int32 = 0 │
00:07:49 #45771 [verbose] > │ let v12 : UH0 = method2(v7, v9, v10, v11) │
00:07:49 #45772 [verbose] > │ let v13 : UH1 = UH1_0 │
00:07:49 #45773 [verbose] > │ let v14 : UH1 = method5(v12, v13) │
00:07:49 #45774 [verbose] > │ let v15 : float = 0.0 │
00:07:49 #45775 [verbose] > │ let v16 : float = method6(v14, v15) │
00:07:49 #45776 [verbose] > │ let v17 : float = v0 + 1.0 │
00:07:49 #45777 [verbose] > │ let v18 : bool = v16 > v2 │
00:07:49 #45778 [verbose] > │ let struct (v19 : float, v20 : float) = │
00:07:49 #45779 [verbose] > │ if v18 then │
00:07:49 #45780 [verbose] > │ struct (v16, v0) │
00:07:49 #45781 [verbose] > │ else │
00:07:49 #45782 [verbose] > │ struct (v2, v1) │
00:07:49 #45783 [verbose] > │ method1(v17, v20, v19) │
00:07:49 #45784 [verbose] > │ and method7 (v0 : bool) : bool = │
00:07:49 #45785 [verbose] > │ v0 │
00:07:49 #45786 [verbose] > │ and method0 () : unit = │
00:07:49 #45787 [verbose] > │ let v0 : float = 30.0 │
00:07:49 #45788 [verbose] > │ let v1 : float = 0.0 │
00:07:49 #45789 [verbose] > │ let v2 : float = 30.0 │
00:07:49 #45790 [verbose] > │ let struct (v3 : float, v4 : float) = method1(v0, v2, v1) │
00:07:49 #45791 [verbose] > │ let v5 : string = $"%A{struct (v3, v4)}" │
00:07:49 #45792 [verbose] > │ System.Console.WriteLine v5 │
00:07:49 #45793 [verbose] > │ let v6 : bool = v3 = 116.77499158246208 │
00:07:49 #45794 [verbose] > │ let v8 : bool = │
00:07:49 #45795 [verbose] > │ if v6 then │
00:07:49 #45796 [verbose] > │ let v7 : bool = v4 = 41.0 │
00:07:49 #45797 [verbose] > │ v7 │
00:07:49 #45798 [verbose] > │ else │
00:07:49 #45799 [verbose] > │ false │
00:07:49 #45800 [verbose] > │ let v10 : bool = │
00:07:49 #45801 [verbose] > │ if v8 then │
00:07:49 #45802 [verbose] > │ true │
00:07:49 #45803 [verbose] > │ else │
00:07:49 #45804 [verbose] > │ method7(v8) │
00:07:49 #45805 [verbose] > │ let v11 : string = $"__expect / actual: %A{struct (v3, v4)} / expected: │
00:07:49 #45806 [verbose] > │ %A{struct (116.77499158246208, 41.0)}" │
00:07:49 #45807 [verbose] > │ let v12 : bool = v10 = false │
00:07:49 #45808 [verbose] > │ if v12 then │
00:07:49 #45809 [verbose] > │ failwith<unit> v11 │
00:07:49 #45810 [verbose] > │ method0() │
00:07:49 #45811 [verbose] > │ │
00:07:49 #45812 [verbose] > │ struct (116.7749916, 41.0) │
00:07:49 #45813 [verbose] > │ │
00:07:49 #45814 [verbose] > ╰──────────────────────────────────────────────────────────────────────────────╯
00:07:49 #45815 [verbose] >
00:07:49 #45816 [verbose] > ── markdown ────────────────────────────────────────────────────────────────────
00:07:49 #45817 [verbose] > ╭──────────────────────────────────────────────────────────────────────────────╮
00:07:49 #45818 [verbose] > │ ## relativity_ps │
00:07:49 #45819 [verbose] > ╰──────────────────────────────────────────────────────────────────────────────╯
00:07:49 #45820 [verbose] >
00:07:49 #45821 [verbose] > ── spiral ──────────────────────────────────────────────────────────────────────
00:07:49 #45822 [verbose] > inl relativity_ps fs (st : particle_state) =
00:07:49 #45823 [verbose] > inl f_net = fs |> listm.map (fun f => f st) |> sum_vec
00:07:49 #45824 [verbose] > inl c = 299792458
00:07:49 #45825 [verbose] > inl u = st.velocity ^/ c
00:07:49 #45826 [verbose] > inl acc = sqrt (1 - (u <.> u)) *^ (f_net ^-^ (f_net <.> u) *^ u) ^/ st.mass
00:07:49 #45827 [verbose] > d_particle_state {
00:07:49 #45828 [verbose] > dmdt = 0
00:07:49 #45829 [verbose] > dqdt = 0
00:07:49 #45830 [verbose] > dtdt = 1
00:07:49 #45831 [verbose] > drdt = st.velocity
00:07:49 #45832 [verbose] > dvdt = acc
00:07:49 #45833 [verbose] > }
00:07:49 #45834 [verbose] > Building c:\home\git\polyglot\target\polyglot\spiral_eval\packages\ac244dbd4ff973d6a44954edcca731f6939816112d576db1b56a64c2e8a65b91\main.spi
00:07:50 #45835 [verbose] >
00:07:50 #45836 [verbose] > ╭─[ 289.95ms - stdout ]────────────────────────────────────────────────────────╮
00:07:50 #45837 [verbose] > │ () │
00:07:50 #45838 [verbose] > │ │
00:07:50 #45839 [verbose] > │ │
00:07:50 #45840 [verbose] > ╰──────────────────────────────────────────────────────────────────────────────╯
00:07:50 #45841 [verbose] >
00:07:50 #45842 [verbose] > ── spiral ──────────────────────────────────────────────────────────────────────
00:07:50 #45843 [verbose] > // // test
00:07:50 #45844 [verbose] >
00:07:50 #45845 [verbose] > inl year = 365.25 * 24 * 60 * 60
00:07:50 #45846 [verbose] > inl c = 299792458
00:07:50 #45847 [verbose] > inl ~method = runge_kutta_4 100000
00:07:50 #45848 [verbose] > inl forces = [[ fun _ => 10 *^ i_hat () ]]
00:07:50 #45849 [verbose] > inl (particle_state default_particle_state') = default_particle_state ()
00:07:50 #45850 [verbose] > inl initial_state =
00:07:50 #45851 [verbose] > particle_state { default_particle_state' with
00:07:50 #45852 [verbose] > mass = 1
00:07:50 #45853 [verbose] > }
00:07:50 #45854 [verbose] >
00:07:50 #45855 [verbose] > inl newton_states = solver_ method (newton_second_ps forces) initial_state
00:07:50 #45856 [verbose] > inl relativity_states = solver_ method (relativity_ps forces) initial_state
00:07:50 #45857 [verbose] >
00:07:50 #45858 [verbose] > inl newton_x, newton_y =
00:07:50 #45859 [verbose] > newton_states
00:07:50 #45860 [verbose] > >> Some
00:07:50 #45861 [verbose] > |> seq.take_while_ (fun (particle_state st) (_ : i32) => st.time <= year)
00:07:50 #45862 [verbose] > |> listm.map (fun (particle_state st) => st.time / year, st.velocity.x / c)
00:07:50 #45863 [verbose] > |> listm'.unzip
00:07:50 #45864 [verbose] >
00:07:50 #45865 [verbose] > inl _, relativity_y =
00:07:50 #45866 [verbose] > relativity_states
00:07:50 #45867 [verbose] > >> Some
00:07:50 #45868 [verbose] > |> seq.take_while_ (fun (particle_state st) (_ : i32) => st.time <= year)
00:07:50 #45869 [verbose] > |> listm.map (fun (particle_state st) => st.time / year, st.velocity.x / c)
00:07:50 #45870 [verbose] > |> listm'.unzip
00:07:50 #45871 [verbose] >
00:07:50 #45872 [verbose] > inl newton_x : a i32 _ = newton_x |> listm.toArray
00:07:50 #45873 [verbose] > inl newton_y : a i32 _ = newton_y |> listm.toArray
00:07:50 #45874 [verbose] > inl relativity_y : a i32 _ = relativity_y |> listm.toArray
00:07:50 #45875 [verbose] >
00:07:50 #45876 [verbose] > "response to a constant force",
00:07:50 #45877 [verbose] > "time (years)",
00:07:50 #45878 [verbose] > "velocity (multiples of c)",
00:07:50 #45879 [verbose] > ;[[
00:07:50 #45880 [verbose] > "newtonian", newton_x, newton_y
00:07:50 #45881 [verbose] > "relativistic", newton_x, relativity_y
00:07:50 #45882 [verbose] > ]]
00:07:50 #45883 [verbose] > Building c:\home\git\polyglot\target\polyglot\spiral_eval\packages\198d6a33edeff181fd7ef534b520bdb91f070ee9b4f26766999a2aeea6940869\main.spi
00:07:50 #45884 [verbose] >
00:07:50 #45885 [verbose] > ╭─[ 613.44ms - return value ]──────────────────────────────────────────────────╮
00:07:50 #45886 [verbose] > │ <svg width="640" height="480" viewBox="0 0 640 480" │
00:07:50 #45887 [verbose] > │ xmlns="http://www.w3.org/2000/svg"> │
00:07:50 #45888 [verbose] > │ <rect x="0" y="0" width="640" height="480" opacity="1" fill="#141414" │
00:07:50 #45889 [verbose] > │ stroke="none"/> │
00:07:50 #45890 [verbose] > │ <text x="320" y="10" dy="0.76em" text-anchor="middle" │
00:07:50 #45891 [verbose] > │ font-family="sans-serif" font-size="9.67741935483871" opacity="1" │
00:07:50 #45892 [verbose] > │ fill="#FFFFFF"> │
00:07:50 #45893 [verbose] > │ response to a constant force │
00:07:50 #45894 [verbose] > │ </text> │
00:07:50 #45895 [verbose] > │ <line opacity="1" stroke="#323232" stroke-width="1" x1="59" y1="424" x2="59" │
00:07:50 #45896 [verbose] > │ y2="75"/> │
00:07:50 #45897 [verbose] > │ <line opacity="1" stroke="#323232" stroke-width="1" x1="69" y1="424" x2="69" │
00:07:50 #45898 [verbose] > │ y2="75"/> │
00:07:50 #45899 [verbose] > │ <line opacity="1" stroke="#323232" stroke-width="1" x1="79" y1="424" x2="79" │
00:07:50 #45900 [verbose] > │ y2="75"/> │
00:07:50 #45901 [verbose] > │ <line opacity="1" stroke="#323232" stroke-width="1" x1="89" y1="424" x2="89" │
00:07:50 #45902 [verbose] > │ y2="75"/> │
00:07:50 #45903 [verbose] > │ <line opacity="1" stroke="#323232" stroke-width="1" x1=... │
00:07:50 #45904 [verbose] > ╰──────────────────────────────────────────────────────────────────────────────╯
00:07:50 #45905 [verbose] >
00:07:50 #45906 [verbose] > ╭─[ 629.38ms - stdout ]────────────────────────────────────────────────────────╮
00:07:50 #45907 [verbose] > │ type UH0 = │
00:07:50 #45908 [verbose] > │ | UH0_0 │
00:07:50 #45909 [verbose] > │ | UH0_1 of float * float * float * float * float * float * float * float │
00:07:50 #45910 [verbose] > │ * float * UH0 │
00:07:50 #45911 [verbose] > │ and UH1 = │
00:07:50 #45912 [verbose] > │ | UH1_0 │
00:07:50 #45913 [verbose] > │ | UH1_1 of float * float * UH1 │
00:07:50 #45914 [verbose] > │ and UH2 = │
00:07:50 #45915 [verbose] > │ | UH2_0 │
00:07:50 #45916 [verbose] > │ | UH2_1 of float * UH2 │
00:07:50 #45917 [verbose] > │ let rec closure1 (v0 : (struct (float * float * float * float * float * │
00:07:50 #45918 [verbose] > │ float * float * float * float) -> struct (float * float * float * float * │
00:07:50 #45919 [verbose] > │ float * float * float * float * float))) struct (v1 : float, v2 : float, v3 │
00:07:50 #45920 [verbose] > │ : float, v4 : float, v5 : float, v6 : float, v7 : float, v8 : float, v9 : │
00:07:50 #45921 [verbose] > │ float) : struct (float * float * float * float * float * float * float * │
00:07:50 #45922 [verbose] > │ float * float) = │
00:07:50 #45923 [verbose] > │ let struct (v10 : float, v11 : float, v12 : float, v13 : float, v14 : │
00:07:50 #45924 [verbose] > │ float, v15 : float, v16 : float, v17 : float, v18 : float) = v0 struct (v1, │
00:07:50 #45925 [verbose] > │ v2, v3, v4, v5, v6, v7, v8, v9) │
00:07:50 #45926 [verbose] > │ let v19 : float = v15 * 50000.0 │
00:07:50 #45927 [verbose] > │ let v20 : float = v6 + v19 │
00:07:50 #45928 [verbose] > │ let v21 : float = 50000.0 * v12 │
00:07:50 #45929 [verbose] > │ let v22 : float = 50000.0 * v13 │
00:07:50 #45930 [verbose] > │ let v23 : float = 50000.0 * v14 │
00:07:50 #45931 [verbose] > │ let v24 : float = v3 + v21 │
00:07:50 #45932 [verbose] > │ let v25 : float = v4 + v22 │
00:07:50 #45933 [verbose] > │ let v26 : float = v5 + v23 │
00:07:50 #45934 [verbose] > │ let v27 : float = 50000.0 * v16 │
00:07:50 #45935 [verbose] > │ let v28 : float = 50000.0 * v17 │
00:07:50 #45936 [verbose] > │ let v29 : float = 50000.0 * v18 │
00:07:50 #45937 [verbose] > │ let v30 : float = v7 + v27 │
00:07:50 #45938 [verbose] > │ let v31 : float = v8 + v28 │
00:07:50 #45939 [verbose] > │ let v32 : float = v9 + v29 │
00:07:50 #45940 [verbose] > │ let struct (v33 : float, v34 : float, v35 : float, v36 : float, v37 : │
00:07:50 #45941 [verbose] > │ float, v38 : float, v39 : float, v40 : float, v41 : float) = v0 struct (v1, │
00:07:50 #45942 [verbose] > │ v2, v24, v25, v26, v20, v30, v31, v32) │
00:07:50 #45943 [verbose] > │ let v42 : float = v38 * 50000.0 │
00:07:50 #45944 [verbose] > │ let v43 : float = v6 + v42 │
00:07:50 #45945 [verbose] > │ let v44 : float = 50000.0 * v35 │
00:07:50 #45946 [verbose] > │ let v45 : float = 50000.0 * v36 │
00:07:50 #45947 [verbose] > │ let v46 : float = 50000.0 * v37 │
00:07:50 #45948 [verbose] > │ let v47 : float = v3 + v44 │
00:07:50 #45949 [verbose] > │ let v48 : float = v4 + v45 │
00:07:50 #45950 [verbose] > │ let v49 : float = v5 + v46 │
00:07:50 #45951 [verbose] > │ let v50 : float = 50000.0 * v39 │
00:07:50 #45952 [verbose] > │ let v51 : float = 50000.0 * v40 │
00:07:50 #45953 [verbose] > │ let v52 : float = 50000.0 * v41 │
00:07:50 #45954 [verbose] > │ let v53 : float = v7 + v50 │
00:07:50 #45955 [verbose] > │ let v54 : float = v8 + v51 │
00:07:50 #45956 [verbose] > │ let v55 : float = v9 + v52 │
00:07:50 #45957 [verbose] > │ let struct (v56 : float, v57 : float, v58 : float, v59 : float, v60 : │
00:07:50 #45958 [verbose] > │ float, v61 : float, v62 : float, v63 : float, v64 : float) = v0 struct (v1, │
00:07:50 #45959 [verbose] > │ v2, v47, v48, v49, v43, v53, v54, v55) │
00:07:50 #45960 [verbose] > │ let v65 : float = v61 * 100000.0 │
00:07:50 #45961 [verbose] > │ let v66 : float = v6 + v65 │
00:07:50 #45962 [verbose] > │ let v67 : float = 100000.0 * v58 │
00:07:50 #45963 [verbose] > │ let v68 : float = 100000.0 * v59 │
00:07:50 #45964 [verbose] > │ let v69 : float = 100000.0 * v60 │
00:07:50 #45965 [verbose] > │ let v70 : float = v3 + v67 │
00:07:50 #45966 [verbose] > │ let v71 : float = v4 + v68 │
00:07:50 #45967 [verbose] > │ let v72 : float = v5 + v69 │
00:07:50 #45968 [verbose] > │ let v73 : float = 100000.0 * v62 │
00:07:50 #45969 [verbose] > │ let v74 : float = 100000.0 * v63 │
00:07:50 #45970 [verbose] > │ let v75 : float = 100000.0 * v64 │
00:07:50 #45971 [verbose] > │ let v76 : float = v7 + v73 │
00:07:50 #45972 [verbose] > │ let v77 : float = v8 + v74 │
00:07:50 #45973 [verbose] > │ let v78 : float = v9 + v75 │
00:07:50 #45974 [verbose] > │ let struct (v79 : float, v80 : float, v81 : float, v82 : float, v83 : │
00:07:50 #45975 [verbose] > │ float, v84 : float, v85 : float, v86 : float, v87 : float) = v0 struct (v1, │
00:07:50 #45976 [verbose] > │ v2, v70, v71, v72, v66, v76, v77, v78) │
00:07:50 #45977 [verbose] > │ let v88 : float = v10 + v33 │
00:07:50 #45978 [verbose] > │ let v89 : float = v11 + v34 │
00:07:50 #45979 [verbose] > │ let v90 : float = v15 + v38 │
00:07:50 #45980 [verbose] > │ let v91 : float = v12 + v35 │
00:07:50 #45981 [verbose] > │ let v92 : float = v13 + v36 │
00:07:50 #45982 [verbose] > │ let v93 : float = v14 + v37 │
00:07:50 #45983 [verbose] > │ let v94 : float = v16 + v39 │
00:07:50 #45984 [verbose] > │ let v95 : float = v17 + v40 │
00:07:50 #45985 [verbose] > │ let v96 : float = v18 + v41 │
00:07:50 #45986 [verbose] > │ let v97 : float = v88 + v33 │
00:07:50 #45987 [verbose] > │ let v98 : float = v89 + v34 │
00:07:50 #45988 [verbose] > │ let v99 : float = v90 + v38 │
00:07:50 #45989 [verbose] > │ let v100 : float = v91 + v35 │
00:07:50 #45990 [verbose] > │ let v101 : float = v92 + v36 │
00:07:50 #45991 [verbose] > │ let v102 : float = v93 + v37 │
00:07:50 #45992 [verbose] > │ let v103 : float = v94 + v39 │
00:07:50 #45993 [verbose] > │ let v104 : float = v95 + v40 │
00:07:50 #45994 [verbose] > │ let v105 : float = v96 + v41 │
00:07:50 #45995 [verbose] > │ let v106 : float = v97 + v56 │
00:07:50 #45996 [verbose] > │ let v107 : float = v98 + v57 │
00:07:50 #45997 [verbose] > │ let v108 : float = v99 + v61 │
00:07:50 #45998 [verbose] > │ let v109 : float = v100 + v58 │
00:07:50 #45999 [verbose] > │ let v110 : float = v101 + v59 │
00:07:50 #46000 [verbose] > │ let v111 : float = v102 + v60 │
00:07:50 #46001 [verbose] > │ let v112 : float = v103 + v62 │
00:07:50 #46002 [verbose] > │ let v113 : float = v104 + v63 │
00:07:50 #46003 [verbose] > │ let v114 : float = v105 + v64 │
00:07:50 #46004 [verbose] > │ let v115 : float = v106 + v56 │
00:07:50 #46005 [verbose] > │ let v116 : float = v107 + v57 │
00:07:50 #46006 [verbose] > │ let v117 : float = v108 + v61 │
00:07:50 #46007 [verbose] > │ let v118 : float = v109 + v58 │
00:07:50 #46008 [verbose] > │ let v119 : float = v110 + v59 │
00:07:50 #46009 [verbose] > │ let v120 : float = v111 + v60 │
00:07:50 #46010 [verbose] > │ let v121 : float = v112 + v62 │
00:07:50 #46011 [verbose] > │ let v122 : float = v113 + v63 │
00:07:50 #46012 [verbose] > │ let v123 : float = v114 + v64 │
00:07:50 #46013 [verbose] > │ let v124 : float = v115 + v79 │
00:07:50 #46014 [verbose] > │ let v125 : float = v116 + v80 │
00:07:50 #46015 [verbose] > │ let v126 : float = v117 + v84 │
00:07:50 #46016 [verbose] > │ let v127 : float = v118 + v81 │
00:07:50 #46017 [verbose] > │ let v128 : float = v119 + v82 │
00:07:50 #46018 [verbose] > │ let v129 : float = v120 + v83 │
00:07:50 #46019 [verbose] > │ let v130 : float = v121 + v85 │
00:07:50 #46020 [verbose] > │ let v131 : float = v122 + v86 │
00:07:50 #46021 [verbose] > │ let v132 : float = v123 + v87 │
00:07:50 #46022 [verbose] > │ let v133 : float = v126 * 16666.666666666668 │
00:07:50 #46023 [verbose] > │ let v134 : float = v6 + v133 │
00:07:50 #46024 [verbose] > │ let v135 : float = 16666.666666666668 * v127 │
00:07:50 #46025 [verbose] > │ let v136 : float = 16666.666666666668 * v128 │
00:07:50 #46026 [verbose] > │ let v137 : float = 16666.666666666668 * v129 │
00:07:50 #46027 [verbose] > │ let v138 : float = v3 + v135 │
00:07:50 #46028 [verbose] > │ let v139 : float = v4 + v136 │
00:07:50 #46029 [verbose] > │ let v140 : float = v5 + v137 │
00:07:50 #46030 [verbose] > │ let v141 : float = 16666.666666666668 * v130 │
00:07:50 #46031 [verbose] > │ let v142 : float = 16666.666666666668 * v131 │
00:07:50 #46032 [verbose] > │ let v143 : float = 16666.666666666668 * v132 │
00:07:50 #46033 [verbose] > │ let v144 : float = v7 + v141 │
00:07:50 #46034 [verbose] > │ let v145 : float = v8 + v142 │
00:07:50 #46035 [verbose] > │ let v146 : float = v9 + v143 │
00:07:50 #46036 [verbose] > │ struct (v1, v2, v138, v139, v140, v134, v144, v145, v146) │
00:07:50 #46037 [verbose] > │ and closure0 () (v0 : (struct (float * float * float * float * float * float │
00:07:50 #46038 [verbose] > │ * float * float * float) -> struct (float * float * float * float * float * │
00:07:50 #46039 [verbose] > │ float * float * float * float))) : (struct (float * float * float * float * │
00:07:50 #46040 [verbose] > │ float * float * float * float * float) -> struct (float * float * float * │
00:07:50 #46041 [verbose] > │ float * float * float * float * float * float)) = │
00:07:50 #46042 [verbose] > │ closure1(v0) │
00:07:50 #46043 [verbose] > │ and closure2 () struct (v0 : float, v1 : float, v2 : float, v3 : float, v4 : │
00:07:50 #46044 [verbose] > │ float, v5 : float, v6 : float, v7 : float, v8 : float) : struct (float * │
00:07:50 #46045 [verbose] > │ float * float * float * float * float * float * float * float) = │
00:07:50 #46046 [verbose] > │ let v9 : float = 10.0 / v1 │
00:07:50 #46047 [verbose] > │ let v10 : float = 0.0 / v1 │
00:07:50 #46048 [verbose] > │ struct (0.0, 0.0, v6, v7, v8, 1.0, v9, v10, v10) │
00:07:50 #46049 [verbose] > │ and closure3 () struct (v0 : float, v1 : float, v2 : float, v3 : float, v4 : │
00:07:50 #46050 [verbose] > │ float, v5 : float, v6 : float, v7 : float, v8 : float) : struct (float * │
00:07:50 #46051 [verbose] > │ float * float * float * float * float * float * float * float) = │
00:07:50 #46052 [verbose] > │ let v9 : float = v6 / 299792458.0 │
00:07:50 #46053 [verbose] > │ let v10 : float = v7 / 299792458.0 │
00:07:50 #46054 [verbose] > │ let v11 : float = v8 / 299792458.0 │
00:07:50 #46055 [verbose] > │ let v12 : float = v9 * v9 │
00:07:50 #46056 [verbose] > │ let v13 : float = v10 * v10 │
00:07:50 #46057 [verbose] > │ let v14 : float = v12 + v13 │
00:07:50 #46058 [verbose] > │ let v15 : float = v11 * v11 │
00:07:50 #46059 [verbose] > │ let v16 : float = v14 + v15 │
00:07:50 #46060 [verbose] > │ let v17 : float = 1.0 - v16 │
00:07:50 #46061 [verbose] > │ let v18 : float = sqrt v17 │
00:07:50 #46062 [verbose] > │ let v19 : float = 10.0 * v9 │
00:07:50 #46063 [verbose] > │ let v20 : float = 0.0 * v10 │
00:07:50 #46064 [verbose] > │ let v21 : float = v19 + v20 │
00:07:50 #46065 [verbose] > │ let v22 : float = 0.0 * v11 │
00:07:50 #46066 [verbose] > │ let v23 : float = v21 + v22 │
00:07:50 #46067 [verbose] > │ let v24 : float = v23 * v9 │
00:07:50 #46068 [verbose] > │ let v25 : float = v23 * v10 │
00:07:50 #46069 [verbose] > │ let v26 : float = v23 * v11 │
00:07:50 #46070 [verbose] > │ let v27 : float = -1.0 * v24 │
00:07:50 #46071 [verbose] > │ let v28 : float = -1.0 * v25 │
00:07:50 #46072 [verbose] > │ let v29 : float = -1.0 * v26 │
00:07:50 #46073 [verbose] > │ let v30 : float = 10.0 + v27 │
00:07:50 #46074 [verbose] > │ let v31 : float = v18 * v30 │
00:07:50 #46075 [verbose] > │ let v32 : float = v18 * v28 │
00:07:50 #46076 [verbose] > │ let v33 : float = v18 * v29 │
00:07:50 #46077 [verbose] > │ let v34 : float = v31 / v1 │
00:07:50 #46078 [verbose] > │ let v35 : float = v32 / v1 │
00:07:50 #46079 [verbose] > │ let v36 : float = v33 / v1 │
00:07:50 #46080 [verbose] > │ struct (0.0, 0.0, v6, v7, v8, 1.0, v34, v35, v36) │
00:07:50 #46081 [verbose] > │ and method2 (v0 : (struct (float * float * float * float * float * float * │
00:07:50 #46082 [verbose] > │ float * float * float) -> struct (float * float * float * float * float * │
00:07:50 #46083 [verbose] > │ float * float * float * float)), v1 : float, v2 : float, v3 : float, v4 : │
00:07:50 #46084 [verbose] > │ float, v5 : float, v6 : float, v7 : float, v8 : float, v9 : float, v10 : │
00:07:50 #46085 [verbose] > │ int32) : struct (float * float * float * float * float * float * float * │
00:07:50 #46086 [verbose] > │ float * float) = │
00:07:50 #46087 [verbose] > │ let v11 : bool = v10 <= 0 │
00:07:50 #46088 [verbose] > │ if v11 then │
00:07:50 #46089 [verbose] > │ struct (v1, v2, v3, v4, v5, v6, v7, v8, v9) │
00:07:50 #46090 [verbose] > │ else │
00:07:50 #46091 [verbose] > │ let struct (v12 : float, v13 : float, v14 : float, v15 : float, v16 │
00:07:50 #46092 [verbose] > │ : float, v17 : float, v18 : float, v19 : float, v20 : float) = v0 struct │
00:07:50 #46093 [verbose] > │ (v1, v2, v3, v4, v5, v6, v7, v8, v9) │
00:07:50 #46094 [verbose] > │ let v21 : int32 = v10 - 1 │
00:07:50 #46095 [verbose] > │ method2(v0, v12, v13, v14, v15, v16, v17, v18, v19, v20, v21) │
00:07:50 #46096 [verbose] > │ and method3 (v0 : UH0, v1 : UH0) : UH0 = │
00:07:50 #46097 [verbose] > │ match v0 with │
00:07:50 #46098 [verbose] > │ | UH0_1(v2, v3, v4, v5, v6, v7, v8, v9, v10, v11) -> (* Cons *) │
00:07:50 #46099 [verbose] > │ let v12 : UH0 = UH0_1(v2, v3, v4, v5, v6, v7, v8, v9, v10, v1) │
00:07:50 #46100 [verbose] > │ method3(v11, v12) │
00:07:50 #46101 [verbose] > │ | UH0_0 -> (* Nil *) │
00:07:50 #46102 [verbose] > │ v1 │
00:07:50 #46103 [verbose] > │ and method1 (v0 : (struct (float * float * float * float * float * float * │
00:07:50 #46104 [verbose] > │ float * float * float) -> struct (float * float * float * float * float * │
00:07:50 #46105 [verbose] > │ float * float * float * float)), v1 : UH0, v2 : int32) : UH0 = │
00:07:50 #46106 [verbose] > │ let v3 : float = 0.0 │
00:07:50 #46107 [verbose] > │ let v4 : float = 1.0 │
00:07:50 #46108 [verbose] > │ let v5 : float = 0.0 │
00:07:50 #46109 [verbose] > │ let v6 : float = 0.0 │
00:07:50 #46110 [verbose] > │ let v7 : float = 0.0 │
00:07:50 #46111 [verbose] > │ let v8 : float = 0.0 │
00:07:50 #46112 [verbose] > │ let v9 : float = 0.0 │
00:07:50 #46113 [verbose] > │ let v10 : float = 0.0 │
00:07:50 #46114 [verbose] > │ let v11 : float = 0.0 │
00:07:50 #46115 [verbose] > │ let struct (v12 : float, v13 : float, v14 : float, v15 : float, v16 : │
00:07:50 #46116 [verbose] > │ float, v17 : float, v18 : float, v19 : float, v20 : float) = method2(v0, v3, │
00:07:50 #46117 [verbose] > │ v4, v5, v6, v7, v8, v9, v10, v11, v2) │
00:07:50 #46118 [verbose] > │ let v21 : bool = v17 <= 31557600.0 │
00:07:50 #46119 [verbose] > │ if v21 then │
00:07:50 #46120 [verbose] > │ let v22 : UH0 = UH0_1(v12, v13, v14, v15, v16, v17, v18, v19, v20, │
00:07:50 #46121 [verbose] > │ v1) │
00:07:50 #46122 [verbose] > │ let v23 : int32 = v2 + 1 │
00:07:50 #46123 [verbose] > │ method1(v0, v22, v23) │
00:07:50 #46124 [verbose] > │ else │
00:07:50 #46125 [verbose] > │ let v25 : UH0 = UH0_0 │
00:07:50 #46126 [verbose] > │ method3(v1, v25) │
00:07:50 #46127 [verbose] > │ and method4 (v0 : UH0, v1 : UH1) : UH1 = │
00:07:50 #46128 [verbose] > │ match v0 with │
00:07:50 #46129 [verbose] > │ | UH0_1(v2, v3, v4, v5, v6, v7, v8, v9, v10, v11) -> (* Cons *) │
00:07:50 #46130 [verbose] > │ let v12 : UH1 = method4(v11, v1) │
00:07:50 #46131 [verbose] > │ let v13 : float = v7 / 31557600.0 │
00:07:50 #46132 [verbose] > │ let v14 : float = v8 / 299792458.0 │
00:07:50 #46133 [verbose] > │ UH1_1(v13, v14, v12) │
00:07:50 #46134 [verbose] > │ | UH0_0 -> (* Nil *) │
00:07:50 #46135 [verbose] > │ v1 │
00:07:50 #46136 [verbose] > │ and method5 (v0 : UH1, v1 : UH2, v2 : UH2) : struct (UH2 * UH2) = │
00:07:50 #46137 [verbose] > │ match v0 with │
00:07:50 #46138 [verbose] > │ | UH1_1(v3, v4, v5) -> (* Cons *) │
00:07:50 #46139 [verbose] > │ let v6 : UH2 = UH2_1(v3, v1) │
00:07:50 #46140 [verbose] > │ let v7 : UH2 = UH2_1(v4, v2) │
00:07:50 #46141 [verbose] > │ method5(v5, v6, v7) │
00:07:50 #46142 [verbose] > │ | UH1_0 -> (* Nil *) │
00:07:50 #46143 [verbose] > │ struct (v1, v2) │
00:07:50 #46144 [verbose] > │ and method6 (v0 : UH2, v1 : UH2) : UH2 = │
00:07:50 #46145 [verbose] > │ match v0 with │
00:07:50 #46146 [verbose] > │ | UH2_1(v2, v3) -> (* Cons *) │
00:07:50 #46147 [verbose] > │ let v4 : UH2 = UH2_1(v2, v1) │
00:07:50 #46148 [verbose] > │ method6(v3, v4) │
00:07:50 #46149 [verbose] > │ | UH2_0 -> (* Nil *) │
00:07:50 #46150 [verbose] > │ v1 │
00:07:50 #46151 [verbose] > │ and method7 (v0 : (struct (float * float * float * float * float * float * │
00:07:50 #46152 [verbose] > │ float * float * float) -> struct (float * float * float * float * float * │
00:07:50 #46153 [verbose] > │ float * float * float * float)), v1 : UH0, v2 : int32) : UH0 = │
00:07:50 #46154 [verbose] > │ let v3 : float = 0.0 │
00:07:50 #46155 [verbose] > │ let v4 : float = 1.0 │
00:07:50 #46156 [verbose] > │ let v5 : float = 0.0 │
00:07:50 #46157 [verbose] > │ let v6 : float = 0.0 │
00:07:50 #46158 [verbose] > │ let v7 : float = 0.0 │
00:07:50 #46159 [verbose] > │ let v8 : float = 0.0 │
00:07:50 #46160 [verbose] > │ let v9 : float = 0.0 │
00:07:50 #46161 [verbose] > │ let v10 : float = 0.0 │
00:07:50 #46162 [verbose] > │ let v11 : float = 0.0 │
00:07:50 #46163 [verbose] > │ let struct (v12 : float, v13 : float, v14 : float, v15 : float, v16 : │
00:07:50 #46164 [verbose] > │ float, v17 : float, v18 : float, v19 : float, v20 : float) = method2(v0, v3, │
00:07:50 #46165 [verbose] > │ v4, v5, v6, v7, v8, v9, v10, v11, v2) │
00:07:50 #46166 [verbose] > │ let v21 : bool = v17 <= 31557600.0 │
00:07:50 #46167 [verbose] > │ if v21 then │
00:07:50 #46168 [verbose] > │ let v22 : UH0 = UH0_1(v12, v13, v14, v15, v16, v17, v18, v19, v20, │
00:07:50 #46169 [verbose] > │ v1) │
00:07:50 #46170 [verbose] > │ let v23 : int32 = v2 + 1 │
00:07:50 #46171 [verbose] > │ method7(v0, v22, v23) │
00:07:50 #46172 [verbose] > │ else │
00:07:50 #46173 [verbose] > │ let v25 : UH0 = UH0_0 │
00:07:50 #46174 [verbose] > │ method3(v1, v25) │
00:07:50 #46175 [verbose] > │ and method8 (v0 : UH0, v1 : UH1) : UH1 = │
00:07:50 #46176 [verbose] > │ match v0 with │
00:07:50 #46177 [verbose] > │ | UH0_1(v2, v3, v4, v5, v6, v7, v8, v9, v10, v11) -> (* Cons *) │
00:07:50 #46178 [verbose] > │ let v12 : UH1 = method8(v11, v1) │
00:07:50 #46179 [verbose] > │ let v13 : float = v7 / 31557600.0 │
00:07:50 #46180 [verbose] > │ let v14 : float = v8 / 299792458.0 │
00:07:50 #46181 [verbose] > │ UH1_1(v13, v14, v12) │
00:07:50 #46182 [verbose] > │ | UH0_0 -> (* Nil *) │
00:07:50 #46183 [verbose] > │ v1 │
00:07:50 #46184 [verbose] > │ and method10 (v0 : UH2, v1 : int32) : int32 = │
00:07:50 #46185 [verbose] > │ match v0 with │
00:07:50 #46186 [verbose] > │ | UH2_1(v2, v3) -> (* Cons *) │
00:07:50 #46187 [verbose] > │ let v4 : int32 = v1 + 1 │
00:07:50 #46188 [verbose] > │ method10(v3, v4) │
00:07:50 #46189 [verbose] > │ | UH2_0 -> (* Nil *) │
00:07:50 #46190 [verbose] > │ v1 │
00:07:50 #46191 [verbose] > │ and method11 (v0 : (float []), v1 : UH2, v2 : int32) : int32 = │
00:07:50 #46192 [verbose] > │ match v1 with │
00:07:50 #46193 [verbose] > │ | UH2_1(v3, v4) -> (* Cons *) │
00:07:50 #46194 [verbose] > │ v0.[int v2] <- v3 │
00:07:50 #46195 [verbose] > │ let v5 : int32 = v2 + 1 │
00:07:50 #46196 [verbose] > │ method11(v0, v4, v5) │
00:07:50 #46197 [verbose] > │ | UH2_0 -> (* Nil *) │
00:07:50 #46198 [verbose] > │ v2 │
00:07:50 #46199 [verbose] > │ and method9 (v0 : UH2) : (float []) = │
00:07:50 #46200 [verbose] > │ let v1 : int32 = 0 │
00:07:50 #46201 [verbose] > │ let v2 : int32 = method10(v0, v1) │
00:07:50 #46202 [verbose] > │ let v3 : (float []) = Array.zeroCreate<float> (v2) │
00:07:50 #46203 [verbose] > │ let v4 : int32 = 0 │
00:07:50 #46204 [verbose] > │ let v5 : int32 = method11(v3, v0, v4) │
00:07:50 #46205 [verbose] > │ v3 │
00:07:50 #46206 [verbose] > │ and method0 () : struct (string * string * string * (struct (string * (float │
00:07:50 #46207 [verbose] > │ []) * (float [])) [])) = │
00:07:50 #46208 [verbose] > │ let v0 : ((struct (float * float * float * float * float * float * float │
00:07:50 #46209 [verbose] > │ * float * float) -> struct (float * float * float * float * float * float * │
00:07:50 #46210 [verbose] > │ float * float * float)) -> (struct (float * float * float * float * float * │
00:07:50 #46211 [verbose] > │ float * float * float * float) -> struct (float * float * float * float * │
00:07:50 #46212 [verbose] > │ float * float * float * float * float))) = closure0() │
00:07:50 #46213 [verbose] > │ let v1 : (struct (float * float * float * float * float * float * float │
00:07:50 #46214 [verbose] > │ * float * float) -> struct (float * float * float * float * float * float * │
00:07:50 #46215 [verbose] > │ float * float * float)) = closure2() │
00:07:50 #46216 [verbose] > │ let v2 : (struct (float * float * float * float * float * float * float │
00:07:50 #46217 [verbose] > │ * float * float) -> struct (float * float * float * float * float * float * │
00:07:50 #46218 [verbose] > │ float * float * float)) = v0 v1 │
00:07:50 #46219 [verbose] > │ let v3 : (struct (float * float * float * float * float * float * float │
00:07:50 #46220 [verbose] > │ * float * float) -> struct (float * float * float * float * float * float * │
00:07:50 #46221 [verbose] > │ float * float * float)) = closure3() │
00:07:50 #46222 [verbose] > │ let v4 : (struct (float * float * float * float * float * float * float │
00:07:50 #46223 [verbose] > │ * float * float) -> struct (float * float * float * float * float * float * │
00:07:50 #46224 [verbose] > │ float * float * float)) = v0 v3 │
00:07:50 #46225 [verbose] > │ let v5 : UH0 = UH0_0 │
00:07:50 #46226 [verbose] > │ let v6 : int32 = 0 │
00:07:50 #46227 [verbose] > │ let v7 : UH0 = method1(v2, v5, v6) │
00:07:50 #46228 [verbose] > │ let v8 : UH1 = UH1_0 │
00:07:50 #46229 [verbose] > │ let v9 : UH1 = method4(v7, v8) │
00:07:50 #46230 [verbose] > │ let v10 : UH2 = UH2_0 │
00:07:50 #46231 [verbose] > │ let v11 : UH2 = UH2_0 │
00:07:50 #46232 [verbose] > │ let struct (v12 : UH2, v13 : UH2) = method5(v9, v10, v11) │
00:07:50 #46233 [verbose] > │ let v14 : UH2 = UH2_0 │
00:07:50 #46234 [verbose] > │ let v15 : UH2 = method6(v12, v14) │
00:07:50 #46235 [verbose] > │ let v16 : UH2 = UH2_0 │
00:07:50 #46236 [verbose] > │ let v17 : UH2 = method6(v13, v16) │
00:07:50 #46237 [verbose] > │ let v18 : UH0 = UH0_0 │
00:07:50 #46238 [verbose] > │ let v19 : int32 = 0 │
00:07:50 #46239 [verbose] > │ let v20 : UH0 = method7(v4, v18, v19) │
00:07:50 #46240 [verbose] > │ let v21 : UH1 = UH1_0 │
00:07:50 #46241 [verbose] > │ let v22 : UH1 = method8(v20, v21) │
00:07:50 #46242 [verbose] > │ let v23 : UH2 = UH2_0 │
00:07:50 #46243 [verbose] > │ let v24 : UH2 = UH2_0 │
00:07:50 #46244 [verbose] > │ let struct (v25 : UH2, v26 : UH2) = method5(v22, v23, v24) │
00:07:50 #46245 [verbose] > │ let v27 : UH2 = UH2_0 │
00:07:50 #46246 [verbose] > │ let v28 : UH2 = method6(v25, v27) │
00:07:50 #46247 [verbose] > │ let v29 : UH2 = UH2_0 │
00:07:50 #46248 [verbose] > │ let v30 : UH2 = method6(v26, v29) │
00:07:50 #46249 [verbose] > │ let v31 : (float []) = method9(v15) │
00:07:50 #46250 [verbose] > │ let v32 : (float []) = method9(v17) │
00:07:50 #46251 [verbose] > │ let v33 : (float []) = method9(v30) │
00:07:50 #46252 [verbose] > │ let v34 : string = "newtonian" │
00:07:50 #46253 [verbose] > │ let v35 : string = "relativistic" │
00:07:50 #46254 [verbose] > │ let v36 : (struct (string * (float []) * (float [])) []) = [|struct │
00:07:50 #46255 [verbose] > │ (v34, v31, v32); struct (v35, v31, v33)|] │
00:07:50 #46256 [verbose] > │ let v37 : string = "response to a constant force" │
00:07:50 #46257 [verbose] > │ let v38 : string = "time (years)" │
00:07:50 #46258 [verbose] > │ let v39 : string = "velocity (multiples of c)" │
00:07:50 #46259 [verbose] > │ struct (v37, v38, v39, v36) │
00:07:50 #46260 [verbose] > │ method0() │
00:07:50 #46261 [verbose] > │ │
00:07:50 #46262 [verbose] > │ │
00:07:50 #46263 [verbose] > ╰──────────────────────────────────────────────────────────────────────────────╯
00:07:50 #46264 [verbose] >
00:07:50 #46265 [verbose] > ── spiral ──────────────────────────────────────────────────────────────────────
00:07:50 #46266 [verbose] > inl uniform_lorentz_force v_e v_b (st : particle_state) =
00:07:50 #46267 [verbose] > st.charge *^ (v_e ^+^ st.velocity >< v_b)
00:07:50 #46268 [verbose] > Building c:\home\git\polyglot\target\polyglot\spiral_eval\packages\cbb2f705c8bba093264248c964704bb6a2b26b3936dbd010b7061f32030b7a6d\main.spi
00:07:50 #46269 [verbose] >
00:07:50 #46270 [verbose] > ╭─[ 228.45ms - stdout ]────────────────────────────────────────────────────────╮
00:07:50 #46271 [verbose] > │ () │
00:07:50 #46272 [verbose] > │ │
00:07:50 #46273 [verbose] > │ │
00:07:50 #46274 [verbose] > ╰──────────────────────────────────────────────────────────────────────────────╯
00:07:50 #46275 [verbose] >
00:07:50 #46276 [verbose] > ── spiral ──────────────────────────────────────────────────────────────────────
00:07:50 #46277 [verbose] > // // test
00:07:50 #46278 [verbose] >
00:07:50 #46279 [verbose] > inl c : f64 = 299792458
00:07:50 #46280 [verbose] > inl ~method = runge_kutta_4 0.000000001
00:07:50 #46281 [verbose] > inl forces = [[ uniform_lorentz_force (zero_vec ()) (k_hat ()) ]]
00:07:50 #46282 [verbose] > inl (particle_state default_particle_state') = default_particle_state ()
00:07:50 #46283 [verbose] > inl initial_state =
00:07:50 #46284 [verbose] > particle_state { default_particle_state' with
00:07:50 #46285 [verbose] > mass = 0.000000000000000000000000001672621898
00:07:50 #46286 [verbose] > charge = 0.0000000000000000001602176621
00:07:50 #46287 [verbose] > velocity = 0.8 *^ (c *^ j_hat ())
00:07:50 #46288 [verbose] > }
00:07:50 #46289 [verbose] >
00:07:50 #46290 [verbose] > inl newton_states = solver_ method (newton_second_ps forces) initial_state
00:07:50 #46291 [verbose] > inl relativity_states = solver_ method (relativity_ps forces) initial_state
00:07:50 #46292 [verbose] >
00:07:50 #46293 [verbose] > inl newton_x, newton_y =
00:07:50 #46294 [verbose] > newton_states
00:07:50 #46295 [verbose] > >> Some
00:07:50 #46296 [verbose] > |> seq.take_while_ (fun (particle_state st) i => i < 100i32)
00:07:50 #46297 [verbose] > |> listm.map (fun (particle_state st) => st.pos_vec.x, st.pos_vec.y)
00:07:50 #46298 [verbose] > |> listm'.unzip
00:07:50 #46299 [verbose] >
00:07:50 #46300 [verbose] > inl relativity_x, relativity_y =
00:07:50 #46301 [verbose] > relativity_states
00:07:50 #46302 [verbose] > >> Some
00:07:50 #46303 [verbose] > |> seq.take_while_ (fun (particle_state st) i => i < 165i32)
00:07:50 #46304 [verbose] > |> listm.map (fun (particle_state st) => st.pos_vec.x, st.pos_vec.y)
00:07:50 #46305 [verbose] > |> listm'.unzip
00:07:50 #46306 [verbose] >
00:07:50 #46307 [verbose] > inl newton_x : a i32 _ = newton_x |> listm.toArray
00:07:50 #46308 [verbose] > inl newton_y : a i32 _ = newton_y |> listm.toArray
00:07:50 #46309 [verbose] >
00:07:50 #46310 [verbose] > inl relativity_x : a i32 _ = relativity_x |> listm.toArray
00:07:50 #46311 [verbose] > inl relativity_y : a i32 _ = relativity_y |> listm.toArray
00:07:50 #46312 [verbose] >
00:07:50 #46313 [verbose] > "proton in a 1-t magnetic field",
00:07:50 #46314 [verbose] > "x (m)",
00:07:50 #46315 [verbose] > "y (m)",
00:07:50 #46316 [verbose] > ;[[
00:07:50 #46317 [verbose] > "newtonian", newton_x, newton_y
00:07:50 #46318 [verbose] > "relativistic", relativity_x, relativity_y
00:07:50 #46319 [verbose] > ]]
00:07:51 #46320 [verbose] > Building c:\home\git\polyglot\target\polyglot\spiral_eval\packages\c1dfbb8efa990352612a1d04ae6bcab5293444527533943095ff279d9b03c39b\main.spi
00:07:51 #46321 [verbose] >
00:07:51 #46322 [verbose] > ╭─[ 540.61ms - return value ]──────────────────────────────────────────────────╮
00:07:51 #46323 [verbose] > │ <svg width="640" height="480" viewBox="0 0 640 480" │
00:07:51 #46324 [verbose] > │ xmlns="http://www.w3.org/2000/svg"> │
00:07:51 #46325 [verbose] > │ <rect x="0" y="0" width="640" height="480" opacity="1" fill="#141414" │
00:07:51 #46326 [verbose] > │ stroke="none"/> │
00:07:51 #46327 [verbose] > │ <text x="320" y="10" dy="0.76em" text-anchor="middle" │
00:07:51 #46328 [verbose] > │ font-family="sans-serif" font-size="9.67741935483871" opacity="1" │
00:07:51 #46329 [verbose] > │ fill="#FFFFFF"> │
00:07:51 #46330 [verbose] > │ proton in a 1-t magnetic field │
00:07:51 #46331 [verbose] > │ </text> │
00:07:51 #46332 [verbose] > │ <line opacity="1" stroke="#323232" stroke-width="1" x1="58" y1="424" x2="58" │
00:07:51 #46333 [verbose] > │ y2="75"/> │
00:07:51 #46334 [verbose] > │ <line opacity="1" stroke="#323232" stroke-width="1" x1="69" y1="424" x2="69" │
00:07:51 #46335 [verbose] > │ y2="75"/> │
00:07:51 #46336 [verbose] > │ <line opacity="1" stroke="#323232" stroke-width="1" x1="81" y1="424" x2="81" │
00:07:51 #46337 [verbose] > │ y2="75"/> │
00:07:51 #46338 [verbose] > │ <line opacity="1" stroke="#323232" stroke-width="1" x1="93" y1="424" x2="93" │
00:07:51 #46339 [verbose] > │ y2="75"/> │
00:07:51 #46340 [verbose] > │ <line opacity="1" stroke="#323232" stroke-width="1" x... │
00:07:51 #46341 [verbose] > ╰──────────────────────────────────────────────────────────────────────────────╯
00:07:51 #46342 [verbose] >
00:07:51 #46343 [verbose] > ╭─[ 550.39ms - stdout ]────────────────────────────────────────────────────────╮
00:07:51 #46344 [verbose] > │ type UH0 = │
00:07:51 #46345 [verbose] > │ | UH0_0 │
00:07:51 #46346 [verbose] > │ | UH0_1 of float * float * float * float * float * float * float * float │
00:07:51 #46347 [verbose] > │ * float * UH0 │
00:07:51 #46348 [verbose] > │ and UH1 = │
00:07:51 #46349 [verbose] > │ | UH1_0 │
00:07:51 #46350 [verbose] > │ | UH1_1 of float * float * UH1 │
00:07:51 #46351 [verbose] > │ and UH2 = │
00:07:51 #46352 [verbose] > │ | UH2_0 │
00:07:51 #46353 [verbose] > │ | UH2_1 of float * UH2 │
00:07:51 #46354 [verbose] > │ let rec closure1 (v0 : (struct (float * float * float * float * float * │
00:07:51 #46355 [verbose] > │ float * float * float * float) -> struct (float * float * float * float * │
00:07:51 #46356 [verbose] > │ float * float * float * float * float))) struct (v1 : float, v2 : float, v3 │
00:07:51 #46357 [verbose] > │ : float, v4 : float, v5 : float, v6 : float, v7 : float, v8 : float, v9 : │
00:07:51 #46358 [verbose] > │ float) : struct (float * float * float * float * float * float * float * │
00:07:51 #46359 [verbose] > │ float * float) = │
00:07:51 #46360 [verbose] > │ let struct (v10 : float, v11 : float, v12 : float, v13 : float, v14 : │
00:07:51 #46361 [verbose] > │ float, v15 : float, v16 : float, v17 : float, v18 : float) = v0 struct (v1, │
00:07:51 #46362 [verbose] > │ v2, v3, v4, v5, v6, v7, v8, v9) │
00:07:51 #46363 [verbose] > │ let v19 : float = v15 * 5E-10 │
00:07:51 #46364 [verbose] > │ let v20 : float = v6 + v19 │
00:07:51 #46365 [verbose] > │ let v21 : float = 5E-10 * v12 │
00:07:51 #46366 [verbose] > │ let v22 : float = 5E-10 * v13 │
00:07:51 #46367 [verbose] > │ let v23 : float = 5E-10 * v14 │
00:07:51 #46368 [verbose] > │ let v24 : float = v3 + v21 │
00:07:51 #46369 [verbose] > │ let v25 : float = v4 + v22 │
00:07:51 #46370 [verbose] > │ let v26 : float = v5 + v23 │
00:07:51 #46371 [verbose] > │ let v27 : float = 5E-10 * v16 │
00:07:51 #46372 [verbose] > │ let v28 : float = 5E-10 * v17 │
00:07:51 #46373 [verbose] > │ let v29 : float = 5E-10 * v18 │
00:07:51 #46374 [verbose] > │ let v30 : float = v7 + v27 │
00:07:51 #46375 [verbose] > │ let v31 : float = v8 + v28 │
00:07:51 #46376 [verbose] > │ let v32 : float = v9 + v29 │
00:07:51 #46377 [verbose] > │ let struct (v33 : float, v34 : float, v35 : float, v36 : float, v37 : │
00:07:51 #46378 [verbose] > │ float, v38 : float, v39 : float, v40 : float, v41 : float) = v0 struct (v1, │
00:07:51 #46379 [verbose] > │ v2, v24, v25, v26, v20, v30, v31, v32) │
00:07:51 #46380 [verbose] > │ let v42 : float = v38 * 5E-10 │
00:07:51 #46381 [verbose] > │ let v43 : float = v6 + v42 │
00:07:51 #46382 [verbose] > │ let v44 : float = 5E-10 * v35 │
00:07:51 #46383 [verbose] > │ let v45 : float = 5E-10 * v36 │
00:07:51 #46384 [verbose] > │ let v46 : float = 5E-10 * v37 │
00:07:51 #46385 [verbose] > │ let v47 : float = v3 + v44 │
00:07:51 #46386 [verbose] > │ let v48 : float = v4 + v45 │
00:07:51 #46387 [verbose] > │ let v49 : float = v5 + v46 │
00:07:51 #46388 [verbose] > │ let v50 : float = 5E-10 * v39 │
00:07:51 #46389 [verbose] > │ let v51 : float = 5E-10 * v40 │
00:07:51 #46390 [verbose] > │ let v52 : float = 5E-10 * v41 │
00:07:51 #46391 [verbose] > │ let v53 : float = v7 + v50 │
00:07:51 #46392 [verbose] > │ let v54 : float = v8 + v51 │
00:07:51 #46393 [verbose] > │ let v55 : float = v9 + v52 │
00:07:51 #46394 [verbose] > │ let struct (v56 : float, v57 : float, v58 : float, v59 : float, v60 : │
00:07:51 #46395 [verbose] > │ float, v61 : float, v62 : float, v63 : float, v64 : float) = v0 struct (v1, │
00:07:51 #46396 [verbose] > │ v2, v47, v48, v49, v43, v53, v54, v55) │
00:07:51 #46397 [verbose] > │ let v65 : float = v61 * 1E-09 │
00:07:51 #46398 [verbose] > │ let v66 : float = v6 + v65 │
00:07:51 #46399 [verbose] > │ let v67 : float = 1E-09 * v58 │
00:07:51 #46400 [verbose] > │ let v68 : float = 1E-09 * v59 │
00:07:51 #46401 [verbose] > │ let v69 : float = 1E-09 * v60 │
00:07:51 #46402 [verbose] > │ let v70 : float = v3 + v67 │
00:07:51 #46403 [verbose] > │ let v71 : float = v4 + v68 │
00:07:51 #46404 [verbose] > │ let v72 : float = v5 + v69 │
00:07:51 #46405 [verbose] > │ let v73 : float = 1E-09 * v62 │
00:07:51 #46406 [verbose] > │ let v74 : float = 1E-09 * v63 │
00:07:51 #46407 [verbose] > │ let v75 : float = 1E-09 * v64 │
00:07:51 #46408 [verbose] > │ let v76 : float = v7 + v73 │
00:07:51 #46409 [verbose] > │ let v77 : float = v8 + v74 │
00:07:51 #46410 [verbose] > │ let v78 : float = v9 + v75 │
00:07:51 #46411 [verbose] > │ let struct (v79 : float, v80 : float, v81 : float, v82 : float, v83 : │
00:07:51 #46412 [verbose] > │ float, v84 : float, v85 : float, v86 : float, v87 : float) = v0 struct (v1, │
00:07:51 #46413 [verbose] > │ v2, v70, v71, v72, v66, v76, v77, v78) │
00:07:51 #46414 [verbose] > │ let v88 : float = v10 + v33 │
00:07:51 #46415 [verbose] > │ let v89 : float = v11 + v34 │
00:07:51 #46416 [verbose] > │ let v90 : float = v15 + v38 │
00:07:51 #46417 [verbose] > │ let v91 : float = v12 + v35 │
00:07:51 #46418 [verbose] > │ let v92 : float = v13 + v36 │
00:07:51 #46419 [verbose] > │ let v93 : float = v14 + v37 │
00:07:51 #46420 [verbose] > │ let v94 : float = v16 + v39 │
00:07:51 #46421 [verbose] > │ let v95 : float = v17 + v40 │
00:07:51 #46422 [verbose] > │ let v96 : float = v18 + v41 │
00:07:51 #46423 [verbose] > │ let v97 : float = v88 + v33 │
00:07:51 #46424 [verbose] > │ let v98 : float = v89 + v34 │
00:07:51 #46425 [verbose] > │ let v99 : float = v90 + v38 │
00:07:51 #46426 [verbose] > │ let v100 : float = v91 + v35 │
00:07:51 #46427 [verbose] > │ let v101 : float = v92 + v36 │
00:07:51 #46428 [verbose] > │ let v102 : float = v93 + v37 │
00:07:51 #46429 [verbose] > │ let v103 : float = v94 + v39 │
00:07:51 #46430 [verbose] > │ let v104 : float = v95 + v40 │
00:07:51 #46431 [verbose] > │ let v105 : float = v96 + v41 │
00:07:51 #46432 [verbose] > │ let v106 : float = v97 + v56 │
00:07:51 #46433 [verbose] > │ let v107 : float = v98 + v57 │
00:07:51 #46434 [verbose] > │ let v108 : float = v99 + v61 │
00:07:51 #46435 [verbose] > │ let v109 : float = v100 + v58 │
00:07:51 #46436 [verbose] > │ let v110 : float = v101 + v59 │
00:07:51 #46437 [verbose] > │ let v111 : float = v102 + v60 │
00:07:51 #46438 [verbose] > │ let v112 : float = v103 + v62 │
00:07:51 #46439 [verbose] > │ let v113 : float = v104 + v63 │
00:07:51 #46440 [verbose] > │ let v114 : float = v105 + v64 │
00:07:51 #46441 [verbose] > │ let v115 : float = v106 + v56 │
00:07:51 #46442 [verbose] > │ let v116 : float = v107 + v57 │
00:07:51 #46443 [verbose] > │ let v117 : float = v108 + v61 │
00:07:51 #46444 [verbose] > │ let v118 : float = v109 + v58 │
00:07:51 #46445 [verbose] > │ let v119 : float = v110 + v59 │
00:07:51 #46446 [verbose] > │ let v120 : float = v111 + v60 │
00:07:51 #46447 [verbose] > │ let v121 : float = v112 + v62 │
00:07:51 #46448 [verbose] > │ let v122 : float = v113 + v63 │
00:07:51 #46449 [verbose] > │ let v123 : float = v114 + v64 │
00:07:51 #46450 [verbose] > │ let v124 : float = v115 + v79 │
00:07:51 #46451 [verbose] > │ let v125 : float = v116 + v80 │
00:07:51 #46452 [verbose] > │ let v126 : float = v117 + v84 │
00:07:51 #46453 [verbose] > │ let v127 : float = v118 + v81 │
00:07:51 #46454 [verbose] > │ let v128 : float = v119 + v82 │
00:07:51 #46455 [verbose] > │ let v129 : float = v120 + v83 │
00:07:51 #46456 [verbose] > │ let v130 : float = v121 + v85 │
00:07:51 #46457 [verbose] > │ let v131 : float = v122 + v86 │
00:07:51 #46458 [verbose] > │ let v132 : float = v123 + v87 │
00:07:51 #46459 [verbose] > │ let v133 : float = v126 * 1.6666666666666669E-10 │
00:07:51 #46460 [verbose] > │ let v134 : float = v6 + v133 │
00:07:51 #46461 [verbose] > │ let v135 : float = 1.6666666666666669E-10 * v127 │
00:07:51 #46462 [verbose] > │ let v136 : float = 1.6666666666666669E-10 * v128 │
00:07:51 #46463 [verbose] > │ let v137 : float = 1.6666666666666669E-10 * v129 │
00:07:51 #46464 [verbose] > │ let v138 : float = v3 + v135 │
00:07:51 #46465 [verbose] > │ let v139 : float = v4 + v136 │
00:07:51 #46466 [verbose] > │ let v140 : float = v5 + v137 │
00:07:51 #46467 [verbose] > │ let v141 : float = 1.6666666666666669E-10 * v130 │
00:07:51 #46468 [verbose] > │ let v142 : float = 1.6666666666666669E-10 * v131 │
00:07:51 #46469 [verbose] > │ let v143 : float = 1.6666666666666669E-10 * v132 │
00:07:51 #46470 [verbose] > │ let v144 : float = v7 + v141 │
00:07:51 #46471 [verbose] > │ let v145 : float = v8 + v142 │
00:07:51 #46472 [verbose] > │ let v146 : float = v9 + v143 │
00:07:51 #46473 [verbose] > │ struct (v1, v2, v138, v139, v140, v134, v144, v145, v146) │
00:07:51 #46474 [verbose] > │ and closure0 () (v0 : (struct (float * float * float * float * float * float │
00:07:51 #46475 [verbose] > │ * float * float * float) -> struct (float * float * float * float * float * │
00:07:51 #46476 [verbose] > │ float * float * float * float))) : (struct (float * float * float * float * │
00:07:51 #46477 [verbose] > │ float * float * float * float * float) -> struct (float * float * float * │
00:07:51 #46478 [verbose] > │ float * float * float * float * float * float)) = │
00:07:51 #46479 [verbose] > │ closure1(v0) │
00:07:51 #46480 [verbose] > │ and closure2 () struct (v0 : float, v1 : float, v2 : float, v3 : float, v4 : │
00:07:51 #46481 [verbose] > │ float, v5 : float, v6 : float, v7 : float, v8 : float) : struct (float * │
00:07:51 #46482 [verbose] > │ float * float * float * float * float * float * float * float) = │
00:07:51 #46483 [verbose] > │ let v9 : float = v8 * 0.0 │
00:07:51 #46484 [verbose] > │ let v10 : float = v7 - v9 │
00:07:51 #46485 [verbose] > │ let v11 : float = v9 - v6 │
00:07:51 #46486 [verbose] > │ let v12 : float = v6 * 0.0 │
00:07:51 #46487 [verbose] > │ let v13 : float = v7 * 0.0 │
00:07:51 #46488 [verbose] > │ let v14 : float = v12 - v13 │
00:07:51 #46489 [verbose] > │ let v15 : float = v0 * v10 │
00:07:51 #46490 [verbose] > │ let v16 : float = v0 * v11 │
00:07:51 #46491 [verbose] > │ let v17 : float = v0 * v14 │
00:07:51 #46492 [verbose] > │ let v18 : float = v15 / v1 │
00:07:51 #46493 [verbose] > │ let v19 : float = v16 / v1 │
00:07:51 #46494 [verbose] > │ let v20 : float = v17 / v1 │
00:07:51 #46495 [verbose] > │ struct (0.0, 0.0, v6, v7, v8, 1.0, v18, v19, v20) │
00:07:51 #46496 [verbose] > │ and closure3 () struct (v0 : float, v1 : float, v2 : float, v3 : float, v4 : │
00:07:51 #46497 [verbose] > │ float, v5 : float, v6 : float, v7 : float, v8 : float) : struct (float * │
00:07:51 #46498 [verbose] > │ float * float * float * float * float * float * float * float) = │
00:07:51 #46499 [verbose] > │ let v9 : float = v8 * 0.0 │
00:07:51 #46500 [verbose] > │ let v10 : float = v7 - v9 │
00:07:51 #46501 [verbose] > │ let v11 : float = v9 - v6 │
00:07:51 #46502 [verbose] > │ let v12 : float = v6 * 0.0 │
00:07:51 #46503 [verbose] > │ let v13 : float = v7 * 0.0 │
00:07:51 #46504 [verbose] > │ let v14 : float = v12 - v13 │
00:07:51 #46505 [verbose] > │ let v15 : float = v0 * v10 │
00:07:51 #46506 [verbose] > │ let v16 : float = v0 * v11 │
00:07:51 #46507 [verbose] > │ let v17 : float = v0 * v14 │
00:07:51 #46508 [verbose] > │ let v18 : float = v6 / 299792458.0 │
00:07:51 #46509 [verbose] > │ let v19 : float = v7 / 299792458.0 │
00:07:51 #46510 [verbose] > │ let v20 : float = v8 / 299792458.0 │
00:07:51 #46511 [verbose] > │ let v21 : float = v18 * v18 │
00:07:51 #46512 [verbose] > │ let v22 : float = v19 * v19 │
00:07:51 #46513 [verbose] > │ let v23 : float = v21 + v22 │
00:07:51 #46514 [verbose] > │ let v24 : float = v20 * v20 │
00:07:51 #46515 [verbose] > │ let v25 : float = v23 + v24 │
00:07:51 #46516 [verbose] > │ let v26 : float = 1.0 - v25 │
00:07:51 #46517 [verbose] > │ let v27 : float = sqrt v26 │
00:07:51 #46518 [verbose] > │ let v28 : float = v15 * v18 │
00:07:51 #46519 [verbose] > │ let v29 : float = v16 * v19 │
00:07:51 #46520 [verbose] > │ let v30 : float = v28 + v29 │
00:07:51 #46521 [verbose] > │ let v31 : float = v17 * v20 │
00:07:51 #46522 [verbose] > │ let v32 : float = v30 + v31 │
00:07:51 #46523 [verbose] > │ let v33 : float = v32 * v18 │
00:07:51 #46524 [verbose] > │ let v34 : float = v32 * v19 │
00:07:51 #46525 [verbose] > │ let v35 : float = v32 * v20 │
00:07:51 #46526 [verbose] > │ let v36 : float = -1.0 * v33 │
00:07:51 #46527 [verbose] > │ let v37 : float = -1.0 * v34 │
00:07:51 #46528 [verbose] > │ let v38 : float = -1.0 * v35 │
00:07:51 #46529 [verbose] > │ let v39 : float = v15 + v36 │
00:07:51 #46530 [verbose] > │ let v40 : float = v16 + v37 │
00:07:51 #46531 [verbose] > │ let v41 : float = v17 + v38 │
00:07:51 #46532 [verbose] > │ let v42 : float = v27 * v39 │
00:07:51 #46533 [verbose] > │ let v43 : float = v27 * v40 │
00:07:51 #46534 [verbose] > │ let v44 : float = v27 * v41 │
00:07:51 #46535 [verbose] > │ let v45 : float = v42 / v1 │
00:07:51 #46536 [verbose] > │ let v46 : float = v43 / v1 │
00:07:51 #46537 [verbose] > │ let v47 : float = v44 / v1 │
00:07:51 #46538 [verbose] > │ struct (0.0, 0.0, v6, v7, v8, 1.0, v45, v46, v47) │
00:07:51 #46539 [verbose] > │ and method2 (v0 : (struct (float * float * float * float * float * float * │
00:07:51 #46540 [verbose] > │ float * float * float) -> struct (float * float * float * float * float * │
00:07:51 #46541 [verbose] > │ float * float * float * float)), v1 : float, v2 : float, v3 : float, v4 : │
00:07:51 #46542 [verbose] > │ float, v5 : float, v6 : float, v7 : float, v8 : float, v9 : float, v10 : │
00:07:51 #46543 [verbose] > │ int32) : struct (float * float * float * float * float * float * float * │
00:07:51 #46544 [verbose] > │ float * float) = │
00:07:51 #46545 [verbose] > │ let v11 : bool = v10 <= 0 │
00:07:51 #46546 [verbose] > │ if v11 then │
00:07:51 #46547 [verbose] > │ struct (v1, v2, v3, v4, v5, v6, v7, v8, v9) │
00:07:51 #46548 [verbose] > │ else │
00:07:51 #46549 [verbose] > │ let struct (v12 : float, v13 : float, v14 : float, v15 : float, v16 │
00:07:51 #46550 [verbose] > │ : float, v17 : float, v18 : float, v19 : float, v20 : float) = v0 struct │
00:07:51 #46551 [verbose] > │ (v1, v2, v3, v4, v5, v6, v7, v8, v9) │
00:07:51 #46552 [verbose] > │ let v21 : int32 = v10 - 1 │
00:07:51 #46553 [verbose] > │ method2(v0, v12, v13, v14, v15, v16, v17, v18, v19, v20, v21) │
00:07:51 #46554 [verbose] > │ and method3 (v0 : UH0, v1 : UH0) : UH0 = │
00:07:51 #46555 [verbose] > │ match v0 with │
00:07:51 #46556 [verbose] > │ | UH0_1(v2, v3, v4, v5, v6, v7, v8, v9, v10, v11) -> (* Cons *) │
00:07:51 #46557 [verbose] > │ let v12 : UH0 = UH0_1(v2, v3, v4, v5, v6, v7, v8, v9, v10, v1) │
00:07:51 #46558 [verbose] > │ method3(v11, v12) │
00:07:51 #46559 [verbose] > │ | UH0_0 -> (* Nil *) │
00:07:51 #46560 [verbose] > │ v1 │
00:07:51 #46561 [verbose] > │ and method1 (v0 : (struct (float * float * float * float * float * float * │
00:07:51 #46562 [verbose] > │ float * float * float) -> struct (float * float * float * float * float * │
00:07:51 #46563 [verbose] > │ float * float * float * float)), v1 : UH0, v2 : int32) : UH0 = │
00:07:51 #46564 [verbose] > │ let v3 : float = 1.602176621E-19 │
00:07:51 #46565 [verbose] > │ let v4 : float = 1.672621898E-27 │
00:07:51 #46566 [verbose] > │ let v5 : float = 0.0 │
00:07:51 #46567 [verbose] > │ let v6 : float = 0.0 │
00:07:51 #46568 [verbose] > │ let v7 : float = 0.0 │
00:07:51 #46569 [verbose] > │ let v8 : float = 0.0 │
00:07:51 #46570 [verbose] > │ let v9 : float = 0.0 │
00:07:51 #46571 [verbose] > │ let v10 : float = 239833966.4 │
00:07:51 #46572 [verbose] > │ let v11 : float = 0.0 │
00:07:51 #46573 [verbose] > │ let struct (v12 : float, v13 : float, v14 : float, v15 : float, v16 : │
00:07:51 #46574 [verbose] > │ float, v17 : float, v18 : float, v19 : float, v20 : float) = method2(v0, v3, │
00:07:51 #46575 [verbose] > │ v4, v5, v6, v7, v8, v9, v10, v11, v2) │
00:07:51 #46576 [verbose] > │ let v21 : bool = v2 < 100 │
00:07:51 #46577 [verbose] > │ if v21 then │
00:07:51 #46578 [verbose] > │ let v22 : UH0 = UH0_1(v12, v13, v14, v15, v16, v17, v18, v19, v20, │
00:07:51 #46579 [verbose] > │ v1) │
00:07:51 #46580 [verbose] > │ let v23 : int32 = v2 + 1 │
00:07:51 #46581 [verbose] > │ method1(v0, v22, v23) │
00:07:51 #46582 [verbose] > │ else │
00:07:51 #46583 [verbose] > │ let v25 : UH0 = UH0_0 │
00:07:51 #46584 [verbose] > │ method3(v1, v25) │
00:07:51 #46585 [verbose] > │ and method4 (v0 : UH0, v1 : UH1) : UH1 = │
00:07:51 #46586 [verbose] > │ match v0 with │
00:07:51 #46587 [verbose] > │ | UH0_1(v2, v3, v4, v5, v6, v7, v8, v9, v10, v11) -> (* Cons *) │
00:07:51 #46588 [verbose] > │ let v12 : UH1 = method4(v11, v1) │
00:07:51 #46589 [verbose] > │ UH1_1(v4, v5, v12) │
00:07:51 #46590 [verbose] > │ | UH0_0 -> (* Nil *) │
00:07:51 #46591 [verbose] > │ v1 │
00:07:51 #46592 [verbose] > │ and method5 (v0 : UH1, v1 : UH2, v2 : UH2) : struct (UH2 * UH2) = │
00:07:51 #46593 [verbose] > │ match v0 with │
00:07:51 #46594 [verbose] > │ | UH1_1(v3, v4, v5) -> (* Cons *) │
00:07:51 #46595 [verbose] > │ let v6 : UH2 = UH2_1(v3, v1) │
00:07:51 #46596 [verbose] > │ let v7 : UH2 = UH2_1(v4, v2) │
00:07:51 #46597 [verbose] > │ method5(v5, v6, v7) │
00:07:51 #46598 [verbose] > │ | UH1_0 -> (* Nil *) │
00:07:51 #46599 [verbose] > │ struct (v1, v2) │
00:07:51 #46600 [verbose] > │ and method6 (v0 : UH2, v1 : UH2) : UH2 = │
00:07:51 #46601 [verbose] > │ match v0 with │
00:07:51 #46602 [verbose] > │ | UH2_1(v2, v3) -> (* Cons *) │
00:07:51 #46603 [verbose] > │ let v4 : UH2 = UH2_1(v2, v1) │
00:07:51 #46604 [verbose] > │ method6(v3, v4) │
00:07:51 #46605 [verbose] > │ | UH2_0 -> (* Nil *) │
00:07:51 #46606 [verbose] > │ v1 │
00:07:51 #46607 [verbose] > │ and method7 (v0 : (struct (float * float * float * float * float * float * │
00:07:51 #46608 [verbose] > │ float * float * float) -> struct (float * float * float * float * float * │
00:07:51 #46609 [verbose] > │ float * float * float * float)), v1 : UH0, v2 : int32) : UH0 = │
00:07:51 #46610 [verbose] > │ let v3 : float = 1.602176621E-19 │
00:07:51 #46611 [verbose] > │ let v4 : float = 1.672621898E-27 │
00:07:51 #46612 [verbose] > │ let v5 : float = 0.0 │
00:07:51 #46613 [verbose] > │ let v6 : float = 0.0 │
00:07:51 #46614 [verbose] > │ let v7 : float = 0.0 │
00:07:51 #46615 [verbose] > │ let v8 : float = 0.0 │
00:07:51 #46616 [verbose] > │ let v9 : float = 0.0 │
00:07:51 #46617 [verbose] > │ let v10 : float = 239833966.4 │
00:07:51 #46618 [verbose] > │ let v11 : float = 0.0 │
00:07:51 #46619 [verbose] > │ let struct (v12 : float, v13 : float, v14 : float, v15 : float, v16 : │
00:07:51 #46620 [verbose] > │ float, v17 : float, v18 : float, v19 : float, v20 : float) = method2(v0, v3, │
00:07:51 #46621 [verbose] > │ v4, v5, v6, v7, v8, v9, v10, v11, v2) │
00:07:51 #46622 [verbose] > │ let v21 : bool = v2 < 165 │
00:07:51 #46623 [verbose] > │ if v21 then │
00:07:51 #46624 [verbose] > │ let v22 : UH0 = UH0_1(v12, v13, v14, v15, v16, v17, v18, v19, v20, │
00:07:51 #46625 [verbose] > │ v1) │
00:07:51 #46626 [verbose] > │ let v23 : int32 = v2 + 1 │
00:07:51 #46627 [verbose] > │ method7(v0, v22, v23) │
00:07:51 #46628 [verbose] > │ else │
00:07:51 #46629 [verbose] > │ let v25 : UH0 = UH0_0 │
00:07:51 #46630 [verbose] > │ method3(v1, v25) │
00:07:51 #46631 [verbose] > │ and method8 (v0 : UH0, v1 : UH1) : UH1 = │
00:07:51 #46632 [verbose] > │ match v0 with │
00:07:51 #46633 [verbose] > │ | UH0_1(v2, v3, v4, v5, v6, v7, v8, v9, v10, v11) -> (* Cons *) │
00:07:51 #46634 [verbose] > │ let v12 : UH1 = method8(v11, v1) │
00:07:51 #46635 [verbose] > │ UH1_1(v4, v5, v12) │
00:07:51 #46636 [verbose] > │ | UH0_0 -> (* Nil *) │
00:07:51 #46637 [verbose] > │ v1 │
00:07:51 #46638 [verbose] > │ and method10 (v0 : UH2, v1 : int32) : int32 = │
00:07:51 #46639 [verbose] > │ match v0 with │
00:07:51 #46640 [verbose] > │ | UH2_1(v2, v3) -> (* Cons *) │
00:07:51 #46641 [verbose] > │ let v4 : int32 = v1 + 1 │
00:07:51 #46642 [verbose] > │ method10(v3, v4) │
00:07:51 #46643 [verbose] > │ | UH2_0 -> (* Nil *) │
00:07:51 #46644 [verbose] > │ v1 │
00:07:51 #46645 [verbose] > │ and method11 (v0 : (float []), v1 : UH2, v2 : int32) : int32 = │
00:07:51 #46646 [verbose] > │ match v1 with │
00:07:51 #46647 [verbose] > │ | UH2_1(v3, v4) -> (* Cons *) │
00:07:51 #46648 [verbose] > │ v0.[int v2] <- v3 │
00:07:51 #46649 [verbose] > │ let v5 : int32 = v2 + 1 │
00:07:51 #46650 [verbose] > │ method11(v0, v4, v5) │
00:07:51 #46651 [verbose] > │ | UH2_0 -> (* Nil *) │
00:07:51 #46652 [verbose] > │ v2 │
00:07:51 #46653 [verbose] > │ and method9 (v0 : UH2) : (float []) = │
00:07:51 #46654 [verbose] > │ let v1 : int32 = 0 │
00:07:51 #46655 [verbose] > │ let v2 : int32 = method10(v0, v1) │
00:07:51 #46656 [verbose] > │ let v3 : (float []) = Array.zeroCreate<float> (v2) │
00:07:51 #46657 [verbose] > │ let v4 : int32 = 0 │
00:07:51 #46658 [verbose] > │ let v5 : int32 = method11(v3, v0, v4) │
00:07:51 #46659 [verbose] > │ v3 │
00:07:51 #46660 [verbose] > │ and method0 () : struct (string * string * string * (struct (string * (float │
00:07:51 #46661 [verbose] > │ []) * (float [])) [])) = │
00:07:51 #46662 [verbose] > │ let v0 : ((struct (float * float * float * float * float * float * float │
00:07:51 #46663 [verbose] > │ * float * float) -> struct (float * float * float * float * float * float * │
00:07:51 #46664 [verbose] > │ float * float * float)) -> (struct (float * float * float * float * float * │
00:07:51 #46665 [verbose] > │ float * float * float * float) -> struct (float * float * float * float * │
00:07:51 #46666 [verbose] > │ float * float * float * float * float))) = closure0() │
00:07:51 #46667 [verbose] > │ let v1 : (struct (float * float * float * float * float * float * float │
00:07:51 #46668 [verbose] > │ * float * float) -> struct (float * float * float * float * float * float * │
00:07:51 #46669 [verbose] > │ float * float * float)) = closure2() │
00:07:51 #46670 [verbose] > │ let v2 : (struct (float * float * float * float * float * float * float │
00:07:51 #46671 [verbose] > │ * float * float) -> struct (float * float * float * float * float * float * │
00:07:51 #46672 [verbose] > │ float * float * float)) = v0 v1 │
00:07:51 #46673 [verbose] > │ let v3 : (struct (float * float * float * float * float * float * float │
00:07:51 #46674 [verbose] > │ * float * float) -> struct (float * float * float * float * float * float * │
00:07:51 #46675 [verbose] > │ float * float * float)) = closure3() │
00:07:51 #46676 [verbose] > │ let v4 : (struct (float * float * float * float * float * float * float │
00:07:51 #46677 [verbose] > │ * float * float) -> struct (float * float * float * float * float * float * │
00:07:51 #46678 [verbose] > │ float * float * float)) = v0 v3 │
00:07:51 #46679 [verbose] > │ let v5 : UH0 = UH0_0 │
00:07:51 #46680 [verbose] > │ let v6 : int32 = 0 │
00:07:51 #46681 [verbose] > │ let v7 : UH0 = method1(v2, v5, v6) │
00:07:51 #46682 [verbose] > │ let v8 : UH1 = UH1_0 │
00:07:51 #46683 [verbose] > │ let v9 : UH1 = method4(v7, v8) │
00:07:51 #46684 [verbose] > │ let v10 : UH2 = UH2_0 │
00:07:51 #46685 [verbose] > │ let v11 : UH2 = UH2_0 │
00:07:51 #46686 [verbose] > │ let struct (v12 : UH2, v13 : UH2) = method5(v9, v10, v11) │
00:07:51 #46687 [verbose] > │ let v14 : UH2 = UH2_0 │
00:07:51 #46688 [verbose] > │ let v15 : UH2 = method6(v12, v14) │
00:07:51 #46689 [verbose] > │ let v16 : UH2 = UH2_0 │
00:07:51 #46690 [verbose] > │ let v17 : UH2 = method6(v13, v16) │
00:07:51 #46691 [verbose] > │ let v18 : UH0 = UH0_0 │
00:07:51 #46692 [verbose] > │ let v19 : int32 = 0 │
00:07:51 #46693 [verbose] > │ let v20 : UH0 = method7(v4, v18, v19) │
00:07:51 #46694 [verbose] > │ let v21 : UH1 = UH1_0 │
00:07:51 #46695 [verbose] > │ let v22 : UH1 = method8(v20, v21) │
00:07:51 #46696 [verbose] > │ let v23 : UH2 = UH2_0 │
00:07:51 #46697 [verbose] > │ let v24 : UH2 = UH2_0 │
00:07:51 #46698 [verbose] > │ let struct (v25 : UH2, v26 : UH2) = method5(v22, v23, v24) │
00:07:51 #46699 [verbose] > │ let v27 : UH2 = UH2_0 │
00:07:51 #46700 [verbose] > │ let v28 : UH2 = method6(v25, v27) │
00:07:51 #46701 [verbose] > │ let v29 : UH2 = UH2_0 │
00:07:51 #46702 [verbose] > │ let v30 : UH2 = method6(v26, v29) │
00:07:51 #46703 [verbose] > │ let v31 : (float []) = method9(v15) │
00:07:51 #46704 [verbose] > │ let v32 : (float []) = method9(v17) │
00:07:51 #46705 [verbose] > │ let v33 : (float []) = method9(v28) │
00:07:51 #46706 [verbose] > │ let v34 : (float []) = method9(v30) │
00:07:51 #46707 [verbose] > │ let v35 : string = "newtonian" │
00:07:51 #46708 [verbose] > │ let v36 : string = "relativistic" │
00:07:51 #46709 [verbose] > │ let v37 : (struct (string * (float []) * (float [])) []) = [|struct │
00:07:51 #46710 [verbose] > │ (v35, v31, v32); struct (v36, v33, v34)|] │
00:07:51 #46711 [verbose] > │ let v38 : string = "proton in a 1-t magnetic field" │
00:07:51 #46712 [verbose] > │ let v39 : string = "x (m)" │
00:07:51 #46713 [verbose] > │ let v40 : string = "y (m)" │
00:07:51 #46714 [verbose] > │ struct (v38, v39, v40, v37) │
00:07:51 #46715 [verbose] > │ method0() │
00:07:51 #46716 [verbose] > │ │
00:07:51 #46717 [verbose] > │ │
00:07:51 #46718 [verbose] > ╰──────────────────────────────────────────────────────────────────────────────╯
00:07:51 #46719 [verbose] >
00:07:51 #46720 [verbose] > ── markdown ────────────────────────────────────────────────────────────────────
00:07:51 #46721 [verbose] > ╭──────────────────────────────────────────────────────────────────────────────╮
00:07:51 #46722 [verbose] > │ ### system kinetic energy versus time 1 │
00:07:51 #46723 [verbose] > ╰──────────────────────────────────────────────────────────────────────────────╯
00:07:51 #46724 [verbose] >
00:07:51 #46725 [verbose] > ── spiral ──────────────────────────────────────────────────────────────────────
00:07:51 #46726 [verbose] > // // test
00:07:51 #46727 [verbose] >
00:07:51 #46728 [verbose] > inl central_force f (particle_state st1) (particle_state st2) =
00:07:51 #46729 [verbose] > inl r1 = st1.pos_vec
00:07:51 #46730 [verbose] > inl r2 = st2.pos_vec
00:07:51 #46731 [verbose] > inl r21 = r2 ^-^ r1
00:07:51 #46732 [verbose] > inl r21mag = magnitude r21
00:07:51 #46733 [verbose] > f r21mag *^ r21 ^/ r21mag
00:07:51 #46734 [verbose] >
00:07:51 #46735 [verbose] > inl billiard_force k re =
00:07:51 #46736 [verbose] > inl f r =
00:07:51 #46737 [verbose] > if r >= re
00:07:51 #46738 [verbose] > then 0
00:07:51 #46739 [verbose] > else -k * (r - re)
00:07:51 #46740 [verbose] > central_force f
00:07:51 #46741 [verbose] >
00:07:51 #46742 [verbose] > type force_vector = vec
00:07:51 #46743 [verbose] > type two_body_force = particle_state -> particle_state -> force_vector
00:07:51 #46744 [verbose] >
00:07:51 #46745 [verbose] > union force =
00:07:51 #46746 [verbose] > | ExternalForce : i32 * one_body_force
00:07:51 #46747 [verbose] > | InternalForce : i32 * i32 * two_body_force
00:07:51 #46748 [verbose] >
00:07:51 #46749 [verbose] > nominal multi_particle_state = list particle_state
00:07:51 #46750 [verbose] >
00:07:51 #46751 [verbose] > nominal d_multi_particle_state = list d_particle_state
00:07:51 #46752 [verbose] >
00:07:51 #46753 [verbose] > inl force_on n sts force =
00:07:51 #46754 [verbose] > match force with
00:07:51 #46755 [verbose] > | ExternalForce (n0, f_one_body) =>
00:07:51 #46756 [verbose] > if n = n0
00:07:51 #46757 [verbose] > then f_one_body
00:07:51 #46758 [verbose] > else fun _ => zero_vec ()
00:07:51 #46759 [verbose] > | InternalForce (n0, n1, f_two_body) =>
00:07:51 #46760 [verbose] > if n = n0
00:07:51 #46761 [verbose] > then f_two_body (sts |> listm'.item n1)
00:07:51 #46762 [verbose] > elif n = n1
00:07:51 #46763 [verbose] > then f_two_body (sts |> listm'.item n0)
00:07:51 #46764 [verbose] > else fun _ => zero_vec ()
00:07:51 #46765 [verbose] >
00:07:51 #46766 [verbose] > inl forces_on n (multi_particle_state sts) fs =
00:07:51 #46767 [verbose] > fs |> listm.map (force_on n sts)
00:07:51 #46768 [verbose] >
00:07:51 #46769 [verbose] > inl newton_second_mps fs (multi_particle_state sts) : d_multi_particle_state =
00:07:51 #46770 [verbose] > inl deriv (n, st) =
00:07:51 #46771 [verbose] > newton_second_ps (forces_on n (multi_particle_state sts) fs) st
00:07:51 #46772 [verbose] > sts |> listm'.indexed |> listm.map deriv |> d_multi_particle_state
00:07:51 #46773 [verbose] >
00:07:51 #46774 [verbose] > instance (+++) d_multi_particle_state = fun (d_multi_particle_state dsts1)
00:07:51 #46775 [verbose] > (d_multi_particle_state dsts2) =>
00:07:51 #46776 [verbose] > d_multi_particle_state (listm'.zip_with_ (+++) dsts1 dsts2)
00:07:51 #46777 [verbose] >
00:07:51 #46778 [verbose] > instance scale d_multi_particle_state = fun w (d_multi_particle_state dsts) =>
00:07:51 #46779 [verbose] > d_multi_particle_state (dsts |> listm.map (scale w))
00:07:51 #46780 [verbose] >
00:07:51 #46781 [verbose] > instance shift multi_particle_state = fun dt dsts (multi_particle_state sts) =>
00:07:51 #46782 [verbose] > inl (d_multi_particle_state dsts) =
00:07:51 #46783 [verbose] > real
00:07:51 #46784 [verbose] > match dsts with
00:07:51 #46785 [verbose] > | d_multi_particle_state _ => dsts
00:07:51 #46786 [verbose] > listm'.zip_with_ (shift dt) dsts sts |> multi_particle_state
00:07:51 #46787 [verbose] >
00:07:51 #46788 [verbose] > inl euler_cromer_mps dt : numerical_method multi_particle_state
00:07:51 #46789 [verbose] > d_multi_particle_state =
00:07:51 #46790 [verbose] > fun deriv mpst0 =>
00:07:51 #46791 [verbose] > inl mpst1 = euler dt deriv mpst0
00:07:51 #46792 [verbose] > inl (multi_particle_state sts0) = mpst0
00:07:51 #46793 [verbose] > inl (multi_particle_state sts1) = mpst1
00:07:51 #46794 [verbose] > sts1
00:07:51 #46795 [verbose] > |> listm'.zip_ sts0
00:07:51 #46796 [verbose] > |> listm.map (fun ((particle_state st0), (particle_state st1)) =>
00:07:51 #46797 [verbose] > particle_state {
00:07:51 #46798 [verbose] > st1 with
00:07:51 #46799 [verbose] > pos_vec = st0.pos_vec ^+^ st1.velocity ^* dt
00:07:51 #46800 [verbose] > }
00:07:51 #46801 [verbose] > )
00:07:51 #46802 [verbose] > |> multi_particle_state
00:07:51 #46803 [verbose] >
00:07:51 #46804 [verbose] > inl update_mps (method : numerical_method multi_particle_state
00:07:51 #46805 [verbose] > d_multi_particle_state) =
00:07:51 #46806 [verbose] > newton_second_mps >> method
00:07:51 #46807 [verbose] >
00:07:51 #46808 [verbose] > inl states_mps (method : numerical_method multi_particle_state
00:07:51 #46809 [verbose] > d_multi_particle_state) =
00:07:51 #46810 [verbose] > newton_second_mps >> method >> seq.iterate_
00:07:51 #46811 [verbose] >
00:07:51 #46812 [verbose] >
00:07:51 #46813 [verbose] > inl kinetic_energy (particle_state st) =
00:07:51 #46814 [verbose] > inl m = st.mass
00:07:51 #46815 [verbose] > inl v = magnitude st.velocity
00:07:51 #46816 [verbose] > 0.5 * m * v ** 2
00:07:51 #46817 [verbose] >
00:07:51 #46818 [verbose] > inl system_ke (multi_particle_state sts) =
00:07:51 #46819 [verbose] > sts |> listm.map kinetic_energy |> listm'.sum
00:07:51 #46820 [verbose] >
00:07:51 #46821 [verbose] > inl linear_spring_pe k re (particle_state st1) (particle_state st2) =
00:07:51 #46822 [verbose] > inl r1 = st1.pos_vec
00:07:51 #46823 [verbose] > inl r2 = st2.pos_vec
00:07:51 #46824 [verbose] > inl r21 = r2 ^-^ r1
00:07:51 #46825 [verbose] > inl r21mag = magnitude r21
00:07:51 #46826 [verbose] > k * (r21mag - re) ** 2 / 2
00:07:51 #46827 [verbose] >
00:07:51 #46828 [verbose] > inl earth_surface_gravity_pe (particle_state st) =
00:07:51 #46829 [verbose] > inl g = 9.80665
00:07:51 #46830 [verbose] > inl m = st.mass
00:07:51 #46831 [verbose] > inl z = st.pos_vec.z
00:07:51 #46832 [verbose] > m * g * z
00:07:51 #46833 [verbose] >
00:07:51 #46834 [verbose] > inl two_springs_pe (multi_particle_state sts) =
00:07:51 #46835 [verbose] > inl st0 = sts |> listm'.item 0i32
00:07:51 #46836 [verbose] > inl st1 = sts |> listm'.item 1i32
00:07:51 #46837 [verbose] > linear_spring_pe 100 0.5 (default_particle_state ()) st0
00:07:51 #46838 [verbose] > + linear_spring_pe 100 0.5 st0 st1
00:07:51 #46839 [verbose] > + earth_surface_gravity_pe st0
00:07:51 #46840 [verbose] > + earth_surface_gravity_pe st1
00:07:51 #46841 [verbose] >
00:07:51 #46842 [verbose] > inl two_springs_me mpst =
00:07:51 #46843 [verbose] > system_ke mpst + two_springs_pe mpst
00:07:51 #46844 [verbose] >
00:07:51 #46845 [verbose] > inl ball_radius () = 0.03
00:07:51 #46846 [verbose] >
00:07:51 #46847 [verbose] > inl billiard_forces k =
00:07:51 #46848 [verbose] > [[ InternalForce (0, 1, billiard_force k (2 * ball_radius ())) ]]
00:07:51 #46849 [verbose] >
00:07:51 #46850 [verbose] > inl billiard_update n_method k dt =
00:07:51 #46851 [verbose] > update_mps (n_method dt) (billiard_forces k)
00:07:51 #46852 [verbose] >
00:07:51 #46853 [verbose] > inl billiard_initial () =
00:07:51 #46854 [verbose] > inl ball_mass = 0.160
00:07:51 #46855 [verbose] > inl (particle_state default_particle_state') = default_particle_state ()
00:07:51 #46856 [verbose] > multi_particle_state [[
00:07:51 #46857 [verbose] > particle_state {
00:07:51 #46858 [verbose] > default_particle_state' with
00:07:51 #46859 [verbose] > mass = ball_mass
00:07:51 #46860 [verbose] > pos_vec = zero_vec ()
00:07:51 #46861 [verbose] > velocity = 0.2 *^ i_hat ()
00:07:51 #46862 [verbose] > }
00:07:51 #46863 [verbose] > particle_state {
00:07:51 #46864 [verbose] > default_particle_state' with
00:07:51 #46865 [verbose] > mass = ball_mass
00:07:51 #46866 [verbose] > pos_vec = i_hat () ^+^ 0.02 *^ j_hat ()
00:07:51 #46867 [verbose] > velocity = zero_vec ()
00:07:51 #46868 [verbose] > }
00:07:51 #46869 [verbose] > ]]
00:07:51 #46870 [verbose] >
00:07:51 #46871 [verbose] > inl billiard_states ~n_method k dt =
00:07:51 #46872 [verbose] > states_mps (n_method dt) (billiard_forces k) (billiard_initial ())
00:07:51 #46873 [verbose] >
00:07:51 #46874 [verbose] > inl billiard_states_finite n_method k dt =
00:07:51 #46875 [verbose] > billiard_states n_method k dt
00:07:51 #46876 [verbose] > >> Some
00:07:51 #46877 [verbose] > |> seq.take_while_ (fun (multi_particle_state mpst) (_ : i32) =>
00:07:51 #46878 [verbose] > (mpst |> listm'.item 0i32).time <= 10
00:07:51 #46879 [verbose] > )
00:07:51 #46880 [verbose] >
00:07:51 #46881 [verbose] > inl momentum (particle_state st) =
00:07:51 #46882 [verbose] > inl m = st.mass
00:07:51 #46883 [verbose] > inl v = st.velocity
00:07:51 #46884 [verbose] > m *^ v
00:07:51 #46885 [verbose] >
00:07:51 #46886 [verbose] > inl system_p (multi_particle_state sts) =
00:07:51 #46887 [verbose] > sts |> listm.map momentum |> sum_vec
00:07:51 #46888 [verbose] >
00:07:51 #46889 [verbose] >
00:07:51 #46890 [verbose] > inl time_ke_ec_x, time_ke_ec_y =
00:07:51 #46891 [verbose] > billiard_states_finite euler_cromer_mps 30 0.03
00:07:51 #46892 [verbose] > |> listm.map (fun (multi_particle_state mpst) =>
00:07:51 #46893 [verbose] > (mpst |> listm'.item 0i32).time, system_ke (multi_particle_state mpst)
00:07:51 #46894 [verbose] > )
00:07:51 #46895 [verbose] > |> listm'.unzip
00:07:51 #46896 [verbose] >
00:07:51 #46897 [verbose] > inl time_ke_rk4_x, time_ke_rk4_y =
00:07:51 #46898 [verbose] > billiard_states_finite runge_kutta_4 30 0.03
00:07:51 #46899 [verbose] > |> listm.map (fun (multi_particle_state mpst) =>
00:07:51 #46900 [verbose] > (mpst |> listm'.item 0i32).time, system_ke (multi_particle_state mpst)
00:07:51 #46901 [verbose] > )
00:07:51 #46902 [verbose] > |> listm'.unzip
00:07:51 #46903 [verbose] >
00:07:51 #46904 [verbose] > inl time_ke_ec_x : a i32 _ = time_ke_ec_x |> listm.toArray
00:07:51 #46905 [verbose] > inl time_ke_ec_y : a i32 _ = time_ke_ec_y |> listm.toArray
00:07:51 #46906 [verbose] >
00:07:51 #46907 [verbose] > inl time_ke_rk4_x : a i32 _ = time_ke_rk4_x |> listm.toArray
00:07:51 #46908 [verbose] > inl time_ke_rk4_y : a i32 _ = time_ke_rk4_y |> listm.toArray
00:07:51 #46909 [verbose] >
00:07:51 #46910 [verbose] > "system kinetic energy versus time",
00:07:51 #46911 [verbose] > "time (s)",
00:07:51 #46912 [verbose] > "system kinetic energy (j)",
00:07:51 #46913 [verbose] > ;[[
00:07:51 #46914 [verbose] > "euler-cromer", time_ke_ec_x, time_ke_ec_y
00:07:51 #46915 [verbose] > "runge-kutta 4", time_ke_rk4_x, time_ke_rk4_y
00:07:51 #46916 [verbose] > ]]
00:07:51 #46917 [verbose] > Building c:\home\git\polyglot\target\polyglot\spiral_eval\packages\47ae9c71253f23499704f357aa2cb3417cc1fc6aa2858a214b8da4a9208e65ca\main.spi
00:07:53 #46918 [verbose] >
00:07:53 #46919 [verbose] > ╭─[ 1.71s - return value ]─────────────────────────────────────────────────────╮
00:07:53 #46920 [verbose] > │ <svg width="640" height="480" viewBox="0 0 640 480" │
00:07:53 #46921 [verbose] > │ xmlns="http://www.w3.org/2000/svg"> │
00:07:53 #46922 [verbose] > │ <rect x="0" y="0" width="640" height="480" opacity="1" fill="#141414" │
00:07:53 #46923 [verbose] > │ stroke="none"/> │
00:07:53 #46924 [verbose] > │ <text x="320" y="10" dy="0.76em" text-anchor="middle" │
00:07:53 #46925 [verbose] > │ font-family="sans-serif" font-size="9.67741935483871" opacity="1" │
00:07:53 #46926 [verbose] > │ fill="#FFFFFF"> │
00:07:53 #46927 [verbose] > │ system kinetic energy versus time │
00:07:53 #46928 [verbose] > │ </text> │
00:07:53 #46929 [verbose] > │ <line opacity="1" stroke="#323232" stroke-width="1" x1="59" y1="424" x2="59" │
00:07:53 #46930 [verbose] > │ y2="75"/> │
00:07:53 #46931 [verbose] > │ <line opacity="1" stroke="#323232" stroke-width="1" x1="69" y1="424" x2="69" │
00:07:53 #46932 [verbose] > │ y2="75"/> │
00:07:53 #46933 [verbose] > │ <line opacity="1" stroke="#323232" stroke-width="1" x1="79" y1="424" x2="79" │
00:07:53 #46934 [verbose] > │ y2="75"/> │
00:07:53 #46935 [verbose] > │ <line opacity="1" stroke="#323232" stroke-width="1" x1="89" y1="424" x2="89" │
00:07:53 #46936 [verbose] > │ y2="75"/> │
00:07:53 #46937 [verbose] > │ <line opacity="1" stroke="#323232" stroke-width="1... │
00:07:53 #46938 [verbose] > ╰──────────────────────────────────────────────────────────────────────────────╯
00:07:53 #46939 [verbose] >
00:07:53 #46940 [verbose] > ╭─[ 1.72s - stdout ]───────────────────────────────────────────────────────────╮
00:07:53 #46941 [verbose] > │ type UH0 = │
00:07:53 #46942 [verbose] > │ | UH0_0 │
00:07:53 #46943 [verbose] > │ | UH0_1 of float * float * float * float * float * float * float * float │
00:07:53 #46944 [verbose] > │ * float * UH0 │
00:07:53 #46945 [verbose] > │ and UH1 = │
00:07:53 #46946 [verbose] > │ | UH1_0 │
00:07:53 #46947 [verbose] > │ | UH1_1 of float * float * float * float * float * float * float * float │
00:07:53 #46948 [verbose] > │ * float * UH1 │
00:07:53 #46949 [verbose] > │ and UH2 = │
00:07:53 #46950 [verbose] > │ | UH2_0 │
00:07:53 #46951 [verbose] > │ | UH2_1 of float * float * float * float * float * float * float * float │
00:07:53 #46952 [verbose] > │ * float * float * float * float * float * float * float * float * float * │
00:07:53 #46953 [verbose] > │ float * UH2 │
00:07:53 #46954 [verbose] > │ and UH3 = │
00:07:53 #46955 [verbose] > │ | UH3_0 │
00:07:53 #46956 [verbose] > │ | UH3_1 of int32 * float * float * float * float * float * float * float │
00:07:53 #46957 [verbose] > │ * float * float * UH3 │
00:07:53 #46958 [verbose] > │ and [<Struct>] US0 = │
00:07:53 #46959 [verbose] > │ | US0_0 of f0_0 : float * f0_1 : float * f0_2 : float * f0_3 : float * │
00:07:53 #46960 [verbose] > │ f0_4 : float * f0_5 : float * f0_6 : float * f0_7 : float * f0_8 : float │
00:07:53 #46961 [verbose] > │ | US0_1 │
00:07:53 #46962 [verbose] > │ and UH4 = │
00:07:53 #46963 [verbose] > │ | UH4_0 │
00:07:53 #46964 [verbose] > │ | UH4_1 of UH0 * UH4 │
00:07:53 #46965 [verbose] > │ and UH5 = │
00:07:53 #46966 [verbose] > │ | UH5_0 │
00:07:53 #46967 [verbose] > │ | UH5_1 of float * float * UH5 │
00:07:53 #46968 [verbose] > │ and UH6 = │
00:07:53 #46969 [verbose] > │ | UH6_0 │
00:07:53 #46970 [verbose] > │ | UH6_1 of float * UH6 │
00:07:53 #46971 [verbose] > │ let rec method2 (v0 : UH0, v1 : UH0) : UH0 = │
00:07:53 #46972 [verbose] > │ match v0 with │
00:07:53 #46973 [verbose] > │ | UH0_1(v2, v3, v4, v5, v6, v7, v8, v9, v10, v11) -> (* Cons *) │
00:07:53 #46974 [verbose] > │ let v12 : UH0 = UH0_1(v2, v3, v4, v5, v6, v7, v8, v9, v10, v1) │
00:07:53 #46975 [verbose] > │ method2(v11, v12) │
00:07:53 #46976 [verbose] > │ | UH0_0 -> (* Nil *) │
00:07:53 #46977 [verbose] > │ v1 │
00:07:53 #46978 [verbose] > │ and method1 (v0 : float, v1 : UH0, v2 : UH1, v3 : UH0) : UH0 = │
00:07:53 #46979 [verbose] > │ match v2 with │
00:07:53 #46980 [verbose] > │ | UH1_1(v4, v5, v6, v7, v8, v9, v10, v11, v12, v13) -> (* Cons *) │
00:07:53 #46981 [verbose] > │ match v3 with │
00:07:53 #46982 [verbose] > │ | UH0_1(v14, v15, v16, v17, v18, v19, v20, v21, v22, v23) -> (* Cons │
00:07:53 #46983 [verbose] > │ *) │
00:07:53 #46984 [verbose] > │ let v24 : float = v9 * v0 │
00:07:53 #46985 [verbose] > │ let v25 : float = v19 + v24 │
00:07:53 #46986 [verbose] > │ let v26 : float = v0 * v6 │
00:07:53 #46987 [verbose] > │ let v27 : float = v0 * v7 │
00:07:53 #46988 [verbose] > │ let v28 : float = v0 * v8 │
00:07:53 #46989 [verbose] > │ let v29 : float = v16 + v26 │
00:07:53 #46990 [verbose] > │ let v30 : float = v17 + v27 │
00:07:53 #46991 [verbose] > │ let v31 : float = v18 + v28 │
00:07:53 #46992 [verbose] > │ let v32 : float = v0 * v10 │
00:07:53 #46993 [verbose] > │ let v33 : float = v0 * v11 │
00:07:53 #46994 [verbose] > │ let v34 : float = v0 * v12 │
00:07:53 #46995 [verbose] > │ let v35 : float = v20 + v32 │
00:07:53 #46996 [verbose] > │ let v36 : float = v21 + v33 │
00:07:53 #46997 [verbose] > │ let v37 : float = v22 + v34 │
00:07:53 #46998 [verbose] > │ let v38 : UH0 = UH0_1(v14, v15, v29, v30, v31, v25, v35, v36, │
00:07:53 #46999 [verbose] > │ v37, v1) │
00:07:53 #47000 [verbose] > │ method1(v0, v38, v13, v23) │
00:07:53 #47001 [verbose] > │ | _ -> │
00:07:53 #47002 [verbose] > │ let v40 : UH0 = UH0_0 │
00:07:53 #47003 [verbose] > │ method2(v1, v40) │
00:07:53 #47004 [verbose] > │ | _ -> │
00:07:53 #47005 [verbose] > │ let v43 : UH0 = UH0_0 │
00:07:53 #47006 [verbose] > │ method2(v1, v43) │
00:07:53 #47007 [verbose] > │ and method4 (v0 : UH2, v1 : UH2) : UH2 = │
00:07:53 #47008 [verbose] > │ match v0 with │
00:07:53 #47009 [verbose] > │ | UH2_1(v2, v3, v4, v5, v6, v7, v8, v9, v10, v11, v12, v13, v14, v15, │
00:07:53 #47010 [verbose] > │ v16, v17, v18, v19, v20) -> (* Cons *) │
00:07:53 #47011 [verbose] > │ let v21 : UH2 = UH2_1(v2, v3, v4, v5, v6, v7, v8, v9, v10, v11, v12, │
00:07:53 #47012 [verbose] > │ v13, v14, v15, v16, v17, v18, v19, v1) │
00:07:53 #47013 [verbose] > │ method4(v20, v21) │
00:07:53 #47014 [verbose] > │ | UH2_0 -> (* Nil *) │
00:07:53 #47015 [verbose] > │ v1 │
00:07:53 #47016 [verbose] > │ and method3 (v0 : UH2, v1 : UH0, v2 : UH0) : UH2 = │
00:07:53 #47017 [verbose] > │ match v1 with │
00:07:53 #47018 [verbose] > │ | UH0_1(v3, v4, v5, v6, v7, v8, v9, v10, v11, v12) -> (* Cons *) │
00:07:53 #47019 [verbose] > │ match v2 with │
00:07:53 #47020 [verbose] > │ | UH0_1(v13, v14, v15, v16, v17, v18, v19, v20, v21, v22) -> (* Cons │
00:07:53 #47021 [verbose] > │ *) │
00:07:53 #47022 [verbose] > │ let v23 : UH2 = UH2_1(v3, v4, v5, v6, v7, v8, v9, v10, v11, v13, │
00:07:53 #47023 [verbose] > │ v14, v15, v16, v17, v18, v19, v20, v21, v0) │
00:07:53 #47024 [verbose] > │ method3(v23, v12, v22) │
00:07:53 #47025 [verbose] > │ | _ -> │
00:07:53 #47026 [verbose] > │ let v25 : UH2 = UH2_0 │
00:07:53 #47027 [verbose] > │ method4(v0, v25) │
00:07:53 #47028 [verbose] > │ | _ -> │
00:07:53 #47029 [verbose] > │ let v28 : UH2 = UH2_0 │
00:07:53 #47030 [verbose] > │ method4(v0, v28) │
00:07:53 #47031 [verbose] > │ and method5 (v0 : float, v1 : UH2, v2 : UH0) : UH0 = │
00:07:53 #47032 [verbose] > │ match v1 with │
00:07:53 #47033 [verbose] > │ | UH2_1(v3, v4, v5, v6, v7, v8, v9, v10, v11, v12, v13, v14, v15, v16, │
00:07:53 #47034 [verbose] > │ v17, v18, v19, v20, v21) -> (* Cons *) │
00:07:53 #47035 [verbose] > │ let v22 : UH0 = method5(v0, v21, v2) │
00:07:53 #47036 [verbose] > │ let v23 : float = v0 * v18 │
00:07:53 #47037 [verbose] > │ let v24 : float = v0 * v19 │
00:07:53 #47038 [verbose] > │ let v25 : float = v0 * v20 │
00:07:53 #47039 [verbose] > │ let v26 : float = v5 + v23 │
00:07:53 #47040 [verbose] > │ let v27 : float = v6 + v24 │
00:07:53 #47041 [verbose] > │ let v28 : float = v7 + v25 │
00:07:53 #47042 [verbose] > │ UH0_1(v12, v13, v26, v27, v28, v17, v18, v19, v20, v22) │
00:07:53 #47043 [verbose] > │ | UH2_0 -> (* Nil *) │
00:07:53 #47044 [verbose] > │ v2 │
00:07:53 #47045 [verbose] > │ and closure2 (v0 : float, v1 : (UH0 -> UH1)) (v2 : UH0) : UH0 = │
00:07:53 #47046 [verbose] > │ let v3 : UH1 = v1 v2 │
00:07:53 #47047 [verbose] > │ let v4 : UH0 = UH0_0 │
00:07:53 #47048 [verbose] > │ let v5 : UH0 = method1(v0, v4, v3, v2) │
00:07:53 #47049 [verbose] > │ let v6 : UH2 = UH2_0 │
00:07:53 #47050 [verbose] > │ let v7 : UH2 = method3(v6, v2, v5) │
00:07:53 #47051 [verbose] > │ let v8 : UH0 = UH0_0 │
00:07:53 #47052 [verbose] > │ let v9 : UH0 = method5(v0, v7, v8) │
00:07:53 #47053 [verbose] > │ v9 │
00:07:53 #47054 [verbose] > │ and closure1 (v0 : float) (v1 : (UH0 -> UH1)) : (UH0 -> UH0) = │
00:07:53 #47055 [verbose] > │ closure2(v0, v1) │
00:07:53 #47056 [verbose] > │ and closure0 () (v0 : float) : ((UH0 -> UH1) -> (UH0 -> UH0)) = │
00:07:53 #47057 [verbose] > │ closure1(v0) │
00:07:53 #47058 [verbose] > │ and method6 (v0 : UH0, v1 : UH3, v2 : int32) : struct (UH3 * int32) = │
00:07:53 #47059 [verbose] > │ match v0 with │
00:07:53 #47060 [verbose] > │ | UH0_1(v3, v4, v5, v6, v7, v8, v9, v10, v11, v12) -> (* Cons *) │
00:07:53 #47061 [verbose] > │ let v13 : int32 = v2 + 1 │
00:07:53 #47062 [verbose] > │ let v14 : UH3 = UH3_1(v2, v3, v4, v5, v6, v7, v8, v9, v10, v11, v1) │
00:07:53 #47063 [verbose] > │ method6(v12, v14, v13) │
00:07:53 #47064 [verbose] > │ | UH0_0 -> (* Nil *) │
00:07:53 #47065 [verbose] > │ struct (v1, v2) │
00:07:53 #47066 [verbose] > │ and method7 (v0 : UH3, v1 : UH3) : UH3 = │
00:07:53 #47067 [verbose] > │ match v0 with │
00:07:53 #47068 [verbose] > │ | UH3_1(v2, v3, v4, v5, v6, v7, v8, v9, v10, v11, v12) -> (* Cons *) │
00:07:53 #47069 [verbose] > │ let v13 : UH3 = UH3_1(v2, v3, v4, v5, v6, v7, v8, v9, v10, v11, v1) │
00:07:53 #47070 [verbose] > │ method7(v12, v13) │
00:07:53 #47071 [verbose] > │ | UH3_0 -> (* Nil *) │
00:07:53 #47072 [verbose] > │ v1 │
00:07:53 #47073 [verbose] > │ and closure4 (v0 : float, v1 : float, v2 : float, v3 : float, v4 : float, v5 │
00:07:53 #47074 [verbose] > │ : float, v6 : float, v7 : float, v8 : float) struct (v9 : float, v10 : │
00:07:53 #47075 [verbose] > │ float, v11 : float, v12 : float, v13 : float, v14 : float, v15 : float, v16 │
00:07:53 #47076 [verbose] > │ : float, v17 : float) : struct (float * float * float) = │
00:07:53 #47077 [verbose] > │ let v18 : float = -1.0 * v2 │
00:07:53 #47078 [verbose] > │ let v19 : float = -1.0 * v3 │
00:07:53 #47079 [verbose] > │ let v20 : float = -1.0 * v4 │
00:07:53 #47080 [verbose] > │ let v21 : float = v11 + v18 │
00:07:53 #47081 [verbose] > │ let v22 : float = v12 + v19 │
00:07:53 #47082 [verbose] > │ let v23 : float = v13 + v20 │
00:07:53 #47083 [verbose] > │ let v24 : float = v21 * v21 │
00:07:53 #47084 [verbose] > │ let v25 : float = v22 * v22 │
00:07:53 #47085 [verbose] > │ let v26 : float = v24 + v25 │
00:07:53 #47086 [verbose] > │ let v27 : float = v23 * v23 │
00:07:53 #47087 [verbose] > │ let v28 : float = v26 + v27 │
00:07:53 #47088 [verbose] > │ let v29 : float = sqrt v28 │
00:07:53 #47089 [verbose] > │ let v30 : bool = v29 >= 0.06 │
00:07:53 #47090 [verbose] > │ let v33 : float = │
00:07:53 #47091 [verbose] > │ if v30 then │
00:07:53 #47092 [verbose] > │ 0.0 │
00:07:53 #47093 [verbose] > │ else │
00:07:53 #47094 [verbose] > │ let v31 : float = v29 - 0.06 │
00:07:53 #47095 [verbose] > │ let v32 : float = -30.0 * v31 │
00:07:53 #47096 [verbose] > │ v32 │
00:07:53 #47097 [verbose] > │ let v34 : float = v33 * v21 │
00:07:53 #47098 [verbose] > │ let v35 : float = v33 * v22 │
00:07:53 #47099 [verbose] > │ let v36 : float = v33 * v23 │
00:07:53 #47100 [verbose] > │ let v37 : float = v34 / v29 │
00:07:53 #47101 [verbose] > │ let v38 : float = v35 / v29 │
00:07:53 #47102 [verbose] > │ let v39 : float = v36 / v29 │
00:07:53 #47103 [verbose] > │ struct (v37, v38, v39) │
00:07:53 #47104 [verbose] > │ and closure5 () struct (v0 : float, v1 : float, v2 : float, v3 : float, v4 : │
00:07:53 #47105 [verbose] > │ float, v5 : float, v6 : float, v7 : float, v8 : float) : struct (float * │
00:07:53 #47106 [verbose] > │ float * float) = │
00:07:53 #47107 [verbose] > │ struct (0.0, 0.0, 0.0) │
00:07:53 #47108 [verbose] > │ and method8 (v0 : UH0, v1 : UH3, v2 : UH1) : UH1 = │
00:07:53 #47109 [verbose] > │ match v1 with │
00:07:53 #47110 [verbose] > │ | UH3_1(v3, v4, v5, v6, v7, v8, v9, v10, v11, v12, v13) -> (* Cons *) │
00:07:53 #47111 [verbose] > │ let v14 : UH1 = method8(v0, v13, v2) │
00:07:53 #47112 [verbose] > │ let v15 : bool = v3 = 0 │
00:07:53 #47113 [verbose] > │ let v134 : (struct (float * float * float * float * float * float * │
00:07:53 #47114 [verbose] > │ float * float * float) -> struct (float * float * float)) = │
00:07:53 #47115 [verbose] > │ if v15 then │
00:07:53 #47116 [verbose] > │ let v42 : US0 = │
00:07:53 #47117 [verbose] > │ match v0 with │
00:07:53 #47118 [verbose] > │ | UH0_1(v16, v17, v18, v19, v20, v21, v22, v23, v24, │
00:07:53 #47119 [verbose] > │ v25) -> (* Cons *) │
00:07:53 #47120 [verbose] > │ match v25 with │
00:07:53 #47121 [verbose] > │ | UH0_1(v26, v27, v28, v29, v30, v31, v32, v33, v34, │
00:07:53 #47122 [verbose] > │ v35) -> (* Cons *) │
00:07:53 #47123 [verbose] > │ US0_0(v26, v27, v28, v29, v30, v31, v32, v33, │
00:07:53 #47124 [verbose] > │ v34) │
00:07:53 #47125 [verbose] > │ | UH0_0 -> (* Nil *) │
00:07:53 #47126 [verbose] > │ US0_1 │
00:07:53 #47127 [verbose] > │ | UH0_0 -> (* Nil *) │
00:07:53 #47128 [verbose] > │ US0_1 │
00:07:53 #47129 [verbose] > │ let struct (v70 : float, v71 : float, v72 : float, v73 : │
00:07:53 #47130 [verbose] > │ float, v74 : float, v75 : float, v76 : float, v77 : float, v78 : float) = │
00:07:53 #47131 [verbose] > │ match v42 with │
00:07:53 #47132 [verbose] > │ | US0_1 -> (* None *) │
00:07:53 #47133 [verbose] > │ failwith<struct (float * float * float * float * │
00:07:53 #47134 [verbose] > │ float * float * float * float * float)> "Option does not have a value." │
00:07:53 #47135 [verbose] > │ | US0_0(v43, v44, v45, v46, v47, v48, v49, v50, v51) -> │
00:07:53 #47136 [verbose] > │ (* Some *) │
00:07:53 #47137 [verbose] > │ struct (v43, v44, v45, v46, v47, v48, v49, v50, v51) │
00:07:53 #47138 [verbose] > │ closure4(v70, v71, v72, v73, v74, v75, v76, v77, v78) │
00:07:53 #47139 [verbose] > │ else │
00:07:53 #47140 [verbose] > │ let v80 : bool = v3 = 1 │
00:07:53 #47141 [verbose] > │ if v80 then │
00:07:53 #47142 [verbose] > │ let v94 : US0 = │
00:07:53 #47143 [verbose] > │ match v0 with │
00:07:53 #47144 [verbose] > │ | UH0_1(v81, v82, v83, v84, v85, v86, v87, v88, v89, │
00:07:53 #47145 [verbose] > │ v90) -> (* Cons *) │
00:07:53 #47146 [verbose] > │ US0_0(v81, v82, v83, v84, v85, v86, v87, v88, │
00:07:53 #47147 [verbose] > │ v89) │
00:07:53 #47148 [verbose] > │ | UH0_0 -> (* Nil *) │
00:07:53 #47149 [verbose] > │ US0_1 │
00:07:53 #47150 [verbose] > │ let struct (v122 : float, v123 : float, v124 : float, │
00:07:53 #47151 [verbose] > │ v125 : float, v126 : float, v127 : float, v128 : float, v129 : float, v130 : │
00:07:53 #47152 [verbose] > │ float) = │
00:07:53 #47153 [verbose] > │ match v94 with │
00:07:53 #47154 [verbose] > │ | US0_1 -> (* None *) │
00:07:53 #47155 [verbose] > │ failwith<struct (float * float * float * float * │
00:07:53 #47156 [verbose] > │ float * float * float * float * float)> "Option does not have a value." │
00:07:53 #47157 [verbose] > │ | US0_0(v95, v96, v97, v98, v99, v100, v101, v102, │
00:07:53 #47158 [verbose] > │ v103) -> (* Some *) │
00:07:53 #47159 [verbose] > │ struct (v95, v96, v97, v98, v99, v100, v101, │
00:07:53 #47160 [verbose] > │ v102, v103) │
00:07:53 #47161 [verbose] > │ closure4(v122, v123, v124, v125, v126, v127, v128, v129, │
00:07:53 #47162 [verbose] > │ v130) │
00:07:53 #47163 [verbose] > │ else │
00:07:53 #47164 [verbose] > │ closure5() │
00:07:53 #47165 [verbose] > │ let struct (v135 : float, v136 : float, v137 : float) = v134 struct │
00:07:53 #47166 [verbose] > │ (v4, v5, v6, v7, v8, v9, v10, v11, v12) │
00:07:53 #47167 [verbose] > │ let v138 : float = v135 / v5 │
00:07:53 #47168 [verbose] > │ let v139 : float = v136 / v5 │
00:07:53 #47169 [verbose] > │ let v140 : float = v137 / v5 │
00:07:53 #47170 [verbose] > │ UH1_1(0.0, 0.0, v10, v11, v12, 1.0, v138, v139, v140, v14) │
00:07:53 #47171 [verbose] > │ | UH3_0 -> (* Nil *) │
00:07:53 #47172 [verbose] > │ v2 │
00:07:53 #47173 [verbose] > │ and closure3 () (v0 : UH0) : UH1 = │
00:07:53 #47174 [verbose] > │ let v1 : UH3 = UH3_0 │
00:07:53 #47175 [verbose] > │ let v2 : int32 = 0 │
00:07:53 #47176 [verbose] > │ let struct (v3 : UH3, v4 : int32) = method6(v0, v1, v2) │
00:07:53 #47177 [verbose] > │ let v5 : UH3 = UH3_0 │
00:07:53 #47178 [verbose] > │ let v6 : UH3 = method7(v3, v5) │
00:07:53 #47179 [verbose] > │ let v7 : UH1 = UH1_0 │
00:07:53 #47180 [verbose] > │ let v8 : UH1 = method8(v0, v6, v7) │
00:07:53 #47181 [verbose] > │ v8 │
00:07:53 #47182 [verbose] > │ and method10 (v0 : (UH0 -> UH0), v1 : UH0, v2 : int32) : UH0 = │
00:07:53 #47183 [verbose] > │ let v3 : bool = v2 <= 0 │
00:07:53 #47184 [verbose] > │ if v3 then │
00:07:53 #47185 [verbose] > │ v1 │
00:07:53 #47186 [verbose] > │ else │
00:07:53 #47187 [verbose] > │ let v4 : UH0 = v0 v1 │
00:07:53 #47188 [verbose] > │ let v5 : int32 = v2 - 1 │
00:07:53 #47189 [verbose] > │ method10(v0, v4, v5) │
00:07:53 #47190 [verbose] > │ and method11 (v0 : UH4, v1 : UH4) : UH4 = │
00:07:53 #47191 [verbose] > │ match v0 with │
00:07:53 #47192 [verbose] > │ | UH4_1(v2, v3) -> (* Cons *) │
00:07:53 #47193 [verbose] > │ let v4 : UH4 = UH4_1(v2, v1) │
00:07:53 #47194 [verbose] > │ method11(v3, v4) │
00:07:53 #47195 [verbose] > │ | UH4_0 -> (* Nil *) │
00:07:53 #47196 [verbose] > │ v1 │
00:07:53 #47197 [verbose] > │ and method9 (v0 : (UH0 -> UH0), v1 : UH4, v2 : int32) : UH4 = │
00:07:53 #47198 [verbose] > │ let v3 : float = 0.0 │
00:07:53 #47199 [verbose] > │ let v4 : float = 0.16 │
00:07:53 #47200 [verbose] > │ let v5 : float = 0.0 │
00:07:53 #47201 [verbose] > │ let v6 : float = 0.0 │
00:07:53 #47202 [verbose] > │ let v7 : float = 0.0 │
00:07:53 #47203 [verbose] > │ let v8 : float = 0.0 │
00:07:53 #47204 [verbose] > │ let v9 : float = 0.2 │
00:07:53 #47205 [verbose] > │ let v10 : float = 0.0 │
00:07:53 #47206 [verbose] > │ let v11 : float = 0.0 │
00:07:53 #47207 [verbose] > │ let v12 : float = 1.0 │
00:07:53 #47208 [verbose] > │ let v13 : float = 0.02 │
00:07:53 #47209 [verbose] > │ let v14 : float = 0.0 │
00:07:53 #47210 [verbose] > │ let v15 : float = 0.0 │
00:07:53 #47211 [verbose] > │ let v16 : float = 0.0 │
00:07:53 #47212 [verbose] > │ let v17 : float = 0.0 │
00:07:53 #47213 [verbose] > │ let v18 : UH0 = UH0_0 │
00:07:53 #47214 [verbose] > │ let v19 : UH0 = UH0_1(v3, v4, v12, v13, v14, v8, v15, v16, v17, v18) │
00:07:53 #47215 [verbose] > │ let v20 : UH0 = UH0_1(v3, v4, v5, v6, v7, v8, v9, v10, v11, v19) │
00:07:53 #47216 [verbose] > │ let v21 : UH0 = method10(v0, v20, v2) │
00:07:53 #47217 [verbose] > │ let v35 : US0 = │
00:07:53 #47218 [verbose] > │ match v21 with │
00:07:53 #47219 [verbose] > │ | UH0_1(v22, v23, v24, v25, v26, v27, v28, v29, v30, v31) -> (* Cons │
00:07:53 #47220 [verbose] > │ *) │
00:07:53 #47221 [verbose] > │ US0_0(v22, v23, v24, v25, v26, v27, v28, v29, v30) │
00:07:53 #47222 [verbose] > │ | UH0_0 -> (* Nil *) │
00:07:53 #47223 [verbose] > │ US0_1 │
00:07:53 #47224 [verbose] > │ let struct (v63 : float, v64 : float, v65 : float, v66 : float, v67 : │
00:07:53 #47225 [verbose] > │ float, v68 : float, v69 : float, v70 : float, v71 : float) = │
00:07:53 #47226 [verbose] > │ match v35 with │
00:07:53 #47227 [verbose] > │ | US0_1 -> (* None *) │
00:07:53 #47228 [verbose] > │ failwith<struct (float * float * float * float * float * float * │
00:07:53 #47229 [verbose] > │ float * float * float)> "Option does not have a value." │
00:07:53 #47230 [verbose] > │ | US0_0(v36, v37, v38, v39, v40, v41, v42, v43, v44) -> (* Some *) │
00:07:53 #47231 [verbose] > │ struct (v36, v37, v38, v39, v40, v41, v42, v43, v44) │
00:07:53 #47232 [verbose] > │ let v72 : bool = v68 <= 10.0 │
00:07:53 #47233 [verbose] > │ if v72 then │
00:07:53 #47234 [verbose] > │ let v73 : UH4 = UH4_1(v21, v1) │
00:07:53 #47235 [verbose] > │ let v74 : int32 = v2 + 1 │
00:07:53 #47236 [verbose] > │ method9(v0, v73, v74) │
00:07:53 #47237 [verbose] > │ else │
00:07:53 #47238 [verbose] > │ let v76 : UH4 = UH4_0 │
00:07:53 #47239 [verbose] > │ method11(v1, v76) │
00:07:53 #47240 [verbose] > │ and method13 (v0 : UH0, v1 : UH6) : UH6 = │
00:07:53 #47241 [verbose] > │ match v0 with │
00:07:53 #47242 [verbose] > │ | UH0_1(v2, v3, v4, v5, v6, v7, v8, v9, v10, v11) -> (* Cons *) │
00:07:53 #47243 [verbose] > │ let v12 : UH6 = method13(v11, v1) │
00:07:53 #47244 [verbose] > │ let v13 : float = v8 * v8 │
00:07:53 #47245 [verbose] > │ let v14 : float = v9 * v9 │
00:07:53 #47246 [verbose] > │ let v15 : float = v13 + v14 │
00:07:53 #47247 [verbose] > │ let v16 : float = v10 * v10 │
00:07:53 #47248 [verbose] > │ let v17 : float = v15 + v16 │
00:07:53 #47249 [verbose] > │ let v18 : float = sqrt v17 │
00:07:53 #47250 [verbose] > │ let v19 : float = 0.5 * v3 │
00:07:53 #47251 [verbose] > │ let v20 : float = v18 ** 2.0 │
00:07:53 #47252 [verbose] > │ let v21 : float = v19 * v20 │
00:07:53 #47253 [verbose] > │ UH6_1(v21, v12) │
00:07:53 #47254 [verbose] > │ | UH0_0 -> (* Nil *) │
00:07:53 #47255 [verbose] > │ v1 │
00:07:53 #47256 [verbose] > │ and method14 (v0 : UH6, v1 : float) : float = │
00:07:53 #47257 [verbose] > │ match v0 with │
00:07:53 #47258 [verbose] > │ | UH6_1(v2, v3) -> (* Cons *) │
00:07:53 #47259 [verbose] > │ let v4 : float = v1 + v2 │
00:07:53 #47260 [verbose] > │ method14(v3, v4) │
00:07:53 #47261 [verbose] > │ | UH6_0 -> (* Nil *) │
00:07:53 #47262 [verbose] > │ v1 │
00:07:53 #47263 [verbose] > │ and method12 (v0 : UH4, v1 : UH5) : UH5 = │
00:07:53 #47264 [verbose] > │ match v0 with │
00:07:53 #47265 [verbose] > │ | UH4_1(v2, v3) -> (* Cons *) │
00:07:53 #47266 [verbose] > │ let v4 : UH5 = method12(v3, v1) │
00:07:53 #47267 [verbose] > │ let v18 : US0 = │
00:07:53 #47268 [verbose] > │ match v2 with │
00:07:53 #47269 [verbose] > │ | UH0_1(v5, v6, v7, v8, v9, v10, v11, v12, v13, v14) -> (* Cons │
00:07:53 #47270 [verbose] > │ *) │
00:07:53 #47271 [verbose] > │ US0_0(v5, v6, v7, v8, v9, v10, v11, v12, v13) │
00:07:53 #47272 [verbose] > │ | UH0_0 -> (* Nil *) │
00:07:53 #47273 [verbose] > │ US0_1 │
00:07:53 #47274 [verbose] > │ let struct (v46 : float, v47 : float, v48 : float, v49 : float, v50 │
00:07:53 #47275 [verbose] > │ : float, v51 : float, v52 : float, v53 : float, v54 : float) = │
00:07:53 #47276 [verbose] > │ match v18 with │
00:07:53 #47277 [verbose] > │ | US0_1 -> (* None *) │
00:07:53 #47278 [verbose] > │ failwith<struct (float * float * float * float * float * │
00:07:53 #47279 [verbose] > │ float * float * float * float)> "Option does not have a value." │
00:07:53 #47280 [verbose] > │ | US0_0(v19, v20, v21, v22, v23, v24, v25, v26, v27) -> (* Some │
00:07:53 #47281 [verbose] > │ *) │
00:07:53 #47282 [verbose] > │ struct (v19, v20, v21, v22, v23, v24, v25, v26, v27) │
00:07:53 #47283 [verbose] > │ let v55 : UH6 = UH6_0 │
00:07:53 #47284 [verbose] > │ let v56 : UH6 = method13(v2, v55) │
00:07:53 #47285 [verbose] > │ let v57 : float = 0.0 │
00:07:53 #47286 [verbose] > │ let v58 : float = method14(v56, v57) │
00:07:53 #47287 [verbose] > │ UH5_1(v51, v58, v4) │
00:07:53 #47288 [verbose] > │ | UH4_0 -> (* Nil *) │
00:07:53 #47289 [verbose] > │ v1 │
00:07:53 #47290 [verbose] > │ and method15 (v0 : UH5, v1 : UH6, v2 : UH6) : struct (UH6 * UH6) = │
00:07:53 #47291 [verbose] > │ match v0 with │
00:07:53 #47292 [verbose] > │ | UH5_1(v3, v4, v5) -> (* Cons *) │
00:07:53 #47293 [verbose] > │ let v6 : UH6 = UH6_1(v3, v1) │
00:07:53 #47294 [verbose] > │ let v7 : UH6 = UH6_1(v4, v2) │
00:07:53 #47295 [verbose] > │ method15(v5, v6, v7) │
00:07:53 #47296 [verbose] > │ | UH5_0 -> (* Nil *) │
00:07:53 #47297 [verbose] > │ struct (v1, v2) │
00:07:53 #47298 [verbose] > │ and method16 (v0 : UH6, v1 : UH6) : UH6 = │
00:07:53 #47299 [verbose] > │ match v0 with │
00:07:53 #47300 [verbose] > │ | UH6_1(v2, v3) -> (* Cons *) │
00:07:53 #47301 [verbose] > │ let v4 : UH6 = UH6_1(v2, v1) │
00:07:53 #47302 [verbose] > │ method16(v3, v4) │
00:07:53 #47303 [verbose] > │ | UH6_0 -> (* Nil *) │
00:07:53 #47304 [verbose] > │ v1 │
00:07:53 #47305 [verbose] > │ and method18 (v0 : UH1, v1 : UH1) : UH1 = │
00:07:53 #47306 [verbose] > │ match v0 with │
00:07:53 #47307 [verbose] > │ | UH1_1(v2, v3, v4, v5, v6, v7, v8, v9, v10, v11) -> (* Cons *) │
00:07:53 #47308 [verbose] > │ let v12 : UH1 = UH1_1(v2, v3, v4, v5, v6, v7, v8, v9, v10, v1) │
00:07:53 #47309 [verbose] > │ method18(v11, v12) │
00:07:53 #47310 [verbose] > │ | UH1_0 -> (* Nil *) │
00:07:53 #47311 [verbose] > │ v1 │
00:07:53 #47312 [verbose] > │ and method17 (v0 : UH1, v1 : UH1, v2 : UH1) : UH1 = │
00:07:53 #47313 [verbose] > │ match v1 with │
00:07:53 #47314 [verbose] > │ | UH1_1(v3, v4, v5, v6, v7, v8, v9, v10, v11, v12) -> (* Cons *) │
00:07:53 #47315 [verbose] > │ match v2 with │
00:07:53 #47316 [verbose] > │ | UH1_1(v13, v14, v15, v16, v17, v18, v19, v20, v21, v22) -> (* Cons │
00:07:53 #47317 [verbose] > │ *) │
00:07:53 #47318 [verbose] > │ let v23 : float = v3 + v13 │
00:07:53 #47319 [verbose] > │ let v24 : float = v4 + v14 │
00:07:53 #47320 [verbose] > │ let v25 : float = v8 + v18 │
00:07:53 #47321 [verbose] > │ let v26 : float = v5 + v15 │
00:07:53 #47322 [verbose] > │ let v27 : float = v6 + v16 │
00:07:53 #47323 [verbose] > │ let v28 : float = v7 + v17 │
00:07:53 #47324 [verbose] > │ let v29 : float = v9 + v19 │
00:07:53 #47325 [verbose] > │ let v30 : float = v10 + v20 │
00:07:53 #47326 [verbose] > │ let v31 : float = v11 + v21 │
00:07:53 #47327 [verbose] > │ let v32 : UH1 = UH1_1(v23, v24, v26, v27, v28, v25, v29, v30, │
00:07:53 #47328 [verbose] > │ v31, v0) │
00:07:53 #47329 [verbose] > │ method17(v32, v12, v22) │
00:07:53 #47330 [verbose] > │ | _ -> │
00:07:53 #47331 [verbose] > │ let v34 : UH1 = UH1_0 │
00:07:53 #47332 [verbose] > │ method18(v0, v34) │
00:07:53 #47333 [verbose] > │ | _ -> │
00:07:53 #47334 [verbose] > │ let v37 : UH1 = UH1_0 │
00:07:53 #47335 [verbose] > │ method18(v0, v37) │
00:07:53 #47336 [verbose] > │ and closure8 (v0 : float, v1 : (UH0 -> UH1)) (v2 : UH0) : UH0 = │
00:07:53 #47337 [verbose] > │ let v3 : UH1 = v1 v2 │
00:07:53 #47338 [verbose] > │ let v4 : float = v0 / 2.0 │
00:07:53 #47339 [verbose] > │ let v5 : UH0 = UH0_0 │
00:07:53 #47340 [verbose] > │ let v6 : UH0 = method1(v4, v5, v3, v2) │
00:07:53 #47341 [verbose] > │ let v7 : UH1 = v1 v6 │
00:07:53 #47342 [verbose] > │ let v8 : UH0 = UH0_0 │
00:07:53 #47343 [verbose] > │ let v9 : UH0 = method1(v4, v8, v7, v2) │
00:07:53 #47344 [verbose] > │ let v10 : UH1 = v1 v9 │
00:07:53 #47345 [verbose] > │ let v11 : UH0 = UH0_0 │
00:07:53 #47346 [verbose] > │ let v12 : UH0 = method1(v0, v11, v10, v2) │
00:07:53 #47347 [verbose] > │ let v13 : UH1 = v1 v12 │
00:07:53 #47348 [verbose] > │ let v14 : float = v0 / 6.0 │
00:07:53 #47349 [verbose] > │ let v15 : UH1 = UH1_0 │
00:07:53 #47350 [verbose] > │ let v16 : UH1 = method17(v15, v3, v7) │
00:07:53 #47351 [verbose] > │ let v17 : UH1 = UH1_0 │
00:07:53 #47352 [verbose] > │ let v18 : UH1 = method17(v17, v16, v7) │
00:07:53 #47353 [verbose] > │ let v19 : UH1 = UH1_0 │
00:07:53 #47354 [verbose] > │ let v20 : UH1 = method17(v19, v18, v10) │
00:07:53 #47355 [verbose] > │ let v21 : UH1 = UH1_0 │
00:07:53 #47356 [verbose] > │ let v22 : UH1 = method17(v21, v20, v10) │
00:07:53 #47357 [verbose] > │ let v23 : UH1 = UH1_0 │
00:07:53 #47358 [verbose] > │ let v24 : UH1 = method17(v23, v22, v13) │
00:07:53 #47359 [verbose] > │ let v25 : UH0 = UH0_0 │
00:07:53 #47360 [verbose] > │ let v26 : UH0 = method1(v14, v25, v24, v2) │
00:07:53 #47361 [verbose] > │ v26 │
00:07:53 #47362 [verbose] > │ and closure7 (v0 : float) (v1 : (UH0 -> UH1)) : (UH0 -> UH0) = │
00:07:53 #47363 [verbose] > │ closure8(v0, v1) │
00:07:53 #47364 [verbose] > │ and closure6 () (v0 : float) : ((UH0 -> UH1) -> (UH0 -> UH0)) = │
00:07:53 #47365 [verbose] > │ closure7(v0) │
00:07:53 #47366 [verbose] > │ and method19 (v0 : UH4, v1 : UH5) : UH5 = │
00:07:53 #47367 [verbose] > │ match v0 with │
00:07:53 #47368 [verbose] > │ | UH4_1(v2, v3) -> (* Cons *) │
00:07:53 #47369 [verbose] > │ let v4 : UH5 = method19(v3, v1) │
00:07:53 #47370 [verbose] > │ let v18 : US0 = │
00:07:53 #47371 [verbose] > │ match v2 with │
00:07:53 #47372 [verbose] > │ | UH0_1(v5, v6, v7, v8, v9, v10, v11, v12, v13, v14) -> (* Cons │
00:07:53 #47373 [verbose] > │ *) │
00:07:53 #47374 [verbose] > │ US0_0(v5, v6, v7, v8, v9, v10, v11, v12, v13) │
00:07:53 #47375 [verbose] > │ | UH0_0 -> (* Nil *) │
00:07:53 #47376 [verbose] > │ US0_1 │
00:07:53 #47377 [verbose] > │ let struct (v46 : float, v47 : float, v48 : float, v49 : float, v50 │
00:07:53 #47378 [verbose] > │ : float, v51 : float, v52 : float, v53 : float, v54 : float) = │
00:07:53 #47379 [verbose] > │ match v18 with │
00:07:53 #47380 [verbose] > │ | US0_1 -> (* None *) │
00:07:53 #47381 [verbose] > │ failwith<struct (float * float * float * float * float * │
00:07:53 #47382 [verbose] > │ float * float * float * float)> "Option does not have a value." │
00:07:53 #47383 [verbose] > │ | US0_0(v19, v20, v21, v22, v23, v24, v25, v26, v27) -> (* Some │
00:07:53 #47384 [verbose] > │ *) │
00:07:53 #47385 [verbose] > │ struct (v19, v20, v21, v22, v23, v24, v25, v26, v27) │
00:07:53 #47386 [verbose] > │ let v55 : UH6 = UH6_0 │
00:07:53 #47387 [verbose] > │ let v56 : UH6 = method13(v2, v55) │
00:07:53 #47388 [verbose] > │ let v57 : float = 0.0 │
00:07:53 #47389 [verbose] > │ let v58 : float = method14(v56, v57) │
00:07:53 #47390 [verbose] > │ UH5_1(v51, v58, v4) │
00:07:53 #47391 [verbose] > │ | UH4_0 -> (* Nil *) │
00:07:53 #47392 [verbose] > │ v1 │
00:07:53 #47393 [verbose] > │ and method21 (v0 : UH6, v1 : int32) : int32 = │
00:07:53 #47394 [verbose] > │ match v0 with │
00:07:53 #47395 [verbose] > │ | UH6_1(v2, v3) -> (* Cons *) │
00:07:53 #47396 [verbose] > │ let v4 : int32 = v1 + 1 │
00:07:53 #47397 [verbose] > │ method21(v3, v4) │
00:07:53 #47398 [verbose] > │ | UH6_0 -> (* Nil *) │
00:07:53 #47399 [verbose] > │ v1 │
00:07:53 #47400 [verbose] > │ and method22 (v0 : (float []), v1 : UH6, v2 : int32) : int32 = │
00:07:53 #47401 [verbose] > │ match v1 with │
00:07:53 #47402 [verbose] > │ | UH6_1(v3, v4) -> (* Cons *) │
00:07:53 #47403 [verbose] > │ v0.[int v2] <- v3 │
00:07:53 #47404 [verbose] > │ let v5 : int32 = v2 + 1 │
00:07:53 #47405 [verbose] > │ method22(v0, v4, v5) │
00:07:53 #47406 [verbose] > │ | UH6_0 -> (* Nil *) │
00:07:53 #47407 [verbose] > │ v2 │
00:07:53 #47408 [verbose] > │ and method20 (v0 : UH6) : (float []) = │
00:07:53 #47409 [verbose] > │ let v1 : int32 = 0 │
00:07:53 #47410 [verbose] > │ let v2 : int32 = method21(v0, v1) │
00:07:53 #47411 [verbose] > │ let v3 : (float []) = Array.zeroCreate<float> (v2) │
00:07:53 #47412 [verbose] > │ let v4 : int32 = 0 │
00:07:53 #47413 [verbose] > │ let v5 : int32 = method22(v3, v0, v4) │
00:07:53 #47414 [verbose] > │ v3 │
00:07:53 #47415 [verbose] > │ and method0 () : struct (string * string * string * (struct (string * (float │
00:07:53 #47416 [verbose] > │ []) * (float [])) [])) = │
00:07:53 #47417 [verbose] > │ let v0 : (float -> ((UH0 -> UH1) -> (UH0 -> UH0))) = closure0() │
00:07:53 #47418 [verbose] > │ let v1 : ((UH0 -> UH1) -> (UH0 -> UH0)) = v0 0.03 │
00:07:53 #47419 [verbose] > │ let v2 : (UH0 -> UH1) = closure3() │
00:07:53 #47420 [verbose] > │ let v3 : (UH0 -> UH0) = v1 v2 │
00:07:53 #47421 [verbose] > │ let v4 : UH4 = UH4_0 │
00:07:53 #47422 [verbose] > │ let v5 : int32 = 0 │
00:07:53 #47423 [verbose] > │ let v6 : UH4 = method9(v3, v4, v5) │
00:07:53 #47424 [verbose] > │ let v7 : UH5 = UH5_0 │
00:07:53 #47425 [verbose] > │ let v8 : UH5 = method12(v6, v7) │
00:07:53 #47426 [verbose] > │ let v9 : UH6 = UH6_0 │
00:07:53 #47427 [verbose] > │ let v10 : UH6 = UH6_0 │
00:07:53 #47428 [verbose] > │ let struct (v11 : UH6, v12 : UH6) = method15(v8, v9, v10) │
00:07:53 #47429 [verbose] > │ let v13 : UH6 = UH6_0 │
00:07:53 #47430 [verbose] > │ let v14 : UH6 = method16(v11, v13) │
00:07:53 #47431 [verbose] > │ let v15 : UH6 = UH6_0 │
00:07:53 #47432 [verbose] > │ let v16 : UH6 = method16(v12, v15) │
00:07:53 #47433 [verbose] > │ let v17 : (float -> ((UH0 -> UH1) -> (UH0 -> UH0))) = closure6() │
00:07:53 #47434 [verbose] > │ let v18 : ((UH0 -> UH1) -> (UH0 -> UH0)) = v17 0.03 │
00:07:53 #47435 [verbose] > │ let v19 : (UH0 -> UH0) = v18 v2 │
00:07:53 #47436 [verbose] > │ let v20 : UH4 = UH4_0 │
00:07:53 #47437 [verbose] > │ let v21 : int32 = 0 │
00:07:53 #47438 [verbose] > │ let v22 : UH4 = method9(v19, v20, v21) │
00:07:53 #47439 [verbose] > │ let v23 : UH5 = UH5_0 │
00:07:53 #47440 [verbose] > │ let v24 : UH5 = method19(v22, v23) │
00:07:53 #47441 [verbose] > │ let v25 : UH6 = UH6_0 │
00:07:53 #47442 [verbose] > │ let v26 : UH6 = UH6_0 │
00:07:53 #47443 [verbose] > │ let struct (v27 : UH6, v28 : UH6) = method15(v24, v25, v26) │
00:07:53 #47444 [verbose] > │ let v29 : UH6 = UH6_0 │
00:07:53 #47445 [verbose] > │ let v30 : UH6 = method16(v27, v29) │
00:07:53 #47446 [verbose] > │ let v31 : UH6 = UH6_0 │
00:07:53 #47447 [verbose] > │ let v32 : UH6 = method16(v28, v31) │
00:07:53 #47448 [verbose] > │ let v33 : (float []) = method20(v14) │
00:07:53 #47449 [verbose] > │ let v34 : (float []) = method20(v16) │
00:07:53 #47450 [verbose] > │ let v35 : (float []) = method20(v30) │
00:07:53 #47451 [verbose] > │ let v36 : (float []) = method20(v32) │
00:07:53 #47452 [verbose] > │ let v37 : string = "euler-cromer" │
00:07:53 #47453 [verbose] > │ let v38 : string = "runge-kutta 4" │
00:07:53 #47454 [verbose] > │ let v39 : (struct (string * (float []) * (float [])) []) = [|struct │
00:07:53 #47455 [verbose] > │ (v37, v33, v34); struct (v38, v35, v36)|] │
00:07:53 #47456 [verbose] > │ let v40 : string = "system kinetic energy versus time" │
00:07:53 #47457 [verbose] > │ let v41 : string = "time (s)" │
00:07:53 #47458 [verbose] > │ let v42 : string = "system kinetic energy (j)" │
00:07:53 #47459 [verbose] > │ struct (v40, v41, v42, v39) │
00:07:53 #47460 [verbose] > │ method0() │
00:07:53 #47461 [verbose] > │ │
00:07:53 #47462 [verbose] > │ │
00:07:53 #47463 [verbose] > ╰──────────────────────────────────────────────────────────────────────────────╯
00:07:53 #47464 [verbose] >
00:07:53 #47465 [verbose] > ── markdown ────────────────────────────────────────────────────────────────────
00:07:53 #47466 [verbose] > ╭──────────────────────────────────────────────────────────────────────────────╮
00:07:53 #47467 [verbose] > │ ### wave 1 │
00:07:53 #47468 [verbose] > ╰──────────────────────────────────────────────────────────────────────────────╯
00:07:53 #47469 [verbose] >
00:07:53 #47470 [verbose] > ── spiral ──────────────────────────────────────────────────────────────────────
00:07:53 #47471 [verbose] > // // test
00:07:53 #47472 [verbose] >
00:07:53 #47473 [verbose] > inl linear_spring k re (particle_state st1) (particle_state st2) =
00:07:53 #47474 [verbose] > inl r1 = st1.pos_vec
00:07:53 #47475 [verbose] > inl r2 = st2.pos_vec
00:07:53 #47476 [verbose] > inl r21 = r2 ^-^ r1
00:07:53 #47477 [verbose] > inl r21mag = magnitude r21
00:07:53 #47478 [verbose] > -k * (r21mag - re) *^ r21 ^/ r21mag
00:07:53 #47479 [verbose] >
00:07:53 #47480 [verbose] > inl fixed_linear_spring k re r1 =
00:07:53 #47481 [verbose] > inl (particle_state default_particle_state') = default_particle_state ()
00:07:53 #47482 [verbose] > linear_spring k re (particle_state { default_particle_state' with pos_vec =
00:07:53 #47483 [verbose] > r1 })
00:07:53 #47484 [verbose] >
00:07:53 #47485 [verbose] > inl forces_string () =
00:07:53 #47486 [verbose] > [[
00:07:53 #47487 [verbose] > ExternalForce (0, fixed_linear_spring 5384 0 (zero_vec ()))
00:07:53 #47488 [verbose] > ExternalForce (63, fixed_linear_spring 5384 0 (0.65 *^ i_hat ()))
00:07:53 #47489 [verbose] > ]] /@ (
00:07:53 #47490 [verbose] > listm'.init_series 0 59 1
00:07:53 #47491 [verbose] > |> listm.map (fun n => InternalForce (n, n + 1, linear_spring 5384 0))
00:07:53 #47492 [verbose] > )
00:07:53 #47493 [verbose] >
00:07:53 #47494 [verbose] > inl string_update dt =
00:07:53 #47495 [verbose] > update_mps (runge_kutta_4 dt) (forces_string ())
00:07:53 #47496 [verbose] >
00:07:53 #47497 [verbose] > inl string_initial_overtone n =
00:07:53 #47498 [verbose] > inl ball_mass = 0.0008293 * 0.65 / 64
00:07:53 #47499 [verbose] > inl (particle_state default_particle_state') = default_particle_state ()
00:07:53 #47500 [verbose] > listm'.init_series 0.01 0.64 0.01
00:07:53 #47501 [verbose] > |> listm.map (fun x =>
00:07:53 #47502 [verbose] > inl y = 0.005 * sin (conv n * pi * x / 0.65)
00:07:53 #47503 [verbose] > particle_state {
00:07:53 #47504 [verbose] > default_particle_state' with
00:07:53 #47505 [verbose] > mass = ball_mass
00:07:53 #47506 [verbose] > pos_vec = x *^ i_hat () ^+^ y *^ j_hat ()
00:07:53 #47507 [verbose] > velocity = zero_vec ()
00:07:53 #47508 [verbose] > }
00:07:53 #47509 [verbose] > )
00:07:53 #47510 [verbose] > |> multi_particle_state
00:07:53 #47511 [verbose] >
00:07:53 #47512 [verbose] > inl string_initial_pluck () =
00:07:53 #47513 [verbose] > inl ball_mass = 0.0008293 * 0.65 / 64
00:07:53 #47514 [verbose] > inl (particle_state default_particle_state') = default_particle_state ()
00:07:53 #47515 [verbose] > listm'.init_series 0.01 0.64 0.01
00:07:53 #47516 [verbose] > |> listm.map (fun x =>
00:07:53 #47517 [verbose] > inl y =
00:07:53 #47518 [verbose] > inl n = if x <= 0.51 then 0 else 0.65
00:07:53 #47519 [verbose] > 0.005 / (0.51 - n) * (x - n)
00:07:53 #47520 [verbose] > particle_state {
00:07:53 #47521 [verbose] > default_particle_state' with
00:07:53 #47522 [verbose] > mass = ball_mass
00:07:53 #47523 [verbose] > pos_vec = x *^ i_hat () ^+^ y *^ j_hat ()
00:07:53 #47524 [verbose] > velocity = zero_vec ()
00:07:53 #47525 [verbose] > }
00:07:53 #47526 [verbose] > )
00:07:53 #47527 [verbose] > |> multi_particle_state
00:07:53 #47528 [verbose] >
00:07:53 #47529 [verbose] > let main () =
00:07:53 #47530 [verbose] > inl ~frames = listm'.init_series 0 9 1f64
00:07:53 #47531 [verbose] > inl initial_state = string_initial_overtone 3i32
00:07:53 #47532 [verbose] > inl frames =
00:07:53 #47533 [verbose] > frames
00:07:53 #47534 [verbose] > |> listm.map (fun n =>
00:07:53 #47535 [verbose] > inl (multi_particle_state sts) =
00:07:53 #47536 [verbose] > seq.iterate' (string_update 0.000025) initial_state |> fun f =>
00:07:53 #47537 [verbose] > f 0f64
00:07:53 #47538 [verbose] > inl rs =
00:07:53 #47539 [verbose] > [[ zero_vec () ]]
00:07:53 #47540 [verbose] > /@ (sts |> listm.map (fun (particle_state st) => st.pos_vec))
00:07:53 #47541 [verbose] > /@ [[ 0.65 *^ i_hat () ]]
00:07:53 #47542 [verbose] > inl x, y =
00:07:53 #47543 [verbose] > rs
00:07:53 #47544 [verbose] > |> listm.map (fun r => r.x, r.y)
00:07:53 #47545 [verbose] > |> listm'.unzip
00:07:53 #47546 [verbose] > inl x : a i32 _ = x |> listm.toArray
00:07:53 #47547 [verbose] > inl y : a i32 _ = y |> listm.toArray
00:07:53 #47548 [verbose] > x, y
00:07:53 #47549 [verbose] > )
00:07:53 #47550 [verbose] > |> listm.toArray : a i32 _
00:07:53 #47551 [verbose] >
00:07:53 #47552 [verbose] > inl n = 0i32
00:07:53 #47553 [verbose] >
00:07:53 #47554 [verbose] > inl x, y = index frames n
00:07:53 #47555 [verbose] >
00:07:53 #47556 [verbose] > "wave",
00:07:53 #47557 [verbose] > "position (m)",
00:07:53 #47558 [verbose] > "displacement (m)",
00:07:53 #47559 [verbose] > ;[[
00:07:53 #47560 [verbose] > ($"$\"{!n}\"" : string), x, y
00:07:53 #47561 [verbose] > ]]
00:07:53 #47562 [verbose] > Building c:\home\git\polyglot\target\polyglot\spiral_eval\packages\53828f886d316cba56a93d7d2442360bb1f86aa19841636300ad23804fbfab65\main.spi
00:07:54 #47563 [verbose] >
00:07:54 #47564 [verbose] > ╭─[ 425.40ms - return value ]──────────────────────────────────────────────────╮
00:07:54 #47565 [verbose] > │ <svg width="640" height="480" viewBox="0 0 640 480" │
00:07:54 #47566 [verbose] > │ xmlns="http://www.w3.org/2000/svg"> │
00:07:54 #47567 [verbose] > │ <rect x="0" y="0" width="640" height="480" opacity="1" fill="#141414" │
00:07:54 #47568 [verbose] > │ stroke="none"/> │
00:07:54 #47569 [verbose] > │ <text x="320" y="10" dy="0.76em" text-anchor="middle" │
00:07:54 #47570 [verbose] > │ font-family="sans-serif" font-size="9.67741935483871" opacity="1" │
00:07:54 #47571 [verbose] > │ fill="#FFFFFF"> │
00:07:54 #47572 [verbose] > │ wave │
00:07:54 #47573 [verbose] > │ </text> │
00:07:54 #47574 [verbose] > │ <line opacity="1" stroke="#323232" stroke-width="1" x1="62" y1="424" x2="62" │
00:07:54 #47575 [verbose] > │ y2="75"/> │
00:07:54 #47576 [verbose] > │ <line opacity="1" stroke="#323232" stroke-width="1" x1="69" y1="424" x2="69" │
00:07:54 #47577 [verbose] > │ y2="75"/> │
00:07:54 #47578 [verbose] > │ <line opacity="1" stroke="#323232" stroke-width="1" x1="77" y1="424" x2="77" │
00:07:54 #47579 [verbose] > │ y2="75"/> │
00:07:54 #47580 [verbose] > │ <line opacity="1" stroke="#323232" stroke-width="1" x1="85" y1="424" x2="85" │
00:07:54 #47581 [verbose] > │ y2="75"/> │
00:07:54 #47582 [verbose] > │ <line opacity="1" stroke="#323232" stroke-width="1" x1="93" y1="424" x2="93" │
00:07:54 #47583 [verbose] > │ y2... │
00:07:54 #47584 [verbose] > ╰──────────────────────────────────────────────────────────────────────────────╯
00:07:54 #47585 [verbose] >
00:07:54 #47586 [verbose] > ╭─[ 437.56ms - stdout ]────────────────────────────────────────────────────────╮
00:07:54 #47587 [verbose] > │ type UH0 = │
00:07:54 #47588 [verbose] > │ | UH0_0 │
00:07:54 #47589 [verbose] > │ | UH0_1 of float * UH0 │
00:07:54 #47590 [verbose] > │ and UH1 = │
00:07:54 #47591 [verbose] > │ | UH1_0 │
00:07:54 #47592 [verbose] > │ | UH1_1 of (float []) * (float []) * UH1 │
00:07:54 #47593 [verbose] > │ let rec method3 (v0 : UH0, v1 : int32) : int32 = │
00:07:54 #47594 [verbose] > │ match v0 with │
00:07:54 #47595 [verbose] > │ | UH0_1(v2, v3) -> (* Cons *) │
00:07:54 #47596 [verbose] > │ let v4 : int32 = v1 + 1 │
00:07:54 #47597 [verbose] > │ method3(v3, v4) │
00:07:54 #47598 [verbose] > │ | UH0_0 -> (* Nil *) │
00:07:54 #47599 [verbose] > │ v1 │
00:07:54 #47600 [verbose] > │ and method4 (v0 : (float []), v1 : UH0, v2 : int32) : int32 = │
00:07:54 #47601 [verbose] > │ match v1 with │
00:07:54 #47602 [verbose] > │ | UH0_1(v3, v4) -> (* Cons *) │
00:07:54 #47603 [verbose] > │ v0.[int v2] <- v3 │
00:07:54 #47604 [verbose] > │ let v5 : int32 = v2 + 1 │
00:07:54 #47605 [verbose] > │ method4(v0, v4, v5) │
00:07:54 #47606 [verbose] > │ | UH0_0 -> (* Nil *) │
00:07:54 #47607 [verbose] > │ v2 │
00:07:54 #47608 [verbose] > │ and method2 (v0 : UH0) : (float []) = │
00:07:54 #47609 [verbose] > │ let v1 : int32 = 0 │
00:07:54 #47610 [verbose] > │ let v2 : int32 = method3(v0, v1) │
00:07:54 #47611 [verbose] > │ let v3 : (float []) = Array.zeroCreate<float> (v2) │
00:07:54 #47612 [verbose] > │ let v4 : int32 = 0 │
00:07:54 #47613 [verbose] > │ let v5 : int32 = method4(v3, v0, v4) │
00:07:54 #47614 [verbose] > │ v3 │
00:07:54 #47615 [verbose] > │ and method1 (v0 : UH0, v1 : UH1) : UH1 = │
00:07:54 #47616 [verbose] > │ match v0 with │
00:07:54 #47617 [verbose] > │ | UH0_1(v2, v3) -> (* Cons *) │
00:07:54 #47618 [verbose] > │ let v4 : UH1 = method1(v3, v1) │
00:07:54 #47619 [verbose] > │ let v5 : float = 0.0 │
00:07:54 #47620 [verbose] > │ let v6 : float = 0.01 │
00:07:54 #47621 [verbose] > │ let v7 : float = 0.02 │
00:07:54 #47622 [verbose] > │ let v8 : float = 0.03 │
00:07:54 #47623 [verbose] > │ let v9 : float = 0.04 │
00:07:54 #47624 [verbose] > │ let v10 : float = 0.05 │
00:07:54 #47625 [verbose] > │ let v11 : float = 0.060000000000000005 │
00:07:54 #47626 [verbose] > │ let v12 : float = 0.06999999999999999 │
00:07:54 #47627 [verbose] > │ let v13 : float = 0.08 │
00:07:54 #47628 [verbose] > │ let v14 : float = 0.09 │
00:07:54 #47629 [verbose] > │ let v15 : float = 0.09999999999999999 │
00:07:54 #47630 [verbose] > │ let v16 : float = 0.11 │
00:07:54 #47631 [verbose] > │ let v17 : float = 0.12 │
00:07:54 #47632 [verbose] > │ let v18 : float = 0.13 │
00:07:54 #47633 [verbose] > │ let v19 : float = 0.14 │
00:07:54 #47634 [verbose] > │ let v20 : float = 0.15000000000000002 │
00:07:54 #47635 [verbose] > │ let v21 : float = 0.16 │
00:07:54 #47636 [verbose] > │ let v22 : float = 0.17 │
00:07:54 #47637 [verbose] > │ let v23 : float = 0.18000000000000002 │
00:07:54 #47638 [verbose] > │ let v24 : float = 0.19 │
00:07:54 #47639 [verbose] > │ let v25 : float = 0.2 │
00:07:54 #47640 [verbose] > │ let v26 : float = 0.21000000000000002 │
00:07:54 #47641 [verbose] > │ let v27 : float = 0.22 │
00:07:54 #47642 [verbose] > │ let v28 : float = 0.23 │
00:07:54 #47643 [verbose] > │ let v29 : float = 0.24000000000000002 │
00:07:54 #47644 [verbose] > │ let v30 : float = 0.25 │
00:07:54 #47645 [verbose] > │ let v31 : float = 0.26 │
00:07:54 #47646 [verbose] > │ let v32 : float = 0.27 │
00:07:54 #47647 [verbose] > │ let v33 : float = 0.28 │
00:07:54 #47648 [verbose] > │ let v34 : float = 0.29000000000000004 │
00:07:54 #47649 [verbose] > │ let v35 : float = 0.3 │
00:07:54 #47650 [verbose] > │ let v36 : float = 0.31 │
00:07:54 #47651 [verbose] > │ let v37 : float = 0.32 │
00:07:54 #47652 [verbose] > │ let v38 : float = 0.33 │
00:07:54 #47653 [verbose] > │ let v39 : float = 0.34 │
00:07:54 #47654 [verbose] > │ let v40 : float = 0.35000000000000003 │
00:07:54 #47655 [verbose] > │ let v41 : float = 0.36000000000000004 │
00:07:54 #47656 [verbose] > │ let v42 : float = 0.37 │
00:07:54 #47657 [verbose] > │ let v43 : float = 0.38 │
00:07:54 #47658 [verbose] > │ let v44 : float = 0.39 │
00:07:54 #47659 [verbose] > │ let v45 : float = 0.4 │
00:07:54 #47660 [verbose] > │ let v46 : float = 0.41000000000000003 │
00:07:54 #47661 [verbose] > │ let v47 : float = 0.42000000000000004 │
00:07:54 #47662 [verbose] > │ let v48 : float = 0.43 │
00:07:54 #47663 [verbose] > │ let v49 : float = 0.44 │
00:07:54 #47664 [verbose] > │ let v50 : float = 0.45 │
00:07:54 #47665 [verbose] > │ let v51 : float = 0.46 │
00:07:54 #47666 [verbose] > │ let v52 : float = 0.47000000000000003 │
00:07:54 #47667 [verbose] > │ let v53 : float = 0.48000000000000004 │
00:07:54 #47668 [verbose] > │ let v54 : float = 0.49 │
00:07:54 #47669 [verbose] > │ let v55 : float = 0.5 │
00:07:54 #47670 [verbose] > │ let v56 : float = 0.51 │
00:07:54 #47671 [verbose] > │ let v57 : float = 0.52 │
00:07:54 #47672 [verbose] > │ let v58 : float = 0.53 │
00:07:54 #47673 [verbose] > │ let v59 : float = 0.54 │
00:07:54 #47674 [verbose] > │ let v60 : float = 0.55 │
00:07:54 #47675 [verbose] > │ let v61 : float = 0.56 │
00:07:54 #47676 [verbose] > │ let v62 : float = 0.5700000000000001 │
00:07:54 #47677 [verbose] > │ let v63 : float = 0.5800000000000001 │
00:07:54 #47678 [verbose] > │ let v64 : float = 0.59 │
00:07:54 #47679 [verbose] > │ let v65 : float = 0.6 │
00:07:54 #47680 [verbose] > │ let v66 : float = 0.61 │
00:07:54 #47681 [verbose] > │ let v67 : float = 0.62 │
00:07:54 #47682 [verbose] > │ let v68 : float = 0.63 │
00:07:54 #47683 [verbose] > │ let v69 : float = 0.64 │
00:07:54 #47684 [verbose] > │ let v70 : float = 0.65 │
00:07:54 #47685 [verbose] > │ let v71 : UH0 = UH0_0 │
00:07:54 #47686 [verbose] > │ let v72 : UH0 = UH0_1(v70, v71) │
00:07:54 #47687 [verbose] > │ let v73 : UH0 = UH0_1(v69, v72) │
00:07:54 #47688 [verbose] > │ let v74 : UH0 = UH0_1(v68, v73) │
00:07:54 #47689 [verbose] > │ let v75 : UH0 = UH0_1(v67, v74) │
00:07:54 #47690 [verbose] > │ let v76 : UH0 = UH0_1(v66, v75) │
00:07:54 #47691 [verbose] > │ let v77 : UH0 = UH0_1(v65, v76) │
00:07:54 #47692 [verbose] > │ let v78 : UH0 = UH0_1(v64, v77) │
00:07:54 #47693 [verbose] > │ let v79 : UH0 = UH0_1(v63, v78) │
00:07:54 #47694 [verbose] > │ let v80 : UH0 = UH0_1(v62, v79) │
00:07:54 #47695 [verbose] > │ let v81 : UH0 = UH0_1(v61, v80) │
00:07:54 #47696 [verbose] > │ let v82 : UH0 = UH0_1(v60, v81) │
00:07:54 #47697 [verbose] > │ let v83 : UH0 = UH0_1(v59, v82) │
00:07:54 #47698 [verbose] > │ let v84 : UH0 = UH0_1(v58, v83) │
00:07:54 #47699 [verbose] > │ let v85 : UH0 = UH0_1(v57, v84) │
00:07:54 #47700 [verbose] > │ let v86 : UH0 = UH0_1(v56, v85) │
00:07:54 #47701 [verbose] > │ let v87 : UH0 = UH0_1(v55, v86) │
00:07:54 #47702 [verbose] > │ let v88 : UH0 = UH0_1(v54, v87) │
00:07:54 #47703 [verbose] > │ let v89 : UH0 = UH0_1(v53, v88) │
00:07:54 #47704 [verbose] > │ let v90 : UH0 = UH0_1(v52, v89) │
00:07:54 #47705 [verbose] > │ let v91 : UH0 = UH0_1(v51, v90) │
00:07:54 #47706 [verbose] > │ let v92 : UH0 = UH0_1(v50, v91) │
00:07:54 #47707 [verbose] > │ let v93 : UH0 = UH0_1(v49, v92) │
00:07:54 #47708 [verbose] > │ let v94 : UH0 = UH0_1(v48, v93) │
00:07:54 #47709 [verbose] > │ let v95 : UH0 = UH0_1(v47, v94) │
00:07:54 #47710 [verbose] > │ let v96 : UH0 = UH0_1(v46, v95) │
00:07:54 #47711 [verbose] > │ let v97 : UH0 = UH0_1(v45, v96) │
00:07:54 #47712 [verbose] > │ let v98 : UH0 = UH0_1(v44, v97) │
00:07:54 #47713 [verbose] > │ let v99 : UH0 = UH0_1(v43, v98) │
00:07:54 #47714 [verbose] > │ let v100 : UH0 = UH0_1(v42, v99) │
00:07:54 #47715 [verbose] > │ let v101 : UH0 = UH0_1(v41, v100) │
00:07:54 #47716 [verbose] > │ let v102 : UH0 = UH0_1(v40, v101) │
00:07:54 #47717 [verbose] > │ let v103 : UH0 = UH0_1(v39, v102) │
00:07:54 #47718 [verbose] > │ let v104 : UH0 = UH0_1(v38, v103) │
00:07:54 #47719 [verbose] > │ let v105 : UH0 = UH0_1(v37, v104) │
00:07:54 #47720 [verbose] > │ let v106 : UH0 = UH0_1(v36, v105) │
00:07:54 #47721 [verbose] > │ let v107 : UH0 = UH0_1(v35, v106) │
00:07:54 #47722 [verbose] > │ let v108 : UH0 = UH0_1(v34, v107) │
00:07:54 #47723 [verbose] > │ let v109 : UH0 = UH0_1(v33, v108) │
00:07:54 #47724 [verbose] > │ let v110 : UH0 = UH0_1(v32, v109) │
00:07:54 #47725 [verbose] > │ let v111 : UH0 = UH0_1(v31, v110) │
00:07:54 #47726 [verbose] > │ let v112 : UH0 = UH0_1(v30, v111) │
00:07:54 #47727 [verbose] > │ let v113 : UH0 = UH0_1(v29, v112) │
00:07:54 #47728 [verbose] > │ let v114 : UH0 = UH0_1(v28, v113) │
00:07:54 #47729 [verbose] > │ let v115 : UH0 = UH0_1(v27, v114) │
00:07:54 #47730 [verbose] > │ let v116 : UH0 = UH0_1(v26, v115) │
00:07:54 #47731 [verbose] > │ let v117 : UH0 = UH0_1(v25, v116) │
00:07:54 #47732 [verbose] > │ let v118 : UH0 = UH0_1(v24, v117) │
00:07:54 #47733 [verbose] > │ let v119 : UH0 = UH0_1(v23, v118) │
00:07:54 #47734 [verbose] > │ let v120 : UH0 = UH0_1(v22, v119) │
00:07:54 #47735 [verbose] > │ let v121 : UH0 = UH0_1(v21, v120) │
00:07:54 #47736 [verbose] > │ let v122 : UH0 = UH0_1(v20, v121) │
00:07:54 #47737 [verbose] > │ let v123 : UH0 = UH0_1(v19, v122) │
00:07:54 #47738 [verbose] > │ let v124 : UH0 = UH0_1(v18, v123) │
00:07:54 #47739 [verbose] > │ let v125 : UH0 = UH0_1(v17, v124) │
00:07:54 #47740 [verbose] > │ let v126 : UH0 = UH0_1(v16, v125) │
00:07:54 #47741 [verbose] > │ let v127 : UH0 = UH0_1(v15, v126) │
00:07:54 #47742 [verbose] > │ let v128 : UH0 = UH0_1(v14, v127) │
00:07:54 #47743 [verbose] > │ let v129 : UH0 = UH0_1(v13, v128) │
00:07:54 #47744 [verbose] > │ let v130 : UH0 = UH0_1(v12, v129) │
00:07:54 #47745 [verbose] > │ let v131 : UH0 = UH0_1(v11, v130) │
00:07:54 #47746 [verbose] > │ let v132 : UH0 = UH0_1(v10, v131) │
00:07:54 #47747 [verbose] > │ let v133 : UH0 = UH0_1(v9, v132) │
00:07:54 #47748 [verbose] > │ let v134 : UH0 = UH0_1(v8, v133) │
00:07:54 #47749 [verbose] > │ let v135 : UH0 = UH0_1(v7, v134) │
00:07:54 #47750 [verbose] > │ let v136 : UH0 = UH0_1(v6, v135) │
00:07:54 #47751 [verbose] > │ let v137 : UH0 = UH0_1(v5, v136) │
00:07:54 #47752 [verbose] > │ let v138 : (float []) = method2(v137) │
00:07:54 #47753 [verbose] > │ let v139 : float = 0.0 │
00:07:54 #47754 [verbose] > │ let v140 : float = 0.0007224452478461068 │
00:07:54 #47755 [verbose] > │ let v141 : float = 0.0014297283919934465 │
00:07:54 #47756 [verbose] > │ let v142 : float = 0.0021070055388626454 │
00:07:54 #47757 [verbose] > │ let v143 : float = 0.00274006253677335 │
00:07:54 #47758 [verbose] > │ let v144 : float = 0.0033156132912039757 │
00:07:54 #47759 [verbose] > │ let v145 : float = 0.0038215786027292415 │
00:07:54 #47760 [verbose] > │ let v146 : float = 0.004247339675607605 │
00:07:54 #47761 [verbose] > │ let v147 : float = 0.004583960976582912 │
00:07:54 #47762 [verbose] > │ let v148 : float = 0.004824377766717757 │
00:07:54 #47763 [verbose] > │ let v149 : float = 0.00496354437049027 │
00:07:54 #47764 [verbose] > │ let v150 : float = 0.004998540070400965 │
00:07:54 #47765 [verbose] > │ let v151 : float = 0.004928630404658255 │
00:07:54 #47766 [verbose] > │ let v152 : float = 0.004755282581475768 │
00:07:54 #47767 [verbose] > │ let v153 : float = 0.004482134686478519 │
00:07:54 #47768 [verbose] > │ let v154 : float = 0.0041149193294682815 │
00:07:54 #47769 [verbose] > │ let v155 : float = 0.0036613433329888666 │
00:07:54 #47770 [verbose] > │ let v156 : float = 0.0031309259876915697 │
00:07:54 #47771 [verbose] > │ let v157 : float = 0.002534799269067951 │
00:07:54 #47772 [verbose] > │ let v158 : float = 0.0018854742084416015 │
00:07:54 #47773 [verbose] > │ let v159 : float = 0.0011965783214377905 │
00:07:54 #47774 [verbose] > │ let v160 : float = 0.00048256960457257535 │
00:07:54 #47775 [verbose] > │ let v161 : float = -0.00024156689762753317 │
00:07:54 #47776 [verbose] > │ let v162 : float = -0.0009606335867685418 │
00:07:54 #47777 [verbose] > │ let v163 : float = -0.001659539265642642 │
00:07:54 #47778 [verbose] > │ let v164 : float = -0.002323615860218842 │
00:07:54 #47779 [verbose] > │ let v165 : float = -0.0029389262614623636 │
00:07:54 #47780 [verbose] > │ let v166 : float = -0.003492556826244686 │
00:07:54 #47781 [verbose] > │ let v167 : float = -0.003972888398568771 │
00:07:54 #47782 [verbose] > │ let v168 : float = -0.00436984016313259 │
00:07:54 #47783 [verbose] > │ let v169 : float = -0.004675081213427074 │
00:07:54 #47784 [verbose] > │ let v170 : float = -0.004882205394146359 │
00:07:54 #47785 [verbose] > │ let v171 : float = -0.004986865748457456 │
00:07:54 #47786 [verbose] > │ let v172 : float = -0.004986865748457456 │
00:07:54 #47787 [verbose] > │ let v173 : float = -0.004882205394146361 │
00:07:54 #47788 [verbose] > │ let v174 : float = -0.004675081213427074 │
00:07:54 #47789 [verbose] > │ let v175 : float = -0.004369840163132589 │
00:07:54 #47790 [verbose] > │ let v176 : float = -0.003972888398568774 │
00:07:54 #47791 [verbose] > │ let v177 : float = -0.0034925568262446837 │
00:07:54 #47792 [verbose] > │ let v178 : float = -0.002938926261462367 │
00:07:54 #47793 [verbose] > │ let v179 : float = -0.002323615860218846 │
00:07:54 #47794 [verbose] > │ let v180 : float = -0.0016595392656426435 │
00:07:54 #47795 [verbose] > │ let v181 : float = -0.0009606335867685414 │
00:07:54 #47796 [verbose] > │ let v182 : float = -0.00024156689762753724 │
00:07:54 #47797 [verbose] > │ let v183 : float = 0.0004825696045725713 │
00:07:54 #47798 [verbose] > │ let v184 : float = 0.0011965783214377866 │
00:07:54 #47799 [verbose] > │ let v185 : float = 0.0018854742084416021 │
00:07:54 #47800 [verbose] > │ let v186 : float = 0.002534799269067953 │
00:07:54 #47801 [verbose] > │ let v187 : float = 0.003130925987691568 │
00:07:54 #47802 [verbose] > │ let v188 : float = 0.0036613433329888622 │
00:07:54 #47803 [verbose] > │ let v189 : float = 0.0041149193294682815 │
00:07:54 #47804 [verbose] > │ let v190 : float = 0.0044821346864785195 │
00:07:54 #47805 [verbose] > │ let v191 : float = 0.004755282581475766 │
00:07:54 #47806 [verbose] > │ let v192 : float = 0.004928630404658255 │
00:07:54 #47807 [verbose] > │ let v193 : float = 0.004998540070400965 │
00:07:54 #47808 [verbose] > │ let v194 : float = 0.004963544370490271 │
00:07:54 #47809 [verbose] > │ let v195 : float = 0.004824377766717758 │
00:07:54 #47810 [verbose] > │ let v196 : float = 0.004583960976582912 │
00:07:54 #47811 [verbose] > │ let v197 : float = 0.004247339675607605 │
00:07:54 #47812 [verbose] > │ let v198 : float = 0.003821578602729245 │
00:07:54 #47813 [verbose] > │ let v199 : float = 0.0033156132912039783 │
00:07:54 #47814 [verbose] > │ let v200 : float = 0.0027400625367733585 │
00:07:54 #47815 [verbose] > │ let v201 : float = 0.0021070055388626528 │
00:07:54 #47816 [verbose] > │ let v202 : float = 0.001429728391993452 │
00:07:54 #47817 [verbose] > │ let v203 : float = 0.0007224452478461016 │
00:07:54 #47818 [verbose] > │ let v204 : float = 0.0 │
00:07:54 #47819 [verbose] > │ let v205 : UH0 = UH0_0 │
00:07:54 #47820 [verbose] > │ let v206 : UH0 = UH0_1(v204, v205) │
00:07:54 #47821 [verbose] > │ let v207 : UH0 = UH0_1(v203, v206) │
00:07:54 #47822 [verbose] > │ let v208 : UH0 = UH0_1(v202, v207) │
00:07:54 #47823 [verbose] > │ let v209 : UH0 = UH0_1(v201, v208) │
00:07:54 #47824 [verbose] > │ let v210 : UH0 = UH0_1(v200, v209) │
00:07:54 #47825 [verbose] > │ let v211 : UH0 = UH0_1(v199, v210) │
00:07:54 #47826 [verbose] > │ let v212 : UH0 = UH0_1(v198, v211) │
00:07:54 #47827 [verbose] > │ let v213 : UH0 = UH0_1(v197, v212) │
00:07:54 #47828 [verbose] > │ let v214 : UH0 = UH0_1(v196, v213) │
00:07:54 #47829 [verbose] > │ let v215 : UH0 = UH0_1(v195, v214) │
00:07:54 #47830 [verbose] > │ let v216 : UH0 = UH0_1(v194, v215) │
00:07:54 #47831 [verbose] > │ let v217 : UH0 = UH0_1(v193, v216) │
00:07:54 #47832 [verbose] > │ let v218 : UH0 = UH0_1(v192, v217) │
00:07:54 #47833 [verbose] > │ let v219 : UH0 = UH0_1(v191, v218) │
00:07:54 #47834 [verbose] > │ let v220 : UH0 = UH0_1(v190, v219) │
00:07:54 #47835 [verbose] > │ let v221 : UH0 = UH0_1(v189, v220) │
00:07:54 #47836 [verbose] > │ let v222 : UH0 = UH0_1(v188, v221) │
00:07:54 #47837 [verbose] > │ let v223 : UH0 = UH0_1(v187, v222) │
00:07:54 #47838 [verbose] > │ let v224 : UH0 = UH0_1(v186, v223) │
00:07:54 #47839 [verbose] > │ let v225 : UH0 = UH0_1(v185, v224) │
00:07:54 #47840 [verbose] > │ let v226 : UH0 = UH0_1(v184, v225) │
00:07:54 #47841 [verbose] > │ let v227 : UH0 = UH0_1(v183, v226) │
00:07:54 #47842 [verbose] > │ let v228 : UH0 = UH0_1(v182, v227) │
00:07:54 #47843 [verbose] > │ let v229 : UH0 = UH0_1(v181, v228) │
00:07:54 #47844 [verbose] > │ let v230 : UH0 = UH0_1(v180, v229) │
00:07:54 #47845 [verbose] > │ let v231 : UH0 = UH0_1(v179, v230) │
00:07:54 #47846 [verbose] > │ let v232 : UH0 = UH0_1(v178, v231) │
00:07:54 #47847 [verbose] > │ let v233 : UH0 = UH0_1(v177, v232) │
00:07:54 #47848 [verbose] > │ let v234 : UH0 = UH0_1(v176, v233) │
00:07:54 #47849 [verbose] > │ let v235 : UH0 = UH0_1(v175, v234) │
00:07:54 #47850 [verbose] > │ let v236 : UH0 = UH0_1(v174, v235) │
00:07:54 #47851 [verbose] > │ let v237 : UH0 = UH0_1(v173, v236) │
00:07:54 #47852 [verbose] > │ let v238 : UH0 = UH0_1(v172, v237) │
00:07:54 #47853 [verbose] > │ let v239 : UH0 = UH0_1(v171, v238) │
00:07:54 #47854 [verbose] > │ let v240 : UH0 = UH0_1(v170, v239) │
00:07:54 #47855 [verbose] > │ let v241 : UH0 = UH0_1(v169, v240) │
00:07:54 #47856 [verbose] > │ let v242 : UH0 = UH0_1(v168, v241) │
00:07:54 #47857 [verbose] > │ let v243 : UH0 = UH0_1(v167, v242) │
00:07:54 #47858 [verbose] > │ let v244 : UH0 = UH0_1(v166, v243) │
00:07:54 #47859 [verbose] > │ let v245 : UH0 = UH0_1(v165, v244) │
00:07:54 #47860 [verbose] > │ let v246 : UH0 = UH0_1(v164, v245) │
00:07:54 #47861 [verbose] > │ let v247 : UH0 = UH0_1(v163, v246) │
00:07:54 #47862 [verbose] > │ let v248 : UH0 = UH0_1(v162, v247) │
00:07:54 #47863 [verbose] > │ let v249 : UH0 = UH0_1(v161, v248) │
00:07:54 #47864 [verbose] > │ let v250 : UH0 = UH0_1(v160, v249) │
00:07:54 #47865 [verbose] > │ let v251 : UH0 = UH0_1(v159, v250) │
00:07:54 #47866 [verbose] > │ let v252 : UH0 = UH0_1(v158, v251) │
00:07:54 #47867 [verbose] > │ let v253 : UH0 = UH0_1(v157, v252) │
00:07:54 #47868 [verbose] > │ let v254 : UH0 = UH0_1(v156, v253) │
00:07:54 #47869 [verbose] > │ let v255 : UH0 = UH0_1(v155, v254) │
00:07:54 #47870 [verbose] > │ let v256 : UH0 = UH0_1(v154, v255) │
00:07:54 #47871 [verbose] > │ let v257 : UH0 = UH0_1(v153, v256) │
00:07:54 #47872 [verbose] > │ let v258 : UH0 = UH0_1(v152, v257) │
00:07:54 #47873 [verbose] > │ let v259 : UH0 = UH0_1(v151, v258) │
00:07:54 #47874 [verbose] > │ let v260 : UH0 = UH0_1(v150, v259) │
00:07:54 #47875 [verbose] > │ let v261 : UH0 = UH0_1(v149, v260) │
00:07:54 #47876 [verbose] > │ let v262 : UH0 = UH0_1(v148, v261) │
00:07:54 #47877 [verbose] > │ let v263 : UH0 = UH0_1(v147, v262) │
00:07:54 #47878 [verbose] > │ let v264 : UH0 = UH0_1(v146, v263) │
00:07:54 #47879 [verbose] > │ let v265 : UH0 = UH0_1(v145, v264) │
00:07:54 #47880 [verbose] > │ let v266 : UH0 = UH0_1(v144, v265) │
00:07:54 #47881 [verbose] > │ let v267 : UH0 = UH0_1(v143, v266) │
00:07:54 #47882 [verbose] > │ let v268 : UH0 = UH0_1(v142, v267) │
00:07:54 #47883 [verbose] > │ let v269 : UH0 = UH0_1(v141, v268) │
00:07:54 #47884 [verbose] > │ let v270 : UH0 = UH0_1(v140, v269) │
00:07:54 #47885 [verbose] > │ let v271 : UH0 = UH0_1(v139, v270) │
00:07:54 #47886 [verbose] > │ let v272 : (float []) = method2(v271) │
00:07:54 #47887 [verbose] > │ UH1_1(v138, v272, v4) │
00:07:54 #47888 [verbose] > │ | UH0_0 -> (* Nil *) │
00:07:54 #47889 [verbose] > │ v1 │
00:07:54 #47890 [verbose] > │ and method6 (v0 : UH1, v1 : int32) : int32 = │
00:07:54 #47891 [verbose] > │ match v0 with │
00:07:54 #47892 [verbose] > │ | UH1_1(v2, v3, v4) -> (* Cons *) │
00:07:54 #47893 [verbose] > │ let v5 : int32 = v1 + 1 │
00:07:54 #47894 [verbose] > │ method6(v4, v5) │
00:07:54 #47895 [verbose] > │ | UH1_0 -> (* Nil *) │
00:07:54 #47896 [verbose] > │ v1 │
00:07:54 #47897 [verbose] > │ and method7 (v0 : (struct ((float []) * (float [])) []), v1 : UH1, v2 : │
00:07:54 #47898 [verbose] > │ int32) : int32 = │
00:07:54 #47899 [verbose] > │ match v1 with │
00:07:54 #47900 [verbose] > │ | UH1_1(v3, v4, v5) -> (* Cons *) │
00:07:54 #47901 [verbose] > │ v0.[int v2] <- struct (v3, v4) │
00:07:54 #47902 [verbose] > │ let v6 : int32 = v2 + 1 │
00:07:54 #47903 [verbose] > │ method7(v0, v5, v6) │
00:07:54 #47904 [verbose] > │ | UH1_0 -> (* Nil *) │
00:07:54 #47905 [verbose] > │ v2 │
00:07:54 #47906 [verbose] > │ and method5 (v0 : UH1) : (struct ((float []) * (float [])) []) = │
00:07:54 #47907 [verbose] > │ let v1 : int32 = 0 │
00:07:54 #47908 [verbose] > │ let v2 : int32 = method6(v0, v1) │
00:07:54 #47909 [verbose] > │ let v3 : (struct ((float []) * (float [])) []) = Array.zeroCreate<struct │
00:07:54 #47910 [verbose] > │ ((float []) * (float []))> (v2) │
00:07:54 #47911 [verbose] > │ let v4 : int32 = 0 │
00:07:54 #47912 [verbose] > │ let v5 : int32 = method7(v3, v0, v4) │
00:07:54 #47913 [verbose] > │ v3 │
00:07:54 #47914 [verbose] > │ and method0 () : struct (string * string * string * (struct (string * (float │
00:07:54 #47915 [verbose] > │ []) * (float [])) [])) = │
00:07:54 #47916 [verbose] > │ let v0 : float = 0.0 │
00:07:54 #47917 [verbose] > │ let v1 : float = 1.0 │
00:07:54 #47918 [verbose] > │ let v2 : float = 2.0 │
00:07:54 #47919 [verbose] > │ let v3 : float = 3.0 │
00:07:54 #47920 [verbose] > │ let v4 : float = 4.0 │
00:07:54 #47921 [verbose] > │ let v5 : float = 5.0 │
00:07:54 #47922 [verbose] > │ let v6 : float = 6.0 │
00:07:54 #47923 [verbose] > │ let v7 : float = 7.0 │
00:07:54 #47924 [verbose] > │ let v8 : float = 8.0 │
00:07:54 #47925 [verbose] > │ let v9 : float = 9.0 │
00:07:54 #47926 [verbose] > │ let v10 : UH0 = UH0_0 │
00:07:54 #47927 [verbose] > │ let v11 : UH0 = UH0_1(v9, v10) │
00:07:54 #47928 [verbose] > │ let v12 : UH0 = UH0_1(v8, v11) │
00:07:54 #47929 [verbose] > │ let v13 : UH0 = UH0_1(v7, v12) │
00:07:54 #47930 [verbose] > │ let v14 : UH0 = UH0_1(v6, v13) │
00:07:54 #47931 [verbose] > │ let v15 : UH0 = UH0_1(v5, v14) │
00:07:54 #47932 [verbose] > │ let v16 : UH0 = UH0_1(v4, v15) │
00:07:54 #47933 [verbose] > │ let v17 : UH0 = UH0_1(v3, v16) │
00:07:54 #47934 [verbose] > │ let v18 : UH0 = UH0_1(v2, v17) │
00:07:54 #47935 [verbose] > │ let v19 : UH0 = UH0_1(v1, v18) │
00:07:54 #47936 [verbose] > │ let v20 : UH0 = UH0_1(v0, v19) │
00:07:54 #47937 [verbose] > │ let v21 : UH1 = UH1_0 │
00:07:54 #47938 [verbose] > │ let v22 : UH1 = method1(v20, v21) │
00:07:54 #47939 [verbose] > │ let v23 : (struct ((float []) * (float [])) []) = method5(v22) │
00:07:54 #47940 [verbose] > │ let struct (v24 : (float []), v25 : (float [])) = v23.[int 0] │
00:07:54 #47941 [verbose] > │ let v26 : string = $"{0}" │
00:07:54 #47942 [verbose] > │ let v27 : (struct (string * (float []) * (float [])) []) = [|struct │
00:07:54 #47943 [verbose] > │ (v26, v24, v25)|] │
00:07:54 #47944 [verbose] > │ let v28 : string = "wave" │
00:07:54 #47945 [verbose] > │ let v29 : string = "position (m)" │
00:07:54 #47946 [verbose] > │ let v30 : string = "displacement (m)" │
00:07:54 #47947 [verbose] > │ struct (v28, v29, v30, v27) │
00:07:54 #47948 [verbose] > │ method0() │
00:07:54 #47949 [verbose] > │ │
00:07:54 #47950 [verbose] > │ │
00:07:54 #47951 [verbose] > ╰──────────────────────────────────────────────────────────────────────────────╯
00:07:54 #47952 [verbose] >
00:07:54 #47953 [verbose] > ── markdown ────────────────────────────────────────────────────────────────────
00:07:54 #47954 [verbose] > ╭──────────────────────────────────────────────────────────────────────────────╮
00:07:54 #47955 [verbose] > │ ### system kinetic energy versus time 2 │
00:07:54 #47956 [verbose] > ╰──────────────────────────────────────────────────────────────────────────────╯
00:07:54 #47957 [verbose] >
00:07:54 #47958 [verbose] > ── spiral ──────────────────────────────────────────────────────────────────────
00:07:54 #47959 [verbose] > // // test
00:07:54 #47960 [verbose] >
00:07:54 #47961 [verbose] > inl central_force f (particle_state st1) (particle_state st2) =
00:07:54 #47962 [verbose] > inl r1 = st1.pos_vec
00:07:54 #47963 [verbose] > inl r2 = st2.pos_vec
00:07:54 #47964 [verbose] > inl r21 = r2 ^-^ r1
00:07:54 #47965 [verbose] > inl r21mag = magnitude r21
00:07:54 #47966 [verbose] > f r21mag *^ r21 ^/ r21mag
00:07:54 #47967 [verbose] >
00:07:54 #47968 [verbose] > inl billiard_force k re =
00:07:54 #47969 [verbose] > inl f r =
00:07:54 #47970 [verbose] > if r >= re
00:07:54 #47971 [verbose] > then 0
00:07:54 #47972 [verbose] > else -k * (r - re)
00:07:54 #47973 [verbose] > central_force f
00:07:54 #47974 [verbose] >
00:07:54 #47975 [verbose] > type force_vector = vec
00:07:54 #47976 [verbose] > type two_body_force = particle_state -> particle_state -> force_vector
00:07:54 #47977 [verbose] >
00:07:54 #47978 [verbose] > union force t =
00:07:54 #47979 [verbose] > | ExternalForce : t * one_body_force
00:07:54 #47980 [verbose] > | InternalForce : t * t * two_body_force
00:07:54 #47981 [verbose] >
00:07:54 #47982 [verbose] > nominal multi_particle_state = stream.stream particle_state
00:07:54 #47983 [verbose] >
00:07:54 #47984 [verbose] > nominal d_multi_particle_state = stream.stream d_particle_state
00:07:54 #47985 [verbose] >
00:07:54 #47986 [verbose] > inl force_on n s force =
00:07:54 #47987 [verbose] > match force with
00:07:54 #47988 [verbose] > | ExternalForce (n0, f_one_body) =>
00:07:54 #47989 [verbose] > if n = n0
00:07:54 #47990 [verbose] > then f_one_body
00:07:54 #47991 [verbose] > else fun _ => zero_vec ()
00:07:54 #47992 [verbose] > | InternalForce (n0, n1, f_two_body) =>
00:07:54 #47993 [verbose] > if n = n0
00:07:54 #47994 [verbose] > then s |> stream.try_item n1 |> optionm.map f_two_body
00:07:54 #47995 [verbose] > elif n = n1
00:07:54 #47996 [verbose] > then s |> stream.try_item n0 |> optionm.map f_two_body
00:07:54 #47997 [verbose] > else None
00:07:54 #47998 [verbose] > |> optionm'.default_value (fun _ => zero_vec ())
00:07:54 #47999 [verbose] >
00:07:54 #48000 [verbose] > inl forces_on n (multi_particle_state sts) fs =
00:07:54 #48001 [verbose] > fs
00:07:54 #48002 [verbose] > |> listm.map (force_on n sts)
00:07:54 #48003 [verbose] >
00:07:54 #48004 [verbose] > inl newton_second_mps fs ((multi_particle_state sts) as mpst) =
00:07:54 #48005 [verbose] > inl deriv (n, st) =
00:07:54 #48006 [verbose] > newton_second_ps (forces_on n mpst fs) st
00:07:54 #48007 [verbose] > sts |> stream.indexed |> stream.map deriv |> d_multi_particle_state
00:07:54 #48008 [verbose] >
00:07:54 #48009 [verbose] > instance (+++) d_multi_particle_state =
00:07:54 #48010 [verbose] > fun (d_multi_particle_state dsts1) (d_multi_particle_state dsts2) =>
00:07:54 #48011 [verbose] > (dsts1, dsts2)
00:07:54 #48012 [verbose] > ||> stream.zip_with (+++)
00:07:54 #48013 [verbose] > |> d_multi_particle_state
00:07:54 #48014 [verbose] >
00:07:54 #48015 [verbose] > instance scale d_multi_particle_state = fun w (d_multi_particle_state dsts) =>
00:07:54 #48016 [verbose] > dsts
00:07:54 #48017 [verbose] > |> stream.map (scale w)
00:07:54 #48018 [verbose] > |> d_multi_particle_state
00:07:54 #48019 [verbose] >
00:07:54 #48020 [verbose] > instance shift multi_particle_state = fun dt dsts (multi_particle_state sts) =>
00:07:54 #48021 [verbose] > inl (d_multi_particle_state dsts) =
00:07:54 #48022 [verbose] > real
00:07:54 #48023 [verbose] > match dsts with
00:07:54 #48024 [verbose] > | d_multi_particle_state _ => dsts
00:07:54 #48025 [verbose] > (dsts, sts)
00:07:54 #48026 [verbose] > ||> stream.zip_with (shift dt)
00:07:54 #48027 [verbose] > |> stream.memoize
00:07:54 #48028 [verbose] > |> fun x => x ()
00:07:54 #48029 [verbose] > |> multi_particle_state
00:07:54 #48030 [verbose] >
00:07:54 #48031 [verbose] > inl euler_cromer_mps dt : numerical_method multi_particle_state
00:07:54 #48032 [verbose] > d_multi_particle_state =
00:07:54 #48033 [verbose] > fun deriv ((multi_particle_state sts0) as mpst0) =>
00:07:54 #48034 [verbose] > inl (multi_particle_state sts1) = euler dt deriv mpst0
00:07:54 #48035 [verbose] > (sts0, sts1)
00:07:54 #48036 [verbose] > ||> stream.zip
00:07:54 #48037 [verbose] > |> stream.map (fun ((particle_state st0), (particle_state st1)) =>
00:07:54 #48038 [verbose] > particle_state {
00:07:54 #48039 [verbose] > st1 with
00:07:54 #48040 [verbose] > pos_vec = st0.pos_vec ^+^ st1.velocity ^* dt
00:07:54 #48041 [verbose] > }
00:07:54 #48042 [verbose] > )
00:07:54 #48043 [verbose] > |> multi_particle_state
00:07:54 #48044 [verbose] >
00:07:54 #48045 [verbose] > inl update_mps (method : numerical_method multi_particle_state
00:07:54 #48046 [verbose] > d_multi_particle_state) =
00:07:54 #48047 [verbose] > newton_second_mps >> method
00:07:54 #48048 [verbose] >
00:07:54 #48049 [verbose] > inl states_mps (method : numerical_method multi_particle_state
00:07:54 #48050 [verbose] > d_multi_particle_state) =
00:07:54 #48051 [verbose] > newton_second_mps
00:07:54 #48052 [verbose] > >> method
00:07:54 #48053 [verbose] > >> (fun x (multi_particle_state y) =>
00:07:54 #48054 [verbose] > y
00:07:54 #48055 [verbose] > |> stream.memoize
00:07:54 #48056 [verbose] > |> (fun x => x ())
00:07:54 #48057 [verbose] > |> multi_particle_state |> x
00:07:54 #48058 [verbose] > )
00:07:54 #48059 [verbose] > // >> stream.iterate
00:07:54 #48060 [verbose] > >> seq.iterate'
00:07:54 #48061 [verbose] >
00:07:54 #48062 [verbose] > inl kinetic_energy (particle_state st) =
00:07:54 #48063 [verbose] > inl m = st.mass
00:07:54 #48064 [verbose] > inl v = magnitude st.velocity
00:07:54 #48065 [verbose] > 0.5 * m * v ** 2
00:07:54 #48066 [verbose] >
00:07:54 #48067 [verbose] > inl system_ke (multi_particle_state sts) =
00:07:54 #48068 [verbose] > sts
00:07:54 #48069 [verbose] > |> stream.map kinetic_energy
00:07:54 #48070 [verbose] > |> stream.sum
00:07:54 #48071 [verbose] >
00:07:54 #48072 [verbose] > inl linear_spring_pe k re (particle_state st1) (particle_state st2) =
00:07:54 #48073 [verbose] > inl r1 = st1.pos_vec
00:07:54 #48074 [verbose] > inl r2 = st2.pos_vec
00:07:54 #48075 [verbose] > inl r21 = r2 ^-^ r1
00:07:54 #48076 [verbose] > inl r21mag = magnitude r21
00:07:54 #48077 [verbose] > k * (r21mag - re) ** 2 / 2
00:07:54 #48078 [verbose] >
00:07:54 #48079 [verbose] > inl earth_surface_gravity_pe (particle_state st) =
00:07:54 #48080 [verbose] > inl g = 9.80665
00:07:54 #48081 [verbose] > inl m = st.mass
00:07:54 #48082 [verbose] > inl z = st.pos_vec.z
00:07:54 #48083 [verbose] > m * g * z
00:07:54 #48084 [verbose] >
00:07:54 #48085 [verbose] > inl ball_radius () = 0.03
00:07:54 #48086 [verbose] >
00:07:54 #48087 [verbose] > inl billiard_forces k =
00:07:54 #48088 [verbose] > [[ InternalForce (0i32, 1, billiard_force k (2 * ball_radius ())) ]]
00:07:54 #48089 [verbose] >
00:07:54 #48090 [verbose] > inl billiard_initial () =
00:07:54 #48091 [verbose] > inl ball_mass = 0.160
00:07:54 #48092 [verbose] > inl (particle_state default_particle_state') = default_particle_state ()
00:07:54 #48093 [verbose] > [[
00:07:54 #48094 [verbose] > particle_state {
00:07:54 #48095 [verbose] > default_particle_state' with
00:07:54 #48096 [verbose] > mass = ball_mass
00:07:54 #48097 [verbose] > pos_vec = zero_vec ()
00:07:54 #48098 [verbose] > velocity = 0.2 *^ i_hat ()
00:07:54 #48099 [verbose] > }
00:07:54 #48100 [verbose] > particle_state {
00:07:54 #48101 [verbose] > default_particle_state' with
00:07:54 #48102 [verbose] > mass = ball_mass
00:07:54 #48103 [verbose] > pos_vec = i_hat () ^+^ 0.02 *^ j_hat ()
00:07:54 #48104 [verbose] > velocity = zero_vec ()
00:07:54 #48105 [verbose] > }
00:07:54 #48106 [verbose] > ]]
00:07:54 #48107 [verbose] > |> stream.from_list
00:07:54 #48108 [verbose] > |> multi_particle_state
00:07:54 #48109 [verbose] >
00:07:54 #48110 [verbose] > inl billiard_states ~n_method k dt =
00:07:54 #48111 [verbose] > states_mps (n_method dt) (billiard_forces k) (billiard_initial ())
00:07:54 #48112 [verbose] >
00:07:54 #48113 [verbose] > inl billiard_states_finite n_method k dt =
00:07:54 #48114 [verbose] > billiard_states n_method k dt
00:07:54 #48115 [verbose] > >> Some
00:07:54 #48116 [verbose] > |> seq.take_while_ (fun (multi_particle_state mpst) (_ : i32) =>
00:07:54 #48117 [verbose] > match mpst |> stream.try_item 0i32 with
00:07:54 #48118 [verbose] > | Some st =>
00:07:54 #48119 [verbose] > st.time <= 10
00:07:54 #48120 [verbose] > | None => false
00:07:54 #48121 [verbose] > )
00:07:54 #48122 [verbose] >
00:07:54 #48123 [verbose] > inl momentum (particle_state st) =
00:07:54 #48124 [verbose] > inl m = st.mass
00:07:54 #48125 [verbose] > inl v = st.velocity
00:07:54 #48126 [verbose] > m *^ v
00:07:54 #48127 [verbose] >
00:07:54 #48128 [verbose] > inl system_p (multi_particle_state sts) =
00:07:54 #48129 [verbose] > sts
00:07:54 #48130 [verbose] > |> stream.map momentum
00:07:54 #48131 [verbose] > |> stream.fold (^+^) (zero_vec ())
00:07:54 #48132 [verbose] >
00:07:54 #48133 [verbose] > inl time_ke_ec_x, time_ke_ec_y =
00:07:54 #48134 [verbose] > billiard_states_finite euler_cromer_mps 30 0.03
00:07:54 #48135 [verbose] > |> listm.map (fun (multi_particle_state mpst) =>
00:07:54 #48136 [verbose] > mpst |> stream.try_item 0i32
00:07:54 #48137 [verbose] > |> optionm.map (fun st =>
00:07:54 #48138 [verbose] > st.time, system_ke (multi_particle_state mpst)
00:07:54 #48139 [verbose] > )
00:07:54 #48140 [verbose] > )
00:07:54 #48141 [verbose] > // |> stream.to_list
00:07:54 #48142 [verbose] > |> listm'.choose id
00:07:54 #48143 [verbose] > |> listm'.unzip
00:07:54 #48144 [verbose] >
00:07:54 #48145 [verbose] > inl time_ke_rk4_x, time_ke_rk4_y =
00:07:54 #48146 [verbose] > billiard_states_finite runge_kutta_4 30 0.03
00:07:54 #48147 [verbose] > |> listm.map (fun (multi_particle_state mpst) =>
00:07:54 #48148 [verbose] > mpst |> stream.try_item 0i32
00:07:54 #48149 [verbose] > |> optionm.map (fun st =>
00:07:54 #48150 [verbose] > st.time, system_ke (multi_particle_state mpst)
00:07:54 #48151 [verbose] > )
00:07:54 #48152 [verbose] > )
00:07:54 #48153 [verbose] > // |> stream.to_list
00:07:54 #48154 [verbose] > |> listm'.choose id
00:07:54 #48155 [verbose] > |> listm'.unzip
00:07:54 #48156 [verbose] >
00:07:54 #48157 [verbose] > inl time_ke_ec_x : a i32 _ = time_ke_ec_x |> listm.toArray
00:07:54 #48158 [verbose] > inl time_ke_ec_y : a i32 _ = time_ke_ec_y |> listm.toArray
00:07:54 #48159 [verbose] >
00:07:54 #48160 [verbose] > inl time_ke_rk4_x : a i32 _ = time_ke_rk4_x |> listm.toArray
00:07:54 #48161 [verbose] > inl time_ke_rk4_y : a i32 _ = time_ke_rk4_y |> listm.toArray
00:07:54 #48162 [verbose] >
00:07:54 #48163 [verbose] > "system kinetic energy versus time",
00:07:54 #48164 [verbose] > "time (s)",
00:07:54 #48165 [verbose] > "system kinetic energy (j)",
00:07:54 #48166 [verbose] > ;[[
00:07:54 #48167 [verbose] > "euler-cromer", time_ke_ec_x, time_ke_ec_y
00:07:54 #48168 [verbose] > "runge-kutta 4", time_ke_rk4_x, time_ke_rk4_y
00:07:54 #48169 [verbose] > ]]
00:07:54 #48170 [verbose] > Building c:\home\git\polyglot\target\polyglot\spiral_eval\packages\15918c246321cc683dd81467f465b6092cf36f1046016701ceb9f3fa0fe4af69\main.spi
00:07:56 #48171 [verbose] >
00:07:56 #48172 [verbose] > ╭─[ 2.18s - return value ]─────────────────────────────────────────────────────╮
00:07:56 #48173 [verbose] > │ <svg width="640" height="480" viewBox="0 0 640 480" │
00:07:56 #48174 [verbose] > │ xmlns="http://www.w3.org/2000/svg"> │
00:07:56 #48175 [verbose] > │ <rect x="0" y="0" width="640" height="480" opacity="1" fill="#141414" │
00:07:56 #48176 [verbose] > │ stroke="none"/> │
00:07:56 #48177 [verbose] > │ <text x="320" y="10" dy="0.76em" text-anchor="middle" │
00:07:56 #48178 [verbose] > │ font-family="sans-serif" font-size="9.67741935483871" opacity="1" │
00:07:56 #48179 [verbose] > │ fill="#FFFFFF"> │
00:07:56 #48180 [verbose] > │ system kinetic energy versus time │
00:07:56 #48181 [verbose] > │ </text> │
00:07:56 #48182 [verbose] > │ <line opacity="1" stroke="#323232" stroke-width="1" x1="59" y1="424" x2="59" │
00:07:56 #48183 [verbose] > │ y2="75"/> │
00:07:56 #48184 [verbose] > │ <line opacity="1" stroke="#323232" stroke-width="1" x1="69" y1="424" x2="69" │
00:07:56 #48185 [verbose] > │ y2="75"/> │
00:07:56 #48186 [verbose] > │ <line opacity="1" stroke="#323232" stroke-width="1" x1="79" y1="424" x2="79" │
00:07:56 #48187 [verbose] > │ y2="75"/> │
00:07:56 #48188 [verbose] > │ <line opacity="1" stroke="#323232" stroke-width="1" x1="89" y1="424" x2="89" │
00:07:56 #48189 [verbose] > │ y2="75"/> │
00:07:56 #48190 [verbose] > │ <line opacity="1" stroke="#323232" stroke-width="1... │
00:07:56 #48191 [verbose] > ╰──────────────────────────────────────────────────────────────────────────────╯
00:07:56 #48192 [verbose] >
00:07:56 #48193 [verbose] > ╭─[ 2.19s - stdout ]───────────────────────────────────────────────────────────╮
00:07:56 #48194 [verbose] > │ type UH0 = │
00:07:56 #48195 [verbose] > │ | UH0_0 of float * float * float * float * float * float * float * float │
00:07:56 #48196 [verbose] > │ * float * (unit -> UH0) │
00:07:56 #48197 [verbose] > │ | UH0_1 │
00:07:56 #48198 [verbose] > │ and UH1 = │
00:07:56 #48199 [verbose] > │ | UH1_0 of float * float * float * float * float * float * float * float │
00:07:56 #48200 [verbose] > │ * float * (unit -> UH1) │
00:07:56 #48201 [verbose] > │ | UH1_1 │
00:07:56 #48202 [verbose] > │ and [<Struct>] US0 = │
00:07:56 #48203 [verbose] > │ | US0_0 of f0_0 : (unit -> UH0) │
00:07:56 #48204 [verbose] > │ | US0_1 of f1_0 : UH0 │
00:07:56 #48205 [verbose] > │ and Mut0 = {mutable l0 : US0} │
00:07:56 #48206 [verbose] > │ and UH2 = │
00:07:56 #48207 [verbose] > │ | UH2_0 of float * float * float * float * float * float * float * float │
00:07:56 #48208 [verbose] > │ * float * float * float * float * float * float * float * float * float * │
00:07:56 #48209 [verbose] > │ float * (unit -> UH2) │
00:07:56 #48210 [verbose] > │ | UH2_1 │
00:07:56 #48211 [verbose] > │ and UH3 = │
00:07:56 #48212 [verbose] > │ | UH3_0 of int32 * float * float * float * float * float * float * float │
00:07:56 #48213 [verbose] > │ * float * float * (unit -> UH3) │
00:07:56 #48214 [verbose] > │ | UH3_1 │
00:07:56 #48215 [verbose] > │ and [<Struct>] US1 = │
00:07:56 #48216 [verbose] > │ | US1_0 of f0_0 : (struct (float * float * float * float * float * float │
00:07:56 #48217 [verbose] > │ * float * float * float) -> struct (float * float * float)) │
00:07:56 #48218 [verbose] > │ | US1_1 │
00:07:56 #48219 [verbose] > │ and [<Struct>] US2 = │
00:07:56 #48220 [verbose] > │ | US2_0 of f0_0 : float * f0_1 : float * f0_2 : float * f0_3 : float * │
00:07:56 #48221 [verbose] > │ f0_4 : float * f0_5 : float * f0_6 : float * f0_7 : float * f0_8 : float │
00:07:56 #48222 [verbose] > │ | US2_1 │
00:07:56 #48223 [verbose] > │ and UH4 = │
00:07:56 #48224 [verbose] > │ | UH4_0 │
00:07:56 #48225 [verbose] > │ | UH4_1 of UH0 * UH4 │
00:07:56 #48226 [verbose] > │ and UH5 = │
00:07:56 #48227 [verbose] > │ | UH5_0 │
00:07:56 #48228 [verbose] > │ | UH5_1 of int32 * UH5 │
00:07:56 #48229 [verbose] > │ and [<Struct>] US3 = │
00:07:56 #48230 [verbose] > │ | US3_0 of f0_0 : float * f0_1 : float │
00:07:56 #48231 [verbose] > │ | US3_1 │
00:07:56 #48232 [verbose] > │ and UH6 = │
00:07:56 #48233 [verbose] > │ | UH6_0 │
00:07:56 #48234 [verbose] > │ | UH6_1 of US3 * UH6 │
00:07:56 #48235 [verbose] > │ and UH7 = │
00:07:56 #48236 [verbose] > │ | UH7_0 of float * (unit -> UH7) │
00:07:56 #48237 [verbose] > │ | UH7_1 │
00:07:56 #48238 [verbose] > │ and UH8 = │
00:07:56 #48239 [verbose] > │ | UH8_0 │
00:07:56 #48240 [verbose] > │ | UH8_1 of float * float * UH8 │
00:07:56 #48241 [verbose] > │ and UH9 = │
00:07:56 #48242 [verbose] > │ | UH9_0 │
00:07:56 #48243 [verbose] > │ | UH9_1 of float * UH9 │
00:07:56 #48244 [verbose] > │ let rec closure3 (v0 : float, v1 : (unit -> UH0), v2 : (unit -> UH1)) () : │
00:07:56 #48245 [verbose] > │ UH0 = │
00:07:56 #48246 [verbose] > │ let v3 : UH1 = v2 () │
00:07:56 #48247 [verbose] > │ let v4 : UH0 = v1 () │
00:07:56 #48248 [verbose] > │ match v3 with │
00:07:56 #48249 [verbose] > │ | UH1_0(v5, v6, v7, v8, v9, v10, v11, v12, v13, v14) -> (* StreamCons *) │
00:07:56 #48250 [verbose] > │ match v4 with │
00:07:56 #48251 [verbose] > │ | UH0_0(v15, v16, v17, v18, v19, v20, v21, v22, v23, v24) -> (* │
00:07:56 #48252 [verbose] > │ StreamCons *) │
00:07:56 #48253 [verbose] > │ let v25 : float = v10 * v0 │
00:07:56 #48254 [verbose] > │ let v26 : float = v20 + v25 │
00:07:56 #48255 [verbose] > │ let v27 : float = v0 * v7 │
00:07:56 #48256 [verbose] > │ let v28 : float = v0 * v8 │
00:07:56 #48257 [verbose] > │ let v29 : float = v0 * v9 │
00:07:56 #48258 [verbose] > │ let v30 : float = v17 + v27 │
00:07:56 #48259 [verbose] > │ let v31 : float = v18 + v28 │
00:07:56 #48260 [verbose] > │ let v32 : float = v19 + v29 │
00:07:56 #48261 [verbose] > │ let v33 : float = v0 * v11 │
00:07:56 #48262 [verbose] > │ let v34 : float = v0 * v12 │
00:07:56 #48263 [verbose] > │ let v35 : float = v0 * v13 │
00:07:56 #48264 [verbose] > │ let v36 : float = v21 + v33 │
00:07:56 #48265 [verbose] > │ let v37 : float = v22 + v34 │
00:07:56 #48266 [verbose] > │ let v38 : float = v23 + v35 │
00:07:56 #48267 [verbose] > │ let v39 : (unit -> UH0) = closure3(v0, v24, v14) │
00:07:56 #48268 [verbose] > │ UH0_0(v15, v16, v30, v31, v32, v26, v36, v37, v38, v39) │
00:07:56 #48269 [verbose] > │ | UH0_1 -> (* StreamNil *) │
00:07:56 #48270 [verbose] > │ UH0_1 │
00:07:56 #48271 [verbose] > │ | UH1_1 -> (* StreamNil *) │
00:07:56 #48272 [verbose] > │ UH0_1 │
00:07:56 #48273 [verbose] > │ and closure4 (v0 : UH0) () : UH0 = │
00:07:56 #48274 [verbose] > │ v0 │
00:07:56 #48275 [verbose] > │ and closure5 (v0 : UH0, v1 : Mut0) () : UH0 = │
00:07:56 #48276 [verbose] > │ let v2 : US0 = v1.l0 │
00:07:56 #48277 [verbose] > │ match v2 with │
00:07:56 #48278 [verbose] > │ | US0_1(v3) -> (* Computed *) │
00:07:56 #48279 [verbose] > │ v3 │
00:07:56 #48280 [verbose] > │ | US0_0(v4) -> (* NotComputed *) │
00:07:56 #48281 [verbose] > │ let v5 : UH0 = v4 () │
00:07:56 #48282 [verbose] > │ let v20 : UH0 = │
00:07:56 #48283 [verbose] > │ match v5 with │
00:07:56 #48284 [verbose] > │ | UH0_0(v7, v8, v9, v10, v11, v12, v13, v14, v15, v16) -> (* │
00:07:56 #48285 [verbose] > │ StreamCons *) │
00:07:56 #48286 [verbose] > │ let v17 : (unit -> UH0) = method1(v0, v16) │
00:07:56 #48287 [verbose] > │ UH0_0(v7, v8, v9, v10, v11, v12, v13, v14, v15, v17) │
00:07:56 #48288 [verbose] > │ | UH0_1 -> (* StreamNil *) │
00:07:56 #48289 [verbose] > │ UH0_1 │
00:07:56 #48290 [verbose] > │ let v21 : US0 = US0_1(v20) │
00:07:56 #48291 [verbose] > │ v1.l0 <- v21 │
00:07:56 #48292 [verbose] > │ v20 │
00:07:56 #48293 [verbose] > │ and method1 (v0 : UH0, v1 : (unit -> UH0)) : (unit -> UH0) = │
00:07:56 #48294 [verbose] > │ let v2 : US0 = US0_0(v1) │
00:07:56 #48295 [verbose] > │ let v3 : Mut0 = {l0 = v2} : Mut0 │
00:07:56 #48296 [verbose] > │ closure5(v0, v3) │
00:07:56 #48297 [verbose] > │ and closure6 (v0 : (unit -> UH0), v1 : (unit -> UH0)) () : UH2 = │
00:07:56 #48298 [verbose] > │ let v2 : UH0 = v1 () │
00:07:56 #48299 [verbose] > │ let v3 : UH0 = v0 () │
00:07:56 #48300 [verbose] > │ match v2 with │
00:07:56 #48301 [verbose] > │ | UH0_0(v4, v5, v6, v7, v8, v9, v10, v11, v12, v13) -> (* StreamCons *) │
00:07:56 #48302 [verbose] > │ match v3 with │
00:07:56 #48303 [verbose] > │ | UH0_0(v14, v15, v16, v17, v18, v19, v20, v21, v22, v23) -> (* │
00:07:56 #48304 [verbose] > │ StreamCons *) │
00:07:56 #48305 [verbose] > │ let v24 : (unit -> UH2) = closure6(v23, v13) │
00:07:56 #48306 [verbose] > │ UH2_0(v4, v5, v6, v7, v8, v9, v10, v11, v12, v14, v15, v16, v17, │
00:07:56 #48307 [verbose] > │ v18, v19, v20, v21, v22, v24) │
00:07:56 #48308 [verbose] > │ | UH0_1 -> (* StreamNil *) │
00:07:56 #48309 [verbose] > │ UH2_1 │
00:07:56 #48310 [verbose] > │ | UH0_1 -> (* StreamNil *) │
00:07:56 #48311 [verbose] > │ UH2_1 │
00:07:56 #48312 [verbose] > │ and closure7 (v0 : UH0) () : UH0 = │
00:07:56 #48313 [verbose] > │ v0 │
00:07:56 #48314 [verbose] > │ and method2 (v0 : float, v1 : UH2, v2 : UH0) : UH0 = │
00:07:56 #48315 [verbose] > │ match v1 with │
00:07:56 #48316 [verbose] > │ | UH2_0(v3, v4, v5, v6, v7, v8, v9, v10, v11, v12, v13, v14, v15, v16, │
00:07:56 #48317 [verbose] > │ v17, v18, v19, v20, v21) -> (* StreamCons *) │
00:07:56 #48318 [verbose] > │ let v22 : UH2 = v21 () │
00:07:56 #48319 [verbose] > │ let v23 : UH0 = method2(v0, v22, v2) │
00:07:56 #48320 [verbose] > │ let v24 : float = v0 * v18 │
00:07:56 #48321 [verbose] > │ let v25 : float = v0 * v19 │
00:07:56 #48322 [verbose] > │ let v26 : float = v0 * v20 │
00:07:56 #48323 [verbose] > │ let v27 : float = v5 + v24 │
00:07:56 #48324 [verbose] > │ let v28 : float = v6 + v25 │
00:07:56 #48325 [verbose] > │ let v29 : float = v7 + v26 │
00:07:56 #48326 [verbose] > │ let v30 : (unit -> UH0) = closure7(v23) │
00:07:56 #48327 [verbose] > │ UH0_0(v12, v13, v27, v28, v29, v17, v18, v19, v20, v30) │
00:07:56 #48328 [verbose] > │ | UH2_1 -> (* StreamNil *) │
00:07:56 #48329 [verbose] > │ v2 │
00:07:56 #48330 [verbose] > │ and closure2 (v0 : float, v1 : (UH0 -> UH1)) (v2 : UH0) : UH0 = │
00:07:56 #48331 [verbose] > │ let v3 : UH1 = v1 v2 │
00:07:56 #48332 [verbose] > │ let v45 : UH0 = │
00:07:56 #48333 [verbose] > │ match v3 with │
00:07:56 #48334 [verbose] > │ | UH1_0(v4, v5, v6, v7, v8, v9, v10, v11, v12, v13) -> (* StreamCons │
00:07:56 #48335 [verbose] > │ *) │
00:07:56 #48336 [verbose] > │ match v2 with │
00:07:56 #48337 [verbose] > │ | UH0_0(v14, v15, v16, v17, v18, v19, v20, v21, v22, v23) -> (* │
00:07:56 #48338 [verbose] > │ StreamCons *) │
00:07:56 #48339 [verbose] > │ let v24 : float = v9 * v0 │
00:07:56 #48340 [verbose] > │ let v25 : float = v19 + v24 │
00:07:56 #48341 [verbose] > │ let v26 : float = v0 * v6 │
00:07:56 #48342 [verbose] > │ let v27 : float = v0 * v7 │
00:07:56 #48343 [verbose] > │ let v28 : float = v0 * v8 │
00:07:56 #48344 [verbose] > │ let v29 : float = v16 + v26 │
00:07:56 #48345 [verbose] > │ let v30 : float = v17 + v27 │
00:07:56 #48346 [verbose] > │ let v31 : float = v18 + v28 │
00:07:56 #48347 [verbose] > │ let v32 : float = v0 * v10 │
00:07:56 #48348 [verbose] > │ let v33 : float = v0 * v11 │
00:07:56 #48349 [verbose] > │ let v34 : float = v0 * v12 │
00:07:56 #48350 [verbose] > │ let v35 : float = v20 + v32 │
00:07:56 #48351 [verbose] > │ let v36 : float = v21 + v33 │
00:07:56 #48352 [verbose] > │ let v37 : float = v22 + v34 │
00:07:56 #48353 [verbose] > │ let v38 : (unit -> UH0) = closure3(v0, v23, v13) │
00:07:56 #48354 [verbose] > │ UH0_0(v14, v15, v29, v30, v31, v25, v35, v36, v37, v38) │
00:07:56 #48355 [verbose] > │ | UH0_1 -> (* StreamNil *) │
00:07:56 #48356 [verbose] > │ UH0_1 │
00:07:56 #48357 [verbose] > │ | UH1_1 -> (* StreamNil *) │
00:07:56 #48358 [verbose] > │ UH0_1 │
00:07:56 #48359 [verbose] > │ let v46 : (unit -> UH0) = closure4(v45) │
00:07:56 #48360 [verbose] > │ let v47 : (unit -> UH0) = method1(v45, v46) │
00:07:56 #48361 [verbose] > │ let v48 : UH0 = v47 () │
00:07:56 #48362 [verbose] > │ let v76 : UH2 = │
00:07:56 #48363 [verbose] > │ match v2 with │
00:07:56 #48364 [verbose] > │ | UH0_0(v49, v50, v51, v52, v53, v54, v55, v56, v57, v58) -> (* │
00:07:56 #48365 [verbose] > │ StreamCons *) │
00:07:56 #48366 [verbose] > │ match v48 with │
00:07:56 #48367 [verbose] > │ | UH0_0(v59, v60, v61, v62, v63, v64, v65, v66, v67, v68) -> (* │
00:07:56 #48368 [verbose] > │ StreamCons *) │
00:07:56 #48369 [verbose] > │ let v69 : (unit -> UH2) = closure6(v68, v58) │
00:07:56 #48370 [verbose] > │ UH2_0(v49, v50, v51, v52, v53, v54, v55, v56, v57, v59, v60, │
00:07:56 #48371 [verbose] > │ v61, v62, v63, v64, v65, v66, v67, v69) │
00:07:56 #48372 [verbose] > │ | UH0_1 -> (* StreamNil *) │
00:07:56 #48373 [verbose] > │ UH2_1 │
00:07:56 #48374 [verbose] > │ | UH0_1 -> (* StreamNil *) │
00:07:56 #48375 [verbose] > │ UH2_1 │
00:07:56 #48376 [verbose] > │ let v77 : UH0 = UH0_1 │
00:07:56 #48377 [verbose] > │ let v78 : UH0 = method2(v0, v76, v77) │
00:07:56 #48378 [verbose] > │ v78 │
00:07:56 #48379 [verbose] > │ and closure1 (v0 : float) (v1 : (UH0 -> UH1)) : (UH0 -> UH0) = │
00:07:56 #48380 [verbose] > │ closure2(v0, v1) │
00:07:56 #48381 [verbose] > │ and closure0 () (v0 : float) : ((UH0 -> UH1) -> (UH0 -> UH0)) = │
00:07:56 #48382 [verbose] > │ closure1(v0) │
00:07:56 #48383 [verbose] > │ and closure9 (v0 : UH3) () : UH3 = │
00:07:56 #48384 [verbose] > │ v0 │
00:07:56 #48385 [verbose] > │ and method3 (v0 : UH0, v1 : UH3, v2 : int32) : struct (UH3 * int32) = │
00:07:56 #48386 [verbose] > │ match v0 with │
00:07:56 #48387 [verbose] > │ | UH0_0(v3, v4, v5, v6, v7, v8, v9, v10, v11, v12) -> (* StreamCons *) │
00:07:56 #48388 [verbose] > │ let v13 : int32 = v2 + 1 │
00:07:56 #48389 [verbose] > │ let v14 : UH0 = v12 () │
00:07:56 #48390 [verbose] > │ let v15 : (unit -> UH3) = closure9(v1) │
00:07:56 #48391 [verbose] > │ let v16 : UH3 = UH3_0(v2, v3, v4, v5, v6, v7, v8, v9, v10, v11, v15) │
00:07:56 #48392 [verbose] > │ method3(v14, v16, v13) │
00:07:56 #48393 [verbose] > │ | UH0_1 -> (* StreamNil *) │
00:07:56 #48394 [verbose] > │ struct (v1, v2) │
00:07:56 #48395 [verbose] > │ and closure10 (v0 : UH3) () : UH3 = │
00:07:56 #48396 [verbose] > │ v0 │
00:07:56 #48397 [verbose] > │ and method4 (v0 : UH3, v1 : UH3) : UH3 = │
00:07:56 #48398 [verbose] > │ match v0 with │
00:07:56 #48399 [verbose] > │ | UH3_0(v2, v3, v4, v5, v6, v7, v8, v9, v10, v11, v12) -> (* StreamCons │
00:07:56 #48400 [verbose] > │ *) │
00:07:56 #48401 [verbose] > │ let v13 : UH3 = v12 () │
00:07:56 #48402 [verbose] > │ let v14 : (unit -> UH3) = closure10(v1) │
00:07:56 #48403 [verbose] > │ let v15 : UH3 = UH3_0(v2, v3, v4, v5, v6, v7, v8, v9, v10, v11, v14) │
00:07:56 #48404 [verbose] > │ method4(v13, v15) │
00:07:56 #48405 [verbose] > │ | UH3_1 -> (* StreamNil *) │
00:07:56 #48406 [verbose] > │ v1 │
00:07:56 #48407 [verbose] > │ and method6 (v0 : int32, v1 : UH0) : US2 = │
00:07:56 #48408 [verbose] > │ match v1 with │
00:07:56 #48409 [verbose] > │ | UH0_0(v2, v3, v4, v5, v6, v7, v8, v9, v10, v11) -> (* StreamCons *) │
00:07:56 #48410 [verbose] > │ let v12 : bool = v0 <= 0 │
00:07:56 #48411 [verbose] > │ if v12 then │
00:07:56 #48412 [verbose] > │ US2_0(v2, v3, v4, v5, v6, v7, v8, v9, v10) │
00:07:56 #48413 [verbose] > │ else │
00:07:56 #48414 [verbose] > │ let v14 : int32 = v0 - 1 │
00:07:56 #48415 [verbose] > │ let v15 : UH0 = v11 () │
00:07:56 #48416 [verbose] > │ method6(v14, v15) │
00:07:56 #48417 [verbose] > │ | UH0_1 -> (* StreamNil *) │
00:07:56 #48418 [verbose] > │ US2_1 │
00:07:56 #48419 [verbose] > │ and closure11 (v0 : float, v1 : float, v2 : float, v3 : float, v4 : float, │
00:07:56 #48420 [verbose] > │ v5 : float, v6 : float, v7 : float, v8 : float) struct (v9 : float, v10 : │
00:07:56 #48421 [verbose] > │ float, v11 : float, v12 : float, v13 : float, v14 : float, v15 : float, v16 │
00:07:56 #48422 [verbose] > │ : float, v17 : float) : struct (float * float * float) = │
00:07:56 #48423 [verbose] > │ let v18 : float = -1.0 * v2 │
00:07:56 #48424 [verbose] > │ let v19 : float = -1.0 * v3 │
00:07:56 #48425 [verbose] > │ let v20 : float = -1.0 * v4 │
00:07:56 #48426 [verbose] > │ let v21 : float = v11 + v18 │
00:07:56 #48427 [verbose] > │ let v22 : float = v12 + v19 │
00:07:56 #48428 [verbose] > │ let v23 : float = v13 + v20 │
00:07:56 #48429 [verbose] > │ let v24 : float = v21 * v21 │
00:07:56 #48430 [verbose] > │ let v25 : float = v22 * v22 │
00:07:56 #48431 [verbose] > │ let v26 : float = v24 + v25 │
00:07:56 #48432 [verbose] > │ let v27 : float = v23 * v23 │
00:07:56 #48433 [verbose] > │ let v28 : float = v26 + v27 │
00:07:56 #48434 [verbose] > │ let v29 : float = sqrt v28 │
00:07:56 #48435 [verbose] > │ let v30 : bool = v29 >= 0.06 │
00:07:56 #48436 [verbose] > │ let v33 : float = │
00:07:56 #48437 [verbose] > │ if v30 then │
00:07:56 #48438 [verbose] > │ 0.0 │
00:07:56 #48439 [verbose] > │ else │
00:07:56 #48440 [verbose] > │ let v31 : float = v29 - 0.06 │
00:07:56 #48441 [verbose] > │ let v32 : float = -30.0 * v31 │
00:07:56 #48442 [verbose] > │ v32 │
00:07:56 #48443 [verbose] > │ let v34 : float = v33 * v21 │
00:07:56 #48444 [verbose] > │ let v35 : float = v33 * v22 │
00:07:56 #48445 [verbose] > │ let v36 : float = v33 * v23 │
00:07:56 #48446 [verbose] > │ let v37 : float = v34 / v29 │
00:07:56 #48447 [verbose] > │ let v38 : float = v35 / v29 │
00:07:56 #48448 [verbose] > │ let v39 : float = v36 / v29 │
00:07:56 #48449 [verbose] > │ struct (v37, v38, v39) │
00:07:56 #48450 [verbose] > │ and closure12 () struct (v0 : float, v1 : float, v2 : float, v3 : float, v4 │
00:07:56 #48451 [verbose] > │ : float, v5 : float, v6 : float, v7 : float, v8 : float) : struct (float * │
00:07:56 #48452 [verbose] > │ float * float) = │
00:07:56 #48453 [verbose] > │ struct (0.0, 0.0, 0.0) │
00:07:56 #48454 [verbose] > │ and closure13 (v0 : UH1) () : UH1 = │
00:07:56 #48455 [verbose] > │ v0 │
00:07:56 #48456 [verbose] > │ and method5 (v0 : UH0, v1 : UH3, v2 : UH1) : UH1 = │
00:07:56 #48457 [verbose] > │ match v1 with │
00:07:56 #48458 [verbose] > │ | UH3_0(v3, v4, v5, v6, v7, v8, v9, v10, v11, v12, v13) -> (* StreamCons │
00:07:56 #48459 [verbose] > │ *) │
00:07:56 #48460 [verbose] > │ let v14 : UH3 = v13 () │
00:07:56 #48461 [verbose] > │ let v15 : UH1 = method5(v0, v14, v2) │
00:07:56 #48462 [verbose] > │ let v16 : bool = v3 = 0 │
00:07:56 #48463 [verbose] > │ let v52 : US1 = │
00:07:56 #48464 [verbose] > │ if v16 then │
00:07:56 #48465 [verbose] > │ let v17 : int32 = 1 │
00:07:56 #48466 [verbose] > │ let v18 : US2 = method6(v17, v0) │
00:07:56 #48467 [verbose] > │ match v18 with │
00:07:56 #48468 [verbose] > │ | US2_1 -> (* None *) │
00:07:56 #48469 [verbose] > │ US1_1 │
00:07:56 #48470 [verbose] > │ | US2_0(v19, v20, v21, v22, v23, v24, v25, v26, v27) -> (* │
00:07:56 #48471 [verbose] > │ Some *) │
00:07:56 #48472 [verbose] > │ let v28 : (struct (float * float * float * float * float │
00:07:56 #48473 [verbose] > │ * float * float * float * float) -> struct (float * float * float)) = │
00:07:56 #48474 [verbose] > │ closure11(v19, v20, v21, v22, v23, v24, v25, v26, v27) │
00:07:56 #48475 [verbose] > │ US1_0(v28) │
00:07:56 #48476 [verbose] > │ else │
00:07:56 #48477 [verbose] > │ let v33 : bool = v3 = 1 │
00:07:56 #48478 [verbose] > │ if v33 then │
00:07:56 #48479 [verbose] > │ let v34 : int32 = 0 │
00:07:56 #48480 [verbose] > │ let v35 : US2 = method6(v34, v0) │
00:07:56 #48481 [verbose] > │ match v35 with │
00:07:56 #48482 [verbose] > │ | US2_1 -> (* None *) │
00:07:56 #48483 [verbose] > │ US1_1 │
00:07:56 #48484 [verbose] > │ | US2_0(v36, v37, v38, v39, v40, v41, v42, v43, v44) -> │
00:07:56 #48485 [verbose] > │ (* Some *) │
00:07:56 #48486 [verbose] > │ let v45 : (struct (float * float * float * float * │
00:07:56 #48487 [verbose] > │ float * float * float * float * float) -> struct (float * float * float)) = │
00:07:56 #48488 [verbose] > │ closure11(v36, v37, v38, v39, v40, v41, v42, v43, v44) │
00:07:56 #48489 [verbose] > │ US1_0(v45) │
00:07:56 #48490 [verbose] > │ else │
00:07:56 #48491 [verbose] > │ US1_1 │
00:07:56 #48492 [verbose] > │ let v56 : (struct (float * float * float * float * float * float * │
00:07:56 #48493 [verbose] > │ float * float * float) -> struct (float * float * float)) = │
00:07:56 #48494 [verbose] > │ match v52 with │
00:07:56 #48495 [verbose] > │ | US1_1 -> (* None *) │
00:07:56 #48496 [verbose] > │ closure12() │
00:07:56 #48497 [verbose] > │ | US1_0(v53) -> (* Some *) │
00:07:56 #48498 [verbose] > │ v53 │
00:07:56 #48499 [verbose] > │ let struct (v57 : float, v58 : float, v59 : float) = v56 struct (v4, │
00:07:56 #48500 [verbose] > │ v5, v6, v7, v8, v9, v10, v11, v12) │
00:07:56 #48501 [verbose] > │ let v60 : float = v57 / v5 │
00:07:56 #48502 [verbose] > │ let v61 : float = v58 / v5 │
00:07:56 #48503 [verbose] > │ let v62 : float = v59 / v5 │
00:07:56 #48504 [verbose] > │ let v63 : (unit -> UH1) = closure13(v15) │
00:07:56 #48505 [verbose] > │ UH1_0(0.0, 0.0, v10, v11, v12, 1.0, v60, v61, v62, v63) │
00:07:56 #48506 [verbose] > │ | UH3_1 -> (* StreamNil *) │
00:07:56 #48507 [verbose] > │ v2 │
00:07:56 #48508 [verbose] > │ and closure8 () (v0 : UH0) : UH1 = │
00:07:56 #48509 [verbose] > │ let v1 : UH3 = UH3_1 │
00:07:56 #48510 [verbose] > │ let v2 : int32 = 0 │
00:07:56 #48511 [verbose] > │ let struct (v3 : UH3, v4 : int32) = method3(v0, v1, v2) │
00:07:56 #48512 [verbose] > │ let v5 : UH3 = UH3_1 │
00:07:56 #48513 [verbose] > │ let v6 : UH3 = method4(v3, v5) │
00:07:56 #48514 [verbose] > │ let v7 : UH1 = UH1_1 │
00:07:56 #48515 [verbose] > │ let v8 : UH1 = method5(v0, v6, v7) │
00:07:56 #48516 [verbose] > │ v8 │
00:07:56 #48517 [verbose] > │ and method8 (v0 : int32, v1 : int32) : UH5 = │
00:07:56 #48518 [verbose] > │ let v2 : bool = v1 < v0 │
00:07:56 #48519 [verbose] > │ if v2 then │
00:07:56 #48520 [verbose] > │ let v3 : int32 = v1 + 1 │
00:07:56 #48521 [verbose] > │ let v4 : UH5 = method8(v0, v3) │
00:07:56 #48522 [verbose] > │ UH5_1(v1, v4) │
00:07:56 #48523 [verbose] > │ else │
00:07:56 #48524 [verbose] > │ UH5_0 │
00:07:56 #48525 [verbose] > │ and closure15 () () : UH0 = │
00:07:56 #48526 [verbose] > │ UH0_1 │
00:07:56 #48527 [verbose] > │ and closure14 () () : UH0 = │
00:07:56 #48528 [verbose] > │ let v0 : (unit -> UH0) = closure15() │
00:07:56 #48529 [verbose] > │ UH0_0(0.0, 0.16, 1.0, 0.02, 0.0, 0.0, 0.0, 0.0, 0.0, v0) │
00:07:56 #48530 [verbose] > │ and method9 (v0 : (UH0 -> UH0), v1 : UH5, v2 : UH0) : UH0 = │
00:07:56 #48531 [verbose] > │ match v1 with │
00:07:56 #48532 [verbose] > │ | UH5_1(v3, v4) -> (* Cons *) │
00:07:56 #48533 [verbose] > │ let v5 : (unit -> UH0) = closure4(v2) │
00:07:56 #48534 [verbose] > │ let v6 : (unit -> UH0) = method1(v2, v5) │
00:07:56 #48535 [verbose] > │ let v7 : UH0 = v6 () │
00:07:56 #48536 [verbose] > │ let v8 : UH0 = v0 v7 │
00:07:56 #48537 [verbose] > │ method9(v0, v4, v8) │
00:07:56 #48538 [verbose] > │ | UH5_0 -> (* Nil *) │
00:07:56 #48539 [verbose] > │ v2 │
00:07:56 #48540 [verbose] > │ and method10 (v0 : UH4, v1 : UH4) : UH4 = │
00:07:56 #48541 [verbose] > │ match v0 with │
00:07:56 #48542 [verbose] > │ | UH4_1(v2, v3) -> (* Cons *) │
00:07:56 #48543 [verbose] > │ let v4 : UH4 = UH4_1(v2, v1) │
00:07:56 #48544 [verbose] > │ method10(v3, v4) │
00:07:56 #48545 [verbose] > │ | UH4_0 -> (* Nil *) │
00:07:56 #48546 [verbose] > │ v1 │
00:07:56 #48547 [verbose] > │ and method7 (v0 : (UH0 -> UH0), v1 : UH4, v2 : int32) : UH4 = │
00:07:56 #48548 [verbose] > │ let v3 : int32 = 0 │
00:07:56 #48549 [verbose] > │ let v4 : UH5 = method8(v2, v3) │
00:07:56 #48550 [verbose] > │ let v5 : float = 0.0 │
00:07:56 #48551 [verbose] > │ let v6 : float = 0.16 │
00:07:56 #48552 [verbose] > │ let v7 : float = 0.0 │
00:07:56 #48553 [verbose] > │ let v8 : float = 0.0 │
00:07:56 #48554 [verbose] > │ let v9 : float = 0.0 │
00:07:56 #48555 [verbose] > │ let v10 : float = 0.0 │
00:07:56 #48556 [verbose] > │ let v11 : float = 0.2 │
00:07:56 #48557 [verbose] > │ let v12 : float = 0.0 │
00:07:56 #48558 [verbose] > │ let v13 : float = 0.0 │
00:07:56 #48559 [verbose] > │ let v14 : (unit -> UH0) = closure14() │
00:07:56 #48560 [verbose] > │ let v15 : UH0 = UH0_0(v5, v6, v7, v8, v9, v10, v11, v12, v13, v14) │
00:07:56 #48561 [verbose] > │ let v16 : UH0 = method9(v0, v4, v15) │
00:07:56 #48562 [verbose] > │ let v17 : int32 = 0 │
00:07:56 #48563 [verbose] > │ let v18 : US2 = method6(v17, v16) │
00:07:56 #48564 [verbose] > │ let v30 : bool = │
00:07:56 #48565 [verbose] > │ match v18 with │
00:07:56 #48566 [verbose] > │ | US2_1 -> (* None *) │
00:07:56 #48567 [verbose] > │ false │
00:07:56 #48568 [verbose] > │ | US2_0(v19, v20, v21, v22, v23, v24, v25, v26, v27) -> (* Some *) │
00:07:56 #48569 [verbose] > │ let v28 : bool = v24 <= 10.0 │
00:07:56 #48570 [verbose] > │ v28 │
00:07:56 #48571 [verbose] > │ if v30 then │
00:07:56 #48572 [verbose] > │ let v31 : UH4 = UH4_1(v16, v1) │
00:07:56 #48573 [verbose] > │ let v32 : int32 = v2 + 1 │
00:07:56 #48574 [verbose] > │ method7(v0, v31, v32) │
00:07:56 #48575 [verbose] > │ else │
00:07:56 #48576 [verbose] > │ let v34 : UH4 = UH4_0 │
00:07:56 #48577 [verbose] > │ method10(v1, v34) │
00:07:56 #48578 [verbose] > │ and closure16 (v0 : UH7) () : UH7 = │
00:07:56 #48579 [verbose] > │ v0 │
00:07:56 #48580 [verbose] > │ and method12 (v0 : UH0, v1 : UH7) : UH7 = │
00:07:56 #48581 [verbose] > │ match v0 with │
00:07:56 #48582 [verbose] > │ | UH0_0(v2, v3, v4, v5, v6, v7, v8, v9, v10, v11) -> (* StreamCons *) │
00:07:56 #48583 [verbose] > │ let v12 : UH0 = v11 () │
00:07:56 #48584 [verbose] > │ let v13 : UH7 = method12(v12, v1) │
00:07:56 #48585 [verbose] > │ let v14 : float = v8 * v8 │
00:07:56 #48586 [verbose] > │ let v15 : float = v9 * v9 │
00:07:56 #48587 [verbose] > │ let v16 : float = v14 + v15 │
00:07:56 #48588 [verbose] > │ let v17 : float = v10 * v10 │
00:07:56 #48589 [verbose] > │ let v18 : float = v16 + v17 │
00:07:56 #48590 [verbose] > │ let v19 : float = sqrt v18 │
00:07:56 #48591 [verbose] > │ let v20 : float = 0.5 * v3 │
00:07:56 #48592 [verbose] > │ let v21 : float = v19 ** 2.0 │
00:07:56 #48593 [verbose] > │ let v22 : float = v20 * v21 │
00:07:56 #48594 [verbose] > │ let v23 : (unit -> UH7) = closure16(v13) │
00:07:56 #48595 [verbose] > │ UH7_0(v22, v23) │
00:07:56 #48596 [verbose] > │ | UH0_1 -> (* StreamNil *) │
00:07:56 #48597 [verbose] > │ v1 │
00:07:56 #48598 [verbose] > │ and method13 (v0 : UH7, v1 : float) : float = │
00:07:56 #48599 [verbose] > │ match v0 with │
00:07:56 #48600 [verbose] > │ | UH7_0(v2, v3) -> (* StreamCons *) │
00:07:56 #48601 [verbose] > │ let v4 : float = v1 + v2 │
00:07:56 #48602 [verbose] > │ let v5 : UH7 = v3 () │
00:07:56 #48603 [verbose] > │ method13(v5, v4) │
00:07:56 #48604 [verbose] > │ | UH7_1 -> (* StreamNil *) │
00:07:56 #48605 [verbose] > │ v1 │
00:07:56 #48606 [verbose] > │ and method11 (v0 : UH4, v1 : UH6) : UH6 = │
00:07:56 #48607 [verbose] > │ match v0 with │
00:07:56 #48608 [verbose] > │ | UH4_1(v2, v3) -> (* Cons *) │
00:07:56 #48609 [verbose] > │ let v4 : UH6 = method11(v3, v1) │
00:07:56 #48610 [verbose] > │ let v5 : int32 = 0 │
00:07:56 #48611 [verbose] > │ let v6 : US2 = method6(v5, v2) │
00:07:56 #48612 [verbose] > │ let v23 : US3 = │
00:07:56 #48613 [verbose] > │ match v6 with │
00:07:56 #48614 [verbose] > │ | US2_1 -> (* None *) │
00:07:56 #48615 [verbose] > │ US3_1 │
00:07:56 #48616 [verbose] > │ | US2_0(v7, v8, v9, v10, v11, v12, v13, v14, v15) -> (* Some *) │
00:07:56 #48617 [verbose] > │ let v16 : UH7 = UH7_1 │
00:07:56 #48618 [verbose] > │ let v17 : UH7 = method12(v2, v16) │
00:07:56 #48619 [verbose] > │ let v18 : float = 0.0 │
00:07:56 #48620 [verbose] > │ let v19 : float = method13(v17, v18) │
00:07:56 #48621 [verbose] > │ US3_0(v12, v19) │
00:07:56 #48622 [verbose] > │ UH6_1(v23, v4) │
00:07:56 #48623 [verbose] > │ | UH4_0 -> (* Nil *) │
00:07:56 #48624 [verbose] > │ v1 │
00:07:56 #48625 [verbose] > │ and method14 (v0 : UH6, v1 : UH8) : UH8 = │
00:07:56 #48626 [verbose] > │ match v0 with │
00:07:56 #48627 [verbose] > │ | UH6_1(v2, v3) -> (* Cons *) │
00:07:56 #48628 [verbose] > │ let v4 : UH8 = method14(v3, v1) │
00:07:56 #48629 [verbose] > │ match v2 with │
00:07:56 #48630 [verbose] > │ | US3_1 -> (* None *) │
00:07:56 #48631 [verbose] > │ v4 │
00:07:56 #48632 [verbose] > │ | US3_0(v5, v6) -> (* Some *) │
00:07:56 #48633 [verbose] > │ UH8_1(v5, v6, v4) │
00:07:56 #48634 [verbose] > │ | UH6_0 -> (* Nil *) │
00:07:56 #48635 [verbose] > │ v1 │
00:07:56 #48636 [verbose] > │ and method15 (v0 : UH8, v1 : UH9, v2 : UH9) : struct (UH9 * UH9) = │
00:07:56 #48637 [verbose] > │ match v0 with │
00:07:56 #48638 [verbose] > │ | UH8_1(v3, v4, v5) -> (* Cons *) │
00:07:56 #48639 [verbose] > │ let v6 : UH9 = UH9_1(v3, v1) │
00:07:56 #48640 [verbose] > │ let v7 : UH9 = UH9_1(v4, v2) │
00:07:56 #48641 [verbose] > │ method15(v5, v6, v7) │
00:07:56 #48642 [verbose] > │ | UH8_0 -> (* Nil *) │
00:07:56 #48643 [verbose] > │ struct (v1, v2) │
00:07:56 #48644 [verbose] > │ and method16 (v0 : UH9, v1 : UH9) : UH9 = │
00:07:56 #48645 [verbose] > │ match v0 with │
00:07:56 #48646 [verbose] > │ | UH9_1(v2, v3) -> (* Cons *) │
00:07:56 #48647 [verbose] > │ let v4 : UH9 = UH9_1(v2, v1) │
00:07:56 #48648 [verbose] > │ method16(v3, v4) │
00:07:56 #48649 [verbose] > │ | UH9_0 -> (* Nil *) │
00:07:56 #48650 [verbose] > │ v1 │
00:07:56 #48651 [verbose] > │ and closure20 (v0 : (unit -> UH1), v1 : (unit -> UH1)) () : UH1 = │
00:07:56 #48652 [verbose] > │ let v2 : UH1 = v1 () │
00:07:56 #48653 [verbose] > │ let v3 : UH1 = v0 () │
00:07:56 #48654 [verbose] > │ match v2 with │
00:07:56 #48655 [verbose] > │ | UH1_0(v4, v5, v6, v7, v8, v9, v10, v11, v12, v13) -> (* StreamCons *) │
00:07:56 #48656 [verbose] > │ match v3 with │
00:07:56 #48657 [verbose] > │ | UH1_0(v14, v15, v16, v17, v18, v19, v20, v21, v22, v23) -> (* │
00:07:56 #48658 [verbose] > │ StreamCons *) │
00:07:56 #48659 [verbose] > │ let v24 : float = v4 + v14 │
00:07:56 #48660 [verbose] > │ let v25 : float = v5 + v15 │
00:07:56 #48661 [verbose] > │ let v26 : float = v9 + v19 │
00:07:56 #48662 [verbose] > │ let v27 : float = v6 + v16 │
00:07:56 #48663 [verbose] > │ let v28 : float = v7 + v17 │
00:07:56 #48664 [verbose] > │ let v29 : float = v8 + v18 │
00:07:56 #48665 [verbose] > │ let v30 : float = v10 + v20 │
00:07:56 #48666 [verbose] > │ let v31 : float = v11 + v21 │
00:07:56 #48667 [verbose] > │ let v32 : float = v12 + v22 │
00:07:56 #48668 [verbose] > │ let v33 : (unit -> UH1) = closure20(v23, v13) │
00:07:56 #48669 [verbose] > │ UH1_0(v24, v25, v27, v28, v29, v26, v30, v31, v32, v33) │
00:07:56 #48670 [verbose] > │ | UH1_1 -> (* StreamNil *) │
00:07:56 #48671 [verbose] > │ UH1_1 │
00:07:56 #48672 [verbose] > │ | UH1_1 -> (* StreamNil *) │
00:07:56 #48673 [verbose] > │ UH1_1 │
00:07:56 #48674 [verbose] > │ and closure19 (v0 : float, v1 : (UH0 -> UH1)) (v2 : UH0) : UH0 = │
00:07:56 #48675 [verbose] > │ let v3 : UH1 = v1 v2 │
00:07:56 #48676 [verbose] > │ let v4 : float = v0 / 2.0 │
00:07:56 #48677 [verbose] > │ let v46 : UH0 = │
00:07:56 #48678 [verbose] > │ match v3 with │
00:07:56 #48679 [verbose] > │ | UH1_0(v5, v6, v7, v8, v9, v10, v11, v12, v13, v14) -> (* │
00:07:56 #48680 [verbose] > │ StreamCons *) │
00:07:56 #48681 [verbose] > │ match v2 with │
00:07:56 #48682 [verbose] > │ | UH0_0(v15, v16, v17, v18, v19, v20, v21, v22, v23, v24) -> (* │
00:07:56 #48683 [verbose] > │ StreamCons *) │
00:07:56 #48684 [verbose] > │ let v25 : float = v10 * v4 │
00:07:56 #48685 [verbose] > │ let v26 : float = v20 + v25 │
00:07:56 #48686 [verbose] > │ let v27 : float = v4 * v7 │
00:07:56 #48687 [verbose] > │ let v28 : float = v4 * v8 │
00:07:56 #48688 [verbose] > │ let v29 : float = v4 * v9 │
00:07:56 #48689 [verbose] > │ let v30 : float = v17 + v27 │
00:07:56 #48690 [verbose] > │ let v31 : float = v18 + v28 │
00:07:56 #48691 [verbose] > │ let v32 : float = v19 + v29 │
00:07:56 #48692 [verbose] > │ let v33 : float = v4 * v11 │
00:07:56 #48693 [verbose] > │ let v34 : float = v4 * v12 │
00:07:56 #48694 [verbose] > │ let v35 : float = v4 * v13 │
00:07:56 #48695 [verbose] > │ let v36 : float = v21 + v33 │
00:07:56 #48696 [verbose] > │ let v37 : float = v22 + v34 │
00:07:56 #48697 [verbose] > │ let v38 : float = v23 + v35 │
00:07:56 #48698 [verbose] > │ let v39 : (unit -> UH0) = closure3(v4, v24, v14) │
00:07:56 #48699 [verbose] > │ UH0_0(v15, v16, v30, v31, v32, v26, v36, v37, v38, v39) │
00:07:56 #48700 [verbose] > │ | UH0_1 -> (* StreamNil *) │
00:07:56 #48701 [verbose] > │ UH0_1 │
00:07:56 #48702 [verbose] > │ | UH1_1 -> (* StreamNil *) │
00:07:56 #48703 [verbose] > │ UH0_1 │
00:07:56 #48704 [verbose] > │ let v47 : (unit -> UH0) = closure4(v46) │
00:07:56 #48705 [verbose] > │ let v48 : (unit -> UH0) = method1(v46, v47) │
00:07:56 #48706 [verbose] > │ let v49 : UH0 = v48 () │
00:07:56 #48707 [verbose] > │ let v50 : UH1 = v1 v49 │
00:07:56 #48708 [verbose] > │ let v92 : UH0 = │
00:07:56 #48709 [verbose] > │ match v50 with │
00:07:56 #48710 [verbose] > │ | UH1_0(v51, v52, v53, v54, v55, v56, v57, v58, v59, v60) -> (* │
00:07:56 #48711 [verbose] > │ StreamCons *) │
00:07:56 #48712 [verbose] > │ match v2 with │
00:07:56 #48713 [verbose] > │ | UH0_0(v61, v62, v63, v64, v65, v66, v67, v68, v69, v70) -> (* │
00:07:56 #48714 [verbose] > │ StreamCons *) │
00:07:56 #48715 [verbose] > │ let v71 : float = v56 * v4 │
00:07:56 #48716 [verbose] > │ let v72 : float = v66 + v71 │
00:07:56 #48717 [verbose] > │ let v73 : float = v4 * v53 │
00:07:56 #48718 [verbose] > │ let v74 : float = v4 * v54 │
00:07:56 #48719 [verbose] > │ let v75 : float = v4 * v55 │
00:07:56 #48720 [verbose] > │ let v76 : float = v63 + v73 │
00:07:56 #48721 [verbose] > │ let v77 : float = v64 + v74 │
00:07:56 #48722 [verbose] > │ let v78 : float = v65 + v75 │
00:07:56 #48723 [verbose] > │ let v79 : float = v4 * v57 │
00:07:56 #48724 [verbose] > │ let v80 : float = v4 * v58 │
00:07:56 #48725 [verbose] > │ let v81 : float = v4 * v59 │
00:07:56 #48726 [verbose] > │ let v82 : float = v67 + v79 │
00:07:56 #48727 [verbose] > │ let v83 : float = v68 + v80 │
00:07:56 #48728 [verbose] > │ let v84 : float = v69 + v81 │
00:07:56 #48729 [verbose] > │ let v85 : (unit -> UH0) = closure3(v4, v70, v60) │
00:07:56 #48730 [verbose] > │ UH0_0(v61, v62, v76, v77, v78, v72, v82, v83, v84, v85) │
00:07:56 #48731 [verbose] > │ | UH0_1 -> (* StreamNil *) │
00:07:56 #48732 [verbose] > │ UH0_1 │
00:07:56 #48733 [verbose] > │ | UH1_1 -> (* StreamNil *) │
00:07:56 #48734 [verbose] > │ UH0_1 │
00:07:56 #48735 [verbose] > │ let v93 : (unit -> UH0) = closure4(v92) │
00:07:56 #48736 [verbose] > │ let v94 : (unit -> UH0) = method1(v92, v93) │
00:07:56 #48737 [verbose] > │ let v95 : UH0 = v94 () │
00:07:56 #48738 [verbose] > │ let v96 : UH1 = v1 v95 │
00:07:56 #48739 [verbose] > │ let v138 : UH0 = │
00:07:56 #48740 [verbose] > │ match v96 with │
00:07:56 #48741 [verbose] > │ | UH1_0(v97, v98, v99, v100, v101, v102, v103, v104, v105, v106) -> │
00:07:56 #48742 [verbose] > │ (* StreamCons *) │
00:07:56 #48743 [verbose] > │ match v2 with │
00:07:56 #48744 [verbose] > │ | UH0_0(v107, v108, v109, v110, v111, v112, v113, v114, v115, │
00:07:56 #48745 [verbose] > │ v116) -> (* StreamCons *) │
00:07:56 #48746 [verbose] > │ let v117 : float = v102 * v0 │
00:07:56 #48747 [verbose] > │ let v118 : float = v112 + v117 │
00:07:56 #48748 [verbose] > │ let v119 : float = v0 * v99 │
00:07:56 #48749 [verbose] > │ let v120 : float = v0 * v100 │
00:07:56 #48750 [verbose] > │ let v121 : float = v0 * v101 │
00:07:56 #48751 [verbose] > │ let v122 : float = v109 + v119 │
00:07:56 #48752 [verbose] > │ let v123 : float = v110 + v120 │
00:07:56 #48753 [verbose] > │ let v124 : float = v111 + v121 │
00:07:56 #48754 [verbose] > │ let v125 : float = v0 * v103 │
00:07:56 #48755 [verbose] > │ let v126 : float = v0 * v104 │
00:07:56 #48756 [verbose] > │ let v127 : float = v0 * v105 │
00:07:56 #48757 [verbose] > │ let v128 : float = v113 + v125 │
00:07:56 #48758 [verbose] > │ let v129 : float = v114 + v126 │
00:07:56 #48759 [verbose] > │ let v130 : float = v115 + v127 │
00:07:56 #48760 [verbose] > │ let v131 : (unit -> UH0) = closure3(v0, v116, v106) │
00:07:56 #48761 [verbose] > │ UH0_0(v107, v108, v122, v123, v124, v118, v128, v129, v130, │
00:07:56 #48762 [verbose] > │ v131) │
00:07:56 #48763 [verbose] > │ | UH0_1 -> (* StreamNil *) │
00:07:56 #48764 [verbose] > │ UH0_1 │
00:07:56 #48765 [verbose] > │ | UH1_1 -> (* StreamNil *) │
00:07:56 #48766 [verbose] > │ UH0_1 │
00:07:56 #48767 [verbose] > │ let v139 : (unit -> UH0) = closure4(v138) │
00:07:56 #48768 [verbose] > │ let v140 : (unit -> UH0) = method1(v138, v139) │
00:07:56 #48769 [verbose] > │ let v141 : UH0 = v140 () │
00:07:56 #48770 [verbose] > │ let v142 : UH1 = v1 v141 │
00:07:56 #48771 [verbose] > │ let v143 : float = v0 / 6.0 │
00:07:56 #48772 [verbose] > │ let v180 : UH1 = │
00:07:56 #48773 [verbose] > │ match v3 with │
00:07:56 #48774 [verbose] > │ | UH1_0(v144, v145, v146, v147, v148, v149, v150, v151, v152, v153) │
00:07:56 #48775 [verbose] > │ -> (* StreamCons *) │
00:07:56 #48776 [verbose] > │ match v50 with │
00:07:56 #48777 [verbose] > │ | UH1_0(v154, v155, v156, v157, v158, v159, v160, v161, v162, │
00:07:56 #48778 [verbose] > │ v163) -> (* StreamCons *) │
00:07:56 #48779 [verbose] > │ let v164 : float = v144 + v154 │
00:07:56 #48780 [verbose] > │ let v165 : float = v145 + v155 │
00:07:56 #48781 [verbose] > │ let v166 : float = v149 + v159 │
00:07:56 #48782 [verbose] > │ let v167 : float = v146 + v156 │
00:07:56 #48783 [verbose] > │ let v168 : float = v147 + v157 │
00:07:56 #48784 [verbose] > │ let v169 : float = v148 + v158 │
00:07:56 #48785 [verbose] > │ let v170 : float = v150 + v160 │
00:07:56 #48786 [verbose] > │ let v171 : float = v151 + v161 │
00:07:56 #48787 [verbose] > │ let v172 : float = v152 + v162 │
00:07:56 #48788 [verbose] > │ let v173 : (unit -> UH1) = closure20(v163, v153) │
00:07:56 #48789 [verbose] > │ UH1_0(v164, v165, v167, v168, v169, v166, v170, v171, v172, │
00:07:56 #48790 [verbose] > │ v173) │
00:07:56 #48791 [verbose] > │ | UH1_1 -> (* StreamNil *) │
00:07:56 #48792 [verbose] > │ UH1_1 │
00:07:56 #48793 [verbose] > │ | UH1_1 -> (* StreamNil *) │
00:07:56 #48794 [verbose] > │ UH1_1 │
00:07:56 #48795 [verbose] > │ let v217 : UH1 = │
00:07:56 #48796 [verbose] > │ match v180 with │
00:07:56 #48797 [verbose] > │ | UH1_0(v181, v182, v183, v184, v185, v186, v187, v188, v189, v190) │
00:07:56 #48798 [verbose] > │ -> (* StreamCons *) │
00:07:56 #48799 [verbose] > │ match v50 with │
00:07:56 #48800 [verbose] > │ | UH1_0(v191, v192, v193, v194, v195, v196, v197, v198, v199, │
00:07:56 #48801 [verbose] > │ v200) -> (* StreamCons *) │
00:07:56 #48802 [verbose] > │ let v201 : float = v181 + v191 │
00:07:56 #48803 [verbose] > │ let v202 : float = v182 + v192 │
00:07:56 #48804 [verbose] > │ let v203 : float = v186 + v196 │
00:07:56 #48805 [verbose] > │ let v204 : float = v183 + v193 │
00:07:56 #48806 [verbose] > │ let v205 : float = v184 + v194 │
00:07:56 #48807 [verbose] > │ let v206 : float = v185 + v195 │
00:07:56 #48808 [verbose] > │ let v207 : float = v187 + v197 │
00:07:56 #48809 [verbose] > │ let v208 : float = v188 + v198 │
00:07:56 #48810 [verbose] > │ let v209 : float = v189 + v199 │
00:07:56 #48811 [verbose] > │ let v210 : (unit -> UH1) = closure20(v200, v190) │
00:07:56 #48812 [verbose] > │ UH1_0(v201, v202, v204, v205, v206, v203, v207, v208, v209, │
00:07:56 #48813 [verbose] > │ v210) │
00:07:56 #48814 [verbose] > │ | UH1_1 -> (* StreamNil *) │
00:07:56 #48815 [verbose] > │ UH1_1 │
00:07:56 #48816 [verbose] > │ | UH1_1 -> (* StreamNil *) │
00:07:56 #48817 [verbose] > │ UH1_1 │
00:07:56 #48818 [verbose] > │ let v254 : UH1 = │
00:07:56 #48819 [verbose] > │ match v217 with │
00:07:56 #48820 [verbose] > │ | UH1_0(v218, v219, v220, v221, v222, v223, v224, v225, v226, v227) │
00:07:56 #48821 [verbose] > │ -> (* StreamCons *) │
00:07:56 #48822 [verbose] > │ match v96 with │
00:07:56 #48823 [verbose] > │ | UH1_0(v228, v229, v230, v231, v232, v233, v234, v235, v236, │
00:07:56 #48824 [verbose] > │ v237) -> (* StreamCons *) │
00:07:56 #48825 [verbose] > │ let v238 : float = v218 + v228 │
00:07:56 #48826 [verbose] > │ let v239 : float = v219 + v229 │
00:07:56 #48827 [verbose] > │ let v240 : float = v223 + v233 │
00:07:56 #48828 [verbose] > │ let v241 : float = v220 + v230 │
00:07:56 #48829 [verbose] > │ let v242 : float = v221 + v231 │
00:07:56 #48830 [verbose] > │ let v243 : float = v222 + v232 │
00:07:56 #48831 [verbose] > │ let v244 : float = v224 + v234 │
00:07:56 #48832 [verbose] > │ let v245 : float = v225 + v235 │
00:07:56 #48833 [verbose] > │ let v246 : float = v226 + v236 │
00:07:56 #48834 [verbose] > │ let v247 : (unit -> UH1) = closure20(v237, v227) │
00:07:56 #48835 [verbose] > │ UH1_0(v238, v239, v241, v242, v243, v240, v244, v245, v246, │
00:07:56 #48836 [verbose] > │ v247) │
00:07:56 #48837 [verbose] > │ | UH1_1 -> (* StreamNil *) │
00:07:56 #48838 [verbose] > │ UH1_1 │
00:07:56 #48839 [verbose] > │ | UH1_1 -> (* StreamNil *) │
00:07:56 #48840 [verbose] > │ UH1_1 │
00:07:56 #48841 [verbose] > │ let v291 : UH1 = │
00:07:56 #48842 [verbose] > │ match v254 with │
00:07:56 #48843 [verbose] > │ | UH1_0(v255, v256, v257, v258, v259, v260, v261, v262, v263, v264) │
00:07:56 #48844 [verbose] > │ -> (* StreamCons *) │
00:07:56 #48845 [verbose] > │ match v96 with │
00:07:56 #48846 [verbose] > │ | UH1_0(v265, v266, v267, v268, v269, v270, v271, v272, v273, │
00:07:56 #48847 [verbose] > │ v274) -> (* StreamCons *) │
00:07:56 #48848 [verbose] > │ let v275 : float = v255 + v265 │
00:07:56 #48849 [verbose] > │ let v276 : float = v256 + v266 │
00:07:56 #48850 [verbose] > │ let v277 : float = v260 + v270 │
00:07:56 #48851 [verbose] > │ let v278 : float = v257 + v267 │
00:07:56 #48852 [verbose] > │ let v279 : float = v258 + v268 │
00:07:56 #48853 [verbose] > │ let v280 : float = v259 + v269 │
00:07:56 #48854 [verbose] > │ let v281 : float = v261 + v271 │
00:07:56 #48855 [verbose] > │ let v282 : float = v262 + v272 │
00:07:56 #48856 [verbose] > │ let v283 : float = v263 + v273 │
00:07:56 #48857 [verbose] > │ let v284 : (unit -> UH1) = closure20(v274, v264) │
00:07:56 #48858 [verbose] > │ UH1_0(v275, v276, v278, v279, v280, v277, v281, v282, v283, │
00:07:56 #48859 [verbose] > │ v284) │
00:07:56 #48860 [verbose] > │ | UH1_1 -> (* StreamNil *) │
00:07:56 #48861 [verbose] > │ UH1_1 │
00:07:56 #48862 [verbose] > │ | UH1_1 -> (* StreamNil *) │
00:07:56 #48863 [verbose] > │ UH1_1 │
00:07:56 #48864 [verbose] > │ let v328 : UH1 = │
00:07:56 #48865 [verbose] > │ match v291 with │
00:07:56 #48866 [verbose] > │ | UH1_0(v292, v293, v294, v295, v296, v297, v298, v299, v300, v301) │
00:07:56 #48867 [verbose] > │ -> (* StreamCons *) │
00:07:56 #48868 [verbose] > │ match v142 with │
00:07:56 #48869 [verbose] > │ | UH1_0(v302, v303, v304, v305, v306, v307, v308, v309, v310, │
00:07:56 #48870 [verbose] > │ v311) -> (* StreamCons *) │
00:07:56 #48871 [verbose] > │ let v312 : float = v292 + v302 │
00:07:56 #48872 [verbose] > │ let v313 : float = v293 + v303 │
00:07:56 #48873 [verbose] > │ let v314 : float = v297 + v307 │
00:07:56 #48874 [verbose] > │ let v315 : float = v294 + v304 │
00:07:56 #48875 [verbose] > │ let v316 : float = v295 + v305 │
00:07:56 #48876 [verbose] > │ let v317 : float = v296 + v306 │
00:07:56 #48877 [verbose] > │ let v318 : float = v298 + v308 │
00:07:56 #48878 [verbose] > │ let v319 : float = v299 + v309 │
00:07:56 #48879 [verbose] > │ let v320 : float = v300 + v310 │
00:07:56 #48880 [verbose] > │ let v321 : (unit -> UH1) = closure20(v311, v301) │
00:07:56 #48881 [verbose] > │ UH1_0(v312, v313, v315, v316, v317, v314, v318, v319, v320, │
00:07:56 #48882 [verbose] > │ v321) │
00:07:56 #48883 [verbose] > │ | UH1_1 -> (* StreamNil *) │
00:07:56 #48884 [verbose] > │ UH1_1 │
00:07:56 #48885 [verbose] > │ | UH1_1 -> (* StreamNil *) │
00:07:56 #48886 [verbose] > │ UH1_1 │
00:07:56 #48887 [verbose] > │ let v370 : UH0 = │
00:07:56 #48888 [verbose] > │ match v328 with │
00:07:56 #48889 [verbose] > │ | UH1_0(v329, v330, v331, v332, v333, v334, v335, v336, v337, v338) │
00:07:56 #48890 [verbose] > │ -> (* StreamCons *) │
00:07:56 #48891 [verbose] > │ match v2 with │
00:07:56 #48892 [verbose] > │ | UH0_0(v339, v340, v341, v342, v343, v344, v345, v346, v347, │
00:07:56 #48893 [verbose] > │ v348) -> (* StreamCons *) │
00:07:56 #48894 [verbose] > │ let v349 : float = v334 * v143 │
00:07:56 #48895 [verbose] > │ let v350 : float = v344 + v349 │
00:07:56 #48896 [verbose] > │ let v351 : float = v143 * v331 │
00:07:56 #48897 [verbose] > │ let v352 : float = v143 * v332 │
00:07:56 #48898 [verbose] > │ let v353 : float = v143 * v333 │
00:07:56 #48899 [verbose] > │ let v354 : float = v341 + v351 │
00:07:56 #48900 [verbose] > │ let v355 : float = v342 + v352 │
00:07:56 #48901 [verbose] > │ let v356 : float = v343 + v353 │
00:07:56 #48902 [verbose] > │ let v357 : float = v143 * v335 │
00:07:56 #48903 [verbose] > │ let v358 : float = v143 * v336 │
00:07:56 #48904 [verbose] > │ let v359 : float = v143 * v337 │
00:07:56 #48905 [verbose] > │ let v360 : float = v345 + v357 │
00:07:56 #48906 [verbose] > │ let v361 : float = v346 + v358 │
00:07:56 #48907 [verbose] > │ let v362 : float = v347 + v359 │
00:07:56 #48908 [verbose] > │ let v363 : (unit -> UH0) = closure3(v143, v348, v338) │
00:07:56 #48909 [verbose] > │ UH0_0(v339, v340, v354, v355, v356, v350, v360, v361, v362, │
00:07:56 #48910 [verbose] > │ v363) │
00:07:56 #48911 [verbose] > │ | UH0_1 -> (* StreamNil *) │
00:07:56 #48912 [verbose] > │ UH0_1 │
00:07:56 #48913 [verbose] > │ | UH1_1 -> (* StreamNil *) │
00:07:56 #48914 [verbose] > │ UH0_1 │
00:07:56 #48915 [verbose] > │ let v371 : (unit -> UH0) = closure4(v370) │
00:07:56 #48916 [verbose] > │ let v372 : (unit -> UH0) = method1(v370, v371) │
00:07:56 #48917 [verbose] > │ let v373 : UH0 = v372 () │
00:07:56 #48918 [verbose] > │ v373 │
00:07:56 #48919 [verbose] > │ and closure18 (v0 : float) (v1 : (UH0 -> UH1)) : (UH0 -> UH0) = │
00:07:56 #48920 [verbose] > │ closure19(v0, v1) │
00:07:56 #48921 [verbose] > │ and closure17 () (v0 : float) : ((UH0 -> UH1) -> (UH0 -> UH0)) = │
00:07:56 #48922 [verbose] > │ closure18(v0) │
00:07:56 #48923 [verbose] > │ and method17 (v0 : UH4, v1 : UH6) : UH6 = │
00:07:56 #48924 [verbose] > │ match v0 with │
00:07:56 #48925 [verbose] > │ | UH4_1(v2, v3) -> (* Cons *) │
00:07:56 #48926 [verbose] > │ let v4 : UH6 = method17(v3, v1) │
00:07:56 #48927 [verbose] > │ let v5 : int32 = 0 │
00:07:56 #48928 [verbose] > │ let v6 : US2 = method6(v5, v2) │
00:07:56 #48929 [verbose] > │ let v23 : US3 = │
00:07:56 #48930 [verbose] > │ match v6 with │
00:07:56 #48931 [verbose] > │ | US2_1 -> (* None *) │
00:07:56 #48932 [verbose] > │ US3_1 │
00:07:56 #48933 [verbose] > │ | US2_0(v7, v8, v9, v10, v11, v12, v13, v14, v15) -> (* Some *) │
00:07:56 #48934 [verbose] > │ let v16 : UH7 = UH7_1 │
00:07:56 #48935 [verbose] > │ let v17 : UH7 = method12(v2, v16) │
00:07:56 #48936 [verbose] > │ let v18 : float = 0.0 │
00:07:56 #48937 [verbose] > │ let v19 : float = method13(v17, v18) │
00:07:56 #48938 [verbose] > │ US3_0(v12, v19) │
00:07:56 #48939 [verbose] > │ UH6_1(v23, v4) │
00:07:56 #48940 [verbose] > │ | UH4_0 -> (* Nil *) │
00:07:56 #48941 [verbose] > │ v1 │
00:07:56 #48942 [verbose] > │ and method19 (v0 : UH9, v1 : int32) : int32 = │
00:07:56 #48943 [verbose] > │ match v0 with │
00:07:56 #48944 [verbose] > │ | UH9_1(v2, v3) -> (* Cons *) │
00:07:56 #48945 [verbose] > │ let v4 : int32 = v1 + 1 │
00:07:56 #48946 [verbose] > │ method19(v3, v4) │
00:07:56 #48947 [verbose] > │ | UH9_0 -> (* Nil *) │
00:07:56 #48948 [verbose] > │ v1 │
00:07:56 #48949 [verbose] > │ and method20 (v0 : (float []), v1 : UH9, v2 : int32) : int32 = │
00:07:56 #48950 [verbose] > │ match v1 with │
00:07:56 #48951 [verbose] > │ | UH9_1(v3, v4) -> (* Cons *) │
00:07:56 #48952 [verbose] > │ v0.[int v2] <- v3 │
00:07:56 #48953 [verbose] > │ let v5 : int32 = v2 + 1 │
00:07:56 #48954 [verbose] > │ method20(v0, v4, v5) │
00:07:56 #48955 [verbose] > │ | UH9_0 -> (* Nil *) │
00:07:56 #48956 [verbose] > │ v2 │
00:07:56 #48957 [verbose] > │ and method18 (v0 : UH9) : (float []) = │
00:07:56 #48958 [verbose] > │ let v1 : int32 = 0 │
00:07:56 #48959 [verbose] > │ let v2 : int32 = method19(v0, v1) │
00:07:56 #48960 [verbose] > │ let v3 : (float []) = Array.zeroCreate<float> (v2) │
00:07:56 #48961 [verbose] > │ let v4 : int32 = 0 │
00:07:56 #48962 [verbose] > │ let v5 : int32 = method20(v3, v0, v4) │
00:07:56 #48963 [verbose] > │ v3 │
00:07:56 #48964 [verbose] > │ and method0 () : struct (string * string * string * (struct (string * (float │
00:07:56 #48965 [verbose] > │ []) * (float [])) [])) = │
00:07:56 #48966 [verbose] > │ let v0 : (float -> ((UH0 -> UH1) -> (UH0 -> UH0))) = closure0() │
00:07:56 #48967 [verbose] > │ let v1 : ((UH0 -> UH1) -> (UH0 -> UH0)) = v0 0.03 │
00:07:56 #48968 [verbose] > │ let v2 : (UH0 -> UH1) = closure8() │
00:07:56 #48969 [verbose] > │ let v3 : (UH0 -> UH0) = v1 v2 │
00:07:56 #48970 [verbose] > │ let v4 : UH4 = UH4_0 │
00:07:56 #48971 [verbose] > │ let v5 : int32 = 0 │
00:07:56 #48972 [verbose] > │ let v6 : UH4 = method7(v3, v4, v5) │
00:07:56 #48973 [verbose] > │ let v7 : UH6 = UH6_0 │
00:07:56 #48974 [verbose] > │ let v8 : UH6 = method11(v6, v7) │
00:07:56 #48975 [verbose] > │ let v9 : UH8 = UH8_0 │
00:07:56 #48976 [verbose] > │ let v10 : UH8 = method14(v8, v9) │
00:07:56 #48977 [verbose] > │ let v11 : UH9 = UH9_0 │
00:07:56 #48978 [verbose] > │ let v12 : UH9 = UH9_0 │
00:07:56 #48979 [verbose] > │ let struct (v13 : UH9, v14 : UH9) = method15(v10, v11, v12) │
00:07:56 #48980 [verbose] > │ let v15 : UH9 = UH9_0 │
00:07:56 #48981 [verbose] > │ let v16 : UH9 = method16(v13, v15) │
00:07:56 #48982 [verbose] > │ let v17 : UH9 = UH9_0 │
00:07:56 #48983 [verbose] > │ let v18 : UH9 = method16(v14, v17) │
00:07:56 #48984 [verbose] > │ let v19 : (float -> ((UH0 -> UH1) -> (UH0 -> UH0))) = closure17() │
00:07:56 #48985 [verbose] > │ let v20 : ((UH0 -> UH1) -> (UH0 -> UH0)) = v19 0.03 │
00:07:56 #48986 [verbose] > │ let v21 : (UH0 -> UH0) = v20 v2 │
00:07:56 #48987 [verbose] > │ let v22 : UH4 = UH4_0 │
00:07:56 #48988 [verbose] > │ let v23 : int32 = 0 │
00:07:56 #48989 [verbose] > │ let v24 : UH4 = method7(v21, v22, v23) │
00:07:56 #48990 [verbose] > │ let v25 : UH6 = UH6_0 │
00:07:56 #48991 [verbose] > │ let v26 : UH6 = method17(v24, v25) │
00:07:56 #48992 [verbose] > │ let v27 : UH8 = UH8_0 │
00:07:56 #48993 [verbose] > │ let v28 : UH8 = method14(v26, v27) │
00:07:56 #48994 [verbose] > │ let v29 : UH9 = UH9_0 │
00:07:56 #48995 [verbose] > │ let v30 : UH9 = UH9_0 │
00:07:56 #48996 [verbose] > │ let struct (v31 : UH9, v32 : UH9) = method15(v28, v29, v30) │
00:07:56 #48997 [verbose] > │ let v33 : UH9 = UH9_0 │
00:07:56 #48998 [verbose] > │ let v34 : UH9 = method16(v31, v33) │
00:07:56 #48999 [verbose] > │ let v35 : UH9 = UH9_0 │
00:07:56 #49000 [verbose] > │ let v36 : UH9 = method16(v32, v35) │
00:07:56 #49001 [verbose] > │ let v37 : (float []) = method18(v16) │
00:07:56 #49002 [verbose] > │ let v38 : (float []) = method18(v18) │
00:07:56 #49003 [verbose] > │ let v39 : (float []) = method18(v34) │
00:07:56 #49004 [verbose] > │ let v40 : (float []) = method18(v36) │
00:07:56 #49005 [verbose] > │ let v41 : string = "euler-cromer" │
00:07:56 #49006 [verbose] > │ let v42 : string = "runge-kutta 4" │
00:07:56 #49007 [verbose] > │ let v43 : (struct (string * (float []) * (float [])) []) = [|struct │
00:07:56 #49008 [verbose] > │ (v41, v37, v38); struct (v42, v39, v40)|] │
00:07:56 #49009 [verbose] > │ let v44 : string = "system kinetic energy versus time" │
00:07:56 #49010 [verbose] > │ let v45 : string = "time (s)" │
00:07:56 #49011 [verbose] > │ let v46 : string = "system kinetic energy (j)" │
00:07:56 #49012 [verbose] > │ struct (v44, v45, v46, v43) │
00:07:56 #49013 [verbose] > │ method0() │
00:07:56 #49014 [verbose] > │ │
00:07:56 #49015 [verbose] > │ │
00:07:56 #49016 [verbose] > ╰──────────────────────────────────────────────────────────────────────────────╯
00:07:56 #49017 [verbose] >
00:07:56 #49018 [verbose] > ── markdown ────────────────────────────────────────────────────────────────────
00:07:56 #49019 [verbose] > ╭──────────────────────────────────────────────────────────────────────────────╮
00:07:56 #49020 [verbose] > │ ### wave 2 │
00:07:56 #49021 [verbose] > ╰──────────────────────────────────────────────────────────────────────────────╯
00:07:56 #49022 [verbose] >
00:07:56 #49023 [verbose] > ── spiral ──────────────────────────────────────────────────────────────────────
00:07:56 #49024 [verbose] > // // test
00:07:56 #49025 [verbose] >
00:07:56 #49026 [verbose] > inl linear_spring k re (particle_state st1) (particle_state st2) =
00:07:56 #49027 [verbose] > inl r1 = st1.pos_vec
00:07:56 #49028 [verbose] > inl r2 = st2.pos_vec
00:07:56 #49029 [verbose] > inl r21 = r2 ^-^ r1
00:07:56 #49030 [verbose] > inl r21mag = magnitude r21
00:07:56 #49031 [verbose] > -k * (r21mag - re) *^ r21 ^/ r21mag
00:07:56 #49032 [verbose] >
00:07:56 #49033 [verbose] > inl fixed_linear_spring k re r1 =
00:07:56 #49034 [verbose] > inl (particle_state default_particle_state') = default_particle_state ()
00:07:56 #49035 [verbose] > linear_spring k re (particle_state { default_particle_state' with pos_vec =
00:07:56 #49036 [verbose] > r1 })
00:07:56 #49037 [verbose] >
00:07:56 #49038 [verbose] > inl forces_string () =
00:07:56 #49039 [verbose] > [[
00:07:56 #49040 [verbose] > ExternalForce (0i32, fixed_linear_spring 5384 0 (zero_vec ()))
00:07:56 #49041 [verbose] > ExternalForce (63, fixed_linear_spring 5384 0 (0.65 *^ i_hat ()))
00:07:56 #49042 [verbose] > ]] /@ (
00:07:56 #49043 [verbose] > listm'.init_series 0 59 1
00:07:56 #49044 [verbose] > |> listm.map (fun n => InternalForce (n, n + 1, linear_spring 5384 0))
00:07:56 #49045 [verbose] > )
00:07:56 #49046 [verbose] >
00:07:56 #49047 [verbose] > inl string_update dt =
00:07:56 #49048 [verbose] > update_mps (join runge_kutta_4 dt) (join forces_string ())
00:07:56 #49049 [verbose] >
00:07:56 #49050 [verbose] > inl string_initial_overtone n =
00:07:56 #49051 [verbose] > inl ball_mass = 0.0008293 * 0.65 / 64
00:07:56 #49052 [verbose] > inl (particle_state default_particle_state') = default_particle_state ()
00:07:56 #49053 [verbose] > listm'.init_series 0.01 0.64 0.01
00:07:56 #49054 [verbose] > |> listm.map (fun x =>
00:07:56 #49055 [verbose] > inl y = 0.005 * sin (conv n * pi * x / 0.65)
00:07:56 #49056 [verbose] > particle_state {
00:07:56 #49057 [verbose] > default_particle_state' with
00:07:56 #49058 [verbose] > mass = ball_mass
00:07:56 #49059 [verbose] > pos_vec = x *^ i_hat () ^+^ y *^ j_hat ()
00:07:56 #49060 [verbose] > velocity = zero_vec ()
00:07:56 #49061 [verbose] > }
00:07:56 #49062 [verbose] > )
00:07:56 #49063 [verbose] > |> stream.from_list
00:07:56 #49064 [verbose] > |> multi_particle_state
00:07:56 #49065 [verbose] >
00:07:56 #49066 [verbose] > let main () =
00:07:56 #49067 [verbose] > inl ~frames = listm'.init_series 0 65 1f64 |> stream.from_list
00:07:56 #49068 [verbose] > inl ~initial_state = string_initial_overtone 3i32
00:07:56 #49069 [verbose] > inl frames =
00:07:56 #49070 [verbose] > frames
00:07:56 #49071 [verbose] > |> stream.map (fun n =>
00:07:56 #49072 [verbose] > inl (multi_particle_state sts) =
00:07:56 #49073 [verbose] > stream.iterate (string_update 0.000025) initial_state |>
00:07:56 #49074 [verbose] > stream.item n
00:07:56 #49075 [verbose] > inl x, y =
00:07:56 #49076 [verbose] > [[ zero_vec () ]]
00:07:56 #49077 [verbose] > /@ (sts |> stream.map (fun (particle_state st) => st.pos_vec) |>
00:07:56 #49078 [verbose] > stream.to_list)
00:07:56 #49079 [verbose] > /@ [[ 0.65 *^ i_hat () ]]
00:07:56 #49080 [verbose] > |> listm.map (fun r => r.x, r.y)
00:07:56 #49081 [verbose] > |> stream.from_list
00:07:56 #49082 [verbose] > |> stream.unzip
00:07:56 #49083 [verbose] > inl x : a i32 _ = x |> stream.to_list |> listm.toArray
00:07:56 #49084 [verbose] > inl y : a i32 _ = y |> stream.to_list |> listm.toArray
00:07:56 #49085 [verbose] > x, y
00:07:56 #49086 [verbose] > )
00:07:56 #49087 [verbose] >
00:07:56 #49088 [verbose] > inl plots =
00:07:56 #49089 [verbose] > frames
00:07:56 #49090 [verbose] > |> stream.indexed
00:07:56 #49091 [verbose] > |> stream.map (fun ((n : i32), (x, y)) =>
00:07:56 #49092 [verbose] > "wave",
00:07:56 #49093 [verbose] > "position (m)",
00:07:56 #49094 [verbose] > "displacement (m)",
00:07:56 #49095 [verbose] > ;[[
00:07:56 #49096 [verbose] > ($"$\"{!n}\"" : string), x, y
00:07:56 #49097 [verbose] > ]]
00:07:56 #49098 [verbose] > )
00:07:56 #49099 [verbose] >
00:07:56 #49100 [verbose] > plots |> stream.to_list |> listm.toArray : a i32 _
00:07:56 #49101 [verbose] > Building c:\home\git\polyglot\target\polyglot\spiral_eval\packages\9619ff1cefef93f222896b541d3809e745097edef8b04f8df13536ca1ffe22ee\main.spi
00:08:03 #49102 [verbose] >
00:08:03 #49103 [verbose] > ╭─[ 7.02s - return value ]─────────────────────────────────────────────────────╮
00:08:03 #49104 [verbose] > │ <table><thead><tr><th><i>index</i></th><th>value</th></tr></thead><tbody><tr │
00:08:03 #49105 [verbose] > │ ><td>0</td><td><svg width="640" height="480" viewBox="0 0 640 480" │
00:08:03 #49106 [verbose] > │ xmlns="http://www.w3.org/2000/svg"> │
00:08:03 #49107 [verbose] > │ <rect x="0" y="0" width="640" height="480" opacity="1" fill="#141414" │
00:08:03 #49108 [verbose] > │ stroke="none"/> │
00:08:03 #49109 [verbose] > │ <text x="320" y="10" dy="0.76em" text-anchor="middle" │
00:08:03 #49110 [verbose] > │ font-family="sans-serif" font-size="9.67741935483871" opacity="1" │
00:08:03 #49111 [verbose] > │ fill="#FFFFFF"> │
00:08:03 #49112 [verbose] > │ wave │
00:08:03 #49113 [verbose] > │ </text> │
00:08:03 #49114 [verbose] > │ <line opacity="1" stroke="#323232" stroke-width="1" x1="62" y1="424" x2="62" │
00:08:03 #49115 [verbose] > │ y2="75"/> │
00:08:03 #49116 [verbose] > │ <line opacity="1" stroke="#323232" stroke-width="1" x1="69" y1="424" x2="69" │
00:08:03 #49117 [verbose] > │ y2="75"/> │
00:08:03 #49118 [verbose] > │ <line opacity="1" stroke="#323232" stroke-width="1" x1="77" y1="424" x2="77" │
00:08:03 #49119 [verbose] > │ y2="75"/> │
00:08:03 #49120 [verbose] > │ <line opacity="1" stroke="#323232" stroke-width="1" x1="85" y1="424" │
00:08:03 #49121 [verbose] > │ x2="85... │
00:08:03 #49122 [verbose] > ╰──────────────────────────────────────────────────────────────────────────────╯
00:08:03 #49123 [verbose] >
00:08:03 #49124 [verbose] > ╭─[ 7.06s - stdout ]───────────────────────────────────────────────────────────╮
00:08:03 #49125 [verbose] > │ type UH0 = │
00:08:03 #49126 [verbose] > │ | UH0_0 of float * (unit -> UH0) │
00:08:03 #49127 [verbose] > │ | UH0_1 │
00:08:03 #49128 [verbose] > │ and UH1 = │
00:08:03 #49129 [verbose] > │ | UH1_0 of float * float * float * float * float * float * float * float │
00:08:03 #49130 [verbose] > │ * float * (unit -> UH1) │
00:08:03 #49131 [verbose] > │ | UH1_1 │
00:08:03 #49132 [verbose] > │ and UH2 = │
00:08:03 #49133 [verbose] > │ | UH2_0 of (float []) * (float []) * (unit -> UH2) │
00:08:03 #49134 [verbose] > │ | UH2_1 │
00:08:03 #49135 [verbose] > │ and UH3 = │
00:08:03 #49136 [verbose] > │ | UH3_0 of float * float * float * float * float * float * float * float │
00:08:03 #49137 [verbose] > │ * float * (unit -> UH3) │
00:08:03 #49138 [verbose] > │ | UH3_1 │
00:08:03 #49139 [verbose] > │ and [<Struct>] US0 = │
00:08:03 #49140 [verbose] > │ | US0_0 of f0_0 : (unit -> UH1) │
00:08:03 #49141 [verbose] > │ | US0_1 of f1_0 : UH1 │
00:08:03 #49142 [verbose] > │ and Mut0 = {mutable l0 : US0} │
00:08:03 #49143 [verbose] > │ and [<Struct>] US1 = │
00:08:03 #49144 [verbose] > │ | US1_0 of f0_0 : int32 * f0_1 : (struct (float * float * float * float │
00:08:03 #49145 [verbose] > │ * float * float * float * float * float) -> struct (float * float * float)) │
00:08:03 #49146 [verbose] > │ | US1_1 of f1_0 : int32 * f1_1 : int32 * f1_2 : (struct (float * float * │
00:08:03 #49147 [verbose] > │ float * float * float * float * float * float * float) -> (struct (float * │
00:08:03 #49148 [verbose] > │ float * float * float * float * float * float * float * float) -> struct │
00:08:03 #49149 [verbose] > │ (float * float * float))) │
00:08:03 #49150 [verbose] > │ and UH4 = │
00:08:03 #49151 [verbose] > │ | UH4_0 │
00:08:03 #49152 [verbose] > │ | UH4_1 of US1 * UH4 │
00:08:03 #49153 [verbose] > │ and UH5 = │
00:08:03 #49154 [verbose] > │ | UH5_0 of int32 * float * float * float * float * float * float * float │
00:08:03 #49155 [verbose] > │ * float * float * (unit -> UH5) │
00:08:03 #49156 [verbose] > │ | UH5_1 │
00:08:03 #49157 [verbose] > │ and UH6 = │
00:08:03 #49158 [verbose] > │ | UH6_0 │
00:08:03 #49159 [verbose] > │ | UH6_1 of (struct (float * float * float * float * float * float * │
00:08:03 #49160 [verbose] > │ float * float * float) -> struct (float * float * float)) * UH6 │
00:08:03 #49161 [verbose] > │ and [<Struct>] US2 = │
00:08:03 #49162 [verbose] > │ | US2_0 of f0_0 : (struct (float * float * float * float * float * float │
00:08:03 #49163 [verbose] > │ * float * float * float) -> struct (float * float * float)) │
00:08:03 #49164 [verbose] > │ | US2_1 │
00:08:03 #49165 [verbose] > │ and [<Struct>] US3 = │
00:08:03 #49166 [verbose] > │ | US3_0 of f0_0 : float * f0_1 : float * f0_2 : float * f0_3 : float * │
00:08:03 #49167 [verbose] > │ f0_4 : float * f0_5 : float * f0_6 : float * f0_7 : float * f0_8 : float │
00:08:03 #49168 [verbose] > │ | US3_1 │
00:08:03 #49169 [verbose] > │ and UH7 = │
00:08:03 #49170 [verbose] > │ | UH7_0 │
00:08:03 #49171 [verbose] > │ | UH7_1 of float * float * float * UH7 │
00:08:03 #49172 [verbose] > │ and UH8 = │
00:08:03 #49173 [verbose] > │ | UH8_0 of UH1 * (unit -> UH8) │
00:08:03 #49174 [verbose] > │ | UH8_1 │
00:08:03 #49175 [verbose] > │ and [<Struct>] US4 = │
00:08:03 #49176 [verbose] > │ | US4_0 of f0_0 : UH1 │
00:08:03 #49177 [verbose] > │ | US4_1 │
00:08:03 #49178 [verbose] > │ and UH9 = │
00:08:03 #49179 [verbose] > │ | UH9_0 of float * float * float * (unit -> UH9) │
00:08:03 #49180 [verbose] > │ | UH9_1 │
00:08:03 #49181 [verbose] > │ and UH10 = │
00:08:03 #49182 [verbose] > │ | UH10_0 │
00:08:03 #49183 [verbose] > │ | UH10_1 of float * float * UH10 │
00:08:03 #49184 [verbose] > │ and UH11 = │
00:08:03 #49185 [verbose] > │ | UH11_0 of float * float * (unit -> UH11) │
00:08:03 #49186 [verbose] > │ | UH11_1 │
00:08:03 #49187 [verbose] > │ and UH12 = │
00:08:03 #49188 [verbose] > │ | UH12_0 │
00:08:03 #49189 [verbose] > │ | UH12_1 of float * UH12 │
00:08:03 #49190 [verbose] > │ and UH13 = │
00:08:03 #49191 [verbose] > │ | UH13_0 of int32 * (float []) * (float []) * (unit -> UH13) │
00:08:03 #49192 [verbose] > │ | UH13_1 │
00:08:03 #49193 [verbose] > │ and UH14 = │
00:08:03 #49194 [verbose] > │ | UH14_0 of string * string * string * (struct (string * (float []) * │
00:08:03 #49195 [verbose] > │ (float [])) []) * (unit -> UH14) │
00:08:03 #49196 [verbose] > │ | UH14_1 │
00:08:03 #49197 [verbose] > │ and UH15 = │
00:08:03 #49198 [verbose] > │ | UH15_0 │
00:08:03 #49199 [verbose] > │ | UH15_1 of string * string * string * (struct (string * (float []) * │
00:08:03 #49200 [verbose] > │ (float [])) []) * UH15 │
00:08:03 #49201 [verbose] > │ let rec closure65 () () : UH0 = │
00:08:03 #49202 [verbose] > │ UH0_1 │
00:08:03 #49203 [verbose] > │ and closure64 () () : UH0 = │
00:08:03 #49204 [verbose] > │ let v0 : (unit -> UH0) = closure65() │
00:08:03 #49205 [verbose] > │ UH0_0(65.0, v0) │
00:08:03 #49206 [verbose] > │ and closure63 () () : UH0 = │
00:08:03 #49207 [verbose] > │ let v0 : (unit -> UH0) = closure64() │
00:08:03 #49208 [verbose] > │ UH0_0(64.0, v0) │
00:08:03 #49209 [verbose] > │ and closure62 () () : UH0 = │
00:08:03 #49210 [verbose] > │ let v0 : (unit -> UH0) = closure63() │
00:08:03 #49211 [verbose] > │ UH0_0(63.0, v0) │
00:08:03 #49212 [verbose] > │ and closure61 () () : UH0 = │
00:08:03 #49213 [verbose] > │ let v0 : (unit -> UH0) = closure62() │
00:08:03 #49214 [verbose] > │ UH0_0(62.0, v0) │
00:08:03 #49215 [verbose] > │ and closure60 () () : UH0 = │
00:08:03 #49216 [verbose] > │ let v0 : (unit -> UH0) = closure61() │
00:08:03 #49217 [verbose] > │ UH0_0(61.0, v0) │
00:08:03 #49218 [verbose] > │ and closure59 () () : UH0 = │
00:08:03 #49219 [verbose] > │ let v0 : (unit -> UH0) = closure60() │
00:08:03 #49220 [verbose] > │ UH0_0(60.0, v0) │
00:08:03 #49221 [verbose] > │ and closure58 () () : UH0 = │
00:08:03 #49222 [verbose] > │ let v0 : (unit -> UH0) = closure59() │
00:08:03 #49223 [verbose] > │ UH0_0(59.0, v0) │
00:08:03 #49224 [verbose] > │ and closure57 () () : UH0 = │
00:08:03 #49225 [verbose] > │ let v0 : (unit -> UH0) = closure58() │
00:08:03 #49226 [verbose] > │ UH0_0(58.0, v0) │
00:08:03 #49227 [verbose] > │ and closure56 () () : UH0 = │
00:08:03 #49228 [verbose] > │ let v0 : (unit -> UH0) = closure57() │
00:08:03 #49229 [verbose] > │ UH0_0(57.0, v0) │
00:08:03 #49230 [verbose] > │ and closure55 () () : UH0 = │
00:08:03 #49231 [verbose] > │ let v0 : (unit -> UH0) = closure56() │
00:08:03 #49232 [verbose] > │ UH0_0(56.0, v0) │
00:08:03 #49233 [verbose] > │ and closure54 () () : UH0 = │
00:08:03 #49234 [verbose] > │ let v0 : (unit -> UH0) = closure55() │
00:08:03 #49235 [verbose] > │ UH0_0(55.0, v0) │
00:08:03 #49236 [verbose] > │ and closure53 () () : UH0 = │
00:08:03 #49237 [verbose] > │ let v0 : (unit -> UH0) = closure54() │
00:08:03 #49238 [verbose] > │ UH0_0(54.0, v0) │
00:08:03 #49239 [verbose] > │ and closure52 () () : UH0 = │
00:08:03 #49240 [verbose] > │ let v0 : (unit -> UH0) = closure53() │
00:08:03 #49241 [verbose] > │ UH0_0(53.0, v0) │
00:08:03 #49242 [verbose] > │ and closure51 () () : UH0 = │
00:08:03 #49243 [verbose] > │ let v0 : (unit -> UH0) = closure52() │
00:08:03 #49244 [verbose] > │ UH0_0(52.0, v0) │
00:08:03 #49245 [verbose] > │ and closure50 () () : UH0 = │
00:08:03 #49246 [verbose] > │ let v0 : (unit -> UH0) = closure51() │
00:08:03 #49247 [verbose] > │ UH0_0(51.0, v0) │
00:08:03 #49248 [verbose] > │ and closure49 () () : UH0 = │
00:08:03 #49249 [verbose] > │ let v0 : (unit -> UH0) = closure50() │
00:08:03 #49250 [verbose] > │ UH0_0(50.0, v0) │
00:08:03 #49251 [verbose] > │ and closure48 () () : UH0 = │
00:08:03 #49252 [verbose] > │ let v0 : (unit -> UH0) = closure49() │
00:08:03 #49253 [verbose] > │ UH0_0(49.0, v0) │
00:08:03 #49254 [verbose] > │ and closure47 () () : UH0 = │
00:08:03 #49255 [verbose] > │ let v0 : (unit -> UH0) = closure48() │
00:08:03 #49256 [verbose] > │ UH0_0(48.0, v0) │
00:08:03 #49257 [verbose] > │ and closure46 () () : UH0 = │
00:08:03 #49258 [verbose] > │ let v0 : (unit -> UH0) = closure47() │
00:08:03 #49259 [verbose] > │ UH0_0(47.0, v0) │
00:08:03 #49260 [verbose] > │ and closure45 () () : UH0 = │
00:08:03 #49261 [verbose] > │ let v0 : (unit -> UH0) = closure46() │
00:08:03 #49262 [verbose] > │ UH0_0(46.0, v0) │
00:08:03 #49263 [verbose] > │ and closure44 () () : UH0 = │
00:08:03 #49264 [verbose] > │ let v0 : (unit -> UH0) = closure45() │
00:08:03 #49265 [verbose] > │ UH0_0(45.0, v0) │
00:08:03 #49266 [verbose] > │ and closure43 () () : UH0 = │
00:08:03 #49267 [verbose] > │ let v0 : (unit -> UH0) = closure44() │
00:08:03 #49268 [verbose] > │ UH0_0(44.0, v0) │
00:08:03 #49269 [verbose] > │ and closure42 () () : UH0 = │
00:08:03 #49270 [verbose] > │ let v0 : (unit -> UH0) = closure43() │
00:08:03 #49271 [verbose] > │ UH0_0(43.0, v0) │
00:08:03 #49272 [verbose] > │ and closure41 () () : UH0 = │
00:08:03 #49273 [verbose] > │ let v0 : (unit -> UH0) = closure42() │
00:08:03 #49274 [verbose] > │ UH0_0(42.0, v0) │
00:08:03 #49275 [verbose] > │ and closure40 () () : UH0 = │
00:08:03 #49276 [verbose] > │ let v0 : (unit -> UH0) = closure41() │
00:08:03 #49277 [verbose] > │ UH0_0(41.0, v0) │
00:08:03 #49278 [verbose] > │ and closure39 () () : UH0 = │
00:08:03 #49279 [verbose] > │ let v0 : (unit -> UH0) = closure40() │
00:08:03 #49280 [verbose] > │ UH0_0(40.0, v0) │
00:08:03 #49281 [verbose] > │ and closure38 () () : UH0 = │
00:08:03 #49282 [verbose] > │ let v0 : (unit -> UH0) = closure39() │
00:08:03 #49283 [verbose] > │ UH0_0(39.0, v0) │
00:08:03 #49284 [verbose] > │ and closure37 () () : UH0 = │
00:08:03 #49285 [verbose] > │ let v0 : (unit -> UH0) = closure38() │
00:08:03 #49286 [verbose] > │ UH0_0(38.0, v0) │
00:08:03 #49287 [verbose] > │ and closure36 () () : UH0 = │
00:08:03 #49288 [verbose] > │ let v0 : (unit -> UH0) = closure37() │
00:08:03 #49289 [verbose] > │ UH0_0(37.0, v0) │
00:08:03 #49290 [verbose] > │ and closure35 () () : UH0 = │
00:08:03 #49291 [verbose] > │ let v0 : (unit -> UH0) = closure36() │
00:08:03 #49292 [verbose] > │ UH0_0(36.0, v0) │
00:08:03 #49293 [verbose] > │ and closure34 () () : UH0 = │
00:08:03 #49294 [verbose] > │ let v0 : (unit -> UH0) = closure35() │
00:08:03 #49295 [verbose] > │ UH0_0(35.0, v0) │
00:08:03 #49296 [verbose] > │ and closure33 () () : UH0 = │
00:08:03 #49297 [verbose] > │ let v0 : (unit -> UH0) = closure34() │
00:08:03 #49298 [verbose] > │ UH0_0(34.0, v0) │
00:08:03 #49299 [verbose] > │ and closure32 () () : UH0 = │
00:08:03 #49300 [verbose] > │ let v0 : (unit -> UH0) = closure33() │
00:08:03 #49301 [verbose] > │ UH0_0(33.0, v0) │
00:08:03 #49302 [verbose] > │ and closure31 () () : UH0 = │
00:08:03 #49303 [verbose] > │ let v0 : (unit -> UH0) = closure32() │
00:08:03 #49304 [verbose] > │ UH0_0(32.0, v0) │
00:08:03 #49305 [verbose] > │ and closure30 () () : UH0 = │
00:08:03 #49306 [verbose] > │ let v0 : (unit -> UH0) = closure31() │
00:08:03 #49307 [verbose] > │ UH0_0(31.0, v0) │
00:08:03 #49308 [verbose] > │ and closure29 () () : UH0 = │
00:08:03 #49309 [verbose] > │ let v0 : (unit -> UH0) = closure30() │
00:08:03 #49310 [verbose] > │ UH0_0(30.0, v0) │
00:08:03 #49311 [verbose] > │ and closure28 () () : UH0 = │
00:08:03 #49312 [verbose] > │ let v0 : (unit -> UH0) = closure29() │
00:08:03 #49313 [verbose] > │ UH0_0(29.0, v0) │
00:08:03 #49314 [verbose] > │ and closure27 () () : UH0 = │
00:08:03 #49315 [verbose] > │ let v0 : (unit -> UH0) = closure28() │
00:08:03 #49316 [verbose] > │ UH0_0(28.0, v0) │
00:08:03 #49317 [verbose] > │ and closure26 () () : UH0 = │
00:08:03 #49318 [verbose] > │ let v0 : (unit -> UH0) = closure27() │
00:08:03 #49319 [verbose] > │ UH0_0(27.0, v0) │
00:08:03 #49320 [verbose] > │ and closure25 () () : UH0 = │
00:08:03 #49321 [verbose] > │ let v0 : (unit -> UH0) = closure26() │
00:08:03 #49322 [verbose] > │ UH0_0(26.0, v0) │
00:08:03 #49323 [verbose] > │ and closure24 () () : UH0 = │
00:08:03 #49324 [verbose] > │ let v0 : (unit -> UH0) = closure25() │
00:08:03 #49325 [verbose] > │ UH0_0(25.0, v0) │
00:08:03 #49326 [verbose] > │ and closure23 () () : UH0 = │
00:08:03 #49327 [verbose] > │ let v0 : (unit -> UH0) = closure24() │
00:08:03 #49328 [verbose] > │ UH0_0(24.0, v0) │
00:08:03 #49329 [verbose] > │ and closure22 () () : UH0 = │
00:08:03 #49330 [verbose] > │ let v0 : (unit -> UH0) = closure23() │
00:08:03 #49331 [verbose] > │ UH0_0(23.0, v0) │
00:08:03 #49332 [verbose] > │ and closure21 () () : UH0 = │
00:08:03 #49333 [verbose] > │ let v0 : (unit -> UH0) = closure22() │
00:08:03 #49334 [verbose] > │ UH0_0(22.0, v0) │
00:08:03 #49335 [verbose] > │ and closure20 () () : UH0 = │
00:08:03 #49336 [verbose] > │ let v0 : (unit -> UH0) = closure21() │
00:08:03 #49337 [verbose] > │ UH0_0(21.0, v0) │
00:08:03 #49338 [verbose] > │ and closure19 () () : UH0 = │
00:08:03 #49339 [verbose] > │ let v0 : (unit -> UH0) = closure20() │
00:08:03 #49340 [verbose] > │ UH0_0(20.0, v0) │
00:08:03 #49341 [verbose] > │ and closure18 () () : UH0 = │
00:08:03 #49342 [verbose] > │ let v0 : (unit -> UH0) = closure19() │
00:08:03 #49343 [verbose] > │ UH0_0(19.0, v0) │
00:08:03 #49344 [verbose] > │ and closure17 () () : UH0 = │
00:08:03 #49345 [verbose] > │ let v0 : (unit -> UH0) = closure18() │
00:08:03 #49346 [verbose] > │ UH0_0(18.0, v0) │
00:08:03 #49347 [verbose] > │ and closure16 () () : UH0 = │
00:08:03 #49348 [verbose] > │ let v0 : (unit -> UH0) = closure17() │
00:08:03 #49349 [verbose] > │ UH0_0(17.0, v0) │
00:08:03 #49350 [verbose] > │ and closure15 () () : UH0 = │
00:08:03 #49351 [verbose] > │ let v0 : (unit -> UH0) = closure16() │
00:08:03 #49352 [verbose] > │ UH0_0(16.0, v0) │
00:08:03 #49353 [verbose] > │ and closure14 () () : UH0 = │
00:08:03 #49354 [verbose] > │ let v0 : (unit -> UH0) = closure15() │
00:08:03 #49355 [verbose] > │ UH0_0(15.0, v0) │
00:08:03 #49356 [verbose] > │ and closure13 () () : UH0 = │
00:08:03 #49357 [verbose] > │ let v0 : (unit -> UH0) = closure14() │
00:08:03 #49358 [verbose] > │ UH0_0(14.0, v0) │
00:08:03 #49359 [verbose] > │ and closure12 () () : UH0 = │
00:08:03 #49360 [verbose] > │ let v0 : (unit -> UH0) = closure13() │
00:08:03 #49361 [verbose] > │ UH0_0(13.0, v0) │
00:08:03 #49362 [verbose] > │ and closure11 () () : UH0 = │
00:08:03 #49363 [verbose] > │ let v0 : (unit -> UH0) = closure12() │
00:08:03 #49364 [verbose] > │ UH0_0(12.0, v0) │
00:08:03 #49365 [verbose] > │ and closure10 () () : UH0 = │
00:08:03 #49366 [verbose] > │ let v0 : (unit -> UH0) = closure11() │
00:08:03 #49367 [verbose] > │ UH0_0(11.0, v0) │
00:08:03 #49368 [verbose] > │ and closure9 () () : UH0 = │
00:08:03 #49369 [verbose] > │ let v0 : (unit -> UH0) = closure10() │
00:08:03 #49370 [verbose] > │ UH0_0(10.0, v0) │
00:08:03 #49371 [verbose] > │ and closure8 () () : UH0 = │
00:08:03 #49372 [verbose] > │ let v0 : (unit -> UH0) = closure9() │
00:08:03 #49373 [verbose] > │ UH0_0(9.0, v0) │
00:08:03 #49374 [verbose] > │ and closure7 () () : UH0 = │
00:08:03 #49375 [verbose] > │ let v0 : (unit -> UH0) = closure8() │
00:08:03 #49376 [verbose] > │ UH0_0(8.0, v0) │
00:08:03 #49377 [verbose] > │ and closure6 () () : UH0 = │
00:08:03 #49378 [verbose] > │ let v0 : (unit -> UH0) = closure7() │
00:08:03 #49379 [verbose] > │ UH0_0(7.0, v0) │
00:08:03 #49380 [verbose] > │ and closure5 () () : UH0 = │
00:08:03 #49381 [verbose] > │ let v0 : (unit -> UH0) = closure6() │
00:08:03 #49382 [verbose] > │ UH0_0(6.0, v0) │
00:08:03 #49383 [verbose] > │ and closure4 () () : UH0 = │
00:08:03 #49384 [verbose] > │ let v0 : (unit -> UH0) = closure5() │
00:08:03 #49385 [verbose] > │ UH0_0(5.0, v0) │
00:08:03 #49386 [verbose] > │ and closure3 () () : UH0 = │
00:08:03 #49387 [verbose] > │ let v0 : (unit -> UH0) = closure4() │
00:08:03 #49388 [verbose] > │ UH0_0(4.0, v0) │
00:08:03 #49389 [verbose] > │ and closure2 () () : UH0 = │
00:08:03 #49390 [verbose] > │ let v0 : (unit -> UH0) = closure3() │
00:08:03 #49391 [verbose] > │ UH0_0(3.0, v0) │
00:08:03 #49392 [verbose] > │ and closure1 () () : UH0 = │
00:08:03 #49393 [verbose] > │ let v0 : (unit -> UH0) = closure2() │
00:08:03 #49394 [verbose] > │ UH0_0(2.0, v0) │
00:08:03 #49395 [verbose] > │ and closure0 () () : UH0 = │
00:08:03 #49396 [verbose] > │ let v0 : (unit -> UH0) = closure1() │
00:08:03 #49397 [verbose] > │ UH0_0(1.0, v0) │
00:08:03 #49398 [verbose] > │ and closure129 () () : UH1 = │
00:08:03 #49399 [verbose] > │ UH1_1 │
00:08:03 #49400 [verbose] > │ and closure128 () () : UH1 = │
00:08:03 #49401 [verbose] > │ let v0 : (unit -> UH1) = closure129() │
00:08:03 #49402 [verbose] > │ UH1_0(0.0, 8.422578125E-06, 0.64, 0.0007224452478461016, 0.0, 0.0, 0.0, │
00:08:03 #49403 [verbose] > │ 0.0, 0.0, v0) │
00:08:03 #49404 [verbose] > │ and closure127 () () : UH1 = │
00:08:03 #49405 [verbose] > │ let v0 : (unit -> UH1) = closure128() │
00:08:03 #49406 [verbose] > │ UH1_0(0.0, 8.422578125E-06, 0.63, 0.001429728391993452, 0.0, 0.0, 0.0, │
00:08:03 #49407 [verbose] > │ 0.0, 0.0, v0) │
00:08:03 #49408 [verbose] > │ and closure126 () () : UH1 = │
00:08:03 #49409 [verbose] > │ let v0 : (unit -> UH1) = closure127() │
00:08:03 #49410 [verbose] > │ UH1_0(0.0, 8.422578125E-06, 0.62, 0.0021070055388626528, 0.0, 0.0, 0.0, │
00:08:03 #49411 [verbose] > │ 0.0, 0.0, v0) │
00:08:03 #49412 [verbose] > │ and closure125 () () : UH1 = │
00:08:03 #49413 [verbose] > │ let v0 : (unit -> UH1) = closure126() │
00:08:03 #49414 [verbose] > │ UH1_0(0.0, 8.422578125E-06, 0.61, 0.0027400625367733585, 0.0, 0.0, 0.0, │
00:08:03 #49415 [verbose] > │ 0.0, 0.0, v0) │
00:08:03 #49416 [verbose] > │ and closure124 () () : UH1 = │
00:08:03 #49417 [verbose] > │ let v0 : (unit -> UH1) = closure125() │
00:08:03 #49418 [verbose] > │ UH1_0(0.0, 8.422578125E-06, 0.6, 0.0033156132912039783, 0.0, 0.0, 0.0, │
00:08:03 #49419 [verbose] > │ 0.0, 0.0, v0) │
00:08:03 #49420 [verbose] > │ and closure123 () () : UH1 = │
00:08:03 #49421 [verbose] > │ let v0 : (unit -> UH1) = closure124() │
00:08:03 #49422 [verbose] > │ UH1_0(0.0, 8.422578125E-06, 0.59, 0.003821578602729245, 0.0, 0.0, 0.0, │
00:08:03 #49423 [verbose] > │ 0.0, 0.0, v0) │
00:08:03 #49424 [verbose] > │ and closure122 () () : UH1 = │
00:08:03 #49425 [verbose] > │ let v0 : (unit -> UH1) = closure123() │
00:08:03 #49426 [verbose] > │ UH1_0(0.0, 8.422578125E-06, 0.5800000000000001, 0.004247339675607605, │
00:08:03 #49427 [verbose] > │ 0.0, 0.0, 0.0, 0.0, 0.0, v0) │
00:08:03 #49428 [verbose] > │ and closure121 () () : UH1 = │
00:08:03 #49429 [verbose] > │ let v0 : (unit -> UH1) = closure122() │
00:08:03 #49430 [verbose] > │ UH1_0(0.0, 8.422578125E-06, 0.5700000000000001, 0.004583960976582912, │
00:08:03 #49431 [verbose] > │ 0.0, 0.0, 0.0, 0.0, 0.0, v0) │
00:08:03 #49432 [verbose] > │ and closure120 () () : UH1 = │
00:08:03 #49433 [verbose] > │ let v0 : (unit -> UH1) = closure121() │
00:08:03 #49434 [verbose] > │ UH1_0(0.0, 8.422578125E-06, 0.56, 0.004824377766717758, 0.0, 0.0, 0.0, │
00:08:03 #49435 [verbose] > │ 0.0, 0.0, v0) │
00:08:03 #49436 [verbose] > │ and closure119 () () : UH1 = │
00:08:03 #49437 [verbose] > │ let v0 : (unit -> UH1) = closure120() │
00:08:03 #49438 [verbose] > │ UH1_0(0.0, 8.422578125E-06, 0.55, 0.004963544370490271, 0.0, 0.0, 0.0, │
00:08:03 #49439 [verbose] > │ 0.0, 0.0, v0) │
00:08:03 #49440 [verbose] > │ and closure118 () () : UH1 = │
00:08:03 #49441 [verbose] > │ let v0 : (unit -> UH1) = closure119() │
00:08:03 #49442 [verbose] > │ UH1_0(0.0, 8.422578125E-06, 0.54, 0.004998540070400965, 0.0, 0.0, 0.0, │
00:08:03 #49443 [verbose] > │ 0.0, 0.0, v0) │
00:08:03 #49444 [verbose] > │ and closure117 () () : UH1 = │
00:08:03 #49445 [verbose] > │ let v0 : (unit -> UH1) = closure118() │
00:08:03 #49446 [verbose] > │ UH1_0(0.0, 8.422578125E-06, 0.53, 0.004928630404658255, 0.0, 0.0, 0.0, │
00:08:03 #49447 [verbose] > │ 0.0, 0.0, v0) │
00:08:03 #49448 [verbose] > │ and closure116 () () : UH1 = │
00:08:03 #49449 [verbose] > │ let v0 : (unit -> UH1) = closure117() │
00:08:03 #49450 [verbose] > │ UH1_0(0.0, 8.422578125E-06, 0.52, 0.004755282581475766, 0.0, 0.0, 0.0, │
00:08:03 #49451 [verbose] > │ 0.0, 0.0, v0) │
00:08:03 #49452 [verbose] > │ and closure115 () () : UH1 = │
00:08:03 #49453 [verbose] > │ let v0 : (unit -> UH1) = closure116() │
00:08:03 #49454 [verbose] > │ UH1_0(0.0, 8.422578125E-06, 0.51, 0.0044821346864785195, 0.0, 0.0, 0.0, │
00:08:03 #49455 [verbose] > │ 0.0, 0.0, v0) │
00:08:03 #49456 [verbose] > │ and closure114 () () : UH1 = │
00:08:03 #49457 [verbose] > │ let v0 : (unit -> UH1) = closure115() │
00:08:03 #49458 [verbose] > │ UH1_0(0.0, 8.422578125E-06, 0.5, 0.0041149193294682815, 0.0, 0.0, 0.0, │
00:08:03 #49459 [verbose] > │ 0.0, 0.0, v0) │
00:08:03 #49460 [verbose] > │ and closure113 () () : UH1 = │
00:08:03 #49461 [verbose] > │ let v0 : (unit -> UH1) = closure114() │
00:08:03 #49462 [verbose] > │ UH1_0(0.0, 8.422578125E-06, 0.49, 0.0036613433329888622, 0.0, 0.0, 0.0, │
00:08:03 #49463 [verbose] > │ 0.0, 0.0, v0) │
00:08:03 #49464 [verbose] > │ and closure112 () () : UH1 = │
00:08:03 #49465 [verbose] > │ let v0 : (unit -> UH1) = closure113() │
00:08:03 #49466 [verbose] > │ UH1_0(0.0, 8.422578125E-06, 0.48000000000000004, 0.003130925987691568, │
00:08:03 #49467 [verbose] > │ 0.0, 0.0, 0.0, 0.0, 0.0, v0) │
00:08:03 #49468 [verbose] > │ and closure111 () () : UH1 = │
00:08:03 #49469 [verbose] > │ let v0 : (unit -> UH1) = closure112() │
00:08:03 #49470 [verbose] > │ UH1_0(0.0, 8.422578125E-06, 0.47000000000000003, 0.002534799269067953, │
00:08:03 #49471 [verbose] > │ 0.0, 0.0, 0.0, 0.0, 0.0, v0) │
00:08:03 #49472 [verbose] > │ and closure110 () () : UH1 = │
00:08:03 #49473 [verbose] > │ let v0 : (unit -> UH1) = closure111() │
00:08:03 #49474 [verbose] > │ UH1_0(0.0, 8.422578125E-06, 0.46, 0.0018854742084416021, 0.0, 0.0, 0.0, │
00:08:03 #49475 [verbose] > │ 0.0, 0.0, v0) │
00:08:03 #49476 [verbose] > │ and closure109 () () : UH1 = │
00:08:03 #49477 [verbose] > │ let v0 : (unit -> UH1) = closure110() │
00:08:03 #49478 [verbose] > │ UH1_0(0.0, 8.422578125E-06, 0.45, 0.0011965783214377866, 0.0, 0.0, 0.0, │
00:08:03 #49479 [verbose] > │ 0.0, 0.0, v0) │
00:08:03 #49480 [verbose] > │ and closure108 () () : UH1 = │
00:08:03 #49481 [verbose] > │ let v0 : (unit -> UH1) = closure109() │
00:08:03 #49482 [verbose] > │ UH1_0(0.0, 8.422578125E-06, 0.44, 0.0004825696045725713, 0.0, 0.0, 0.0, │
00:08:03 #49483 [verbose] > │ 0.0, 0.0, v0) │
00:08:03 #49484 [verbose] > │ and closure107 () () : UH1 = │
00:08:03 #49485 [verbose] > │ let v0 : (unit -> UH1) = closure108() │
00:08:03 #49486 [verbose] > │ UH1_0(0.0, 8.422578125E-06, 0.43, -0.00024156689762753724, 0.0, 0.0, │
00:08:03 #49487 [verbose] > │ 0.0, 0.0, 0.0, v0) │
00:08:03 #49488 [verbose] > │ and closure106 () () : UH1 = │
00:08:03 #49489 [verbose] > │ let v0 : (unit -> UH1) = closure107() │
00:08:03 #49490 [verbose] > │ UH1_0(0.0, 8.422578125E-06, 0.42000000000000004, -0.0009606335867685414, │
00:08:03 #49491 [verbose] > │ 0.0, 0.0, 0.0, 0.0, 0.0, v0) │
00:08:03 #49492 [verbose] > │ and closure105 () () : UH1 = │
00:08:03 #49493 [verbose] > │ let v0 : (unit -> UH1) = closure106() │
00:08:03 #49494 [verbose] > │ UH1_0(0.0, 8.422578125E-06, 0.41000000000000003, -0.0016595392656426435, │
00:08:03 #49495 [verbose] > │ 0.0, 0.0, 0.0, 0.0, 0.0, v0) │
00:08:03 #49496 [verbose] > │ and closure104 () () : UH1 = │
00:08:03 #49497 [verbose] > │ let v0 : (unit -> UH1) = closure105() │
00:08:03 #49498 [verbose] > │ UH1_0(0.0, 8.422578125E-06, 0.4, -0.002323615860218846, 0.0, 0.0, 0.0, │
00:08:03 #49499 [verbose] > │ 0.0, 0.0, v0) │
00:08:03 #49500 [verbose] > │ and closure103 () () : UH1 = │
00:08:03 #49501 [verbose] > │ let v0 : (unit -> UH1) = closure104() │
00:08:03 #49502 [verbose] > │ UH1_0(0.0, 8.422578125E-06, 0.39, -0.002938926261462367, 0.0, 0.0, 0.0, │
00:08:03 #49503 [verbose] > │ 0.0, 0.0, v0) │
00:08:03 #49504 [verbose] > │ and closure102 () () : UH1 = │
00:08:03 #49505 [verbose] > │ let v0 : (unit -> UH1) = closure103() │
00:08:03 #49506 [verbose] > │ UH1_0(0.0, 8.422578125E-06, 0.38, -0.0034925568262446837, 0.0, 0.0, 0.0, │
00:08:03 #49507 [verbose] > │ 0.0, 0.0, v0) │
00:08:03 #49508 [verbose] > │ and closure101 () () : UH1 = │
00:08:03 #49509 [verbose] > │ let v0 : (unit -> UH1) = closure102() │
00:08:03 #49510 [verbose] > │ UH1_0(0.0, 8.422578125E-06, 0.37, -0.003972888398568774, 0.0, 0.0, 0.0, │
00:08:03 #49511 [verbose] > │ 0.0, 0.0, v0) │
00:08:03 #49512 [verbose] > │ and closure100 () () : UH1 = │
00:08:03 #49513 [verbose] > │ let v0 : (unit -> UH1) = closure101() │
00:08:03 #49514 [verbose] > │ UH1_0(0.0, 8.422578125E-06, 0.36000000000000004, -0.004369840163132589, │
00:08:03 #49515 [verbose] > │ 0.0, 0.0, 0.0, 0.0, 0.0, v0) │
00:08:03 #49516 [verbose] > │ and closure99 () () : UH1 = │
00:08:03 #49517 [verbose] > │ let v0 : (unit -> UH1) = closure100() │
00:08:03 #49518 [verbose] > │ UH1_0(0.0, 8.422578125E-06, 0.35000000000000003, -0.004675081213427074, │
00:08:03 #49519 [verbose] > │ 0.0, 0.0, 0.0, 0.0, 0.0, v0) │
00:08:03 #49520 [verbose] > │ and closure98 () () : UH1 = │
00:08:03 #49521 [verbose] > │ let v0 : (unit -> UH1) = closure99() │
00:08:03 #49522 [verbose] > │ UH1_0(0.0, 8.422578125E-06, 0.34, -0.004882205394146361, 0.0, 0.0, 0.0, │
00:08:03 #49523 [verbose] > │ 0.0, 0.0, v0) │
00:08:03 #49524 [verbose] > │ and closure97 () () : UH1 = │
00:08:03 #49525 [verbose] > │ let v0 : (unit -> UH1) = closure98() │
00:08:03 #49526 [verbose] > │ UH1_0(0.0, 8.422578125E-06, 0.33, -0.004986865748457456, 0.0, 0.0, 0.0, │
00:08:03 #49527 [verbose] > │ 0.0, 0.0, v0) │
00:08:03 #49528 [verbose] > │ and closure96 () () : UH1 = │
00:08:03 #49529 [verbose] > │ let v0 : (unit -> UH1) = closure97() │
00:08:03 #49530 [verbose] > │ UH1_0(0.0, 8.422578125E-06, 0.32, -0.004986865748457456, 0.0, 0.0, 0.0, │
00:08:03 #49531 [verbose] > │ 0.0, 0.0, v0) │
00:08:03 #49532 [verbose] > │ and closure95 () () : UH1 = │
00:08:03 #49533 [verbose] > │ let v0 : (unit -> UH1) = closure96() │
00:08:03 #49534 [verbose] > │ UH1_0(0.0, 8.422578125E-06, 0.31, -0.004882205394146359, 0.0, 0.0, 0.0, │
00:08:03 #49535 [verbose] > │ 0.0, 0.0, v0) │
00:08:03 #49536 [verbose] > │ and closure94 () () : UH1 = │
00:08:03 #49537 [verbose] > │ let v0 : (unit -> UH1) = closure95() │
00:08:03 #49538 [verbose] > │ UH1_0(0.0, 8.422578125E-06, 0.3, -0.004675081213427074, 0.0, 0.0, 0.0, │
00:08:03 #49539 [verbose] > │ 0.0, 0.0, v0) │
00:08:03 #49540 [verbose] > │ and closure93 () () : UH1 = │
00:08:03 #49541 [verbose] > │ let v0 : (unit -> UH1) = closure94() │
00:08:03 #49542 [verbose] > │ UH1_0(0.0, 8.422578125E-06, 0.29000000000000004, -0.00436984016313259, │
00:08:03 #49543 [verbose] > │ 0.0, 0.0, 0.0, 0.0, 0.0, v0) │
00:08:03 #49544 [verbose] > │ and closure92 () () : UH1 = │
00:08:03 #49545 [verbose] > │ let v0 : (unit -> UH1) = closure93() │
00:08:03 #49546 [verbose] > │ UH1_0(0.0, 8.422578125E-06, 0.28, -0.003972888398568771, 0.0, 0.0, 0.0, │
00:08:03 #49547 [verbose] > │ 0.0, 0.0, v0) │
00:08:03 #49548 [verbose] > │ and closure91 () () : UH1 = │
00:08:03 #49549 [verbose] > │ let v0 : (unit -> UH1) = closure92() │
00:08:03 #49550 [verbose] > │ UH1_0(0.0, 8.422578125E-06, 0.27, -0.003492556826244686, 0.0, 0.0, 0.0, │
00:08:03 #49551 [verbose] > │ 0.0, 0.0, v0) │
00:08:03 #49552 [verbose] > │ and closure90 () () : UH1 = │
00:08:03 #49553 [verbose] > │ let v0 : (unit -> UH1) = closure91() │
00:08:03 #49554 [verbose] > │ UH1_0(0.0, 8.422578125E-06, 0.26, -0.0029389262614623636, 0.0, 0.0, 0.0, │
00:08:03 #49555 [verbose] > │ 0.0, 0.0, v0) │
00:08:03 #49556 [verbose] > │ and closure89 () () : UH1 = │
00:08:03 #49557 [verbose] > │ let v0 : (unit -> UH1) = closure90() │
00:08:03 #49558 [verbose] > │ UH1_0(0.0, 8.422578125E-06, 0.25, -0.002323615860218842, 0.0, 0.0, 0.0, │
00:08:03 #49559 [verbose] > │ 0.0, 0.0, v0) │
00:08:03 #49560 [verbose] > │ and closure88 () () : UH1 = │
00:08:03 #49561 [verbose] > │ let v0 : (unit -> UH1) = closure89() │
00:08:03 #49562 [verbose] > │ UH1_0(0.0, 8.422578125E-06, 0.24000000000000002, -0.001659539265642642, │
00:08:03 #49563 [verbose] > │ 0.0, 0.0, 0.0, 0.0, 0.0, v0) │
00:08:03 #49564 [verbose] > │ and closure87 () () : UH1 = │
00:08:03 #49565 [verbose] > │ let v0 : (unit -> UH1) = closure88() │
00:08:03 #49566 [verbose] > │ UH1_0(0.0, 8.422578125E-06, 0.23, -0.0009606335867685418, 0.0, 0.0, 0.0, │
00:08:03 #49567 [verbose] > │ 0.0, 0.0, v0) │
00:08:03 #49568 [verbose] > │ and closure86 () () : UH1 = │
00:08:03 #49569 [verbose] > │ let v0 : (unit -> UH1) = closure87() │
00:08:03 #49570 [verbose] > │ UH1_0(0.0, 8.422578125E-06, 0.22, -0.00024156689762753317, 0.0, 0.0, │
00:08:03 #49571 [verbose] > │ 0.0, 0.0, 0.0, v0) │
00:08:03 #49572 [verbose] > │ and closure85 () () : UH1 = │
00:08:03 #49573 [verbose] > │ let v0 : (unit -> UH1) = closure86() │
00:08:03 #49574 [verbose] > │ UH1_0(0.0, 8.422578125E-06, 0.21000000000000002, 0.00048256960457257535, │
00:08:03 #49575 [verbose] > │ 0.0, 0.0, 0.0, 0.0, 0.0, v0) │
00:08:03 #49576 [verbose] > │ and closure84 () () : UH1 = │
00:08:03 #49577 [verbose] > │ let v0 : (unit -> UH1) = closure85() │
00:08:03 #49578 [verbose] > │ UH1_0(0.0, 8.422578125E-06, 0.2, 0.0011965783214377905, 0.0, 0.0, 0.0, │
00:08:03 #49579 [verbose] > │ 0.0, 0.0, v0) │
00:08:03 #49580 [verbose] > │ and closure83 () () : UH1 = │
00:08:03 #49581 [verbose] > │ let v0 : (unit -> UH1) = closure84() │
00:08:03 #49582 [verbose] > │ UH1_0(0.0, 8.422578125E-06, 0.19, 0.0018854742084416015, 0.0, 0.0, 0.0, │
00:08:03 #49583 [verbose] > │ 0.0, 0.0, v0) │
00:08:03 #49584 [verbose] > │ and closure82 () () : UH1 = │
00:08:03 #49585 [verbose] > │ let v0 : (unit -> UH1) = closure83() │
00:08:03 #49586 [verbose] > │ UH1_0(0.0, 8.422578125E-06, 0.18000000000000002, 0.002534799269067951, │
00:08:03 #49587 [verbose] > │ 0.0, 0.0, 0.0, 0.0, 0.0, v0) │
00:08:03 #49588 [verbose] > │ and closure81 () () : UH1 = │
00:08:03 #49589 [verbose] > │ let v0 : (unit -> UH1) = closure82() │
00:08:03 #49590 [verbose] > │ UH1_0(0.0, 8.422578125E-06, 0.17, 0.0031309259876915697, 0.0, 0.0, 0.0, │
00:08:03 #49591 [verbose] > │ 0.0, 0.0, v0) │
00:08:03 #49592 [verbose] > │ and closure80 () () : UH1 = │
00:08:03 #49593 [verbose] > │ let v0 : (unit -> UH1) = closure81() │
00:08:03 #49594 [verbose] > │ UH1_0(0.0, 8.422578125E-06, 0.16, 0.0036613433329888666, 0.0, 0.0, 0.0, │
00:08:03 #49595 [verbose] > │ 0.0, 0.0, v0) │
00:08:03 #49596 [verbose] > │ and closure79 () () : UH1 = │
00:08:03 #49597 [verbose] > │ let v0 : (unit -> UH1) = closure80() │
00:08:03 #49598 [verbose] > │ UH1_0(0.0, 8.422578125E-06, 0.15000000000000002, 0.0041149193294682815, │
00:08:03 #49599 [verbose] > │ 0.0, 0.0, 0.0, 0.0, 0.0, v0) │
00:08:03 #49600 [verbose] > │ and closure78 () () : UH1 = │
00:08:03 #49601 [verbose] > │ let v0 : (unit -> UH1) = closure79() │
00:08:03 #49602 [verbose] > │ UH1_0(0.0, 8.422578125E-06, 0.14, 0.004482134686478519, 0.0, 0.0, 0.0, │
00:08:03 #49603 [verbose] > │ 0.0, 0.0, v0) │
00:08:03 #49604 [verbose] > │ and closure77 () () : UH1 = │
00:08:03 #49605 [verbose] > │ let v0 : (unit -> UH1) = closure78() │
00:08:03 #49606 [verbose] > │ UH1_0(0.0, 8.422578125E-06, 0.13, 0.004755282581475768, 0.0, 0.0, 0.0, │
00:08:03 #49607 [verbose] > │ 0.0, 0.0, v0) │
00:08:03 #49608 [verbose] > │ and closure76 () () : UH1 = │
00:08:03 #49609 [verbose] > │ let v0 : (unit -> UH1) = closure77() │
00:08:03 #49610 [verbose] > │ UH1_0(0.0, 8.422578125E-06, 0.12, 0.004928630404658255, 0.0, 0.0, 0.0, │
00:08:03 #49611 [verbose] > │ 0.0, 0.0, v0) │
00:08:03 #49612 [verbose] > │ and closure75 () () : UH1 = │
00:08:03 #49613 [verbose] > │ let v0 : (unit -> UH1) = closure76() │
00:08:03 #49614 [verbose] > │ UH1_0(0.0, 8.422578125E-06, 0.11, 0.004998540070400965, 0.0, 0.0, 0.0, │
00:08:03 #49615 [verbose] > │ 0.0, 0.0, v0) │
00:08:03 #49616 [verbose] > │ and closure74 () () : UH1 = │
00:08:03 #49617 [verbose] > │ let v0 : (unit -> UH1) = closure75() │
00:08:03 #49618 [verbose] > │ UH1_0(0.0, 8.422578125E-06, 0.09999999999999999, 0.00496354437049027, │
00:08:03 #49619 [verbose] > │ 0.0, 0.0, 0.0, 0.0, 0.0, v0) │
00:08:03 #49620 [verbose] > │ and closure73 () () : UH1 = │
00:08:03 #49621 [verbose] > │ let v0 : (unit -> UH1) = closure74() │
00:08:03 #49622 [verbose] > │ UH1_0(0.0, 8.422578125E-06, 0.09, 0.004824377766717757, 0.0, 0.0, 0.0, │
00:08:03 #49623 [verbose] > │ 0.0, 0.0, v0) │
00:08:03 #49624 [verbose] > │ and closure72 () () : UH1 = │
00:08:03 #49625 [verbose] > │ let v0 : (unit -> UH1) = closure73() │
00:08:03 #49626 [verbose] > │ UH1_0(0.0, 8.422578125E-06, 0.08, 0.004583960976582912, 0.0, 0.0, 0.0, │
00:08:03 #49627 [verbose] > │ 0.0, 0.0, v0) │
00:08:03 #49628 [verbose] > │ and closure71 () () : UH1 = │
00:08:03 #49629 [verbose] > │ let v0 : (unit -> UH1) = closure72() │
00:08:03 #49630 [verbose] > │ UH1_0(0.0, 8.422578125E-06, 0.06999999999999999, 0.004247339675607605, │
00:08:03 #49631 [verbose] > │ 0.0, 0.0, 0.0, 0.0, 0.0, v0) │
00:08:03 #49632 [verbose] > │ and closure70 () () : UH1 = │
00:08:03 #49633 [verbose] > │ let v0 : (unit -> UH1) = closure71() │
00:08:03 #49634 [verbose] > │ UH1_0(0.0, 8.422578125E-06, 0.060000000000000005, 0.0038215786027292415, │
00:08:03 #49635 [verbose] > │ 0.0, 0.0, 0.0, 0.0, 0.0, v0) │
00:08:03 #49636 [verbose] > │ and closure69 () () : UH1 = │
00:08:03 #49637 [verbose] > │ let v0 : (unit -> UH1) = closure70() │
00:08:03 #49638 [verbose] > │ UH1_0(0.0, 8.422578125E-06, 0.05, 0.0033156132912039757, 0.0, 0.0, 0.0, │
00:08:03 #49639 [verbose] > │ 0.0, 0.0, v0) │
00:08:03 #49640 [verbose] > │ and closure68 () () : UH1 = │
00:08:03 #49641 [verbose] > │ let v0 : (unit -> UH1) = closure69() │
00:08:03 #49642 [verbose] > │ UH1_0(0.0, 8.422578125E-06, 0.04, 0.00274006253677335, 0.0, 0.0, 0.0, │
00:08:03 #49643 [verbose] > │ 0.0, 0.0, v0) │
00:08:03 #49644 [verbose] > │ and closure67 () () : UH1 = │
00:08:03 #49645 [verbose] > │ let v0 : (unit -> UH1) = closure68() │
00:08:03 #49646 [verbose] > │ UH1_0(0.0, 8.422578125E-06, 0.03, 0.0021070055388626454, 0.0, 0.0, 0.0, │
00:08:03 #49647 [verbose] > │ 0.0, 0.0, v0) │
00:08:03 #49648 [verbose] > │ and closure66 () () : UH1 = │
00:08:03 #49649 [verbose] > │ let v0 : (unit -> UH1) = closure67() │
00:08:03 #49650 [verbose] > │ UH1_0(0.0, 8.422578125E-06, 0.02, 0.0014297283919934465, 0.0, 0.0, 0.0, │
00:08:03 #49651 [verbose] > │ 0.0, 0.0, v0) │
00:08:03 #49652 [verbose] > │ and closure132 (v0 : (unit -> UH1), v1 : (unit -> UH3)) () : UH1 = │
00:08:03 #49653 [verbose] > │ let v2 : UH3 = v1 () │
00:08:03 #49654 [verbose] > │ let v3 : UH1 = v0 () │
00:08:03 #49655 [verbose] > │ match v2 with │
00:08:03 #49656 [verbose] > │ | UH3_0(v4, v5, v6, v7, v8, v9, v10, v11, v12, v13) -> (* StreamCons *) │
00:08:03 #49657 [verbose] > │ match v3 with │
00:08:03 #49658 [verbose] > │ | UH1_0(v14, v15, v16, v17, v18, v19, v20, v21, v22, v23) -> (* │
00:08:03 #49659 [verbose] > │ StreamCons *) │
00:08:03 #49660 [verbose] > │ let v24 : float = v9 * 1.25E-05 │
00:08:03 #49661 [verbose] > │ let v25 : float = v19 + v24 │
00:08:03 #49662 [verbose] > │ let v26 : float = 1.25E-05 * v6 │
00:08:03 #49663 [verbose] > │ let v27 : float = 1.25E-05 * v7 │
00:08:03 #49664 [verbose] > │ let v28 : float = 1.25E-05 * v8 │
00:08:03 #49665 [verbose] > │ let v29 : float = v16 + v26 │
00:08:03 #49666 [verbose] > │ let v30 : float = v17 + v27 │
00:08:03 #49667 [verbose] > │ let v31 : float = v18 + v28 │
00:08:03 #49668 [verbose] > │ let v32 : float = 1.25E-05 * v10 │
00:08:03 #49669 [verbose] > │ let v33 : float = 1.25E-05 * v11 │
00:08:03 #49670 [verbose] > │ let v34 : float = 1.25E-05 * v12 │
00:08:03 #49671 [verbose] > │ let v35 : float = v20 + v32 │
00:08:03 #49672 [verbose] > │ let v36 : float = v21 + v33 │
00:08:03 #49673 [verbose] > │ let v37 : float = v22 + v34 │
00:08:03 #49674 [verbose] > │ let v38 : (unit -> UH1) = closure132(v23, v13) │
00:08:03 #49675 [verbose] > │ UH1_0(v14, v15, v29, v30, v31, v25, v35, v36, v37, v38) │
00:08:03 #49676 [verbose] > │ | UH1_1 -> (* StreamNil *) │
00:08:03 #49677 [verbose] > │ UH1_1 │
00:08:03 #49678 [verbose] > │ | UH3_1 -> (* StreamNil *) │
00:08:03 #49679 [verbose] > │ UH1_1 │
00:08:03 #49680 [verbose] > │ and closure133 (v0 : UH1) () : UH1 = │
00:08:03 #49681 [verbose] > │ v0 │
00:08:03 #49682 [verbose] > │ and closure134 (v0 : UH1, v1 : Mut0) () : UH1 = │
00:08:03 #49683 [verbose] > │ let v2 : US0 = v1.l0 │
00:08:03 #49684 [verbose] > │ match v2 with │
00:08:03 #49685 [verbose] > │ | US0_1(v3) -> (* Computed *) │
00:08:03 #49686 [verbose] > │ v3 │
00:08:03 #49687 [verbose] > │ | US0_0(v4) -> (* NotComputed *) │
00:08:04 #49688 [verbose] > │ let v5 : UH1 = v4 () │
00:08:04 #49689 [verbose] > │ let v20 : UH1 = │
00:08:04 #49690 [verbose] > │ match v5 with │
00:08:04 #49691 [verbose] > │ | UH1_0(v7, v8, v9, v10, v11, v12, v13, v14, v15, v16) -> (* │
00:08:04 #49692 [verbose] > │ StreamCons *) │
00:08:04 #49693 [verbose] > │ let v17 : (unit -> UH1) = method3(v0, v16) │
00:08:04 #49694 [verbose] > │ UH1_0(v7, v8, v9, v10, v11, v12, v13, v14, v15, v17) │
00:08:04 #49695 [verbose] > │ | UH1_1 -> (* StreamNil *) │
00:08:04 #49696 [verbose] > │ UH1_1 │
00:08:04 #49697 [verbose] > │ let v21 : US0 = US0_1(v20) │
00:08:04 #49698 [verbose] > │ v1.l0 <- v21 │
00:08:04 #49699 [verbose] > │ v20 │
00:08:04 #49700 [verbose] > │ and method3 (v0 : UH1, v1 : (unit -> UH1)) : (unit -> UH1) = │
00:08:04 #49701 [verbose] > │ let v2 : US0 = US0_0(v1) │
00:08:04 #49702 [verbose] > │ let v3 : Mut0 = {l0 = v2} : Mut0 │
00:08:04 #49703 [verbose] > │ closure134(v0, v3) │
00:08:04 #49704 [verbose] > │ and closure135 (v0 : (unit -> UH1), v1 : (unit -> UH3)) () : UH1 = │
00:08:04 #49705 [verbose] > │ let v2 : UH3 = v1 () │
00:08:04 #49706 [verbose] > │ let v3 : UH1 = v0 () │
00:08:04 #49707 [verbose] > │ match v2 with │
00:08:04 #49708 [verbose] > │ | UH3_0(v4, v5, v6, v7, v8, v9, v10, v11, v12, v13) -> (* StreamCons *) │
00:08:04 #49709 [verbose] > │ match v3 with │
00:08:04 #49710 [verbose] > │ | UH1_0(v14, v15, v16, v17, v18, v19, v20, v21, v22, v23) -> (* │
00:08:04 #49711 [verbose] > │ StreamCons *) │
00:08:04 #49712 [verbose] > │ let v24 : float = v9 * 2.5E-05 │
00:08:04 #49713 [verbose] > │ let v25 : float = v19 + v24 │
00:08:04 #49714 [verbose] > │ let v26 : float = 2.5E-05 * v6 │
00:08:04 #49715 [verbose] > │ let v27 : float = 2.5E-05 * v7 │
00:08:04 #49716 [verbose] > │ let v28 : float = 2.5E-05 * v8 │
00:08:04 #49717 [verbose] > │ let v29 : float = v16 + v26 │
00:08:04 #49718 [verbose] > │ let v30 : float = v17 + v27 │
00:08:04 #49719 [verbose] > │ let v31 : float = v18 + v28 │
00:08:04 #49720 [verbose] > │ let v32 : float = 2.5E-05 * v10 │
00:08:04 #49721 [verbose] > │ let v33 : float = 2.5E-05 * v11 │
00:08:04 #49722 [verbose] > │ let v34 : float = 2.5E-05 * v12 │
00:08:04 #49723 [verbose] > │ let v35 : float = v20 + v32 │
00:08:04 #49724 [verbose] > │ let v36 : float = v21 + v33 │
00:08:04 #49725 [verbose] > │ let v37 : float = v22 + v34 │
00:08:04 #49726 [verbose] > │ let v38 : (unit -> UH1) = closure135(v23, v13) │
00:08:04 #49727 [verbose] > │ UH1_0(v14, v15, v29, v30, v31, v25, v35, v36, v37, v38) │
00:08:04 #49728 [verbose] > │ | UH1_1 -> (* StreamNil *) │
00:08:04 #49729 [verbose] > │ UH1_1 │
00:08:04 #49730 [verbose] > │ | UH3_1 -> (* StreamNil *) │
00:08:04 #49731 [verbose] > │ UH1_1 │
00:08:04 #49732 [verbose] > │ and closure136 (v0 : (unit -> UH3), v1 : (unit -> UH3)) () : UH3 = │
00:08:04 #49733 [verbose] > │ let v2 : UH3 = v1 () │
00:08:04 #49734 [verbose] > │ let v3 : UH3 = v0 () │
00:08:04 #49735 [verbose] > │ match v2 with │
00:08:04 #49736 [verbose] > │ | UH3_0(v4, v5, v6, v7, v8, v9, v10, v11, v12, v13) -> (* StreamCons *) │
00:08:04 #49737 [verbose] > │ match v3 with │
00:08:04 #49738 [verbose] > │ | UH3_0(v14, v15, v16, v17, v18, v19, v20, v21, v22, v23) -> (* │
00:08:04 #49739 [verbose] > │ StreamCons *) │
00:08:04 #49740 [verbose] > │ let v24 : float = v4 + v14 │
00:08:04 #49741 [verbose] > │ let v25 : float = v5 + v15 │
00:08:04 #49742 [verbose] > │ let v26 : float = v9 + v19 │
00:08:04 #49743 [verbose] > │ let v27 : float = v6 + v16 │
00:08:04 #49744 [verbose] > │ let v28 : float = v7 + v17 │
00:08:04 #49745 [verbose] > │ let v29 : float = v8 + v18 │
00:08:04 #49746 [verbose] > │ let v30 : float = v10 + v20 │
00:08:04 #49747 [verbose] > │ let v31 : float = v11 + v21 │
00:08:04 #49748 [verbose] > │ let v32 : float = v12 + v22 │
00:08:04 #49749 [verbose] > │ let v33 : (unit -> UH3) = closure136(v23, v13) │
00:08:04 #49750 [verbose] > │ UH3_0(v24, v25, v27, v28, v29, v26, v30, v31, v32, v33) │
00:08:04 #49751 [verbose] > │ | UH3_1 -> (* StreamNil *) │
00:08:04 #49752 [verbose] > │ UH3_1 │
00:08:04 #49753 [verbose] > │ | UH3_1 -> (* StreamNil *) │
00:08:04 #49754 [verbose] > │ UH3_1 │
00:08:04 #49755 [verbose] > │ and closure137 (v0 : (unit -> UH1), v1 : (unit -> UH3)) () : UH1 = │
00:08:04 #49756 [verbose] > │ let v2 : UH3 = v1 () │
00:08:04 #49757 [verbose] > │ let v3 : UH1 = v0 () │
00:08:04 #49758 [verbose] > │ match v2 with │
00:08:04 #49759 [verbose] > │ | UH3_0(v4, v5, v6, v7, v8, v9, v10, v11, v12, v13) -> (* StreamCons *) │
00:08:04 #49760 [verbose] > │ match v3 with │
00:08:04 #49761 [verbose] > │ | UH1_0(v14, v15, v16, v17, v18, v19, v20, v21, v22, v23) -> (* │
00:08:04 #49762 [verbose] > │ StreamCons *) │
00:08:04 #49763 [verbose] > │ let v24 : float = v9 * 4.166666666666667E-06 │
00:08:04 #49764 [verbose] > │ let v25 : float = v19 + v24 │
00:08:04 #49765 [verbose] > │ let v26 : float = 4.166666666666667E-06 * v6 │
00:08:04 #49766 [verbose] > │ let v27 : float = 4.166666666666667E-06 * v7 │
00:08:04 #49767 [verbose] > │ let v28 : float = 4.166666666666667E-06 * v8 │
00:08:04 #49768 [verbose] > │ let v29 : float = v16 + v26 │
00:08:04 #49769 [verbose] > │ let v30 : float = v17 + v27 │
00:08:04 #49770 [verbose] > │ let v31 : float = v18 + v28 │
00:08:04 #49771 [verbose] > │ let v32 : float = 4.166666666666667E-06 * v10 │
00:08:04 #49772 [verbose] > │ let v33 : float = 4.166666666666667E-06 * v11 │
00:08:04 #49773 [verbose] > │ let v34 : float = 4.166666666666667E-06 * v12 │
00:08:04 #49774 [verbose] > │ let v35 : float = v20 + v32 │
00:08:04 #49775 [verbose] > │ let v36 : float = v21 + v33 │
00:08:04 #49776 [verbose] > │ let v37 : float = v22 + v34 │
00:08:04 #49777 [verbose] > │ let v38 : (unit -> UH1) = closure137(v23, v13) │
00:08:04 #49778 [verbose] > │ UH1_0(v14, v15, v29, v30, v31, v25, v35, v36, v37, v38) │
00:08:04 #49779 [verbose] > │ | UH1_1 -> (* StreamNil *) │
00:08:04 #49780 [verbose] > │ UH1_1 │
00:08:04 #49781 [verbose] > │ | UH3_1 -> (* StreamNil *) │
00:08:04 #49782 [verbose] > │ UH1_1 │
00:08:04 #49783 [verbose] > │ and closure131 (v0 : (UH1 -> UH3)) (v1 : UH1) : UH1 = │
00:08:04 #49784 [verbose] > │ let v2 : UH3 = v0 v1 │
00:08:04 #49785 [verbose] > │ let v44 : UH1 = │
00:08:04 #49786 [verbose] > │ match v2 with │
00:08:04 #49787 [verbose] > │ | UH3_0(v3, v4, v5, v6, v7, v8, v9, v10, v11, v12) -> (* StreamCons │
00:08:04 #49788 [verbose] > │ *) │
00:08:04 #49789 [verbose] > │ match v1 with │
00:08:04 #49790 [verbose] > │ | UH1_0(v13, v14, v15, v16, v17, v18, v19, v20, v21, v22) -> (* │
00:08:04 #49791 [verbose] > │ StreamCons *) │
00:08:04 #49792 [verbose] > │ let v23 : float = v8 * 1.25E-05 │
00:08:04 #49793 [verbose] > │ let v24 : float = v18 + v23 │
00:08:04 #49794 [verbose] > │ let v25 : float = 1.25E-05 * v5 │
00:08:04 #49795 [verbose] > │ let v26 : float = 1.25E-05 * v6 │
00:08:04 #49796 [verbose] > │ let v27 : float = 1.25E-05 * v7 │
00:08:04 #49797 [verbose] > │ let v28 : float = v15 + v25 │
00:08:04 #49798 [verbose] > │ let v29 : float = v16 + v26 │
00:08:04 #49799 [verbose] > │ let v30 : float = v17 + v27 │
00:08:04 #49800 [verbose] > │ let v31 : float = 1.25E-05 * v9 │
00:08:04 #49801 [verbose] > │ let v32 : float = 1.25E-05 * v10 │
00:08:04 #49802 [verbose] > │ let v33 : float = 1.25E-05 * v11 │
00:08:04 #49803 [verbose] > │ let v34 : float = v19 + v31 │
00:08:04 #49804 [verbose] > │ let v35 : float = v20 + v32 │
00:08:04 #49805 [verbose] > │ let v36 : float = v21 + v33 │
00:08:04 #49806 [verbose] > │ let v37 : (unit -> UH1) = closure132(v22, v12) │
00:08:04 #49807 [verbose] > │ UH1_0(v13, v14, v28, v29, v30, v24, v34, v35, v36, v37) │
00:08:04 #49808 [verbose] > │ | UH1_1 -> (* StreamNil *) │
00:08:04 #49809 [verbose] > │ UH1_1 │
00:08:04 #49810 [verbose] > │ | UH3_1 -> (* StreamNil *) │
00:08:04 #49811 [verbose] > │ UH1_1 │
00:08:04 #49812 [verbose] > │ let v45 : (unit -> UH1) = closure133(v44) │
00:08:04 #49813 [verbose] > │ let v46 : (unit -> UH1) = method3(v44, v45) │
00:08:04 #49814 [verbose] > │ let v47 : UH1 = v46 () │
00:08:04 #49815 [verbose] > │ let v48 : UH3 = v0 v47 │
00:08:04 #49816 [verbose] > │ let v90 : UH1 = │
00:08:04 #49817 [verbose] > │ match v48 with │
00:08:04 #49818 [verbose] > │ | UH3_0(v49, v50, v51, v52, v53, v54, v55, v56, v57, v58) -> (* │
00:08:04 #49819 [verbose] > │ StreamCons *) │
00:08:04 #49820 [verbose] > │ match v1 with │
00:08:04 #49821 [verbose] > │ | UH1_0(v59, v60, v61, v62, v63, v64, v65, v66, v67, v68) -> (* │
00:08:04 #49822 [verbose] > │ StreamCons *) │
00:08:04 #49823 [verbose] > │ let v69 : float = v54 * 1.25E-05 │
00:08:04 #49824 [verbose] > │ let v70 : float = v64 + v69 │
00:08:04 #49825 [verbose] > │ let v71 : float = 1.25E-05 * v51 │
00:08:04 #49826 [verbose] > │ let v72 : float = 1.25E-05 * v52 │
00:08:04 #49827 [verbose] > │ let v73 : float = 1.25E-05 * v53 │
00:08:04 #49828 [verbose] > │ let v74 : float = v61 + v71 │
00:08:04 #49829 [verbose] > │ let v75 : float = v62 + v72 │
00:08:04 #49830 [verbose] > │ let v76 : float = v63 + v73 │
00:08:04 #49831 [verbose] > │ let v77 : float = 1.25E-05 * v55 │
00:08:04 #49832 [verbose] > │ let v78 : float = 1.25E-05 * v56 │
00:08:04 #49833 [verbose] > │ let v79 : float = 1.25E-05 * v57 │
00:08:04 #49834 [verbose] > │ let v80 : float = v65 + v77 │
00:08:04 #49835 [verbose] > │ let v81 : float = v66 + v78 │
00:08:04 #49836 [verbose] > │ let v82 : float = v67 + v79 │
00:08:04 #49837 [verbose] > │ let v83 : (unit -> UH1) = closure132(v68, v58) │
00:08:04 #49838 [verbose] > │ UH1_0(v59, v60, v74, v75, v76, v70, v80, v81, v82, v83) │
00:08:04 #49839 [verbose] > │ | UH1_1 -> (* StreamNil *) │
00:08:04 #49840 [verbose] > │ UH1_1 │
00:08:04 #49841 [verbose] > │ | UH3_1 -> (* StreamNil *) │
00:08:04 #49842 [verbose] > │ UH1_1 │
00:08:04 #49843 [verbose] > │ let v91 : (unit -> UH1) = closure133(v90) │
00:08:04 #49844 [verbose] > │ let v92 : (unit -> UH1) = method3(v90, v91) │
00:08:04 #49845 [verbose] > │ let v93 : UH1 = v92 () │
00:08:04 #49846 [verbose] > │ let v94 : UH3 = v0 v93 │
00:08:04 #49847 [verbose] > │ let v136 : UH1 = │
00:08:04 #49848 [verbose] > │ match v94 with │
00:08:04 #49849 [verbose] > │ | UH3_0(v95, v96, v97, v98, v99, v100, v101, v102, v103, v104) -> (* │
00:08:04 #49850 [verbose] > │ StreamCons *) │
00:08:04 #49851 [verbose] > │ match v1 with │
00:08:04 #49852 [verbose] > │ | UH1_0(v105, v106, v107, v108, v109, v110, v111, v112, v113, │
00:08:04 #49853 [verbose] > │ v114) -> (* StreamCons *) │
00:08:04 #49854 [verbose] > │ let v115 : float = v100 * 2.5E-05 │
00:08:04 #49855 [verbose] > │ let v116 : float = v110 + v115 │
00:08:04 #49856 [verbose] > │ let v117 : float = 2.5E-05 * v97 │
00:08:04 #49857 [verbose] > │ let v118 : float = 2.5E-05 * v98 │
00:08:04 #49858 [verbose] > │ let v119 : float = 2.5E-05 * v99 │
00:08:04 #49859 [verbose] > │ let v120 : float = v107 + v117 │
00:08:04 #49860 [verbose] > │ let v121 : float = v108 + v118 │
00:08:04 #49861 [verbose] > │ let v122 : float = v109 + v119 │
00:08:04 #49862 [verbose] > │ let v123 : float = 2.5E-05 * v101 │
00:08:04 #49863 [verbose] > │ let v124 : float = 2.5E-05 * v102 │
00:08:04 #49864 [verbose] > │ let v125 : float = 2.5E-05 * v103 │
00:08:04 #49865 [verbose] > │ let v126 : float = v111 + v123 │
00:08:04 #49866 [verbose] > │ let v127 : float = v112 + v124 │
00:08:04 #49867 [verbose] > │ let v128 : float = v113 + v125 │
00:08:04 #49868 [verbose] > │ let v129 : (unit -> UH1) = closure135(v114, v104) │
00:08:04 #49869 [verbose] > │ UH1_0(v105, v106, v120, v121, v122, v116, v126, v127, v128, │
00:08:04 #49870 [verbose] > │ v129) │
00:08:04 #49871 [verbose] > │ | UH1_1 -> (* StreamNil *) │
00:08:04 #49872 [verbose] > │ UH1_1 │
00:08:04 #49873 [verbose] > │ | UH3_1 -> (* StreamNil *) │
00:08:04 #49874 [verbose] > │ UH1_1 │
00:08:04 #49875 [verbose] > │ let v137 : (unit -> UH1) = closure133(v136) │
00:08:04 #49876 [verbose] > │ let v138 : (unit -> UH1) = method3(v136, v137) │
00:08:04 #49877 [verbose] > │ let v139 : UH1 = v138 () │
00:08:04 #49878 [verbose] > │ let v140 : UH3 = v0 v139 │
00:08:04 #49879 [verbose] > │ let v177 : UH3 = │
00:08:04 #49880 [verbose] > │ match v2 with │
00:08:04 #49881 [verbose] > │ | UH3_0(v141, v142, v143, v144, v145, v146, v147, v148, v149, v150) │
00:08:04 #49882 [verbose] > │ -> (* StreamCons *) │
00:08:04 #49883 [verbose] > │ match v48 with │
00:08:04 #49884 [verbose] > │ | UH3_0(v151, v152, v153, v154, v155, v156, v157, v158, v159, │
00:08:04 #49885 [verbose] > │ v160) -> (* StreamCons *) │
00:08:04 #49886 [verbose] > │ let v161 : float = v141 + v151 │
00:08:04 #49887 [verbose] > │ let v162 : float = v142 + v152 │
00:08:04 #49888 [verbose] > │ let v163 : float = v146 + v156 │
00:08:04 #49889 [verbose] > │ let v164 : float = v143 + v153 │
00:08:04 #49890 [verbose] > │ let v165 : float = v144 + v154 │
00:08:04 #49891 [verbose] > │ let v166 : float = v145 + v155 │
00:08:04 #49892 [verbose] > │ let v167 : float = v147 + v157 │
00:08:04 #49893 [verbose] > │ let v168 : float = v148 + v158 │
00:08:04 #49894 [verbose] > │ let v169 : float = v149 + v159 │
00:08:04 #49895 [verbose] > │ let v170 : (unit -> UH3) = closure136(v160, v150) │
00:08:04 #49896 [verbose] > │ UH3_0(v161, v162, v164, v165, v166, v163, v167, v168, v169, │
00:08:04 #49897 [verbose] > │ v170) │
00:08:04 #49898 [verbose] > │ | UH3_1 -> (* StreamNil *) │
00:08:04 #49899 [verbose] > │ UH3_1 │
00:08:04 #49900 [verbose] > │ | UH3_1 -> (* StreamNil *) │
00:08:04 #49901 [verbose] > │ UH3_1 │
00:08:04 #49902 [verbose] > │ let v214 : UH3 = │
00:08:04 #49903 [verbose] > │ match v177 with │
00:08:04 #49904 [verbose] > │ | UH3_0(v178, v179, v180, v181, v182, v183, v184, v185, v186, v187) │
00:08:04 #49905 [verbose] > │ -> (* StreamCons *) │
00:08:04 #49906 [verbose] > │ match v48 with │
00:08:04 #49907 [verbose] > │ | UH3_0(v188, v189, v190, v191, v192, v193, v194, v195, v196, │
00:08:04 #49908 [verbose] > │ v197) -> (* StreamCons *) │
00:08:04 #49909 [verbose] > │ let v198 : float = v178 + v188 │
00:08:04 #49910 [verbose] > │ let v199 : float = v179 + v189 │
00:08:04 #49911 [verbose] > │ let v200 : float = v183 + v193 │
00:08:04 #49912 [verbose] > │ let v201 : float = v180 + v190 │
00:08:04 #49913 [verbose] > │ let v202 : float = v181 + v191 │
00:08:04 #49914 [verbose] > │ let v203 : float = v182 + v192 │
00:08:04 #49915 [verbose] > │ let v204 : float = v184 + v194 │
00:08:04 #49916 [verbose] > │ let v205 : float = v185 + v195 │
00:08:04 #49917 [verbose] > │ let v206 : float = v186 + v196 │
00:08:04 #49918 [verbose] > │ let v207 : (unit -> UH3) = closure136(v197, v187) │
00:08:04 #49919 [verbose] > │ UH3_0(v198, v199, v201, v202, v203, v200, v204, v205, v206, │
00:08:04 #49920 [verbose] > │ v207) │
00:08:04 #49921 [verbose] > │ | UH3_1 -> (* StreamNil *) │
00:08:04 #49922 [verbose] > │ UH3_1 │
00:08:04 #49923 [verbose] > │ | UH3_1 -> (* StreamNil *) │
00:08:04 #49924 [verbose] > │ UH3_1 │
00:08:04 #49925 [verbose] > │ let v251 : UH3 = │
00:08:04 #49926 [verbose] > │ match v214 with │
00:08:04 #49927 [verbose] > │ | UH3_0(v215, v216, v217, v218, v219, v220, v221, v222, v223, v224) │
00:08:04 #49928 [verbose] > │ -> (* StreamCons *) │
00:08:04 #49929 [verbose] > │ match v94 with │
00:08:04 #49930 [verbose] > │ | UH3_0(v225, v226, v227, v228, v229, v230, v231, v232, v233, │
00:08:04 #49931 [verbose] > │ v234) -> (* StreamCons *) │
00:08:04 #49932 [verbose] > │ let v235 : float = v215 + v225 │
00:08:04 #49933 [verbose] > │ let v236 : float = v216 + v226 │
00:08:04 #49934 [verbose] > │ let v237 : float = v220 + v230 │
00:08:04 #49935 [verbose] > │ let v238 : float = v217 + v227 │
00:08:04 #49936 [verbose] > │ let v239 : float = v218 + v228 │
00:08:04 #49937 [verbose] > │ let v240 : float = v219 + v229 │
00:08:04 #49938 [verbose] > │ let v241 : float = v221 + v231 │
00:08:04 #49939 [verbose] > │ let v242 : float = v222 + v232 │
00:08:04 #49940 [verbose] > │ let v243 : float = v223 + v233 │
00:08:04 #49941 [verbose] > │ let v244 : (unit -> UH3) = closure136(v234, v224) │
00:08:04 #49942 [verbose] > │ UH3_0(v235, v236, v238, v239, v240, v237, v241, v242, v243, │
00:08:04 #49943 [verbose] > │ v244) │
00:08:04 #49944 [verbose] > │ | UH3_1 -> (* StreamNil *) │
00:08:04 #49945 [verbose] > │ UH3_1 │
00:08:04 #49946 [verbose] > │ | UH3_1 -> (* StreamNil *) │
00:08:04 #49947 [verbose] > │ UH3_1 │
00:08:04 #49948 [verbose] > │ let v288 : UH3 = │
00:08:04 #49949 [verbose] > │ match v251 with │
00:08:04 #49950 [verbose] > │ | UH3_0(v252, v253, v254, v255, v256, v257, v258, v259, v260, v261) │
00:08:04 #49951 [verbose] > │ -> (* StreamCons *) │
00:08:04 #49952 [verbose] > │ match v94 with │
00:08:04 #49953 [verbose] > │ | UH3_0(v262, v263, v264, v265, v266, v267, v268, v269, v270, │
00:08:04 #49954 [verbose] > │ v271) -> (* StreamCons *) │
00:08:04 #49955 [verbose] > │ let v272 : float = v252 + v262 │
00:08:04 #49956 [verbose] > │ let v273 : float = v253 + v263 │
00:08:04 #49957 [verbose] > │ let v274 : float = v257 + v267 │
00:08:04 #49958 [verbose] > │ let v275 : float = v254 + v264 │
00:08:04 #49959 [verbose] > │ let v276 : float = v255 + v265 │
00:08:04 #49960 [verbose] > │ let v277 : float = v256 + v266 │
00:08:04 #49961 [verbose] > │ let v278 : float = v258 + v268 │
00:08:04 #49962 [verbose] > │ let v279 : float = v259 + v269 │
00:08:04 #49963 [verbose] > │ let v280 : float = v260 + v270 │
00:08:04 #49964 [verbose] > │ let v281 : (unit -> UH3) = closure136(v271, v261) │
00:08:04 #49965 [verbose] > │ UH3_0(v272, v273, v275, v276, v277, v274, v278, v279, v280, │
00:08:04 #49966 [verbose] > │ v281) │
00:08:04 #49967 [verbose] > │ | UH3_1 -> (* StreamNil *) │
00:08:04 #49968 [verbose] > │ UH3_1 │
00:08:04 #49969 [verbose] > │ | UH3_1 -> (* StreamNil *) │
00:08:04 #49970 [verbose] > │ UH3_1 │
00:08:04 #49971 [verbose] > │ let v325 : UH3 = │
00:08:04 #49972 [verbose] > │ match v288 with │
00:08:04 #49973 [verbose] > │ | UH3_0(v289, v290, v291, v292, v293, v294, v295, v296, v297, v298) │
00:08:04 #49974 [verbose] > │ -> (* StreamCons *) │
00:08:04 #49975 [verbose] > │ match v140 with │
00:08:04 #49976 [verbose] > │ | UH3_0(v299, v300, v301, v302, v303, v304, v305, v306, v307, │
00:08:04 #49977 [verbose] > │ v308) -> (* StreamCons *) │
00:08:04 #49978 [verbose] > │ let v309 : float = v289 + v299 │
00:08:04 #49979 [verbose] > │ let v310 : float = v290 + v300 │
00:08:04 #49980 [verbose] > │ let v311 : float = v294 + v304 │
00:08:04 #49981 [verbose] > │ let v312 : float = v291 + v301 │
00:08:04 #49982 [verbose] > │ let v313 : float = v292 + v302 │
00:08:04 #49983 [verbose] > │ let v314 : float = v293 + v303 │
00:08:04 #49984 [verbose] > │ let v315 : float = v295 + v305 │
00:08:04 #49985 [verbose] > │ let v316 : float = v296 + v306 │
00:08:04 #49986 [verbose] > │ let v317 : float = v297 + v307 │
00:08:04 #49987 [verbose] > │ let v318 : (unit -> UH3) = closure136(v308, v298) │
00:08:04 #49988 [verbose] > │ UH3_0(v309, v310, v312, v313, v314, v311, v315, v316, v317, │
00:08:04 #49989 [verbose] > │ v318) │
00:08:04 #49990 [verbose] > │ | UH3_1 -> (* StreamNil *) │
00:08:04 #49991 [verbose] > │ UH3_1 │
00:08:04 #49992 [verbose] > │ | UH3_1 -> (* StreamNil *) │
00:08:04 #49993 [verbose] > │ UH3_1 │
00:08:04 #49994 [verbose] > │ let v367 : UH1 = │
00:08:04 #49995 [verbose] > │ match v325 with │
00:08:04 #49996 [verbose] > │ | UH3_0(v326, v327, v328, v329, v330, v331, v332, v333, v334, v335) │
00:08:04 #49997 [verbose] > │ -> (* StreamCons *) │
00:08:04 #49998 [verbose] > │ match v1 with │
00:08:04 #49999 [verbose] > │ | UH1_0(v336, v337, v338, v339, v340, v341, v342, v343, v344, │
00:08:04 #50000 [verbose] > │ v345) -> (* StreamCons *) │
00:08:04 #50001 [verbose] > │ let v346 : float = v331 * 4.166666666666667E-06 │
00:08:04 #50002 [verbose] > │ let v347 : float = v341 + v346 │
00:08:04 #50003 [verbose] > │ let v348 : float = 4.166666666666667E-06 * v328 │
00:08:04 #50004 [verbose] > │ let v349 : float = 4.166666666666667E-06 * v329 │
00:08:04 #50005 [verbose] > │ let v350 : float = 4.166666666666667E-06 * v330 │
00:08:04 #50006 [verbose] > │ let v351 : float = v338 + v348 │
00:08:04 #50007 [verbose] > │ let v352 : float = v339 + v349 │
00:08:04 #50008 [verbose] > │ let v353 : float = v340 + v350 │
00:08:04 #50009 [verbose] > │ let v354 : float = 4.166666666666667E-06 * v332 │
00:08:04 #50010 [verbose] > │ let v355 : float = 4.166666666666667E-06 * v333 │
00:08:04 #50011 [verbose] > │ let v356 : float = 4.166666666666667E-06 * v334 │
00:08:04 #50012 [verbose] > │ let v357 : float = v342 + v354 │
00:08:04 #50013 [verbose] > │ let v358 : float = v343 + v355 │
00:08:04 #50014 [verbose] > │ let v359 : float = v344 + v356 │
00:08:04 #50015 [verbose] > │ let v360 : (unit -> UH1) = closure137(v345, v335) │
00:08:04 #50016 [verbose] > │ UH1_0(v336, v337, v351, v352, v353, v347, v357, v358, v359, │
00:08:04 #50017 [verbose] > │ v360) │
00:08:04 #50018 [verbose] > │ | UH1_1 -> (* StreamNil *) │
00:08:04 #50019 [verbose] > │ UH1_1 │
00:08:04 #50020 [verbose] > │ | UH3_1 -> (* StreamNil *) │
00:08:04 #50021 [verbose] > │ UH1_1 │
00:08:04 #50022 [verbose] > │ let v368 : (unit -> UH1) = closure133(v367) │
00:08:04 #50023 [verbose] > │ let v369 : (unit -> UH1) = method3(v367, v368) │
00:08:04 #50024 [verbose] > │ let v370 : UH1 = v369 () │
00:08:04 #50025 [verbose] > │ v370 │
00:08:04 #50026 [verbose] > │ and closure130 () (v0 : (UH1 -> UH3)) : (UH1 -> UH1) = │
00:08:04 #50027 [verbose] > │ closure131(v0) │
00:08:04 #50028 [verbose] > │ and method2 () : ((UH1 -> UH3) -> (UH1 -> UH1)) = │
00:08:04 #50029 [verbose] > │ closure130() │
00:08:04 #50030 [verbose] > │ and closure138 () struct (v0 : float, v1 : float, v2 : float, v3 : float, v4 │
00:08:04 #50031 [verbose] > │ : float, v5 : float, v6 : float, v7 : float, v8 : float) : struct (float * │
00:08:04 #50032 [verbose] > │ float * float) = │
00:08:04 #50033 [verbose] > │ let v9 : float = v2 * v2 │
00:08:04 #50034 [verbose] > │ let v10 : float = v3 * v3 │
00:08:04 #50035 [verbose] > │ let v11 : float = v9 + v10 │
00:08:04 #50036 [verbose] > │ let v12 : float = v4 * v4 │
00:08:04 #50037 [verbose] > │ let v13 : float = v11 + v12 │
00:08:04 #50038 [verbose] > │ let v14 : float = sqrt v13 │
00:08:04 #50039 [verbose] > │ let v15 : float = -5384.0 * v14 │
00:08:04 #50040 [verbose] > │ let v16 : float = v15 * v2 │
00:08:04 #50041 [verbose] > │ let v17 : float = v15 * v3 │
00:08:04 #50042 [verbose] > │ let v18 : float = v15 * v4 │
00:08:04 #50043 [verbose] > │ let v19 : float = v16 / v14 │
00:08:04 #50044 [verbose] > │ let v20 : float = v17 / v14 │
00:08:04 #50045 [verbose] > │ let v21 : float = v18 / v14 │
00:08:04 #50046 [verbose] > │ struct (v19, v20, v21) │
00:08:04 #50047 [verbose] > │ and closure139 () struct (v0 : float, v1 : float, v2 : float, v3 : float, v4 │
00:08:04 #50048 [verbose] > │ : float, v5 : float, v6 : float, v7 : float, v8 : float) : struct (float * │
00:08:04 #50049 [verbose] > │ float * float) = │
00:08:04 #50050 [verbose] > │ let v9 : float = v2 + -0.65 │
00:08:04 #50051 [verbose] > │ let v10 : float = v9 * v9 │
00:08:04 #50052 [verbose] > │ let v11 : float = v3 * v3 │
00:08:04 #50053 [verbose] > │ let v12 : float = v10 + v11 │
00:08:04 #50054 [verbose] > │ let v13 : float = v4 * v4 │
00:08:04 #50055 [verbose] > │ let v14 : float = v12 + v13 │
00:08:04 #50056 [verbose] > │ let v15 : float = sqrt v14 │
00:08:04 #50057 [verbose] > │ let v16 : float = -5384.0 * v15 │
00:08:04 #50058 [verbose] > │ let v17 : float = v16 * v9 │
00:08:04 #50059 [verbose] > │ let v18 : float = v16 * v3 │
00:08:04 #50060 [verbose] > │ let v19 : float = v16 * v4 │
00:08:04 #50061 [verbose] > │ let v20 : float = v17 / v15 │
00:08:04 #50062 [verbose] > │ let v21 : float = v18 / v15 │
00:08:04 #50063 [verbose] > │ let v22 : float = v19 / v15 │
00:08:04 #50064 [verbose] > │ struct (v20, v21, v22) │
00:08:04 #50065 [verbose] > │ and closure141 (v0 : float, v1 : float, v2 : float, v3 : float, v4 : float, │
00:08:04 #50066 [verbose] > │ v5 : float, v6 : float, v7 : float, v8 : float) struct (v9 : float, v10 : │
00:08:04 #50067 [verbose] > │ float, v11 : float, v12 : float, v13 : float, v14 : float, v15 : float, v16 │
00:08:04 #50068 [verbose] > │ : float, v17 : float) : struct (float * float * float) = │
00:08:04 #50069 [verbose] > │ let v18 : float = -1.0 * v2 │
00:08:04 #50070 [verbose] > │ let v19 : float = -1.0 * v3 │
00:08:04 #50071 [verbose] > │ let v20 : float = -1.0 * v4 │
00:08:04 #50072 [verbose] > │ let v21 : float = v11 + v18 │
00:08:04 #50073 [verbose] > │ let v22 : float = v12 + v19 │
00:08:04 #50074 [verbose] > │ let v23 : float = v13 + v20 │
00:08:04 #50075 [verbose] > │ let v24 : float = v21 * v21 │
00:08:04 #50076 [verbose] > │ let v25 : float = v22 * v22 │
00:08:04 #50077 [verbose] > │ let v26 : float = v24 + v25 │
00:08:04 #50078 [verbose] > │ let v27 : float = v23 * v23 │
00:08:04 #50079 [verbose] > │ let v28 : float = v26 + v27 │
00:08:04 #50080 [verbose] > │ let v29 : float = sqrt v28 │
00:08:04 #50081 [verbose] > │ let v30 : float = -5384.0 * v29 │
00:08:04 #50082 [verbose] > │ let v31 : float = v30 * v21 │
00:08:04 #50083 [verbose] > │ let v32 : float = v30 * v22 │
00:08:04 #50084 [verbose] > │ let v33 : float = v30 * v23 │
00:08:04 #50085 [verbose] > │ let v34 : float = v31 / v29 │
00:08:04 #50086 [verbose] > │ let v35 : float = v32 / v29 │
00:08:04 #50087 [verbose] > │ let v36 : float = v33 / v29 │
00:08:04 #50088 [verbose] > │ struct (v34, v35, v36) │
00:08:04 #50089 [verbose] > │ and closure140 () struct (v0 : float, v1 : float, v2 : float, v3 : float, v4 │
00:08:04 #50090 [verbose] > │ : float, v5 : float, v6 : float, v7 : float, v8 : float) : (struct (float * │
00:08:04 #50091 [verbose] > │ float * float * float * float * float * float * float * float) -> struct │
00:08:04 #50092 [verbose] > │ (float * float * float)) = │
00:08:04 #50093 [verbose] > │ closure141(v0, v1, v2, v3, v4, v5, v6, v7, v8) │
00:08:04 #50094 [verbose] > │ and method4 () : UH4 = │
00:08:04 #50095 [verbose] > │ let v0 : (struct (float * float * float * float * float * float * float │
00:08:04 #50096 [verbose] > │ * float * float) -> struct (float * float * float)) = closure138() │
00:08:04 #50097 [verbose] > │ let v1 : US1 = US1_0(0, v0) │
00:08:04 #50098 [verbose] > │ let v2 : (struct (float * float * float * float * float * float * float │
00:08:04 #50099 [verbose] > │ * float * float) -> struct (float * float * float)) = closure139() │
00:08:04 #50100 [verbose] > │ let v3 : US1 = US1_0(63, v2) │
00:08:04 #50101 [verbose] > │ let v4 : (struct (float * float * float * float * float * float * float │
00:08:04 #50102 [verbose] > │ * float * float) -> (struct (float * float * float * float * float * float * │
00:08:04 #50103 [verbose] > │ float * float * float) -> struct (float * float * float))) = closure140() │
00:08:04 #50104 [verbose] > │ let v5 : US1 = US1_1(0, 1, v4) │
00:08:04 #50105 [verbose] > │ let v6 : US1 = US1_1(1, 2, v4) │
00:08:04 #50106 [verbose] > │ let v7 : US1 = US1_1(2, 3, v4) │
00:08:04 #50107 [verbose] > │ let v8 : US1 = US1_1(3, 4, v4) │
00:08:04 #50108 [verbose] > │ let v9 : US1 = US1_1(4, 5, v4) │
00:08:04 #50109 [verbose] > │ let v10 : US1 = US1_1(5, 6, v4) │
00:08:04 #50110 [verbose] > │ let v11 : US1 = US1_1(6, 7, v4) │
00:08:04 #50111 [verbose] > │ let v12 : US1 = US1_1(7, 8, v4) │
00:08:04 #50112 [verbose] > │ let v13 : US1 = US1_1(8, 9, v4) │
00:08:04 #50113 [verbose] > │ let v14 : US1 = US1_1(9, 10, v4) │
00:08:04 #50114 [verbose] > │ let v15 : US1 = US1_1(10, 11, v4) │
00:08:04 #50115 [verbose] > │ let v16 : US1 = US1_1(11, 12, v4) │
00:08:04 #50116 [verbose] > │ let v17 : US1 = US1_1(12, 13, v4) │
00:08:04 #50117 [verbose] > │ let v18 : US1 = US1_1(13, 14, v4) │
00:08:04 #50118 [verbose] > │ let v19 : US1 = US1_1(14, 15, v4) │
00:08:04 #50119 [verbose] > │ let v20 : US1 = US1_1(15, 16, v4) │
00:08:04 #50120 [verbose] > │ let v21 : US1 = US1_1(16, 17, v4) │
00:08:04 #50121 [verbose] > │ let v22 : US1 = US1_1(17, 18, v4) │
00:08:04 #50122 [verbose] > │ let v23 : US1 = US1_1(18, 19, v4) │
00:08:04 #50123 [verbose] > │ let v24 : US1 = US1_1(19, 20, v4) │
00:08:04 #50124 [verbose] > │ let v25 : US1 = US1_1(20, 21, v4) │
00:08:04 #50125 [verbose] > │ let v26 : US1 = US1_1(21, 22, v4) │
00:08:04 #50126 [verbose] > │ let v27 : US1 = US1_1(22, 23, v4) │
00:08:04 #50127 [verbose] > │ let v28 : US1 = US1_1(23, 24, v4) │
00:08:04 #50128 [verbose] > │ let v29 : US1 = US1_1(24, 25, v4) │
00:08:04 #50129 [verbose] > │ let v30 : US1 = US1_1(25, 26, v4) │
00:08:04 #50130 [verbose] > │ let v31 : US1 = US1_1(26, 27, v4) │
00:08:04 #50131 [verbose] > │ let v32 : US1 = US1_1(27, 28, v4) │
00:08:04 #50132 [verbose] > │ let v33 : US1 = US1_1(28, 29, v4) │
00:08:04 #50133 [verbose] > │ let v34 : US1 = US1_1(29, 30, v4) │
00:08:04 #50134 [verbose] > │ let v35 : US1 = US1_1(30, 31, v4) │
00:08:04 #50135 [verbose] > │ let v36 : US1 = US1_1(31, 32, v4) │
00:08:04 #50136 [verbose] > │ let v37 : US1 = US1_1(32, 33, v4) │
00:08:04 #50137 [verbose] > │ let v38 : US1 = US1_1(33, 34, v4) │
00:08:04 #50138 [verbose] > │ let v39 : US1 = US1_1(34, 35, v4) │
00:08:04 #50139 [verbose] > │ let v40 : US1 = US1_1(35, 36, v4) │
00:08:04 #50140 [verbose] > │ let v41 : US1 = US1_1(36, 37, v4) │
00:08:04 #50141 [verbose] > │ let v42 : US1 = US1_1(37, 38, v4) │
00:08:04 #50142 [verbose] > │ let v43 : US1 = US1_1(38, 39, v4) │
00:08:04 #50143 [verbose] > │ let v44 : US1 = US1_1(39, 40, v4) │
00:08:04 #50144 [verbose] > │ let v45 : US1 = US1_1(40, 41, v4) │
00:08:04 #50145 [verbose] > │ let v46 : US1 = US1_1(41, 42, v4) │
00:08:04 #50146 [verbose] > │ let v47 : US1 = US1_1(42, 43, v4) │
00:08:04 #50147 [verbose] > │ let v48 : US1 = US1_1(43, 44, v4) │
00:08:04 #50148 [verbose] > │ let v49 : US1 = US1_1(44, 45, v4) │
00:08:04 #50149 [verbose] > │ let v50 : US1 = US1_1(45, 46, v4) │
00:08:04 #50150 [verbose] > │ let v51 : US1 = US1_1(46, 47, v4) │
00:08:04 #50151 [verbose] > │ let v52 : US1 = US1_1(47, 48, v4) │
00:08:04 #50152 [verbose] > │ let v53 : US1 = US1_1(48, 49, v4) │
00:08:04 #50153 [verbose] > │ let v54 : US1 = US1_1(49, 50, v4) │
00:08:04 #50154 [verbose] > │ let v55 : US1 = US1_1(50, 51, v4) │
00:08:04 #50155 [verbose] > │ let v56 : US1 = US1_1(51, 52, v4) │
00:08:04 #50156 [verbose] > │ let v57 : US1 = US1_1(52, 53, v4) │
00:08:04 #50157 [verbose] > │ let v58 : US1 = US1_1(53, 54, v4) │
00:08:04 #50158 [verbose] > │ let v59 : US1 = US1_1(54, 55, v4) │
00:08:04 #50159 [verbose] > │ let v60 : US1 = US1_1(55, 56, v4) │
00:08:04 #50160 [verbose] > │ let v61 : US1 = US1_1(56, 57, v4) │
00:08:04 #50161 [verbose] > │ let v62 : US1 = US1_1(57, 58, v4) │
00:08:04 #50162 [verbose] > │ let v63 : US1 = US1_1(58, 59, v4) │
00:08:04 #50163 [verbose] > │ let v64 : US1 = US1_1(59, 60, v4) │
00:08:04 #50164 [verbose] > │ let v65 : UH4 = UH4_0 │
00:08:04 #50165 [verbose] > │ let v66 : UH4 = UH4_1(v64, v65) │
00:08:04 #50166 [verbose] > │ let v67 : UH4 = UH4_1(v63, v66) │
00:08:04 #50167 [verbose] > │ let v68 : UH4 = UH4_1(v62, v67) │
00:08:04 #50168 [verbose] > │ let v69 : UH4 = UH4_1(v61, v68) │
00:08:04 #50169 [verbose] > │ let v70 : UH4 = UH4_1(v60, v69) │
00:08:04 #50170 [verbose] > │ let v71 : UH4 = UH4_1(v59, v70) │
00:08:04 #50171 [verbose] > │ let v72 : UH4 = UH4_1(v58, v71) │
00:08:04 #50172 [verbose] > │ let v73 : UH4 = UH4_1(v57, v72) │
00:08:04 #50173 [verbose] > │ let v74 : UH4 = UH4_1(v56, v73) │
00:08:04 #50174 [verbose] > │ let v75 : UH4 = UH4_1(v55, v74) │
00:08:04 #50175 [verbose] > │ let v76 : UH4 = UH4_1(v54, v75) │
00:08:04 #50176 [verbose] > │ let v77 : UH4 = UH4_1(v53, v76) │
00:08:04 #50177 [verbose] > │ let v78 : UH4 = UH4_1(v52, v77) │
00:08:04 #50178 [verbose] > │ let v79 : UH4 = UH4_1(v51, v78) │
00:08:04 #50179 [verbose] > │ let v80 : UH4 = UH4_1(v50, v79) │
00:08:04 #50180 [verbose] > │ let v81 : UH4 = UH4_1(v49, v80) │
00:08:04 #50181 [verbose] > │ let v82 : UH4 = UH4_1(v48, v81) │
00:08:04 #50182 [verbose] > │ let v83 : UH4 = UH4_1(v47, v82) │
00:08:04 #50183 [verbose] > │ let v84 : UH4 = UH4_1(v46, v83) │
00:08:04 #50184 [verbose] > │ let v85 : UH4 = UH4_1(v45, v84) │
00:08:04 #50185 [verbose] > │ let v86 : UH4 = UH4_1(v44, v85) │
00:08:04 #50186 [verbose] > │ let v87 : UH4 = UH4_1(v43, v86) │
00:08:04 #50187 [verbose] > │ let v88 : UH4 = UH4_1(v42, v87) │
00:08:04 #50188 [verbose] > │ let v89 : UH4 = UH4_1(v41, v88) │
00:08:04 #50189 [verbose] > │ let v90 : UH4 = UH4_1(v40, v89) │
00:08:04 #50190 [verbose] > │ let v91 : UH4 = UH4_1(v39, v90) │
00:08:04 #50191 [verbose] > │ let v92 : UH4 = UH4_1(v38, v91) │
00:08:04 #50192 [verbose] > │ let v93 : UH4 = UH4_1(v37, v92) │
00:08:04 #50193 [verbose] > │ let v94 : UH4 = UH4_1(v36, v93) │
00:08:04 #50194 [verbose] > │ let v95 : UH4 = UH4_1(v35, v94) │
00:08:04 #50195 [verbose] > │ let v96 : UH4 = UH4_1(v34, v95) │
00:08:04 #50196 [verbose] > │ let v97 : UH4 = UH4_1(v33, v96) │
00:08:04 #50197 [verbose] > │ let v98 : UH4 = UH4_1(v32, v97) │
00:08:04 #50198 [verbose] > │ let v99 : UH4 = UH4_1(v31, v98) │
00:08:04 #50199 [verbose] > │ let v100 : UH4 = UH4_1(v30, v99) │
00:08:04 #50200 [verbose] > │ let v101 : UH4 = UH4_1(v29, v100) │
00:08:04 #50201 [verbose] > │ let v102 : UH4 = UH4_1(v28, v101) │
00:08:04 #50202 [verbose] > │ let v103 : UH4 = UH4_1(v27, v102) │
00:08:04 #50203 [verbose] > │ let v104 : UH4 = UH4_1(v26, v103) │
00:08:04 #50204 [verbose] > │ let v105 : UH4 = UH4_1(v25, v104) │
00:08:04 #50205 [verbose] > │ let v106 : UH4 = UH4_1(v24, v105) │
00:08:04 #50206 [verbose] > │ let v107 : UH4 = UH4_1(v23, v106) │
00:08:04 #50207 [verbose] > │ let v108 : UH4 = UH4_1(v22, v107) │
00:08:04 #50208 [verbose] > │ let v109 : UH4 = UH4_1(v21, v108) │
00:08:04 #50209 [verbose] > │ let v110 : UH4 = UH4_1(v20, v109) │
00:08:04 #50210 [verbose] > │ let v111 : UH4 = UH4_1(v19, v110) │
00:08:04 #50211 [verbose] > │ let v112 : UH4 = UH4_1(v18, v111) │
00:08:04 #50212 [verbose] > │ let v113 : UH4 = UH4_1(v17, v112) │
00:08:04 #50213 [verbose] > │ let v114 : UH4 = UH4_1(v16, v113) │
00:08:04 #50214 [verbose] > │ let v115 : UH4 = UH4_1(v15, v114) │
00:08:04 #50215 [verbose] > │ let v116 : UH4 = UH4_1(v14, v115) │
00:08:04 #50216 [verbose] > │ let v117 : UH4 = UH4_1(v13, v116) │
00:08:04 #50217 [verbose] > │ let v118 : UH4 = UH4_1(v12, v117) │
00:08:04 #50218 [verbose] > │ let v119 : UH4 = UH4_1(v11, v118) │
00:08:04 #50219 [verbose] > │ let v120 : UH4 = UH4_1(v10, v119) │
00:08:04 #50220 [verbose] > │ let v121 : UH4 = UH4_1(v9, v120) │
00:08:04 #50221 [verbose] > │ let v122 : UH4 = UH4_1(v8, v121) │
00:08:04 #50222 [verbose] > │ let v123 : UH4 = UH4_1(v7, v122) │
00:08:04 #50223 [verbose] > │ let v124 : UH4 = UH4_1(v6, v123) │
00:08:04 #50224 [verbose] > │ let v125 : UH4 = UH4_1(v5, v124) │
00:08:04 #50225 [verbose] > │ let v126 : UH4 = UH4_1(v3, v125) │
00:08:04 #50226 [verbose] > │ UH4_1(v1, v126) │
00:08:04 #50227 [verbose] > │ and closure143 (v0 : UH5) () : UH5 = │
00:08:04 #50228 [verbose] > │ v0 │
00:08:04 #50229 [verbose] > │ and method5 (v0 : UH1, v1 : UH5, v2 : int32) : struct (UH5 * int32) = │
00:08:04 #50230 [verbose] > │ match v0 with │
00:08:04 #50231 [verbose] > │ | UH1_0(v3, v4, v5, v6, v7, v8, v9, v10, v11, v12) -> (* StreamCons *) │
00:08:04 #50232 [verbose] > │ let v13 : int32 = v2 + 1 │
00:08:04 #50233 [verbose] > │ let v14 : UH1 = v12 () │
00:08:04 #50234 [verbose] > │ let v15 : (unit -> UH5) = closure143(v1) │
00:08:04 #50235 [verbose] > │ let v16 : UH5 = UH5_0(v2, v3, v4, v5, v6, v7, v8, v9, v10, v11, v15) │
00:08:04 #50236 [verbose] > │ method5(v14, v16, v13) │
00:08:04 #50237 [verbose] > │ | UH1_1 -> (* StreamNil *) │
00:08:04 #50238 [verbose] > │ struct (v1, v2) │
00:08:04 #50239 [verbose] > │ and closure144 (v0 : UH5) () : UH5 = │
00:08:04 #50240 [verbose] > │ v0 │
00:08:04 #50241 [verbose] > │ and method6 (v0 : UH5, v1 : UH5) : UH5 = │
00:08:04 #50242 [verbose] > │ match v0 with │
00:08:04 #50243 [verbose] > │ | UH5_0(v2, v3, v4, v5, v6, v7, v8, v9, v10, v11, v12) -> (* StreamCons │
00:08:04 #50244 [verbose] > │ *) │
00:08:04 #50245 [verbose] > │ let v13 : UH5 = v12 () │
00:08:04 #50246 [verbose] > │ let v14 : (unit -> UH5) = closure144(v1) │
00:08:04 #50247 [verbose] > │ let v15 : UH5 = UH5_0(v2, v3, v4, v5, v6, v7, v8, v9, v10, v11, v14) │
00:08:04 #50248 [verbose] > │ method6(v13, v15) │
00:08:04 #50249 [verbose] > │ | UH5_1 -> (* StreamNil *) │
00:08:04 #50250 [verbose] > │ v1 │
00:08:04 #50251 [verbose] > │ and closure145 () struct (v0 : float, v1 : float, v2 : float, v3 : float, v4 │
00:08:04 #50252 [verbose] > │ : float, v5 : float, v6 : float, v7 : float, v8 : float) : struct (float * │
00:08:04 #50253 [verbose] > │ float * float) = │
00:08:04 #50254 [verbose] > │ struct (0.0, 0.0, 0.0) │
00:08:04 #50255 [verbose] > │ and method9 (v0 : int32, v1 : UH1) : US3 = │
00:08:04 #50256 [verbose] > │ match v1 with │
00:08:04 #50257 [verbose] > │ | UH1_0(v2, v3, v4, v5, v6, v7, v8, v9, v10, v11) -> (* StreamCons *) │
00:08:04 #50258 [verbose] > │ let v12 : bool = v0 <= 0 │
00:08:04 #50259 [verbose] > │ if v12 then │
00:08:04 #50260 [verbose] > │ US3_0(v2, v3, v4, v5, v6, v7, v8, v9, v10) │
00:08:04 #50261 [verbose] > │ else │
00:08:04 #50262 [verbose] > │ let v14 : int32 = v0 - 1 │
00:08:04 #50263 [verbose] > │ let v15 : UH1 = v11 () │
00:08:04 #50264 [verbose] > │ method9(v14, v15) │
00:08:04 #50265 [verbose] > │ | UH1_1 -> (* StreamNil *) │
00:08:04 #50266 [verbose] > │ US3_1 │
00:08:04 #50267 [verbose] > │ and closure146 () struct (v0 : float, v1 : float, v2 : float, v3 : float, v4 │
00:08:04 #50268 [verbose] > │ : float, v5 : float, v6 : float, v7 : float, v8 : float) : struct (float * │
00:08:04 #50269 [verbose] > │ float * float) = │
00:08:04 #50270 [verbose] > │ struct (0.0, 0.0, 0.0) │
00:08:04 #50271 [verbose] > │ and method8 (v0 : int32, v1 : UH1, v2 : UH4, v3 : UH6) : UH6 = │
00:08:04 #50272 [verbose] > │ match v2 with │
00:08:04 #50273 [verbose] > │ | UH4_1(v4, v5) -> (* Cons *) │
00:08:04 #50274 [verbose] > │ let v6 : UH6 = method8(v0, v1, v5, v3) │
00:08:04 #50275 [verbose] > │ let v55 : (struct (float * float * float * float * float * float * │
00:08:04 #50276 [verbose] > │ float * float * float) -> struct (float * float * float)) = │
00:08:04 #50277 [verbose] > │ match v4 with │
00:08:04 #50278 [verbose] > │ | US1_0(v7, v8) -> (* ExternalForce *) │
00:08:04 #50279 [verbose] > │ let v9 : bool = v0 = v7 │
00:08:04 #50280 [verbose] > │ if v9 then │
00:08:04 #50281 [verbose] > │ v8 │
00:08:04 #50282 [verbose] > │ else │
00:08:04 #50283 [verbose] > │ closure145() │
00:08:04 #50284 [verbose] > │ | US1_1(v12, v13, v14) -> (* InternalForce *) │
00:08:04 #50285 [verbose] > │ let v15 : bool = v0 = v12 │
00:08:04 #50286 [verbose] > │ let v49 : US2 = │
00:08:04 #50287 [verbose] > │ if v15 then │
00:08:04 #50288 [verbose] > │ let v16 : US3 = method9(v13, v1) │
00:08:04 #50289 [verbose] > │ match v16 with │
00:08:04 #50290 [verbose] > │ | US3_1 -> (* None *) │
00:08:04 #50291 [verbose] > │ US2_1 │
00:08:04 #50292 [verbose] > │ | US3_0(v17, v18, v19, v20, v21, v22, v23, v24, v25) │
00:08:04 #50293 [verbose] > │ -> (* Some *) │
00:08:04 #50294 [verbose] > │ let v26 : (struct (float * float * float * float │
00:08:04 #50295 [verbose] > │ * float * float * float * float * float) -> struct (float * float * float)) │
00:08:04 #50296 [verbose] > │ = v14 struct (v17, v18, v19, v20, v21, v22, v23, v24, v25) │
00:08:04 #50297 [verbose] > │ US2_0(v26) │
00:08:04 #50298 [verbose] > │ else │
00:08:04 #50299 [verbose] > │ let v31 : bool = v0 = v13 │
00:08:04 #50300 [verbose] > │ if v31 then │
00:08:04 #50301 [verbose] > │ let v32 : US3 = method9(v12, v1) │
00:08:04 #50302 [verbose] > │ match v32 with │
00:08:04 #50303 [verbose] > │ | US3_1 -> (* None *) │
00:08:04 #50304 [verbose] > │ US2_1 │
00:08:04 #50305 [verbose] > │ | US3_0(v33, v34, v35, v36, v37, v38, v39, v40, │
00:08:04 #50306 [verbose] > │ v41) -> (* Some *) │
00:08:04 #50307 [verbose] > │ let v42 : (struct (float * float * float * │
00:08:04 #50308 [verbose] > │ float * float * float * float * float * float) -> struct (float * float * │
00:08:04 #50309 [verbose] > │ float)) = v14 struct (v33, v34, v35, v36, v37, v38, v39, v40, v41) │
00:08:04 #50310 [verbose] > │ US2_0(v42) │
00:08:04 #50311 [verbose] > │ else │
00:08:04 #50312 [verbose] > │ US2_1 │
00:08:04 #50313 [verbose] > │ match v49 with │
00:08:04 #50314 [verbose] > │ | US2_1 -> (* None *) │
00:08:04 #50315 [verbose] > │ closure146() │
00:08:04 #50316 [verbose] > │ | US2_0(v50) -> (* Some *) │
00:08:04 #50317 [verbose] > │ v50 │
00:08:04 #50318 [verbose] > │ UH6_1(v55, v6) │
00:08:04 #50319 [verbose] > │ | UH4_0 -> (* Nil *) │
00:08:04 #50320 [verbose] > │ v3 │
00:08:04 #50321 [verbose] > │ and method10 (v0 : float, v1 : float, v2 : float, v3 : float, v4 : float, v5 │
00:08:04 #50322 [verbose] > │ : float, v6 : float, v7 : float, v8 : float, v9 : UH6, v10 : UH7) : UH7 = │
00:08:04 #50323 [verbose] > │ match v9 with │
00:08:04 #50324 [verbose] > │ | UH6_1(v11, v12) -> (* Cons *) │
00:08:04 #50325 [verbose] > │ let v13 : UH7 = method10(v0, v1, v2, v3, v4, v5, v6, v7, v8, v12, │
00:08:04 #50326 [verbose] > │ v10) │
00:08:04 #50327 [verbose] > │ let struct (v14 : float, v15 : float, v16 : float) = v11 struct (v0, │
00:08:04 #50328 [verbose] > │ v1, v2, v3, v4, v5, v6, v7, v8) │
00:08:04 #50329 [verbose] > │ UH7_1(v14, v15, v16, v13) │
00:08:04 #50330 [verbose] > │ | UH6_0 -> (* Nil *) │
00:08:04 #50331 [verbose] > │ v10 │
00:08:04 #50332 [verbose] > │ and method11 (v0 : UH7, v1 : float, v2 : float, v3 : float) : struct (float │
00:08:04 #50333 [verbose] > │ * float * float) = │
00:08:04 #50334 [verbose] > │ match v0 with │
00:08:04 #50335 [verbose] > │ | UH7_1(v4, v5, v6, v7) -> (* Cons *) │
00:08:04 #50336 [verbose] > │ let v8 : float = v1 + v4 │
00:08:04 #50337 [verbose] > │ let v9 : float = v2 + v5 │
00:08:04 #50338 [verbose] > │ let v10 : float = v3 + v6 │
00:08:04 #50339 [verbose] > │ method11(v7, v8, v9, v10) │
00:08:04 #50340 [verbose] > │ | UH7_0 -> (* Nil *) │
00:08:04 #50341 [verbose] > │ struct (v1, v2, v3) │
00:08:04 #50342 [verbose] > │ and closure147 (v0 : UH3) () : UH3 = │
00:08:04 #50343 [verbose] > │ v0 │
00:08:04 #50344 [verbose] > │ and method7 (v0 : UH4, v1 : UH1, v2 : UH5, v3 : UH3) : UH3 = │
00:08:04 #50345 [verbose] > │ match v2 with │
00:08:04 #50346 [verbose] > │ | UH5_0(v4, v5, v6, v7, v8, v9, v10, v11, v12, v13, v14) -> (* │
00:08:04 #50347 [verbose] > │ StreamCons *) │
00:08:04 #50348 [verbose] > │ let v15 : UH5 = v14 () │
00:08:04 #50349 [verbose] > │ let v16 : UH3 = method7(v0, v1, v15, v3) │
00:08:04 #50350 [verbose] > │ let v17 : UH6 = UH6_0 │
00:08:04 #50351 [verbose] > │ let v18 : UH6 = method8(v4, v1, v0, v17) │
00:08:04 #50352 [verbose] > │ let v19 : UH7 = UH7_0 │
00:08:04 #50353 [verbose] > │ let v20 : UH7 = method10(v5, v6, v7, v8, v9, v10, v11, v12, v13, │
00:08:04 #50354 [verbose] > │ v18, v19) │
00:08:04 #50355 [verbose] > │ let v21 : float = 0.0 │
00:08:04 #50356 [verbose] > │ let v22 : float = 0.0 │
00:08:04 #50357 [verbose] > │ let v23 : float = 0.0 │
00:08:04 #50358 [verbose] > │ let struct (v24 : float, v25 : float, v26 : float) = method11(v20, │
00:08:04 #50359 [verbose] > │ v21, v22, v23) │
00:08:04 #50360 [verbose] > │ let v27 : float = v24 / v6 │
00:08:04 #50361 [verbose] > │ let v28 : float = v25 / v6 │
00:08:04 #50362 [verbose] > │ let v29 : float = v26 / v6 │
00:08:04 #50363 [verbose] > │ let v30 : (unit -> UH3) = closure147(v16) │
00:08:04 #50364 [verbose] > │ UH3_0(0.0, 0.0, v11, v12, v13, 1.0, v27, v28, v29, v30) │
00:08:04 #50365 [verbose] > │ | UH5_1 -> (* StreamNil *) │
00:08:04 #50366 [verbose] > │ v3 │
00:08:04 #50367 [verbose] > │ and closure142 (v0 : UH4) (v1 : UH1) : UH3 = │
00:08:04 #50368 [verbose] > │ let v2 : UH5 = UH5_1 │
00:08:04 #50369 [verbose] > │ let v3 : int32 = 0 │
00:08:04 #50370 [verbose] > │ let struct (v4 : UH5, v5 : int32) = method5(v1, v2, v3) │
00:08:04 #50371 [verbose] > │ let v6 : UH5 = UH5_1 │
00:08:04 #50372 [verbose] > │ let v7 : UH5 = method6(v4, v6) │
00:08:04 #50373 [verbose] > │ let v8 : UH3 = UH3_1 │
00:08:04 #50374 [verbose] > │ let v9 : UH3 = method7(v0, v1, v7, v8) │
00:08:04 #50375 [verbose] > │ v9 │
00:08:04 #50376 [verbose] > │ and closure148 (v0 : (UH1 -> UH1), v1 : UH1, v2 : UH1) () : UH8 = │
00:08:04 #50377 [verbose] > │ let v3 : UH1 = v0 v2 │
00:08:04 #50378 [verbose] > │ let v4 : (unit -> UH8) = closure148(v0, v1, v3) │
00:08:04 #50379 [verbose] > │ UH8_0(v2, v4) │
00:08:04 #50380 [verbose] > │ and method12 (v0 : float, v1 : UH8) : US4 = │
00:08:04 #50381 [verbose] > │ match v1 with │
00:08:04 #50382 [verbose] > │ | UH8_0(v2, v3) -> (* StreamCons *) │
00:08:04 #50383 [verbose] > │ let v4 : bool = v0 <= 0.0 │
00:08:04 #50384 [verbose] > │ if v4 then │
00:08:04 #50385 [verbose] > │ US4_0(v2) │
00:08:04 #50386 [verbose] > │ else │
00:08:04 #50387 [verbose] > │ let v6 : float = v0 - 1.0 │
00:08:04 #50388 [verbose] > │ let v7 : UH8 = v3 () │
00:08:04 #50389 [verbose] > │ method12(v6, v7) │
00:08:04 #50390 [verbose] > │ | UH8_1 -> (* StreamNil *) │
00:08:04 #50391 [verbose] > │ US4_1 │
00:08:04 #50392 [verbose] > │ and closure149 (v0 : UH9) () : UH9 = │
00:08:04 #50393 [verbose] > │ v0 │
00:08:04 #50394 [verbose] > │ and method13 (v0 : UH1, v1 : UH9) : UH9 = │
00:08:04 #50395 [verbose] > │ match v0 with │
00:08:04 #50396 [verbose] > │ | UH1_0(v2, v3, v4, v5, v6, v7, v8, v9, v10, v11) -> (* StreamCons *) │
00:08:04 #50397 [verbose] > │ let v12 : UH1 = v11 () │
00:08:04 #50398 [verbose] > │ let v13 : UH9 = method13(v12, v1) │
00:08:04 #50399 [verbose] > │ let v14 : (unit -> UH9) = closure149(v13) │
00:08:04 #50400 [verbose] > │ UH9_0(v4, v5, v6, v14) │
00:08:04 #50401 [verbose] > │ | UH1_1 -> (* StreamNil *) │
00:08:04 #50402 [verbose] > │ v1 │
00:08:04 #50403 [verbose] > │ and method14 (v0 : UH9, v1 : UH7) : UH7 = │
00:08:04 #50404 [verbose] > │ match v0 with │
00:08:04 #50405 [verbose] > │ | UH9_0(v2, v3, v4, v5) -> (* StreamCons *) │
00:08:04 #50406 [verbose] > │ let v6 : UH9 = v5 () │
00:08:04 #50407 [verbose] > │ let v7 : UH7 = method14(v6, v1) │
00:08:04 #50408 [verbose] > │ UH7_1(v2, v3, v4, v7) │
00:08:04 #50409 [verbose] > │ | UH9_1 -> (* StreamNil *) │
00:08:04 #50410 [verbose] > │ v1 │
00:08:04 #50411 [verbose] > │ and method15 (v0 : UH7, v1 : UH7) : UH7 = │
00:08:04 #50412 [verbose] > │ match v0 with │
00:08:04 #50413 [verbose] > │ | UH7_1(v2, v3, v4, v5) -> (* Cons *) │
00:08:04 #50414 [verbose] > │ let v6 : UH7 = method15(v5, v1) │
00:08:04 #50415 [verbose] > │ UH7_1(v2, v3, v4, v6) │
00:08:04 #50416 [verbose] > │ | UH7_0 -> (* Nil *) │
00:08:04 #50417 [verbose] > │ v1 │
00:08:04 #50418 [verbose] > │ and method16 (v0 : UH7, v1 : UH10) : UH10 = │
00:08:04 #50419 [verbose] > │ match v0 with │
00:08:04 #50420 [verbose] > │ | UH7_1(v2, v3, v4, v5) -> (* Cons *) │
00:08:04 #50421 [verbose] > │ let v6 : UH10 = method16(v5, v1) │
00:08:04 #50422 [verbose] > │ UH10_1(v2, v3, v6) │
00:08:04 #50423 [verbose] > │ | UH7_0 -> (* Nil *) │
00:08:04 #50424 [verbose] > │ v1 │
00:08:04 #50425 [verbose] > │ and closure150 (v0 : UH11) () : UH11 = │
00:08:04 #50426 [verbose] > │ v0 │
00:08:04 #50427 [verbose] > │ and method17 (v0 : UH10, v1 : UH11) : UH11 = │
00:08:04 #50428 [verbose] > │ match v0 with │
00:08:04 #50429 [verbose] > │ | UH10_1(v2, v3, v4) -> (* Cons *) │
00:08:04 #50430 [verbose] > │ let v5 : UH11 = method17(v4, v1) │
00:08:04 #50431 [verbose] > │ let v6 : (unit -> UH11) = closure150(v5) │
00:08:04 #50432 [verbose] > │ UH11_0(v2, v3, v6) │
00:08:04 #50433 [verbose] > │ | UH10_0 -> (* Nil *) │
00:08:04 #50434 [verbose] > │ v1 │
00:08:04 #50435 [verbose] > │ and closure151 (v0 : UH0) () : UH0 = │
00:08:04 #50436 [verbose] > │ v0 │
00:08:04 #50437 [verbose] > │ and closure152 (v0 : UH0) () : UH0 = │
00:08:04 #50438 [verbose] > │ v0 │
00:08:04 #50439 [verbose] > │ and method18 (v0 : UH11) : struct (UH0 * UH0) = │
00:08:04 #50440 [verbose] > │ match v0 with │
00:08:04 #50441 [verbose] > │ | UH11_0(v1, v2, v3) -> (* StreamCons *) │
00:08:04 #50442 [verbose] > │ let v4 : UH11 = v3 () │
00:08:04 #50443 [verbose] > │ let struct (v5 : UH0, v6 : UH0) = method18(v4) │
00:08:04 #50444 [verbose] > │ let v7 : (unit -> UH0) = closure151(v5) │
00:08:04 #50445 [verbose] > │ let v8 : UH0 = UH0_0(v1, v7) │
00:08:04 #50446 [verbose] > │ let v9 : (unit -> UH0) = closure152(v6) │
00:08:04 #50447 [verbose] > │ let v10 : UH0 = UH0_0(v2, v9) │
00:08:04 #50448 [verbose] > │ struct (v8, v10) │
00:08:04 #50449 [verbose] > │ | UH11_1 -> (* StreamNil *) │
00:08:04 #50450 [verbose] > │ let v11 : UH0 = UH0_1 │
00:08:04 #50451 [verbose] > │ let v12 : UH0 = UH0_1 │
00:08:04 #50452 [verbose] > │ struct (v11, v12) │
00:08:04 #50453 [verbose] > │ and method19 (v0 : UH0, v1 : UH12) : UH12 = │
00:08:04 #50454 [verbose] > │ match v0 with │
00:08:04 #50455 [verbose] > │ | UH0_0(v2, v3) -> (* StreamCons *) │
00:08:04 #50456 [verbose] > │ let v4 : UH0 = v3 () │
00:08:04 #50457 [verbose] > │ let v5 : UH12 = method19(v4, v1) │
00:08:04 #50458 [verbose] > │ UH12_1(v2, v5) │
00:08:04 #50459 [verbose] > │ | UH0_1 -> (* StreamNil *) │
00:08:04 #50460 [verbose] > │ v1 │
00:08:04 #50461 [verbose] > │ and method21 (v0 : UH12, v1 : int32) : int32 = │
00:08:04 #50462 [verbose] > │ match v0 with │
00:08:04 #50463 [verbose] > │ | UH12_1(v2, v3) -> (* Cons *) │
00:08:04 #50464 [verbose] > │ let v4 : int32 = v1 + 1 │
00:08:04 #50465 [verbose] > │ method21(v3, v4) │
00:08:04 #50466 [verbose] > │ | UH12_0 -> (* Nil *) │
00:08:04 #50467 [verbose] > │ v1 │
00:08:04 #50468 [verbose] > │ and method22 (v0 : (float []), v1 : UH12, v2 : int32) : int32 = │
00:08:04 #50469 [verbose] > │ match v1 with │
00:08:04 #50470 [verbose] > │ | UH12_1(v3, v4) -> (* Cons *) │
00:08:04 #50471 [verbose] > │ v0.[int v2] <- v3 │
00:08:04 #50472 [verbose] > │ let v5 : int32 = v2 + 1 │
00:08:04 #50473 [verbose] > │ method22(v0, v4, v5) │
00:08:04 #50474 [verbose] > │ | UH12_0 -> (* Nil *) │
00:08:04 #50475 [verbose] > │ v2 │
00:08:04 #50476 [verbose] > │ and method20 (v0 : UH12) : (float []) = │
00:08:04 #50477 [verbose] > │ let v1 : int32 = 0 │
00:08:04 #50478 [verbose] > │ let v2 : int32 = method21(v0, v1) │
00:08:04 #50479 [verbose] > │ let v3 : (float []) = Array.zeroCreate<float> (v2) │
00:08:04 #50480 [verbose] > │ let v4 : int32 = 0 │
00:08:04 #50481 [verbose] > │ let v5 : int32 = method22(v3, v0, v4) │
00:08:04 #50482 [verbose] > │ v3 │
00:08:04 #50483 [verbose] > │ and closure153 (v0 : UH2) () : UH2 = │
00:08:04 #50484 [verbose] > │ v0 │
00:08:04 #50485 [verbose] > │ and method1 (v0 : UH1, v1 : UH0, v2 : UH2) : UH2 = │
00:08:04 #50486 [verbose] > │ match v1 with │
00:08:04 #50487 [verbose] > │ | UH0_0(v3, v4) -> (* StreamCons *) │
00:08:04 #50488 [verbose] > │ let v5 : UH0 = v4 () │
00:08:04 #50489 [verbose] > │ let v6 : UH2 = method1(v0, v5, v2) │
00:08:04 #50490 [verbose] > │ let v7 : ((UH1 -> UH3) -> (UH1 -> UH1)) = method2() │
00:08:04 #50491 [verbose] > │ let v8 : UH4 = method4() │
00:08:04 #50492 [verbose] > │ let v9 : (UH1 -> UH3) = closure142(v8) │
00:08:04 #50493 [verbose] > │ let v10 : (UH1 -> UH1) = v7 v9 │
00:08:04 #50494 [verbose] > │ let v11 : UH1 = v10 v0 │
00:08:04 #50495 [verbose] > │ let v12 : (unit -> UH8) = closure148(v10, v0, v11) │
00:08:04 #50496 [verbose] > │ let v13 : UH8 = UH8_0(v0, v12) │
00:08:04 #50497 [verbose] > │ let v14 : US4 = method12(v3, v13) │
00:08:04 #50498 [verbose] > │ let v18 : UH1 = │
00:08:04 #50499 [verbose] > │ match v14 with │
00:08:04 #50500 [verbose] > │ | US4_1 -> (* None *) │
00:08:04 #50501 [verbose] > │ failwith<UH1> "Option does not have a value." │
00:08:04 #50502 [verbose] > │ | US4_0(v15) -> (* Some *) │
00:08:04 #50503 [verbose] > │ v15 │
00:08:04 #50504 [verbose] > │ let v19 : UH9 = UH9_1 │
00:08:04 #50505 [verbose] > │ let v20 : UH9 = method13(v18, v19) │
00:08:04 #50506 [verbose] > │ let v21 : UH7 = UH7_0 │
00:08:04 #50507 [verbose] > │ let v22 : UH7 = method14(v20, v21) │
00:08:04 #50508 [verbose] > │ let v23 : float = 0.65 │
00:08:04 #50509 [verbose] > │ let v24 : float = 0.0 │
00:08:04 #50510 [verbose] > │ let v25 : float = 0.0 │
00:08:04 #50511 [verbose] > │ let v26 : UH7 = UH7_0 │
00:08:04 #50512 [verbose] > │ let v27 : UH7 = UH7_1(v23, v24, v25, v26) │
00:08:04 #50513 [verbose] > │ let v28 : UH7 = method15(v22, v27) │
00:08:04 #50514 [verbose] > │ let v29 : UH10 = UH10_0 │
00:08:04 #50515 [verbose] > │ let v30 : UH10 = method16(v28, v29) │
00:08:04 #50516 [verbose] > │ let v31 : UH11 = UH11_1 │
00:08:04 #50517 [verbose] > │ let v32 : UH11 = method17(v30, v31) │
00:08:04 #50518 [verbose] > │ let struct (v33 : UH0, v34 : UH0) = method18(v32) │
00:08:04 #50519 [verbose] > │ let v35 : UH12 = UH12_0 │
00:08:04 #50520 [verbose] > │ let v36 : UH12 = method19(v33, v35) │
00:08:04 #50521 [verbose] > │ let v37 : float = 0.0 │
00:08:04 #50522 [verbose] > │ let v38 : UH12 = UH12_1(v37, v36) │
00:08:04 #50523 [verbose] > │ let v39 : (float []) = method20(v38) │
00:08:04 #50524 [verbose] > │ let v40 : UH12 = UH12_0 │
00:08:04 #50525 [verbose] > │ let v41 : UH12 = method19(v34, v40) │
00:08:04 #50526 [verbose] > │ let v42 : float = 0.0 │
00:08:04 #50527 [verbose] > │ let v43 : UH12 = UH12_1(v42, v41) │
00:08:04 #50528 [verbose] > │ let v44 : (float []) = method20(v43) │
00:08:04 #50529 [verbose] > │ let v45 : (unit -> UH2) = closure153(v6) │
00:08:04 #50530 [verbose] > │ UH2_0(v39, v44, v45) │
00:08:04 #50531 [verbose] > │ | UH0_1 -> (* StreamNil *) │
00:08:04 #50532 [verbose] > │ v2 │
00:08:04 #50533 [verbose] > │ and closure154 (v0 : UH13) () : UH13 = │
00:08:04 #50534 [verbose] > │ v0 │
00:08:04 #50535 [verbose] > │ and method23 (v0 : UH2, v1 : UH13, v2 : int32) : struct (UH13 * int32) = │
00:08:04 #50536 [verbose] > │ match v0 with │
00:08:04 #50537 [verbose] > │ | UH2_0(v3, v4, v5) -> (* StreamCons *) │
00:08:04 #50538 [verbose] > │ let v6 : int32 = v2 + 1 │
00:08:04 #50539 [verbose] > │ let v7 : UH2 = v5 () │
00:08:04 #50540 [verbose] > │ let v8 : (unit -> UH13) = closure154(v1) │
00:08:04 #50541 [verbose] > │ let v9 : UH13 = UH13_0(v2, v3, v4, v8) │
00:08:04 #50542 [verbose] > │ method23(v7, v9, v6) │
00:08:04 #50543 [verbose] > │ | UH2_1 -> (* StreamNil *) │
00:08:04 #50544 [verbose] > │ struct (v1, v2) │
00:08:04 #50545 [verbose] > │ and closure155 (v0 : UH13) () : UH13 = │
00:08:04 #50546 [verbose] > │ v0 │
00:08:04 #50547 [verbose] > │ and method24 (v0 : UH13, v1 : UH13) : UH13 = │
00:08:04 #50548 [verbose] > │ match v0 with │
00:08:04 #50549 [verbose] > │ | UH13_0(v2, v3, v4, v5) -> (* StreamCons *) │
00:08:04 #50550 [verbose] > │ let v6 : UH13 = v5 () │
00:08:04 #50551 [verbose] > │ let v7 : (unit -> UH13) = closure155(v1) │
00:08:04 #50552 [verbose] > │ let v8 : UH13 = UH13_0(v2, v3, v4, v7) │
00:08:04 #50553 [verbose] > │ method24(v6, v8) │
00:08:04 #50554 [verbose] > │ | UH13_1 -> (* StreamNil *) │
00:08:04 #50555 [verbose] > │ v1 │
00:08:04 #50556 [verbose] > │ and closure156 (v0 : UH14) () : UH14 = │
00:08:04 #50557 [verbose] > │ v0 │
00:08:04 #50558 [verbose] > │ and method25 (v0 : UH13, v1 : UH14) : UH14 = │
00:08:04 #50559 [verbose] > │ match v0 with │
00:08:04 #50560 [verbose] > │ | UH13_0(v2, v3, v4, v5) -> (* StreamCons *) │
00:08:04 #50561 [verbose] > │ let v6 : UH13 = v5 () │
00:08:04 #50562 [verbose] > │ let v7 : UH14 = method25(v6, v1) │
00:08:04 #50563 [verbose] > │ let v8 : string = $"{v2}" │
00:08:04 #50564 [verbose] > │ let v9 : (struct (string * (float []) * (float [])) []) = [|struct │
00:08:04 #50565 [verbose] > │ (v8, v3, v4)|] │
00:08:04 #50566 [verbose] > │ let v10 : string = "wave" │
00:08:04 #50567 [verbose] > │ let v11 : string = "position (m)" │
00:08:04 #50568 [verbose] > │ let v12 : string = "displacement (m)" │
00:08:04 #50569 [verbose] > │ let v13 : (unit -> UH14) = closure156(v7) │
00:08:04 #50570 [verbose] > │ UH14_0(v10, v11, v12, v9, v13) │
00:08:04 #50571 [verbose] > │ | UH13_1 -> (* StreamNil *) │
00:08:04 #50572 [verbose] > │ v1 │
00:08:04 #50573 [verbose] > │ and method26 (v0 : UH14, v1 : UH15) : UH15 = │
00:08:04 #50574 [verbose] > │ match v0 with │
00:08:04 #50575 [verbose] > │ | UH14_0(v2, v3, v4, v5, v6) -> (* StreamCons *) │
00:08:04 #50576 [verbose] > │ let v7 : UH14 = v6 () │
00:08:04 #50577 [verbose] > │ let v8 : UH15 = method26(v7, v1) │
00:08:04 #50578 [verbose] > │ UH15_1(v2, v3, v4, v5, v8) │
00:08:04 #50579 [verbose] > │ | UH14_1 -> (* StreamNil *) │
00:08:04 #50580 [verbose] > │ v1 │
00:08:04 #50581 [verbose] > │ and method28 (v0 : UH15, v1 : int32) : int32 = │
00:08:04 #50582 [verbose] > │ match v0 with │
00:08:04 #50583 [verbose] > │ | UH15_1(v2, v3, v4, v5, v6) -> (* Cons *) │
00:08:04 #50584 [verbose] > │ let v7 : int32 = v1 + 1 │
00:08:04 #50585 [verbose] > │ method28(v6, v7) │
00:08:04 #50586 [verbose] > │ | UH15_0 -> (* Nil *) │
00:08:04 #50587 [verbose] > │ v1 │
00:08:04 #50588 [verbose] > │ and method29 (v0 : (struct (string * string * string * (struct (string * │
00:08:04 #50589 [verbose] > │ (float []) * (float [])) [])) []), v1 : UH15, v2 : int32) : int32 = │
00:08:04 #50590 [verbose] > │ match v1 with │
00:08:04 #50591 [verbose] > │ | UH15_1(v3, v4, v5, v6, v7) -> (* Cons *) │
00:08:04 #50592 [verbose] > │ v0.[int v2] <- struct (v3, v4, v5, v6) │
00:08:04 #50593 [verbose] > │ let v8 : int32 = v2 + 1 │
00:08:04 #50594 [verbose] > │ method29(v0, v7, v8) │
00:08:04 #50595 [verbose] > │ | UH15_0 -> (* Nil *) │
00:08:04 #50596 [verbose] > │ v2 │
00:08:04 #50597 [verbose] > │ and method27 (v0 : UH15) : (struct (string * string * string * (struct │
00:08:04 #50598 [verbose] > │ (string * (float []) * (float [])) [])) []) = │
00:08:04 #50599 [verbose] > │ let v1 : int32 = 0 │
00:08:04 #50600 [verbose] > │ let v2 : int32 = method28(v0, v1) │
00:08:04 #50601 [verbose] > │ let v3 : (struct (string * string * string * (struct (string * (float [ │
00:08:04 #50602 [verbose] > │ ]) * (float [])) [])) []) = Array.zeroCreate<struct (string * string * │
00:08:04 #50603 [verbose] > │ string * (struct (string * (float []) * (float [])) []))> (v2) │
00:08:04 #50604 [verbose] > │ let v4 : int32 = 0 │
00:08:04 #50605 [verbose] > │ let v5 : int32 = method29(v3, v0, v4) │
00:08:04 #50606 [verbose] > │ v3 │
00:08:04 #50607 [verbose] > │ and method0 () : (struct (string * string * string * (struct (string * │
00:08:04 #50608 [verbose] > │ (float []) * (float [])) [])) []) = │
00:08:04 #50609 [verbose] > │ let v0 : float = 0.0 │
00:08:04 #50610 [verbose] > │ let v1 : (unit -> UH0) = closure0() │
00:08:04 #50611 [verbose] > │ let v2 : UH0 = UH0_0(v0, v1) │
00:08:04 #50612 [verbose] > │ let v3 : float = 0.0 │
00:08:04 #50613 [verbose] > │ let v4 : float = 8.422578125E-06 │
00:08:04 #50614 [verbose] > │ let v5 : float = 0.01 │
00:08:04 #50615 [verbose] > │ let v6 : float = 0.0007224452478461068 │
00:08:04 #50616 [verbose] > │ let v7 : float = 0.0 │
00:08:04 #50617 [verbose] > │ let v8 : float = 0.0 │
00:08:04 #50618 [verbose] > │ let v9 : float = 0.0 │
00:08:04 #50619 [verbose] > │ let v10 : float = 0.0 │
00:08:04 #50620 [verbose] > │ let v11 : float = 0.0 │
00:08:04 #50621 [verbose] > │ let v12 : (unit -> UH1) = closure66() │
00:08:04 #50622 [verbose] > │ let v13 : UH1 = UH1_0(v3, v4, v5, v6, v7, v8, v9, v10, v11, v12) │
00:08:04 #50623 [verbose] > │ let v14 : UH2 = UH2_1 │
00:08:04 #50624 [verbose] > │ let v15 : UH2 = method1(v13, v2, v14) │
00:08:04 #50625 [verbose] > │ let v16 : UH13 = UH13_1 │
00:08:04 #50626 [verbose] > │ let v17 : int32 = 0 │
00:08:04 #50627 [verbose] > │ let struct (v18 : UH13, v19 : int32) = method23(v15, v16, v17) │
00:08:04 #50628 [verbose] > │ let v20 : UH13 = UH13_1 │
00:08:04 #50629 [verbose] > │ let v21 : UH13 = method24(v18, v20) │
00:08:04 #50630 [verbose] > │ let v22 : UH14 = UH14_1 │
00:08:04 #50631 [verbose] > │ let v23 : UH14 = method25(v21, v22) │
00:08:04 #50632 [verbose] > │ let v24 : UH15 = UH15_0 │
00:08:04 #50633 [verbose] > │ let v25 : UH15 = method26(v23, v24) │
00:08:04 #50634 [verbose] > │ method27(v25) │
00:08:04 #50635 [verbose] > │ method0() │
00:08:04 #50636 [verbose] > │ │
00:08:04 #50637 [verbose] > │ │
00:08:04 #50638 [verbose] > ╰──────────────────────────────────────────────────────────────────────────────╯
00:08:04 #50639 [verbose] >
00:08:04 #50640 [verbose] > ── markdown ────────────────────────────────────────────────────────────────────
00:08:04 #50641 [verbose] > ╭──────────────────────────────────────────────────────────────────────────────╮
00:08:04 #50642 [verbose] > │ ## end │
00:08:04 #50643 [verbose] > ╰──────────────────────────────────────────────────────────────────────────────╯
00:08:06 #50644 [verbose] > [NbConvertApp] Converting notebook physics.dib.ipynb to html
00:08:06 #50645 [verbose] > C:\Users\i574n\scoop\apps\python\current\Lib\site-packages\nbformat\__init__.py:93: MissingIDFieldWarning: Code cell is missing an id field, this will become a hard error in future nbformat versions. You may want to use `normalize()` on your notebooks before validations (available since nbformat 5.1.4). Previous versions of nbformat are fixing this issue transparently, and will stop doing so in the future.
00:08:06 #50646 [verbose] > validate(nb)
00:08:06 #50647 [verbose] > C:\Users\i574n\scoop\apps\python\current\Lib\site-packages\nbconvert\filters\highlight.py:71: UserWarning: IPython3 lexer unavailable, falling back on Python 3
00:08:06 #50648 [verbose] > return _pygments_highlight(
00:08:10 #50649 [verbose] > [NbConvertApp] Writing 2732421 bytes to physics.dib.html
00:08:10 #50650 [debug] execute_with_options_async / exit_code: 0 / output.Length: 579374
00:08:10 #26 [debug] main / executeCommand / exitCode: 0
00:08:12 #27 [debug] runWithTimeoutChildAsync / timeout: 2000
00:00:00 #2 [debug] writeDibCode / output: Spi / path: common.dib
00:00:00 #2 [debug] writeDibCode / output: Spi / path: crypto.dib
00:00:00 #2 [debug] writeDibCode / output: Spi / path: console.dib
00:00:00 #2 [debug] writeDibCode / output: Spi / path: date_time.dib
00:00:00 #2 [debug] writeDibCode / output: Spi / path: testing.dib
00:00:00 #2 [debug] writeDibCode / output: Spi / path: trace.dib
00:00:00 #2 [debug] writeDibCode / output: Spi / path: runtime.dib
00:00:00 #2 [debug] writeDibCode / output: Spi / path: async.dib
00:00:00 #8 [debug] parseDibCode / output: Spi / file: console.dib
00:00:00 #7 [debug] parseDibCode / output: Spi / file: runtime.dib
00:00:00 #10 [debug] parseDibCode / output: Spi / file: async.dib
00:00:00 #4 [debug] parseDibCode / output: Spi / file: common.dib
00:00:00 #4 [debug] parseDibCode / output: Spi / file: testing.dib
00:00:00 #6 [debug] parseDibCode / output: Spi / file: trace.dib
00:00:00 #10 [debug] parseDibCode / output: Spi / file: date_time.dib
00:00:00 #6 [debug] parseDibCode / output: Spi / file: crypto.dib
00:00:00 #13 [debug] writeDibCode / output: Spi / path: optionm'.dib
00:00:00 #13 [debug] writeDibCode / output: Spi / path: am'.dib
00:00:00 #11 [debug] writeDibCode / output: Spi / path: math.dib
00:00:00 #11 [debug] writeDibCode / output: Spi / path: file_system.dib
00:00:00 #11 [debug] writeDibCode / output: Spi / path: guid.dib
00:00:00 #14 [debug] writeDibCode / output: Spi / path: sm'.dib
00:00:00 #15 [debug] parseDibCode / output: Spi / file: optionm'.dib
00:00:00 #16 [debug] parseDibCode / output: Spi / file: am'.dib
00:00:00 #17 [debug] parseDibCode / output: Spi / file: math.dib
00:00:00 #18 [debug] parseDibCode / output: Spi / file: file_system.dib
00:00:00 #19 [debug] parseDibCode / output: Spi / file: guid.dib
00:00:00 #20 [debug] parseDibCode / output: Spi / file: sm'.dib
00:00:00 #21 [debug] writeDibCode / output: Spi / path: listm'.dib
00:00:00 #22 [debug] writeDibCode / output: Spi / path: benchmark.dib
00:00:00 #23 [debug] parseDibCode / output: Spi / file: listm'.dib
00:00:00 #24 [debug] parseDibCode / output: Spi / file: benchmark.dib
00:00:00 #26 [debug] writeDibCode / output: Spi / path: stream.dib
00:00:00 #26 [debug] writeDibCode / output: Spi / path: seq.dib
00:00:00 #27 [debug] parseDibCode / output: Spi / file: stream.dib
00:00:00 #28 [debug] parseDibCode / output: Spi / file: seq.dib
00:00:00 #29 [debug] writeDibCode / output: Spi / path: util.dib
00:00:00 #30 [debug] parseDibCode / output: Spi / file: util.dib
00:00:00 #31 [debug] writeDibCode / output: Spi / path: rust.dib
00:00:00 #32 [debug] parseDibCode / output: Spi / file: rust.dib
00:00:00 #33 [debug] writeDibCode / output: Spi / path: physics.dib
00:00:00 #34 [debug] parseDibCode / output: Spi / file: physics.dib
00:00:00 #1 [debug] runWithTimeoutChildAsync / timeout: 60
00:00:00 #1 [debug] execute_with_options_async / options: struct (Some System.Threading.CancellationToken,
"dotnet "C:\home\git\polyglot\deps\The-Spiral-Language\The Spiral Language 2\artifacts\bin\The Spiral Language 2\release\Spiral.dll" --port 13805 --default-int i32 --default-float f64",
Some <fun:main@439-43>, None, None)
00:00:00 #2 [verbose] > pwd: C:\home\git\polyglot\lib\spiral
00:00:00 #3 [verbose] > dllPath: C:\home\git\polyglot\deps\The-Spiral-Language\The Spiral Language 2\artifacts\bin\The Spiral Language 2\release
00:00:00 #4 [verbose] > targetDir: C:\home\git\polyglot\target/polyglot/spiral_eval
00:00:00 #5 [verbose] > Starting the Spiral Server. It is bound to: http://localhost:13805
00:00:00 #2 [debug] runWithTimeoutChildAsync / timeout: 500
00:00:00 #3 [verbose] waitForPortAccess / port: 13805 / retry: 0
00:00:01 #4 [debug] sendJson / port: 13805 / json: {"Ping":true} / result.Length:
00:00:01 #5 [verbose] awaitCompiler / Ping / result: Some(null) / port: 13805 / retry: 0
00:00:01 #6 [verbose] > Server bound to: http://localhost:13805
00:00:01 #6 [debug] runWithTimeoutChildAsync / timeout: 60
00:00:01 #7 [debug] buildFile / takeWhileInclusive / fsxContent: / errors: [] / typeErrorCount: 0
00:00:01 #8 [debug] buildFile / takeWhileInclusive / fsxContent: / errors: [] / typeErrorCount: 0
00:00:01 #9 [debug] sendJson / port: 13805 / json: {"FileOpen":{"spiText":"// // # async\n\nopen rust_operators\n\n// // ## types\n\ninl types () =\n global \u0022[\u003CFable.Core.Erase; Fable.Core.Emit(\\\u0022std::future::Future\u003COutput = $0\u003E\\\u0022)\u003E] type Future\u003C\u0027T\u003E = class end\u0022\n global \u0022[\u003CFable.Core.Erase; Fable.Core.Emit(\\\u0022futures::future::TryJoinAll\u003C$0\u003E\\\u0022)\u003E] type TryJoinAll\u003C\u0027T\u003E = class end\u0022\n\n// // ## async\n\nnominal async t = $\u0022Async\u003C\u0060t\u003E\u0022\n\n// // ## future\n\nnominal future t = $\u0022Future\u003C\u0060t\u003E\u0022\n\n// // ## task\n\nnominal task t =\n \u0060(\n typecase t with\n | () =\u003E $\u0027\u0027 : $\u0022System.Threading.Tasks.Task\u0022\n | _ =\u003E $\u0027\u0027 : $\u0022System.Threading.Tasks.Task\u003C\u0060t\u003E\u0022\n )\n\n// // ## future_pin\n\ntype future_pin t = rust.pin (rust.box (rust.dyn\u0027 (future t)))\n\n// // ## try_join_all\n\nnominal try_join_all t = $\u0022TryJoinAll\u003C\u0060t\u003E\u0022\n\n// // ## future_init\n\ninl future_init forall t. (depth : (u8 * u8)) (flag : u8) (x : () -\u003E t) : future_pin t =\n join\n if flag = 1\n then !\\($\u0027\u0022let __result = Box::pin(async move { //\u0022\u0027)\n else !\\($\u0027\u0022let __result = Box::pin(async { //\u0022\u0027)\n\n let x\u0027 = x ()\n inl x\u0027 = join x\u0027\n\n x\u0027 |\u003E rust.fix_closure depth\n\n !\\($\u0027\u0022__result\u0022\u0027)\n\n// // ## try_join_all\n\ninl try_join_all forall t. (x : am\u0027.vec (future_pin (resultm.result\u0027 t sm\u0027.std_string))) : try_join_all (future_pin (resultm.result\u0027 t sm\u0027.std_string)) =\n inl x = join x\n !\\($\u0027\u0022futures::future::try_join_all(!x)\u0022\u0027)\n\n// // ## await\u0027\n\ninl await\u0027 forall t. (x : try_join_all (future_pin (resultm.result\u0027 t sm\u0027.std_string))) : resultm.result\u0027 (am\u0027.vec t) sm\u0027.std_string =\n !\\($\u0027\u0022!x.await\u0022\u0027)\n\n// // ## await\n\ninl await forall t. (x : future_pin t) : t =\n !\\($\u0027\u0022!x.await\u0022\u0027)\n\n// // ## new_async_unit\n\ninl new_async_unit forall t. (fn : () -\u003E ()) : async t =\n run_target function\n | Fsharp (Native) =\u003E fun () =\u003E\n inl result : optionm\u0027.option\u0027 (async t) = optionm\u0027.none\u0027 ()\n $\u0022let mutable _!result = !result\u0022\n $\u0022async {\u0022\n fn ()\n $\u0022}\u0022\n $\u0022|\u003E fun x -\u003E _!result \u003C- Some x\u0022\n $\u0022_!result |\u003E Option.get\u0022\n | _ =\u003E fun () =\u003E null ()\n\n// // ## new_async\n\ninl new_async forall t. (fn : () -\u003E t) : async t =\n new_async_unit (fn \u003E\u003E ignore)\n\n// // ## new_task\n\ninl new_task forall t. (fn : () -\u003E t) : task t =\n run_target function\n | Fsharp (Native) =\u003E fun () =\u003E\n inl result : optionm\u0027.option\u0027 (task t) = optionm\u0027.none\u0027 ()\n $\u0022let mutable _!result = !result\u0022\n $\u0022task {\u0022\n fn () |\u003E ignore\n $\u0022}\u0022\n $\u0022|\u003E fun x -\u003E _!result \u003C- Some x\u0022\n $\u0022_!result |\u003E Option.get\u0022\n | _ =\u003E fun () =\u003E null ()\n\n// // ## await_task\n\ninl await_task forall t. (a : task t) : async t =\n run_target function\n | Fsharp (Native) =\u003E fun () =\u003E\n a |\u003E $\u0027Async.AwaitTask\u0027\n | _ =\u003E fun () =\u003E null ()\n\n// // ## ignore\n\ninl ignore forall t. (a : async t) : async () =\n run_target function\n | Fsharp (Native) =\u003E fun () =\u003E\n a |\u003E $\u0027Async.Ignore\u0027\n | _ =\u003E fun () =\u003E null ()\n\n// // ## run_synchronously\n\ninl run_synchronously forall t. (a : async t) : t =\n run_target function\n | Fsharp (Native) =\u003E fun () =\u003E\n a |\u003E $\u0027Async.RunSynchronously\u0027\n | _ =\u003E fun () =\u003E null ()\n\n// // ## start_child\n\ninl start_child forall t. (a : async t) : async (async t) =\n run_target function\n | Fsharp (Native) =\u003E fun () =\u003E\n a |\u003E $\u0027Async.StartChild\u0027\n | _ =\u003E fun () =\u003E null ()\n\n// // ## start_child_timeout\n\ninl start_child_timeout forall t. (timeout : i32) (a : async t) : async (async t) =\n run_target function\n | Fsharp (Native) =\u003E fun () =\u003E\n $\u0027Async.StartChild (!a, !timeout)\u0027\n | _ =\u003E fun () =\u003E null ()\n\n// // ## start_immediate\n\ninl start_immediate forall t. (a : async t) : () =\n run_target function\n | Fsharp (Native) =\u003E fun () =\u003E\n a |\u003E $\u0027Async.StartImmediate\u0027\n | _ =\u003E fun () =\u003E null ()\n\n// // ## task_canceled_exception\n\nnominal task_canceled_exception = $\u0027System.Threading.Tasks.TaskCanceledException\u0027\n\n// // ## sleep\n\ninl sleep (ms : i32) : async () =\n run_target function\n | Fsharp (Native) =\u003E fun () =\u003E\n ms |\u003E $\u0027Async.Sleep\u0027\n | _ =\u003E fun () =\u003E null ()\n\n// // ## do\n\ninl do (a : async ()) : () =\n $\u0027do\\! !a \u0027\n\n// // ## let\u0027\n\ninl let\u0027 forall t. (a : async t) : t =\n $\u0027let\\! !a = !a \u0027\n $\u0027!a \u0027\n\n// // ## return_await\n\ninl return_await forall t. (a : async t) : () =\n $\u0027return\\! !a \u0027\n\n// // ## return_await\u0027\n\ninl return_await\u0027 forall t. (a : async t) : t =\n $\u0027return\\! !a \u0027\n\n// // ## map\n\ninl map forall t u. (fn : t -\u003E u) (a : async t) : async u =\n fun () =\u003E\n inl x = a |\u003E let\u0027\n fn x |\u003E return\n |\u003E new_async_unit\n\n// // ## choice\n\nunion choice t1 t2 =\n | Choice1Of2 : t1\n | Choice2Of2 : t2\n\nnominal choice\u0027 t1 t2 = $\u0027Choice\u003C\u0060t1, \u0060t2\u003E\u0027\n\n// // ## choice_unbox\n\ninl choice_unbox forall t1 t2. (choice : choice\u0027 t1 t2) : choice t1 t2 =\n run_target function\n | Fsharp (Native) =\u003E fun () =\u003E\n inl choice1Of2 (x : t1) : _ _ t2 = Choice1Of2 x\n inl choice2Of2 (x : t2) : _ t1 _ = Choice2Of2 x\n $\u0027match !choice with Choice1Of2 x -\u003E !choice1Of2 x | Choice2Of2 x -\u003E !choice2Of2 x\u0027\n | _ =\u003E fun () =\u003E null ()\n\n// // ## catch\u0027\n\ninl catch\u0027 forall t e. (a : async t) : async (choice\u0027 t e) =\n run_target function\n | Fsharp (Native) =\u003E fun () =\u003E\n a |\u003E $\u0027Async.Catch\u0027\n | _ =\u003E fun () =\u003E null ()\n\n// // ## catch\n\ninl catch forall t e. (a : async t) : async (result t e) =\n a\n |\u003E catch\u0027\n |\u003E map choice_unbox\n |\u003E map function\n | Choice1Of2 result =\u003E Ok result\n | Choice2Of2 ex =\u003E Error ex\n\n// // ## run_with_timeout_async\n\ninl run_with_timeout_async forall t. (timeout : i32) (fn : async t) : async (option t) =\n run_target function\n | Fsharp (Native) =\u003E fun () =\u003E\n fun () =\u003E\n inl get_locals () = $\u0027$\u0022timeout: {!timeout} / {!get_locals ()}\u0022\u0027 : string\n inl child = fn |\u003E start_child_timeout timeout |\u003E let\u0027\n child\n |\u003E catch\n |\u003E map function\n | Ok result =\u003E Some result\n | Error ex when ex |\u003E sm\u0027.format_debug |\u003E sm\u0027.contains \u0022System.TimeoutException\u0022 =\u003E\n trace Debug (fun () =\u003E $\u0027\u0022run_with_timeout_async\u0022\u0027 : string) get_locals\n None\n | Error (ex : exn) =\u003E\n inl ex = ex |\u003E sm\u0027.format_exception\n trace Critical (fun () =\u003E $\u0027$\u0022run_with_timeout_async** / ex: {!ex}\u0022\u0027 : string) get_locals\n None\n |\u003E return_await\n // $\u0027(*\u0027\n // $\u0027*)\u0027\n |\u003E new_async_unit\n | _ =\u003E fun () =\u003E null ()\n\n// // ## run_with_timeout\n\ninl run_with_timeout timeout fn =\n fn\n |\u003E run_with_timeout_async timeout\n |\u003E run_synchronously\n\n// // ## cancellation_token\n\ninl cancellation_token () : async threading.cancellation_token =\n $\u0027Async.CancellationToken\u0027\n\ninl default_cancellation_token () : threading.cancellation_token =\n $\u0027Async.DefaultCancellationToken\u0027\n\n// // ## merge_cancellation_token_with_default_async\n\ninl merge_cancellation_token_with_default_async\n (token : threading.cancellation_token)\n : async threading.cancellation_token\n =\n run_target function\n | Fsharp (Native) =\u003E fun () =\u003E\n fun () =\u003E\n inl ct = cancellation_token () |\u003E let\u0027\n inl dct = default_cancellation_token ()\n inl cts = threading.create_linked_token_source ;[ ct; dct; token ]\n cts |\u003E threading.cancellation_source_token |\u003E return\n |\u003E new_async_unit\n | _ =\u003E fun () =\u003E null ()\n\n// // ## with_trace_level\n\ninl with_trace_level forall t. level fn : _ t = new_async fun () =\u003E\n inl trace_state = get_trace_state ()\n inl old_trace_level = *trace_state.level\n inl trace_level = trace_state.level\n try_finally\n fun () =\u003E\n trace_level \u003C- level\n fn |\u003E return_await\n fun () =\u003E\n trace_level \u003C- old_trace_level\n\n// // ## main\n\ninl main () =\n $\u0022let merge_cancellation_token_with_default_async x = !merge_cancellation_token_with_default_async x\u0022 : ()\n","uri":"file:///c:/home/git/polyglot/lib/spiral/async.spi"}} / result.Length:
00:00:01 #10 [debug] sendJson / port: 13805 / json: {"BuildFile":{"backend":"Fsharp","uri":"file:///c:/home/git/polyglot/lib/spiral/async.spi"}} / result.Length:
00:00:01 #7 [verbose] > Building c:\home\git\polyglot\lib\spiral\async.spi
00:00:02 #11 [debug] buildFile / takeWhileInclusive / fsxContent: / errors: [] / typeErrorCount: 0
00:00:03 #12 [debug] buildFile / takeWhileInclusive / fsxContent: let rec closure0 () (v0 : System.Threading.CancellationToken) : Async<System.Threading.CancellationToken> =
let v1 : Async<System.Threading.CancellationToken> option = None
let mutable _v1 = v...cellationToken> = _v1.Value
v23
let v0 : (System.Threading.CancellationToken -> Async<System.Threading.CancellationToken>) = closure0()
let merge_cancellation_token_with_default_async x = v0 x
()
/ errors: [] / typeErrorCount: 0
00:00:03 #13 [debug] watchWithFilter / Disposing watch stream / filter: FileName, LastWrite
00:00:03 #14 [debug] runWithTimeoutChildAsync / timeout: 60
00:00:03 #15 [debug] buildFile / takeWhileInclusive / fsxContent: / errors: [] / typeErrorCount: 0
00:00:03 #16 [debug] buildFile / takeWhileInclusive / fsxContent: / errors: [] / typeErrorCount: 0
00:00:03 #17 [debug] sendJson / port: 13805 / json: {"FileOpen":{"spiText":"// // # runtime\n\nopen file_system_operators\n\n// // ## os_platform\n\nnominal os_platform\u0027 = $\u0027System.Runtime.InteropServices.OSPlatform\u0027\n\nunion os_platform =\n | Windows\n\ninl os_platform = function\n | Windows =\u003E $\u0027\u0060os_platform\u0027.Windows\u0027 : os_platform\u0027\n\n// // ## is_os_platform\n\ninl is_os_platform (x : os_platform\u0027) : bool =\n x |\u003E $\u0027System.Runtime.InteropServices.RuntimeInformation.IsOSPlatform\u0027\n\n// // ## is_windows\n\ninl is_windows () : bool =\n run_target function\n | Fsharp (Native) =\u003E fun () =\u003E\n Windows |\u003E os_platform |\u003E is_os_platform\n | _ =\u003E fun () =\u003E null ()\n\n// // ## get_executable_suffix\n\ninl get_executable_suffix () =\n if is_windows ()\n then \u0022.exe\u0022\n else \u0022\u0022\n\n// // ## split_command\n\nunion quoted =\n | Quoted\n | NotQuoted\n\nunion command_parse_step =\n | Start\n | Path : quoted\n | Arguments\n\ninl split_command (command : string) =\n let rec loop (path, args) (chars : list char) step =\n match step, chars with\n | _, ((\u0027\u0022\u0027 | \u0027\\\u0027\u0027) :: tail) when path = \u0022\u0022 =\u003E loop (path, args) tail (Path Quoted)\n | Path (Quoted), ((\u0027\u0022\u0027 | \u0027\\\u0027\u0027) :: tail) =\u003E loop (path, args) tail (Path NotQuoted)\n | Path (Quoted), (\u0027 \u0027 :: tail) =\u003E loop ($\u0027$\u0022{!path} \u0022\u0027, args) tail (Path Quoted)\n | (Start | Path _), (\u0027 \u0027 :: tail) =\u003E loop (path, args) tail Arguments\n | Arguments, (char :: tail) =\u003E loop (path, $\u0027$\u0022{!args}{!char}\u0022\u0027) tail Arguments\n | _, (char :: tail) =\u003E loop ($\u0027$\u0022{!path}{!char}\u0022\u0027, args) tail step\n | _ =\u003E path |\u003E sm\u0027.replace @\u0022\\\u0022 \u0022/\u0022, args\n loop (join \u0022\u0022, \u0022\u0022) (command |\u003E seq.of_string |\u003E seq.to_list\u0027 |\u003E listm\u0027.unbox) Start\n\n// // ## process\n\nnominal process = $\u0027System.Diagnostics.Process\u0027\nnominal process_start_info = $\u0027System.Diagnostics.ProcessStartInfo\u0027\nnominal data_received_event_args = $\u0027System.Diagnostics.DataReceivedEventArgs\u0027\n\ninl new_process (process_start_info : process_start_info) : process =\n $\u0027new \u0060process (StartInfo = !process_start_info)\u0027\n\ninl process_start (process : process) : bool =\n $\u0027!process.Start\u0027 ()\n\ninl process_exit_code (process : process) : i32 =\n $\u0027!process.ExitCode\u0027\n\ninl process_id (process : process) : i32 =\n $\u0027!process.Id\u0027\n\ninl process_has_exited (process : process) : bool =\n run_target function\n | Fsharp (Native) =\u003E fun () =\u003E\n $\u0027!process.HasExited\u0027\n | _ =\u003E fun () =\u003E null ()\n\ninl process_kill (process : process) : () =\n run_target function\n | Fsharp (Native) =\u003E fun () =\u003E\n $\u0027!process.Kill\u0027 ()\n | _ =\u003E fun () =\u003E null ()\n\ninl process_begin_error_read_line (process : process) : () =\n $\u0027!process.BeginErrorReadLine\u0027 ()\n\ninl process_begin_output_read_line (process : process) : () =\n $\u0027!process.BeginOutputReadLine\u0027 ()\n\ninl process_add_output_data_received fn (process : process) : () =\n $\u0027!process.OutputDataReceived.Add !fn \u0027\n\ninl process_add_error_data_received fn (process : process) : () =\n $\u0027!process.ErrorDataReceived.Add !fn \u0027\n\ninl process_wait_for_exit_async (ct : threading.cancellation_token) (process : process) : async.task () =\n $\u0027!process.WaitForExitAsync !ct \u0027\n\ninl event_data (e : data_received_event_args) : string =\n $\u0027!e.Data\u0027\n\n// // ## execute_async\n\ntype execution_line =\n {\n process_id : int\n line : string\n error : bool\n }\n\ntype execution_options =\n {\n command : string\n working_directory : optionm\u0027.option\u0027 string\n cancellation_token : optionm\u0027.option\u0027 threading.cancellation_token\n on_line : optionm\u0027.option\u0027 (execution_line -\u003E async.async ())\n trace_level : optionm\u0027.option\u0027 trace_level\n }\n\ninl execute_with_options_async (options : execution_options) : _ (i32 * string) =\n run_target function\n | Fsharp (Native) =\u003E fun () =\u003E\n fun () =\u003E\n inl file_name, arguments = options.command |\u003E split_command\n inl working_directory = options.working_directory |\u003E optionm\u0027.unbox |\u003E optionm\u0027.default_value \u0022\u0022\n\n trace Debug (fun () =\u003E $\u0027$\u0022execute_with_options_async / options: %A{!options}\u0022\u0027) (join get_locals)\n\n inl utf8 = sm\u0027.encoding_utf8 ()\n inl start_info : process_start_info = $\u0027System.Diagnostics.ProcessStartInfo (Arguments = !arguments, StandardOutputEncoding = !utf8, WorkingDirectory = !working_directory, FileName = !file_name, CreateNoWindow = true, RedirectStandardError = true, RedirectStandardOutput = true, UseShellExecute = false)\u0027\n\n inl proc = start_info |\u003E new_process |\u003E use\n inl output : _ string = threading.new_concurrent_stack ()\n\n inl event error (e : data_received_event_args) = async.new_async fun () =\u003E\n inl data = e |\u003E event_data\n if data \u003C\u003E null () then\n match options.on_line |\u003E optionm\u0027.unbox with\n | Some on_line =\u003E\n on_line\n {\n process_id = proc |\u003E process_id\n line = data\n error = error\n }\n |\u003E async.do\n | None =\u003E ()\n\n trace Verbose (fun () =\u003E $\u0027$\u0022\u003E {!data}\u0022\u0027) get_locals\n\n inl l = if error then \u0022[\u0022 else \u0022\u0022\n inl r = if error then \u0022]\u0022 else \u0022\u0022\n output |\u003E threading.concurrent_stack_push $\u0027$\u0022{!l}{!data}{!r}\u0022\u0027\n\n proc |\u003E process_add_output_data_received (event false \u003E\u003E async.start_immediate)\n proc |\u003E process_add_error_data_received (event true \u003E\u003E async.start_immediate)\n\n if proc |\u003E process_start |\u003E not\n then failwith $\u0027$\u0022execute_with_options_async / process_start error\u0022\u0027\n\n proc |\u003E process_begin_error_read_line\n proc |\u003E process_begin_output_read_line\n\n inl ct =\n options.cancellation_token\n |\u003E optionm\u0027.unbox\n |\u003E optionm\u0027.default_with threading.token_none\n |\u003E async.merge_cancellation_token_with_default_async\n |\u003E async.let\u0027\n\n ct |\u003E threading.token_register fun () =\u003E\n if proc |\u003E process_has_exited |\u003E not\n then proc |\u003E process_kill\n |\u003E use\n |\u003E ignore\n\n inl exit_code : i32 =\n fun () =\u003E\n try_unit\n fun () =\u003E\n proc\n |\u003E process_wait_for_exit_async ct\n |\u003E async.await_task\n |\u003E async.do\n proc |\u003E process_exit_code |\u003E return\n fun ex =\u003E\n // with :? System.Threading.Tasks.TaskCanceledException as ex =\u003E\n inl ex\u0027 = ex |\u003E sm\u0027.format_exception\n output |\u003E threading.concurrent_stack_push ex\u0027\n inl ex : async.task_canceled_exception = ex |\u003E unbox\n trace Warning (fun () =\u003E $\u0027$\u0022execute_with_options_async / WaitForExitAsync / ex: %A{!ex}\u0022\u0027) (join get_locals)\n (limit.min : i32) |\u003E return\n |\u003E async.new_async_unit\n |\u003E async.let\u0027\n\n inl output =\n output\n |\u003E seq.rev\u0027\u0027\n |\u003E fun x =\u003E x : seq.seq\u0027 string\n |\u003E sm\u0027.concat \u0022\\n\u0022\n\n trace Debug (fun () =\u003E\n $\u0027$\u0022execute_with_options_async / exit_code: {!exit_code} / output.Length: {!output.Length}\u0022\u0027\n ) (join get_locals)\n\n (exit_code, output) |\u003E return\n |\u003E async.new_async_unit\n |\u003E fun fn =\u003E\n match options.trace_level |\u003E optionm\u0027.unbox with\n | Some trace_level =\u003E fn |\u003E async.with_trace_level trace_level\n | None =\u003E fn\n | _ =\u003E fun () =\u003E\n global \u0022#if FABLE_COMPILER\\n[\u003CCompilationRepresentation (CompilationRepresentationFlags.ModuleSuffix)\u003E]\\nmodule System =\\n module Diagnostics =\\n type Process = unit\\n type DataReceivedEventArgs = unit\\n#endif\u0022\n null ()\n\ninl execute_async command =\n execute_with_options_async\n {\n command = command\n cancellation_token = None |\u003E optionm\u0027.box\n on_line = None |\u003E optionm\u0027.box\n working_directory = None |\u003E optionm\u0027.box\n trace_level = None |\u003E optionm\u0027.box\n }\n\ninl execution_options (fn : execution_options -\u003E execution_options) : execution_options =\n {\n command = \u0022\u0022\n cancellation_token = None |\u003E optionm\u0027.box\n on_line = None |\u003E optionm\u0027.box\n working_directory = None |\u003E optionm\u0027.box\n trace_level = None |\u003E optionm\u0027.box\n }\n |\u003E fn\n\n// // ## main\n\ninl main () =\n $\u0022let is_windows () = !is_windows ()\u0022 : ()\n $\u0022let get_executable_suffix () = !get_executable_suffix ()\u0022 : ()\n $\u0022let execute_async x = !execute_async x\u0022 : ()\n $\u0022let execute_with_options_async x = !execute_with_options_async x\u0022 : ()\n $\u0022type RuntimeTraceLevel = \u0060trace_level \u0022 : ()\n","uri":"file:///c:/home/git/polyglot/lib/spiral/runtime.spi"}} / result.Length:
00:00:04 #18 [debug] sendJson / port: 13805 / json: {"BuildFile":{"backend":"Fsharp","uri":"file:///c:/home/git/polyglot/lib/spiral/runtime.spi"}} / result.Length:
00:00:04 #8 [verbose] > Building c:\home\git\polyglot\lib\spiral\runtime.spi
00:00:04 #19 [debug] buildFile / takeWhileInclusive / fsxContent: / errors: [] / typeErrorCount: 0
00:00:04 #20 [debug] buildFile / takeWhileInclusive / fsxContent: #if FABLE_COMPILER
[<CompilationRepresentation (CompilationRepresentationFlags.ModuleSuffix)>]
module System =
module Diagnostics =
type Process = unit
type DataReceivedEventArgs = unit
#endif
mo... (bool * string * int32) -> Async<unit>) option * US0 option * string option) -> Async<struct (int32 * string)>) = closure20()
let execute_with_options_async x = v3 x
type RuntimeTraceLevel = US0
()
/ errors: [] / typeErrorCount: 0
00:00:04 #21 [debug] watchWithFilter / Disposing watch stream / filter: FileName, LastWrite
00:00:04 #22 [debug] runWithTimeoutChildAsync / timeout: 60
00:00:04 #23 [debug] buildFile / takeWhileInclusive / fsxContent: / errors: [] / typeErrorCount: 0
00:00:04 #24 [debug] buildFile / takeWhileInclusive / fsxContent: / errors: [] / typeErrorCount: 0
00:00:04 #25 [debug] sendJson / port: 13805 / json: {"FileOpen":{"spiText":"// // # trace\n\n// // ## trace_level\n\nunion trace_level =\n | Verbose\n | Debug\n | Info\n | Warning\n | Critical\n\ninstance to_string trace_level = function\n | Verbose =\u003E \u0022Verbose\u0022\n | Debug =\u003E \u0022Debug\u0022\n | Info =\u003E \u0022Info\u0022\n | Warning =\u003E \u0022Warning\u0022\n | Critical =\u003E \u0022Critical\u0022\n\ninstance of_string trace_level = function\n | \u0022Verbose\u0022 =\u003E Verbose\n | \u0022Debug\u0022 =\u003E Debug\n | \u0022Info\u0022 =\u003E Info\n | \u0022Warning\u0022 =\u003E Warning\n | \u0022Critical\u0022 =\u003E Critical\n\n// // ## repl_start\n\ninl repl_start () : optionm\u0027.option\u0027 i64 =\n inl result : optionm\u0027.option\u0027 (optionm\u0027.option\u0027 i64) = optionm\u0027.none\u0027 ()\n $\u0022let mutable _!result = !result\u0022\n $\u0027#if INTERACTIVE || \\!FABLE_COMPILER\u0027 : ()\n if get_entry_assembly_name () \u003C\u003E \u0022Microsoft.DotNet.Interactive.App\u0022\n then date_time.now () |\u003E date_time.ticks |\u003E Some\n else None\n |\u003E optionm\u0027.box\n |\u003E fun x =\u003E\n inl x = join x\n $\u0027!x \u0027\n $\u0027#else\u0027 : ()\n (None : option i64) |\u003E optionm\u0027.box\n |\u003E fun x =\u003E\n inl x = join x\n $\u0027!x \u0027\n $\u0027#endif\u0027 : ()\n $\u0022|\u003E fun x -\u003E _!result \u003C- Some x\u0022\n $\u0027_!result.Value\u0027\n\n// // ## trace_state\n\ntype trace_state =\n {\n count : mut i64\n dump : mut bool\n enabled : mut bool\n level : mut trace_level\n repl_start : optionm\u0027.option\u0027 i64\n }\n\ninl new_trace_state () =\n {\n enabled = mut true\n count = mut 0i64\n level = mut Verbose\n dump = mut false\n repl_start = repl_start ()\n } : trace_state\n\n// // ## init_trace_state\n\ninl init_trace_state () : () =\n global \u0022module State = let mutable trace_state = None\u0022\n $\u0022if State.trace_state = None then State.trace_state \u003C- !new_trace_state () |\u003E Some\u0022 : ()\n\n// // ## get_trace_state\n\ninl get_trace_state () : trace_state =\n init_trace_state ()\n $\u0027State.trace_state.Value\u0027\n\n// // ## get_locals\n\ninl get_locals () = \u0022\u0022\n\n// // ## test_trace_level\n\ninl test_trace_level level : bool =\n inl state = get_trace_state ()\n inl level\u0027 = *state.level\n *state.enabled \u0026\u0026 $\u0027!level \u003E= !level\u0027 \u0027\n\n// // ## trace_raw\n\ninl trace_raw level fn =\n inl trace_state = get_trace_state ()\n if level |\u003E test_trace_level then\n inl count = trace_state.count\n count \u003C- *trace_state.count \u002B 1\n\n inl text = $\u0027$\u0022%s{!fn ()}\u0022\u0027 : string\n run_target function\n | Rust _ =\u003E fun () =\u003E\n open rust_operators\n !\\\\(text, $\u0027\\@\u0022println\\!(\u0022\u0022{}\u0022\u0022, $0)\u0022\u0027)\n | _ =\u003E fun () =\u003E\n $\u0027System.Console.WriteLine !text \u0027\n\n // run_target function\n // | Fsharp (Native) =\u003E fun () =\u003E\n // if *trace_state.dump then\n // try_unit\n // fun () =\u003E\n // // open file_system_operators\n // // inl tmp_path = file_system.get_temp_path ()\n // // inl log_dir = tmp_path \u003C/\u003E \u0022!polyglot\u0022\n // // file_system.create_directory log_dir |\u003E ignore\n // // inl guid = date_time.new_guid_from_date_time (date_time.now ())\n // // inl log_file = log_dir \u003C/\u003E $\u0027$\u0022{!guid}.txt\u0022\u0027\n // // file_system.write_all_text_async log_file text |\u003E async.run_synchronously\n // ()\n // fun ex =\u003E\n // inl ex = ex |\u003E sm\u0027.format_exception\n // trace_raw Critical (fun () =\u003E $\u0027$\u0022trace / ex: {!ex}\u0022\u0027)\n // | _ =\u003E fun () =\u003E ()\n\n// // ## trace\n\nlet trace (level : trace_level) (fn : () -\u003E string) (get_locals : () -\u003E string) =\n fun () =\u003E\n inl trace_state = get_trace_state ()\n inl time =\n run_target fun target =\u003E\n match target with\n | Fsharp (Native)\n | Rust (Native) =\u003E fun () =\u003E\n match trace_state.repl_start |\u003E optionm\u0027.unbox with\n | Some repl_start =\u003E\n inl t =\n (date_time.now () |\u003E date_time.ticks |\u003E fun (date_time.timestamp x) =\u003E x)\n - repl_start |\u003E date_time.time_span\n date_time.date_time_milliseconds\n 1i32 1i32 1i32\n (t |\u003E date_time.hours)\n (t |\u003E date_time.minutes)\n (t |\u003E date_time.seconds)\n (t |\u003E date_time.milliseconds)\n | None =\u003E date_time.now ()\n |\u003E fun date_time =\u003E\n inl format =\n match target with\n | Rust _ =\u003E \u0022hh:mm:ss\u0022\n | _ =\u003E \u0022HH:mm:ss\u0022\n $\u0027!date_time.ToString !format \u0027\n | _ =\u003E fun () =\u003E join \u0022\u0022\n inl count = *trace_state.count\n inl level = level |\u003E to_string |\u003E sm\u0027.to_lower\n $\u0027$\u0022{!time} #{!count} [{!level}] %s{!fn ()} / %s{!get_locals ()}\u0022\u0027\n |\u003E sm\u0027.trim_start ;[]\n |\u003E sm\u0027.trim_end ;[ \u0027 \u0027; \u0027/\u0027 ]\n |\u003E trace_raw level\n\n// // ## main\n\ninl main () =\n $\u0022let trace x = !trace x\u0022 : ()\n $\u0022let get_trace_state () = !get_trace_state ()\u0022 : ()\n","uri":"file:///c:/home/git/polyglot/lib/spiral/trace.spi"}} / result.Length:
00:00:04 #9 [verbose] > Building c:\home\git\polyglot\lib\spiral\trace.spi
00:00:04 #26 [debug] sendJson / port: 13805 / json: {"BuildFile":{"backend":"Fsharp","uri":"file:///c:/home/git/polyglot/lib/spiral/trace.spi"}} / result.Length:
00:00:04 #27 [debug] buildFile / takeWhileInclusive / fsxContent: module State = let mutable trace_state = None
type [<Struct>] US0 =
| US0_0
| US0_1
| US0_2
| US0_3
| US0_4
and Mut0 = {mutable l0 : int64}
and Mut1 = {mutable l0 : bool}
and Mut2 ...> ((unit -> string) -> ((unit -> string) -> unit))) = closure0()
let trace x = v0 x
let v1 : (unit -> struct (Mut0 * Mut1 * Mut1 * Mut2 * int64 option)) = closure6()
let get_trace_state () = v1 ()
()
/ errors: [] / typeErrorCount: 0
00:00:04 #28 [debug] watchWithFilter / Disposing watch stream / filter: FileName, LastWrite
00:00:04 #29 [debug] runWithTimeoutChildAsync / timeout: 60
00:00:04 #30 [debug] buildFile / takeWhileInclusive / fsxContent: / errors: [] / typeErrorCount: 0
00:00:04 #31 [debug] buildFile / takeWhileInclusive / fsxContent: / errors: [] / typeErrorCount: 0
00:00:04 #32 [debug] sendJson / port: 13805 / json: {"FileOpen":{"spiText":"// // # crypto\n\n// // ## sha256\n\nnominal sha256 = $\u0027System.Security.Cryptography.SHA256\u0027\n\ninl sha256 () : sha256 =\n $\u0027\u0060sha256.Create\u0027 ()\n\n// // ## sha256_compute_hash\n\ninl sha256_compute_hash (x : sha256) (data : a i32 u8) : a i32 u8 =\n data |\u003E $\u0027!x.ComputeHash\u0027\n\n// // ## create_hash\n\ninl create_hash (x : string) : any =\n open ts_operators\n global \u0022type ICryptoCreateHash = abstract createHash: x: string -\u003E obj\u0022\n inl crypto : $\u0027ICryptoCreateHash\u0027 = ts.import_all \u0022crypto\u0022\n !\\\\(x, $\u0027\u0022!crypto.createHash($0)\u0022\u0027)\n\n// // ## hash_update\n\ninl hash_update (s : string) (x : any) : any =\n open ts_operators\n !\\\\((x, s), $\u0027\u0022$0.update($1, \\\u0027utf8\\\u0027)\u0022\u0027)\n\n// // ## hash_digest\n\ninl hash_digest (s : string) (x : any) : string =\n open ts_operators\n !\\\\((x, s), $\u0027\u0022$0.digest($1)\u0022\u0027)\n\n// // ## hash_text\n\ninl hash_text (input : string) =\n run_target function\n | Fsharp (Native) =\u003E fun () =\u003E\n inl sha256 = sha256 () |\u003E use\n input\n |\u003E sm\u0027.utf8_get_bytes\n |\u003E sha256_compute_hash sha256\n |\u003E am.map (sm\u0027.byte_to_string \u0022x2\u0022)\n |\u003E seq.of_array\u0027\n |\u003E sm\u0027.concat \u0022\u0022\n | TypeScript _ =\u003E fun () =\u003E\n create_hash \u0022sha256\u0022\n |\u003E hash_update input\n |\u003E hash_digest \u0022hex\u0022\n | _ =\u003E fun () =\u003E null ()\n\n// // ## main\n\ninl main () =\n $\u0022let hash_text x = !hash_text x\u0022 : ()\n","uri":"file:///c:/home/git/polyglot/lib/spiral/crypto.spi"}} / result.Length:
00:00:04 #33 [debug] sendJson / port: 13805 / json: {"BuildFile":{"backend":"Fsharp","uri":"file:///c:/home/git/polyglot/lib/spiral/crypto.spi"}} / result.Length:
00:00:04 #10 [verbose] > Building c:\home\git\polyglot\lib\spiral\crypto.spi
00:00:05 #34 [debug] buildFile / takeWhileInclusive / fsxContent: type ICryptoCreateHash = abstract createHash: x: string -> obj
type Mut0 = {mutable l0 : int32}
let rec method0 (v0 : int32, v1 : Mut0) : bool =
let v2 : int32 = v1.l0
let v3 : bool = v2 < v0
...37 : string = Unchecked.defaultof<string>
v37
#endif
|> fun x -> _v1 <- Some x
let v38 : string = _v1.Value
v38
let v0 : (string -> string) = closure0()
let hash_text x = v0 x
()
/ errors: [] / typeErrorCount: 0
00:00:05 #35 [debug] watchWithFilter / Disposing watch stream / filter: FileName, LastWrite
00:00:05 #36 [debug] runWithTimeoutChildAsync / timeout: 60
00:00:05 #37 [debug] buildFile / takeWhileInclusive / fsxContent: / errors: [] / typeErrorCount: 0
00:00:05 #38 [debug] buildFile / takeWhileInclusive / fsxContent: / errors: [] / typeErrorCount: 0
00:00:05 #39 [debug] sendJson / port: 13805 / json: {"FileOpen":{"spiText":"// // # common\n\n// // ## prototype\n\nprototype (~:\u003E) r : forall t. t -\u003E r\n\n// // ## run_target\n\n// // ## upcast\n\ninl upcast forall t u. (x : t) : u =\n $\u0027!x :\u003E \u0060u \u0027\n\n// // ## downcast\n\ninl downcast forall t u. (x : t) : u =\n $\u0027!x :?\u003E \u0060u \u0027\n\n// // ## unativeint\n\nnominal unativeint = $\u0022unativeint\u0022\n\ninl unativeint forall t {int}. (n : t) : unativeint =\n $\u0022unativeint !n\u0022\n\n// // ## pair\n\n// // ## new_pair\n\ninl new_pair forall a b. (a : a) (b : b) : pair a b =\n $\u0022!a, !b\u0022\n\n// // ## from_pair\n\ninl from_pair forall a b. (pair : pair a b) : a * b =\n $\u0022let (a, b) = !pair\u0022\n $\u0022a\u0022, $\u0022b\u0022\n\n// // ## memoize\n\nnominal lazy t = $\u0027Lazy\u003C\u0060t\u003E\u0027\n\ninl memoize forall t. (fn : () -\u003E t) : () -\u003E t =\n inl fn = join fn\n inl result : lazy t = $\u0027lazy !fn ()\u0027\n fun () =\u003E $\u0027!result.Value\u0027\n\n// // ## to_any\n\ninl to_any forall t. (obj : t) : any =\n $\u0022!obj\u0022\n\ninstance (~:\u003E) any = to_any\n\n// // ## (\u002B.)\n\ninl (\u002B.) forall t. (a : t) (b : t) : t =\n $\u0022!a \u002B !b\u0022\n\n// // ## (-.)\n\ninl (-.) forall t. (a : t) (b : t) : t =\n $\u0022!a - !b\u0022\n\n// // ## (*.)\n\ninl (*.) forall t. (a : t) (b : t) : t =\n $\u0022!a * !b\u0022\n\n// // ## (/.)\n\ninl (/.) forall t. (a : t) (b : t) : t =\n $\u0022!a / !b\u0022\n\n// // ## (=.)\n\ninl (=.) forall t. (a : t) (b : t) : bool =\n $\u0022!a = !b\u0022\n\n// // ## (||\u003E)\n\ninl (||\u003E) (arg1, arg2) fn =\n arg2 |\u003E fn arg1\n\n// // ## flip\n\ninl flip fn a b =\n fn b a\n\n// // ## join_body\n\ninl join_body body acc x =\n if var_is x |\u003E not\n then body acc x\n else\n inl acc = dyn acc\n join body acc x\n\n// // ## join_body_unit\n\ninl join_body_unit body d x =\n if var_is d |\u003E not\n then body x\n else\n inl x = dyn x\n join body x\n\n// // ## nameof\n\ninl nameof x : string =\n $\u0022nameof !x\u0022\n\n// // ## get_environment_variable\n\ninl get_environment_variable (var : string) : string =\n $\u0022System.Environment.GetEnvironmentVariable !var\u0022\n\n// // ## disposable\n\nnominal disposable t = $\u0022System.IDisposable\u0022\n\n// // ## dispose\n\ninl dispose (disposable : disposable _) : () =\n disposable |\u003E $\u0027_.Dispose()\u0027\n\n// // ## new_disposable\n\ninl new_disposable (fn : () -\u003E ()) : disposable _ =\n run_target function\n | Fsharp _ =\u003E fun () =\u003E $\u0027{ new System.IDisposable with member _.Dispose () = !fn () }\u0027\n // | Rust _ =\u003E\n // fun () =\u003E\n // $\u0027{ new System.IDisposable with member _.Dispose () = Fable.Core.RustInterop.emitRustExpr () \u0022!fn()\u0022 }\u0027\n | _ =\u003E fun () =\u003E null ()\n\n// // ## return\n\ninl return forall t. (x : t) : () =\n $\u0027return !x \u0027\n\ninl return\u0027 forall t. (x : t) : t =\n $\u0027return !x \u0027\n\n// // ## sleep\n\ninl sleep (n : i32) : () =\n run_target function\n | Fsharp (Native) =\u003E fun () =\u003E $\u0027System.Threading.Thread.Sleep\u0027 n\n | _ =\u003E fun () =\u003E ()\n\n// // ## retry_fn\n\ninl retry_fn forall t. retries (fn : () -\u003E t) : option t =\n let rec loop retry =\n try\n fun () =\u003E\n if retry \u003C retries\n then fn () |\u003E Some\n else None\n fun ex =\u003E\n inl get_locals () = $\u0027$\u0022retry: {!retry} / ex: {ex |\u003E SpiralSm.format_exception} / {!get_locals ()}\u0022\u0027 : string\n // trace Warning (fun () =\u003E \u0022retry_fn\u0022) getLocals\n sleep 1\n None\n |\u003E function\n | Some x =\u003E x\n | None =\u003E loop (retry \u002B 1)\n loop 0\n\n// // ## main\n\ninl main () =\n inl new_disposable x : _ () = new_disposable x\n $\u0022let new_disposable x = !new_disposable x\u0022 : ()\n\n inl retry_fn (r : i32) (x : () -\u003E _) : optionm\u0027.option\u0027 () = retry_fn r x |\u003E optionm\u0027.box\n $\u0022let retry_fn x = !retry_fn x\u0022 : ()\n","uri":"file:///c:/home/git/polyglot/lib/spiral/common.spi"}} / result.Length:
00:00:05 #11 [verbose] > Building c:\home\git\polyglot\lib\spiral\common.spi
00:00:05 #40 [debug] sendJson / port: 13805 / json: {"BuildFile":{"backend":"Fsharp","uri":"file:///c:/home/git/polyglot/lib/spiral/common.spi"}} / result.Length:
00:00:05 #41 [debug] buildFile / takeWhileInclusive / fsxContent: type [<Struct>] US0 =
| US0_0
| US0_1
and [<Struct>] US1 =
| US1_0 of f0_0 : US0
| US1_1
let rec closure0 () (v0 : (unit -> unit)) : System.IDisposable =
let v1 : System.IDisposabl...) =
closure2(v0)
let v0 : ((unit -> unit) -> System.IDisposable) = closure0()
let new_disposable x = v0 x
let v1 : (int32 -> ((unit -> unit) -> unit option)) = closure1()
let retry_fn x = v1 x
()
/ errors: [] / typeErrorCount: 0
00:00:05 #42 [debug] watchWithFilter / Disposing watch stream / filter: FileName, LastWrite
00:00:05 #43 [debug] runWithTimeoutChildAsync / timeout: 60
00:00:05 #44 [debug] buildFile / takeWhileInclusive / fsxContent: / errors: [] / typeErrorCount: 0
00:00:05 #45 [debug] buildFile / takeWhileInclusive / fsxContent: / errors: [] / typeErrorCount: 0
00:00:05 #46 [debug] sendJson / port: 13805 / json: {"FileOpen":{"spiText":"// // # date_time\n\nopen rust_operators\nopen sm\u0027_operators\n\n// // ## types\n\ninl types () =\n global \u0022[\u003CFable.Core.Erase; Fable.Core.Emit(\\\u0022chrono::DateTime\u003C$0\u003E\\\u0022)\u003E] type chrono_DateTime\u003C\u0027T\u003E = class end\u0022\n global \u0022[\u003CFable.Core.Erase; Fable.Core.Emit(\\\u0022chrono::Local\\\u0022)\u003E] type chrono_Local = class end\u0022\n global \u0022[\u003CFable.Core.Erase; Fable.Core.Emit(\\\u0022chrono::NaiveDateTime\\\u0022)\u003E] type chrono_NaiveDateTime = class end\u0022\n global \u0022[\u003CFable.Core.Erase; Fable.Core.Emit(\\\u0022chrono::Utc\\\u0022)\u003E] type chrono_Utc = class end\u0022\n global \u0022[\u003CFable.Core.Erase; Fable.Core.Emit(\\\u0022std::time::Duration\\\u0022)\u003E] type std_time_Duration = class end\u0022\n\nnominal timestamp = i64\nnominal duration = $\u0022std_time_Duration\u0022\nnominal date_time = $\u0022System.DateTime\u0022\nnominal date_time\u0027 t = $\u0022chrono_DateTime\u003C\u0060t\u003E\u0022\nnominal local = $\u0022chrono_Local\u0022\nnominal naive_date_time = $\u0022chrono_NaiveDateTime\u0022\nnominal utc = $\u0022chrono_Utc\u0022\n\n// // ## date_time_milliseconds\n\ninl date_time_milliseconds\n (year : int) (month : int) (day : int) (hour : int) (minute : int) (second : int) (millisecond : int)\n : date_time\n =\n $\u0027System.DateTime (!year, !month, !day, !hour, !minute, !second, !millisecond)\u0027\n\n// // ## naive_utc\n\ninl naive_utc (date_time : date_time\u0027 utc) : naive_date_time =\n inl date_time = join date_time\n !\\($\u0027\u0022!date_time.naive_utc()\u0022\u0027)\n\n// // ## to_local\n\ninl to_local (date_time : date_time\u0027 utc) : date_time\u0027 local =\n inl naive_date_time = date_time |\u003E naive_utc\n !\\($\u0027\u0022chrono::offset::TimeZone::from_utc_datetime(\u0026chrono::Local, \u0026!naive_date_time)\u0022\u0027)\n\n// // ## from_timestamp\u0027\n\ninl from_timestamp\u0027 forall t {number; int}. (timestamp : t) : option (date_time\u0027 utc) =\n inl timestamp = join timestamp\n inl result : optionm\u0027.option\u0027 (date_time\u0027 utc) =\n !\\($\u0027\u0022chrono::DateTime::from_timestamp_micros(!timestamp / 1000i64)\u0022\u0027)\n result |\u003E optionm\u0027.unbox\n\n// // ## ticks\n\ninl ticks (date_time : date_time) : timestamp =\n date_time |\u003E $\u0027_.Ticks\u0027\n\n// // ## format\n\ninl format (format : string) (date_time : date_time) : string =\n $\u0027!date_time.ToString\u0027 format\n\n// // ## format_iso8601\n\ninl format_iso8601 (date_time : date_time) =\n date_time |\u003E format \u0022yyyy-MM-ddTHH-mm-ss.fff\u0022\n\n// // ## format\u0027\n\ninl format\u0027 (format : string) (date_time : date_time\u0027 utc) : sm\u0027.std_string =\n inl format = #format\n inl date_time = join date_time\n !\\($\u0027\u0022!date_time.format(!format).to_string()\u0022\u0027)\n\n// // ## format\u0027\u0027\n\ninl format\u0027\u0027 (format : string) (date_time : date_time\u0027 _) : sm\u0027.std_string =\n inl format = #format\n inl date_time = join date_time\n !\\($\u0027\u0022!date_time.format(!format).to_string()\u0022\u0027)\n\n// // ## format_timestamp\n\ninl format_timestamp (timestamp : sm\u0027.std_string) =\n inl timestamp = join timestamp\n timestamp\n |\u003E fun x =\u003E !\\($\u0027\u0022!x.parse().unwrap()\u0022\u0027) : i64\n |\u003E from_timestamp\u0027\n |\u003E optionm.map fun x =\u003E\n x\n |\u003E to_local\n |\u003E format\u0027\u0027 \u0022%Y-%m-%d %H:%M:%S\u0022\n |\u003E sm\u0027.from_std_string\n |\u003E resultm.from_option\n\n// // ## duration_from_millis\n\ninl duration_from_millis (ms : u64) : duration =\n inl ms = join ms\n !\\($\u0027\u0022std::time::Duration::from_millis(!ms)\u0022\u0027)\n\n// // ## get_environment_variable\n\ninl get_environment_variable (var : string) : string =\n $\u0022System.Environment.GetEnvironmentVariable !var\u0022\n\ntype timestamp_guid = guid.guid\ntype date_time_guid = guid.guid\n\n// // ## date_time_guid_from_date_time\n\ninl date_time_guid_from_date_time (guid : guid.guid) (date_time : date_time) =\n inl guid = guid |\u003E sm\u0027.obj_to_string\n inl prefix = $\u0027!date_time.ToString \u0022yyyyMMdd-HHmm-ssff-ffff-f\u0022\u0027 : string\n $\u0027\u0060date_time_guid $\u0022{!prefix}{!guid.[!prefix.Length..]}\u0022\u0027 : date_time_guid\n\n// // ## date_time_from_guid\n\ninl date_time_from_guid (date_time_guid : date_time_guid) =\n inl date_time_guid = date_time_guid |\u003E sm\u0027.obj_to_string\n inl sm\u0027_replace = join sm\u0027.replace\n run_target function\n | Rust _ =\u003E fun () =\u003E\n $\u0027System.DateTime.Parse (!date_time_guid.[..24] |\u003E !sm\u0027_replace \u0022-\u0022 \u0022\u0022)\u0027 : date_time\n | _ =\u003E fun () =\u003E $\u0027System.DateTime.ParseExact (!date_time_guid.[..24] |\u003E !sm\u0027_replace \u0022-\u0022 \u0022\u0022, \u0022yyyyMMddHHmmssfffffff\u0022, null)\u0027 : date_time\n\n// // ## timestamp_guid_from_timestamp\n\ninl timestamp_guid_from_timestamp (guid : guid.guid) (timestamp : timestamp) : timestamp_guid =\n inl guid = guid |\u003E sm\u0027.obj_to_string\n inl timestamp = timestamp |\u003E sm\u0027.obj_to_string |\u003E sm\u0027.pad_left 18i32 \u00270\u0027\n $\u0027\u0060timestamp_guid $\u0022{!timestamp.[0..7]}-{!timestamp.[8..11]}-{!timestamp.[12..15]}-{!timestamp.[16..17]}{!guid.[21..]}\u0022\u0027\n\n// // ## timestamp_from_guid\n\ninl timestamp_from_guid (guid : date_time_guid) : timestamp =\n inl guid = guid |\u003E sm\u0027.obj_to_string\n $\u0027\u0060i64 $\u0022{!guid.[0..7]}{!guid.[9..12]}{!guid.[14..17]}{!guid.[19..20]}\u0022\u0027\n\n// // ## now\n\ninl now () : date_time =\n $\u0027System.DateTime.Now\u0027\n\n// // ## utc_now\n\ninl utc_now () : date_time =\n $\u0027System.DateTime.UtcNow\u0027\n\n// // ## time_span\n\nnominal time_span = $\u0027System.TimeSpan\u0027\n\ninl time_span x : time_span =\n $\u0027\u0060time_span !x \u0027\n\n// // ## new_time_span\n\ninl new_time_span (a : date_time) (b : date_time) : time_span =\n $\u0027!b - !a \u0027\n\n// // ## hours\n\ninl hours (time_span : time_span) : i32 =\n time_span |\u003E $\u0027_.Hours\u0027\n\n// // ## milliseconds\n\ninl milliseconds (time_span : time_span) : i32 =\n time_span |\u003E $\u0027_.Milliseconds\u0027\n\n// // ## minutes\n\ninl minutes (time_span : time_span) : i32 =\n time_span |\u003E $\u0027_.Minutes\u0027\n\n// // ## seconds\n\ninl seconds (time_span : time_span) : i32 =\n time_span |\u003E $\u0027_.Seconds\u0027\n\n// // ## total_seconds\n\ninl total_seconds (time_span : time_span) : f64 =\n time_span |\u003E $\u0027_.TotalSeconds\u0027\n\n// // ## new_guid_from_date_time\n\ninl new_guid_from_date_time (date_time : date_time) =\n inl guid = guid.new_raw_guid ()\n date_time_guid_from_date_time guid date_time\n\n// // ## new_guid_from_timestamp\n\ninl new_guid_from_timestamp (timestamp : timestamp) =\n inl guid = guid.new_raw_guid ()\n timestamp_guid_from_timestamp guid timestamp\n\n// // ## main\n\ninl main () =\n $\u0022let date_time_guid_from_date_time x = !date_time_guid_from_date_time x\u0022 : ()\n $\u0022let date_time_from_guid x = !date_time_from_guid x\u0022 : ()\n $\u0022let timestamp_guid_from_timestamp x = !timestamp_guid_from_timestamp x\u0022 : ()\n $\u0022let timestamp_from_guid x = !timestamp_from_guid x\u0022 : ()\n $\u0022let new_guid_from_date_time x = !new_guid_from_date_time x\u0022 : ()\n $\u0022let new_guid_from_timestamp x = !new_guid_from_timestamp x\u0022 : ()\n $\u0022let format x = !format x\u0022 : ()\n $\u0022let format_iso8601 x = !format_iso8601 x\u0022 : ()\n","uri":"file:///c:/home/git/polyglot/lib/spiral/date_time.spi"}} / result.Length:
00:00:05 #12 [verbose] > Building c:\home\git\polyglot\lib\spiral\date_time.spi
00:00:05 #47 [debug] sendJson / port: 13805 / json: {"BuildFile":{"backend":"Fsharp","uri":"file:///c:/home/git/polyglot/lib/spiral/date_time.spi"}} / result.Length:
00:00:05 #48 [debug] buildFile / takeWhileInclusive / fsxContent: let rec closure1 (v0 : System.Guid) (v1 : System.DateTime) : System.Guid =
let v2 : (System.Guid -> string) = _.ToString()
let v3 : string = v2 v0
let v4 : string = v1.ToString "yyyyMMdd-H...t new_guid_from_timestamp x = v5 x
let v6 : (string -> (System.DateTime -> string)) = closure11()
let format x = v6 x
let v7 : (System.DateTime -> string) = closure13()
let format_iso8601 x = v7 x
()
/ errors: [] / typeErrorCount: 0
00:00:05 #49 [debug] watchWithFilter / Disposing watch stream / filter: FileName, LastWrite
00:00:05 #50 [debug] runWithTimeoutChildAsync / timeout: 60
00:00:05 #51 [debug] buildFile / takeWhileInclusive / fsxContent: / errors: [] / typeErrorCount: 0
00:00:05 #52 [debug] buildFile / takeWhileInclusive / fsxContent: / errors: [] / typeErrorCount: 0
00:00:05 #53 [debug] sendJson / port: 13805 / json: {"FileOpen":{"spiText":"// // # file_system\n\nopen sm\u0027_operators\n\n// // ## types\n\ninl types () =\n global \u0022[\u003CFable.Core.Erase; Fable.Core.Emit(\\\u0022std::path::Path\\\u0022)\u003E] type std_path_Path = class end\u0022\n global \u0022[\u003CFable.Core.Erase; Fable.Core.Emit(\\\u0022std::path::PathBuf\\\u0022)\u003E] type std_path_PathBuf = class end\u0022\n\ninl types () =\n global \u0022#if FABLE_COMPILER // file_system.types\u0022\n sm\u0027.types ()\n rust.types ()\n types ()\n global \u0022#endif // file_system.types\u0022\n\n// // ## file_mode\n\nnominal file_mode\u0027 = $\u0027System.IO.FileMode\u0027\n\nunion file_mode =\n | ModeCreateNew\n | ModeCreate\n | ModeOpen\n | ModeOpenOrCreate\n | Truncate\n | Append\n\ninl file_mode = function\n | ModeCreateNew =\u003E $\u0027System.IO.FileMode.CreateNew\u0027 : file_mode\u0027\n | ModeCreate =\u003E $\u0027System.IO.FileMode.Create\u0027 : file_mode\u0027\n | ModeOpen =\u003E $\u0027System.IO.FileMode.Open\u0027 : file_mode\u0027\n | ModeOpenOrCreate =\u003E $\u0027System.IO.FileMode.OpenOrCreate\u0027 : file_mode\u0027\n | Truncate =\u003E $\u0027System.IO.FileMode.Truncate\u0027 : file_mode\u0027\n | Append =\u003E $\u0027System.IO.FileMode.Append\u0027 : file_mode\u0027\n\n// // ## file_access\n\nnominal file_access\u0027 = $\u0027System.IO.FileAccess\u0027\n\nunion file_access =\n | AccessRead\n | AccessWrite\n | AccessReadWrite\n\ninl file_access = function\n | AccessRead =\u003E $\u0027System.IO.FileAccess.Read\u0027 : file_access\u0027\n | AccessWrite =\u003E $\u0027System.IO.FileAccess.ReadWrite\u0027 : file_access\u0027\n | AccessReadWrite =\u003E $\u0027System.IO.FileAccess.ReadWrite\u0027 : file_access\u0027\n\n// // ## file_share\n\nnominal file_share\u0027 = $\u0027System.IO.FileShare\u0027\n\nunion file_share =\n | ShareNone\n | ShareRead\n | ShareWrite\n | ShareReadWrite\n | ShareDelete\n\ninl file_share = function\n | ShareNone =\u003E $\u0027System.IO.FileShare.None\u0027 : file_share\u0027\n | ShareRead =\u003E $\u0027System.IO.FileShare.Read\u0027 : file_share\u0027\n | ShareWrite =\u003E $\u0027System.IO.FileShare.Write\u0027 : file_share\u0027\n | ShareReadWrite =\u003E $\u0027System.IO.FileShare.ReadWrite\u0027 : file_share\u0027\n | ShareDelete =\u003E $\u0027System.IO.FileShare.Delete\u0027 : file_share\u0027\n\n// // ## file_stream\n\nnominal file_stream\u0027 = $\u0027System.IO.FileStream\u0027\n\ninl file_stream (path : string) mode access share : file_stream\u0027 =\n run_target function\n | Fsharp (Native) =\u003E fun () =\u003E\n inl mode = mode |\u003E file_mode\n inl access = access |\u003E file_access\n inl share = share |\u003E file_share\n $\u0027new System.IO.FileStream (!path, !mode, !access, !share)\u0027\n | _ =\u003E fun () =\u003E null ()\n\n// // ## path\n\nnominal path = $\u0027std_path_Path\u0027\nnominal path_buf = $\u0027std_path_PathBuf\u0027\n\n// // ## new_path_buf\n\ninl new_path_buf (path : string) : path_buf =\n open rust_operators\n inl path = path |\u003E sm\u0027.to_std_string\n !\\\\(path, $\u0027\u0022std::path::PathBuf::from($0)\u0022\u0027)\n\n// // ## path_buf_from\n\ninl path_buf_from (path : rust.box path) : path_buf =\n open rust_operators\n !\\\\(path, $\u0027\u0022std::path::PathBuf::from($0)\u0022\u0027)\n\n// // ## path_join\n\ninl path_join (s : string) (path_buf : path_buf) : path_buf =\n open rust_operators\n !\\\\((path_buf, s |\u003E sm\u0027.to_std_string), $\u0027\u0022$0.join($1)\u0022\u0027)\n\n// // ## path_display\n\ninl path_display (path : rust.ref\u0027 path) : sm\u0027.std_string =\n open rust_operators\n !\\\\(path, $\u0027\u0022$0.display().to_string()\u0022\u0027)\n\n// // ## path_buf_file_name\n\ninl path_buf_file_name (path : path_buf) : optionm\u0027.option\u0027 (rust.ref\u0027 sm\u0027.os_str) =\n open rust_operators\n !\\($\u0027\u0022!path.file_name()\u0022\u0027)\n\n// // ## path_buf_display\n\ninl path_buf_display (path_buf : path_buf) : sm\u0027.std_string =\n open rust_operators\n !\\\\(path_buf, $\u0027\u0022$0.display().to_string()\u0022\u0027)\n\n// // ## path_exists\n\ninl path_buf_exists (path_buf : path_buf) : bool =\n open rust_operators\n !\\\\(path_buf, $\u0027\u0022$0.exists()\u0022\u0027)\n\n// // ## path_is_dir\n\ninl path_buf_is_dir (path_buf : path_buf) : bool =\n open rust_operators\n !\\\\(path_buf, $\u0027\u0022$0.is_dir()\u0022\u0027)\n\n// // ## path_is_file\n\ninl path_buf_is_file (path_buf : path_buf) : bool =\n open rust_operators\n !\\\\(path_buf, $\u0027\u0022$0.is_file()\u0022\u0027)\n\n// // ## path_buf_parent\n\ninl path_buf_parent (path_buf : path_buf) : optionm\u0027.option\u0027 path_buf =\n open rust_operators\n !\\\\(path_buf, $\u0027\u0022$0.parent().map(std::path::PathBuf::from)\u0022\u0027)\n\n// // ## ts_path_join\n\ninl ts_path_join (b : string) (a : string) : string =\n open ts_operators\n global \u0022type IPathJoin = abstract join: [\u003CSystem.ParamArray\u003E] paths: string[] -\u003E string\u0022\n inl path : $\u0027IPathJoin\u0027 = ts.import_all \u0022path\u0022\n !\\\\((a, b), $\u0027\u0022!path.join($0, $1)\u0022\u0027)\n\n// // ## (\u003C /\u003E)\n\ninl (\u003C/\u003E) (a : string) (b : string) : string =\n run_target function\n | Rust (Native) =\u003E fun () =\u003E\n a |\u003E new_path_buf |\u003E path_join b |\u003E path_buf_display |\u003E sm\u0027.from_std_string\n | Fsharp (Native) =\u003E fun () =\u003E\n $\u0027System.IO.Path.Combine (!a, !b)\u0027\n | TypeScript _ =\u003E fun () =\u003E\n a |\u003E ts_path_join b\n | _ =\u003E fun () =\u003E null ()\n\n// // ## get_temp_path\n\ninl get_temp_path () : string =\n $\u0027System.IO.Path.GetTempPath\u0027 ()\n\n// // ## get_file_name\n\ninl get_file_name (path : string) : string =\n run_target function\n | Fsharp (Native) =\u003E fun () =\u003E\n path |\u003E $\u0027System.IO.Path.GetFileName\u0027\n | _ =\u003E fun () =\u003E null ()\n\n// // ## create_temp_directory_name\n\ninl create_temp_directory_name () =\n run_target function\n | Fsharp (Native) =\u003E fun () =\u003E\n get_temp_path ()\n \u003C/\u003E ($\u0027$\u0022\\!{!get_entry_assembly_name ()}\u0022\u0027 : string)\n \u003C/\u003E (date_time.now () |\u003E date_time.new_guid_from_date_time |\u003E sm\u0027.obj_to_string)\n | target =\u003E fun () =\u003E null ()\n\n// // ## directory_info\n\nnominal directory_info = $\u0027System.IO.DirectoryInfo\u0027\n\ninl directory_info (path : string) : directory_info =\n path |\u003E $\u0027\u0060directory_info \u0027\n\n// // ## directory_info_exists\n\ninl directory_info_exists (info : directory_info) : bool =\n run_target function\n | Fsharp (Native) =\u003E fun () =\u003E\n $\u0027!info.Exists\u0027\n | _ =\u003E fun () =\u003E null ()\n\n// // ## directory_info_creation_time\n\ninl directory_info_creation_time (info : directory_info) : date_time.date_time =\n run_target function\n | Fsharp (Native) =\u003E fun () =\u003E\n $\u0027!info.CreationTime\u0027\n | _ =\u003E fun () =\u003E null ()\n\n// // ## directory_info_name\n\ninl directory_info_name (info : directory_info) : string =\n run_target function\n | Fsharp (Native) =\u003E fun () =\u003E\n $\u0027!info.Name\u0027\n | _ =\u003E fun () =\u003E null ()\n\n// // ## directory_info_full_name\n\ninl directory_info_full_name (info : directory_info) : string =\n run_target function\n | Fsharp (Native) =\u003E fun () =\u003E\n $\u0027!info.FullName\u0027\n | _ =\u003E fun () =\u003E null ()\n\n// // ## get_source_directory\n\ninl get_source_directory () =\n $\u0027__SOURCE_DIRECTORY__\u0027 : string\n\n// // ## create_directory\n\ninl create_directory (path : string) : directory_info =\n run_target function\n | Fsharp (Native) =\u003E fun () =\u003E\n path |\u003E $\u0027System.IO.Directory.CreateDirectory\u0027\n | _ =\u003E fun () =\u003E null ()\n\n// // ## directory_exists\n\ninl directory_exists (path : string) : bool =\n run_target function\n | Rust (Native) =\u003E fun () =\u003E\n inl path = path |\u003E new_path_buf\n (path |\u003E path_buf_exists) \u0026\u0026 (path |\u003E path_buf_is_dir)\n | Fsharp (Native) =\u003E fun () =\u003E\n path |\u003E $\u0027System.IO.Directory.Exists\u0027\n | TypeScript (Native) =\u003E fun () =\u003E\n global \u0022type IFsExistsSync = abstract existsSync: path: string -\u003E bool\u0022\n inl fs : $\u0027IFsExistsSync\u0027 = ts.import_all \u0022fs\u0022\n ts.emit_expr path $\u0027\u0022!fs.existsSync($0)\u0022\u0027\n | _ =\u003E fun () =\u003E null ()\n\n// // ## directory_get_parent\n\ninl directory_get_parent (path : string) : optionm\u0027.option\u0027 string =\n run_target function\n | Rust (Native) =\u003E fun () =\u003E\n path\n |\u003E new_path_buf\n |\u003E path_buf_parent\n |\u003E optionm\u0027.try\u0027\n |\u003E path_buf_display\n |\u003E sm\u0027.from_std_string\n |\u003E Some\n | Fsharp (Native) =\u003E fun () =\u003E\n inl parent : directory_info = path |\u003E $\u0027System.IO.Directory.GetParent\u0027\n if parent =. null ()\n then None\n else parent |\u003E directory_info_full_name |\u003E Some\n | TypeScript _ =\u003E fun () =\u003E\n global \u0022type IPathDirname = abstract dirname: path: string -\u003E string\u0022\n inl fs : $\u0027IPathDirname\u0027 = ts.import_all \u0022path\u0022\n ts.emit_expr path $\u0027\u0022!fs.dirname($0)\u0022\u0027 |\u003E Some\n | _ =\u003E fun () =\u003E null ()\n |\u003E optionm\u0027.box\n\n// // ## file_delete\n\ninl file_delete (path : string) : () =\n run_target function\n | Fsharp (Native) =\u003E fun () =\u003E\n path |\u003E $\u0027System.IO.File.Delete\u0027\n | _ =\u003E fun () =\u003E null ()\n\n// // ## file_move\n\ninl file_move (old_path : string) (new_path : string) : () =\n run_target function\n | Fsharp (Native) =\u003E fun () =\u003E\n $\u0027System.IO.File.Move (!old_path, !new_path)\u0027\n | _ =\u003E fun () =\u003E null ()\n\n// // ## file_exists\n\ninl file_exists (path : string) : bool =\n run_target function\n | Rust (Native) =\u003E fun () =\u003E\n inl path_buf = path |\u003E new_path_buf\n (path_buf |\u003E path_buf_exists) \u0026\u0026 (path_buf |\u003E path_buf_is_file)\n | Fsharp (Native) =\u003E fun () =\u003E\n path |\u003E $\u0027System.IO.File.Exists\u0027\n | TypeScript (Native) =\u003E fun () =\u003E\n global \u0022type IFsExistsSync = abstract existsSync: path: string -\u003E bool\u0022\n inl fs : $\u0027IFsExistsSync\u0027 = ts.import_all \u0022fs\u0022\n ts.emit_expr path $\u0027\u0022!fs.existsSync($0)\u0022\u0027\n | _ =\u003E fun () =\u003E null ()\n\n// // ## directory_delete\n\ninl directory_delete recursive (path : string) : () =\n run_target function\n | Fsharp (Native) =\u003E fun () =\u003E\n $\u0027System.IO.Directory.Delete (!path, !recursive)\u0027\n | _ =\u003E fun () =\u003E null ()\n\n// // ## read_all_text_async\n\ninl read_all_text_async (path : string) : _ string =\n run_target function\n | Fsharp (Native) =\u003E fun () =\u003E\n path |\u003E $\u0027System.IO.File.ReadAllTextAsync\u0027 |\u003E async.await_task\n | _ =\u003E fun () =\u003E null ()\n\n// // ## file_exists_content\n\ninl file_exists_content path content : _ bool =\n run_target function\n | Fsharp (Native) =\u003E fun () =\u003E\n fun () =\u003E\n if path |\u003E file_exists |\u003E not\n then false |\u003E return |\u003E fun x =\u003E $\u0027(*\u0027 : ()\n else\n $\u0027*) else\u0027 : ()\n inl existing_content = path |\u003E read_all_text_async |\u003E async.let\u0027\n content = existing_content |\u003E return |\u003E fun x =\u003E $\u0027(*\u0027 : ()\n |\u003E fun x =\u003E $\u0027*)\u0027 : ()\n |\u003E async.new_async_unit\n | _ =\u003E fun () =\u003E null ()\n\n// // ## write_all_text\n\ninl write_all_text (path : string) (text : string) : () =\n run_target function\n | Fsharp (Native) =\u003E fun () =\u003E\n $\u0027System.IO.File.WriteAllText (!path, !text)\u0027\n | _ =\u003E fun () =\u003E null ()\n\n// // ## write_all_text_async\n\ninl write_all_text_async (path : string) (text : string) : _ () =\n run_target function\n | Fsharp (Native) =\u003E fun () =\u003E\n $\u0027System.IO.File.WriteAllTextAsync (!path, !text)\u0027 |\u003E async.await_task\n | _ =\u003E fun () =\u003E null ()\n\n// // ## write_all_text_exists\n\ninl write_all_text_exists path contents =\n fun () =\u003E\n inl exists\u0027 = contents |\u003E file_exists_content path |\u003E async.let\u0027\n if not exists\u0027\n then contents |\u003E write_all_text_async path |\u003E async.do\n |\u003E async.new_async\n\n// // ## delete_directory_async\n\ninl delete_directory_async path : _ i64 =\n run_target function\n | Fsharp (Native) =\u003E fun () =\u003E\n let rec loop (retry : i64) =\n fun () =\u003E\n try_unit\n fun () =\u003E\n path |\u003E directory_delete true\n retry |\u003E return\n fun ex =\u003E\n if retry % 100i64 = 0 then\n inl ex = ex |\u003E sm\u0027.format_exception\n let get_locals () = $\u0027$\u0022path: {!path |\u003E !get_file_name} / ex: {!ex} / {!get_locals ()}\u0022\u0027 : string\n // trace Debug (fun () -\u003E \u0022delete_directory_async\u0022) getLocals\n console.write_line ($\u0027$\u0022delete_directory_async / {!get_locals ()}\u0022\u0027 : string)\n async.sleep 10i32 |\u003E async.do\n loop (retry \u002B 1) |\u003E async.return_await\n |\u003E async.new_async\n loop 0\n | _ =\u003E fun () =\u003E null ()\n\n// // ## create_temp_directory\n\ninl create_temp_directory () =\n run_target function\n | Fsharp (Native) =\u003E fun () =\u003E\n inl temp_folder = create_temp_directory_name ()\n inl result = temp_folder |\u003E create_directory\n\n inl exists\u0027 = result |\u003E directory_info_exists\n if not exists\u0027 then\n inl creation_time = result |\u003E directory_info_creation_time\n inl result = ($\u0027{| Exists = !exists\u0027; CreationTime = !creation_time |}\u0027 : any) |\u003E sm\u0027.format_debug\n inl get_locals () : string =\n $\u0027$\u0022temp_folder: {!temp_folder} / result: {!result} {!get_locals ()}\u0022\u0027\n // trace Debug (fun () =\u003E \u0022createTempDirectory\u0022) get_locals\n console.write_line ($\u0027$\u0022create_temp_directory / {!get_locals ()}\u0022\u0027 : string)\n inl disposable : _ () = new_disposable fun () =\u003E\n temp_folder\n |\u003E delete_directory_async\n |\u003E async.ignore\n |\u003E async.run_synchronously\n temp_folder, disposable\n | _ =\u003E fun () =\u003E null ()\n\n// // ## wait_for_file_access\n\ninl wait_for_file_access access path =\n run_target function\n | Fsharp (Native) =\u003E fun () =\u003E\n inl file_access, file_share =\n access\n |\u003E optionm\u0027.default_value (AccessReadWrite, ShareRead)\n let rec loop (retry : i64) : _ i64 =\n fun () =\u003E\n try_unit\n fun () =\u003E\n file_stream\n path\n ModeOpen\n file_access\n file_share\n |\u003E use\n |\u003E ignore\n retry |\u003E return\n fun ex =\u003E\n if retry \u003E 0 \u0026\u0026 retry % 100i64 = 0 then\n inl ex = ex |\u003E sm\u0027.format_exception\n let get_locals () = $\u0027$\u0022path: {!path |\u003E !get_file_name} / retry: {!retry} / ex: {!ex} / {!get_locals ()}\u0022\u0027 : string\n // trace Debug (fun () -\u003E \u0022wait_for_file_access\u0022) getLocals\n console.write_line ($\u0027$\u0022wait_for_file_access / {!get_locals ()}\u0022\u0027 : string)\n async.sleep 10i32 |\u003E async.do\n loop (retry \u002B 1) |\u003E async.return_await\n |\u003E async.new_async\n loop 0\n | _ =\u003E fun () =\u003E null ()\n\ninl wait_for_file_access_read path =\n path\n |\u003E wait_for_file_access (Some (\n AccessRead,\n ShareRead\n ))\n\n// // ## read_all_text_retry_async\n\ninl read_all_text_retry_async full_path : async.async (optionm\u0027.option\u0027 string) =\n run_target function\n | Fsharp (Native) =\u003E fun () =\u003E\n let rec loop (retry : i64) =\n fun () =\u003E\n try_unit\n fun () =\u003E\n if retry \u003E 0\n then\n full_path\n |\u003E wait_for_file_access_read\n |\u003E async.run_with_timeout_async 1000\n |\u003E async.ignore\n |\u003E async.do\n full_path |\u003E read_all_text_async |\u003E async.map (Some \u003E\u003E optionm\u0027.box) |\u003E async.return_await\n fun ex =\u003E\n if retry \u003C\u003E 0 then\n inl ex = ex |\u003E sm\u0027.format_exception\n let get_locals () = $\u0027$\u0022retry: {!retry} / ex: {!ex} / {!get_locals ()}\u0022\u0027 : string\n trace Debug (fun () =\u003E $\u0027\u0022read_all_text_retry_async\u0022\u0027 : string) get_locals\n (None : _ string) |\u003E optionm\u0027.box |\u003E return |\u003E fun x =\u003E $\u0027(*\u0027 : ()\n else\n $\u0027*) else\u0027 : ()\n loop (retry \u002B 1) |\u003E async.return_await |\u003E fun x =\u003E $\u0027(*\u0027 : ()\n |\u003E fun x =\u003E $\u0027*)\u0027 : ()\n |\u003E async.new_async\n loop 0\n | _ =\u003E fun () =\u003E null ()\n\n// // ## delete_file_async\n\ninl delete_file_async path : _ i64 =\n run_target function\n | Fsharp (Native) =\u003E fun () =\u003E\n let rec loop (retry : i64) =\n fun () =\u003E\n try_unit\n fun () =\u003E\n path |\u003E file_delete\n return retry\n fun ex =\u003E\n if retry % 100 = 0 then\n inl ex = ex |\u003E sm\u0027.format_exception\n let getLocals () = $\u0027$\u0022path: {!path |\u003E !get_file_name} / ex: {ex} / {!get_locals ()}\u0022\u0027\n trace Warning (fun () =\u003E \u0022delete_file_async\u0022) get_locals\n async.sleep 10 |\u003E async.do\n loop (retry \u002B 1) |\u003E async.return_await\n |\u003E async.new_async\n loop 0\n | _ =\u003E fun () =\u003E null ()\n\n// // ## move_file_async\n\ninl move_file_async new_path old_path : _ i64 =\n run_target function\n | Fsharp (Native) =\u003E fun () =\u003E\n let rec loop (retry : i64) =\n fun () =\u003E\n try_unit\n fun () =\u003E\n file_move old_path new_path\n return retry\n fun ex =\u003E\n if retry % 100 = 0 then\n let get_locals () =\n inl ex = ex |\u003E sm\u0027.format_exception\n $\u0027$\u0022old_path: {!old_path |\u003E !get_file_name} / new_path: {!new_path |\u003E !get_file_name} / ex: {!ex} / {!get_locals ()}\u0022\u0027 : string\n trace Warning (fun () =\u003E \u0022move_file_async\u0022) get_locals\n async.sleep 10 |\u003E async.do\n loop (retry \u002B 1) |\u003E async.return_await\n |\u003E async.new_async_unit\n loop 0\n | _ =\u003E fun () =\u003E null ()\n\n// // ## find_parent\n\ninl find_parent name is_file root_dir =\n let rec loop dir =\n if dir \u003C/\u003E name |\u003E (if is_file then file_exists else directory_exists)\n then dir\n else\n inl result = dir |\u003E (join directory_get_parent)\n match result |\u003E optionm\u0027.unbox with\n | Some parent =\u003E parent |\u003E loop\n | None =\u003E failwith $\u0027$\u0022\u0022\u0022No parent for {if !is_file then \u0022file\u0022 else \u0022dir\u0022} \\\u0027{!name}\\\u0027 at \\\u0027{!root_dir}\\\u0027 (until \\\u0027{!dir}\\\u0027)\u0022\u0022\u0022\u0027\n loop root_dir\n\n// // ## main\n\ninl main () =\n types ()\n run_target function\n | Fsharp (Native) =\u003E fun () =\u003E\n $\u0022let delete_directory_async x = !delete_directory_async x\u0022 : ()\n $\u0022let wait_for_file_access x = !wait_for_file_access x\u0022 : ()\n $\u0022let wait_for_file_access_read x = !wait_for_file_access_read x\u0022 : ()\n $\u0022let read_all_text_async x = !read_all_text_async x\u0022 : ()\n $\u0022let file_exists_content x = !file_exists_content x\u0022 : ()\n $\u0022let write_all_text_async x = !write_all_text_async x\u0022 : ()\n $\u0022let write_all_text_exists x = !write_all_text_exists x\u0022 : ()\n $\u0022let delete_file_async x = !delete_file_async x\u0022 : ()\n $\u0022let move_file_async x = !move_file_async x\u0022 : ()\n $\u0022let read_all_text_retry_async x = !read_all_text_retry_async x\u0022 : ()\n | _ =\u003E fun () =\u003E ()\n $\u0022let create_temp_directory_name () = !create_temp_directory_name ()\u0022 : ()\n $\u0022let create_temp_directory () = !create_temp_directory ()\u0022 : ()\n $\u0022let get_source_directory () = !get_source_directory ()\u0022 : ()\n $\u0022let find_parent x = !find_parent x\u0022 : ()\n inl combine x = (\u003C/\u003E) x\n $\u0022let (\u003C/\u003E) x = !combine x\u0022 : ()\n","uri":"file:///c:/home/git/polyglot/lib/spiral/file_system.spi"}} / result.Length:
00:00:05 #13 [verbose] > Building c:\home\git\polyglot\lib\spiral\file_system.spi
00:00:05 #54 [debug] sendJson / port: 13805 / json: {"BuildFile":{"backend":"Fsharp","uri":"file:///c:/home/git/polyglot/lib/spiral/file_system.spi"}} / result.Length:
00:00:06 #55 [debug] buildFile / takeWhileInclusive / fsxContent: #if FABLE_COMPILER // file_system.types
[<Fable.Core.Erase; Fable.Core.Emit("str")>] type Str = class end
[<Fable.Core.Erase; Fable.Core.Emit("base64::DecodeError")>] type base64_DecodeError = class e...t_source_directory () = v13 ()
let v14 : (string -> (bool -> (string -> string))) = closure38()
let find_parent x = v14 x
let v15 : (string -> (string -> string)) = closure45()
let (</>) x = v15 x
()
/ errors: [] / typeErrorCount: 0
00:00:06 #56 [debug] watchWithFilter / Disposing watch stream / filter: FileName, LastWrite
00:00:06 #57 [debug] runWithTimeoutChildAsync / timeout: 60
00:00:06 #58 [debug] buildFile / takeWhileInclusive / fsxContent: / errors: [] / typeErrorCount: 0
00:00:06 #59 [debug] buildFile / takeWhileInclusive / fsxContent: / errors: [] / typeErrorCount: 0
00:00:06 #60 [debug] sendJson / port: 13805 / json: {"FileOpen":{"spiText":"// // # guid\n\n// // ## guid\n\nnominal guid = $\u0022System.Guid\u0022\n\n// // ## new_guid\n\ninl new_guid (x : string) : guid =\n $\u0027\u0060guid !x \u0027\n\n// // ## new_raw_guid\n\ninl new_raw_guid () : guid =\n $\u0022System.Guid.NewGuid ()\u0022\n\n// // ## main\n\ninl main () =\n $\u0022let new_guid x = !new_guid x\u0022 : ()\n $\u0022let new_raw_guid x = !new_raw_guid x\u0022 : ()\n","uri":"file:///c:/home/git/polyglot/lib/spiral/guid.spi"}} / result.Length:
00:00:06 #14 [verbose] > Building c:\home\git\polyglot\lib\spiral\guid.spi
00:00:06 #61 [debug] sendJson / port: 13805 / json: {"BuildFile":{"backend":"Fsharp","uri":"file:///c:/home/git/polyglot/lib/spiral/guid.spi"}} / result.Length:
00:00:06 #62 [debug] buildFile / takeWhileInclusive / fsxContent: let rec closure0 () (v0 : string) : System.Guid =
let v1 : System.Guid = System.Guid v0
v1
and closure1 () () : System.Guid =
let v0 : System.Guid = System.Guid.NewGuid ()
v0
let v0 : (string -> System.Guid) = closure0()
let new_guid x = v0 x
let v1 : (unit -> System.Guid) = closure1()
let new_raw_guid x = v1 x
()
/ errors: [] / typeErrorCount: 0
00:00:06 #63 [debug] watchWithFilter / Disposing watch stream / filter: FileName, LastWrite
00:00:06 #64 [debug] runWithTimeoutChildAsync / timeout: 60
00:00:06 #65 [debug] buildFile / takeWhileInclusive / fsxContent: / errors: [] / typeErrorCount: 0
00:00:06 #66 [debug] buildFile / takeWhileInclusive / fsxContent: / errors: [] / typeErrorCount: 0
00:00:06 #67 [debug] sendJson / port: 13805 / json: {"FileOpen":{"spiText":"// // # sm\u0027\n\nopen rust_operators\n\n// // ## types\n\ninl types () =\n global \u0022[\u003CFable.Core.Erase; Fable.Core.Emit(\\\u0022str\\\u0022)\u003E] type Str = class end\u0022\n global \u0022[\u003CFable.Core.Erase; Fable.Core.Emit(\\\u0022base64::DecodeError\\\u0022)\u003E] type base64_DecodeError = class end\u0022\n global \u0022[\u003CFable.Core.Erase; Fable.Core.Emit(\\\u0022borsh::io::Error\\\u0022)\u003E] type borsh_io_Error = class end\u0022\n global \u0022[\u003CFable.Core.Erase; Fable.Core.Emit(\\\u0022js_sys::JsString\\\u0022)\u003E] type js_sys_JsString = class end\u0022\n global \u0022[\u003CFable.Core.Erase; Fable.Core.Emit(\\\u0022serde_json::Error\\\u0022)\u003E] type serde_json_Error = class end\u0022\n global \u0022[\u003CFable.Core.Erase; Fable.Core.Emit(\\\u0022serde_json::Value\\\u0022)\u003E] type serde_json_Value = class end\u0022\n global \u0022[\u003CFable.Core.Erase; Fable.Core.Emit(\\\u0022serde_wasm_bindgen::Error\\\u0022)\u003E] type serde_wasm_bindgen_Error = class end\u0022\n global \u0022[\u003CFable.Core.Erase; Fable.Core.Emit(\\\u0022std::ffi::OsStr\\\u0022)\u003E] type std_ffi_OsStr = class end\u0022\n global \u0022[\u003CFable.Core.Erase; Fable.Core.Emit(\\\u0022std::ffi::OsString\\\u0022)\u003E] type std_ffi_OsString = class end\u0022\n global \u0022[\u003CFable.Core.Erase; Fable.Core.Emit(\\\u0022std::str::Utf8Error\\\u0022)\u003E] type std_str_Utf8Error = class end\u0022\n global \u0022[\u003CFable.Core.Erase; Fable.Core.Emit(\\\u0022std::string::String\\\u0022)\u003E] type std_string_String = class end\u0022\n\nnominal base64_decode_error = $\u0022base64_DecodeError\u0022\nnominal borsh_io_error = $\u0022borsh_io_Error\u0022\nnominal utf8_error = $\u0022std_str_Utf8Error\u0022\nnominal json_value = $\u0022serde_json_Value\u0022\nnominal json_error = $\u0022serde_json_Error\u0022\nnominal serde_wasm_bindgen_error = $\u0022serde_wasm_bindgen_Error\u0022\nnominal js_string = $\u0022js_sys_JsString\u0022\nnominal str = $\u0022Str\u0022\nnominal os_str = $\u0022std_ffi_OsStr\u0022\nnominal os_string = $\u0022std_ffi_OsString\u0022\nnominal std_string = $\u0022std_string_String\u0022\n\n// // ## contains\n\ninl contains (value : string) (s : string) : bool =\n $\u0022!s.Contains !value\u0022\n\n// // ## ends_with\n\ninl ends_with (value : string) (s : string) : bool =\n $\u0022!s.EndsWith !value\u0022\n\n// // ## pad_left\n\ninl pad_left (total_width : i32) (padding_char : char) (s : string) : string =\n $\u0022!s.PadLeft (!total_width, !padding_char)\u0022\n\n// // ## pad_right\n\ninl pad_right (pad : i32) (s : string) : string =\n $\u0022!s.PadRight !pad\u0022\n\n// // ## replace\n\ninl replace (old_value : string) (new_value : string) (s : string) : string =\n $\u0022!s.Replace (!old_value, !new_value)\u0022\n\n// // ## starts_with\n\ninl starts_with (value : string) (s : string) : bool =\n $\u0022!s.StartsWith !value\u0022\n\n// // ## substring\n\ninl substring (start : i32) (len : i32) (str : string) : string =\n $\u0022!str.Substring (!start, !len)\u0022\n\n// // ## to_lower\n\ninl to_lower (input : string) : string =\n $\u0022!input.ToLower ()\u0022\n\n// // ## to_upper\n\ninl to_upper (input : string) : string =\n $\u0022!input.ToUpper ()\u0022\n\n// // ## trim\n\ninl trim (input : string) : string =\n $\u0022!input.Trim ()\u0022\n\n// // ## trim_end\n\ninl trim_end (trim_chars : array_base char) (input : string) : string =\n $\u0022!input.TrimEnd !trim_chars\u0022\n\n// // ## trim_start\n\ninl trim_start (trim_chars : array_base char) (input : string) : string =\n $\u0022!input.TrimStart !trim_chars\u0022\n\n// // ## slice\n\ninl slice from to s : string =\n sm.slice s { from to }\n\n// // ## raw_string_literal\n\ninl raw_string_literal (s : string) : rust.ref\u0027 str =\n !\\($\u0022\\\u0022r#\\\\\\\u0022\\\u0022 \u002B !s \u002B \\\u0022\\\\\\\u0022#\\\u0022\u0022)\n\n// // ## raw_string_literal_static\n\ninl raw_string_literal_static (s : string) : rust.static_ref\u0027 str =\n !\\($\u0022\\\u0022r#\\\\\\\u0022\\\u0022 \u002B !s \u002B \\\u0022\\\\\\\u0022#\\\u0022\u0022)\n\n// // ## include_str\n\ninl include_str (path : string) : rust.ref\u0027 str =\n !\\($\u0027\u0022include_str\\!(\\\\\\\u0022\u0022 \u002B !path \u002B \u0022\\\\\\\u0022)\u0022\u0027)\n\n// // ## as_str\n\ninl as_str (s : string) : rust.ref\u0027 str =\n !\\\\(s, $\u0027\u0022fable_library_rust::String_::LrcStr::as_str(\u0026$0)\u0022\u0027)\n\n// // ## as_os_ref\n\ninl as_os_ref (s : os_string) : rust.ref\u0027 os_str =\n !\\\\(s, $\u0027\u0022$0.as_ref()\u0022\u0027)\n\n// // ## to_os_string\n\ninl to_os_string (s : rust.ref\u0027 os_str) : os_string =\n !\\\\(s, $\u0027\u0022$0.to_os_string()\u0022\u0027)\n\n// // ## os_to_str\n\ninl os_to_str (s : os_string) : optionm\u0027.option\u0027 (rust.ref\u0027 str) =\n !\\\\(s, $\u0027\u0022$0.to_str()\u0022\u0027)\n\n// // ## from_std_string\n\ninl from_std_string (str : std_string) : string =\n !\\\\(str, $\u0027\u0022fable_library_rust::String_::fromString($0)\u0022\u0027)\n\n// // ## ref_to_std_string\n\ninl ref_to_std_string (str : rust.ref\u0027 str) : std_string =\n !\\\\(str, $\u0027\u0022String::from($0)\u0022\u0027)\n\n// // ## to_std_string\n\ninl to_std_string (s : string) : std_string =\n inl s = join s\n s |\u003E as_str |\u003E ref_to_std_string\n\n// // ## as_str_std\n\ninl as_str_std (s : std_string) : rust.ref\u0027 str =\n inl s = join s\n !\\($\u0027\u0022!s.as_str()\u0022\u0027)\n\n// // ## into_boxed_str\n\ninl into_boxed_str (s : std_string) : rust.box str =\n !\\($\u0027\u0022!s.into_boxed_str()\u0022\u0027)\n\n// // ## format\u0027\n\ninl format\u0027 x : std_string =\n !\\\\(x, $\u0027@@$\u0022format\\!(\u0022\u0022{{}}\u0022\u0022, $0)\u0022\u0027)\n\n// // ## format_debug\n\ninl format_debug x : string =\n $\u0027$\u0022%A{!x}\u0022\u0027\n\n// // ## format_debug\u0027\n\ninl format_debug\u0027 x : std_string =\n !\\\\(x, $\u0027@@$\u0022format\\!(\u0022\u0022{{:?}}\u0022\u0022, $0)\u0022\u0027)\n\n// // ## format_pretty\u0027\n\ninl format_pretty\u0027 x : std_string =\n !\\\\(x, $\u0027@@$\u0022format\\!(\u0022\u0022{{:#?}}\u0022\u0022, $0)\u0022\u0027)\n\n// // ## format_exception\n\ninl format_exception (ex : exn) : string =\n run_target function\n | Fsharp (Native) =\u003E fun () =\u003E $\u0027$\u0022{!ex.GetType ()}: {!ex.Message}\u0022\u0027\n | _ =\u003E fun () =\u003E ex |\u003E format_debug\n\n// // ## obj_to_string\n\ninl obj_to_string x : string =\n x |\u003E $\u0027_.ToString()\u0027\n\n// // ## to_string any\n\ninstance to_string any =\n obj_to_string\n\n// // ## to_string result t u\n\ninstance to_string result t u = fun x =\u003E\n real\n open rust\n typecase (t * u) with\n | string * string =\u003E\n match x with\n | Ok x =\u003E x\n | Error x =\u003E $\u0027\u0022Error: \u0022 \u002B !x \u002B \u0022\u0022\u0027 : string\n | std_string * std_string =\u003E\n match x with\n | Ok x =\u003E from_std_string x\n | Error x =\u003E $\u0027\u0022Error: \u0022 \u002B string !x \u002B \u0022\u0022\u0027 : string\n | _ =\u003E obj_to_string \u0060u x\n\n// // ## serialize\n\ninl serialize forall t. (x : t) : resultm.result\u0027 std_string json_error =\n !\\($\u0027\u0022serde_json::to_string(\u0026!x)\u0022\u0027)\n\n// // ## deserialize\n\ninl deserialize forall t. (json : string) : resultm.result\u0027 t std_string =\n inl json = join json\n inl json = json |\u003E as_str\n !\\($\u0027\u0022serde_json::from_str(\u0026!json)\u0022\u0027)\n |\u003E resultm.map_error\u0027 fun (x : json_error) =\u003E x |\u003E format\u0027\n\n// // ## borsh_deserialize\n\ninl borsh_deserialize forall t. (data : array_base u8) : resultm.result\u0027 t std_string =\n inl data = data |\u003E am\u0027.as_slice\n !\\($\u0027\u0022let mut !data = !data\u0022\u0027)\n inl result = !\\($\u0027\u0022borsh::BorshDeserialize::deserialize(\u0026mut !data)\u0022\u0027)\n result\n |\u003E resultm.map_error\u0027 fun (x : borsh_io_error) =\u003E x |\u003E format\u0027\n\n// // ## deserialize_vec\n\ninl deserialize_vec (value : json_value) : resultm.result\u0027 (am\u0027.vec u8) std_string =\n inl value = join value\n !\\($\u0027\u0022serde_json::from_value(!value)\u0022\u0027)\n |\u003E resultm.map_error\u0027 fun (x : json_error) =\u003E x |\u003E format\u0027\n\n// // ## encode_uri_component\n\ninl encode_uri_component (s : std_string) : js_string =\n !\\($\u0027\u0022js_sys::encode_uri_component(\u0026!s)\u0022\u0027)\n\n// // ## strip_prefix\n\ninl strip_prefix (prefix : char) (s : std_string) : optionm\u0027.option\u0027 (rust.ref\u0027 str) =\n inl s = join s\n !\\($\u0027\u0022!s.strip_prefix(!prefix)\u0022\u0027)\n\n// // ## base64_decode\n\ninl base64_decode (s : std_string) : result std_string std_string =\n fun () =\u003E\n inl s = join s\n inl bytes : resultm.result\u0027 (am\u0027.vec u8) base64_decode_error =\n !\\($\u0027\u0022base64::Engine::decode(\u0026base64::engine::general_purpose::STANDARD, !s)\u0022\u0027)\n inl bytes =\n bytes\n |\u003E resultm.map_error\u0027 format\u0027\n |\u003E resultm.try\u0027\n inl result : resultm.result\u0027 std_string utf8_error =\n !\\($\u0027\u0022std::str::from_utf8(\u0026!bytes).map(String::from)\u0022\u0027)\n result\n |\u003E resultm.map_error\u0027 format\u0027\n |\u003E fun x =\u003E\n join x ()\n |\u003E resultm.unbox\n\n// // ## concat_array_trailing\n\ninl concat_array_trailing (separator : string) (input : a i32 string) =\n (\u0022\u0022, input)\n ||\u003E am.fold fun acc (x : string) =\u003E\n $\u0027!acc \u002B !x \u002B !separator \u002B \u0022\u0022\u0027\n\n// // ## concat_list_trailing\n\ninl concat_list_trailing separator input =\n (\u0022\u0022, input)\n ||\u003E listm.fold fun acc (x : string) =\u003E\n $\u0027!acc \u002B !x \u002B !separator \u002B \u0022\u0022\u0027\n\n// // ## concat_list_heap_trailing\n\ninl concat_list_heap_trailing separator input =\n inl separator = join separator\n inl separator = separator |\u003E as_str\n (\u0022\u0022, input)\n ||\u003E listm.fold fun acc (x : string) =\u003E\n inl acc = acc |\u003E to_std_string\n inl x = x |\u003E as_str\n $\u0027$\u0022{!acc}{!x}{!separator}\u0022\u0027\n\n// // ## concat\n\ninl concat (a : string) (b : seq.seq\u0027 _) : string =\n inl a = join a\n b |\u003E $\u0022String.concat\u0022 a\n\n// // ## ellipsis\n\ninl ellipsis (max : i32) (s : string) =\n if sm.length s \u003C= max\n then s\n else s |\u003E slice 0 (max - 1) |\u003E fun x =\u003E $\u0027!x \u002B \u0022...\u0022\u0027\n\n// // ## ellipsis_end\n\ninl ellipsis_end (max : i64) (s : string) =\n inl len = sm.length s\n if len \u003C= max\n then s\n else\n inl half = f64 max / 2\n inl start_half = half |\u003E math.ceil |\u003E i64\n inl end_half = half |\u003E math.floor |\u003E i64\n inl start = s |\u003E slice 0 (start_half - 1)\n inl end = s |\u003E slice (len - end_half) (len - 1)\n (a ;[start; \u0022...\u0022; end] : _ i32 _)\n |\u003E seq.of_array\n |\u003E concat \u0022\u0022\n\n// // ## format_ellipsis\n\ninl format_ellipsis s =\n s\n |\u003E format_debug\n |\u003E ellipsis_end 400\n\n// // ## split\n\ninl split (separator : string) (str : string) : array_base string =\n $\u0022!str.Split !separator\u0022\n\n// // ## split_string\n\ninl split_string (separator : array_base string) (str : string) : array_base string =\n run_target function\n | Fsharp (Native) =\u003E fun () =\u003E $\u0022!str.Split (!separator, System.StringSplitOptions.None)\u0022\n | _ =\u003E fun () =\u003E str |\u003E split ((a separator : _ i32 _) |\u003E seq.of_array |\u003E concat \u0022\u0022)\n\n// // ## join\u0027\n\ninl join\u0027 (concat : string) (s : a i32 string) : string =\n $\u0022System.String.Join (!concat, !s)\u0022\n\n// // ## to_char_array\n\ninl to_char_array (str : string) : a i32 char =\n am.init (str |\u003E sm.length) (fun i =\u003E sm.index str i)\n\n// // ## to_char_list\n\ninl to_char_list (str : string) : list char =\n listm.init (str |\u003E sm.length) (fun (i : i64) =\u003E sm.index str i)\n\nnominal encoding = $\u0027System.Text.Encoding\u0027\n\ninl encoding_utf8 () : encoding =\n $\u0027System.Text.Encoding.UTF8\u0027\n\n// // ## utf8_get_bytes\n\ninl utf8_get_bytes (s : string) : a i32 u8 =\n s |\u003E $\u0027\u0060encoding.UTF8.GetBytes\u0027\n\n// // ## byte_to_string\n\ninl byte_to_string (format : string) (x : u8) : string =\n $\u0027!x.ToString\u0027 format\n\n// // ## to_string std_string\n\nopen rust\ninstance to_string std_string = from_std_string\n\n// // ## main\n\ninl main () =\n $\u0022let contains x = !contains x\u0022 : ()\n $\u0022let ends_with x = !ends_with x\u0022 : ()\n $\u0022let pad_left x = !pad_left x\u0022 : ()\n $\u0022let pad_right x = !pad_right x\u0022 : ()\n $\u0022let replace x = !replace x\u0022 : ()\n inl slice (a : i32) (b : i32) c = slice a b c\n $\u0022let slice x = !slice x\u0022 : ()\n $\u0022let split x = !split x\u0022 : ()\n $\u0022let split_string x = !split_string x\u0022 : ()\n $\u0022let starts_with x = !starts_with x\u0022 : ()\n $\u0022let substring x = !substring x\u0022 : ()\n $\u0022let to_lower x = !to_lower x\u0022 : ()\n $\u0022let to_upper x = !to_upper x\u0022 : ()\n $\u0022let trim x = !trim x\u0022 : ()\n $\u0022let trim_end x = !trim_end x\u0022 : ()\n $\u0022let trim_start x = !trim_start x\u0022 : ()\n $\u0022let ellipsis x = !ellipsis x\u0022 : ()\n $\u0022let ellipsis_end x = !ellipsis_end x\u0022 : ()\n $\u0022let format_exception x = !format_exception x\u0022 : ()\n $\u0022let concat_array_trailing x = !concat_array_trailing x\u0022 : ()\n inl concat a (b : seq.seq\u0027 string) = concat a b\n $\u0022let concat x = !concat x\u0022 : ()\n $\u0022let join\u0027 x = !join\u0027 x\u0022 : ()\n $\u0022let to_char_array x = !to_char_array x\u0022 : ()\n","uri":"file:///c:/home/git/polyglot/lib/spiral/sm\u0027.spi"}} / result.Length:
00:00:06 #15 [verbose] > Building c:\home\git\polyglot\lib\spiral\sm'.spi
00:00:06 #68 [debug] sendJson / port: 13805 / json: {"BuildFile":{"backend":"Fsharp","uri":"file:///c:/home/git/polyglot/lib/spiral/sm\u0027.spi"}} / result.Length:
00:00:06 #69 [debug] buildFile / takeWhileInclusive / fsxContent: type Mut0 = {mutable l0 : int32; mutable l1 : string}
and Mut1 = {mutable l0 : int32}
let rec closure1 (v0 : string) (v1 : string) : bool =
let v2 : bool = v1.Contains v0
v2
and closure0 () (v...tring)) = closure38()
let concat x = v19 x
let v20 : (string -> ((string []) -> string)) = closure40()
let join' x = v20 x
let v21 : (string -> (char [])) = closure42()
let to_char_array x = v21 x
()
/ errors: [] / typeErrorCount: 0
00:00:06 #70 [debug] watchWithFilter / Disposing watch stream / filter: FileName, LastWrite
00:00:08 #71 [debug] runWithTimeoutChildAsync / timeout: 2000
In [ ]:
{ . "$ScriptDir/../apps/scheduler/build.ps1" } | Invoke-Block
00:00:00 #1 [debug] runWithTimeoutChildAsync / timeout: 60
00:00:00 #1 [debug] execute_with_options_async / options: struct (Some System.Threading.CancellationToken,
"dotnet "C:\home\git\polyglot\deps\The-Spiral-Language\The Spiral Language 2\artifacts\bin\The Spiral Language 2\release\Spiral.dll" --port 13805 --default-int i32 --default-float f64",
Some <fun:main@439-43>, None, None)
00:00:00 #2 [verbose] > pwd: C:\home\git\polyglot\apps\scheduler
00:00:00 #3 [verbose] > dllPath: C:\home\git\polyglot\deps\The-Spiral-Language\The Spiral Language 2\artifacts\bin\The Spiral Language 2\release
00:00:00 #4 [verbose] > targetDir: C:\home\git\polyglot\target/polyglot/spiral_eval
00:00:00 #5 [verbose] > Starting the Spiral Server. It is bound to: http://localhost:13805
00:00:00 #2 [debug] runWithTimeoutChildAsync / timeout: 500
00:00:00 #3 [verbose] waitForPortAccess / port: 13805 / retry: 0
00:00:01 #4 [debug] sendJson / port: 13805 / json: {"Ping":true} / result.Length:
00:00:01 #5 [verbose] awaitCompiler / Ping / result: Some(null) / port: 13805 / retry: 0
00:00:01 #6 [verbose] > Server bound to: http://localhost:13805
00:00:01 #7 [debug] execute_with_options_async / options: struct (Some System.Threading.CancellationToken,
"pwsh -c "../../scripts/invoke-dib.ps1 Tasks.dib -Retries 3"", None,
None, None)
00:00:03 #8 [verbose] >
00:00:03 #9 [verbose] > ── markdown ────────────────────────────────────────────────────────────────────
00:00:03 #10 [verbose] > ╭──────────────────────────────────────────────────────────────────────────────╮
00:00:03 #11 [verbose] > │ ## Tasks (Polyglot) │
00:00:03 #12 [verbose] > ╰──────────────────────────────────────────────────────────────────────────────╯
00:00:03 #13 [verbose] >
00:00:03 #14 [verbose] > ── spiral ──────────────────────────────────────────────────────────────────────
00:00:03 #15 [verbose] > // // test
00:00:03 #16 [verbose] >
00:00:03 #17 [verbose] > open testing
00:00:06 #18 [verbose] > Building c:\home\git\polyglot\target\polyglot\spiral_eval\packages\8837341da068f4ef4271045b3ef1c89d209237bf74b4f11596b6ee2d484becb0\main.spi
00:00:09 #19 [verbose] >
00:00:09 #20 [verbose] > ╭─[ 5.75s - stdout ]───────────────────────────────────────────────────────────╮
00:00:09 #21 [verbose] > │ () │
00:00:09 #22 [verbose] > │ │
00:00:09 #23 [verbose] > │ │
00:00:09 #24 [verbose] > ╰──────────────────────────────────────────────────────────────────────────────╯
00:00:09 #25 [verbose] >
00:00:09 #26 [verbose] > ── spiral ──────────────────────────────────────────────────────────────────────
00:00:09 #27 [verbose] > inl types () =
00:00:09 #28 [verbose] > global "[[<Fable.Core.Erase; Fable.Core.Emit(\"std::string::String\")>]]
00:00:09 #29 [verbose] > type std_string_String = class end"
00:00:09 #30 [verbose] > global "[[<Fable.Core.Erase; Fable.Core.Emit(\"&$0\")>]] type Ref<'T> =
00:00:09 #31 [verbose] > class end"
00:00:09 #32 [verbose] > global "[[<Fable.Core.Erase; Fable.Core.Emit(\"str\")>]] type Str = class
00:00:09 #33 [verbose] > end"
00:00:09 #34 [verbose] >
00:00:09 #35 [verbose] > inl emit_expr forall a t. (args : a) (code : string) : t =
00:00:09 #36 [verbose] > real
00:00:09 #37 [verbose] > $"Fable.Core.RustInterop.emitRustExpr !args !code" : t
00:00:09 #38 [verbose] >
00:00:09 #39 [verbose] >
00:00:09 #40 [verbose] > nominal std_string = $"std_string_String"
00:00:09 #41 [verbose] > nominal ref' t = $"Ref<`t>"
00:00:09 #42 [verbose] > nominal str = $"Str"
00:00:09 #43 [verbose] >
00:00:09 #44 [verbose] > inl format_debug forall t. (x : t) : std_string =
00:00:09 #45 [verbose] > real
00:00:09 #46 [verbose] > emit_expr `t `std_string x "format!(\"{:?}\", $0)"
00:00:09 #47 [verbose] >
00:00:09 #48 [verbose] > inl format_pretty forall t. (x : t) : std_string =
00:00:09 #49 [verbose] > real
00:00:09 #50 [verbose] > emit_expr `t `std_string x "format!(\"{:#?}\", $0)"
00:00:09 #51 [verbose] >
00:00:09 #52 [verbose] > inl to_std_string (str : ref' str) : std_string =
00:00:09 #53 [verbose] > // inl str = join str
00:00:09 #54 [verbose] > // // emit_expr () $"\"!str.to_string()\""
00:00:09 #55 [verbose] > // // emit_expr () $"\"alloc::string::to_string(!str)\""
00:00:09 #56 [verbose] > // emit_expr str "($0).to_string()"
00:00:09 #57 [verbose] > emit_expr str $"\"String::from(core::ops::Deref::deref($0))\""
00:00:09 #58 [verbose] > // emit_expr str $"\"String::from(*$0)\""
00:00:09 #59 [verbose] > // emit_expr () $"\"String::from(!str)\""
00:00:09 #60 [verbose] >
00:00:09 #61 [verbose] > inl format forall t. (x : t) : std_string =
00:00:09 #62 [verbose] > real
00:00:09 #63 [verbose] > inl result : std_string =
00:00:09 #64 [verbose] > typecase t with
00:00:09 #65 [verbose] > | string => to_std_string x
00:00:09 #66 [verbose] > | std_string => x
00:00:09 #67 [verbose] > | _ => format_pretty `t x
00:00:09 #68 [verbose] > result
00:00:09 #69 [verbose] >
00:00:09 #70 [verbose] > inl raw_string_literal (s : string) : ref' str =
00:00:09 #71 [verbose] > emit_expr () $"\"r#\\\"\" + !s + \"\\\"#\""
00:00:09 #72 [verbose] >
00:00:09 #73 [verbose] > inl (~#) (s : string) : ref' str =
00:00:09 #74 [verbose] > raw_string_literal s
00:00:09 #75 [verbose] > Building c:\home\git\polyglot\target\polyglot\spiral_eval\packages\8bf0f8026c5d7e32fa037e9ac5cced9dbb98baefd90344b5b074a817cfaa5fc3\main.spi
00:00:09 #76 [verbose] >
00:00:09 #77 [verbose] > ╭─[ 341.95ms - stdout ]────────────────────────────────────────────────────────╮
00:00:09 #78 [verbose] > │ () │
00:00:09 #79 [verbose] > │ │
00:00:09 #80 [verbose] > │ │
00:00:09 #81 [verbose] > ╰──────────────────────────────────────────────────────────────────────────────╯
00:00:09 #82 [verbose] >
00:00:09 #83 [verbose] > ── spiral ──────────────────────────────────────────────────────────────────────
00:00:09 #84 [verbose] > nominal task_name = string
00:00:09 #85 [verbose] >
00:00:09 #86 [verbose] > union manual_scheduling =
00:00:09 #87 [verbose] > | WithSuggestion
00:00:09 #88 [verbose] > | WithoutSuggestion
00:00:09 #89 [verbose] >
00:00:09 #90 [verbose] > union recurrency_offset =
00:00:09 #91 [verbose] > | Days : i32
00:00:09 #92 [verbose] > | Weeks : i32
00:00:09 #93 [verbose] > | Months : i32
00:00:09 #94 [verbose] >
00:00:09 #95 [verbose] > union day_of_week =
00:00:09 #96 [verbose] > | Sunday
00:00:09 #97 [verbose] > | Monday
00:00:09 #98 [verbose] > | Tuesday
00:00:09 #99 [verbose] > | Wednesday
00:00:09 #100 [verbose] > | Thursday
00:00:09 #101 [verbose] > | Friday
00:00:09 #102 [verbose] > | Saturday
00:00:09 #103 [verbose] >
00:00:09 #104 [verbose] > union month =
00:00:09 #105 [verbose] > | January
00:00:09 #106 [verbose] > | February
00:00:09 #107 [verbose] > | March
00:00:09 #108 [verbose] > | April
00:00:09 #109 [verbose] > | May
00:00:09 #110 [verbose] > | June
00:00:09 #111 [verbose] > | July
00:00:09 #112 [verbose] > | August
00:00:09 #113 [verbose] > | September
00:00:09 #114 [verbose] > | October
00:00:09 #115 [verbose] > | November
00:00:09 #116 [verbose] > | December
00:00:09 #117 [verbose] >
00:00:09 #118 [verbose] > nominal day = i32
00:00:09 #119 [verbose] > nominal year = i32
00:00:09 #120 [verbose] >
00:00:09 #121 [verbose] > union fixed_recurrency =
00:00:09 #122 [verbose] > | Weekly : day_of_week
00:00:09 #123 [verbose] > | Monthly : day
00:00:09 #124 [verbose] > | Yearly : day * month
00:00:09 #125 [verbose] >
00:00:09 #126 [verbose] > union recurrency =
00:00:09 #127 [verbose] > | Offset : recurrency_offset
00:00:09 #128 [verbose] > | Fixed : list fixed_recurrency
00:00:09 #129 [verbose] >
00:00:09 #130 [verbose] > union scheduling =
00:00:09 #131 [verbose] > | Manual : manual_scheduling
00:00:09 #132 [verbose] > | Recurrent : recurrency
00:00:09 #133 [verbose] >
00:00:09 #134 [verbose] > type task =
00:00:09 #135 [verbose] > {
00:00:09 #136 [verbose] > name : task_name
00:00:09 #137 [verbose] > scheduling : scheduling
00:00:09 #138 [verbose] > }
00:00:09 #139 [verbose] >
00:00:09 #140 [verbose] > type date =
00:00:09 #141 [verbose] > {
00:00:09 #142 [verbose] > year : year
00:00:09 #143 [verbose] > month : month
00:00:09 #144 [verbose] > day : day
00:00:09 #145 [verbose] > }
00:00:09 #146 [verbose] >
00:00:09 #147 [verbose] > union status =
00:00:09 #148 [verbose] > | Postponed : option ()
00:00:09 #149 [verbose] >
00:00:09 #150 [verbose] > type event =
00:00:09 #151 [verbose] > {
00:00:09 #152 [verbose] > date : date
00:00:09 #153 [verbose] > status : status
00:00:09 #154 [verbose] > }
00:00:09 #155 [verbose] >
00:00:09 #156 [verbose] > type task_template =
00:00:09 #157 [verbose] > {
00:00:09 #158 [verbose] > task : task
00:00:09 #159 [verbose] > events : list event
00:00:09 #160 [verbose] > }
00:00:09 #161 [verbose] > Building c:\home\git\polyglot\target\polyglot\spiral_eval\packages\db5464a5d32680df08405bcc73aadabcbb2eb4a9dbe487c2bd58aeff5a28979e\main.spi
00:00:10 #162 [verbose] >
00:00:10 #163 [verbose] > ╭─[ 277.88ms - stdout ]────────────────────────────────────────────────────────╮
00:00:10 #164 [verbose] > │ () │
00:00:10 #165 [verbose] > │ │
00:00:10 #166 [verbose] > │ │
00:00:10 #167 [verbose] > ╰──────────────────────────────────────────────────────────────────────────────╯
00:00:10 #168 [verbose] >
00:00:10 #169 [verbose] > ── spiral ──────────────────────────────────────────────────────────────────────
00:00:10 #170 [verbose] > // // test
00:00:10 #171 [verbose] > // // rust=
00:00:10 #172 [verbose] >
00:00:10 #173 [verbose] > types ()
00:00:10 #174 [verbose] > Building c:\home\git\polyglot\target\polyglot\spiral_eval\packages\e0997170dcce3f6c7af64ca8658ea11a6d42ba115c8224f449dc4dc5e6768d3b\main.spi
00:00:14 #175 [verbose] >
00:00:14 #176 [verbose] > ╭─[ 4.64s - return value ]─────────────────────────────────────────────────────╮
00:00:14 #177 [verbose] > │ .rs output: │
00:00:14 #178 [verbose] > │ │
00:00:14 #179 [verbose] > │ │
00:00:14 #180 [verbose] > │ │
00:00:14 #181 [verbose] > │ │
00:00:14 #182 [verbose] > ╰──────────────────────────────────────────────────────────────────────────────╯
00:00:14 #183 [verbose] >
00:00:14 #184 [verbose] > ╭─[ 4.65s - stdout ]───────────────────────────────────────────────────────────╮
00:00:14 #185 [verbose] > │ .fsx: │
00:00:14 #186 [verbose] > │ [<Fable.Core.Erase; Fable.Core.Emit("std::string::String")>] type │
00:00:14 #187 [verbose] > │ std_string_String = class end │
00:00:14 #188 [verbose] > │ [<Fable.Core.Erase; Fable.Core.Emit("&$0")>] type Ref<'T> = class end │
00:00:14 #189 [verbose] > │ [<Fable.Core.Erase; Fable.Core.Emit("str")>] type Str = class end │
00:00:14 #190 [verbose] > │ let rec method0 () : unit = │
00:00:14 #191 [verbose] > │ () │
00:00:14 #192 [verbose] > │ method0() │
00:00:14 #193 [verbose] > │ │
00:00:14 #194 [verbose] > │ │
00:00:14 #195 [verbose] > │ .rs: │
00:00:14 #196 [verbose] > │ #![allow(dead_code,)] │
00:00:14 #197 [verbose] > │ #![allow(non_camel_case_types,)] │
00:00:14 #198 [verbose] > │ #![allow(non_snake_case,)] │
00:00:14 #199 [verbose] > │ #![allow(non_upper_case_globals,)] │
00:00:14 #200 [verbose] > │ #![allow(unreachable_code,)] │
00:00:14 #201 [verbose] > │ #![allow(unused_attributes,)] │
00:00:14 #202 [verbose] > │ #![allow(unused_imports,)] │
00:00:14 #203 [verbose] > │ #![allow(unused_macros,)] │
00:00:14 #204 [verbose] > │ #![allow(unused_parens,)] │
00:00:14 #205 [verbose] > │ #![allow(unused_variables,)] │
00:00:14 #206 [verbose] > │ mod module_ccfa04bf { │
00:00:14 #207 [verbose] > │ pub mod Spiral_eval { │
00:00:14 #208 [verbose] > │ use super::*; │
00:00:14 #209 [verbose] > │ use fable_library_rust::Native_::on_startup; │
00:00:14 #210 [verbose] > │ pub fn method0() { (); } │
00:00:14 #211 [verbose] > │ on_startup!(Spiral_eval::method0()); │
00:00:14 #212 [verbose] > │ } │
00:00:14 #213 [verbose] > │ } │
00:00:14 #214 [verbose] > │ pub use module_ccfa04bf::*; │
00:00:14 #215 [verbose] > │ │
00:00:14 #216 [verbose] > │ │
00:00:14 #217 [verbose] > ╰──────────────────────────────────────────────────────────────────────────────╯
00:00:14 #218 [verbose] >
00:00:14 #219 [verbose] > ── spiral ──────────────────────────────────────────────────────────────────────
00:00:14 #220 [verbose] > // // test
00:00:14 #221 [verbose] > // // rust=
00:00:14 #222 [verbose] >
00:00:14 #223 [verbose] > inl get_tasks () : list task_template =
00:00:14 #224 [verbose] > [[
00:00:14 #225 [verbose] > {
00:00:14 #226 [verbose] > task =
00:00:14 #227 [verbose] > {
00:00:14 #228 [verbose] > name = task_name "01"
00:00:14 #229 [verbose] > scheduling = Manual WithSuggestion
00:00:14 #230 [verbose] > }
00:00:14 #231 [verbose] > events = [[]]
00:00:14 #232 [verbose] > }
00:00:14 #233 [verbose] > {
00:00:14 #234 [verbose] > task =
00:00:14 #235 [verbose] > {
00:00:14 #236 [verbose] > name = task_name "02"
00:00:14 #237 [verbose] > scheduling = Manual WithSuggestion
00:00:14 #238 [verbose] > }
00:00:14 #239 [verbose] > events = [[]]
00:00:14 #240 [verbose] > }
00:00:14 #241 [verbose] > {
00:00:14 #242 [verbose] > task =
00:00:14 #243 [verbose] > {
00:00:14 #244 [verbose] > name = task_name "03"
00:00:14 #245 [verbose] > scheduling = Manual WithSuggestion
00:00:14 #246 [verbose] > }
00:00:14 #247 [verbose] > events = [[]]
00:00:14 #248 [verbose] > }
00:00:14 #249 [verbose] > ]]
00:00:14 #250 [verbose] >
00:00:14 #251 [verbose] > types ()
00:00:14 #252 [verbose] > get_tasks () |> format_pretty |> console.write_line
00:00:14 #253 [verbose] > Building c:\home\git\polyglot\target\polyglot\spiral_eval\packages\c9f164cde8cf1cb54bb977085dd61aef45a038e2074bdf34269aab375a3cd662\main.spi
00:00:19 #254 [verbose] >
00:00:19 #255 [verbose] > ╭─[ 5.05s - return value ]─────────────────────────────────────────────────────╮
00:00:19 #256 [verbose] > │ .rs output: │
00:00:19 #257 [verbose] > │ UH2_1( │
00:00:19 #258 [verbose] > │ UH0_0, │
00:00:19 #259 [verbose] > │ "01", │
00:00:19 #260 [verbose] > │ US4_0( │
00:00:19 #261 [verbose] > │ US3_0, │
00:00:19 #262 [verbose] > │ ), │
00:00:19 #263 [verbose] > │ UH2_1( │
00:00:19 #264 [verbose] > │ UH0_0, │
00:00:19 #265 [verbose] > │ "02", │
00:00:19 #266 [verbose] > │ US4_0( │
00:00:19 #267 [verbose] > │ US3_0, │
00:00:19 #268 [verbose] > │ ), │
00:00:19 #269 [verbose] > │ UH2_1( │
00:00:19 #270 [verbose] > │ UH0_0, │
00:00:19 #271 [verbose] > │ "03", │
00:00:19 #272 [verbose] > │ US4_0( │
00:00:19 #273 [verbose] > │ US3_0, │
00:00:19 #274 [verbose] > │ ), │
00:00:19 #275 [verbose] > │ UH2_0, │
00:00:19 #276 [verbose] > │ ), │
00:00:19 #277 [verbose] > │ ), │
00:00:19 #278 [verbose] > │ ) │
00:00:19 #279 [verbose] > │ │
00:00:19 #280 [verbose] > │ │
00:00:19 #281 [verbose] > │ │
00:00:19 #282 [verbose] > ╰──────────────────────────────────────────────────────────────────────────────╯
00:00:19 #283 [verbose] >
00:00:19 #284 [verbose] > ╭─[ 5.07s - stdout ]───────────────────────────────────────────────────────────╮
00:00:19 #285 [verbose] > │ .fsx: │
00:00:19 #286 [verbose] > │ [<Fable.Core.Erase; Fable.Core.Emit("std::string::String")>] type │
00:00:19 #287 [verbose] > │ std_string_String = class end │
00:00:19 #288 [verbose] > │ [<Fable.Core.Erase; Fable.Core.Emit("&$0")>] type Ref<'T> = class end │
00:00:19 #289 [verbose] > │ [<Fable.Core.Erase; Fable.Core.Emit("str")>] type Str = class end │
00:00:19 #290 [verbose] > │ type [<Struct>] US0 = │
00:00:19 #291 [verbose] > │ | US0_0 │
00:00:19 #292 [verbose] > │ | US0_1 │
00:00:19 #293 [verbose] > │ | US0_2 │
00:00:19 #294 [verbose] > │ | US0_3 │
00:00:19 #295 [verbose] > │ | US0_4 │
00:00:19 #296 [verbose] > │ | US0_5 │
00:00:19 #297 [verbose] > │ | US0_6 │
00:00:19 #298 [verbose] > │ | US0_7 │
00:00:19 #299 [verbose] > │ | US0_8 │
00:00:19 #300 [verbose] > │ | US0_9 │
00:00:19 #301 [verbose] > │ | US0_10 │
00:00:19 #302 [verbose] > │ | US0_11 │
00:00:19 #303 [verbose] > │ and [<Struct>] US2 = │
00:00:19 #304 [verbose] > │ | US2_0 │
00:00:19 #305 [verbose] > │ | US2_1 │
00:00:19 #306 [verbose] > │ and [<Struct>] US1 = │
00:00:19 #307 [verbose] > │ | US1_0 of f0_0 : US2 │
00:00:19 #308 [verbose] > │ and UH0 = │
00:00:19 #309 [verbose] > │ | UH0_0 │
00:00:19 #310 [verbose] > │ | UH0_1 of int32 * US0 * int32 * US1 * UH0 │
00:00:19 #311 [verbose] > │ and [<Struct>] US3 = │
00:00:19 #312 [verbose] > │ | US3_0 │
00:00:19 #313 [verbose] > │ | US3_1 │
00:00:19 #314 [verbose] > │ and [<Struct>] US6 = │
00:00:19 #315 [verbose] > │ | US6_0 of f0_0 : int32 │
00:00:19 #316 [verbose] > │ | US6_1 of f1_0 : int32 │
00:00:19 #317 [verbose] > │ | US6_2 of f2_0 : int32 │
00:00:19 #318 [verbose] > │ and [<Struct>] US8 = │
00:00:19 #319 [verbose] > │ | US8_0 │
00:00:19 #320 [verbose] > │ | US8_1 │
00:00:19 #321 [verbose] > │ | US8_2 │
00:00:19 #322 [verbose] > │ | US8_3 │
00:00:19 #323 [verbose] > │ | US8_4 │
00:00:19 #324 [verbose] > │ | US8_5 │
00:00:19 #325 [verbose] > │ | US8_6 │
00:00:19 #326 [verbose] > │ and [<Struct>] US7 = │
00:00:19 #327 [verbose] > │ | US7_0 of f0_0 : US8 │
00:00:19 #328 [verbose] > │ | US7_1 of f1_0 : int32 │
00:00:19 #329 [verbose] > │ | US7_2 of f2_0 : int32 * f2_1 : US0 │
00:00:19 #330 [verbose] > │ and UH1 = │
00:00:19 #331 [verbose] > │ | UH1_0 │
00:00:19 #332 [verbose] > │ | UH1_1 of US7 * UH1 │
00:00:19 #333 [verbose] > │ and [<Struct>] US5 = │
00:00:19 #334 [verbose] > │ | US5_0 of f0_0 : US6 │
00:00:19 #335 [verbose] > │ | US5_1 of f1_0 : UH1 │
00:00:19 #336 [verbose] > │ and [<Struct>] US4 = │
00:00:19 #337 [verbose] > │ | US4_0 of f0_0 : US3 │
00:00:19 #338 [verbose] > │ | US4_1 of f1_0 : US5 │
00:00:19 #339 [verbose] > │ and UH2 = │
00:00:19 #340 [verbose] > │ | UH2_0 │
00:00:19 #341 [verbose] > │ | UH2_1 of UH0 * string * US4 * UH2 │
00:00:19 #342 [verbose] > │ let rec method0 () : unit = │
00:00:19 #343 [verbose] > │ let v0 : UH0 = UH0_0 │
00:00:19 #344 [verbose] > │ let v1 : string = "01" │
00:00:19 #345 [verbose] > │ let v2 : US3 = US3_0 │
00:00:19 #346 [verbose] > │ let v3 : US4 = US4_0(v2) │
00:00:19 #347 [verbose] > │ let v4 : UH0 = UH0_0 │
00:00:19 #348 [verbose] > │ let v5 : string = "02" │
00:00:19 #349 [verbose] > │ let v6 : US3 = US3_0 │
00:00:19 #350 [verbose] > │ let v7 : US4 = US4_0(v6) │
00:00:19 #351 [verbose] > │ let v8 : UH0 = UH0_0 │
00:00:19 #352 [verbose] > │ let v9 : string = "03" │
00:00:19 #353 [verbose] > │ let v10 : US3 = US3_0 │
00:00:19 #354 [verbose] > │ let v11 : US4 = US4_0(v10) │
00:00:19 #355 [verbose] > │ let v12 : UH2 = UH2_0 │
00:00:19 #356 [verbose] > │ let v13 : UH2 = UH2_1(v8, v9, v11, v12) │
00:00:19 #357 [verbose] > │ let v14 : UH2 = UH2_1(v4, v5, v7, v13) │
00:00:19 #358 [verbose] > │ let v15 : UH2 = UH2_1(v0, v1, v3, v14) │
00:00:19 #359 [verbose] > │ let v16 : string = "format!(\"{:#?}\", $0)" │
00:00:19 #360 [verbose] > │ let v17 : std_string_String = Fable.Core.RustInterop.emitRustExpr v15 │
00:00:19 #361 [verbose] > │ v16 │
00:00:19 #362 [verbose] > │ System.Console.WriteLine v17 │
00:00:19 #363 [verbose] > │ () │
00:00:19 #364 [verbose] > │ method0() │
00:00:19 #365 [verbose] > │ │
00:00:19 #366 [verbose] > │ │
00:00:19 #367 [verbose] > │ .rs: │
00:00:19 #368 [verbose] > │ #![allow(dead_code,)] │
00:00:19 #369 [verbose] > │ #![allow(non_camel_case_types,)] │
00:00:19 #370 [verbose] > │ #![allow(non_snake_case,)] │
00:00:19 #371 [verbose] > │ #![allow(non_upper_case_globals,)] │
00:00:19 #372 [verbose] > │ #![allow(unreachable_code,)] │
00:00:19 #373 [verbose] > │ #![allow(unused_attributes,)] │
00:00:19 #374 [verbose] > │ #![allow(unused_imports,)] │
00:00:19 #375 [verbose] > │ #![allow(unused_macros,)] │
00:00:19 #376 [verbose] > │ #![allow(unused_parens,)] │
00:00:19 #377 [verbose] > │ #![allow(unused_variables,)] │
00:00:19 #378 [verbose] > │ mod module_ccfa04bf { │
00:00:19 #379 [verbose] > │ pub mod Spiral_eval { │
00:00:19 #380 [verbose] > │ use super::*; │
00:00:19 #381 [verbose] > │ use fable_library_rust::Native_::LrcPtr; │
00:00:19 #382 [verbose] > │ use fable_library_rust::Native_::MutCell; │
00:00:19 #383 [verbose] > │ use fable_library_rust::Native_::on_startup; │
00:00:19 #384 [verbose] > │ use fable_library_rust::String_::printfn; │
00:00:19 #385 [verbose] > │ use fable_library_rust::String_::string; │
00:00:19 #386 [verbose] > │ #[derive(Clone, Copy, Debug, PartialEq, PartialOrd, Hash, Eq,)] │
00:00:19 #387 [verbose] > │ pub enum US0 { │
00:00:19 #388 [verbose] > │ US0_0, │
00:00:19 #389 [verbose] > │ US0_1, │
00:00:19 #390 [verbose] > │ US0_2, │
00:00:19 #391 [verbose] > │ US0_3, │
00:00:19 #392 [verbose] > │ US0_4, │
00:00:19 #393 [verbose] > │ US0_5, │
00:00:19 #394 [verbose] > │ US0_6, │
00:00:19 #395 [verbose] > │ US0_7, │
00:00:19 #396 [verbose] > │ US0_8, │
00:00:19 #397 [verbose] > │ US0_9, │
00:00:19 #398 [verbose] > │ US0_10, │
00:00:19 #399 [verbose] > │ US0_11, │
00:00:19 #400 [verbose] > │ } │
00:00:19 #401 [verbose] > │ impl Spiral_eval::US0 { │
00:00:19 #402 [verbose] > │ pub fn get_IsUS0_0(this_: &MutCell<Spiral_eval::US0>, unitArg: │
00:00:19 #403 [verbose] > │ ()) │
00:00:19 #404 [verbose] > │ -> bool { │
00:00:19 #405 [verbose] > │ if unreachable!() { true } else { false } │
00:00:19 #406 [verbose] > │ } │
00:00:19 #407 [verbose] > │ pub fn get_IsUS0_1(this_: &MutCell<Spiral_eval::US0>, unitArg: │
00:00:19 #408 [verbose] > │ ()) │
00:00:19 #409 [verbose] > │ -> bool { │
00:00:19 #410 [verbose] > │ if unreachable!() { true } else { false } │
00:00:19 #411 [verbose] > │ } │
00:00:19 #412 [verbose] > │ pub fn get_IsUS0_2(this_: &MutCell<Spiral_eval::US0>, unitArg: │
00:00:19 #413 [verbose] > │ ()) │
00:00:19 #414 [verbose] > │ -> bool { │
00:00:19 #415 [verbose] > │ if unreachable!() { true } else { false } │
00:00:19 #416 [verbose] > │ } │
00:00:19 #417 [verbose] > │ pub fn get_IsUS0_3(this_: &MutCell<Spiral_eval::US0>, unitArg: │
00:00:19 #418 [verbose] > │ ()) │
00:00:19 #419 [verbose] > │ -> bool { │
00:00:19 #420 [verbose] > │ if unreachable!() { true } else { false } │
00:00:19 #421 [verbose] > │ } │
00:00:19 #422 [verbose] > │ pub fn get_IsUS0_4(this_: &MutCell<Spiral_eval::US0>, unitArg: │
00:00:19 #423 [verbose] > │ ()) │
00:00:19 #424 [verbose] > │ -> bool { │
00:00:19 #425 [verbose] > │ if unreachable!() { true } else { false } │
00:00:19 #426 [verbose] > │ } │
00:00:19 #427 [verbose] > │ pub fn get_IsUS0_5(this_: &MutCell<Spiral_eval::US0>, unitArg: │
00:00:19 #428 [verbose] > │ ()) │
00:00:19 #429 [verbose] > │ -> bool { │
00:00:19 #430 [verbose] > │ if unreachable!() { true } else { false } │
00:00:19 #431 [verbose] > │ } │
00:00:19 #432 [verbose] > │ pub fn get_IsUS0_6(this_: &MutCell<Spiral_eval::US0>, unitArg: │
00:00:19 #433 [verbose] > │ ()) │
00:00:19 #434 [verbose] > │ -> bool { │
00:00:19 #435 [verbose] > │ if unreachable!() { true } else { false } │
00:00:19 #436 [verbose] > │ } │
00:00:19 #437 [verbose] > │ pub fn get_IsUS0_7(this_: &MutCell<Spiral_eval::US0>, unitArg: │
00:00:19 #438 [verbose] > │ ()) │
00:00:19 #439 [verbose] > │ -> bool { │
00:00:19 #440 [verbose] > │ if unreachable!() { true } else { false } │
00:00:19 #441 [verbose] > │ } │
00:00:19 #442 [verbose] > │ pub fn get_IsUS0_8(this_: &MutCell<Spiral_eval::US0>, unitArg: │
00:00:19 #443 [verbose] > │ ()) │
00:00:19 #444 [verbose] > │ -> bool { │
00:00:19 #445 [verbose] > │ if unreachable!() { true } else { false } │
00:00:19 #446 [verbose] > │ } │
00:00:19 #447 [verbose] > │ pub fn get_IsUS0_9(this_: &MutCell<Spiral_eval::US0>, unitArg: │
00:00:19 #448 [verbose] > │ ()) │
00:00:19 #449 [verbose] > │ -> bool { │
00:00:19 #450 [verbose] > │ if unreachable!() { true } else { false } │
00:00:19 #451 [verbose] > │ } │
00:00:19 #452 [verbose] > │ pub fn get_IsUS0_10(this_: &MutCell<Spiral_eval::US0>, │
00:00:19 #453 [verbose] > │ unitArg: ()) -> bool { │
00:00:19 #454 [verbose] > │ if unreachable!() { true } else { false } │
00:00:19 #455 [verbose] > │ } │
00:00:19 #456 [verbose] > │ pub fn get_IsUS0_11(this_: &MutCell<Spiral_eval::US0>, │
00:00:19 #457 [verbose] > │ unitArg: ()) -> bool { │
00:00:19 #458 [verbose] > │ if unreachable!() { true } else { false } │
00:00:19 #459 [verbose] > │ } │
00:00:19 #460 [verbose] > │ } │
00:00:19 #461 [verbose] > │ impl core::fmt::Display for Spiral_eval::US0 { │
00:00:19 #462 [verbose] > │ fn fmt(&self, f: &mut core::fmt::Formatter) -> core::fmt::Result │
00:00:19 #463 [verbose] > │ { │
00:00:19 #464 [verbose] > │ write!(f, "{}", core::any::type_name::<Self>()) │
00:00:19 #465 [verbose] > │ } │
00:00:19 #466 [verbose] > │ } │
00:00:19 #467 [verbose] > │ #[derive(Clone, Copy, Debug, PartialEq, PartialOrd, Hash, Eq,)] │
00:00:19 #468 [verbose] > │ pub enum US2 { US2_0, US2_1, } │
00:00:19 #469 [verbose] > │ impl Spiral_eval::US2 { │
00:00:19 #470 [verbose] > │ pub fn get_IsUS2_0(this_: &MutCell<Spiral_eval::US2>, unitArg: │
00:00:19 #471 [verbose] > │ ()) │
00:00:19 #472 [verbose] > │ -> bool { │
00:00:19 #473 [verbose] > │ if unreachable!() { true } else { false } │
00:00:19 #474 [verbose] > │ } │
00:00:19 #475 [verbose] > │ pub fn get_IsUS2_1(this_: &MutCell<Spiral_eval::US2>, unitArg: │
00:00:19 #476 [verbose] > │ ()) │
00:00:19 #477 [verbose] > │ -> bool { │
00:00:19 #478 [verbose] > │ if unreachable!() { true } else { false } │
00:00:19 #479 [verbose] > │ } │
00:00:19 #480 [verbose] > │ } │
00:00:19 #481 [verbose] > │ impl core::fmt::Display for Spiral_eval::US2 { │
00:00:19 #482 [verbose] > │ fn fmt(&self, f: &mut core::fmt::Formatter) -> core::fmt::Result │
00:00:19 #483 [verbose] > │ { │
00:00:19 #484 [verbose] > │ write!(f, "{}", core::any::type_name::<Self>()) │
00:00:19 #485 [verbose] > │ } │
00:00:19 #486 [verbose] > │ } │
00:00:19 #487 [verbose] > │ #[derive(Clone, Copy, Debug, PartialEq, PartialOrd, Hash, Eq,)] │
00:00:19 #488 [verbose] > │ pub enum US1 { US1_0(Spiral_eval::US2), } │
00:00:19 #489 [verbose] > │ impl Spiral_eval::US1 { │
00:00:19 #490 [verbose] > │ pub fn get_IsUS1_0(this_: &MutCell<Spiral_eval::US1>, unitArg: │
00:00:19 #491 [verbose] > │ ()) │
00:00:19 #492 [verbose] > │ -> bool { │
00:00:19 #493 [verbose] > │ if unreachable!() { true } else { false } │
00:00:19 #494 [verbose] > │ } │
00:00:19 #495 [verbose] > │ } │
00:00:19 #496 [verbose] > │ impl core::fmt::Display for Spiral_eval::US1 { │
00:00:19 #497 [verbose] > │ fn fmt(&self, f: &mut core::fmt::Formatter) -> core::fmt::Result │
00:00:19 #498 [verbose] > │ { │
00:00:19 #499 [verbose] > │ write!(f, "{}", core::any::type_name::<Self>()) │
00:00:19 #500 [verbose] > │ } │
00:00:19 #501 [verbose] > │ } │
00:00:19 #502 [verbose] > │ #[derive(Clone, Debug, PartialEq, PartialOrd, Hash, Eq,)] │
00:00:19 #503 [verbose] > │ pub enum UH0 { │
00:00:19 #504 [verbose] > │ UH0_0, │
00:00:19 #505 [verbose] > │ UH0_1(i32, Spiral_eval::US0, i32, Spiral_eval::US1, │
00:00:19 #506 [verbose] > │ LrcPtr<Spiral_eval::UH0>), │
00:00:19 #507 [verbose] > │ } │
00:00:19 #508 [verbose] > │ impl Spiral_eval::UH0 { │
00:00:19 #509 [verbose] > │ pub fn get_IsUH0_0(this_: LrcPtr<Spiral_eval::UH0>, unitArg: ()) │
00:00:19 #510 [verbose] > │ -> bool { │
00:00:19 #511 [verbose] > │ if let Spiral_eval::UH0::UH0_0 = this_.as_ref() { │
00:00:19 #512 [verbose] > │ true │
00:00:19 #513 [verbose] > │ } else { false } │
00:00:19 #514 [verbose] > │ } │
00:00:19 #515 [verbose] > │ pub fn get_IsUH0_1(this_: LrcPtr<Spiral_eval::UH0>, unitArg: ()) │
00:00:19 #516 [verbose] > │ -> bool { │
00:00:19 #517 [verbose] > │ if let Spiral_eval::UH0::UH0_1(this__1_0, this__1_1, │
00:00:19 #518 [verbose] > │ this__1_2, this__1_3, │
00:00:19 #519 [verbose] > │ this__1_4) = this_.as_ref() { │
00:00:19 #520 [verbose] > │ true │
00:00:19 #521 [verbose] > │ } else { false } │
00:00:19 #522 [verbose] > │ } │
00:00:19 #523 [verbose] > │ } │
00:00:19 #524 [verbose] > │ impl core::fmt::Display for Spiral_eval::UH0 { │
00:00:19 #525 [verbose] > │ fn fmt(&self, f: &mut core::fmt::Formatter) -> core::fmt::Result │
00:00:19 #526 [verbose] > │ { │
00:00:19 #527 [verbose] > │ write!(f, "{}", core::any::type_name::<Self>()) │
00:00:19 #528 [verbose] > │ } │
00:00:19 #529 [verbose] > │ } │
00:00:19 #530 [verbose] > │ #[derive(Clone, Copy, Debug, PartialEq, PartialOrd, Hash, Eq,)] │
00:00:19 #531 [verbose] > │ pub enum US3 { US3_0, US3_1, } │
00:00:19 #532 [verbose] > │ impl Spiral_eval::US3 { │
00:00:19 #533 [verbose] > │ pub fn get_IsUS3_0(this_: &MutCell<Spiral_eval::US3>, unitArg: │
00:00:19 #534 [verbose] > │ ()) │
00:00:19 #535 [verbose] > │ -> bool { │
00:00:19 #536 [verbose] > │ if unreachable!() { true } else { false } │
00:00:19 #537 [verbose] > │ } │
00:00:19 #538 [verbose] > │ pub fn get_IsUS3_1(this_: &MutCell<Spiral_eval::US3>, unitArg: │
00:00:19 #539 [verbose] > │ ()) │
00:00:19 #540 [verbose] > │ -> bool { │
00:00:20 #541 [verbose] > │ if unreachable!() { true } else { false } │
00:00:20 #542 [verbose] > │ } │
00:00:20 #543 [verbose] > │ } │
00:00:20 #544 [verbose] > │ impl core::fmt::Display for Spiral_eval::US3 { │
00:00:20 #545 [verbose] > │ fn fmt(&self, f: &mut core::fmt::Formatter) -> core::fmt::Result │
00:00:20 #546 [verbose] > │ { │
00:00:20 #547 [verbose] > │ write!(f, "{}", core::any::type_name::<Self>()) │
00:00:20 #548 [verbose] > │ } │
00:00:20 #549 [verbose] > │ } │
00:00:20 #550 [verbose] > │ #[derive(Clone, Copy, Debug, PartialEq, PartialOrd, Hash, Eq,)] │
00:00:20 #551 [verbose] > │ pub enum US6 { US6_0(i32), US6_1(i32), US6_2(i32), } │
00:00:20 #552 [verbose] > │ impl Spiral_eval::US6 { │
00:00:20 #553 [verbose] > │ pub fn get_IsUS6_0(this_: &MutCell<Spiral_eval::US6>, unitArg: │
00:00:20 #554 [verbose] > │ ()) │
00:00:20 #555 [verbose] > │ -> bool { │
00:00:20 #556 [verbose] > │ if unreachable!() { true } else { false } │
00:00:20 #557 [verbose] > │ } │
00:00:20 #558 [verbose] > │ pub fn get_IsUS6_1(this_: &MutCell<Spiral_eval::US6>, unitArg: │
00:00:20 #559 [verbose] > │ ()) │
00:00:20 #560 [verbose] > │ -> bool { │
00:00:20 #561 [verbose] > │ if unreachable!() { true } else { false } │
00:00:20 #562 [verbose] > │ } │
00:00:20 #563 [verbose] > │ pub fn get_IsUS6_2(this_: &MutCell<Spiral_eval::US6>, unitArg: │
00:00:20 #564 [verbose] > │ ()) │
00:00:20 #565 [verbose] > │ -> bool { │
00:00:20 #566 [verbose] > │ if unreachable!() { true } else { false } │
00:00:20 #567 [verbose] > │ } │
00:00:20 #568 [verbose] > │ } │
00:00:20 #569 [verbose] > │ impl core::fmt::Display for Spiral_eval::US6 { │
00:00:20 #570 [verbose] > │ fn fmt(&self, f: &mut core::fmt::Formatter) -> core::fmt::Result │
00:00:20 #571 [verbose] > │ { │
00:00:20 #572 [verbose] > │ write!(f, "{}", core::any::type_name::<Self>()) │
00:00:20 #573 [verbose] > │ } │
00:00:20 #574 [verbose] > │ } │
00:00:20 #575 [verbose] > │ #[derive(Clone, Copy, Debug, PartialEq, PartialOrd, Hash, Eq,)] │
00:00:20 #576 [verbose] > │ pub enum US8 { US8_0, US8_1, US8_2, US8_3, US8_4, US8_5, US8_6, } │
00:00:20 #577 [verbose] > │ impl Spiral_eval::US8 { │
00:00:20 #578 [verbose] > │ pub fn get_IsUS8_0(this_: &MutCell<Spiral_eval::US8>, unitArg: │
00:00:20 #579 [verbose] > │ ()) │
00:00:20 #580 [verbose] > │ -> bool { │
00:00:20 #581 [verbose] > │ if unreachable!() { true } else { false } │
00:00:20 #582 [verbose] > │ } │
00:00:20 #583 [verbose] > │ pub fn get_IsUS8_1(this_: &MutCell<Spiral_eval::US8>, unitArg: │
00:00:20 #584 [verbose] > │ ()) │
00:00:20 #585 [verbose] > │ -> bool { │
00:00:20 #586 [verbose] > │ if unreachable!() { true } else { false } │
00:00:20 #587 [verbose] > │ } │
00:00:20 #588 [verbose] > │ pub fn get_IsUS8_2(this_: &MutCell<Spiral_eval::US8>, unitArg: │
00:00:20 #589 [verbose] > │ ()) │
00:00:20 #590 [verbose] > │ -> bool { │
00:00:20 #591 [verbose] > │ if unreachable!() { true } else { false } │
00:00:20 #592 [verbose] > │ } │
00:00:20 #593 [verbose] > │ pub fn get_IsUS8_3(this_: &MutCell<Spiral_eval::US8>, unitArg: │
00:00:20 #594 [verbose] > │ ()) │
00:00:20 #595 [verbose] > │ -> bool { │
00:00:20 #596 [verbose] > │ if unreachable!() { true } else { false } │
00:00:20 #597 [verbose] > │ } │
00:00:20 #598 [verbose] > │ pub fn get_IsUS8_4(this_: &MutCell<Spiral_eval::US8>, unitArg: │
00:00:20 #599 [verbose] > │ ()) │
00:00:20 #600 [verbose] > │ -> bool { │
00:00:20 #601 [verbose] > │ if unreachable!() { true } else { false } │
00:00:20 #602 [verbose] > │ } │
00:00:20 #603 [verbose] > │ pub fn get_IsUS8_5(this_: &MutCell<Spiral_eval::US8>, unitArg: │
00:00:20 #604 [verbose] > │ ()) │
00:00:20 #605 [verbose] > │ -> bool { │
00:00:20 #606 [verbose] > │ if unreachable!() { true } else { false } │
00:00:20 #607 [verbose] > │ } │
00:00:20 #608 [verbose] > │ pub fn get_IsUS8_6(this_: &MutCell<Spiral_eval::US8>, unitArg: │
00:00:20 #609 [verbose] > │ ()) │
00:00:20 #610 [verbose] > │ -> bool { │
00:00:20 #611 [verbose] > │ if unreachable!() { true } else { false } │
00:00:20 #612 [verbose] > │ } │
00:00:20 #613 [verbose] > │ } │
00:00:20 #614 [verbose] > │ impl core::fmt::Display for Spiral_eval::US8 { │
00:00:20 #615 [verbose] > │ fn fmt(&self, f: &mut core::fmt::Formatter) -> core::fmt::Result │
00:00:20 #616 [verbose] > │ { │
00:00:20 #617 [verbose] > │ write!(f, "{}", core::any::type_name::<Self>()) │
00:00:20 #618 [verbose] > │ } │
00:00:20 #619 [verbose] > │ } │
00:00:20 #620 [verbose] > │ #[derive(Clone, Copy, Debug, PartialEq, PartialOrd, Hash, Eq,)] │
00:00:20 #621 [verbose] > │ pub enum US7 { │
00:00:20 #622 [verbose] > │ US7_0(Spiral_eval::US8), │
00:00:20 #623 [verbose] > │ US7_1(i32), │
00:00:20 #624 [verbose] > │ US7_2(i32, Spiral_eval::US0), │
00:00:20 #625 [verbose] > │ } │
00:00:20 #626 [verbose] > │ impl Spiral_eval::US7 { │
00:00:20 #627 [verbose] > │ pub fn get_IsUS7_0(this_: &MutCell<Spiral_eval::US7>, unitArg: │
00:00:20 #628 [verbose] > │ ()) │
00:00:20 #629 [verbose] > │ -> bool { │
00:00:20 #630 [verbose] > │ if unreachable!() { true } else { false } │
00:00:20 #631 [verbose] > │ } │
00:00:20 #632 [verbose] > │ pub fn get_IsUS7_1(this_: &MutCell<Spiral_eval::US7>, unitArg: │
00:00:20 #633 [verbose] > │ ()) │
00:00:20 #634 [verbose] > │ -> bool { │
00:00:20 #635 [verbose] > │ if unreachable!() { true } else { false } │
00:00:20 #636 [verbose] > │ } │
00:00:20 #637 [verbose] > │ pub fn get_IsUS7_2(this_: &MutCell<Spiral_eval::US7>, unitArg: │
00:00:20 #638 [verbose] > │ ()) │
00:00:20 #639 [verbose] > │ -> bool { │
00:00:20 #640 [verbose] > │ if unreachable!() { true } else { false } │
00:00:20 #641 [verbose] > │ } │
00:00:20 #642 [verbose] > │ } │
00:00:20 #643 [verbose] > │ impl core::fmt::Display for Spiral_eval::US7 { │
00:00:20 #644 [verbose] > │ fn fmt(&self, f: &mut core::fmt::Formatter) -> core::fmt::Result │
00:00:20 #645 [verbose] > │ { │
00:00:20 #646 [verbose] > │ write!(f, "{}", core::any::type_name::<Self>()) │
00:00:20 #647 [verbose] > │ } │
00:00:20 #648 [verbose] > │ } │
00:00:20 #649 [verbose] > │ #[derive(Clone, Debug, PartialEq, PartialOrd, Hash, Eq,)] │
00:00:20 #650 [verbose] > │ pub enum UH1 { │
00:00:20 #651 [verbose] > │ UH1_0, │
00:00:20 #652 [verbose] > │ UH1_1(Spiral_eval::US7, LrcPtr<Spiral_eval::UH1>), │
00:00:20 #653 [verbose] > │ } │
00:00:20 #654 [verbose] > │ impl Spiral_eval::UH1 { │
00:00:20 #655 [verbose] > │ pub fn get_IsUH1_0(this_: LrcPtr<Spiral_eval::UH1>, unitArg: ()) │
00:00:20 #656 [verbose] > │ -> bool { │
00:00:20 #657 [verbose] > │ if let Spiral_eval::UH1::UH1_0 = this_.as_ref() { │
00:00:20 #658 [verbose] > │ true │
00:00:20 #659 [verbose] > │ } else { false } │
00:00:20 #660 [verbose] > │ } │
00:00:20 #661 [verbose] > │ pub fn get_IsUH1_1(this_: LrcPtr<Spiral_eval::UH1>, unitArg: ()) │
00:00:20 #662 [verbose] > │ -> bool { │
00:00:20 #663 [verbose] > │ if let Spiral_eval::UH1::UH1_1(this__1_0, this__1_1) = │
00:00:20 #664 [verbose] > │ this_.as_ref() { │
00:00:20 #665 [verbose] > │ true │
00:00:20 #666 [verbose] > │ } else { false } │
00:00:20 #667 [verbose] > │ } │
00:00:20 #668 [verbose] > │ } │
00:00:20 #669 [verbose] > │ impl core::fmt::Display for Spiral_eval::UH1 { │
00:00:20 #670 [verbose] > │ fn fmt(&self, f: &mut core::fmt::Formatter) -> core::fmt::Result │
00:00:20 #671 [verbose] > │ { │
00:00:20 #672 [verbose] > │ write!(f, "{}", core::any::type_name::<Self>()) │
00:00:20 #673 [verbose] > │ } │
00:00:20 #674 [verbose] > │ } │
00:00:20 #675 [verbose] > │ #[derive(Clone, Debug, PartialEq, PartialOrd, Hash, Eq,)] │
00:00:20 #676 [verbose] > │ pub enum US5 { │
00:00:20 #677 [verbose] > │ US5_0(Spiral_eval::US6), │
00:00:20 #678 [verbose] > │ US5_1(LrcPtr<Spiral_eval::UH1>), │
00:00:20 #679 [verbose] > │ } │
00:00:20 #680 [verbose] > │ impl Spiral_eval::US5 { │
00:00:20 #681 [verbose] > │ pub fn get_IsUS5_0(this_: &MutCell<Spiral_eval::US5>, unitArg: │
00:00:20 #682 [verbose] > │ ()) │
00:00:20 #683 [verbose] > │ -> bool { │
00:00:20 #684 [verbose] > │ if unreachable!() { true } else { false } │
00:00:20 #685 [verbose] > │ } │
00:00:20 #686 [verbose] > │ pub fn get_IsUS5_1(this_: &MutCell<Spiral_eval::US5>, unitArg: │
00:00:20 #687 [verbose] > │ ()) │
00:00:20 #688 [verbose] > │ -> bool { │
00:00:20 #689 [verbose] > │ if unreachable!() { true } else { false } │
00:00:20 #690 [verbose] > │ } │
00:00:20 #691 [verbose] > │ } │
00:00:20 #692 [verbose] > │ impl core::fmt::Display for Spiral_eval::US5 { │
00:00:20 #693 [verbose] > │ fn fmt(&self, f: &mut core::fmt::Formatter) -> core::fmt::Result │
00:00:20 #694 [verbose] > │ { │
00:00:20 #695 [verbose] > │ write!(f, "{}", core::any::type_name::<Self>()) │
00:00:20 #696 [verbose] > │ } │
00:00:20 #697 [verbose] > │ } │
00:00:20 #698 [verbose] > │ #[derive(Clone, Debug, PartialEq, PartialOrd, Hash, Eq,)] │
00:00:20 #699 [verbose] > │ pub enum US4 { US4_0(Spiral_eval::US3), US4_1(Spiral_eval::US5), } │
00:00:20 #700 [verbose] > │ impl Spiral_eval::US4 { │
00:00:20 #701 [verbose] > │ pub fn get_IsUS4_0(this_: &MutCell<Spiral_eval::US4>, unitArg: │
00:00:20 #702 [verbose] > │ ()) │
00:00:20 #703 [verbose] > │ -> bool { │
00:00:20 #704 [verbose] > │ if unreachable!() { true } else { false } │
00:00:20 #705 [verbose] > │ } │
00:00:20 #706 [verbose] > │ pub fn get_IsUS4_1(this_: &MutCell<Spiral_eval::US4>, unitArg: │
00:00:20 #707 [verbose] > │ ()) │
00:00:20 #708 [verbose] > │ -> bool { │
00:00:20 #709 [verbose] > │ if unreachable!() { true } else { false } │
00:00:20 #710 [verbose] > │ } │
00:00:20 #711 [verbose] > │ } │
00:00:20 #712 [verbose] > │ impl core::fmt::Display for Spiral_eval::US4 { │
00:00:20 #713 [verbose] > │ fn fmt(&self, f: &mut core::fmt::Formatter) -> core::fmt::Result │
00:00:20 #714 [verbose] > │ { │
00:00:20 #715 [verbose] > │ write!(f, "{}", core::any::type_name::<Self>()) │
00:00:20 #716 [verbose] > │ } │
00:00:20 #717 [verbose] > │ } │
00:00:20 #718 [verbose] > │ #[derive(Clone, Debug, PartialEq, PartialOrd, Hash, Eq,)] │
00:00:20 #719 [verbose] > │ pub enum UH2 { │
00:00:20 #720 [verbose] > │ UH2_0, │
00:00:20 #721 [verbose] > │ UH2_1(LrcPtr<Spiral_eval::UH0>, string, Spiral_eval::US4, │
00:00:20 #722 [verbose] > │ LrcPtr<Spiral_eval::UH2>), │
00:00:20 #723 [verbose] > │ } │
00:00:20 #724 [verbose] > │ impl Spiral_eval::UH2 { │
00:00:20 #725 [verbose] > │ pub fn get_IsUH2_0(this_: LrcPtr<Spiral_eval::UH2>, unitArg: ()) │
00:00:20 #726 [verbose] > │ -> bool { │
00:00:20 #727 [verbose] > │ if let Spiral_eval::UH2::UH2_0 = this_.as_ref() { │
00:00:20 #728 [verbose] > │ true │
00:00:20 #729 [verbose] > │ } else { false } │
00:00:20 #730 [verbose] > │ } │
00:00:20 #731 [verbose] > │ pub fn get_IsUH2_1(this_: LrcPtr<Spiral_eval::UH2>, unitArg: ()) │
00:00:20 #732 [verbose] > │ -> bool { │
00:00:20 #733 [verbose] > │ if let Spiral_eval::UH2::UH2_1(this__1_0, this__1_1, │
00:00:20 #734 [verbose] > │ this__1_2, this__1_3) = │
00:00:20 #735 [verbose] > │ this_.as_ref() { │
00:00:20 #736 [verbose] > │ true │
00:00:20 #737 [verbose] > │ } else { false } │
00:00:20 #738 [verbose] > │ } │
00:00:20 #739 [verbose] > │ } │
00:00:20 #740 [verbose] > │ impl core::fmt::Display for Spiral_eval::UH2 { │
00:00:20 #741 [verbose] > │ fn fmt(&self, f: &mut core::fmt::Formatter) -> core::fmt::Result │
00:00:20 #742 [verbose] > │ { │
00:00:20 #743 [verbose] > │ write!(f, "{}", core::any::type_name::<Self>()) │
00:00:20 #744 [verbose] > │ } │
00:00:20 #745 [verbose] > │ } │
00:00:20 #746 [verbose] > │ pub fn method0() { │
00:00:20 #747 [verbose] > │ let v17: std::string::String = │
00:00:20 #748 [verbose] > │ format!("{:#?}", │
00:00:20 #749 [verbose] > │ LrcPtr::new(Spiral_eval::UH2::UH2_1(LrcPtr::new(Spiral_eval::UH0::UH0_0), │
00:00:20 #750 [verbose] > │ │
00:00:20 #751 [verbose] > │ string("01"), │
00:00:20 #752 [verbose] > │ │
00:00:20 #753 [verbose] > │ Spiral_eval::US4::US4_0(Spiral_eval::US3::US3_0), │
00:00:20 #754 [verbose] > │ │
00:00:20 #755 [verbose] > │ LrcPtr::new(Spiral_eval::UH2::UH2_1(LrcPtr::new(Spiral_eval::UH0::UH0_0), │
00:00:20 #756 [verbose] > │ │
00:00:20 #757 [verbose] > │ string("02"), │
00:00:20 #758 [verbose] > │ │
00:00:20 #759 [verbose] > │ Spiral_eval::US4::US4_0(Spiral_eval::US3::US3_0), │
00:00:20 #760 [verbose] > │ │
00:00:20 #761 [verbose] > │ LrcPtr::new(Spiral_eval::UH2::UH2_1(LrcPtr::new(Spiral_eval::UH0::UH0_0), │
00:00:20 #762 [verbose] > │ │
00:00:20 #763 [verbose] > │ string("03"), │
00:00:20 #764 [verbose] > │ │
00:00:20 #765 [verbose] > │ Spiral_eval::US4::US4_0(Spiral_eval::US3::US3_0), │
00:00:20 #766 [verbose] > │ │
00:00:20 #767 [verbose] > │ LrcPtr::new(Spiral_eval::UH2::UH2_0)))))))); │
00:00:20 #768 [verbose] > │ printfn!("{0}", v17); │
00:00:20 #769 [verbose] > │ () │
00:00:20 #770 [verbose] > │ } │
00:00:20 #771 [verbose] > │ on_startup!(Spiral_eval::method0()); │
00:00:20 #772 [verbose] > │ } │
00:00:20 #773 [verbose] > │ } │
00:00:20 #774 [verbose] > │ pub use module_ccfa04bf::*; │
00:00:20 #775 [verbose] > │ │
00:00:20 #776 [verbose] > │ │
00:00:20 #777 [verbose] > ╰──────────────────────────────────────────────────────────────────────────────╯
00:00:20 #778 [verbose] >
00:00:20 #779 [verbose] > ── spiral ──────────────────────────────────────────────────────────────────────
00:00:20 #780 [verbose] > // // test
00:00:20 #781 [verbose] > // // rust=
00:00:20 #782 [verbose] >
00:00:20 #783 [verbose] > get_tasks ()
00:00:20 #784 [verbose] > |> listm'.try_item 0i32
00:00:20 #785 [verbose] > |> fun (Some task) => task.task.name
00:00:20 #786 [verbose] > |> _assert_eq (task_name "01")
00:00:20 #787 [verbose] > Building c:\home\git\polyglot\target\polyglot\spiral_eval\packages\fa99748b91ba258228d294de19a9333ebc1f94ecadfe39e11a75e012e43c8bdf\main.spi
00:00:24 #788 [verbose] >
00:00:24 #789 [verbose] > ╭─[ 4.69s - return value ]─────────────────────────────────────────────────────╮
00:00:24 #790 [verbose] > │ .rs output: │
00:00:24 #791 [verbose] > │ "01" │
00:00:24 #792 [verbose] > │ │
00:00:24 #793 [verbose] > │ │
00:00:24 #794 [verbose] > │ │
00:00:24 #795 [verbose] > ╰──────────────────────────────────────────────────────────────────────────────╯
00:00:24 #796 [verbose] >
00:00:24 #797 [verbose] > ╭─[ 4.70s - stdout ]───────────────────────────────────────────────────────────╮
00:00:24 #798 [verbose] > │ .fsx: │
00:00:24 #799 [verbose] > │ let rec method0 () : unit = │
00:00:24 #800 [verbose] > │ let v0 : string = "01" │
00:00:24 #801 [verbose] > │ let v1 : string = $"%A{v0}" │
00:00:24 #802 [verbose] > │ System.Console.WriteLine v1 │
00:00:24 #803 [verbose] > │ let v2 : string = $"__expect / actual: %A{v0} / expected: %A{v0}" │
00:00:24 #804 [verbose] > │ () │
00:00:24 #805 [verbose] > │ method0() │
00:00:24 #806 [verbose] > │ │
00:00:24 #807 [verbose] > │ │
00:00:24 #808 [verbose] > │ .rs: │
00:00:24 #809 [verbose] > │ #![allow(dead_code,)] │
00:00:24 #810 [verbose] > │ #![allow(non_camel_case_types,)] │
00:00:24 #811 [verbose] > │ #![allow(non_snake_case,)] │
00:00:24 #812 [verbose] > │ #![allow(non_upper_case_globals,)] │
00:00:24 #813 [verbose] > │ #![allow(unreachable_code,)] │
00:00:24 #814 [verbose] > │ #![allow(unused_attributes,)] │
00:00:24 #815 [verbose] > │ #![allow(unused_imports,)] │
00:00:24 #816 [verbose] > │ #![allow(unused_macros,)] │
00:00:24 #817 [verbose] > │ #![allow(unused_parens,)] │
00:00:24 #818 [verbose] > │ #![allow(unused_variables,)] │
00:00:24 #819 [verbose] > │ mod module_ccfa04bf { │
00:00:24 #820 [verbose] > │ pub mod Spiral_eval { │
00:00:24 #821 [verbose] > │ use super::*; │
00:00:24 #822 [verbose] > │ use fable_library_rust::Native_::on_startup; │
00:00:24 #823 [verbose] > │ use fable_library_rust::String_::printfn; │
00:00:24 #824 [verbose] > │ use fable_library_rust::String_::sprintf; │
00:00:24 #825 [verbose] > │ use fable_library_rust::String_::string; │
00:00:24 #826 [verbose] > │ pub fn method0() { │
00:00:24 #827 [verbose] > │ let v1: string = sprintf!("{:?}", string("01")); │
00:00:24 #828 [verbose] > │ printfn!("{0}", v1); │
00:00:24 #829 [verbose] > │ { │
00:00:24 #830 [verbose] > │ let v2: string = │
00:00:24 #831 [verbose] > │ sprintf!("__expect / actual: {:?} / expected: {:?}", │
00:00:24 #832 [verbose] > │ string("01"), string("01")); │
00:00:24 #833 [verbose] > │ () │
00:00:24 #834 [verbose] > │ } │
00:00:24 #835 [verbose] > │ } │
00:00:24 #836 [verbose] > │ on_startup!(Spiral_eval::method0()); │
00:00:24 #837 [verbose] > │ } │
00:00:24 #838 [verbose] > │ } │
00:00:24 #839 [verbose] > │ pub use module_ccfa04bf::*; │
00:00:24 #840 [verbose] > │ │
00:00:24 #841 [verbose] > │ │
00:00:24 #842 [verbose] > ╰──────────────────────────────────────────────────────────────────────────────╯
00:00:24 #843 [verbose] >
00:00:24 #844 [verbose] > ── spiral ──────────────────────────────────────────────────────────────────────
00:00:24 #845 [verbose] > // // test
00:00:24 #846 [verbose] >
00:00:24 #847 [verbose] > ()
00:00:25 #848 [verbose] > Building c:\home\git\polyglot\target\polyglot\spiral_eval\packages\c4fe50933042f3965823e7cd77411a990c23f38768e5bbe400b5e849103d94b9\main.spi
00:00:25 #849 [verbose] >
00:00:25 #850 [verbose] > ╭─[ 467.06ms - stdout ]────────────────────────────────────────────────────────╮
00:00:25 #851 [verbose] > │ let rec method0 () : unit = │
00:00:25 #852 [verbose] > │ () │
00:00:25 #853 [verbose] > │ method0() │
00:00:25 #854 [verbose] > │ │
00:00:25 #855 [verbose] > │ │
00:00:25 #856 [verbose] > ╰──────────────────────────────────────────────────────────────────────────────╯
00:00:27 #857 [verbose] > [NbConvertApp] Converting notebook Tasks.dib.ipynb to html
00:00:27 #858 [verbose] > C:\Users\i574n\scoop\apps\python\current\Lib\site-packages\nbformat\__init__.py:93: MissingIDFieldWarning: Code cell is missing an id field, this will become a hard error in future nbformat versions. You may want to use `normalize()` on your notebooks before validations (available since nbformat 5.1.4). Previous versions of nbformat are fixing this issue transparently, and will stop doing so in the future.
00:00:27 #859 [verbose] > validate(nb)
00:00:27 #860 [verbose] > C:\Users\i574n\scoop\apps\python\current\Lib\site-packages\nbconvert\filters\highlight.py:71: UserWarning: IPython3 lexer unavailable, falling back on Python 3
00:00:27 #861 [verbose] > return _pygments_highlight(
00:00:27 #862 [verbose] > [NbConvertApp] Writing 313977 bytes to Tasks.dib.html
00:00:28 #863 [debug] execute_with_options_async / exit_code: 0 / output.Length: 56955
00:00:28 #6 [debug] main / executeCommand / exitCode: 0
00:00:30 #7 [debug] runWithTimeoutChildAsync / timeout: 2000
00:00:00 #1 [debug] writeDibCode / output: Spi / path: Tasks.dib
00:00:00 #2 [debug] parseDibCode / output: Spi / file: Tasks.dib
In [ ]:
{ . "$ScriptDir/../apps/chat/build.ps1" } | Invoke-Block
Finished `release` profile [optimized] target(s) in 1.59s Updating crates.io index Downloading crates ... Downloaded either v1.11.0 Compiling proc-macro2 v1.0.79 Compiling unicode-ident v1.0.12 Compiling libc v0.2.153 Compiling cfg-if v1.0.0 Compiling version_check v0.9.4 Compiling autocfg v1.2.0 Compiling typenum v1.17.0 Compiling serde v1.0.197 Compiling syn v1.0.109 Compiling once_cell v1.19.0 Compiling generic-array v0.14.7 Compiling pin-project-lite v0.2.14 Compiling pkg-config v0.3.30 Compiling smallvec v1.13.2 Compiling log v0.4.21 Compiling lock_api v0.4.11 Compiling parking_lot_core v0.9.9 Compiling itoa v1.0.11 Compiling scopeguard v1.2.0 Compiling memchr v2.7.2 Compiling quote v1.0.36 Compiling syn v2.0.58 Compiling anyhow v1.0.82 Compiling rustix v0.38.32 Compiling getrandom v0.2.14 Compiling jobserver v0.1.30 Compiling cc v1.0.92 Compiling bytes v1.6.0 Compiling parking_lot v0.12.1 Compiling subtle v2.5.0 Compiling signal-hook-registry v1.4.1 Compiling socket2 v0.5.6 Compiling mio v0.8.11 Compiling num_cpus v1.16.0 Compiling futures-core v0.3.30 Compiling rand_core v0.6.4 Compiling tracing-core v0.1.32 Compiling thiserror v1.0.58 Compiling hashbrown v0.14.3 Compiling equivalent v1.0.1 Compiling futures-sink v0.3.30 Compiling slab v0.4.9 Compiling proc-macro-error-attr v1.0.4 Compiling bitflags v2.5.0 Compiling linux-raw-sys v0.4.13 Compiling ppv-lite86 v0.2.17 Compiling ryu v1.0.17 Compiling serde_derive v1.0.197 Compiling tokio-macros v2.2.0 Compiling thiserror-impl v1.0.58 Compiling tracing-attributes v0.1.27 Compiling indexmap v2.2.6 Compiling futures-channel v0.3.30 Compiling proc-macro-error v1.0.4 Compiling cpufeatures v0.2.12 Compiling pin-utils v0.1.0 Compiling futures-io v0.3.30 Compiling futures-task v0.3.30 Compiling futures-util v0.3.30 Compiling zstd-sys v2.0.10+zstd.1.5.6 Compiling serde_json v1.0.115 Compiling spin v0.5.2 Compiling either v1.11.0 Compiling crypto-common v0.1.6 Compiling block-buffer v0.10.4 Compiling crc32fast v1.4.0 Compiling digest v0.10.7 Compiling lazy_static v1.4.0 Compiling ring v0.17.8 Compiling rand_chacha v0.3.1 Compiling percent-encoding v2.3.1 Compiling rand v0.8.5 Compiling sha2 v0.10.8 Compiling num-traits v0.2.18 Compiling tokio v1.37.0 Compiling winnow v0.5.40 Compiling toml_datetime v0.6.5 Compiling byteorder v1.5.0 Compiling home v0.5.9 Compiling toml_edit v0.21.1 Compiling itertools v0.10.5 Compiling zstd-safe v5.0.2+zstd.1.5.2 Compiling base64 v0.21.7 Compiling cfg_aliases v0.1.1 Compiling fnv v1.0.7 Compiling borsh v1.4.0 Compiling prost-derive v0.9.0 Compiling proc-macro-crate v3.1.0 Compiling syn_derive v0.1.8 Compiling pin-project-internal v1.1.5 Compiling bzip2-sys v0.1.11+1.0.8 Compiling strsim v0.10.0 Compiling ident_case v1.0.1 Compiling tracing v0.1.40 Compiling crossbeam-utils v0.8.19 Compiling tokio-util v0.7.10 Compiling semver v1.0.22 Compiling heck v0.4.1 Compiling darling_core v0.20.8 Compiling http v0.2.12 Compiling aho-corasick v1.1.3 Compiling regex-syntax v0.8.3 Compiling rustversion v1.0.15 Compiling httparse v1.8.0 Compiling regex-automata v0.4.6 Compiling darling_macro v0.20.8 Compiling which v4.4.2 Compiling num-bigint v0.3.3 Compiling indexmap v1.9.3 Compiling crunchy v0.2.2 Compiling getrandom v0.1.16 Compiling tower-service v0.3.2 Compiling rustls v0.22.3 Compiling try-lock v0.2.5 Compiling want v0.3.1 Compiling prost-build v0.9.0 Compiling crossbeam-channel v0.5.12 Compiling regex v1.10.4 Compiling borsh-derive v1.4.0 Compiling rustc_version v0.4.0 Compiling pin-project v1.1.5 Compiling hex v0.4.3 Compiling h2 v0.3.26 Compiling http-body v0.4.6 Compiling num-integer v0.1.46 Compiling num-rational v0.3.2 Compiling fastrand v2.0.2 Compiling httpdate v1.0.3 Compiling platforms v3.4.0 Compiling vcpkg v0.2.15 Compiling hashbrown v0.12.3 Compiling prost v0.9.0 Compiling powerfmt v0.2.0 Compiling bs58 v0.4.0 Compiling fixedbitset v0.4.2 Compiling unicode-segmentation v1.11.0 Compiling convert_case v0.4.0 Compiling petgraph v0.6.4 Compiling heck v0.3.3 Compiling derive_more v0.99.17 Compiling strum_macros v0.24.3 Compiling openssl-sys v0.9.102 Compiling deranged v0.3.11 Compiling prost-types v0.9.0 Compiling curve25519-dalek v4.1.2 Compiling hyper v0.14.28 Compiling tempfile v3.10.1 Compiling tokio-stream v0.1.15 Compiling enum-map-derive v0.17.0 Compiling derive_arbitrary v1.3.2 Compiling async-trait v0.1.80 Compiling darling v0.20.8 Compiling serde_with_macros v3.7.0 Compiling secp256k1-sys v0.8.1 Compiling multimap v0.8.3 Compiling num-conv v0.1.0 Compiling time-core v0.1.2 Compiling regex-syntax v0.6.29 Compiling static_assertions v1.1.0 Compiling near-account-id v1.0.0 Compiling regex-automata v0.1.10 Compiling arbitrary v1.3.2 Compiling time v0.3.36 Compiling strum v0.24.1 Compiling enum-map v2.7.3 Compiling rand_core v0.5.1 Compiling futures-executor v0.3.30 Compiling serde_repr v0.1.19 Compiling curve25519-dalek-derive v0.1.1 Compiling fs2 v0.4.3 Compiling utf8parse v0.2.1 Compiling overload v0.1.1 Compiling tinyvec_macros v0.1.1 Compiling adler v1.0.2 Compiling signature v2.2.0 Compiling miniz_oxide v0.7.2 Compiling tinyvec v1.6.0 Compiling ed25519 v2.2.3 Compiling nu-ansi-term v0.46.0 Compiling anstyle-parse v0.2.3 Compiling opentelemetry v0.17.0 Compiling rand_chacha v0.2.2 Compiling matchers v0.1.0 Compiling tonic-build v0.6.2 Compiling fixed-hash v0.7.0 Compiling uint v0.9.5 Compiling serde_with v3.7.0 Compiling tokio-io-timeout v1.2.0 Compiling sharded-slab v0.1.7 Compiling digest v0.9.0 Compiling crypto-mac v0.8.0 Compiling cipher v0.2.5 Compiling async-stream-impl v0.3.5 Compiling tracing-log v0.2.0 Compiling thread_local v1.1.8 Compiling rustls-pki-types v1.4.1 Compiling protobuf v2.28.0 Compiling anstyle-query v1.0.2 Compiling untrusted v0.9.0 Compiling spin v0.9.8 Compiling tower-layer v0.3.2 Compiling opaque-debug v0.3.1 Compiling json_comments v0.2.2 Compiling anstyle v1.0.6 Compiling colorchoice v1.0.0 Compiling anstream v0.6.13 Compiling near-config-utils v0.20.1 Compiling blake2 v0.9.2 Compiling tower v0.4.13 Compiling tracing-subscriber v0.3.18 Compiling c2-chacha v0.3.3 Compiling opentelemetry-otlp v0.10.0 Compiling near-primitives-core v0.20.1 Compiling hyper-timeout v0.4.1 Compiling primitive-types v0.10.1 Compiling rand v0.7.3 Compiling flate2 v1.0.28 Compiling secp256k1 v0.27.0 Compiling unicode-normalization v0.1.23 Compiling ed25519-dalek v2.1.1 Compiling tracing-futures v0.2.5 Compiling inout v0.1.3 Compiling tokio-util v0.6.10 Compiling form_urlencoded v1.2.1 Compiling memoffset v0.8.0 Compiling prometheus v0.13.3 Compiling openssl v0.10.64 Compiling siphasher v0.3.11 Compiling foreign-types-shared v0.1.1 Compiling base64ct v1.6.0 Compiling strsim v0.11.1 Compiling async-stream v0.3.5 Compiling clap_lex v0.7.0 Compiling near-stdx v0.20.1 Compiling base64 v0.13.1 Compiling heck v0.5.0 Compiling unsafe-libyaml v0.2.11 Compiling unicode-bidi v0.3.15 Compiling idna v0.5.0 Compiling serde_yaml v0.9.34+deprecated Compiling clap_derive v4.5.4 Compiling tonic v0.6.2 Compiling near-crypto v0.20.1 Compiling clap_builder v4.5.2 Compiling password-hash v0.4.2 Compiling foreign-types v0.3.2 Compiling cipher v0.4.4 Compiling rustls-webpki v0.102.2 Compiling hmac v0.12.1 Compiling actix-rt v2.9.0 Compiling futures v0.3.30 Compiling actix-macros v0.2.4 Compiling openssl-macros v0.1.1 Compiling actix_derive v0.6.1 Compiling tracing-log v0.1.4 Compiling ahash v0.7.8 Compiling iana-time-zone v0.1.60 Compiling assert_matches v1.5.0 Compiling near-sandbox-utils v0.7.0 Compiling reed-solomon-erasure v4.0.2 Compiling native-tls v0.2.11 Compiling keccak v0.1.5 Compiling rustc-hex v2.1.0 Compiling zeroize v1.7.0 Compiling zeropool-bn v0.5.11 Compiling sha3 v0.10.8 Compiling near-parameters v0.20.1 Compiling chrono v0.4.37 Compiling tracing-opentelemetry v0.17.4 Compiling clap v4.5.4 Compiling pbkdf2 v0.11.0 Compiling zstd v0.11.2+zstd.1.5.2 Compiling aes v0.8.4 Compiling bzip2 v0.4.4 Compiling url v2.5.0 Compiling actix v0.13.3 Compiling near-fmt v0.20.1 Compiling tracing-appender v0.2.3 Compiling webpki-roots v0.26.1 Compiling opentelemetry-semantic-conventions v0.9.0 Compiling sha1 v0.10.6 Compiling near-rpc-error-core v0.20.1 Compiling toml v0.5.11 Compiling ripemd v0.1.3 Compiling xattr v1.3.1 Compiling serde_derive_internals v0.26.0 Compiling filetime v0.2.23 Compiling dirs-sys-next v0.1.2 Compiling uuid v0.8.2 Compiling openssl-probe v0.1.5 Compiling prefix-sum-vec v0.1.2 Compiling schemars v0.8.16 Compiling camino v1.1.6 Compiling radium v0.7.0 Compiling constant_time_eq v0.1.5 Compiling schemars_derive v0.8.16 Compiling zip v0.6.6 Compiling near-vm-runner v0.20.1 Compiling ureq v2.9.6 Compiling dirs-next v2.0.0 Compiling tar v0.4.40 Compiling proc-macro-crate v0.1.5 Compiling near-rpc-error-macro v0.20.1 Compiling phf_shared v0.10.0 Compiling bytesize v1.3.0 Compiling scroll_derive v0.11.1 Compiling smart-default v0.6.0 Compiling borsh-derive-internal v0.9.3 Compiling borsh-schema-derive-internal v0.9.3 Compiling tap v1.0.1 Compiling fallible-iterator v0.2.0 Compiling is_executable v0.1.2 Compiling arrayvec v0.7.4 Compiling stable_deref_trait v1.2.0 Compiling new_debug_unreachable v1.0.6 Compiling precomputed-hash v0.1.1 Compiling minimal-lexical v0.2.1 Compiling dyn-clone v1.0.17 Compiling easy-ext v0.2.9 Compiling nom v7.1.3 Compiling binary-install v0.2.0 Compiling string_cache v0.8.7 Compiling near-o11y v0.20.1 Compiling brownstone v1.1.0 Compiling wyz v0.5.1 Compiling borsh-derive v0.9.3 Compiling hashbrown v0.11.2 Compiling tokio-native-tls v0.3.1 Compiling debugid v0.7.3 Compiling cargo-platform v0.1.8 Compiling atty v0.2.14 Compiling memmap2 v0.5.10 Compiling termcolor v1.4.1 Compiling funty v2.0.0 Compiling indent_write v2.2.0 Compiling scroll v0.10.2 Compiling os_str_bytes v6.6.1 Compiling joinery v2.1.0 Compiling plain v0.2.3 Compiling xml-rs v0.8.20 Compiling nom-supreme v0.6.0 Compiling near-primitives v0.20.1 Compiling scroll v0.11.0 Compiling elementtree v0.7.0 Compiling goblin v0.5.4 Compiling pdb v0.7.0 Compiling clap_lex v0.2.4 Compiling bitvec v1.0.1 Compiling symbolic-common v8.8.0 Compiling hyper-tls v0.5.0 Compiling gimli v0.26.2 Compiling serde_urlencoded v0.7.1 Compiling zip v0.5.13 Compiling clap_derive v3.2.25 Compiling rustls-pemfile v1.0.4 Compiling encoding_rs v0.8.34 Compiling ipnet v2.9.0 Compiling wasmparser v0.83.0 Compiling lazycell v1.3.0 Compiling mime v0.3.17 Compiling bitflags v1.3.2 Compiling sync_wrapper v0.1.2 Compiling textwrap v0.16.1 Compiling dmsort v1.0.2 Compiling humantime v2.1.0 Compiling reqwest v0.11.27 Compiling symbolic-debuginfo v8.8.0 Compiling env_logger v0.9.3 Compiling near-workspaces v0.10.0 Compiling cargo_metadata v0.14.2 Compiling borsh v0.9.3 Compiling treediff v4.0.3 Compiling near-abi v0.3.0 Compiling colored v2.1.0 Compiling libloading v0.7.4 Compiling near-chain-configs v0.20.1 Compiling json-patch v1.2.0 Compiling near-gas v0.2.5 Compiling cargo_metadata v0.18.1 Compiling tokio-retry v0.3.0 Compiling near-token v0.2.0 Compiling bs58 v0.5.1 Compiling near-jsonrpc-primitives v0.20.1 Compiling near-jsonrpc-client v0.8.0 Compiling clap v3.2.25 Compiling cargo-near v0.3.1 Compiling chat_contract_tests v0.0.1 (/mnt/c/home/git/polyglot/apps/chat/contract/tests) Finished `release` profile [optimized] target(s) in 16m 00s Running `/mnt/c/home/git/polyglot/target/release/chat_contract_tests` Updated the logging layer according to `log_config.json` new: ExecutionFinalResult { total_gas_burnt: NearGas { inner: 5283145719276, }, transaction: ExecutionOutcome { transaction_hash: EfTbVDTvVRPA6n75WQEJpxo5zTJvUGN8Jh1UiXSZhe1K, block_hash: 9bhjntzFSaNC9ZWdcNvYD3g2HEsD2NaJYwdoZe9ExauM, logs: [], receipt_ids: [ BX4Nh3dBcPT6zddBBneVzpxsBsQNFMcGV1fYW6BS7sR, ], gas_burnt: NearGas { inner: 2427927707802, }, tokens_burnt: NearToken { inner: 242792770780200000000, }, executor_id: AccountId( "dev-20240413091731-15340099406289", ), status: SuccessReceiptId(BX4Nh3dBcPT6zddBBneVzpxsBsQNFMcGV1fYW6BS7sR), }, receipts: [ ExecutionOutcome { transaction_hash: BX4Nh3dBcPT6zddBBneVzpxsBsQNFMcGV1fYW6BS7sR, block_hash: 9bhjntzFSaNC9ZWdcNvYD3g2HEsD2NaJYwdoZe9ExauM, logs: [], receipt_ids: [ HDQvhScLJUqYRGdd1uxVJixssRnLx9F52CsDyJNGTfEt, ], gas_burnt: NearGas { inner: 2632035448974, }, tokens_burnt: NearToken { inner: 263203544897400000000, }, executor_id: AccountId( "dev-20240413091731-15340099406289", ), status: SuccessValue(''), }, ExecutionOutcome { transaction_hash: HDQvhScLJUqYRGdd1uxVJixssRnLx9F52CsDyJNGTfEt, block_hash: 4yTVbAMziQy5rkavahGGbGMLtBHXs5DUvjRV6os9hBzE, logs: [], receipt_ids: [], gas_burnt: NearGas { inner: 223182562500, }, tokens_burnt: NearToken { inner: 0, }, executor_id: AccountId( "dev-20240413091731-15340099406289", ), status: SuccessValue(''), }, ], status: SuccessValue(''), } total_gas_burnt_usd: 0.003529141340476368 outcome (success: true): outcome_gas_burnt_usd: 0.001621855708811736 outcome_tokens_burnt_usd: 0.0 outcome (success: true): outcome_gas_burnt_usd: 0.0017581996799146318 outcome_tokens_burnt_usd: 0.0 outcome (success: true): outcome_gas_burnt_usd: 0.00014908595175 outcome_tokens_burnt_usd: 0.0 claim_alias(contract, ''): ExecutionFinalResult { total_gas_burnt: NearGas { inner: 5279821662274, }, transaction: ExecutionOutcome { transaction_hash: Eg6HvF6tE7GiKkY5VHYPQVRXw8J6qZG8LNLyvQsFY7Ky, block_hash: 2RbHXXt5FzAQZYtW3Yd1eAJDrXDq1MV9ayF7z4JtkTyZ, logs: [], receipt_ids: [ 8bNjfgG5KMHDVvFGqjLBqhAJ8yQvYLZkMCTzLMKKfeay, ], gas_burnt: NearGas { inner: 2427972426482, }, tokens_burnt: NearToken { inner: 242797242648200000000, }, executor_id: AccountId( "dev-20240413091731-15340099406289", ), status: SuccessReceiptId(8bNjfgG5KMHDVvFGqjLBqhAJ8yQvYLZkMCTzLMKKfeay), }, receipts: [ ExecutionOutcome { transaction_hash: 8bNjfgG5KMHDVvFGqjLBqhAJ8yQvYLZkMCTzLMKKfeay, block_hash: 2RbHXXt5FzAQZYtW3Yd1eAJDrXDq1MV9ayF7z4JtkTyZ, logs: [ "claim_alias / alias: \"\" / account_id: AccountId(\n \"dev-20240413091731-15340099406289\",\n) / timestamp: 1712999853363050786", ], receipt_ids: [ 91ZwbwepvNK6LXrp7R4TDDGHMctZd14ZT7dqB554pFwW, ], gas_burnt: NearGas { inner: 2628666673292, }, tokens_burnt: NearToken { inner: 262866667329200000000, }, executor_id: AccountId( "dev-20240413091731-15340099406289", ), status: Failure(ActionError(ActionError { index: Some(0), kind: FunctionCallError(ExecutionError("Smart contract panicked: Invalid alias")) })), }, ExecutionOutcome { transaction_hash: 91ZwbwepvNK6LXrp7R4TDDGHMctZd14ZT7dqB554pFwW, block_hash: EzrQcbjaXkN1Qryzeqj4F2j4PKznK2FfBqnPeaH1mnYs, logs: [], receipt_ids: [], gas_burnt: NearGas { inner: 223182562500, }, tokens_burnt: NearToken { inner: 0, }, executor_id: AccountId( "dev-20240413091731-15340099406289", ), status: SuccessValue(''), }, ], status: Failure(ActionError(ActionError { index: Some(0), kind: FunctionCallError(ExecutionError("Smart contract panicked: Invalid alias")) })), } total_gas_burnt_usd: 0.0035269208703990317 outcome (success: true): outcome_gas_burnt_usd: 0.001621885580889976 outcome_tokens_burnt_usd: 0.0 outcome (success: false): outcome_gas_burnt_usd: 0.0017559493377590559 outcome_tokens_burnt_usd: 0.0 outcome (success: true): outcome_gas_burnt_usd: 0.00014908595175 outcome_tokens_burnt_usd: 0.0 dev_create_account(account1): Account { id: AccountId( "dev-20240413091733-16137690852223", ), } generate_cid_borsh(account1): ViewResultDetails { result: [ 59, 0, 0, 0, 98, 97, 102, 107, 114, 101, 105, 104, 100, 119, 100, 99, 101, 102, 103, 104, 52, 100, 113, 107, 106, 118, 54, 55, 117, 122, 99, 109, 119, 55, 111, 106, 101, 101, 54, 120, 101, 100, 122, 100, 101, 116, 111, 106, 117, 122, 106, 101, 118, 116, 101, 110, 120, 113, 117, 118, 121, 107, 117, ], logs: [], } claim_alias(account1, alias1): ExecutionFinalResult { total_gas_burnt: NearGas { inner: 5700295248739, }, transaction: ExecutionOutcome { transaction_hash: 6o1DkPJ6mHEqpRFw156ci3FMYJmhLzMSmTp4g7kPf39x, block_hash: 2Q6cfsLd8gEjDTR4PrH9JE56QtAaMordh8L7GeQ3oYRg, logs: [], receipt_ids: [ Cw2gMuYfNhaQw8GZtyUmJ1XWoFdVL9QUb3zKCiyNrGyx, ], gas_burnt: NearGas { inner: 2427985842086, }, tokens_burnt: NearToken { inner: 242798584208600000000, }, executor_id: AccountId( "dev-20240413091733-16137690852223", ), status: SuccessReceiptId(Cw2gMuYfNhaQw8GZtyUmJ1XWoFdVL9QUb3zKCiyNrGyx), }, receipts: [ ExecutionOutcome { transaction_hash: Cw2gMuYfNhaQw8GZtyUmJ1XWoFdVL9QUb3zKCiyNrGyx, block_hash: 3mwj2FpwuBJgYPbcGZ7ceGBUMzeMaxd6Nyi84BsbbRjR, logs: [ "claim_alias / alias: \"alias1\" / account_id: AccountId(\n \"dev-20240413091733-16137690852223\",\n) / timestamp: 1712999855208764353", ], receipt_ids: [ 7nQfVuva7jeNcLG6axVuHzsZ2EHpgjpHZJpicjbJzKCP, ], gas_burnt: NearGas { inner: 3049126844153, }, tokens_burnt: NearToken { inner: 304912684415300000000, }, executor_id: AccountId( "dev-20240413091731-15340099406289", ), status: SuccessValue(''), }, ExecutionOutcome { transaction_hash: 7nQfVuva7jeNcLG6axVuHzsZ2EHpgjpHZJpicjbJzKCP, block_hash: FE7xPcnq9hD1zKJCBCgWFR2vEvKdWg6WWtPjvdjFtCah, logs: [], receipt_ids: [], gas_burnt: NearGas { inner: 223182562500, }, tokens_burnt: NearToken { inner: 0, }, executor_id: AccountId( "dev-20240413091733-16137690852223", ), status: SuccessValue(''), }, ], status: SuccessValue(''), } total_gas_burnt_usd: 0.0038077972261576516 outcome (success: true): outcome_gas_burnt_usd: 0.0016218945425134478 outcome_tokens_burnt_usd: 0.0 outcome (success: true): outcome_gas_burnt_usd: 0.002036816731894204 outcome_tokens_burnt_usd: 0.0 outcome (success: true): outcome_gas_burnt_usd: 0.00014908595175 outcome_tokens_burnt_usd: 0.0 claim_alias(account1, alias1): ExecutionFinalResult { total_gas_burnt: NearGas { inner: 5524707878428, }, transaction: ExecutionOutcome { transaction_hash: 4ngVGz3wv6AUzNCGViC7f67q8krsjAWgXwpRovyTY9MJ, block_hash: ECZ5jyTXCCKaTj8wWNHo2QGE23nSR3v8VKZu3iY4NcLp, logs: [], receipt_ids: [ EZ8vRpkhw36jqv19UTnvZqm4QBJYVzbazmXSZrYvYZiG, ], gas_burnt: NearGas { inner: 2427985842086, }, tokens_burnt: NearToken { inner: 242798584208600000000, }, executor_id: AccountId( "dev-20240413091733-16137690852223", ), status: SuccessReceiptId(EZ8vRpkhw36jqv19UTnvZqm4QBJYVzbazmXSZrYvYZiG), }, receipts: [ ExecutionOutcome { transaction_hash: EZ8vRpkhw36jqv19UTnvZqm4QBJYVzbazmXSZrYvYZiG, block_hash: E3FCB1NMEm763z4mKrvfe2MNoS45siK7V25jVDC4KDqQ, logs: [ "claim_alias / alias: \"alias1\" / account_id: AccountId(\n \"dev-20240413091733-16137690852223\",\n) / timestamp: 1712999856224340817", "Alias already claimed", ], receipt_ids: [ BfCNiUAsYt4T5Qexg7Jn78zw8Sie48aPGSGZp2vm8LTz, ], gas_burnt: NearGas { inner: 2873539473842, }, tokens_burnt: NearToken { inner: 287353947384200000000, }, executor_id: AccountId( "dev-20240413091731-15340099406289", ), status: SuccessValue(''), }, ExecutionOutcome { transaction_hash: BfCNiUAsYt4T5Qexg7Jn78zw8Sie48aPGSGZp2vm8LTz, block_hash: 3t6b92WcCGYUFkNvP6JWmynajwdi981LhJ621BoCeSVQ, logs: [], receipt_ids: [], gas_burnt: NearGas { inner: 223182562500, }, tokens_burnt: NearToken { inner: 0, }, executor_id: AccountId( "dev-20240413091733-16137690852223", ), status: SuccessValue(''), }, ], status: SuccessValue(''), } total_gas_burnt_usd: 0.003690504862789904 outcome (success: true): outcome_gas_burnt_usd: 0.0016218945425134478 outcome_tokens_burnt_usd: 0.0 outcome (success: true): outcome_gas_burnt_usd: 0.001919524368526456 outcome_tokens_burnt_usd: 0.0 outcome (success: true): outcome_gas_burnt_usd: 0.00014908595175 outcome_tokens_burnt_usd: 0.0 get_account_info(account1): Some( ( "alias1", ( 1712999855208764353, 0, ), ), ) get_alias_map(account1, alias1): Some( { AccountId( "dev-20240413091733-16137690852223", ): ( 1712999855208764353, 0, ), }, ) dev_create_account(account2): Account { id: AccountId( "dev-20240413091736-55996737914340", ), } claim_alias(alias2): ExecutionFinalResult { total_gas_burnt: NearGas { inner: 5787645028369, }, transaction: ExecutionOutcome { transaction_hash: DmeYa6QNtnqd2LT2FLfZPYrEJ5q6a9okyZoZjQvGeHeJ, block_hash: 8wiZUmUv2cvdzHTHo9nPhZPnAJu5ny66XngqqCeQnrLm, logs: [], receipt_ids: [ AcbEVSkBv52rqpL32QXXvuRytYNeCLHvyerxCeZR6MHQ, ], gas_burnt: NearGas { inner: 2427985842086, }, tokens_burnt: NearToken { inner: 242798584208600000000, }, executor_id: AccountId( "dev-20240413091736-55996737914340", ), status: SuccessReceiptId(AcbEVSkBv52rqpL32QXXvuRytYNeCLHvyerxCeZR6MHQ), }, receipts: [ ExecutionOutcome { transaction_hash: AcbEVSkBv52rqpL32QXXvuRytYNeCLHvyerxCeZR6MHQ, block_hash: 4Y7Udxt8iQEdp4VGWMqBcGN2rYTEXsjsJbQe9FjdpWWi, logs: [ "claim_alias / alias: \"alias2\" / account_id: AccountId(\n \"dev-20240413091736-55996737914340\",\n) / timestamp: 1712999858250731044", ], receipt_ids: [ 7Up34mVv1ZEh2ydD7dQ8VG9Wmf9NwFWqWadERSgayJih, ], gas_burnt: NearGas { inner: 3136476623783, }, tokens_burnt: NearToken { inner: 313647662378300000000, }, executor_id: AccountId( "dev-20240413091731-15340099406289", ), status: SuccessValue(''), }, ExecutionOutcome { transaction_hash: 7Up34mVv1ZEh2ydD7dQ8VG9Wmf9NwFWqWadERSgayJih, block_hash: FBJjZcguo8R49Rozvys59aFYQqxEr2PYSfoYJZ7LA9hJ, logs: [], receipt_ids: [], gas_burnt: NearGas { inner: 223182562500, }, tokens_burnt: NearToken { inner: 0, }, executor_id: AccountId( "dev-20240413091736-55996737914340", ), status: SuccessValue(''), }, ], status: SuccessValue(''), } total_gas_burnt_usd: 0.003866146878950492 outcome (success: true): outcome_gas_burnt_usd: 0.0016218945425134478 outcome_tokens_burnt_usd: 0.0 outcome (success: true): outcome_gas_burnt_usd: 0.002095166384687044 outcome_tokens_burnt_usd: 0.0 outcome (success: true): outcome_gas_burnt_usd: 0.00014908595175 outcome_tokens_burnt_usd: 0.0 get_account_info(account2): Some( ( "alias2", ( 1712999858250731044, 0, ), ), ) get_alias_map_borsh(alias2): Some( { AccountId( "dev-20240413091736-55996737914340", ): ( 1712999858250731044, 0, ), }, ) claim_alias(account2, alias1): ExecutionFinalResult { total_gas_burnt: NearGas { inner: 6092043422800, }, transaction: ExecutionOutcome { transaction_hash: HzgTQ58abqEtU9oFVazEQSdVgZjeDVvqCjv9AFzNUaoG, block_hash: 5gKMrDZhxeCD5MtJgTe7ruKNLKsPuEtQ5aqn9A11tJ7c, logs: [], receipt_ids: [ 2GySB6PQMb22hCKHVmovYiTu2LDwMKf9VhZNGwhLtPyb, ], gas_burnt: NearGas { inner: 2427985842086, }, tokens_burnt: NearToken { inner: 242798584208600000000, }, executor_id: AccountId( "dev-20240413091736-55996737914340", ), status: SuccessReceiptId(2GySB6PQMb22hCKHVmovYiTu2LDwMKf9VhZNGwhLtPyb), }, receipts: [ ExecutionOutcome { transaction_hash: 2GySB6PQMb22hCKHVmovYiTu2LDwMKf9VhZNGwhLtPyb, block_hash: AKHqftLWJatNt4qaH9zT8g5veQtgZVqCxxVEqffSvxZT, logs: [ "claim_alias / alias: \"alias1\" / account_id: AccountId(\n \"dev-20240413091736-55996737914340\",\n) / timestamp: 1712999859266667408", ], receipt_ids: [ AijezagGiMpaMbvXPcQdmerzJWxtJAhk3JyqsNsJb7r6, ], gas_burnt: NearGas { inner: 3440875018214, }, tokens_burnt: NearToken { inner: 344087501821400000000, }, executor_id: AccountId( "dev-20240413091731-15340099406289", ), status: SuccessValue(''), }, ExecutionOutcome { transaction_hash: AijezagGiMpaMbvXPcQdmerzJWxtJAhk3JyqsNsJb7r6, block_hash: 8dfpoFbmRENo4CQw9GNzNPpSxmY4ZK1d8ieDNBf1UG1S, logs: [], receipt_ids: [], gas_burnt: NearGas { inner: 223182562500, }, tokens_burnt: NearToken { inner: 0, }, executor_id: AccountId( "dev-20240413091736-55996737914340", ), status: SuccessValue(''), }, ], status: SuccessValue(''), } total_gas_burnt_usd: 0.0040694850064304 outcome (success: true): outcome_gas_burnt_usd: 0.0016218945425134478 outcome_tokens_burnt_usd: 0.0 outcome (success: true): outcome_gas_burnt_usd: 0.002298504512166952 outcome_tokens_burnt_usd: 0.0 outcome (success: true): outcome_gas_burnt_usd: 0.00014908595175 outcome_tokens_burnt_usd: 0.0 get_account_info(account2): Some( ( "alias1", ( 1712999859266667408, 1, ), ), ) get_alias_map(account2, alias1): Some( { AccountId( "dev-20240413091733-16137690852223", ): ( 1712999855208764353, 0, ), AccountId( "dev-20240413091736-55996737914340", ): ( 1712999859266667408, 1, ), }, ) get_alias_map(account2, alias2): Some( {}, ) claim_alias(account1, alias2): ExecutionFinalResult { total_gas_burnt: NearGas { inner: 6086699622580, }, transaction: ExecutionOutcome { transaction_hash: AYF9Cn8jMU9oE4c2LY3eRogwDxJFMWgskew1jpX9CpsE, block_hash: wbYBFnNT7AkS9pm9bTXzja5dNzGantQhc6AgWYbWtSa, logs: [], receipt_ids: [ hvPp7Qtd8GGYDPicAjVaJPrdbsbf2fHpoY1xEVTqkyw, ], gas_burnt: NearGas { inner: 2427985842086, }, tokens_burnt: NearToken { inner: 242798584208600000000, }, executor_id: AccountId( "dev-20240413091733-16137690852223", ), status: SuccessReceiptId(hvPp7Qtd8GGYDPicAjVaJPrdbsbf2fHpoY1xEVTqkyw), }, receipts: [ ExecutionOutcome { transaction_hash: hvPp7Qtd8GGYDPicAjVaJPrdbsbf2fHpoY1xEVTqkyw, block_hash: GGkYAafe6R2HVjEXDHW6LmtoQz4WbgdcfSYXSBZwQmtK, logs: [ "claim_alias / alias: \"alias2\" / account_id: AccountId(\n \"dev-20240413091733-16137690852223\",\n) / timestamp: 1712999860481244064", ], receipt_ids: [ DkaW2chnYstnqVjHvu6SSZkE6u3szVDdHZXtegEttxfb, ], gas_burnt: NearGas { inner: 3435531217994, }, tokens_burnt: NearToken { inner: 343553121799400000000, }, executor_id: AccountId( "dev-20240413091731-15340099406289", ), status: SuccessValue(''), }, ExecutionOutcome { transaction_hash: DkaW2chnYstnqVjHvu6SSZkE6u3szVDdHZXtegEttxfb, block_hash: HBhNV6kXNaYcdE6XYe75j1iZgCJYP357jDLiKusAAxie, logs: [], receipt_ids: [], gas_burnt: NearGas { inner: 223182562500, }, tokens_burnt: NearToken { inner: 0, }, executor_id: AccountId( "dev-20240413091733-16137690852223", ), status: SuccessValue(''), }, ], status: SuccessValue(''), } total_gas_burnt_usd: 0.00406591534788344 outcome (success: true): outcome_gas_burnt_usd: 0.0016218945425134478 outcome_tokens_burnt_usd: 0.0 outcome (success: true): outcome_gas_burnt_usd: 0.002294934853619992 outcome_tokens_burnt_usd: 0.0 outcome (success: true): outcome_gas_burnt_usd: 0.00014908595175 outcome_tokens_burnt_usd: 0.0 get_account_info(account1): Some( ( "alias2", ( 1712999860481244064, 0, ), ), ) get_alias_map(account1, alias2): Some( { AccountId( "dev-20240413091733-16137690852223", ): ( 1712999860481244064, 0, ), }, ) get_alias_map(account1, alias1): Some( { AccountId( "dev-20240413091736-55996737914340", ): ( 1712999859266667408, 1, ), }, ) claim_alias(account1, alias1): ExecutionFinalResult { total_gas_burnt: NearGas { inner: 6092043422800, }, transaction: ExecutionOutcome { transaction_hash: 6Mz2iTrgJTHHfmvbMK92JoRqBfYksiUZcnkNHxL14aKa, block_hash: 65dqDaJuAtfV3R7mKCT99SJSY6chUh5UrRzt4cbnpU9D, logs: [], receipt_ids: [ EaKNWgqGaKWh1EcyoZ4XyN5RT3WH8rEZxjrNcWWRSmrF, ], gas_burnt: NearGas { inner: 2427985842086, }, tokens_burnt: NearToken { inner: 242798584208600000000, }, executor_id: AccountId( "dev-20240413091733-16137690852223", ), status: SuccessReceiptId(EaKNWgqGaKWh1EcyoZ4XyN5RT3WH8rEZxjrNcWWRSmrF), }, receipts: [ ExecutionOutcome { transaction_hash: EaKNWgqGaKWh1EcyoZ4XyN5RT3WH8rEZxjrNcWWRSmrF, block_hash: 76AvjMJP9izGGqCBet9zXX49PC4nTnjAAJHQvVRixebx, logs: [ "claim_alias / alias: \"alias1\" / account_id: AccountId(\n \"dev-20240413091733-16137690852223\",\n) / timestamp: 1712999861517235127", ], receipt_ids: [ THVGGBZefRhx1NYA7CgMJNKG5PzdU8zJcu2CBv5xxnk, ], gas_burnt: NearGas { inner: 3440875018214, }, tokens_burnt: NearToken { inner: 344087501821400000000, }, executor_id: AccountId( "dev-20240413091731-15340099406289", ), status: SuccessValue(''), }, ExecutionOutcome { transaction_hash: THVGGBZefRhx1NYA7CgMJNKG5PzdU8zJcu2CBv5xxnk, block_hash: Di4KHa66XAucrf8roQzr55YMYiskpxV35hfegQT3Vcts, logs: [], receipt_ids: [], gas_burnt: NearGas { inner: 223182562500, }, tokens_burnt: NearToken { inner: 0, }, executor_id: AccountId( "dev-20240413091733-16137690852223", ), status: SuccessValue(''), }, ], status: SuccessValue(''), } total_gas_burnt_usd: 0.0040694850064304 outcome (success: true): outcome_gas_burnt_usd: 0.0016218945425134478 outcome_tokens_burnt_usd: 0.0 outcome (success: true): outcome_gas_burnt_usd: 0.002298504512166952 outcome_tokens_burnt_usd: 0.0 outcome (success: true): outcome_gas_burnt_usd: 0.00014908595175 outcome_tokens_burnt_usd: 0.0 get_account_info(account1): Some( ( "alias1", ( 1712999861517235127, 1, ), ), ) get_alias_map(account1, alias1): Some( { AccountId( "dev-20240413091736-55996737914340", ): ( 1712999859266667408, 0, ), AccountId( "dev-20240413091733-16137690852223", ): ( 1712999861517235127, 1, ), }, ) get_alias_map(account1, alias2): Some( {}, )
In [ ]:
{ . "$ScriptDir/../apps/spiral/temp/extension/build.ps1" } | Invoke-Block
bun install v1.1.0 (5903a614) Checked 11 installs across 13 packages (no changes) [109.00ms] [INFO]: 🎯 Checking for the Wasm target... [INFO]: 🌀 Compiling to Wasm... Compiling proc-macro2 v1.0.79 Compiling unicode-ident v1.0.12 Compiling autocfg v1.2.0 Compiling serde v1.0.197 Compiling once_cell v1.19.0 Compiling cfg-if v1.0.0 Compiling wasm-bindgen-shared v0.2.92 Compiling log v0.4.21 Compiling bumpalo v3.16.0 Compiling version_check v0.9.4 Compiling wasm-bindgen v0.2.92 Compiling thiserror v1.0.58 Compiling memchr v2.7.2 Compiling smallvec v1.13.2 Compiling pin-project-lite v0.2.14 Compiling futures-core v0.3.30 Compiling lock_api v0.4.11 Compiling slab v0.4.9 Compiling parking_lot_core v0.9.9 Compiling itoa v1.0.11 Compiling futures-sink v0.3.30 Compiling hashbrown v0.14.3 Compiling futures-channel v0.3.30 Compiling unicode-xid v0.2.4 Compiling futures-io v0.3.30 Compiling ryu v1.0.17 Compiling futures-task v0.3.30 Compiling pin-utils v0.1.0 Compiling quote v1.0.36 Compiling serde_json v1.0.115 Compiling proc-macro-error-attr v1.0.4 Compiling winapi v0.3.9 Compiling tinyvec_macros v0.1.1 Compiling percent-encoding v2.3.1 Compiling equivalent v1.0.1 Compiling syn v2.0.58 Compiling proc-macro-utils v0.8.0 Compiling windows_x86_64_msvc v0.48.5 Compiling indexmap v2.2.6 Compiling tinyvec v1.6.0 Compiling proc-macro-error v1.0.4 Compiling fnv v1.0.7 Compiling unicode-segmentation v1.11.0 Compiling bytes v1.6.0 Compiling convert_case v0.6.0 Compiling form_urlencoded v1.2.1 Compiling const_format_proc_macros v0.2.32 Compiling unicode-normalization v0.1.23 Compiling proc-macro2-diagnostics v0.10.1 Compiling unicode-bidi v0.3.15 Compiling xxhash-rust v0.8.10 Compiling http v0.2.12 Compiling manyhow-macros v0.10.4 Compiling windows-targets v0.48.5 Compiling idna v0.5.0 Compiling slotmap v1.0.7 Compiling half v2.4.1 Compiling const_format v0.2.32 Compiling ciborium-io v0.2.2 Compiling anyhow v1.0.82 Compiling paste v1.0.14 Compiling winapi-util v0.1.6 Compiling scopeguard v1.2.0 Compiling camino v1.1.6 Compiling yansi v1.0.1 Compiling same-file v1.0.6 Compiling wasm-bindgen-backend v0.2.92 Compiling server_fn_macro v0.6.11 Compiling manyhow v0.10.4 Compiling ciborium-ll v0.2.2 Compiling url v2.5.0 Compiling tracing-core v0.1.32 Compiling interpolator v0.5.0 Compiling prettyplease v0.2.17 Compiling wasm-bindgen-macro-support v0.2.92 Compiling collection_literals v1.0.1 Compiling winnow v0.6.6 Compiling parking_lot v0.12.1 Compiling dashmap v5.5.3 Compiling walkdir v2.5.0 Compiling http v1.1.0 Compiling getrandom v0.2.14 Compiling aho-corasick v1.1.3 Compiling send_wrapper v0.6.0 Compiling base64 v0.22.0 Compiling utf8-width v0.1.7 Compiling minimal-lexical v0.2.1 Compiling lazy_static v1.4.0 Compiling regex-syntax v0.8.3 Compiling self_cell v1.0.3 Compiling rustc-hash v1.1.0 Compiling either v1.11.0 Compiling nom v7.1.3 Compiling itertools v0.12.1 Compiling html-escape v0.2.13 Compiling uuid v1.8.0 Compiling pathdiff v0.2.1 Compiling regex-automata v0.4.6 Compiling drain_filter_polyfill v0.1.3 Compiling pad-adapter v0.1.1 Compiling inventory v0.3.15 Compiling num-traits v0.2.18 Compiling cfg_aliases v0.1.1 Compiling tokio v1.37.0 Compiling borsh v1.4.0 Compiling serde_derive v1.0.197 Compiling wasm-bindgen-macro v0.2.92 Compiling thiserror-impl v1.0.58 Compiling futures-macro v0.3.30 Compiling derive-where v1.2.7 Compiling pin-project-internal v1.1.5 Compiling js-sys v0.3.69 Compiling tracing-attributes v0.1.27 Compiling futures-util v0.3.30 Compiling syn_derive v0.1.8 Compiling pin-project v1.1.5 Compiling quote-use-macros v0.8.0 Compiling server_fn_macro_default v0.6.11 Compiling typed-builder-macro v0.18.1 Compiling web-sys v0.3.69 Compiling wasm-bindgen-futures v0.4.42 Compiling futures-executor v0.3.30 Compiling quote-use v0.8.0 Compiling futures v0.3.30 Compiling tracing v0.1.40 Compiling attribute-derive-macro v0.9.1 Compiling rstml v0.11.2 Compiling regex v1.10.4 Compiling async-recursion v1.1.0 Compiling base64 v0.13.1 Compiling tower-service v0.3.2 Compiling console_error_panic_hook v0.1.7 Compiling typed-builder v0.18.1 Compiling attribute-derive v0.9.1 Compiling serde_spanned v0.6.5 Compiling toml_datetime v0.6.5 Compiling serde_qs v0.12.0 Compiling ciborium v0.2.2 Compiling serde-wasm-bindgen v0.6.5 Compiling toml_edit v0.22.9 Compiling leptos_hot_reload v0.6.11 Compiling serde_test v1.0.176 Compiling serde_urlencoded v0.7.1 Compiling linear-map v1.2.0 Compiling toml v0.8.12 Compiling leptos_macro v0.6.11 Compiling config v0.14.0 Compiling leptos_config v0.6.11 Compiling gloo-utils v0.2.0 Compiling leptos_reactive v0.6.11 Compiling reqwest-wasm v0.11.16 Compiling console_log v1.0.0 Compiling gloo-net v0.5.0 Compiling wasm-streams v0.4.0 Compiling rexie v0.5.0 Compiling server_fn v0.6.11 Compiling leptos_dom v0.6.11 Compiling leptos_server v0.6.11 Compiling leptos v0.6.11 Compiling leptos_router v0.6.11 Compiling leptos_meta v0.6.11 Compiling spiral_temp_extension v0.0.1 (C:\home\git\polyglot\apps\spiral\temp\extension) Finished `dev` profile [unoptimized + debuginfo] target(s) in 2m 03s [INFO]: ⬇️ Installing wasm-bindgen... [INFO]: origin crate has no LICENSE [INFO]: ✨ Done in 2m 04s [INFO]: 📦 Your wasm pkg is ready to publish at C:\home\git\polyglot\apps\spiral\temp\extension\pkg. ▲ [WARNING] "import.meta" is not available with the "iife" output format and will be empty [empty-import-meta] pkg/spiral_temp_extension.js:1494:57: 1494 │ ...put = new URL('spiral_temp_extension_bg.wasm', import.meta.url); ╵ ~~~~~~~~~~~ You need to set the output format to "esm" for "import.meta" to work correctly. 1 warning dist\spiral_temp_extension_bg-3QTSMCLJ.wasm 4.6mb ⚠️ dist\devtools.js 29.0kb dist\content_script.js 27.1kb dist\service_worker.js 2.2kb ⚡ Done in 139ms $ playwright test [WebServer] (node:34936) [DEP0040] DeprecationWarning: The `punycode` module is deprecated. Please use a userland alternative instead. (Use `node --trace-deprecation ...` to show where the warning was created) Running 3 tests using 3 workers [1/3] [Desktop Chrome] › extension.spec.ts:8:5 › popup extension [2/3] [Desktop Chrome] › extension.spec.ts:3:5 › popup localhost [3/3] [Desktop Chrome] › extension.spec.ts:13:5 › libgen 3 passed (17.5s) To open last HTML report run: npx playwright show-report
In [ ]:
{ . "$ScriptDir/../apps/spiral/temp/test/build.ps1" } | Invoke-Block
── pwsh ────────────────────────────────────────────────────────────────────────
. ../../../../scripts/nbs_header.ps1
. ../../../../scripts/core.ps1
── pwsh ────────────────────────────────────────────────────────────────────────
{ . ../../../../apps/spiral/dist/Supervisor$(GetExecutableSuffix)
--execute-command "pwsh -c `"../../../../scripts/invoke-dib.ps1 test.dib`"" } |
Invoke-Block -Retries 5
╭─[ 22.04s - stdout ]──────────────────────────────────────────────────────────╮
│ 00:00:00 #1 [debug] runWithTimeoutChildAsync / timeout: 60 │
│ 00:00:00 #1 [debug] execute_with_options_async / options: struct (Some │
│ System.Threading.CancellationToken, │
│ "dotnet "C:\home\git\polyglot\deps\The-Spiral-Language\The Spiral │
│ Language 2\artifacts\bin\The Spiral Language 2\release\Spiral.dll" --port │
│ 13805 --default-int i32 --default-float f64", │
│ Some <fun:main@439-43>, None, None) │
│ 00:00:00 #2 [verbose] > pwd: C:\home\git\polyglot\apps\spiral\temp\test │
│ 00:00:00 #3 [verbose] > dllPath: │
│ C:\home\git\polyglot\deps\The-Spiral-Language\The Spiral Language │
│ 2\artifacts\bin\The Spiral Language 2\release │
│ 00:00:00 #4 [verbose] > targetDir: │
│ C:\home\git\polyglot\target/polyglot/spiral_eval │
│ 00:00:00 #5 [verbose] > Starting the Spiral Server. It is bound to: │
│ http://localhost:13805 │
│ 00:00:00 #2 [debug] runWithTimeoutChildAsync / timeout: 500 │
│ 00:00:00 #3 [verbose] waitForPortAccess / port: 13805 / retry: 0 │
│ 00:00:01 #4 [debug] sendJson / port: 13805 / json: {"Ping":true} / │
│ result.Length: │
│ 00:00:01 #5 [verbose] awaitCompiler / Ping / result: Some(null) / port: │
│ 13805 / retry: 0 │
│ 00:00:01 #6 [verbose] > Server bound to: http://localhost:13805 │
│ 00:00:01 #7 [debug] execute_with_options_async / options: struct (Some │
│ System.Threading.CancellationToken, │
│ "pwsh -c "../../../../scripts/invoke-dib.ps1 test.dib"", None, None, │
│ None) │
│ 00:00:03 #8 [verbose] > │
│ 00:00:03 #9 [verbose] > ── markdown │
│ ──────────────────────────────────────────────────────────────────── │
│ 00:00:03 #10 [verbose] > │
│ ╭─────────────────────────────────────────────────────────────────────────── │
│ ───╮ │
│ 00:00:03 #11 [verbose] > │ # test (Polyglot) │
│ │ │
│ 00:00:03 #12 [verbose] > │
│ ╰─────────────────────────────────────────────────────────────────────────── │
│ ───╯ │
│ 00:00:04 #13 [verbose] > │
│ 00:00:04 #14 [verbose] > ── spiral │
│ ────────────────────────────────────────────────────────────────────── │
│ 00:00:04 #15 [verbose] > // // test │
│ 00:00:04 #16 [verbose] > │
│ 00:00:04 #17 [verbose] > open testing │
│ 00:00:07 #18 [verbose] > Building │
│ c:\home\git\polyglot\target\polyglot\spiral_eval\packages\8837341da068f4ef42 │
│ 71045b3ef1c89d209237bf74b4f11596b6ee2d484becb0\main.spi │
│ 00:00:10 #19 [verbose] > │
│ 00:00:10 #20 [verbose] > ╭─[ 6.73s - stdout │
│ ]───────────────────────────────────────────────────────────╮ │
│ 00:00:10 #21 [verbose] > │ () │
│ │ │
│ 00:00:10 #22 [verbose] > │ │
│ │
│ │ │
│ 00:00:10 #23 [verbose] > │ │
│ │
│ │ │
│ 00:00:10 #24 [verbose] > │
│ ╰─────────────────────────────────────────────────────────────────────────── │
│ ───╯ │
│ 00:00:10 #25 [verbose] > │
│ 00:00:10 #26 [verbose] > ── spiral │
│ ────────────────────────────────────────────────────────────────────── │
│ 00:00:10 #27 [verbose] > nominal i = () │
│ 00:00:10 #28 [verbose] > nominal e = () │
│ 00:00:10 #29 [verbose] > nominal s = () │
│ 00:00:10 #30 [verbose] > nominal n = () │
│ 00:00:10 #31 [verbose] > nominal t = () │
│ 00:00:10 #32 [verbose] > nominal f = () │
│ 00:00:10 #33 [verbose] > nominal j = () │
│ 00:00:10 #34 [verbose] > nominal p = () │
│ 00:00:10 #35 [verbose] > │
│ 00:00:10 #36 [verbose] > union sensing = │
│ 00:00:10 #37 [verbose] > | Si : s * i │
│ 00:00:10 #38 [verbose] > | Se : s * e │
│ 00:00:10 #39 [verbose] > │
│ 00:00:10 #40 [verbose] > union intuition = │
│ 00:00:10 #41 [verbose] > | Ni : n * i │
│ 00:00:10 #42 [verbose] > | Ne : n * e │
│ 00:00:10 #43 [verbose] > │
│ 00:00:10 #44 [verbose] > union thinking = │
│ 00:00:10 #45 [verbose] > | Ti : t * i │
│ 00:00:10 #46 [verbose] > | Te : t * e │
│ 00:00:10 #47 [verbose] > │
│ 00:00:10 #48 [verbose] > union feeling = │
│ 00:00:10 #49 [verbose] > | Fi : f * i │
│ 00:00:10 #50 [verbose] > | Fe : f * e │
│ 00:00:10 #51 [verbose] > │
│ 00:00:10 #52 [verbose] > union function_stack = │
│ 00:00:10 #53 [verbose] > | FS : sensing * intuition * thinking * feeling │
│ 00:00:10 #54 [verbose] > │
│ 00:00:10 #55 [verbose] > union personality_type = │
│ 00:00:10 #56 [verbose] > | ISTJ : i * s * t * j * function_stack │
│ 00:00:10 #57 [verbose] > | ISFJ : i * s * f * j * function_stack │
│ 00:00:10 #58 [verbose] > | INFJ : i * n * f * j * function_stack │
│ 00:00:10 #59 [verbose] > | INTJ : i * n * t * j * function_stack │
│ 00:00:10 #60 [verbose] > | ISTP : i * s * t * p * function_stack │
│ 00:00:10 #61 [verbose] > | ISFP : i * s * f * p * function_stack │
│ 00:00:10 #62 [verbose] > | INFP : i * n * f * p * function_stack │
│ 00:00:10 #63 [verbose] > | INTP : i * n * t * p * function_stack │
│ 00:00:10 #64 [verbose] > | ESTP : e * s * t * p * function_stack │
│ 00:00:10 #65 [verbose] > | ESFP : e * s * f * p * function_stack │
│ 00:00:10 #66 [verbose] > | ENFP : e * n * f * p * function_stack │
│ 00:00:10 #67 [verbose] > | ENTP : e * n * t * p * function_stack │
│ 00:00:10 #68 [verbose] > | ESTJ : e * s * t * j * function_stack │
│ 00:00:10 #69 [verbose] > | ESFJ : e * s * f * j * function_stack │
│ 00:00:10 #70 [verbose] > | ENFJ : e * n * f * j * function_stack │
│ 00:00:10 #71 [verbose] > | ENTJ : e * n * t * j * function_stack │
│ 00:00:10 #72 [verbose] > │
│ 00:00:10 #73 [verbose] > │
│ 00:00:10 #74 [verbose] > inl main () = │
│ 00:00:10 #75 [verbose] > inl istj_stack = FS ((Si (s, i)), Ne (n, e), │
│ (Te (t, e)), (Fi (f, i))) │
│ 00:00:10 #76 [verbose] > inl istj_personality = ISTJ (i, s, t, j, │
│ istj_stack) │
│ 00:00:10 #77 [verbose] > // inl isfj_stack = FS ((Si (s, i)), Ne (n, e), │
│ (Fe (f, e)), (Ti (t, i))) │
│ 00:00:10 #78 [verbose] > // inl isfj_personality = ISFJ (i, s, f, j, │
│ isfj_stack) │
│ 00:00:10 #79 [verbose] > │
│ 00:00:10 #80 [verbose] > ;[[ │
│ 00:00:10 #81 [verbose] > istj_personality │
│ 00:00:10 #82 [verbose] > ]] │
│ 00:00:10 #83 [verbose] > |> fun x => $'$"%A{!x}"' : string │
│ 00:00:10 #84 [verbose] > |> console.write_line │
│ 00:00:10 #85 [verbose] > │
│ 00:00:10 #86 [verbose] > inl main () = │
│ 00:00:10 #87 [verbose] > $"!main ()" : () │
│ 00:00:10 #88 [verbose] > Building │
│ c:\home\git\polyglot\target\polyglot\spiral_eval\packages\896eb5e4f49dc571cf │
│ d998d8dd04fa4597ef12c513a22c93b9dcddcbf0c87da2\main.spi │
│ 00:00:12 #89 [verbose] > │
│ 00:00:12 #90 [verbose] > ╭─[ 1.87s - stdout │
│ ]───────────────────────────────────────────────────────────╮ │
│ 00:00:12 #91 [verbose] > │ type [<Struct>] US0 = │
│ │ │
│ 00:00:12 #92 [verbose] > │ | US0_0 │
│ │ │
│ 00:00:12 #93 [verbose] > │ | US0_1 │
│ │ │
│ 00:00:12 #94 [verbose] > │ and [<Struct>] US1 = │
│ │ │
│ 00:00:12 #95 [verbose] > │ | US1_0 │
│ │ │
│ 00:00:12 #96 [verbose] > │ | US1_1 │
│ │ │
│ 00:00:12 #97 [verbose] > │ and [<Struct>] US2 = │
│ │ │
│ 00:00:12 #98 [verbose] > │ | US2_0 │
│ │ │
│ 00:00:12 #99 [verbose] > │ | US2_1 │
│ │ │
│ 00:00:12 #100 [verbose] > │ and [<Struct>] US3 = │
│ │ │
│ 00:00:12 #101 [verbose] > │ | US3_0 │
│ │ │
│ 00:00:12 #102 [verbose] > │ | US3_1 │
│ │ │
│ 00:00:12 #103 [verbose] > │ and [<Struct>] US4 = │
│ │ │
│ 00:00:12 #104 [verbose] > │ | US4_0 of f0_0 : US0 * f0_1 : US1 * f0_2 : │
│ US2 * f0_3 : US3 │ │
│ 00:00:12 #105 [verbose] > │ and [<Struct>] US5 = │
│ │ │
│ 00:00:12 #106 [verbose] > │ | US5_0 of f0_0 : US4 │
│ │ │
│ 00:00:12 #107 [verbose] > │ | US5_1 of f1_0 : US4 │
│ │ │
│ 00:00:12 #108 [verbose] > │ | US5_2 of f2_0 : US4 │
│ │ │
│ 00:00:12 #109 [verbose] > │ | US5_3 of f3_0 : US4 │
│ │ │
│ 00:00:12 #110 [verbose] > │ | US5_4 of f4_0 : US4 │
│ │ │
│ 00:00:12 #111 [verbose] > │ | US5_5 of f5_0 : US4 │
│ │ │
│ 00:00:12 #112 [verbose] > │ | US5_6 of f6_0 : US4 │
│ │ │
│ 00:00:12 #113 [verbose] > │ | US5_7 of f7_0 : US4 │
│ │ │
│ 00:00:12 #114 [verbose] > │ | US5_8 of f8_0 : US4 │
│ │ │
│ 00:00:12 #115 [verbose] > │ | US5_9 of f9_0 : US4 │
│ │ │
│ 00:00:12 #116 [verbose] > │ | US5_10 of f10_0 : US4 │
│ │ │
│ 00:00:12 #117 [verbose] > │ | US5_11 of f11_0 : US4 │
│ │ │
│ 00:00:12 #118 [verbose] > │ | US5_12 of f12_0 : US4 │
│ │ │
│ 00:00:12 #119 [verbose] > │ | US5_13 of f13_0 : US4 │
│ │ │
│ 00:00:12 #120 [verbose] > │ | US5_14 of f14_0 : US4 │
│ │ │
│ 00:00:12 #121 [verbose] > │ | US5_15 of f15_0 : US4 │
│ │ │
│ 00:00:12 #122 [verbose] > │ let rec closure0 () () : unit = │
│ │ │
│ 00:00:12 #123 [verbose] > │ let v0 : US0 = US0_0 │
│ │ │
│ 00:00:12 #124 [verbose] > │ let v1 : US1 = US1_1 │
│ │ │
│ 00:00:12 #125 [verbose] > │ let v2 : US2 = US2_1 │
│ │ │
│ 00:00:12 #126 [verbose] > │ let v3 : US3 = US3_0 │
│ │ │
│ 00:00:12 #127 [verbose] > │ let v4 : US4 = US4_0(v0, v1, v2, v3) │
│ │ │
│ 00:00:12 #128 [verbose] > │ let v5 : US5 = US5_0(v4) │
│ │ │
│ 00:00:12 #129 [verbose] > │ let v6 : (US5 []) = [|v5|] │
│ │ │
│ 00:00:12 #130 [verbose] > │ let v7 : string = $"%A{v6}" │
│ │ │
│ 00:00:12 #131 [verbose] > │ System.Console.WriteLine v7 │
│ │ │
│ 00:00:12 #132 [verbose] > │ () │
│ │ │
│ 00:00:12 #133 [verbose] > │ let v0 : (unit -> unit) = closure0() │
│ │ │
│ 00:00:12 #134 [verbose] > │ v0 () │
│ │ │
│ 00:00:12 #135 [verbose] > │ () │
│ │ │
│ 00:00:12 #136 [verbose] > │ │
│ │
│ │ │
│ 00:00:12 #137 [verbose] > │ [|US5_0 (US4_0 (US0_0, US1_1, US2_1, US3_0))|] │
│ │ │
│ 00:00:12 #138 [verbose] > │ │
│ │
│ │ │
│ 00:00:12 #139 [verbose] > │
│ ╰─────────────────────────────────────────────────────────────────────────── │
│ ───╯ │
│ 00:00:12 #140 [verbose] > │
│ 00:00:12 #141 [verbose] > ── fsharp │
│ ────────────────────────────────────────────────────────────────────── │
│ 00:00:12 #142 [verbose] > type PhonologicalFeature = │
│ 00:00:12 #143 [verbose] > | VowelFeature of │
│ 00:00:12 #144 [verbose] > height: Height │
│ 00:00:12 #145 [verbose] > * backness: Backness │
│ 00:00:12 #146 [verbose] > * roundedness: Roundedness │
│ 00:00:12 #147 [verbose] > * tone: Option<Tone> │
│ 00:00:12 #148 [verbose] > * stress: Option<Stress> │
│ 00:00:12 #149 [verbose] > * length: Option<Length> │
│ 00:00:12 #150 [verbose] > | ConsonantFeature of │
│ 00:00:12 #151 [verbose] > place: PlaceOfArticulation │
│ 00:00:12 #152 [verbose] > * manner: MannerOfArticulation │
│ 00:00:12 #153 [verbose] > * voicing: Voicing │
│ 00:00:12 #154 [verbose] > * length: Option<Length> │
│ 00:00:12 #155 [verbose] > | VowelHarmonyFeature │
│ 00:00:12 #156 [verbose] > | PitchAccentFeature │
│ 00:00:12 #157 [verbose] > │
│ 00:00:12 #158 [verbose] > and Stress = Primary | Secondary │
│ 00:00:12 #159 [verbose] > and Length = Long | Short | HalfLong │
│ 00:00:12 #160 [verbose] > │
│ 00:00:12 #161 [verbose] > and Height = │
│ 00:00:12 #162 [verbose] > | High | NearHigh | HighMid │
│ 00:00:12 #163 [verbose] > | Mid | LowMid | NearLow │
│ 00:00:12 #164 [verbose] > | Low │
│ 00:00:12 #165 [verbose] > │
│ 00:00:12 #166 [verbose] > and Backness = Front | Central | Back │
│ 00:00:12 #167 [verbose] > │
│ 00:00:12 #168 [verbose] > and Roundedness = Rounded | Unrounded │
│ 00:00:12 #169 [verbose] > │
│ 00:00:12 #170 [verbose] > and PlaceOfArticulation = │
│ 00:00:12 #171 [verbose] > | Bilabial | Labiodental | Dental │
│ 00:00:12 #172 [verbose] > | Alveolar | Postalveolar | Retroflex │
│ 00:00:12 #173 [verbose] > | Palatal | Velar | Uvular │
│ 00:00:12 #174 [verbose] > | Pharyngeal | Epiglottal | Glottal │
│ 00:00:12 #175 [verbose] > │
│ 00:00:12 #176 [verbose] > and MannerOfArticulation = │
│ 00:00:12 #177 [verbose] > | Plosive | Nasal | Trill │
│ 00:00:12 #178 [verbose] > | TapOrFlap | Fricative | LateralFricative │
│ 00:00:12 #179 [verbose] > | Approximant | LateralApproximant │
│ 00:00:12 #180 [verbose] > │
│ 00:00:12 #181 [verbose] > and Voicing = Voiced | Voiceless │
│ 00:00:12 #182 [verbose] > │
│ 00:00:12 #183 [verbose] > and SecondaryArticulation = │
│ 00:00:12 #184 [verbose] > | Labialization | Palatalization | │
│ Velarization │
│ 00:00:12 #185 [verbose] > | Pharyngealization | Aspiration │
│ 00:00:12 #186 [verbose] > │
│ 00:00:12 #187 [verbose] > and Tone = │
│ 00:00:12 #188 [verbose] > | LevelTone of int │
│ 00:00:12 #189 [verbose] > | ContourTone of int list │
│ 00:00:12 #190 [verbose] > │
│ 00:00:12 #191 [verbose] > and MorphologicalFeature = │
│ 00:00:12 #192 [verbose] > | RootFeature of string │
│ 00:00:12 #193 [verbose] > | AffixFeature of AffixType * string │
│ 00:00:12 #194 [verbose] > | IncorporationFeature of string * │
│ MorphologicalFeature │
│ 00:00:12 #195 [verbose] > | NonConcatenativePattern of string * string │
│ 00:00:12 #196 [verbose] > | AgglutinativeAffixFeature of │
│ AgglutinativeAffixType * string │
│ 00:00:12 #197 [verbose] > | HonorificFeature of HonorificType * string │
│ 00:00:12 #198 [verbose] > │
│ 00:00:12 #199 [verbose] > and AgglutinativeAffixType = Suffix | Prefix │
│ 00:00:12 #200 [verbose] > │
│ 00:00:12 #201 [verbose] > and HonorificType = VerbHonorific | NounHonorific │
│ 00:00:12 #202 [verbose] > │
│ 00:00:12 #203 [verbose] > and AffixType = │
│ 00:00:12 #204 [verbose] > | Prefix | Suffix | Infix │
│ 00:00:12 #205 [verbose] > | Circumfix │
│ 00:00:12 #206 [verbose] > │
│ 00:00:12 #207 [verbose] > type SyntacticFeature = │
│ 00:00:12 #208 [verbose] > | WordFeature of MorphologicalFeature list * │
│ LexicalCategory │
│ 00:00:12 #209 [verbose] > | PhraseFeature of PhraseType * │
│ SyntacticFeature list │
│ 00:00:12 #210 [verbose] > | GrammaticalRelation of │
│ GrammaticalRelationType * SyntacticFeature list │
│ 00:00:12 #211 [verbose] > | SOVOrderFeature │
│ 00:00:12 #212 [verbose] > | TopicCommentFeature │
│ 00:00:12 #213 [verbose] > │
│ 00:00:12 #214 [verbose] > and GrammaticalRelationType = │
│ 00:00:12 #215 [verbose] > | Ergative | Absolutive | Nominative │
│ 00:00:12 #216 [verbose] > | Accusative │
│ 00:00:12 #217 [verbose] > │
│ 00:00:12 #218 [verbose] > and LexicalCategory = │
│ 00:00:12 #219 [verbose] > | Noun | Verb | Adjective │
│ 00:00:12 #220 [verbose] > | Adverb | Pronoun | Preposition │
│ 00:00:12 #221 [verbose] > | Conjunction | Determiner | Interjection │
│ 00:00:12 #222 [verbose] > │
│ 00:00:12 #223 [verbose] > and PhraseType = │
│ 00:00:12 #224 [verbose] > | NP | VP | AP │
│ 00:00:12 #225 [verbose] > | PP | CP │
│ 00:00:12 #226 [verbose] > │
│ 00:00:12 #227 [verbose] > and SemanticFeature = │
│ 00:00:12 #228 [verbose] > | Meaning of string │
│ 00:00:12 #229 [verbose] > | SemanticRole of SemanticRoleType * │
│ SemanticFeature │
│ 00:00:12 #230 [verbose] > │
│ 00:00:12 #231 [verbose] > and SemanticRoleType = │
│ 00:00:12 #232 [verbose] > | Agent | Patient | Instrument │
│ 00:00:12 #233 [verbose] > | Location | Time | Cause │
│ 00:00:12 #234 [verbose] > │
│ 00:00:12 #235 [verbose] > and PragmaticFeature = │
│ 00:00:12 #236 [verbose] > | UseContext of string │
│ 00:00:12 #237 [verbose] > | PolitenessLevel of Politeness │
│ 00:00:12 #238 [verbose] > | SpeechAct of SpeechActType │
│ 00:00:12 #239 [verbose] > | SpeechLevel of SpeechLevelType │
│ 00:00:12 #240 [verbose] > │
│ 00:00:12 #241 [verbose] > and Politeness = Formal | Informal | Neutral │
│ 00:00:12 #242 [verbose] > │
│ 00:00:12 #243 [verbose] > and SpeechActType = │
│ 00:00:12 #244 [verbose] > | Assertive | Directive | Commissive │
│ 00:00:12 #245 [verbose] > | Expressive | Declarative │
│ 00:00:12 #246 [verbose] > │
│ 00:00:12 #247 [verbose] > and SpeechLevelType = │
│ 00:00:12 #248 [verbose] > | FormalHigh | FormalLow | InformalHigh │
│ 00:00:12 #249 [verbose] > | InformalLow | Neutral │
│ 00:00:12 #250 [verbose] > │
│ 00:00:12 #251 [verbose] > type LinguisticFeature = │
│ 00:00:12 #252 [verbose] > | Phonological of PhonologicalFeature │
│ 00:00:12 #253 [verbose] > | Morphological of MorphologicalFeature │
│ 00:00:12 #254 [verbose] > | Syntactic of SyntacticFeature │
│ 00:00:12 #255 [verbose] > | Semantic of SemanticFeature │
│ 00:00:12 #256 [verbose] > | Pragmatic of PragmaticFeature │
│ 00:00:12 #257 [verbose] > │
│ 00:00:12 #258 [verbose] > type LanguageConstruct = │
│ 00:00:12 #259 [verbose] > | LanguageElement of LinguisticFeature │
│ 00:00:12 #260 [verbose] > | LanguageStructure of LanguageConstruct list │
│ 00:00:12 #261 [verbose] > | TranslationElement of TranslationFeature │
│ 00:00:12 #262 [verbose] > │
│ 00:00:12 #263 [verbose] > and TranslationFeature = │
│ 00:00:12 #264 [verbose] > | LinkedPhonological of PhonologicalFeature * │
│ PhonologicalFeature │
│ 00:00:12 #265 [verbose] > | LinkedMorphological of MorphologicalFeature │
│ * MorphologicalFeature │
│ 00:00:12 #266 [verbose] > | LinkedSyntactic of SyntacticFeature * │
│ SyntacticFeature │
│ 00:00:12 #267 [verbose] > | LinkedSemantic of SemanticFeature * │
│ SemanticFeature │
│ 00:00:12 #268 [verbose] > │
│ 00:00:12 #269 [verbose] > type Discourse = DiscourseUnit of │
│ LanguageConstruct list │
│ 00:00:12 #270 [verbose] > │
│ 00:00:12 #271 [verbose] > type LanguageModel = │
│ 00:00:12 #272 [verbose] > | Model of discourse: Discourse │
│ 00:00:12 #273 [verbose] > │
│ 00:00:12 #274 [verbose] > ── fsharp - import │
│ ───────────────────────────────────────────────────────────── │
│ 00:00:12 #275 [verbose] > #r │
│ 00:00:12 #276 [verbose] > │
│ "C:/Users/i574n/.nuget/packages/dotnet-repl/0.1.204/tools/net7.0/any/Microso │
│ ft.A │
│ 00:00:12 #277 [verbose] > spNetCore.Html.Abstractions.dll" │
│ 00:00:12 #278 [verbose] > #r │
│ 00:00:12 #279 [verbose] > │
│ "C:/Users/i574n/.nuget/packages/dotnet-repl/0.1.204/tools/net7.0/any/Microso │
│ ft.D │
│ 00:00:12 #280 [verbose] > otNet.Interactive.dll" │
│ 00:00:12 #281 [verbose] > #r │
│ 00:00:12 #282 [verbose] > │
│ "C:/Users/i574n/.nuget/packages/dotnet-repl/0.1.204/tools/net7.0/any/Microso │
│ ft.D │
│ 00:00:12 #283 [verbose] > otNet.Interactive.FSharp.dll" │
│ 00:00:12 #284 [verbose] > #r │
│ 00:00:12 #285 [verbose] > │
│ "C:/Users/i574n/.nuget/packages/dotnet-repl/0.1.204/tools/net7.0/any/Microso │
│ ft.D │
│ 00:00:12 #286 [verbose] > otNet.Interactive.Formatting.dll" │
│ 00:00:12 #287 [verbose] > open System │
│ 00:00:12 #288 [verbose] > open System.IO │
│ 00:00:12 #289 [verbose] > open System.Text │
│ 00:00:12 #290 [verbose] > open Microsoft.DotNet.Interactive.Formatting │
│ 00:00:13 #291 [verbose] > │
│ 00:00:13 #292 [verbose] > ── fsharp - import │
│ ───────────────────────────────────────────────────────────── │
│ 00:00:13 #293 [verbose] > #r │
│ 00:00:13 #294 [verbose] > │
│ "C:/Users/i574n/.nuget/packages/dotnet-repl/0.1.204/tools/net7.0/any/Microso │
│ ft.D │
│ 00:00:13 #295 [verbose] > otNet.Interactive.FSharp.dll" │
│ 00:00:13 #296 [verbose] > open │
│ Microsoft.DotNet.Interactive.FSharp.FSharpKernelHelpers │
│ 00:00:13 #297 [verbose] > #r │
│ 00:00:13 #298 [verbose] > │
│ "C:/Users/i574n/.nuget/packages/dotnet-repl/0.1.204/tools/net7.0/any/Microso │
│ ft.D │
│ 00:00:13 #299 [verbose] > otNet.Interactive.dll" │
│ 00:00:13 #300 [verbose] > open type Microsoft.DotNet.Interactive.Kernel │
│ 00:00:13 #301 [verbose] > │
│ 00:00:13 #302 [verbose] > ── fsharp - import │
│ ───────────────────────────────────────────────────────────── │
│ 00:00:13 #303 [verbose] > type PhonologicalFeature = │
│ 00:00:13 #304 [verbose] > | VowelFeature of │
│ 00:00:13 #305 [verbose] > height: Height │
│ 00:00:13 #306 [verbose] > * backness: Backness │
│ 00:00:13 #307 [verbose] > * roundedness: Roundedness │
│ 00:00:13 #308 [verbose] > * tone: Option<Tone> │
│ 00:00:13 #309 [verbose] > * stress: Option<Stress> │
│ 00:00:13 #310 [verbose] > * length: Option<Length> │
│ 00:00:13 #311 [verbose] > | ConsonantFeature of │
│ 00:00:13 #312 [verbose] > place: PlaceOfArticulation │
│ 00:00:13 #313 [verbose] > * manner: MannerOfArticulation │
│ 00:00:13 #314 [verbose] > * voicing: Voicing │
│ 00:00:13 #315 [verbose] > * length: Option<Length> │
│ 00:00:13 #316 [verbose] > | VowelHarmonyFeature │
│ 00:00:13 #317 [verbose] > | PitchAccentFeature │
│ 00:00:13 #318 [verbose] > │
│ 00:00:13 #319 [verbose] > and Stress = Primary | Secondary │
│ 00:00:13 #320 [verbose] > and Length = Long | Short | HalfLong │
│ 00:00:13 #321 [verbose] > │
│ 00:00:13 #322 [verbose] > and Height = │
│ 00:00:13 #323 [verbose] > | High | NearHigh | HighMid │
│ 00:00:13 #324 [verbose] > | Mid | LowMid | NearLow │
│ 00:00:13 #325 [verbose] > | Low │
│ 00:00:13 #326 [verbose] > │
│ 00:00:13 #327 [verbose] > and Backness = Front | Central | Back │
│ 00:00:13 #328 [verbose] > │
│ 00:00:13 #329 [verbose] > and Roundedness = Rounded | Unrounded │
│ 00:00:13 #330 [verbose] > │
│ 00:00:13 #331 [verbose] > and PlaceOfArticulation = │
│ 00:00:13 #332 [verbose] > | Bilabial | Labiodental | Dental │
│ 00:00:13 #333 [verbose] > | Alv... │
│ 00:00:14 #334 [verbose] > │
│ 00:00:14 #335 [verbose] > ── fsharp │
│ ────────────────────────────────────────────────────────────────────── │
│ 00:00:14 #336 [verbose] > let testEnglish = │
│ 00:00:14 #337 [verbose] > Model( │
│ 00:00:14 #338 [verbose] > DiscourseUnit [[ │
│ 00:00:14 #339 [verbose] > LanguageElement (Phonological │
│ (ConsonantFeature (Alveolar, Nasal, │
│ 00:00:14 #340 [verbose] > Voiced, Some(HalfLong)))); │
│ 00:00:14 #341 [verbose] > LanguageElement (Phonological │
│ (VowelFeature (High, Front, Unrounded, │
│ 00:00:14 #342 [verbose] > Some(LevelTone 1), Some(Primary), Some(Short)))); │
│ 00:00:14 #343 [verbose] > LanguageElement (Phonological │
│ (VowelFeature (Low, Front, Unrounded, │
│ 00:00:14 #344 [verbose] > Some(LevelTone 2), Some(Secondary), Some(Long)))); │
│ 00:00:14 #345 [verbose] > LanguageElement (Phonological │
│ (ConsonantFeature (Velar, Plosive, │
│ 00:00:14 #346 [verbose] > Voiceless, Some(HalfLong)))); │
│ 00:00:14 #347 [verbose] > LanguageElement (Morphological │
│ (RootFeature "I")); │
│ 00:00:14 #348 [verbose] > LanguageElement (Morphological │
│ (RootFeature "see")); │
│ 00:00:14 #349 [verbose] > LanguageElement (Morphological │
│ (RootFeature "a")); │
│ 00:00:14 #350 [verbose] > LanguageElement (Morphological │
│ (RootFeature "cat")); │
│ 00:00:14 #351 [verbose] > LanguageElement (Syntactic │
│ (PhraseFeature (NP, [[WordFeature │
│ 00:00:14 #352 [verbose] > ([[RootFeature "I"]], Pronoun)]]))); │
│ 00:00:14 #353 [verbose] > LanguageElement (Syntactic │
│ (PhraseFeature (VP, [[WordFeature │
│ 00:00:14 #354 [verbose] > ([[RootFeature "see"]], Verb)]]))); │
│ 00:00:14 #355 [verbose] > LanguageElement (Syntactic │
│ (PhraseFeature (NP, [[WordFeature │
│ 00:00:14 #356 [verbose] > ([[RootFeature "a"; RootFeature "cat"]], │
│ Noun)]]))); │
│ 00:00:14 #357 [verbose] > LanguageElement (Semantic (Meaning │
│ "Perception act of a feline by │
│ 00:00:14 #358 [verbose] > the speaker")); │
│ 00:00:14 #359 [verbose] > LanguageElement (Pragmatic (UseContext │
│ "Statement of an action being │
│ 00:00:14 #360 [verbose] > observed")) │
│ 00:00:14 #361 [verbose] > ]] │
│ 00:00:14 #362 [verbose] > ) │
│ 00:00:14 #363 [verbose] > │
│ 00:00:14 #364 [verbose] > let testPortuguese = │
│ 00:00:14 #365 [verbose] > Model( │
│ 00:00:14 #366 [verbose] > DiscourseUnit [[ │
│ 00:00:14 #367 [verbose] > LanguageElement (Phonological │
│ (VowelFeature (High, Front, Unrounded, │
│ 00:00:14 #368 [verbose] > Some(LevelTone 1), Some(Primary), Some(Short)))); │
│ 00:00:14 #369 [verbose] > LanguageElement (Phonological │
│ (VowelFeature (Low, Front, Unrounded, │
│ 00:00:14 #370 [verbose] > Some(LevelTone 2), Some(Secondary), Some(Long)))); │
│ 00:00:14 #371 [verbose] > LanguageElement (Phonological │
│ (VowelFeature (Mid, Back, Rounded, │
│ 00:00:14 #372 [verbose] > Some(LevelTone 3), Some(Primary), Some(Short)))); │
│ 00:00:14 #373 [verbose] > LanguageElement (Phonological │
│ (ConsonantFeature (Velar, Plosive, │
│ 00:00:14 #374 [verbose] > Voiceless, Some(HalfLong)))); │
│ 00:00:14 #375 [verbose] > LanguageElement (Morphological │
│ (RootFeature "Eu")); │
│ 00:00:14 #376 [verbose] > LanguageElement (Morphological │
│ (RootFeature "ver" |> ignore; │
│ 00:00:14 #377 [verbose] > AffixFeature (Suffix, "o"))); │
│ 00:00:14 #378 [verbose] > LanguageElement (Morphological │
│ (RootFeature "um")); │
│ 00:00:14 #379 [verbose] > LanguageElement (Morphological │
│ (RootFeature "gato")); │
│ 00:00:14 #380 [verbose] > LanguageElement (Syntactic │
│ (PhraseFeature (NP, [[WordFeature │
│ 00:00:14 #381 [verbose] > ([[RootFeature "Eu"]], Pronoun)]]))); │
│ 00:00:14 #382 [verbose] > LanguageElement (Syntactic │
│ (PhraseFeature (VP, [[WordFeature │
│ 00:00:14 #383 [verbose] > ([[RootFeature "vejo"]], Verb)]]))); │
│ 00:00:14 #384 [verbose] > LanguageElement (Syntactic │
│ (PhraseFeature (NP, [[WordFeature │
│ 00:00:14 #385 [verbose] > ([[RootFeature "um"; RootFeature "gato"]], │
│ Noun)]]))); │
│ 00:00:14 #386 [verbose] > LanguageElement (Semantic (Meaning │
│ "Ação de percepção de um felino │
│ 00:00:14 #387 [verbose] > pelo falante")); │
│ 00:00:14 #388 [verbose] > LanguageElement (Pragmatic (UseContext │
│ "Declaração de uma ação sendo │
│ 00:00:14 #389 [verbose] > observada")) │
│ 00:00:14 #390 [verbose] > ]] │
│ 00:00:14 #391 [verbose] > ) │
│ 00:00:14 #392 [verbose] > │
│ 00:00:14 #393 [verbose] > let testKorean = │
│ 00:00:14 #394 [verbose] > Model( │
│ 00:00:14 #395 [verbose] > DiscourseUnit [[ │
│ 00:00:14 #396 [verbose] > LanguageElement (Phonological │
│ (ConsonantFeature (Alveolar, Nasal, │
│ 00:00:14 #397 [verbose] > Voiced, Some(Short)))); │
│ 00:00:14 #398 [verbose] > LanguageElement (Phonological │
│ (VowelFeature (High, Back, Rounded, │
│ 00:00:14 #399 [verbose] > None, None, Some(Short)))); │
│ 00:00:14 #400 [verbose] > LanguageElement (Phonological │
│ (VowelFeature (Mid, Front, Unrounded, │
│ 00:00:14 #401 [verbose] > None, None, Some(Long)))); │
│ 00:00:14 #402 [verbose] > LanguageElement (Phonological │
│ (ConsonantFeature (Bilabial, Plosive, │
│ 00:00:14 #403 [verbose] > Voiceless, Some(Short)))); │
│ 00:00:14 #404 [verbose] > LanguageElement (Morphological │
│ (RootFeature "나")); │
│ 00:00:14 #405 [verbose] > LanguageElement (Morphological │
│ (RootFeature "보다")); │
│ 00:00:14 #406 [verbose] > LanguageElement (Morphological │
│ (AffixFeature (Suffix, "아"))); │
│ 00:00:14 #407 [verbose] > LanguageElement (Morphological │
│ (RootFeature "고양이")); │
│ 00:00:14 #408 [verbose] > LanguageElement (Syntactic │
│ (PhraseFeature (NP, [[WordFeature │
│ 00:00:14 #409 [verbose] > ([[RootFeature "나"]], Pronoun)]]))); │
│ 00:00:14 #410 [verbose] > LanguageElement (Syntactic │
│ (PhraseFeature (VP, [[WordFeature │
│ 00:00:14 #411 [verbose] > ([[RootFeature "보다"; AffixFeature (Suffix, │
│ "아")]], Verb)]]))); │
│ 00:00:14 #412 [verbose] > LanguageElement (Syntactic │
│ (PhraseFeature (NP, [[WordFeature │
│ 00:00:14 #413 [verbose] > ([[RootFeature "고양이"]], Noun)]]))); │
│ 00:00:14 #414 [verbose] > LanguageElement (Semantic (Meaning │
│ "화자에 의한 고양이의 관찰 │
│ 00:00:14 #415 [verbose] > 행위")); │
│ 00:00:14 #416 [verbose] > LanguageElement (Pragmatic (UseContext │
│ "관찰되고 있는 행동의 진술")) │
│ 00:00:14 #417 [verbose] > ]] │
│ 00:00:14 #418 [verbose] > ) │
│ 00:00:14 #419 [verbose] > │
│ 00:00:14 #420 [verbose] > ── markdown │
│ ──────────────────────────────────────────────────────────────────── │
│ 00:00:14 #421 [verbose] > │
│ ╭─────────────────────────────────────────────────────────────────────────── │
│ ───╮ │
│ 00:00:14 #422 [verbose] > │ ## main │
│ │ │
│ 00:00:14 #423 [verbose] > │
│ ╰─────────────────────────────────────────────────────────────────────────── │
│ ───╯ │
│ 00:00:14 #424 [verbose] > │
│ 00:00:14 #425 [verbose] > ── spiral │
│ ────────────────────────────────────────────────────────────────────── │
│ 00:00:14 #426 [verbose] > inl main (_args : array_base string) = │
│ 00:00:14 #427 [verbose] > 0i32 │
│ 00:00:14 #428 [verbose] > │
│ 00:00:14 #429 [verbose] > inl main () = │
│ 00:00:14 #430 [verbose] > $"let main args = !main args" : () │
│ 00:00:14 #431 [verbose] > Building │
│ c:\home\git\polyglot\target\polyglot\spiral_eval\packages\c48d29976c738797f6 │
│ 0d78b6a562dc599537d1a8d03c8800ac0a97a2fe76010b\main.spi │
│ 00:00:15 #432 [verbose] > │
│ 00:00:15 #433 [verbose] > ╭─[ 340.54ms - stdout │
│ ]────────────────────────────────────────────────────────╮ │
│ 00:00:15 #434 [verbose] > │ let rec closure0 () (v0 : (string [])) : int32 = │
│ │ │
│ 00:00:15 #435 [verbose] > │ 0 │
│ │ │
│ 00:00:15 #436 [verbose] > │ let v0 : ((string []) -> int32) = closure0() │
│ │ │
│ 00:00:15 #437 [verbose] > │ let main args = v0 args │
│ │ │
│ 00:00:15 #438 [verbose] > │ () │
│ │ │
│ 00:00:15 #439 [verbose] > │ │
│ │
│ │ │
│ 00:00:15 #440 [verbose] > │ │
│ │
│ │ │
│ 00:00:15 #441 [verbose] > │
│ ╰─────────────────────────────────────────────────────────────────────────── │
│ ───╯ │
│ 00:00:15 #442 [verbose] > │
│ 00:00:15 #443 [verbose] > ── spiral │
│ ────────────────────────────────────────────────────────────────────── │
│ 00:00:15 #444 [verbose] > inl app () = │
│ 00:00:15 #445 [verbose] > "test" |> console.write_line │
│ 00:00:15 #446 [verbose] > 0i32 │
│ 00:00:15 #447 [verbose] > │
│ 00:00:15 #448 [verbose] > inl main () = │
│ 00:00:15 #449 [verbose] > print_static "<test>" │
│ 00:00:15 #450 [verbose] > │
│ 00:00:15 #451 [verbose] > app │
│ 00:00:15 #452 [verbose] > |> dyn │
│ 00:00:15 #453 [verbose] > |> ignore │
│ 00:00:15 #454 [verbose] > │
│ 00:00:15 #455 [verbose] > print_static "</test>" │
│ 00:00:15 #456 [verbose] > Building │
│ c:\home\git\polyglot\target\polyglot\spiral_eval\packages\f2a26ff16fa94575d7 │
│ a83b8902f448f147da946998ab596089706721c4cc373e\main.spi │
│ 00:00:15 #457 [verbose] > <test> │
│ 00:00:15 #458 [verbose] > </test> │
│ 00:00:15 #459 [verbose] > │
│ 00:00:15 #460 [verbose] > ╭─[ 371.19ms - stdout │
│ ]────────────────────────────────────────────────────────╮ │
│ 00:00:15 #461 [verbose] > │ let rec closure0 () () : int32 = │
│ │ │
│ 00:00:15 #462 [verbose] > │ let v0 : string = "test" │
│ │ │
│ 00:00:15 #463 [verbose] > │ System.Console.WriteLine v0 │
│ │ │
│ 00:00:15 #464 [verbose] > │ 0 │
│ │ │
│ 00:00:15 #465 [verbose] > │ let v0 : (unit -> int32) = closure0() │
│ │ │
│ 00:00:15 #466 [verbose] > │ () │
│ │ │
│ 00:00:15 #467 [verbose] > │ │
│ │
│ │ │
│ 00:00:15 #468 [verbose] > │ │
│ │
│ │ │
│ 00:00:15 #469 [verbose] > │
│ ╰─────────────────────────────────────────────────────────────────────────── │
│ ───╯ │
│ 00:00:17 #470 [verbose] > [NbConvertApp] Converting notebook test.dib.ipynb │
│ to html │
│ 00:00:17 #471 [verbose] > │
│ C:\Users\i574n\scoop\apps\python\current\Lib\site-packages\nbformat\__init__ │
│ .py:93: MissingIDFieldWarning: Code cell is missing an id field, this will │
│ become a hard error in future nbformat versions. You may want to use │
│ `normalize()` on your notebooks before validations (available since nbformat │
│ 5.1.4). Previous versions of nbformat are fixing this issue transparently, │
│ and will stop doing so in the future. │
│ 00:00:17 #472 [verbose] > validate(nb) │
│ 00:00:18 #473 [verbose] > │
│ C:\Users\i574n\scoop\apps\python\current\Lib\site-packages\nbconvert\filters │
│ \highlight.py:71: UserWarning: IPython3 lexer unavailable, falling back on │
│ Python 3 │
│ 00:00:18 #474 [verbose] > return _pygments_highlight( │
│ 00:00:18 #475 [verbose] > [NbConvertApp] Writing 321504 bytes to │
│ test.dib.html │
│ 00:00:19 #476 [debug] execute_with_options_async / exit_code: 0 / │
│ output.Length: 19236 │
│ 00:00:19 #6 [debug] main / executeCommand / exitCode: 0 │
│ 00:00:21 #7 [debug] runWithTimeoutChildAsync / timeout: 2000 │
│ │
╰──────────────────────────────────────────────────────────────────────────────╯
── pwsh ────────────────────────────────────────────────────────────────────────
{ . ../../../../apps/parser/dist/DibParser$(GetExecutableSuffix) test.dib spi }
| Invoke-Block
╭─[ 488.33ms - stdout ]────────────────────────────────────────────────────────╮
│ 00:00:00 #1 [debug] writeDibCode / output: Spi / path: test.dib │
│ 00:00:00 #2 [debug] parseDibCode / output: Spi / file: test.dib │
│ │
╰──────────────────────────────────────────────────────────────────────────────╯
── pwsh ────────────────────────────────────────────────────────────────────────
{ . ../../../../apps/spiral/dist/Supervisor$(GetExecutableSuffix) --build-file
test.spi test.fsx --timeout 10000 } | Invoke-Block
╭─[ 7.08s - stdout ]───────────────────────────────────────────────────────────╮
│ 00:00:00 #1 [debug] runWithTimeoutChildAsync / timeout: 60 │
│ 00:00:00 #1 [debug] execute_with_options_async / options: struct (Some │
│ System.Threading.CancellationToken, │
│ "dotnet "C:\home\git\polyglot\deps\The-Spiral-Language\The Spiral │
│ Language 2\artifacts\bin\The Spiral Language 2\release\Spiral.dll" --port │
│ 13805 --default-int i32 --default-float f64", │
│ Some <fun:main@439-43>, None, None) │
│ 00:00:00 #2 [verbose] > pwd: C:\home\git\polyglot\apps\spiral\temp\test │
│ 00:00:00 #3 [verbose] > dllPath: │
│ C:\home\git\polyglot\deps\The-Spiral-Language\The Spiral Language │
│ 2\artifacts\bin\The Spiral Language 2\release │
│ 00:00:00 #4 [verbose] > targetDir: │
│ C:\home\git\polyglot\target/polyglot/spiral_eval │
│ 00:00:00 #5 [verbose] > Starting the Spiral Server. It is bound to: │
│ http://localhost:13805 │
│ 00:00:00 #2 [debug] runWithTimeoutChildAsync / timeout: 500 │
│ 00:00:00 #3 [verbose] waitForPortAccess / port: 13805 / retry: 0 │
│ 00:00:01 #4 [debug] sendJson / port: 13805 / json: {"Ping":true} / │
│ result.Length: │
│ 00:00:01 #5 [verbose] awaitCompiler / Ping / result: Some(null) / port: │
│ 13805 / retry: 0 │
│ 00:00:01 #6 [verbose] > Server bound to: http://localhost:13805 │
│ 00:00:01 #6 [debug] runWithTimeoutChildAsync / timeout: 60 │
│ 00:00:01 #7 [debug] buildFile / takeWhileInclusive / fsxContent: / errors: │
│ [] / typeErrorCount: 0 │
│ 00:00:01 #8 [debug] buildFile / takeWhileInclusive / fsxContent: / errors: │
│ [] / typeErrorCount: 0 │
│ 00:00:01 #9 [debug] sendJson / port: 13805 / json: │
│ {"FileOpen":{"spiText":"// // # test (Polyglot)\n\nnominal i = ()\nnominal e │
│ = ()\nnominal s = ()\nnominal n = ()\nnominal t = ()\nnominal f = │
│ ()\nnominal j = ()\nnominal p = ()\n\nunion sensing =\n | Si : s * i\n │
│ | Se : s * e\n\nunion intuition =\n | Ni : n * i\n | Ne : n * │
│ e\n\nunion thinking =\n | Ti : t * i\n | Te : t * e\n\nunion feeling │
│ =\n | Fi : f * i\n | Fe : f * e\n\nunion function_stack =\n | FS : │
│ sensing * intuition * thinking * feeling\n\nunion personality_type =\n | │
│ ISTJ : i * s * t * j * function_stack\n | ISFJ : i * s * f * j * │
│ function_stack\n | INFJ : i * n * f * j * function_stack\n | INTJ : i │
│ * n * t * j * function_stack\n | ISTP : i * s * t * p * function_stack\n │
│ | ISFP : i * s * f * p * function_stack\n | INFP : i * n * f * p * │
│ function_stack\n | INTP : i * n * t * p * function_stack\n | ESTP : e │
│ * s * t * p * function_stack\n | ESFP : e * s * f * p * function_stack\n │
│ | ENFP : e * n * f * p * function_stack\n | ENTP : e * n * t * p * │
│ function_stack\n | ESTJ : e * s * t * j * function_stack\n | ESFJ : e │
│ * s * f * j * function_stack\n | ENFJ : e * n * f * j * function_stack\n │
│ | ENTJ : e * n * t * j * function_stack\n\n\ninl main () =\n inl │
│ istj_stack = FS ((Si (s, i)), Ne (n, e), (Te (t, e)), (Fi (f, i)))\n inl │
│ istj_personality = ISTJ (i, s, t, j, istj_stack)\n // inl isfj_stack = FS │
│ ((Si (s, i)), Ne (n, e), (Fe (f, e)), (Ti (t, i)))\n // inl │
│ isfj_personality = ISFJ (i, s, f, j, isfj_stack)\n\n ;[\n │
│ istj_personality\n ]\n |\u003E fun x =\u003E │
│ $\u0027$\u0022%A{!x}\u0022\u0027 : string\n |\u003E │
│ console.write_line\n\ninl main () =\n $\u0022!main ()\u0022 : ()\n\n// // │
│ ## main\n\ninl main (_args : array_base string) =\n 0i32\n\ninl main () │
│ =\n $\u0022let main args = !main args\u0022 : ()\n\ninl app () =\n │
│ \u0022test\u0022 |\u003E console.write_line\n 0i32\n\ninl main () =\n │
│ print_static \u0022\u003Ctest\u003E\u0022\n\n app\n |\u003E dyn\n │
│ |\u003E ignore\n\n print_static │
│ \u0022\u003C/test\u003E\u0022\n","uri":"file:///c:/home/git/polyglot/apps/sp │
│ iral/temp/test/test.spi"}} / result.Length: │
│ 00:00:01 #10 [debug] sendJson / port: 13805 / json: │
│ {"BuildFile":{"backend":"Fsharp","uri":"file:///c:/home/git/polyglot/apps/sp │
│ iral/temp/test/test.spi"}} / result.Length: │
│ 00:00:02 #7 [verbose] > Building │
│ c:\home\git\polyglot\apps\spiral\temp\test\test.spi │
│ 00:00:02 #11 [debug] buildFile / takeWhileInclusive / fsxContent: / errors: │
│ [] / typeErrorCount: 0 │
│ 00:00:03 #12 [debug] buildFile / takeWhileInclusive / fsxContent: / errors: │
│ [] / typeErrorCount: 0 │
│ 00:00:04 #8 [verbose] > <test> │
│ 00:00:04 #9 [verbose] > </test> │
│ 00:00:04 #13 [debug] buildFile / takeWhileInclusive / fsxContent: let rec │
│ closure0 () () : int32 = │
│ let v0 : string = "test" │
│ System.Console.WriteLine v0 │
│ 0 │
│ let v0 : (unit -> int32) = closure0() │
│ () │
│ / errors: [] / typeErrorCount: 0 │
│ 00:00:04 #14 [debug] watchWithFilter / Disposing watch stream / filter: │
│ FileName, LastWrite │
│ 00:00:06 #15 [debug] runWithTimeoutChildAsync / timeout: 2000 │
│ │
╰──────────────────────────────────────────────────────────────────────────────╯
── pwsh ────────────────────────────────────────────────────────────────────────
dotnet fable --optimize --lang rs --extension .rs
╭─[ 2.97s - stdout ]───────────────────────────────────────────────────────────╮
│ Fable 4.14.0: F# to Rust compiler (status: alpha) │
│ │
│ Thanks to the contributor! @MNie │
│ Stand with Ukraine! https://standwithukraine.com.ua/ │
│ │
│ Parsing test.fsproj... │
│ Retrieving project options from cache, in case of issues run `dotnet fable │
│ clean` or try `--noCache` option. │
│ Project and references (1 source files) parsed in 178ms │
│ │
│ Started Fable compilation... │
│ │
│ Fable compilation finished in 1321ms │
│ │
│ .\test.fsx(6,0): (6,2) warning FABLE: For Rust, support for F# static and │
│ module do bindings is disabled by default. It can be enabled with the │
│ 'static_do_bindings' feature. Use at your own risk! │
│ │
╰──────────────────────────────────────────────────────────────────────────────╯
── pwsh ────────────────────────────────────────────────────────────────────────
(Get-Content test.rs) `
-replace [[regex]]::Escape("),);"), "));" `
| Set-Content test.rs
── pwsh ────────────────────────────────────────────────────────────────────────
cargo fmt --
── pwsh ────────────────────────────────────────────────────────────────────────
cargo build --release
╭─[ 34.05s - stdout ]──────────────────────────────────────────────────────────╮
│ Compiling cfg-if v1.0.0 │
│ Compiling once_cell v1.19.0 │
│ Compiling winapi v0.3.9 │
│ Compiling num-traits v0.2.18 │
│ Compiling ppv-lite86 v0.2.17 │
│ Compiling fastrand v2.0.2 │
│ Compiling syn v2.0.58 │
│ Compiling windows-sys v0.52.0 │
│ Compiling getrandom v0.2.14 │
│ Compiling rand_core v0.6.4 │
│ Compiling tracing-core v0.1.32 │
│ Compiling lazy_static v1.4.0 │
│ Compiling rand_chacha v0.3.1 │
│ Compiling libm v0.2.8 │
│ Compiling thiserror v1.0.58 │
│ Compiling overload v0.1.1 │
│ Compiling tempfile v3.10.1 │
│ Compiling quick-error v1.2.3 │
│ Compiling fnv v1.0.7 │
│ Compiling bit-vec v0.6.3 │
│ Compiling wait-timeout v0.2.0 │
│ Compiling log v0.4.21 │
│ Compiling bit-set v0.5.3 │
│ Compiling rusty-fork v0.3.0 │
│ Compiling tracing-log v0.2.0 │
│ Compiling rand v0.8.5 │
│ Compiling rand_xorshift v0.3.0 │
│ Compiling sharded-slab v0.1.7 │
│ Compiling thread_local v1.1.8 │
│ Compiling memchr v2.7.2 │
│ Compiling smallvec v1.13.2 │
│ Compiling unarray v0.1.4 │
│ Compiling nu-ansi-term v0.46.0 │
│ Compiling bitflags v2.5.0 │
│ Compiling minimal-lexical v0.2.1 │
│ Compiling regex-syntax v0.8.3 │
│ Compiling pin-project-lite v0.2.14 │
│ Compiling tracing-subscriber v0.3.18 │
│ Compiling fable_library_rust v0.1.0 │
│ (C:\home\git\polyglot\lib\rust\fable\fable_modules\fable-library-rust) │
│ Compiling nom v7.1.3 │
│ Compiling tracing-attributes v0.1.27 │
│ Compiling thiserror-impl v1.0.58 │
│ Compiling proptest v1.4.0 │
│ Compiling tracing v0.1.40 │
│ Compiling spiral_temp_test v0.0.1 │
│ (C:\home\git\polyglot\apps\spiral\temp\test) │
│ warning: unused import: `info` │
│ --> apps\spiral\temp\test\./main.rs:190:15 │
│ | │
│ 190 | use tracing::{info, Level}; │
│ | ^^^^ │
│ | │
│ = note: `#[warn(unused_imports)]` on by default │
│ │
│ warning: struct `Cart` is never constructed │
│ --> apps\spiral\temp\test\./main.rs:41:8 │
│ | │
│ 41 | struct Cart { │
│ | ^^^^ │
│ | │
│ = note: `#[warn(dead_code)]` on by default │
│ │
│ warning: associated items `new`, `add_item`, and `remove_item` are │
│ never used │
│ --> apps\spiral\temp\test\./main.rs:46:8 │
│ | │
│ 45 | impl Cart { │
│ | --------- associated items in this implementation │
│ 46 | fn new() -> Cart { │
│ | ^^^ │
│ ... │
│ 50 | fn add_item(&mut self, item: Item) { │
│ | ^^^^^^^^ │
│ ... │
│ 56 | fn remove_item(&mut self, item: &Item) { │
│ | ^^^^^^^^^^^ │
│ │
│ warning: function `parse_comment` is never used │
│ --> apps\spiral\temp\test\./main.rs:124:4 │
│ | │
│ 124 | fn parse_comment(input: &str) -> IResult<&str, SpiralToken> { │
│ | ^^^^^^^^^^^^^ │
│ │
│ warning: function `parse_string` is never used │
│ --> apps\spiral\temp\test\./main.rs:130:4 │
│ | │
│ 130 | fn parse_string(input: &str) -> IResult<&str, SpiralToken> { │
│ | ^^^^^^^^^^^^ │
│ │
│ warning: function `parse_identifier` is never used │
│ --> apps\spiral\temp\test\./main.rs:145:4 │
│ | │
│ 145 | fn parse_identifier(input: &str) -> IResult<&str, SpiralToken> {[ │
│ 0m │
│ | ^^^^^^^^^^^^^^^^ │
│ │
│ warning: function `parse_integer` is never used │
│ --> apps\spiral\temp\test\./main.rs:157:4 │
│ | │
│ 157 | fn parse_integer(input: &str) -> IResult<&str, SpiralToken> { │
│ | ^^^^^^^^^^^^^ │
│ │
│ warning: function `parse_operator` is never used │
│ --> apps\spiral\temp\test\./main.rs:165:4 │
│ | │
│ 165 | fn parse_operator(input: &str) -> IResult<&str, SpiralToken> { │
│ | ^^^^^^^^^^^^^^ │
│ │
│ warning: function `parse_token` is never used │
│ --> apps\spiral\temp\test\./main.rs:170:4 │
│ | │
│ 170 | fn parse_token(input: &str) -> IResult<&str, SpiralToken> { │
│ | ^^^^^^^^^^^ │
│ │
│ warning: function `format_token` is never used │
│ --> apps\spiral\temp\test\./main.rs:180:4 │
│ | │
│ 180 | fn format_token(token: &SpiralToken) -> String { │
│ | ^^^^^^^^^^^^ │
│ │
│ warning: function `parse_expression` is never used │
│ --> apps\spiral\temp\test\./main.rs:213:4 │
│ | │
│ 213 | fn parse_expression(input: &str) -> IResult<&str, SpiralToken> {[ │
│ 0m │
│ | ^^^^^^^^^^^^^^^^ │
│ │
│ warning: `spiral_temp_test` (bin "spiral_temp_test") generated 11 │
│ warnings (run `cargo fix --bin "spiral_temp_test"` to apply 1 suggestion) │
│ Finished `release` profile [optimized] target(s) in 33.88s │
│ │
╰──────────────────────────────────────────────────────────────────────────────╯
── pwsh ────────────────────────────────────────────────────────────────────────
$env:RUST_LOG="info"
{ cargo test --release } | Invoke-Block
╭─[ 41.27s - stdout ]──────────────────────────────────────────────────────────╮
│ Compiling once_cell v1.19.0 │
│ Compiling fastrand v2.0.2 │
│ Compiling winapi v0.3.9 │
│ Compiling log v0.4.21 │
│ Compiling windows-sys v0.52.0 │
│ Compiling wait-timeout v0.2.0 │
│ Compiling bit-vec v0.6.3 │
│ Compiling quick-error v1.2.3 │
│ Compiling fnv v1.0.7 │
│ Compiling overload v0.1.1 │
│ Compiling tracing-core v0.1.32 │
│ Compiling bit-set v0.5.3 │
│ Compiling thread_local v1.1.8 │
│ Compiling rand v0.8.5 │
│ Compiling num-traits v0.2.18 │
│ Compiling sharded-slab v0.1.7 │
│ Compiling rand_xorshift v0.3.0 │
│ Compiling regex-syntax v0.8.3 │
│ Compiling bitflags v2.5.0 │
│ Compiling tracing-log v0.2.0 │
│ Compiling minimal-lexical v0.2.1 │
│ Compiling tempfile v3.10.1 │
│ Compiling memchr v2.7.2 │
│ Compiling unarray v0.1.4 │
│ Compiling pin-project-lite v0.2.14 │
│ Compiling tracing v0.1.40 │
│ Compiling thiserror v1.0.58 │
│ Compiling fable_library_rust v0.1.0 │
│ (C:\home\git\polyglot\lib\rust\fable\fable_modules\fable-library-rust) │
│ Compiling rusty-fork v0.3.0 │
│ Compiling nu-ansi-term v0.46.0 │
│ Compiling nom v7.1.3 │
│ Compiling tracing-subscriber v0.3.18 │
│ Compiling proptest v1.4.0 │
│ Compiling spiral_temp_test v0.0.1 │
│ (C:\home\git\polyglot\apps\spiral\temp\test) │
│ Finished `release` profile [optimized] target(s) in 40.79s │
│ Running unittests main.rs │
│ (C:\home\git\polyglot\target\release\deps\spiral_temp_test-0d2f3cec294653b3. │
│ exe) │
│ │
│ running 3 tests │
│ test test_parse_number ... ok │
│ 2024-04-13T09:22:06.316889Z INFO spiral_temp_test: │
│ input=Integer(-109607184187022268) │
│ 2024-04-13T09:22:06.317094Z INFO spiral_temp_test: │
│ input=Comment("5|'zbC5M{?{/{P8KYg?IR") │
│ 2024-04-13T09:22:06.317161Z INFO spiral_temp_test: │
│ input=Integer(8283350519460581221) │
│ 2024-04-13T09:22:06.317187Z INFO spiral_temp_test: │
│ input=Integer(4638133289282396097) │
│ 2024-04-13T09:22:06.317233Z INFO spiral_temp_test: │
│ input=Operator("+") │
│ 2024-04-13T09:22:06.317305Z INFO spiral_temp_test: │
│ input=Identifier("jy06ox87gCoqE") │
│ 2024-04-13T09:22:06.317366Z INFO spiral_temp_test: │
│ input=Operator(")") │
│ 2024-04-13T09:22:06.317415Z INFO spiral_temp_test: │
│ input=Integer(-4248417145734118) │
│ 2024-04-13T09:22:06.317441Z INFO spiral_temp_test: │
│ input=Operator(")") │
│ 2024-04-13T09:22:06.317467Z INFO spiral_temp_test: │
│ input=Operator("=") │
│ 2024-04-13T09:22:06.317504Z INFO spiral_temp_test: │
│ input=Comment("<u*:19Zq<;n<t<z_=I") │
│ 2024-04-13T09:22:06.317538Z INFO spiral_temp_test: │
│ input=Comment("d\" %i=?7~/4rJ") │
│ 2024-04-13T09:22:06.317573Z INFO spiral_temp_test: │
│ input=StringLiteral(".;rkZ%&6C*SI&*/t=ccO:") │
│ 2024-04-13T09:22:06.317603Z INFO spiral_temp_test: │
│ input=Operator("*") │
│ 2024-04-13T09:22:06.317623Z INFO spiral_temp_test: │
│ input=Integer(-1179481551869162365) │
│ 2024-04-13T09:22:06.317650Z INFO spiral_temp_test: │
│ input=Identifier("gjva08Coe3u") │
│ 2024-04-13T09:22:06.317678Z INFO spiral_temp_test: │
│ input=Integer(2268865159488303477) │
│ 2024-04-13T09:22:06.317724Z INFO spiral_temp_test: │
│ input=StringLiteral("lM)db]n") │
│ 2024-04-13T09:22:06.317782Z INFO spiral_temp_test: │
│ input=Operator(")") │
│ 2024-04-13T09:22:06.317866Z INFO spiral_temp_test: │
│ input=Comment("/$`ek{HOW<m+") │
│ 2024-04-13T09:22:06.317950Z INFO spiral_temp_test: │
│ input=Comment(">/dD)$9=J- .\"q/4") │
│ 2024-04-13T09:22:06.317995Z INFO spiral_temp_test: │
│ input=Integer(-5472448688348520921) │
│ 2024-04-13T09:22:06.318048Z INFO spiral_temp_test: │
│ input=Integer(-6538008186032125289) │
│ 2024-04-13T09:22:06.318104Z INFO spiral_temp_test: │
│ input=Identifier("Jv8cd") │
│ 2024-04-13T09:22:06.318169Z INFO spiral_temp_test: │
│ input=StringLiteral("08 #<;i") │
│ 2024-04-13T09:22:06.318262Z INFO spiral_temp_test: │
│ input=Integer(-5715138554269971451) │
│ 2024-04-13T09:22:06.318316Z INFO spiral_temp_test: │
│ input=Comment("%6%{|iFB.\"$") │
│ 2024-04-13T09:22:06.318365Z INFO spiral_temp_test: │
│ input=Integer(-759848344347719726) │
│ 2024-04-13T09:22:06.318429Z INFO spiral_temp_test: │
│ input=Integer(9019737950493878925) │
│ 2024-04-13T09:22:06.318516Z INFO spiral_temp_test: │
│ input=Integer(-3304894639414226851) │
│ 2024-04-13T09:22:06.318640Z INFO spiral_temp_test: │
│ input=StringLiteral("U/Wod!lN=+}FA`;<Y%XPf") │
│ 2024-04-13T09:22:06.318702Z INFO spiral_temp_test: │
│ input=StringLiteral("r8)(&<FSns`V+$") │
│ 2024-04-13T09:22:06.318754Z INFO spiral_temp_test: │
│ input=Operator("/") │
│ 2024-04-13T09:22:06.318806Z INFO spiral_temp_test: │
│ input=Operator(")") │
│ 2024-04-13T09:22:06.318851Z INFO spiral_temp_test: │
│ input=Integer(3569656684718199322) │
│ 2024-04-13T09:22:06.318906Z INFO spiral_temp_test: │
│ input=Identifier("Wl5Wzan4c86v7wQOg3cWq") │
│ 2024-04-13T09:22:06.318959Z INFO spiral_temp_test: │
│ input=Identifier("uE2cELKw9hqEB") │
│ 2024-04-13T09:22:06.318995Z INFO spiral_temp_test: │
│ input=Comment("x?ty*\\E*$WjC8@nMd<fp{58*=") │
│ 2024-04-13T09:22:06.319044Z INFO spiral_temp_test: │
│ input=Identifier("C2jF058fK56x") │
│ 2024-04-13T09:22:06.319091Z INFO spiral_temp_test: │
│ input=Integer(817193995895795656) │
│ 2024-04-13T09:22:06.319133Z INFO spiral_temp_test: │
│ input=Integer(-9008531328640216489) │
│ 2024-04-13T09:22:06.319175Z INFO spiral_temp_test: │
│ input=Integer(-4450235285816814048) │
│ 2024-04-13T09:22:06.319236Z INFO spiral_temp_test: │
│ input=Identifier("VRSv1G") │
│ 2024-04-13T09:22:06.319288Z INFO spiral_temp_test: │
│ input=StringLiteral(":X>=?`PPlO<)") │
│ 2024-04-13T09:22:06.319337Z INFO spiral_temp_test: │
│ input=Integer(-6036629744584134955) │
│ 2024-04-13T09:22:06.319401Z INFO spiral_temp_test: │
│ input=Operator(")") │
│ 2024-04-13T09:22:06.319462Z INFO spiral_temp_test: │
│ input=Comment("dBYi\"sI\\IH,i[W{qna!vpc^&\"") │
│ 2024-04-13T09:22:06.319531Z INFO spiral_temp_test: │
│ input=Identifier("uOiQkKo9s5k4sByf17WP6C0y7") │
│ 2024-04-13T09:22:06.319591Z INFO spiral_temp_test: │
│ input=Comment("\\j'%E-E/&YQ5kS??") │
│ 2024-04-13T09:22:06.319648Z INFO spiral_temp_test: │
│ input=Operator("/") │
│ 2024-04-13T09:22:06.319698Z INFO spiral_temp_test: │
│ input=Operator("-") │
│ 2024-04-13T09:22:06.319744Z INFO spiral_temp_test: │
│ input=Operator("-") │
│ 2024-04-13T09:22:06.320014Z INFO spiral_temp_test: │
│ input=Comment("x:.N~&<ly%0Wo`1#di7%[.v14)") │
│ 2024-04-13T09:22:06.320113Z INFO spiral_temp_test: │
│ input=Integer(1454444082863611171) │
│ 2024-04-13T09:22:06.320174Z INFO spiral_temp_test: │
│ input=StringLiteral(".X<eb$Tt=]`{/&D%tK%V") │
│ 2024-04-13T09:22:06.320222Z INFO spiral_temp_test: │
│ input=Integer(-1025537854982176524) │
│ 2024-04-13T09:22:06.320290Z INFO spiral_temp_test: │
│ input=Comment("u*8``5[oyH|%:/cP0rR3qfJ>=+\"{") │
│ 2024-04-13T09:22:06.320362Z INFO spiral_temp_test: │
│ input=StringLiteral("bq=V|G2&6mjZvse.@AHR") │
│ 2024-04-13T09:22:06.320414Z INFO spiral_temp_test: │
│ input=Comment("11['\\.$Um") │
│ 2024-04-13T09:22:06.320464Z INFO spiral_temp_test: │
│ input=Comment("f5Pmb\"Q^$s~Y&!@C$l\":}Uf?*") │
│ 2024-04-13T09:22:06.320526Z INFO spiral_temp_test: │
│ input=Integer(7555883316535455661) │
│ 2024-04-13T09:22:06.320565Z INFO spiral_temp_test: │
│ input=Operator("(") │
│ 2024-04-13T09:22:06.320607Z INFO spiral_temp_test: │
│ input=Operator("=") │
│ 2024-04-13T09:22:06.320648Z INFO spiral_temp_test: │
│ input=Operator("=") │
│ 2024-04-13T09:22:06.320689Z INFO spiral_temp_test: │
│ input=Identifier("qaTh39idu") │
│ 2024-04-13T09:22:06.320729Z INFO spiral_temp_test: │
│ input=Operator("-") │
│ 2024-04-13T09:22:06.320764Z INFO spiral_temp_test: │
│ input=StringLiteral("y${l") │
│ 2024-04-13T09:22:06.320846Z INFO spiral_temp_test: │
│ input=Identifier("A81Iy23B2Max1QT0YqcJ85S8OqgdqfKei") │
│ 2024-04-13T09:22:06.320910Z INFO spiral_temp_test: │
│ input=StringLiteral("IU0T)#S(^</tG<rK$)*") │
│ 2024-04-13T09:22:06.320960Z INFO spiral_temp_test: │
│ input=Identifier("gY3C3cX75s08Bm8") │
│ 2024-04-13T09:22:06.321006Z INFO spiral_temp_test: │
│ input=Comment("fZ{/]M\\V(=") │
│ 2024-04-13T09:22:06.321053Z INFO spiral_temp_test: │
│ input=StringLiteral(" % H{KT~") │
│ 2024-04-13T09:22:06.321095Z INFO spiral_temp_test: │
│ input=Operator("*") │
│ 2024-04-13T09:22:06.321129Z INFO spiral_temp_test: │
│ input=Operator("+") │
│ 2024-04-13T09:22:06.321191Z INFO spiral_temp_test: │
│ input=StringLiteral("Y-x=?p.P;MD,!MjN{&$j>)hw) ") │
│ 2024-04-13T09:22:06.321267Z INFO spiral_temp_test: │
│ input=Comment("`].`s>JyuEC_KB'\"-sjY") │
│ 2024-04-13T09:22:06.321308Z INFO spiral_temp_test: │
│ input=Comment("X") │
│ 2024-04-13T09:22:06.321374Z INFO spiral_temp_test: │
│ input=Comment("4mg`*ux5*<;y`a&_d x#T5") │
│ 2024-04-13T09:22:06.321418Z INFO spiral_temp_test: │
│ input=StringLiteral("5a:3H") │
│ 2024-04-13T09:22:06.321484Z INFO spiral_temp_test: │
│ input=Integer(7842064877009766876) │
│ 2024-04-13T09:22:06.321569Z INFO spiral_temp_test: │
│ input=StringLiteral("V0}<bO[Y,x") │
│ 2024-04-13T09:22:06.321633Z INFO spiral_temp_test: │
│ input=Identifier("PJbt0eJe0F0P98T4qp55XH1vcC1C5J") │
│ 2024-04-13T09:22:06.321700Z INFO spiral_temp_test: │
│ input=Operator("=") │
│ 2024-04-13T09:22:06.321750Z INFO spiral_temp_test: │
│ input=Identifier("I0Gm2DQLmhL0lX0") │
│ 2024-04-13T09:22:06.321798Z INFO spiral_temp_test: │
│ input=Comment("a$=:m<$_cX'4H&:+]b") │
│ 2024-04-13T09:22:06.321841Z INFO spiral_temp_test: │
│ input=Operator("/") │
│ 2024-04-13T09:22:06.321889Z INFO spiral_temp_test: │
│ input=Comment(":j%%'O\\/}l[09&\"`)2<P*i??") │
│ 2024-04-13T09:22:06.321928Z INFO spiral_temp_test: │
│ input=Integer(5608260139004589011) │
│ 2024-04-13T09:22:06.321965Z INFO spiral_temp_test: │
│ input=Operator("=") │
│ 2024-04-13T09:22:06.322024Z INFO spiral_temp_test: │
│ input=StringLiteral("=qbOi0uEs@N6IY") │
│ 2024-04-13T09:22:06.322090Z INFO spiral_temp_test: │
│ input=StringLiteral("&)Plc:A|[{NN.?`PjCE}<soCI&") │
│ 2024-04-13T09:22:06.322125Z INFO spiral_temp_test: │
│ input=Integer(-2666758621412053114) │
│ 2024-04-13T09:22:06.322171Z INFO spiral_temp_test: │
│ input=Identifier("x7uZFs6gE1EXd") │
│ 2024-04-13T09:22:06.322232Z INFO spiral_temp_test: │
│ input=Identifier("bC49zOPT8") │
│ 2024-04-13T09:22:06.322296Z INFO spiral_temp_test: │
│ input=StringLiteral("'S*47%=$[cq<?Fyb|dIjjZM`/{?pRk") │
│ 2024-04-13T09:22:06.322350Z INFO spiral_temp_test: │
│ input=Comment("'|r\\2\"n:;=g") │
│ 2024-04-13T09:22:06.322390Z INFO spiral_temp_test: │
│ input=Integer(8297174444808355096) │
│ 2024-04-13T09:22:06.322433Z INFO spiral_temp_test: │
│ input=Identifier("XtYw9J17yUaTRj4M2p") │
│ 2024-04-13T09:22:06.322468Z INFO spiral_temp_test: │
│ input=Integer(-2942079625403179831) │
│ 2024-04-13T09:22:06.322500Z INFO spiral_temp_test: │
│ input=Comment("") │
│ 2024-04-13T09:22:06.322541Z INFO spiral_temp_test: │
│ input=Identifier("fQZHkhba") │
│ 2024-04-13T09:22:06.322582Z INFO spiral_temp_test: │
│ input=Operator("(") │
│ 2024-04-13T09:22:06.322620Z INFO spiral_temp_test: │
│ input=Operator("*") │
│ 2024-04-13T09:22:06.322650Z INFO spiral_temp_test: │
│ input=Integer(-7475566766417799397) │
│ 2024-04-13T09:22:06.322680Z INFO spiral_temp_test: │
│ input=Integer(560338511447538766) │
│ 2024-04-13T09:22:06.322713Z INFO spiral_temp_test: │
│ input=Operator("+") │
│ 2024-04-13T09:22:06.322761Z INFO spiral_temp_test: │
│ input=StringLiteral("9.5,P%#b'fV8::`],=*gl") │
│ 2024-04-13T09:22:06.322799Z INFO spiral_temp_test: │
│ input=Operator("*") │
│ 2024-04-13T09:22:06.322834Z INFO spiral_temp_test: │
│ input=Identifier("U7c5c") │
│ 2024-04-13T09:22:06.322869Z INFO spiral_temp_test: │
│ input=StringLiteral("i#") │
│ 2024-04-13T09:22:06.322929Z INFO spiral_temp_test: │
│ input=Comment("MKUL<mw&0V-L)5b7ogjY`Iz\\XeHv<?&") │
│ 2024-04-13T09:22:06.322974Z INFO spiral_temp_test: │
│ input=Comment(".#V0%!") │
│ 2024-04-13T09:22:06.323021Z INFO spiral_temp_test: │
│ input=Comment("?*/cJ&Y1`%.`\\N%@R&\\~") │
│ 2024-04-13T09:22:06.323060Z INFO spiral_temp_test: │
│ input=Operator("/") │
│ 2024-04-13T09:22:06.323100Z INFO spiral_temp_test: │
│ input=StringLiteral("3,`){xbC?9J") │
│ 2024-04-13T09:22:06.323138Z INFO spiral_temp_test: │
│ input=Identifier("tJZ") │
│ 2024-04-13T09:22:06.323191Z INFO spiral_temp_test: │
│ input=Operator("*") │
│ 2024-04-13T09:22:06.323242Z INFO spiral_temp_test: │
│ input=StringLiteral("FJME/b") │
│ 2024-04-13T09:22:06.323280Z INFO spiral_temp_test: │
│ input=Operator("*") │
│ 2024-04-13T09:22:06.323319Z INFO spiral_temp_test: │
│ input=Operator("/") │
│ 2024-04-13T09:22:06.323355Z INFO spiral_temp_test: │
│ input=Integer(-6366111023615010699) │
│ 2024-04-13T09:22:06.323410Z INFO spiral_temp_test: │
│ input=Identifier("VKFNjgOR3FUIk9T9gCbCKB2OMKvcH") │
│ 2024-04-13T09:22:06.323455Z INFO spiral_temp_test: │
│ input=Comment("|w>#`%ES},") │
│ 2024-04-13T09:22:06.323502Z INFO spiral_temp_test: │
│ input=Comment("XNV%x cgp`M&6o:E") │
│ 2024-04-13T09:22:06.323542Z INFO spiral_temp_test: │
│ input=Operator(")") │
│ 2024-04-13T09:22:06.323585Z INFO spiral_temp_test: │
│ input=StringLiteral("mw:-'dJX&=%") │
│ 2024-04-13T09:22:06.323630Z INFO spiral_temp_test: │
│ input=Identifier("n6kJ5YM7h1xt4a") │
│ 2024-04-13T09:22:06.323665Z INFO spiral_temp_test: │
│ input=Operator("+") │
│ 2024-04-13T09:22:06.323701Z INFO spiral_temp_test: │
│ input=Operator("=") │
│ 2024-04-13T09:22:06.323739Z INFO spiral_temp_test: │
│ input=Operator("(") │
│ 2024-04-13T09:22:06.323793Z INFO spiral_temp_test: │
│ input=StringLiteral("$N{-~1f |mhp$?<.EU{OHR1sS&") │
│ 2024-04-13T09:22:06.323845Z INFO spiral_temp_test: │
│ input=StringLiteral("soF2/:9Prm?>Yp%8MP") │
│ 2024-04-13T09:22:06.323879Z INFO spiral_temp_test: │
│ input=Integer(8108018809674430986) │
│ 2024-04-13T09:22:06.323908Z INFO spiral_temp_test: │
│ input=Integer(-8410825938156541227) │
│ 2024-04-13T09:22:06.326819Z INFO spiral_temp_test: │
│ input=Integer(1231602361430992423) │
│ 2024-04-13T09:22:06.326866Z INFO spiral_temp_test: │
│ input=StringLiteral("%/e-y<") │
│ 2024-04-13T09:22:06.326895Z INFO spiral_temp_test: │
│ input=Operator("/") │
│ 2024-04-13T09:22:06.326919Z INFO spiral_temp_test: │
│ input=StringLiteral("|a") │
│ 2024-04-13T09:22:06.326955Z INFO spiral_temp_test: │
│ input=StringLiteral("=U/aa<uplS04I9h}1Q7Z3$n{-") │
│ 2024-04-13T09:22:06.327002Z INFO spiral_temp_test: │
│ input=Operator("+") │
│ 2024-04-13T09:22:06.327037Z INFO spiral_temp_test: │
│ input=Identifier("Gsr561H") │
│ 2024-04-13T09:22:06.327061Z INFO spiral_temp_test: │
│ input=Operator("+") │
│ 2024-04-13T09:22:06.327084Z INFO spiral_temp_test: │
│ input=Integer(-3625910027997612213) │
│ 2024-04-13T09:22:06.327108Z INFO spiral_temp_test: │
│ input=Operator("/") │
│ 2024-04-13T09:22:06.327133Z INFO spiral_temp_test: │
│ input=Operator("(") │
│ 2024-04-13T09:22:06.327154Z INFO spiral_temp_test: │
│ input=Identifier("X") │
│ 2024-04-13T09:22:06.327193Z INFO spiral_temp_test: │
│ input=Identifier("hgd6nPIK88879vre8BnYA727vxzt") │
│ 2024-04-13T09:22:06.327234Z INFO spiral_temp_test: │
│ input=StringLiteral("&<'g'eV1lT*R&nO{!M.=a[JE34W") │
│ 2024-04-13T09:22:06.327286Z INFO spiral_temp_test: │
│ input=Identifier("y2VjL0ztexVIhf6s2") │
│ 2024-04-13T09:22:06.327312Z INFO spiral_temp_test: │
│ input=Integer(-6284738314033775673) │
│ 2024-04-13T09:22:06.327350Z INFO spiral_temp_test: │
│ input=Comment("&&&fS?/;6?=`") │
│ 2024-04-13T09:22:06.327379Z INFO spiral_temp_test: │
│ input=Identifier("qzA5Bij69") │
│ 2024-04-13T09:22:06.327408Z INFO spiral_temp_test: │
│ input=Comment("UoB*|") │
│ 2024-04-13T09:22:06.327433Z INFO spiral_temp_test: │
│ input=Operator("=") │
│ 2024-04-13T09:22:06.327455Z INFO spiral_temp_test: │
│ input=Integer(-7866216712557908377) │
│ 2024-04-13T09:22:06.327479Z INFO spiral_temp_test: │
│ input=Operator("(") │
│ 2024-04-13T09:22:06.327506Z INFO spiral_temp_test: │
│ input=Operator("/") │
│ 2024-04-13T09:22:06.327529Z INFO spiral_temp_test: │
│ input=Operator("=") │
│ 2024-04-13T09:22:06.327558Z INFO spiral_temp_test: │
│ input=StringLiteral("}l'x[L'v`Gw") │
│ 2024-04-13T09:22:06.327592Z INFO spiral_temp_test: │
│ input=Identifier("aubqNXAnZoXRF3pLfG0X") │
│ 2024-04-13T09:22:06.327624Z INFO spiral_temp_test: │
│ input=StringLiteral("Hv4VsSR*jCUg:lCEe") │
│ 2024-04-13T09:22:06.327666Z INFO spiral_temp_test: │
│ input=Comment("'F{Sx`4Y',B_Sy:.<,4`y/v\\NR_.") │
│ 2024-04-13T09:22:06.327819Z INFO spiral_temp_test: │
│ input=Comment("<\"`{3V") │
│ 2024-04-13T09:22:06.327862Z INFO spiral_temp_test: │
│ input=Integer(1749038780878159104) │
│ 2024-04-13T09:22:06.327895Z INFO spiral_temp_test: │
│ input=StringLiteral("{~B'xc?o#f|cKsk!") │
│ 2024-04-13T09:22:06.327928Z INFO spiral_temp_test: │
│ input=Operator("/") │
│ 2024-04-13T09:22:06.327979Z INFO spiral_temp_test: │
│ input=Comment("djn#S{1%?.q{}f{wU0/XNQJ!YK'?7*") │
│ 2024-04-13T09:22:06.328011Z INFO spiral_temp_test: │
│ input=Operator("*") │
│ 2024-04-13T09:22:06.328143Z INFO spiral_temp_test: │
│ input=Identifier("C4mNYMGfm") │
│ 2024-04-13T09:22:06.328185Z INFO spiral_temp_test: │
│ input=StringLiteral(":9I5`@7`{J*=fU^81*9~%Bg6") │
│ 2024-04-13T09:22:06.328221Z INFO spiral_temp_test: │
│ input=Identifier("FW1NP2Fh960sp1499nV5wfpj") │
│ 2024-04-13T09:22:06.328261Z INFO spiral_temp_test: │
│ input=Identifier("uFj4Wbe8YinJyY7x2mbaRA") │
│ 2024-04-13T09:22:06.328288Z INFO spiral_temp_test: │
│ input=Operator("+") │
│ 2024-04-13T09:22:06.328310Z INFO spiral_temp_test: │
│ input=Integer(1305774971101728834) │
│ 2024-04-13T09:22:06.328335Z INFO spiral_temp_test: │
│ input=Integer(1693238089771136650) │
│ 2024-04-13T09:22:06.328362Z INFO spiral_temp_test: │
│ input=Identifier("K0nav1cm0yS") │
│ 2024-04-13T09:22:06.328391Z INFO spiral_temp_test: │
│ input=Identifier("gBRrJxtCLUzYii2q098iAW") │
│ 2024-04-13T09:22:06.328418Z INFO spiral_temp_test: │
│ input=Integer(-8699264355859227207) │
│ 2024-04-13T09:22:06.328443Z INFO spiral_temp_test: │
│ input=Integer(6452817734119144888) │
│ 2024-04-13T09:22:06.328466Z INFO spiral_temp_test: │
│ input=Operator("*") │
│ 2024-04-13T09:22:06.328487Z INFO spiral_temp_test: │
│ input=Integer(-4372776149682386578) │
│ 2024-04-13T09:22:06.328556Z INFO spiral_temp_test: │
│ input=Comment("*?`#{gFj`\"k=)QP\\Y$p`'nN:{?_Y<") │
│ 2024-04-13T09:22:06.328618Z INFO spiral_temp_test: │
│ input=StringLiteral("=IBjg.Qux&;X7:") │
│ 2024-04-13T09:22:06.328652Z INFO spiral_temp_test: │
│ input=StringLiteral("I(,BLXSh") │
│ 2024-04-13T09:22:06.328682Z INFO spiral_temp_test: │
│ input=StringLiteral("'n){H`<j;lo1?@Q") │
│ 2024-04-13T09:22:06.328709Z INFO spiral_temp_test: │
│ input=Identifier("J9") │
│ 2024-04-13T09:22:06.328744Z INFO spiral_temp_test: │
│ input=StringLiteral("$.%&kY8x&tO:v108f]?9X/QP{yom") │
│ 2024-04-13T09:22:06.328786Z INFO spiral_temp_test: │
│ input=Operator("*") │
│ 2024-04-13T09:22:06.328826Z INFO spiral_temp_test: │
│ input=Comment("r\"$\"d`*$x`@qwnDX5B\\yGM8-k\"''.") │
│ 2024-04-13T09:22:06.328870Z INFO spiral_temp_test: │
│ input=Identifier("j6GzcWm8L52WzA2OSnVj4y2Z8ujwzUzvq") │
│ 2024-04-13T09:22:06.328894Z INFO spiral_temp_test: │
│ input=Integer(1657969842687276891) │
│ 2024-04-13T09:22:06.328927Z INFO spiral_temp_test: │
│ input=Comment("SN=@'e`./?\\_.y]") │
│ 2024-04-13T09:22:06.328950Z INFO spiral_temp_test: │
│ input=Integer(3147123820931221476) │
│ 2024-04-13T09:22:06.328971Z INFO spiral_temp_test: │
│ input=Integer(-1148566845206417127) │
│ 2024-04-13T09:22:06.329020Z INFO spiral_temp_test: │
│ input=Comment("]`{=T8$//#&G") │
│ 2024-04-13T09:22:06.329064Z INFO spiral_temp_test: │
│ input=Identifier("iS7p73j9jFg") │
│ 2024-04-13T09:22:06.329088Z INFO spiral_temp_test: │
│ input=Identifier("Q") │
│ 2024-04-13T09:22:06.329119Z INFO spiral_temp_test: │
│ input=StringLiteral("`-_QaZ:<*m6Z3e=:") │
│ 2024-04-13T09:22:06.329143Z INFO spiral_temp_test: │
│ input=Identifier("E") │
│ 2024-04-13T09:22:06.329174Z INFO spiral_temp_test: │
│ input=Comment("6\"l|rV`wAv`") │
│ 2024-04-13T09:22:06.329201Z INFO spiral_temp_test: │
│ input=StringLiteral("{=ae*R&e/:") │
│ 2024-04-13T09:22:06.329227Z INFO spiral_temp_test: │
│ input=StringLiteral("=X:C") │
│ 2024-04-13T09:22:06.329252Z INFO spiral_temp_test: │
│ input=Integer(-99785436760358821) │
│ 2024-04-13T09:22:06.329284Z INFO spiral_temp_test: │
│ input=Identifier("oQO0RxRh6VHDWz9A6a2YXaTr") │
│ 2024-04-13T09:22:06.329307Z INFO spiral_temp_test: │
│ input=Integer(6946148207640886550) │
│ 2024-04-13T09:22:06.329340Z INFO spiral_temp_test: │
│ input=Integer(-4635037651533202058) │
│ 2024-04-13T09:22:06.329373Z INFO spiral_temp_test: │
│ input=StringLiteral("#3{/:h^{q <Azfq7N#:<") │
│ 2024-04-13T09:22:06.329406Z INFO spiral_temp_test: │
│ input=StringLiteral(".V.X?m") │
│ 2024-04-13T09:22:06.329434Z INFO spiral_temp_test: │
│ input=Comment("Br&'diX=") │
│ 2024-04-13T09:22:06.329463Z INFO spiral_temp_test: │
│ input=Comment(",!9J7bP=f{F.s") │
│ 2024-04-13T09:22:06.329491Z INFO spiral_temp_test: │
│ input=Operator("+") │
│ 2024-04-13T09:22:06.329522Z INFO spiral_temp_test: │
│ input=StringLiteral("4e#$]Gm$X.<-'*|`") │
│ 2024-04-13T09:22:06.329561Z INFO spiral_temp_test: │
│ input=Identifier("I0UWi7zWFUFQ3a5aREbO5u3GPXHK") │
│ 2024-04-13T09:22:06.329590Z INFO spiral_temp_test: │
│ input=Integer(5190917513523365027) │
│ 2024-04-13T09:22:06.329618Z INFO spiral_temp_test: │
│ input=Comment("'`?\\e`z!5") │
│ 2024-04-13T09:22:06.329645Z INFO spiral_temp_test: │
│ input=Operator(")") │
│ 2024-04-13T09:22:06.329675Z INFO spiral_temp_test: │
│ input=Comment("R\"(jJr`%") │
│ 2024-04-13T09:22:06.329708Z INFO spiral_temp_test: │
│ input=Comment("1'\\&kcl;mE<Qh_x4X/=$KS.s7m") │
│ 2024-04-13T09:22:06.329738Z INFO spiral_temp_test: │
│ input=Comment("") │
│ 2024-04-13T09:22:06.329769Z INFO spiral_temp_test: │
│ input=Comment("=npA:OV\"'M}:*[KeL#") │
│ 2024-04-13T09:22:06.329794Z INFO spiral_temp_test: │
│ input=Operator("-") │
│ 2024-04-13T09:22:06.329836Z INFO spiral_temp_test: │
│ input=Comment("5LoN/L9V<") │
│ 2024-04-13T09:22:06.329860Z INFO spiral_temp_test: │
│ input=Integer(-8005187374130066861) │
│ 2024-04-13T09:22:06.329893Z INFO spiral_temp_test: │
│ input=Comment("BQ@t`bm\"(.'*Z+'l") │
│ 2024-04-13T09:22:06.329916Z INFO spiral_temp_test: │
│ input=Integer(8286386980736268104) │
│ 2024-04-13T09:22:06.329942Z INFO spiral_temp_test: │
│ input=Integer(-6655034714775557342) │
│ 2024-04-13T09:22:06.329964Z INFO spiral_temp_test: │
│ input=Integer(8469018735019296549) │
│ 2024-04-13T09:22:06.329991Z INFO spiral_temp_test: │
│ input=StringLiteral("W}$hHl'{Q&") │
│ 2024-04-13T09:22:06.330037Z INFO spiral_temp_test: │
│ input=Comment("l.5/:\"@$w") │
│ 2024-04-13T09:22:06.330095Z INFO spiral_temp_test: │
│ input=StringLiteral(".6C:`ZJJA$^") │
│ 2024-04-13T09:22:06.330140Z INFO spiral_temp_test: │
│ input=Comment("?WWBf?[5d%<7v0Xe1") │
│ 2024-04-13T09:22:06.330168Z INFO spiral_temp_test: │
│ input=Operator("-") │
│ 2024-04-13T09:22:06.330221Z INFO spiral_temp_test: │
│ input=Identifier("K8GmBYTVG2JF3BE2Ea835Kh7Y") │
│ 2024-04-13T09:22:06.330281Z INFO spiral_temp_test: │
│ input=Comment("*\"s$") │
│ 2024-04-13T09:22:06.330347Z INFO spiral_temp_test: │
│ input=Comment("d4~.$,?tH$F{jl`<") │
│ 2024-04-13T09:22:06.330408Z INFO spiral_temp_test: │
│ input=Comment("R/qd&") │
│ 2024-04-13T09:22:06.330464Z INFO spiral_temp_test: │
│ input=Identifier("E") │
│ 2024-04-13T09:22:06.330514Z INFO spiral_temp_test: │
│ input=Operator(")") │
│ 2024-04-13T09:22:06.330573Z INFO spiral_temp_test: │
│ input=Identifier("A5S566vivPzL5UDX3A4KP") │
│ 2024-04-13T09:22:06.330648Z INFO spiral_temp_test: │
│ input=Comment("&E:*6&?o?{<f3*e[<^!\\#FtUmQYK`]") │
│ 2024-04-13T09:22:06.330709Z INFO spiral_temp_test: │
│ input=Comment("=N") │
│ 2024-04-13T09:22:06.330769Z INFO spiral_temp_test: │
│ input=Operator("/") │
│ 2024-04-13T09:22:06.330844Z INFO spiral_temp_test: │
│ input=StringLiteral("?+9Lv'{K?QzZMFK$DY*]'j") │
│ 2024-04-13T09:22:06.330920Z INFO spiral_temp_test: │
│ input=Identifier("bK00P0fWwJ0U9P9VUXw4duJs630") │
│ 2024-04-13T09:22:06.330964Z INFO spiral_temp_test: │
│ input=Identifier("dl0X4jkJ") │
│ 2024-04-13T09:22:06.331021Z INFO spiral_temp_test: │
│ input=Operator(")") │
│ 2024-04-13T09:22:06.331076Z INFO spiral_temp_test: │
│ input=Operator("-") │
│ 2024-04-13T09:22:06.331125Z INFO spiral_temp_test: │
│ input=Operator(")") │
│ 2024-04-13T09:22:06.331163Z INFO spiral_temp_test: │
│ input=Operator("*") │
│ 2024-04-13T09:22:06.331207Z INFO spiral_temp_test: │
│ input=StringLiteral("<4%:/DnqX9a'S4/{HVQ{:-L6Kgv-p") │
│ 2024-04-13T09:22:06.331272Z INFO spiral_temp_test: │
│ input=Comment("i!-=/=W{[?:5P{CI:oRa$RIw") │
│ 2024-04-13T09:22:06.331341Z INFO spiral_temp_test: │
│ input=Identifier("arQO6G6k0Is88UtrUq") │
│ 2024-04-13T09:22:06.331410Z INFO spiral_temp_test: │
│ input=Comment("Hbfc\"E&'&.(:FO[o$%u<") │
│ 2024-04-13T09:22:06.331477Z INFO spiral_temp_test: │
│ input=Comment("?%<:1`{+:?.") │
│ 2024-04-13T09:22:06.331550Z INFO spiral_temp_test: │
│ input=Comment("S<d ~[4Ke,Ve\"|X>y7.Kwe?%>*Qm") │
│ 2024-04-13T09:22:06.331590Z INFO spiral_temp_test: │
│ input=Operator("/") │
│ test prop_parse_format_idempotent ... ok │
│ test │
│ adding_and_then_removing_an_item_from_the_cart_leaves_the_cart_unchanged ... │
│ ok │
│ │
│ test result: ok. 3 passed; 0 failed; 0 ignored; 0 measured; 0 filtered out; │
│ finished in 0.19s │
│ │
│ │
╰──────────────────────────────────────────────────────────────────────────────╯
── pwsh ────────────────────────────────────────────────────────────────────────
{ . $ScriptDir/../../../../target/release/spiral_temp_test$(GetExecutableSuffix)
} | Invoke-Block
╭─[ 79.56ms - stdout ]─────────────────────────────────────────────────────────╮
│ app=test │
│ │
╰──────────────────────────────────────────────────────────────────────────────╯
[NbConvertApp] Converting notebook build.dib.ipynb to html
C:\Users\i574n\scoop\apps\python\current\Lib\site-packages\nbformat\__init__.py:93: MissingIDFieldWarning: Code cell is missing an id field, this will become a hard error in future nbformat versions. You may want to use `normalize()` on your notebooks before validations (available since nbformat 5.1.4). Previous versions of nbformat are fixing this issue transparently, and will stop doing so in the future.
validate(nb)
C:\Users\i574n\scoop\apps\python\current\Lib\site-packages\nbconvert\filters\highlight.py:71: UserWarning: IPython3 lexer unavailable, falling back on Python 3
return _pygments_highlight(
[NbConvertApp] Writing 368622 bytes to build.dib.html
In [ ]:
{ . "$ScriptDir/../apps/perf/build.ps1" } | Invoke-Block
00:00:00 #1 [debug] runWithTimeoutChildAsync / timeout: 60
00:00:00 #1 [debug] execute_with_options_async / options: struct (Some System.Threading.CancellationToken,
"dotnet "C:\home\git\polyglot\deps\The-Spiral-Language\The Spiral Language 2\artifacts\bin\The Spiral Language 2\release\Spiral.dll" --port 13805 --default-int i32 --default-float f64",
Some <fun:main@439-43>, None, None)
00:00:00 #2 [verbose] > pwd: C:\home\git\polyglot\apps\perf
00:00:00 #3 [verbose] > dllPath: C:\home\git\polyglot\deps\The-Spiral-Language\The Spiral Language 2\artifacts\bin\The Spiral Language 2\release
00:00:00 #4 [verbose] > targetDir: C:\home\git\polyglot\target/polyglot/spiral_eval
00:00:00 #5 [verbose] > Starting the Spiral Server. It is bound to: http://localhost:13805
00:00:00 #2 [debug] runWithTimeoutChildAsync / timeout: 500
00:00:00 #3 [verbose] waitForPortAccess / port: 13805 / retry: 0
00:00:01 #4 [debug] sendJson / port: 13805 / json: {"Ping":true} / result.Length:
00:00:01 #5 [verbose] awaitCompiler / Ping / result: Some(null) / port: 13805 / retry: 0
00:00:01 #6 [verbose] > Server bound to: http://localhost:13805
00:00:01 #7 [debug] execute_with_options_async / options: struct (Some System.Threading.CancellationToken,
"pwsh -c "../../scripts/invoke-dib.ps1 Perf.dib"", None, None, None)
00:00:03 #8 [verbose] >
00:00:03 #9 [verbose] > ── markdown ────────────────────────────────────────────────────────────────────
00:00:03 #10 [verbose] > ╭──────────────────────────────────────────────────────────────────────────────╮
00:00:03 #11 [verbose] > │ ## Perf (Polyglot) │
00:00:03 #12 [verbose] > ╰──────────────────────────────────────────────────────────────────────────────╯
00:00:03 #13 [verbose] >
00:00:03 #14 [verbose] > ── fsharp ──────────────────────────────────────────────────────────────────────
00:00:03 #15 [verbose] > #!import ../../lib/fsharp/Notebooks.dib
00:00:03 #16 [verbose] > #!import ../../lib/fsharp/Testing.dib
00:00:03 #17 [verbose] >
00:00:03 #18 [verbose] > ── fsharp - import ─────────────────────────────────────────────────────────────
00:00:03 #19 [verbose] > #r
00:00:03 #20 [verbose] > "C:/Users/i574n/.nuget/packages/dotnet-repl/0.1.204/tools/net7.0/any/Microsoft.A
00:00:03 #21 [verbose] > spNetCore.Html.Abstractions.dll"
00:00:03 #22 [verbose] > #r
00:00:03 #23 [verbose] > "C:/Users/i574n/.nuget/packages/dotnet-repl/0.1.204/tools/net7.0/any/Microsoft.D
00:00:03 #24 [verbose] > otNet.Interactive.dll"
00:00:03 #25 [verbose] > #r
00:00:03 #26 [verbose] > "C:/Users/i574n/.nuget/packages/dotnet-repl/0.1.204/tools/net7.0/any/Microsoft.D
00:00:03 #27 [verbose] > otNet.Interactive.FSharp.dll"
00:00:03 #28 [verbose] > #r
00:00:03 #29 [verbose] > "C:/Users/i574n/.nuget/packages/dotnet-repl/0.1.204/tools/net7.0/any/Microsoft.D
00:00:03 #30 [verbose] > otNet.Interactive.Formatting.dll"
00:00:03 #31 [verbose] > open System
00:00:03 #32 [verbose] > open System.IO
00:00:03 #33 [verbose] > open System.Text
00:00:03 #34 [verbose] > open Microsoft.DotNet.Interactive.Formatting
00:00:07 #35 [verbose] >
00:00:07 #36 [verbose] > ── fsharp - import ─────────────────────────────────────────────────────────────
00:00:07 #37 [verbose] > #r
00:00:07 #38 [verbose] > "C:/Users/i574n/.nuget/packages/dotnet-repl/0.1.204/tools/net7.0/any/Microsoft.D
00:00:07 #39 [verbose] > otNet.Interactive.FSharp.dll"
00:00:07 #40 [verbose] > open Microsoft.DotNet.Interactive.FSharp.FSharpKernelHelpers
00:00:07 #41 [verbose] > #r
00:00:07 #42 [verbose] > "C:/Users/i574n/.nuget/packages/dotnet-repl/0.1.204/tools/net7.0/any/Microsoft.D
00:00:07 #43 [verbose] > otNet.Interactive.dll"
00:00:07 #44 [verbose] > open type Microsoft.DotNet.Interactive.Kernel
00:00:07 #45 [verbose] >
00:00:07 #46 [verbose] > ── fsharp - import ─────────────────────────────────────────────────────────────
00:00:07 #47 [verbose] > //// test
00:00:07 #48 [verbose] >
00:00:07 #49 [verbose] > Formatter.ListExpansionLimit <- 100
00:00:07 #50 [verbose] >
00:00:07 #51 [verbose] > ── fsharp - import ─────────────────────────────────────────────────────────────
00:00:07 #52 [verbose] > type [[<Struct>]] US0 =
00:00:07 #53 [verbose] > | US0_0
00:00:07 #54 [verbose] > | US0_1
00:00:07 #55 [verbose] > and [[<Struct>]] US1 =
00:00:07 #56 [verbose] > | US1_0 of f0_0 : US0
00:00:07 #57 [verbose] > | US1_1
00:00:07 #58 [verbose] > let rec closure0 () (v0 : (unit -> unit)) : System.IDisposable =
00:00:07 #59 [verbose] > let v1 : System.IDisposable option = None
00:00:07 #60 [verbose] > let mutable _v1 = v1
00:00:07 #61 [verbose] > #if FABLE_COMPILER_RUST && !WASM && !CONTRACT
00:00:07 #62 [verbose] > let v2 : System.IDisposable = null |> unbox<System.IDisposable>
00:00:07 #63 [verbose] > v2
00:00:07 #64 [verbose] > #endif
00:00:07 #65 [verbose] > #if FABLE_COMPILER_RUST && WASM
00:00:07 #66 [verbose] > let v3 : System.IDisposable = null |> unbox<System.IDisposable>
00:00:07 #67 [verbose] > v3
00:00:07 #68 [verbose] > #endif
00:00:07 #69 [verbose] > #if FABLE_COMPILER_RUST && CONTRACT
00:00:07 #70 [verbose] > let v4 : System.IDisposable = null |> unbox<System.IDisposable>
00:00:07 #71 [verbose] > v4
00:00:07 #72 [verbose] > #endif
00:00:07 #73 [verbose] > #if !FABLE_COMPILER && !FABLE_COMPILER_RUST && !FABLE_COMPILER_TYPESCRIPT &&
00:00:07 #74 [verbose] > !WASM && !CONTRACT
00:00:07 #75 [verbose] > let v5 : System.ID...
00:00:08 #76 [verbose] >
00:00:08 #77 [verbose] > ── fsharp - import ─────────────────────────────────────────────────────────────
00:00:08 #78 [verbose] > type Mut0 = {mutable l0 : int32; mutable l1 : string}
00:00:08 #79 [verbose] > and Mut1 = {mutable l0 : int32}
00:00:08 #80 [verbose] > let rec closure1 (v0 : string) (v1 : string) : bool =
00:00:08 #81 [verbose] > let v2 : bool = v1.Contains v0
00:00:08 #82 [verbose] > v2
00:00:08 #83 [verbose] > and closure0 () (v0 : string) : (string -> bool) =
00:00:08 #84 [verbose] > closure1(v0)
00:00:08 #85 [verbose] > and closure3 (v0 : string) (v1 : string) : bool =
00:00:08 #86 [verbose] > let v2 : bool = v1.EndsWith v0
00:00:08 #87 [verbose] > v2
00:00:08 #88 [verbose] > and closure2 () (v0 : string) : (string -> bool) =
00:00:08 #89 [verbose] > closure3(v0)
00:00:08 #90 [verbose] > and closure6 (v0 : int32, v1 : char) (v2 : string) : string =
00:00:08 #91 [verbose] > let v3 : string = v2.PadLeft (v0, v1)
00:00:08 #92 [verbose] > v3
00:00:08 #93 [verbose] > and closure5 (v0 : int32) (v1 : char) : (string -> string) =
00:00:08 #94 [verbose] > closure6(v0, v1)
00:00:08 #95 [verbose] > and closure4 () (v0 : int32) : (char -> (string -> string)) =
00:00:08 #96 [verbose] > closure5(v0)
00:00:08 #97 [verbose] > and closure8 (v0 : int32) (v1 : string) : string =
00:00:08 #98 [verbose] > let v2 : stri...
00:00:09 #99 [verbose] >
00:00:09 #100 [verbose] > ── fsharp - import ─────────────────────────────────────────────────────────────
00:00:09 #101 [verbose] > type ICryptoCreateHash = abstract createHash: x: string -> obj
00:00:09 #102 [verbose] > type Mut0 = {mutable l0 : int32}
00:00:09 #103 [verbose] > let rec method0 (v0 : int32, v1 : Mut0) : bool =
00:00:09 #104 [verbose] > let v2 : int32 = v1.l0
00:00:09 #105 [verbose] > let v3 : bool = v2 < v0
00:00:09 #106 [verbose] > v3
00:00:09 #107 [verbose] > and method1 () : string =
00:00:09 #108 [verbose] > let v0 : string = ""
00:00:09 #109 [verbose] > v0
00:00:09 #110 [verbose] > and closure0 () (v0 : string) : string =
00:00:09 #111 [verbose] > let v1 : string option = None
00:00:09 #112 [verbose] > let mutable _v1 = v1
00:00:09 #113 [verbose] > #if FABLE_COMPILER_RUST && !WASM && !CONTRACT
00:00:09 #114 [verbose] > let v2 : string = null |> unbox<string>
00:00:09 #115 [verbose] > v2
00:00:09 #116 [verbose] > #endif
00:00:09 #117 [verbose] > #if FABLE_COMPILER_RUST && WASM
00:00:09 #118 [verbose] > let v3 : string = null |> unbox<string>
00:00:09 #119 [verbose] > v3
00:00:09 #120 [verbose] > #endif
00:00:09 #121 [verbose] > #if FABLE_COMPILER_RUST && CONTRACT
00:00:09 #122 [verbose] > let v4 : string = null |> unbox<string>
00:00:09 #123 [verbose] > v4
00:00:09 #124 [verbose] > #endif
00:00:09 #125 [verbose] > #if !FABLE_COMPILER && !FABLE_COMPILER_RUST && !FABLE_COMPILER_TYP...
00:00:09 #126 [verbose] >
00:00:09 #127 [verbose] > ── fsharp - import ─────────────────────────────────────────────────────────────
00:00:09 #128 [verbose] > let rec closure1 (v0 : System.Guid) (v1 : System.DateTime) : System.Guid =
00:00:09 #129 [verbose] > let v2 : (System.Guid -> string) = _.ToString()
00:00:09 #130 [verbose] > let v3 : string = v2 v0
00:00:09 #131 [verbose] > let v4 : string = v1.ToString "yyyyMMdd-HHmm-ssff-ffff-f"
00:00:09 #132 [verbose] > let v5 : System.Guid = System.Guid $"{v4}{v3.[[v4.Length..]]}"
00:00:09 #133 [verbose] > v5
00:00:09 #134 [verbose] > and closure0 () (v0 : System.Guid) : (System.DateTime -> System.Guid) =
00:00:09 #135 [verbose] > closure1(v0)
00:00:09 #136 [verbose] > and closure5 (v0 : string, v1 : string) (v2 : string) : string =
00:00:09 #137 [verbose] > let v3 : string = v2.Replace (v0, v1)
00:00:09 #138 [verbose] > v3
00:00:09 #139 [verbose] > and closure4 (v0 : string) (v1 : string) : (string -> string) =
00:00:09 #140 [verbose] > closure5(v0, v1)
00:00:09 #141 [verbose] > and closure3 () (v0 : string) : (string -> (string -> string)) =
00:00:09 #142 [verbose] > closure4(v0)
00:00:09 #143 [verbose] > and method0 () : (string -> (string -> (string -> string))) =
00:00:09 #144 [verbose] > closure3()
00:00:09 #145 [verbose] > and closure2 (...
00:00:09 #146 [verbose] >
00:00:09 #147 [verbose] > ── fsharp - import ─────────────────────────────────────────────────────────────
00:00:09 #148 [verbose] > let rec closure0 () (v0 : System.Threading.CancellationToken) :
00:00:09 #149 [verbose] > Async<System.Threading.CancellationToken> =
00:00:09 #150 [verbose] > let v1 : Async<System.Threading.CancellationToken> option = None
00:00:09 #151 [verbose] > let mutable _v1 = v1
00:00:09 #152 [verbose] > #if FABLE_COMPILER_RUST && !WASM && !CONTRACT
00:00:09 #153 [verbose] > let v2 : Async<System.Threading.CancellationToken> = null |>
00:00:09 #154 [verbose] > unbox<Async<System.Threading.CancellationToken>>
00:00:09 #155 [verbose] > v2
00:00:09 #156 [verbose] > #endif
00:00:09 #157 [verbose] > #if FABLE_COMPILER_RUST && WASM
00:00:09 #158 [verbose] > let v3 : Async<System.Threading.CancellationToken> = null |>
00:00:09 #159 [verbose] > unbox<Async<System.Threading.CancellationToken>>
00:00:09 #160 [verbose] > v3
00:00:09 #161 [verbose] > #endif
00:00:09 #162 [verbose] > #if FABLE_COMPILER_RUST && CONTRACT
00:00:09 #163 [verbose] > let v4 : Async<System.Threading.CancellationToken> = null |>
00:00:09 #164 [verbose] > unbox<Async<System.Threading.CancellationToken>>
00:00:09 #165 [verbose] > v4
00:00:09 #166 [verbose] > #endif
00:00:09 #167 [verbose] > #if !FABLE_COMPILER...
00:00:09 #168 [verbose] >
00:00:09 #169 [verbose] > ── fsharp - import ─────────────────────────────────────────────────────────────
00:00:09 #170 [verbose] > #if FABLE_COMPILER
00:00:09 #171 [verbose] > [[<CompilationRepresentation (CompilationRepresentationFlags.ModuleSuffix)>]]
00:00:09 #172 [verbose] > module System =
00:00:09 #173 [verbose] > module Diagnostics =
00:00:09 #174 [verbose] > type Process = unit
00:00:09 #175 [verbose] > type DataReceivedEventArgs = unit
00:00:09 #176 [verbose] > #endif
00:00:09 #177 [verbose] > module State = let mutable trace_state = None
00:00:09 #178 [verbose] > type [[<Struct>]] US0 =
00:00:09 #179 [verbose] > | US0_0
00:00:09 #180 [verbose] > | US0_1
00:00:09 #181 [verbose] > | US0_2
00:00:09 #182 [verbose] > | US0_3
00:00:09 #183 [verbose] > | US0_4
00:00:09 #184 [verbose] > and UH0 =
00:00:09 #185 [verbose] > | UH0_0
00:00:09 #186 [verbose] > | UH0_1 of char * UH0
00:00:09 #187 [verbose] > and [[<Struct>]] US2 =
00:00:09 #188 [verbose] > | US2_0
00:00:09 #189 [verbose] > | US2_1
00:00:09 #190 [verbose] > and [[<Struct>]] US1 =
00:00:09 #191 [verbose] > | US1_0
00:00:09 #192 [verbose] > | US1_1 of f1_0 : US2
00:00:09 #193 [verbose] > | US1_2
00:00:09 #194 [verbose] > and [[<Struct>]] US3 =
00:00:09 #195 [verbose] > | US3_0 of f0_0 : string
00:00:09 #196 [verbose] > | US3_1
00:00:09 #197 [verbose] > and Mut0 = {mutable l0 : int64}
00:00:09 #198 [verbose] > and Mut1 = {mutable l0 : bool}
00:00:09 #199 [verbose] > and Mut2 = {mutable l0 : US0}
00:00:09 #200 [verbose] > and [[<Struct>]] US4 =
00:00:09 #201 [verbose] > | US4_0 of f0_0 : int64
00:00:09 #202 [verbose] > | US4_1
00:00:09 #203 [verbose] > and [[<Struct>]] US5 =
00:00:09 #204 [verbose] > | US5_0 of f0_0 : i...
00:00:11 #205 [verbose] >
00:00:11 #206 [verbose] > ── fsharp - import ─────────────────────────────────────────────────────────────
00:00:11 #207 [verbose] > #if FABLE_COMPILER // file_system.types
00:00:11 #208 [verbose] > [[<Fable.Core.Erase; Fable.Core.Emit("str")>]] type Str = class end
00:00:11 #209 [verbose] > [[<Fable.Core.Erase; Fable.Core.Emit("base64::DecodeError")>]] type
00:00:11 #210 [verbose] > base64_DecodeError = class end
00:00:11 #211 [verbose] > [[<Fable.Core.Erase; Fable.Core.Emit("borsh::io::Error")>]] type borsh_io_Error
00:00:11 #212 [verbose] > = class end
00:00:11 #213 [verbose] > [[<Fable.Core.Erase; Fable.Core.Emit("js_sys::JsString")>]] type js_sys_JsString
00:00:11 #214 [verbose] > = class end
00:00:11 #215 [verbose] > [[<Fable.Core.Erase; Fable.Core.Emit("serde_json::Error")>]] type
00:00:11 #216 [verbose] > serde_json_Error = class end
00:00:11 #217 [verbose] > [[<Fable.Core.Erase; Fable.Core.Emit("serde_json::Value")>]] type
00:00:11 #218 [verbose] > serde_json_Value = class end
00:00:11 #219 [verbose] > [[<Fable.Core.Erase; Fable.Core.Emit("serde_wasm_bindgen::Error")>]] type
00:00:11 #220 [verbose] > serde_wasm_bindgen_Error = class end
00:00:11 #221 [verbose] > [[<Fable.Core.Erase; Fable.Core.Emit("std::ffi::OsStr")>]] type std_ffi_O...
00:00:12 #222 [verbose] >
00:00:12 #223 [verbose] > ── fsharp - import ─────────────────────────────────────────────────────────────
00:00:12 #224 [verbose] > module State = let mutable trace_state = None
00:00:12 #225 [verbose] > type [[<Struct>]] US0 =
00:00:12 #226 [verbose] > | US0_0
00:00:12 #227 [verbose] > | US0_1
00:00:12 #228 [verbose] > | US0_2
00:00:12 #229 [verbose] > | US0_3
00:00:12 #230 [verbose] > | US0_4
00:00:12 #231 [verbose] > and Mut0 = {mutable l0 : int64}
00:00:12 #232 [verbose] > and Mut1 = {mutable l0 : bool}
00:00:12 #233 [verbose] > and Mut2 = {mutable l0 : US0}
00:00:12 #234 [verbose] > and [[<Struct>]] US1 =
00:00:12 #235 [verbose] > | US1_0 of f0_0 : int64
00:00:12 #236 [verbose] > | US1_1
00:00:12 #237 [verbose] > and [[<Struct>]] US2 =
00:00:12 #238 [verbose] > | US2_0 of f0_0 : int64
00:00:12 #239 [verbose] > | US2_1
00:00:12 #240 [verbose] > let rec method1 (v0 : int64 option) : int64 option =
00:00:12 #241 [verbose] > v0
00:00:12 #242 [verbose] > and method2 (v0 : int64 option) : int64 option =
00:00:12 #243 [verbose] > v0
00:00:12 #244 [verbose] > and closure3 () () : struct (Mut0 * Mut1 * Mut1 * Mut2 * int64 option) =
00:00:12 #245 [verbose] > let v0 : Mut1 = {l0 = true} : Mut1
00:00:12 #246 [verbose] > let v1 : Mut0 = {l0 = 0L} : Mut0
00:00:12 #247 [verbose] > let v2 : US0 = US0_0
00:00:12 #248 [verbose] > let v3 : Mut2 = {l0 = v2} : Mut2
00:00:12 #249 [verbose] > let v4 : Mut1 = {l0 = false} : Mut1
00:00:12 #250 [verbose] > let v5 : int64 option option = None
00:00:12 #251 [verbose] > ...
00:00:12 #252 [verbose] >
00:00:12 #253 [verbose] > ── fsharp - import ─────────────────────────────────────────────────────────────
00:00:12 #254 [verbose] > module SpiralTrace =
00:00:12 #255 [verbose] > let get_trace_state () =
00:00:12 #256 [verbose] > #if !INTERACTIVE
00:00:12 #257 [verbose] > Trace.get_trace_state ()
00:00:12 #258 [verbose] > #else
00:00:12 #259 [verbose] > get_trace_state ()
00:00:12 #260 [verbose] > #endif
00:00:12 #261 [verbose] >
00:00:12 #262 [verbose] > let trace x =
00:00:12 #263 [verbose] > #if !INTERACTIVE
00:00:12 #264 [verbose] > Trace.trace x
00:00:12 #265 [verbose] > #else
00:00:12 #266 [verbose] > trace x
00:00:12 #267 [verbose] > #endif
00:00:12 #268 [verbose] >
00:00:12 #269 [verbose] > type TraceLevel =
00:00:12 #270 [verbose] > #if !INTERACTIVE
00:00:12 #271 [verbose] > Trace.US0
00:00:12 #272 [verbose] > #else
00:00:12 #273 [verbose] > US0
00:00:12 #274 [verbose] > #endif
00:00:12 #275 [verbose] >
00:00:12 #276 [verbose] > #if !FABLE_COMPILER && !WASM && !CONTRACT
00:00:12 #277 [verbose] >
00:00:12 #278 [verbose] > module SpiralAsync =
00:00:12 #279 [verbose] > let merge_cancellation_token_with_default_async x =
00:00:12 #280 [verbose] > #if !INTERACTIVE
00:00:12 #281 [verbose] > Async_.merge_cancellation_token_with_default_async x
00:00:12 #282 [verbose] > #else
00:00:12 #283 [verbose] > merge_cancellation_token_with_default_async x
00:00:12 #284 [verbose] > #endif
00:00:12 #285 [verbose] >
00:00:12 #286 [verbose] > module SpiralRuntime =
00:00:12 #287 [verbose] > let get_executable_suffix () =
00:00:12 #288 [verbose] > #if !INTERACTIVE
00:00:12 #289 [verbose] > Runtime.get_executable_suffix ()
00:00:12 #290 [verbose] > #else
00:00:12 #291 [verbose] > get_executable_suffix ()
00:00:12 #292 [verbose] > #endif
00:00:12 #293 [verbose] >
00:00:12 #294 [verbose] > let is...
00:00:12 #295 [verbose] >
00:00:12 #296 [verbose] > ── fsharp - import ─────────────────────────────────────────────────────────────
00:00:12 #297 [verbose] > #r @"../../../../../../../.nuget/packages/expecto/10.2.1/lib/net6.0/Expecto.dll"
00:00:12 #298 [verbose] >
00:00:12 #299 [verbose] > ── fsharp - import ─────────────────────────────────────────────────────────────
00:00:12 #300 [verbose] > //// test
00:00:12 #301 [verbose] >
00:00:12 #302 [verbose] > type AssertExceptionFormatter (ex) =
00:00:12 #303 [verbose] > member _.Text =
00:00:12 #304 [verbose] > ex.ToString()
00:00:12 #305 [verbose] > .Replace("32m", "<span style=\"color: green;\">")
00:00:12 #306 [verbose] > .Replace("36m", "</span>")
00:00:12 #307 [verbose] > .Replace("31m", "<span style=\"color: red;\">")
00:00:12 #308 [verbose] > .Replace("\n", "<br/>\n")
00:00:12 #309 [verbose] >
00:00:12 #310 [verbose] >
00:00:12 #311 [verbose] > Formatter.Register<AssertExceptionFormatter> ((fun (x :
00:00:12 #312 [verbose] > AssertExceptionFormatter) -> x.Text), "text/html")
00:00:13 #313 [verbose] >
00:00:13 #314 [verbose] > ── fsharp - import ─────────────────────────────────────────────────────────────
00:00:13 #315 [verbose] > //// test
00:00:13 #316 [verbose] >
00:00:13 #317 [verbose] > let inline __expect fn log expected actual =
00:00:13 #318 [verbose] > if log then printfn $"{actual.ToDisplayString ()}"
00:00:13 #319 [verbose] > try
00:00:13 #320 [verbose] > "Testing.__expect" |> fn actual expected
00:00:13 #321 [verbose] > with :? Expecto.AssertException as ex ->
00:00:13 #322 [verbose] > AssertExceptionFormatter(ex).Display () |> ignore
00:00:13 #323 [verbose] > failwith (ex.GetType().FullName)
00:00:13 #324 [verbose] >
00:00:13 #325 [verbose] > let inline __contains log expected actual = __expect Expecto.Expect.contains log
00:00:13 #326 [verbose] > expected actual
00:00:13 #327 [verbose] > let inline _contains expected actual = __contains true expected actual
00:00:13 #328 [verbose] >
00:00:13 #329 [verbose] > let inline __assertEqual log expected actual = __expect Expecto.Expect.equal log
00:00:13 #330 [verbose] > expected actual
00:00:13 #331 [verbose] > let inline _assertEqual expected actual = __assertEqual true expected actual
00:00:13 #332 [verbose] >
00:00:13 #333 [verbose] > let inline __isGreaterThan log expected actual = __expect
00:00:13 #334 [verbose] > Expecto.Expect.isGreaterThan log ex...
00:00:13 #335 [verbose] >
00:00:13 #336 [verbose] > ── fsharp - import ─────────────────────────────────────────────────────────────
00:00:13 #337 [verbose] > //// test
00:00:13 #338 [verbose] >
00:00:13 #339 [verbose] > let inline __isBetween log a b actual =
00:00:13 #340 [verbose] > let inline isBetween actual (a, b) _ =
00:00:13 #341 [verbose] > __isGreaterThanOrEqual log a actual
00:00:13 #342 [verbose] > __isLessThanOrEqual log b actual
00:00:13 #343 [verbose] > __expect isBetween log (a, b) actual
00:00:13 #344 [verbose] > let inline _isBetween a b actual = __isBetween true a b actual
00:00:13 #345 [verbose] >
00:00:13 #346 [verbose] > ── spiral ──────────────────────────────────────────────────────────────────────
00:00:13 #347 [verbose] > // // test
00:00:13 #348 [verbose] >
00:00:13 #349 [verbose] > open testing
00:00:13 #350 [verbose] > open benchmark
00:00:14 #351 [verbose] > Building c:\home\git\polyglot\target\polyglot\spiral_eval\packages\a68bf544ee8067329270251865f764a781c0d58c964a15c207916a17aa1e46fb\main.spi
00:00:16 #352 [verbose] >
00:00:16 #353 [verbose] > ╭─[ 3.45s - stdout ]───────────────────────────────────────────────────────────╮
00:00:16 #354 [verbose] > │ () │
00:00:16 #355 [verbose] > │ │
00:00:16 #356 [verbose] > │ │
00:00:16 #357 [verbose] > ╰──────────────────────────────────────────────────────────────────────────────╯
00:00:16 #358 [verbose] >
00:00:16 #359 [verbose] > ── fsharp ──────────────────────────────────────────────────────────────────────
00:00:16 #360 [verbose] > #if !INTERACTIVE
00:00:16 #361 [verbose] > open Lib
00:00:16 #362 [verbose] > #endif
00:00:16 #363 [verbose] >
00:00:16 #364 [verbose] > ── spiral ──────────────────────────────────────────────────────────────────────
00:00:16 #365 [verbose] > inl (/@) x = listm'.(/@) x
00:00:16 #366 [verbose] > Building c:\home\git\polyglot\target\polyglot\spiral_eval\packages\171b25408a8cd9975131a61829eed2aaaacb7f8dcb899921373e2d66b8003dc9\main.spi
00:00:17 #367 [verbose] >
00:00:17 #368 [verbose] > ╭─[ 419.34ms - stdout ]────────────────────────────────────────────────────────╮
00:00:17 #369 [verbose] > │ () │
00:00:17 #370 [verbose] > │ │
00:00:17 #371 [verbose] > │ │
00:00:17 #372 [verbose] > ╰──────────────────────────────────────────────────────────────────────────────╯
00:00:17 #373 [verbose] >
00:00:17 #374 [verbose] > ── markdown ────────────────────────────────────────────────────────────────────
00:00:17 #375 [verbose] > ╭──────────────────────────────────────────────────────────────────────────────╮
00:00:17 #376 [verbose] > │ ## TestCaseResult │
00:00:17 #377 [verbose] > ╰──────────────────────────────────────────────────────────────────────────────╯
00:00:17 #378 [verbose] >
00:00:17 #379 [verbose] > ── fsharp ──────────────────────────────────────────────────────────────────────
00:00:17 #380 [verbose] > type TestCaseResult =
00:00:17 #381 [verbose] > {
00:00:17 #382 [verbose] > Input: string
00:00:17 #383 [verbose] > Expected: string
00:00:17 #384 [verbose] > Result: string
00:00:17 #385 [verbose] > TimeList: int64 list
00:00:17 #386 [verbose] > }
00:00:17 #387 [verbose] >
00:00:17 #388 [verbose] > ── markdown ────────────────────────────────────────────────────────────────────
00:00:17 #389 [verbose] > ╭──────────────────────────────────────────────────────────────────────────────╮
00:00:17 #390 [verbose] > │ ## run │
00:00:17 #391 [verbose] > ╰──────────────────────────────────────────────────────────────────────────────╯
00:00:17 #392 [verbose] >
00:00:17 #393 [verbose] > ── fsharp ──────────────────────────────────────────────────────────────────────
00:00:17 #394 [verbose] > let run count (solutions: (string * ('TInput -> 'TExpected)) list) (input,
00:00:17 #395 [verbose] > expected) =
00:00:17 #396 [verbose] > let inputStr =
00:00:17 #397 [verbose] > match box input with
00:00:17 #398 [verbose] > | :? System.Collections.ICollection as input ->
00:00:17 #399 [verbose] > System.Linq.Enumerable.Cast<obj> input
00:00:17 #400 [verbose] > |> Seq.map string
00:00:17 #401 [verbose] > |> SpiralSm.concat ","
00:00:17 #402 [verbose] > | _ -> input.ToString ()
00:00:17 #403 [verbose] >
00:00:17 #404 [verbose] > printfn ""
00:00:17 #405 [verbose] > printfn $"Solution: {inputStr} "
00:00:17 #406 [verbose] >
00:00:17 #407 [verbose] > let performanceInvoke (fn: unit -> 'T) =
00:00:17 #408 [verbose] > GC.Collect ()
00:00:17 #409 [verbose] > let stopwatch = System.Diagnostics.Stopwatch ()
00:00:17 #410 [verbose] > stopwatch.Start ()
00:00:17 #411 [verbose] > let time1 = stopwatch.ElapsedMilliseconds
00:00:17 #412 [verbose] >
00:00:17 #413 [verbose] > let result =
00:00:17 #414 [verbose] > [[| 0 .. count |]]
00:00:17 #415 [verbose] > |> Array.Parallel.map (fun _ ->
00:00:17 #416 [verbose] > fn ()
00:00:17 #417 [verbose] > )
00:00:17 #418 [verbose] > |> Array.last
00:00:17 #419 [verbose] >
00:00:17 #420 [verbose] > let time2 = stopwatch.ElapsedMilliseconds - time1
00:00:17 #421 [verbose] >
00:00:17 #422 [verbose] > result, time2
00:00:17 #423 [verbose] >
00:00:17 #424 [verbose] > let resultsWithTime =
00:00:17 #425 [verbose] > solutions
00:00:17 #426 [verbose] > |> List.mapi (fun i (testName, solution) ->
00:00:17 #427 [verbose] > let result, time = performanceInvoke (fun () -> solution input)
00:00:17 #428 [verbose] > printfn $"Test case %d{i + 1}. %s{testName}. Time: %A{time} "
00:00:17 #429 [verbose] > result, time
00:00:17 #430 [verbose] > )
00:00:17 #431 [verbose] >
00:00:17 #432 [verbose] >
00:00:17 #433 [verbose] > match resultsWithTime |> List.map fst with
00:00:17 #434 [verbose] > | ([[]] | [[ _ ]]) -> ()
00:00:17 #435 [verbose] > | (head :: tail) when tail |> List.forall ((=) head) -> ()
00:00:17 #436 [verbose] > | results -> failwithf $"Challenge error: %A{results}"
00:00:17 #437 [verbose] >
00:00:17 #438 [verbose] > {
00:00:17 #439 [verbose] > Input = inputStr
00:00:17 #440 [verbose] > Expected = expected.ToString ()
00:00:17 #441 [verbose] > Result = resultsWithTime |> Seq.map fst |> Seq.head |> _.ToString()
00:00:17 #442 [verbose] > TimeList = resultsWithTime |> List.map snd
00:00:17 #443 [verbose] > }
00:00:17 #444 [verbose] >
00:00:17 #445 [verbose] > ── markdown ────────────────────────────────────────────────────────────────────
00:00:17 #446 [verbose] > ╭──────────────────────────────────────────────────────────────────────────────╮
00:00:17 #447 [verbose] > │ ## runAll │
00:00:17 #448 [verbose] > ╰──────────────────────────────────────────────────────────────────────────────╯
00:00:17 #449 [verbose] >
00:00:17 #450 [verbose] > ── fsharp ──────────────────────────────────────────────────────────────────────
00:00:17 #451 [verbose] > let runAll testName count (solutions: (string * ('TInput -> 'TExpected)) list)
00:00:17 #452 [verbose] > testCases =
00:00:17 #453 [verbose] > printfn ""
00:00:17 #454 [verbose] > printfn ""
00:00:17 #455 [verbose] > printfn $"Test: {testName}"
00:00:17 #456 [verbose] > testCases
00:00:17 #457 [verbose] > |> Seq.map (run count solutions)
00:00:17 #458 [verbose] > |> Seq.toList
00:00:17 #459 [verbose] >
00:00:17 #460 [verbose] > ── markdown ────────────────────────────────────────────────────────────────────
00:00:17 #461 [verbose] > ╭──────────────────────────────────────────────────────────────────────────────╮
00:00:17 #462 [verbose] > │ ## sortResultList │
00:00:17 #463 [verbose] > ╰──────────────────────────────────────────────────────────────────────────────╯
00:00:17 #464 [verbose] >
00:00:17 #465 [verbose] > ── fsharp ──────────────────────────────────────────────────────────────────────
00:00:17 #466 [verbose] > let sortResultList resultList =
00:00:17 #467 [verbose] > let table =
00:00:17 #468 [verbose] > let rows =
00:00:17 #469 [verbose] > resultList
00:00:17 #470 [verbose] > |> List.map (fun result ->
00:00:17 #471 [verbose] > let best =
00:00:17 #472 [verbose] > result.TimeList
00:00:17 #473 [verbose] > |> List.mapi (fun i time ->
00:00:17 #474 [verbose] > i + 1, time
00:00:17 #475 [verbose] > )
00:00:17 #476 [verbose] > |> List.sortBy snd
00:00:17 #477 [verbose] > |> List.head
00:00:17 #478 [verbose] > |> _.ToString()
00:00:17 #479 [verbose] > let row =
00:00:17 #480 [verbose] > [[
00:00:17 #481 [verbose] > result.Input
00:00:17 #482 [verbose] > result.Expected
00:00:17 #483 [verbose] > result.Result
00:00:17 #484 [verbose] > best
00:00:17 #485 [verbose] > ]]
00:00:17 #486 [verbose] > let color =
00:00:17 #487 [verbose] > match result.Expected = result.Result with
00:00:17 #488 [verbose] > | true -> Some ConsoleColor.DarkGreen
00:00:17 #489 [verbose] > | false -> Some ConsoleColor.DarkRed
00:00:17 #490 [verbose] > row, color
00:00:17 #491 [verbose] > )
00:00:17 #492 [verbose] > let header =
00:00:17 #493 [verbose] > [[
00:00:17 #494 [verbose] > [[
00:00:17 #495 [verbose] > "Input"
00:00:17 #496 [verbose] > "Expected"
00:00:17 #497 [verbose] > "Result"
00:00:17 #498 [verbose] > "Best"
00:00:17 #499 [verbose] > ]]
00:00:17 #500 [verbose] > [[
00:00:17 #501 [verbose] > "---"
00:00:17 #502 [verbose] > "---"
00:00:17 #503 [verbose] > "---"
00:00:17 #504 [verbose] > "---"
00:00:17 #505 [verbose] > ]]
00:00:17 #506 [verbose] > ]]
00:00:17 #507 [verbose] > |> List.map (fun row -> row, None)
00:00:17 #508 [verbose] > header @ rows
00:00:17 #509 [verbose] >
00:00:17 #510 [verbose] > let formattedTable =
00:00:17 #511 [verbose] > let lengthMap =
00:00:17 #512 [verbose] > table
00:00:17 #513 [verbose] > |> List.map fst
00:00:17 #514 [verbose] > |> List.transpose
00:00:17 #515 [verbose] > |> List.map (fun column ->
00:00:17 #516 [verbose] > column
00:00:17 #517 [verbose] > |> List.map String.length
00:00:17 #518 [verbose] > |> List.sortDescending
00:00:17 #519 [verbose] > |> List.tryHead
00:00:17 #520 [verbose] > |> Option.defaultValue 0
00:00:17 #521 [verbose] > )
00:00:17 #522 [verbose] > |> List.indexed
00:00:17 #523 [verbose] > |> Map.ofList
00:00:17 #524 [verbose] > table
00:00:17 #525 [verbose] > |> List.map (fun (row, color) ->
00:00:17 #526 [verbose] > let newRow =
00:00:17 #527 [verbose] > row
00:00:17 #528 [verbose] > |> List.mapi (fun i cell ->
00:00:17 #529 [verbose] > cell.PadRight lengthMap.[[i]]
00:00:17 #530 [verbose] > )
00:00:17 #531 [verbose] > newRow, color
00:00:17 #532 [verbose] > )
00:00:17 #533 [verbose] >
00:00:17 #534 [verbose] > printfn ""
00:00:17 #535 [verbose] > formattedTable
00:00:17 #536 [verbose] > |> List.iter (fun (row, color) ->
00:00:17 #537 [verbose] > match color with
00:00:17 #538 [verbose] > | Some color -> Console.ForegroundColor <- color
00:00:17 #539 [verbose] > | None -> Console.ResetColor ()
00:00:17 #540 [verbose] >
00:00:17 #541 [verbose] > printfn "%s" (String.Join ("\t| ", row))
00:00:17 #542 [verbose] >
00:00:17 #543 [verbose] > Console.ResetColor ()
00:00:17 #544 [verbose] > )
00:00:17 #545 [verbose] >
00:00:17 #546 [verbose] > let averages =
00:00:17 #547 [verbose] > resultList
00:00:17 #548 [verbose] > |> List.map (fun result -> result.TimeList |> List.map float)
00:00:17 #549 [verbose] > |> List.transpose
00:00:17 #550 [verbose] > |> List.map List.average
00:00:17 #551 [verbose] > |> List.map int64
00:00:17 #552 [verbose] > |> List.indexed
00:00:17 #553 [verbose] >
00:00:17 #554 [verbose] > printfn ""
00:00:17 #555 [verbose] > printfn "Average Ranking "
00:00:17 #556 [verbose] > averages
00:00:17 #557 [verbose] > |> List.sortBy snd
00:00:17 #558 [verbose] > |> List.iter (fun (i, avg) ->
00:00:17 #559 [verbose] > printfn $"Test case %d{i + 1}. Average Time: %A{avg} "
00:00:17 #560 [verbose] > )
00:00:17 #561 [verbose] >
00:00:17 #562 [verbose] > ── fsharp ──────────────────────────────────────────────────────────────────────
00:00:17 #563 [verbose] > let mutable _count =
00:00:17 #564 [verbose] > if ("CI" |> System.Environment.GetEnvironmentVariable |> fun x -> $"%A{x}")
00:00:17 #565 [verbose] > <> "<null>"
00:00:17 #566 [verbose] > then 2000000
00:00:17 #567 [verbose] > else 2000
00:00:17 #568 [verbose] >
00:00:17 #569 [verbose] > ── spiral ──────────────────────────────────────────────────────────────────────
00:00:17 #570 [verbose] > inl is_fast () =
00:00:17 #571 [verbose] > false
00:00:17 #572 [verbose] > Building c:\home\git\polyglot\target\polyglot\spiral_eval\packages\b0ccd1ee6008c4d24be9ff554910920ba62f1a3887ec8adff6148e1fad804ac5\main.spi
00:00:17 #573 [verbose] >
00:00:17 #574 [verbose] > ╭─[ 396.27ms - stdout ]────────────────────────────────────────────────────────╮
00:00:17 #575 [verbose] > │ () │
00:00:17 #576 [verbose] > │ │
00:00:17 #577 [verbose] > │ │
00:00:17 #578 [verbose] > ╰──────────────────────────────────────────────────────────────────────────────╯
00:00:17 #579 [verbose] >
00:00:17 #580 [verbose] > ── markdown ────────────────────────────────────────────────────────────────────
00:00:17 #581 [verbose] > ╭──────────────────────────────────────────────────────────────────────────────╮
00:00:17 #582 [verbose] > │ ## empty3Tests │
00:00:17 #583 [verbose] > ╰──────────────────────────────────────────────────────────────────────────────╯
00:00:17 #584 [verbose] >
00:00:17 #585 [verbose] > ── markdown ────────────────────────────────────────────────────────────────────
00:00:17 #586 [verbose] > ╭──────────────────────────────────────────────────────────────────────────────╮
00:00:17 #587 [verbose] > │ Test: Empty3 │
00:00:17 #588 [verbose] > │ │
00:00:17 #589 [verbose] > │ Solution: (a, a) │
00:00:17 #590 [verbose] > │ Test case 1. A. Time: 91L │
00:00:17 #591 [verbose] > │ │
00:00:17 #592 [verbose] > │ Solution: (a, a) │
00:00:17 #593 [verbose] > │ Test case 1. A. Time: 56L │
00:00:17 #594 [verbose] > │ │
00:00:17 #595 [verbose] > │ Input | Expected | Result | Best │
00:00:17 #596 [verbose] > │ --- | --- | --- | --- │
00:00:17 #597 [verbose] > │ (a, a) | a | a | (1, 91) │
00:00:17 #598 [verbose] > │ (a, a) | a | a | (1, 56) │
00:00:17 #599 [verbose] > │ │
00:00:17 #600 [verbose] > │ Averages │
00:00:17 #601 [verbose] > │ Test case 1. Average Time: 73L │
00:00:17 #602 [verbose] > │ │
00:00:17 #603 [verbose] > │ Ranking │
00:00:17 #604 [verbose] > │ Test case 1. Average Time: 73L │
00:00:17 #605 [verbose] > ╰──────────────────────────────────────────────────────────────────────────────╯
00:00:17 #606 [verbose] >
00:00:17 #607 [verbose] > ── fsharp ──────────────────────────────────────────────────────────────────────
00:00:17 #608 [verbose] > //// test
00:00:17 #609 [verbose] >
00:00:17 #610 [verbose] > let solutions = [[
00:00:17 #611 [verbose] > "A",
00:00:17 #612 [verbose] > fun (a, _b) ->
00:00:17 #613 [verbose] > a
00:00:17 #614 [verbose] > ]]
00:00:17 #615 [verbose] > let testCases = seq {
00:00:17 #616 [verbose] > ("a", "a"), "a"
00:00:17 #617 [verbose] > ("a", "a"), "a"
00:00:17 #618 [verbose] > }
00:00:17 #619 [verbose] > let rec empty3Tests = runAll (nameof empty3Tests) _count solutions testCases
00:00:17 #620 [verbose] > empty3Tests
00:00:17 #621 [verbose] > |> sortResultList
00:00:18 #622 [verbose] >
00:00:18 #623 [verbose] > ╭─[ 364.77ms - stdout ]────────────────────────────────────────────────────────╮
00:00:18 #624 [verbose] > │ │
00:00:18 #625 [verbose] > │ │
00:00:18 #626 [verbose] > │ Test: empty3Tests │
00:00:18 #627 [verbose] > │ │
00:00:18 #628 [verbose] > │ Solution: (a, a) │
00:00:18 #629 [verbose] > │ Test case 1. A. Time: 1L │
00:00:18 #630 [verbose] > │ │
00:00:18 #631 [verbose] > │ Solution: (a, a) │
00:00:18 #632 [verbose] > │ Test case 1. A. Time: 0L │
00:00:18 #633 [verbose] > │ │
00:00:18 #634 [verbose] > │ Input | Expected | Result | Best │
00:00:18 #635 [verbose] > │ --- | --- | --- | --- │
00:00:18 #636 [verbose] > │ (a, a) | a | a | (1, 1) │
00:00:18 #637 [verbose] > │ (a, a) | a | a | (1, 0) │
00:00:18 #638 [verbose] > │ │
00:00:18 #639 [verbose] > │ Average Ranking │
00:00:18 #640 [verbose] > │ Test case 1. Average Time: 0L │
00:00:18 #641 [verbose] > │ │
00:00:18 #642 [verbose] > ╰──────────────────────────────────────────────────────────────────────────────╯
00:00:18 #643 [verbose] >
00:00:18 #644 [verbose] > ── markdown ────────────────────────────────────────────────────────────────────
00:00:18 #645 [verbose] > ╭──────────────────────────────────────────────────────────────────────────────╮
00:00:18 #646 [verbose] > │ ## empty2Tests │
00:00:18 #647 [verbose] > ╰──────────────────────────────────────────────────────────────────────────────╯
00:00:18 #648 [verbose] >
00:00:18 #649 [verbose] > ── markdown ────────────────────────────────────────────────────────────────────
00:00:18 #650 [verbose] > ╭──────────────────────────────────────────────────────────────────────────────╮
00:00:18 #651 [verbose] > │ Test: Empty2 │
00:00:18 #652 [verbose] > │ │
00:00:18 #653 [verbose] > │ Solution: (a, a) │
00:00:18 #654 [verbose] > │ Test case 1. A. Time: 59L │
00:00:18 #655 [verbose] > │ │
00:00:18 #656 [verbose] > │ Solution: (a, a) │
00:00:18 #657 [verbose] > │ Test case 1. A. Time: 53L │
00:00:18 #658 [verbose] > │ │
00:00:18 #659 [verbose] > │ Input | Expected | Result | Best │
00:00:18 #660 [verbose] > │ --- | --- | --- | --- │
00:00:18 #661 [verbose] > │ (a, a) | a | a | (1, 59) │
00:00:18 #662 [verbose] > │ (a, a) | a | a | (1, 53) │
00:00:18 #663 [verbose] > │ │
00:00:18 #664 [verbose] > │ Averages │
00:00:18 #665 [verbose] > │ Test case 1. Average Time: 56L │
00:00:18 #666 [verbose] > │ │
00:00:18 #667 [verbose] > │ Ranking │
00:00:18 #668 [verbose] > │ Test case 1. Average Time: 56L │
00:00:18 #669 [verbose] > ╰──────────────────────────────────────────────────────────────────────────────╯
00:00:18 #670 [verbose] >
00:00:18 #671 [verbose] > ── fsharp ──────────────────────────────────────────────────────────────────────
00:00:18 #672 [verbose] > //// test
00:00:18 #673 [verbose] >
00:00:18 #674 [verbose] > let solutions = [[
00:00:18 #675 [verbose] > "A",
00:00:18 #676 [verbose] > fun (a, _b) ->
00:00:18 #677 [verbose] > a
00:00:18 #678 [verbose] > ]]
00:00:18 #679 [verbose] > let testCases = seq {
00:00:18 #680 [verbose] > ("a", "a"), "a"
00:00:18 #681 [verbose] > ("a", "a"), "a"
00:00:18 #682 [verbose] > }
00:00:18 #683 [verbose] > let rec empty2Tests = runAll (nameof empty2Tests) _count solutions testCases
00:00:18 #684 [verbose] > empty2Tests
00:00:18 #685 [verbose] > |> sortResultList
00:00:18 #686 [verbose] >
00:00:18 #687 [verbose] > ╭─[ 367.55ms - stdout ]────────────────────────────────────────────────────────╮
00:00:18 #688 [verbose] > │ │
00:00:18 #689 [verbose] > │ │
00:00:18 #690 [verbose] > │ Test: empty2Tests │
00:00:18 #691 [verbose] > │ │
00:00:18 #692 [verbose] > │ Solution: (a, a) │
00:00:18 #693 [verbose] > │ Test case 1. A. Time: 0L │
00:00:18 #694 [verbose] > │ │
00:00:18 #695 [verbose] > │ Solution: (a, a) │
00:00:18 #696 [verbose] > │ Test case 1. A. Time: 0L │
00:00:18 #697 [verbose] > │ │
00:00:18 #698 [verbose] > │ Input | Expected | Result | Best │
00:00:18 #699 [verbose] > │ --- | --- | --- | --- │
00:00:18 #700 [verbose] > │ (a, a) | a | a | (1, 0) │
00:00:18 #701 [verbose] > │ (a, a) | a | a | (1, 0) │
00:00:18 #702 [verbose] > │ │
00:00:18 #703 [verbose] > │ Average Ranking │
00:00:18 #704 [verbose] > │ Test case 1. Average Time: 0L │
00:00:18 #705 [verbose] > │ │
00:00:18 #706 [verbose] > ╰──────────────────────────────────────────────────────────────────────────────╯
00:00:18 #707 [verbose] >
00:00:18 #708 [verbose] > ── markdown ────────────────────────────────────────────────────────────────────
00:00:18 #709 [verbose] > ╭──────────────────────────────────────────────────────────────────────────────╮
00:00:18 #710 [verbose] > │ ## emptyTests │
00:00:18 #711 [verbose] > ╰──────────────────────────────────────────────────────────────────────────────╯
00:00:18 #712 [verbose] >
00:00:18 #713 [verbose] > ── markdown ────────────────────────────────────────────────────────────────────
00:00:18 #714 [verbose] > ╭──────────────────────────────────────────────────────────────────────────────╮
00:00:18 #715 [verbose] > │ Test: Empty │
00:00:18 #716 [verbose] > │ │
00:00:18 #717 [verbose] > │ Solution: 0 │
00:00:18 #718 [verbose] > │ Test case 1. A. Time: 61L │
00:00:18 #719 [verbose] > │ │
00:00:18 #720 [verbose] > │ Solution: 2 │
00:00:18 #721 [verbose] > │ Test case 1. A. Time: 62L │
00:00:18 #722 [verbose] > │ │
00:00:18 #723 [verbose] > │ Solution: 5 │
00:00:18 #724 [verbose] > │ Test case 1. A. Time: 70L │
00:00:18 #725 [verbose] > │ │
00:00:18 #726 [verbose] > │ Input | Expected | Result | Best │
00:00:18 #727 [verbose] > │ --- | --- | --- | --- │
00:00:18 #728 [verbose] > │ 0 | 0 | 0 | (1, 61) │
00:00:18 #729 [verbose] > │ 2 | 2 | 2 | (1, 62) │
00:00:18 #730 [verbose] > │ 5 | 5 | 5 | (1, 70) │
00:00:18 #731 [verbose] > │ │
00:00:18 #732 [verbose] > │ Averages │
00:00:18 #733 [verbose] > │ Test case 1. Average Time: 64L │
00:00:18 #734 [verbose] > │ │
00:00:18 #735 [verbose] > │ Ranking │
00:00:18 #736 [verbose] > │ Test case 1. Average Time: 64L │
00:00:18 #737 [verbose] > ╰──────────────────────────────────────────────────────────────────────────────╯
00:00:18 #738 [verbose] >
00:00:18 #739 [verbose] > ── fsharp ──────────────────────────────────────────────────────────────────────
00:00:18 #740 [verbose] > //// test
00:00:18 #741 [verbose] >
00:00:18 #742 [verbose] > let solutions = [[
00:00:18 #743 [verbose] > "A",
00:00:18 #744 [verbose] > fun n ->
00:00:18 #745 [verbose] > n + 0
00:00:18 #746 [verbose] > ]]
00:00:18 #747 [verbose] > let testCases = seq {
00:00:18 #748 [verbose] > 0, 0
00:00:18 #749 [verbose] > 2, 2
00:00:18 #750 [verbose] > 5, 5
00:00:18 #751 [verbose] > }
00:00:18 #752 [verbose] > let rec emptyTests = runAll (nameof emptyTests) _count solutions testCases
00:00:18 #753 [verbose] > emptyTests
00:00:18 #754 [verbose] > |> sortResultList
00:00:19 #755 [verbose] >
00:00:19 #756 [verbose] > ╭─[ 544.07ms - stdout ]────────────────────────────────────────────────────────╮
00:00:19 #757 [verbose] > │ │
00:00:19 #758 [verbose] > │ │
00:00:19 #759 [verbose] > │ Test: emptyTests │
00:00:19 #760 [verbose] > │ │
00:00:19 #761 [verbose] > │ Solution: 0 │
00:00:19 #762 [verbose] > │ Test case 1. A. Time: 2L │
00:00:19 #763 [verbose] > │ │
00:00:19 #764 [verbose] > │ Solution: 2 │
00:00:19 #765 [verbose] > │ Test case 1. A. Time: 0L │
00:00:19 #766 [verbose] > │ │
00:00:19 #767 [verbose] > │ Solution: 5 │
00:00:19 #768 [verbose] > │ Test case 1. A. Time: 0L │
00:00:19 #769 [verbose] > │ │
00:00:19 #770 [verbose] > │ Input | Expected | Result | Best │
00:00:19 #771 [verbose] > │ --- | --- | --- | --- │
00:00:19 #772 [verbose] > │ 0 | 0 | 0 | (1, 2) │
00:00:19 #773 [verbose] > │ 2 | 2 | 2 | (1, 0) │
00:00:19 #774 [verbose] > │ 5 | 5 | 5 | (1, 0) │
00:00:19 #775 [verbose] > │ │
00:00:19 #776 [verbose] > │ Average Ranking │
00:00:19 #777 [verbose] > │ Test case 1. Average Time: 0L │
00:00:19 #778 [verbose] > │ │
00:00:19 #779 [verbose] > ╰──────────────────────────────────────────────────────────────────────────────╯
00:00:19 #780 [verbose] >
00:00:19 #781 [verbose] > ── markdown ────────────────────────────────────────────────────────────────────
00:00:19 #782 [verbose] > ╭──────────────────────────────────────────────────────────────────────────────╮
00:00:19 #783 [verbose] > │ ## uniqueLettersTests │
00:00:19 #784 [verbose] > ╰──────────────────────────────────────────────────────────────────────────────╯
00:00:19 #785 [verbose] >
00:00:19 #786 [verbose] > ── markdown ────────────────────────────────────────────────────────────────────
00:00:19 #787 [verbose] > ╭──────────────────────────────────────────────────────────────────────────────╮
00:00:19 #788 [verbose] > │ Test: UniqueLetters │
00:00:19 #789 [verbose] > │ │
00:00:19 #790 [verbose] > │ Solution: abc │
00:00:19 #791 [verbose] > │ Test case 1. A. Time: 1512L │
00:00:19 #792 [verbose] > │ Test case 2. B. Time: 1947L │
00:00:19 #793 [verbose] > │ Test case 3. C. Time: 2023L │
00:00:19 #794 [verbose] > │ Test case 4. D. Time: 1358L │
00:00:19 #795 [verbose] > │ Test case 5. E. Time: 1321L │
00:00:19 #796 [verbose] > │ Test case 6. F. Time: 1346L │
00:00:19 #797 [verbose] > │ Test case 7. G. Time: 1304L │
00:00:19 #798 [verbose] > │ Test case 8. H. Time: 1383L │
00:00:19 #799 [verbose] > │ Test case 9. I. Time: 1495L │
00:00:19 #800 [verbose] > │ Test case 10. J. Time: 1245L │
00:00:19 #801 [verbose] > │ Test case 11. K. Time: 1219L │
00:00:19 #802 [verbose] > │ │
00:00:19 #803 [verbose] > │ Solution: accabb │
00:00:19 #804 [verbose] > │ Test case 1. A. Time: 1648L │
00:00:19 #805 [verbose] > │ Test case 2. B. Time: 2061L │
00:00:19 #806 [verbose] > │ Test case 3. C. Time: 2413L │
00:00:19 #807 [verbose] > │ Test case 4. D. Time: 1561L │
00:00:19 #808 [verbose] > │ Test case 5. E. Time: 1593L │
00:00:19 #809 [verbose] > │ Test case 6. F. Time: 1518L │
00:00:19 #810 [verbose] > │ Test case 7. G. Time: 1415L │
00:00:19 #811 [verbose] > │ Test case 8. H. Time: 1510L │
00:00:19 #812 [verbose] > │ Test case 9. I. Time: 1445L │
00:00:19 #813 [verbose] > │ Test case 10. J. Time: 1636L │
00:00:19 #814 [verbose] > │ Test case 11. K. Time: 1317L │
00:00:19 #815 [verbose] > │ │
00:00:19 #816 [verbose] > │ Solution: pprrqqpp │
00:00:19 #817 [verbose] > │ Test case 1. A. Time: 2255L │
00:00:19 #818 [verbose] > │ Test case 2. B. Time: 2408L │
00:00:19 #819 [verbose] > │ Test case 3. C. Time: 2393L │
00:00:19 #820 [verbose] > │ Test case 4. D. Time: 1675L │
00:00:19 #821 [verbose] > │ Test case 5. E. Time: 1911L │
00:00:19 #822 [verbose] > │ Test case 6. F. Time: 2126L │
00:00:19 #823 [verbose] > │ Test case 7. G. Time: 1504L │
00:00:19 #824 [verbose] > │ Test case 8. H. Time: 1715L │
00:00:19 #825 [verbose] > │ Test case 9. I. Time: 1537L │
00:00:19 #826 [verbose] > │ Test case 10. J. Time: 1522L │
00:00:19 #827 [verbose] > │ Test case 11. K. Time: 1322L │
00:00:19 #828 [verbose] > │ │
00:00:19 #829 [verbose] > │ Solution: │
00:00:19 #830 [verbose] > │ aaaaaaaaaaaaaaccccccabbbbbbbaaacccbbbaaccccccccccacbbbbbbbbbbbbbcccccccbbbbb │
00:00:19 #831 [verbose] > │ bbb │
00:00:19 #832 [verbose] > │ Test case 1. A. Time: 13073L │
00:00:19 #833 [verbose] > │ Test case 2. B. Time: 11519L │
00:00:19 #834 [verbose] > │ Test case 3. C. Time: 8373L │
00:00:19 #835 [verbose] > │ Test case 4. D. Time: 5860L │
00:00:19 #836 [verbose] > │ Test case 5. E. Time: 6490L │
00:00:19 #837 [verbose] > │ Test case 6. F. Time: 6325L │
00:00:19 #838 [verbose] > │ Test case 7. G. Time: 5799L │
00:00:19 #839 [verbose] > │ Test case 8. H. Time: 7099L │
00:00:19 #840 [verbose] > │ Test case 9. I. Time: 6133L │
00:00:19 #841 [verbose] > │ Test case 10. J. Time: 5993L │
00:00:19 #842 [verbose] > │ Test case 11. K. Time: 2040L │
00:00:19 #843 [verbose] > │ │
00:00:19 #844 [verbose] > │ Input │
00:00:19 #845 [verbose] > │ | Expected | Result | Best │
00:00:19 #846 [verbose] > │ --- │
00:00:19 #847 [verbose] > │ │
00:00:19 #848 [verbose] > │ | --- | --- | --- │
00:00:19 #849 [verbose] > │ abc │
00:00:19 #850 [verbose] > │ │
00:00:19 #851 [verbose] > │ | abc | abc | (11, 1219) │
00:00:19 #852 [verbose] > │ accabb │
00:00:19 #853 [verbose] > │ | acb | acb | (11, 1317) │
00:00:19 #854 [verbose] > │ pprrqqpp │
00:00:19 #855 [verbose] > │ | prq | prq | (11, 1322) │
00:00:19 #856 [verbose] > │ aaaaaaaaaaaaaaccccccabbbbbbbaaacccbbbaaccccccccccacbbbbbbbbbbbbbcccccccbbbbb │
00:00:19 #857 [verbose] > │ bbb | acb | acb | (11, 2040) │
00:00:19 #858 [verbose] > │ │
00:00:19 #859 [verbose] > │ Averages │
00:00:19 #860 [verbose] > │ Test case 1. Average Time: 4622L │
00:00:19 #861 [verbose] > │ Test case 2. Average Time: 4483L │
00:00:19 #862 [verbose] > │ Test case 3. Average Time: 3800L │
00:00:19 #863 [verbose] > │ Test case 4. Average Time: 2613L │
00:00:19 #864 [verbose] > │ Test case 5. Average Time: 2828L │
00:00:19 #865 [verbose] > │ Test case 6. Average Time: 2828L │
00:00:19 #866 [verbose] > │ Test case 7. Average Time: 2505L │
00:00:19 #867 [verbose] > │ Test case 8. Average Time: 2926L │
00:00:19 #868 [verbose] > │ Test case 9. Average Time: 2652L │
00:00:19 #869 [verbose] > │ Test case 10. Average Time: 2599L │
00:00:19 #870 [verbose] > │ Test case 11. Average Time: 1474L │
00:00:19 #871 [verbose] > │ │
00:00:19 #872 [verbose] > │ Ranking │
00:00:19 #873 [verbose] > │ Test case 1. Average Time: 4622L │
00:00:19 #874 [verbose] > │ Test case 2. Average Time: 4483L │
00:00:19 #875 [verbose] > │ Test case 3. Average Time: 3800L │
00:00:19 #876 [verbose] > │ Test case 8. Average Time: 2926L │
00:00:19 #877 [verbose] > │ Test case 5. Average Time: 2828L │
00:00:19 #878 [verbose] > │ Test case 6. Average Time: 2828L │
00:00:19 #879 [verbose] > │ Test case 9. Average Time: 2652L │
00:00:19 #880 [verbose] > │ Test case 4. Average Time: 2613L │
00:00:19 #881 [verbose] > │ Test case 10. Average Time: 2599L │
00:00:19 #882 [verbose] > │ Test case 7. Average Time: 2505L │
00:00:19 #883 [verbose] > │ Test case 11. Average Time: 1474L │
00:00:19 #884 [verbose] > ╰──────────────────────────────────────────────────────────────────────────────╯
00:00:19 #885 [verbose] >
00:00:19 #886 [verbose] > ── fsharp ──────────────────────────────────────────────────────────────────────
00:00:19 #887 [verbose] > //// test
00:00:19 #888 [verbose] >
00:00:19 #889 [verbose] > let solutions = [[
00:00:19 #890 [verbose] > "A",
00:00:19 #891 [verbose] > fun input ->
00:00:19 #892 [verbose] > input
00:00:19 #893 [verbose] > |> Seq.toList
00:00:19 #894 [verbose] > |> List.fold (fun acc x -> if List.contains x acc then acc else acc @ [[
00:00:19 #895 [verbose] > x ]]) [[]]
00:00:19 #896 [verbose] > |> Seq.toArray
00:00:19 #897 [verbose] > |> String
00:00:19 #898 [verbose] >
00:00:19 #899 [verbose] > "B",
00:00:19 #900 [verbose] > fun input ->
00:00:19 #901 [verbose] > input
00:00:19 #902 [verbose] > |> Seq.rev
00:00:19 #903 [verbose] > |> fun list -> Seq.foldBack (fun x acc -> if List.contains x acc then
00:00:19 #904 [verbose] > acc else x :: acc) list [[]]
00:00:19 #905 [verbose] > |> Seq.rev
00:00:19 #906 [verbose] > |> Seq.toArray
00:00:19 #907 [verbose] > |> String
00:00:19 #908 [verbose] >
00:00:19 #909 [verbose] > "C",
00:00:19 #910 [verbose] > fun input ->
00:00:19 #911 [verbose] > input
00:00:19 #912 [verbose] > |> Seq.rev
00:00:19 #913 [verbose] > |> fun list -> Seq.foldBack (fun x (set, acc) -> if Set.contains x set
00:00:19 #914 [verbose] > then set, acc else set.Add x, x :: acc) list (Set.empty, [[]])
00:00:19 #915 [verbose] > |> snd
00:00:19 #916 [verbose] > |> Seq.rev
00:00:19 #917 [verbose] > |> Seq.toArray
00:00:19 #918 [verbose] > |> String
00:00:19 #919 [verbose] >
00:00:19 #920 [verbose] > "D",
00:00:19 #921 [verbose] > fun input ->
00:00:19 #922 [verbose] > input
00:00:19 #923 [verbose] > |> Seq.fold (fun (set, acc) x -> if Set.contains x set then set, acc
00:00:19 #924 [verbose] > else set.Add x, Array.append acc [[| x |]]) (Set.empty, [[||]])
00:00:19 #925 [verbose] > |> snd
00:00:19 #926 [verbose] > |> String
00:00:19 #927 [verbose] >
00:00:19 #928 [verbose] > "E",
00:00:19 #929 [verbose] > fun input ->
00:00:19 #930 [verbose] > input
00:00:19 #931 [verbose] > |> Seq.fold (fun (set, acc) x -> if Set.contains x set then set, acc
00:00:19 #932 [verbose] > else set.Add x, x :: acc) (Set.empty, [[]])
00:00:19 #933 [verbose] > |> snd
00:00:19 #934 [verbose] > |> List.rev
00:00:19 #935 [verbose] > |> List.toArray
00:00:19 #936 [verbose] > |> String
00:00:19 #937 [verbose] >
00:00:19 #938 [verbose] > "F",
00:00:19 #939 [verbose] > fun input ->
00:00:19 #940 [verbose] > input
00:00:19 #941 [verbose] > |> Seq.fold (fun (set, acc) x -> if Set.contains x set then set, acc
00:00:19 #942 [verbose] > else set.Add x, acc @ [[ x ]]) (Set.empty, [[]])
00:00:19 #943 [verbose] > |> snd
00:00:19 #944 [verbose] > |> List.toArray
00:00:19 #945 [verbose] > |> String
00:00:19 #946 [verbose] >
00:00:19 #947 [verbose] > "G",
00:00:19 #948 [verbose] > fun input ->
00:00:19 #949 [verbose] > input
00:00:19 #950 [verbose] > |> Seq.fold (fun (set, acc) x -> if Set.contains x set then set, acc
00:00:19 #951 [verbose] > else set.Add x, x :: acc) (Set.empty, [[]])
00:00:19 #952 [verbose] > |> snd
00:00:19 #953 [verbose] > |> List.toArray
00:00:19 #954 [verbose] > |> Array.rev
00:00:19 #955 [verbose] > |> String
00:00:19 #956 [verbose] >
00:00:19 #957 [verbose] > "H",
00:00:19 #958 [verbose] > fun input ->
00:00:19 #959 [verbose] > input
00:00:19 #960 [verbose] > |> Seq.toList
00:00:19 #961 [verbose] > |> fun list ->
00:00:19 #962 [verbose] > let rec loop set = function
00:00:19 #963 [verbose] > | head :: tail when Set.contains head set -> loop set tail
00:00:19 #964 [verbose] > | head :: tail -> (loop (set.Add head) tail) @ [[ head ]]
00:00:19 #965 [verbose] > | [[]] -> [[]]
00:00:19 #966 [verbose] > loop Set.empty list
00:00:19 #967 [verbose] > |> List.rev
00:00:19 #968 [verbose] > |> List.toArray
00:00:19 #969 [verbose] > |> String
00:00:19 #970 [verbose] >
00:00:19 #971 [verbose] > "I",
00:00:19 #972 [verbose] > fun input ->
00:00:19 #973 [verbose] > input
00:00:19 #974 [verbose] > |> Seq.toList
00:00:19 #975 [verbose] > |> fun list ->
00:00:19 #976 [verbose] > let rec loop set = function
00:00:19 #977 [verbose] > | head :: tail when Set.contains head set -> loop set tail
00:00:19 #978 [verbose] > | head :: tail -> loop (set.Add head) tail |> Array.append [[|
00:00:19 #979 [verbose] > head |]]
00:00:19 #980 [verbose] > | [[]] -> [[||]]
00:00:19 #981 [verbose] > loop Set.empty list
00:00:19 #982 [verbose] > |> String
00:00:19 #983 [verbose] >
00:00:19 #984 [verbose] > "J",
00:00:19 #985 [verbose] > fun input ->
00:00:19 #986 [verbose] > input
00:00:19 #987 [verbose] > |> Seq.toList
00:00:19 #988 [verbose] > |> fun list ->
00:00:19 #989 [verbose] > let rec loop set = function
00:00:19 #990 [verbose] > | head :: tail when Set.contains head set -> loop set tail
00:00:19 #991 [verbose] > | head :: tail -> head :: loop (set.Add head) tail
00:00:19 #992 [verbose] > | [[]] -> [[]]
00:00:19 #993 [verbose] > loop Set.empty list
00:00:19 #994 [verbose] > |> List.toArray
00:00:19 #995 [verbose] > |> String
00:00:19 #996 [verbose] >
00:00:19 #997 [verbose] > "K",
00:00:19 #998 [verbose] > fun input ->
00:00:19 #999 [verbose] > input
00:00:19 #1000 [verbose] > |> Seq.distinct
00:00:19 #1001 [verbose] > |> Seq.toArray
00:00:19 #1002 [verbose] > |> String
00:00:19 #1003 [verbose] > ]]
00:00:19 #1004 [verbose] > let testCases = seq {
00:00:19 #1005 [verbose] > "abc", "abc"
00:00:19 #1006 [verbose] > "accabb", "acb"
00:00:19 #1007 [verbose] > "pprrqqpp", "prq"
00:00:19 #1008 [verbose] >
00:00:19 #1009 [verbose] > "aaaaaaaaaaaaaaccccccabbbbbbbaaacccbbbaaccccccccccacbbbbbbbbbbbbbcccccccbbbbbbbb
00:00:19 #1010 [verbose] > ", "acb"
00:00:19 #1011 [verbose] > }
00:00:19 #1012 [verbose] > let rec uniqueLettersTests = runAll (nameof uniqueLettersTests) _count solutions
00:00:19 #1013 [verbose] > testCases
00:00:19 #1014 [verbose] > uniqueLettersTests
00:00:19 #1015 [verbose] > |> sortResultList
00:00:26 #1016 [verbose] >
00:00:26 #1017 [verbose] > ╭─[ 7.04s - stdout ]───────────────────────────────────────────────────────────╮
00:00:26 #1018 [verbose] > │ │
00:00:26 #1019 [verbose] > │ │
00:00:26 #1020 [verbose] > │ Test: uniqueLettersTests │
00:00:26 #1021 [verbose] > │ │
00:00:26 #1022 [verbose] > │ Solution: abc │
00:00:26 #1023 [verbose] > │ Test case 1. A. Time: 3L │
00:00:26 #1024 [verbose] > │ Test case 2. B. Time: 3L │
00:00:26 #1025 [verbose] > │ Test case 3. C. Time: 4L │
00:00:26 #1026 [verbose] > │ Test case 4. D. Time: 2L │
00:00:26 #1027 [verbose] > │ Test case 5. E. Time: 2L │
00:00:26 #1028 [verbose] > │ Test case 6. F. Time: 1L │
00:00:26 #1029 [verbose] > │ Test case 7. G. Time: 1L │
00:00:26 #1030 [verbose] > │ Test case 8. H. Time: 2L │
00:00:26 #1031 [verbose] > │ Test case 9. I. Time: 1L │
00:00:26 #1032 [verbose] > │ Test case 10. J. Time: 1L │
00:00:26 #1033 [verbose] > │ Test case 11. K. Time: 3L │
00:00:26 #1034 [verbose] > │ │
00:00:26 #1035 [verbose] > │ Solution: accabb │
00:00:26 #1036 [verbose] > │ Test case 1. A. Time: 1L │
00:00:26 #1037 [verbose] > │ Test case 2. B. Time: 1L │
00:00:26 #1038 [verbose] > │ Test case 3. C. Time: 1L │
00:00:26 #1039 [verbose] > │ Test case 4. D. Time: 1L │
00:00:26 #1040 [verbose] > │ Test case 5. E. Time: 0L │
00:00:26 #1041 [verbose] > │ Test case 6. F. Time: 0L │
00:00:26 #1042 [verbose] > │ Test case 7. G. Time: 0L │
00:00:26 #1043 [verbose] > │ Test case 8. H. Time: 0L │
00:00:26 #1044 [verbose] > │ Test case 9. I. Time: 0L │
00:00:26 #1045 [verbose] > │ Test case 10. J. Time: 0L │
00:00:26 #1046 [verbose] > │ Test case 11. K. Time: 1L │
00:00:26 #1047 [verbose] > │ │
00:00:26 #1048 [verbose] > │ Solution: pprrqqpp │
00:00:26 #1049 [verbose] > │ Test case 1. A. Time: 1L │
00:00:26 #1050 [verbose] > │ Test case 2. B. Time: 1L │
00:00:26 #1051 [verbose] > │ Test case 3. C. Time: 1L │
00:00:26 #1052 [verbose] > │ Test case 4. D. Time: 1L │
00:00:26 #1053 [verbose] > │ Test case 5. E. Time: 1L │
00:00:26 #1054 [verbose] > │ Test case 6. F. Time: 1L │
00:00:26 #1055 [verbose] > │ Test case 7. G. Time: 1L │
00:00:26 #1056 [verbose] > │ Test case 8. H. Time: 1L │
00:00:26 #1057 [verbose] > │ Test case 9. I. Time: 1L │
00:00:26 #1058 [verbose] > │ Test case 10. J. Time: 1L │
00:00:26 #1059 [verbose] > │ Test case 11. K. Time: 1L │
00:00:26 #1060 [verbose] > │ │
00:00:26 #1061 [verbose] > │ Solution: │
00:00:26 #1062 [verbose] > │ aaaaaaaaaaaaaaccccccabbbbbbbaaacccbbbaaccccccccccacbbbbbbbbbbbbbcccccccbbbbb │
00:00:26 #1063 [verbose] > │ bbb │
00:00:26 #1064 [verbose] > │ Test case 1. A. Time: 12L │
00:00:26 #1065 [verbose] > │ Test case 2. B. Time: 10L │
00:00:26 #1066 [verbose] > │ Test case 3. C. Time: 13L │
00:00:26 #1067 [verbose] > │ Test case 4. D. Time: 8L │
00:00:26 #1068 [verbose] > │ Test case 5. E. Time: 9L │
00:00:26 #1069 [verbose] > │ Test case 6. F. Time: 10L │
00:00:26 #1070 [verbose] > │ Test case 7. G. Time: 9L │
00:00:26 #1071 [verbose] > │ Test case 8. H. Time: 8L │
00:00:26 #1072 [verbose] > │ Test case 9. I. Time: 8L │
00:00:26 #1073 [verbose] > │ Test case 10. J. Time: 8L │
00:00:26 #1074 [verbose] > │ Test case 11. K. Time: 3L │
00:00:26 #1075 [verbose] > │ │
00:00:26 #1076 [verbose] > │ Input │
00:00:26 #1077 [verbose] > │ | Expected | Result | Best │
00:00:26 #1078 [verbose] > │ --- │
00:00:26 #1079 [verbose] > │ | --- | --- | --- │
00:00:26 #1080 [verbose] > │ abc │
00:00:26 #1081 [verbose] > │ | abc | abc | (6, 1) │
00:00:26 #1082 [verbose] > │ accabb │
00:00:26 #1083 [verbose] > │ | acb | acb | (5, 0) │
00:00:26 #1084 [verbose] > │ pprrqqpp │
00:00:26 #1085 [verbose] > │ | prq | prq | (1, 1) │
00:00:26 #1086 [verbose] > │ aaaaaaaaaaaaaaccccccabbbbbbbaaacccbbbaaccccccccccacbbbbbbbbbbbbbcccccccbbbbb │
00:00:26 #1087 [verbose] > │ bbb | acb | acb | (11, 3) │
00:00:26 #1088 [verbose] > │ │
00:00:26 #1089 [verbose] > │ Average Ranking │
00:00:26 #1090 [verbose] > │ Test case 7. Average Time: 2L │
00:00:26 #1091 [verbose] > │ Test case 8. Average Time: 2L │
00:00:26 #1092 [verbose] > │ Test case 9. Average Time: 2L │
00:00:26 #1093 [verbose] > │ Test case 10. Average Time: 2L │
00:00:26 #1094 [verbose] > │ Test case 11. Average Time: 2L │
00:00:26 #1095 [verbose] > │ Test case 2. Average Time: 3L │
00:00:26 #1096 [verbose] > │ Test case 4. Average Time: 3L │
00:00:26 #1097 [verbose] > │ Test case 5. Average Time: 3L │
00:00:26 #1098 [verbose] > │ Test case 6. Average Time: 3L │
00:00:26 #1099 [verbose] > │ Test case 1. Average Time: 4L │
00:00:26 #1100 [verbose] > │ Test case 3. Average Time: 4L │
00:00:26 #1101 [verbose] > │ │
00:00:26 #1102 [verbose] > ╰──────────────────────────────────────────────────────────────────────────────╯
00:00:26 #1103 [verbose] >
00:00:26 #1104 [verbose] > ── markdown ────────────────────────────────────────────────────────────────────
00:00:26 #1105 [verbose] > ╭──────────────────────────────────────────────────────────────────────────────╮
00:00:26 #1106 [verbose] > │ ## rotateStringsTests │
00:00:26 #1107 [verbose] > ╰──────────────────────────────────────────────────────────────────────────────╯
00:00:26 #1108 [verbose] >
00:00:26 #1109 [verbose] > ── markdown ────────────────────────────────────────────────────────────────────
00:00:26 #1110 [verbose] > ╭──────────────────────────────────────────────────────────────────────────────╮
00:00:26 #1111 [verbose] > │ https://www.hackerrank.com/challenges/rotate-string/forum │
00:00:26 #1112 [verbose] > │ │
00:00:26 #1113 [verbose] > │ Test: RotateStrings │
00:00:26 #1114 [verbose] > │ │
00:00:26 #1115 [verbose] > │ Solution: abc │
00:00:26 #1116 [verbose] > │ Test case 1. A. Time: 1842L │
00:00:26 #1117 [verbose] > │ Test case 2. B. Time: 1846L │
00:00:26 #1118 [verbose] > │ Test case 3. C. Time: 1936L │
00:00:26 #1119 [verbose] > │ Test case 4. CA. Time: 2224L │
00:00:26 #1120 [verbose] > │ Test case 5. CB. Time: 2329L │
00:00:26 #1121 [verbose] > │ Test case 6. D. Time: 2474L │
00:00:26 #1122 [verbose] > │ Test case 7. E. Time: 1664L │
00:00:26 #1123 [verbose] > │ Test case 8. F. Time: 1517L │
00:00:26 #1124 [verbose] > │ Test case 9. FA. Time: 1651L │
00:00:26 #1125 [verbose] > │ Test case 10. FB. Time: 3764L │
00:00:26 #1126 [verbose] > │ Test case 11. FC. Time: 5415L │
00:00:26 #1127 [verbose] > │ │
00:00:26 #1128 [verbose] > │ Solution: abcde │
00:00:26 #1129 [verbose] > │ Test case 1. A. Time: 3356L │
00:00:26 #1130 [verbose] > │ Test case 2. B. Time: 2592L │
00:00:26 #1131 [verbose] > │ Test case 3. C. Time: 2346L │
00:00:26 #1132 [verbose] > │ Test case 4. CA. Time: 2997L │
00:00:26 #1133 [verbose] > │ Test case 5. CB. Time: 3061L │
00:00:26 #1134 [verbose] > │ Test case 6. D. Time: 4051L │
00:00:26 #1135 [verbose] > │ Test case 7. E. Time: 1905L │
00:00:26 #1136 [verbose] > │ Test case 8. F. Time: 1771L │
00:00:26 #1137 [verbose] > │ Test case 9. FA. Time: 2175L │
00:00:26 #1138 [verbose] > │ Test case 10. FB. Time: 3275L │
00:00:26 #1139 [verbose] > │ Test case 11. FC. Time: 5266L │
00:00:26 #1140 [verbose] > │ │
00:00:26 #1141 [verbose] > │ Solution: abcdefghi │
00:00:26 #1142 [verbose] > │ Test case 1. A. Time: 4492L │
00:00:26 #1143 [verbose] > │ Test case 2. B. Time: 3526L │
00:00:26 #1144 [verbose] > │ Test case 3. C. Time: 3583L │
00:00:26 #1145 [verbose] > │ Test case 4. CA. Time: 3711L │
00:00:26 #1146 [verbose] > │ Test case 5. CB. Time: 4783L │
00:00:26 #1147 [verbose] > │ Test case 6. D. Time: 7557L │
00:00:26 #1148 [verbose] > │ Test case 7. E. Time: 3452L │
00:00:26 #1149 [verbose] > │ Test case 8. F. Time: 3050L │
00:00:26 #1150 [verbose] > │ Test case 9. FA. Time: 3275L │
00:00:26 #1151 [verbose] > │ Test case 10. FB. Time: 4635L │
00:00:26 #1152 [verbose] > │ Test case 11. FC. Time: 5616L │
00:00:26 #1153 [verbose] > │ │
00:00:26 #1154 [verbose] > │ Solution: abab │
00:00:26 #1155 [verbose] > │ Test case 1. A. Time: 2093L │
00:00:26 #1156 [verbose] > │ Test case 2. B. Time: 1843L │
00:00:26 #1157 [verbose] > │ Test case 3. C. Time: 1746L │
00:00:26 #1158 [verbose] > │ Test case 4. CA. Time: 2085L │
00:00:26 #1159 [verbose] > │ Test case 5. CB. Time: 2139L │
00:00:26 #1160 [verbose] > │ Test case 6. D. Time: 2095L │
00:00:26 #1161 [verbose] > │ Test case 7. E. Time: 1723L │
00:00:26 #1162 [verbose] > │ Test case 8. F. Time: 1558L │
00:00:26 #1163 [verbose] > │ Test case 9. FA. Time: 1620L │
00:00:26 #1164 [verbose] > │ Test case 10. FB. Time: 2319L │
00:00:26 #1165 [verbose] > │ Test case 11. FC. Time: 3918L │
00:00:26 #1166 [verbose] > │ │
00:00:26 #1167 [verbose] > │ Solution: aa │
00:00:26 #1168 [verbose] > │ Test case 1. A. Time: 1107L │
00:00:26 #1169 [verbose] > │ Test case 2. B. Time: 1241L │
00:00:26 #1170 [verbose] > │ Test case 3. C. Time: 1183L │
00:00:26 #1171 [verbose] > │ Test case 4. CA. Time: 1563L │
00:00:26 #1172 [verbose] > │ Test case 5. CB. Time: 1525L │
00:00:26 #1173 [verbose] > │ Test case 6. D. Time: 1591L │
00:00:26 #1174 [verbose] > │ Test case 7. E. Time: 1327L │
00:00:26 #1175 [verbose] > │ Test case 8. F. Time: 1151L │
00:00:26 #1176 [verbose] > │ Test case 9. FA. Time: 1180L │
00:00:26 #1177 [verbose] > │ Test case 10. FB. Time: 1733L │
00:00:26 #1178 [verbose] > │ Test case 11. FC. Time: 2817L │
00:00:26 #1179 [verbose] > │ │
00:00:26 #1180 [verbose] > │ Solution: z │
00:00:26 #1181 [verbose] > │ Test case 1. A. Time: 816L │
00:00:26 #1182 [verbose] > │ Test case 2. B. Time: 745L │
00:00:26 #1183 [verbose] > │ Test case 3. C. Time: 928L │
00:00:26 #1184 [verbose] > │ Test case 4. CA. Time: 1375L │
00:00:26 #1185 [verbose] > │ Test case 5. CB. Time: 1029L │
00:00:26 #1186 [verbose] > │ Test case 6. D. Time: 852L │
00:00:26 #1187 [verbose] > │ Test case 7. E. Time: 712L │
00:00:26 #1188 [verbose] > │ Test case 8. F. Time: 263L │
00:00:26 #1189 [verbose] > │ Test case 9. FA. Time: 232L │
00:00:26 #1190 [verbose] > │ Test case 10. FB. Time: 773L │
00:00:26 #1191 [verbose] > │ Test case 11. FC. Time: 1789L │
00:00:26 #1192 [verbose] > │ │
00:00:26 #1193 [verbose] > │ Input | Expected │
00:00:26 #1194 [verbose] > │ │
00:00:26 #1195 [verbose] > │ | Result │
00:00:26 #1196 [verbose] > │ │
00:00:26 #1197 [verbose] > │ | Best │
00:00:26 #1198 [verbose] > │ --- | --- │
00:00:26 #1199 [verbose] > │ │
00:00:26 #1200 [verbose] > │ | --- │
00:00:26 #1201 [verbose] > │ │
00:00:26 #1202 [verbose] > │ | --- │
00:00:26 #1203 [verbose] > │ abc | bca cab abc │
00:00:26 #1204 [verbose] > │ │
00:00:26 #1205 [verbose] > │ | bca cab abc │
00:00:26 #1206 [verbose] > │ │
00:00:26 #1207 [verbose] > │ | (8, 1517) │
00:00:26 #1208 [verbose] > │ abcde | bcdea cdeab deabc eabcd abcde │
00:00:26 #1209 [verbose] > │ | bcdea cdeab deabc eabcd abcde │
00:00:26 #1210 [verbose] > │ | (8, 1771) │
00:00:26 #1211 [verbose] > │ abcdefghi | bcdefghia cdefghiab defghiabc efghiabcd fghiabcde │
00:00:26 #1212 [verbose] > │ ghiabcdef hiabcdefg iabcdefgh abcdefghi | bcdefghia cdefghiab │
00:00:26 #1213 [verbose] > │ defghiabc efghiabcd fghiabcde ghiabcdef hiabcdefg iabcdefgh abcdefghi │
00:00:26 #1214 [verbose] > │ | (8, 3050) │
00:00:26 #1215 [verbose] > │ abab | baba abab baba abab │
00:00:26 #1216 [verbose] > │ │
00:00:26 #1217 [verbose] > │ | baba abab baba abab │
00:00:26 #1218 [verbose] > │ │
00:00:26 #1219 [verbose] > │ | (8, 1558) │
00:00:26 #1220 [verbose] > │ aa | aa aa │
00:00:26 #1221 [verbose] > │ │
00:00:26 #1222 [verbose] > │ | aa aa │
00:00:26 #1223 [verbose] > │ │
00:00:26 #1224 [verbose] > │ | (1, 1107) │
00:00:26 #1225 [verbose] > │ z | z │
00:00:26 #1226 [verbose] > │ │
00:00:26 #1227 [verbose] > │ | z │
00:00:26 #1228 [verbose] > │ │
00:00:26 #1229 [verbose] > │ | (9, 232) │
00:00:26 #1230 [verbose] > │ │
00:00:26 #1231 [verbose] > │ Averages │
00:00:26 #1232 [verbose] > │ Test case 1. Average Time: 2284L │
00:00:26 #1233 [verbose] > │ Test case 2. Average Time: 1965L │
00:00:26 #1234 [verbose] > │ Test case 3. Average Time: 1953L │
00:00:26 #1235 [verbose] > │ Test case 4. Average Time: 2325L │
00:00:26 #1236 [verbose] > │ Test case 5. Average Time: 2477L │
00:00:26 #1237 [verbose] > │ Test case 6. Average Time: 3103L │
00:00:26 #1238 [verbose] > │ Test case 7. Average Time: 1797L │
00:00:26 #1239 [verbose] > │ Test case 8. Average Time: 1551L │
00:00:26 #1240 [verbose] > │ Test case 9. Average Time: 1688L │
00:00:26 #1241 [verbose] > │ Test case 10. Average Time: 2749L │
00:00:26 #1242 [verbose] > │ Test case 11. Average Time: 4136L │
00:00:26 #1243 [verbose] > │ │
00:00:26 #1244 [verbose] > │ Ranking │
00:00:26 #1245 [verbose] > │ Test case 11. Average Time: 4136L │
00:00:26 #1246 [verbose] > │ Test case 6. Average Time: 3103L │
00:00:26 #1247 [verbose] > │ Test case 10. Average Time: 2749L │
00:00:26 #1248 [verbose] > │ Test case 5. Average Time: 2477L │
00:00:26 #1249 [verbose] > │ Test case 4. Average Time: 2325L │
00:00:26 #1250 [verbose] > │ Test case 1. Average Time: 2284L │
00:00:26 #1251 [verbose] > │ Test case 2. Average Time: 1965L │
00:00:26 #1252 [verbose] > │ Test case 3. Average Time: 1953L │
00:00:26 #1253 [verbose] > │ Test case 7. Average Time: 1797L │
00:00:26 #1254 [verbose] > │ Test case 9. Average Time: 1688L │
00:00:26 #1255 [verbose] > │ Test case 8. Average Time: 1551L │
00:00:26 #1256 [verbose] > ╰──────────────────────────────────────────────────────────────────────────────╯
00:00:26 #1257 [verbose] >
00:00:26 #1258 [verbose] > ── fsharp ──────────────────────────────────────────────────────────────────────
00:00:26 #1259 [verbose] > //// test
00:00:26 #1260 [verbose] >
00:00:26 #1261 [verbose] > let solutions = [[
00:00:26 #1262 [verbose] > "A",
00:00:26 #1263 [verbose] > fun (input: string) ->
00:00:26 #1264 [verbose] > let resultList =
00:00:26 #1265 [verbose] > List.fold (fun acc x ->
00:00:26 #1266 [verbose] > let rotate (text: string) (letter: string) = (text |>
00:00:26 #1267 [verbose] > SpiralSm.slice 1 (input.Length - 1)) + letter
00:00:26 #1268 [verbose] > [[ rotate (if acc.IsEmpty then input else acc.Head) (string x)
00:00:26 #1269 [verbose] > ]] @ acc
00:00:26 #1270 [verbose] > ) [[]] (Seq.toList input)
00:00:26 #1271 [verbose] >
00:00:26 #1272 [verbose] > (resultList, "")
00:00:26 #1273 [verbose] > ||> List.foldBack (fun acc x -> x + acc + " ")
00:00:26 #1274 [verbose] > |> _.TrimEnd()
00:00:26 #1275 [verbose] >
00:00:26 #1276 [verbose] > "B",
00:00:26 #1277 [verbose] > fun input ->
00:00:26 #1278 [verbose] > input
00:00:26 #1279 [verbose] > |> Seq.toList
00:00:26 #1280 [verbose] > |> List.fold (fun (acc: string list) letter ->
00:00:26 #1281 [verbose] > let last =
00:00:26 #1282 [verbose] > if acc.IsEmpty
00:00:26 #1283 [verbose] > then input
00:00:26 #1284 [verbose] > else acc.Head
00:00:26 #1285 [verbose] >
00:00:26 #1286 [verbose] > let item = last.[[1 .. input.Length - 1]] + string letter
00:00:26 #1287 [verbose] >
00:00:26 #1288 [verbose] > item :: acc
00:00:26 #1289 [verbose] > ) [[]]
00:00:26 #1290 [verbose] > |> List.rev
00:00:26 #1291 [verbose] > |> SpiralSm.concat " "
00:00:26 #1292 [verbose] >
00:00:26 #1293 [verbose] > "C",
00:00:26 #1294 [verbose] > fun input ->
00:00:26 #1295 [verbose] > input
00:00:26 #1296 [verbose] > |> Seq.toList
00:00:26 #1297 [verbose] > |> List.fold (fun (acc: string list) letter -> acc.Head.[[ 1 ..
00:00:26 #1298 [verbose] > input.Length - 1 ]] + string letter :: acc) [[ input ]]
00:00:26 #1299 [verbose] > |> List.rev
00:00:26 #1300 [verbose] > |> List.skip 1
00:00:26 #1301 [verbose] > |> SpiralSm.concat " "
00:00:26 #1302 [verbose] >
00:00:26 #1303 [verbose] > "CA",
00:00:26 #1304 [verbose] > fun input ->
00:00:26 #1305 [verbose] > input
00:00:26 #1306 [verbose] > |> Seq.fold (fun (acc: string list) letter -> acc.Head.[[ 1 ..
00:00:26 #1307 [verbose] > input.Length - 1 ]] + string letter :: acc) [[ input ]]
00:00:26 #1308 [verbose] > |> Seq.rev
00:00:26 #1309 [verbose] > |> Seq.skip 1
00:00:26 #1310 [verbose] > |> SpiralSm.concat " "
00:00:26 #1311 [verbose] >
00:00:26 #1312 [verbose] > "CB",
00:00:26 #1313 [verbose] > fun input ->
00:00:26 #1314 [verbose] > input
00:00:26 #1315 [verbose] > |> Seq.toArray
00:00:26 #1316 [verbose] > |> Array.fold (fun (acc: string[[]]) letter -> acc |> Array.append [[|
00:00:26 #1317 [verbose] > acc.[[0]].[[ 1 .. input.Length - 1 ]] + string letter |]]) [[| input |]]
00:00:26 #1318 [verbose] > |> Array.rev
00:00:26 #1319 [verbose] > |> Array.skip 1
00:00:26 #1320 [verbose] > |> SpiralSm.concat " "
00:00:26 #1321 [verbose] >
00:00:26 #1322 [verbose] > "D",
00:00:26 #1323 [verbose] > fun input ->
00:00:26 #1324 [verbose] > input
00:00:26 #1325 [verbose] > |> Seq.toList
00:00:26 #1326 [verbose] > |> fun list ->
00:00:26 #1327 [verbose] > let rec loop (acc: char list list) = function
00:00:26 #1328 [verbose] > | _ when acc.Length = list.Length -> acc
00:00:26 #1329 [verbose] > | head :: tail ->
00:00:26 #1330 [verbose] > let item = tail @ [[ head ]]
00:00:26 #1331 [verbose] > loop (item :: acc) item
00:00:26 #1332 [verbose] > | [[]] -> [[]]
00:00:26 #1333 [verbose] > loop [[]] list
00:00:26 #1334 [verbose] > |> List.rev
00:00:26 #1335 [verbose] > |> List.map (List.toArray >> String)
00:00:26 #1336 [verbose] > |> SpiralSm.concat " "
00:00:26 #1337 [verbose] >
00:00:26 #1338 [verbose] > "E",
00:00:26 #1339 [verbose] > fun input ->
00:00:26 #1340 [verbose] > input
00:00:26 #1341 [verbose] > |> Seq.toList
00:00:26 #1342 [verbose] > |> fun list ->
00:00:26 #1343 [verbose] > let rec loop (last: string) = function
00:00:26 #1344 [verbose] > | head :: tail ->
00:00:26 #1345 [verbose] > let item = last.[[1 .. input.Length - 1]] + string head
00:00:26 #1346 [verbose] > item :: loop item tail
00:00:26 #1347 [verbose] > | [[]] -> [[]]
00:00:26 #1348 [verbose] > loop input list
00:00:26 #1349 [verbose] > |> SpiralSm.concat " "
00:00:26 #1350 [verbose] >
00:00:26 #1351 [verbose] > "F",
00:00:26 #1352 [verbose] > fun input ->
00:00:26 #1353 [verbose] > Array.singleton 0
00:00:26 #1354 [verbose] > |> Array.append [[| 1 .. input.Length - 1 |]]
00:00:26 #1355 [verbose] > |> Array.map (fun i -> input.[[ i .. ]] + input.[[ .. i - 1 ]])
00:00:26 #1356 [verbose] > |> SpiralSm.concat " "
00:00:26 #1357 [verbose] >
00:00:26 #1358 [verbose] > "FA",
00:00:26 #1359 [verbose] > fun input ->
00:00:26 #1360 [verbose] > List.singleton 0
00:00:26 #1361 [verbose] > |> List.append [[ 1 .. input.Length - 1 ]]
00:00:26 #1362 [verbose] > |> List.map (fun i -> input.[[ i .. ]] + input.[[ .. i - 1 ]])
00:00:26 #1363 [verbose] > |> SpiralSm.concat " "
00:00:26 #1364 [verbose] >
00:00:26 #1365 [verbose] > "FB",
00:00:26 #1366 [verbose] > fun input ->
00:00:26 #1367 [verbose] > Seq.singleton 0
00:00:26 #1368 [verbose] > |> Seq.append (seq { 1 .. input.Length - 1 })
00:00:26 #1369 [verbose] > |> Seq.map (fun i -> input.[[ i .. ]] + input.[[ .. i - 1 ]])
00:00:26 #1370 [verbose] > |> SpiralSm.concat " "
00:00:26 #1371 [verbose] >
00:00:26 #1372 [verbose] > "FC",
00:00:26 #1373 [verbose] > fun input ->
00:00:26 #1374 [verbose] > Array.singleton 0
00:00:26 #1375 [verbose] > |> Array.append [[| 1 .. input.Length - 1 |]]
00:00:26 #1376 [verbose] > |> Array.Parallel.map (fun i -> input.[[ i .. ]] + input.[[ .. i - 1 ]])
00:00:26 #1377 [verbose] > |> SpiralSm.concat " "
00:00:26 #1378 [verbose] > ]]
00:00:26 #1379 [verbose] > let testCases = seq {
00:00:26 #1380 [verbose] > "abc", "bca cab abc"
00:00:26 #1381 [verbose] > "abcde", "bcdea cdeab deabc eabcd abcde"
00:00:26 #1382 [verbose] > "abcdefghi", "bcdefghia cdefghiab defghiabc efghiabcd fghiabcde ghiabcdef
00:00:26 #1383 [verbose] > hiabcdefg iabcdefgh abcdefghi"
00:00:26 #1384 [verbose] > "abab", "baba abab baba abab"
00:00:26 #1385 [verbose] > "aa", "aa aa"
00:00:26 #1386 [verbose] > "z", "z"
00:00:26 #1387 [verbose] > }
00:00:26 #1388 [verbose] > let rec rotateStringsTests = runAll (nameof rotateStringsTests) _count solutions
00:00:26 #1389 [verbose] > testCases
00:00:26 #1390 [verbose] > rotateStringsTests
00:00:26 #1391 [verbose] > |> sortResultList
00:00:36 #1392 [verbose] >
00:00:36 #1393 [verbose] > ╭─[ 10.13s - stdout ]──────────────────────────────────────────────────────────╮
00:00:36 #1394 [verbose] > │ │
00:00:36 #1395 [verbose] > │ │
00:00:36 #1396 [verbose] > │ Test: rotateStringsTests │
00:00:36 #1397 [verbose] > │ │
00:00:36 #1398 [verbose] > │ Solution: abc │
00:00:36 #1399 [verbose] > │ Test case 1. A. Time: 2L │
00:00:36 #1400 [verbose] > │ Test case 2. B. Time: 3L │
00:00:36 #1401 [verbose] > │ Test case 3. C. Time: 2L │
00:00:36 #1402 [verbose] > │ Test case 4. CA. Time: 4L │
00:00:36 #1403 [verbose] > │ Test case 5. CB. Time: 3L │
00:00:36 #1404 [verbose] > │ Test case 6. D. Time: 2L │
00:00:36 #1405 [verbose] > │ Test case 7. E. Time: 1L │
00:00:36 #1406 [verbose] > │ Test case 8. F. Time: 2L │
00:00:36 #1407 [verbose] > │ Test case 9. FA. Time: 2L │
00:00:36 #1408 [verbose] > │ Test case 10. FB. Time: 8L │
00:00:36 #1409 [verbose] > │ Test case 11. FC. Time: 8L │
00:00:36 #1410 [verbose] > │ │
00:00:36 #1411 [verbose] > │ Solution: abcde │
00:00:36 #1412 [verbose] > │ Test case 1. A. Time: 3L │
00:00:36 #1413 [verbose] > │ Test case 2. B. Time: 1L │
00:00:36 #1414 [verbose] > │ Test case 3. C. Time: 1L │
00:00:36 #1415 [verbose] > │ Test case 4. CA. Time: 1L │
00:00:36 #1416 [verbose] > │ Test case 5. CB. Time: 1L │
00:00:36 #1417 [verbose] > │ Test case 6. D. Time: 4L │
00:00:36 #1418 [verbose] > │ Test case 7. E. Time: 1L │
00:00:36 #1419 [verbose] > │ Test case 8. F. Time: 0L │
00:00:36 #1420 [verbose] > │ Test case 9. FA. Time: 1L │
00:00:36 #1421 [verbose] > │ Test case 10. FB. Time: 4L │
00:00:36 #1422 [verbose] > │ Test case 11. FC. Time: 5L │
00:00:36 #1423 [verbose] > │ │
00:00:36 #1424 [verbose] > │ Solution: abcdefghi │
00:00:36 #1425 [verbose] > │ Test case 1. A. Time: 5L │
00:00:36 #1426 [verbose] > │ Test case 2. B. Time: 1L │
00:00:36 #1427 [verbose] > │ Test case 3. C. Time: 3L │
00:00:36 #1428 [verbose] > │ Test case 4. CA. Time: 2L │
00:00:36 #1429 [verbose] > │ Test case 5. CB. Time: 4L │
00:00:36 #1430 [verbose] > │ Test case 6. D. Time: 8L │
00:00:36 #1431 [verbose] > │ Test case 7. E. Time: 4L │
00:00:36 #1432 [verbose] > │ Test case 8. F. Time: 1L │
00:00:36 #1433 [verbose] > │ Test case 9. FA. Time: 4L │
00:00:36 #1434 [verbose] > │ Test case 10. FB. Time: 3L │
00:00:36 #1435 [verbose] > │ Test case 11. FC. Time: 5L │
00:00:36 #1436 [verbose] > │ │
00:00:36 #1437 [verbose] > │ Solution: abab │
00:00:36 #1438 [verbose] > │ Test case 1. A. Time: 1L │
00:00:36 #1439 [verbose] > │ Test case 2. B. Time: 1L │
00:00:36 #1440 [verbose] > │ Test case 3. C. Time: 1L │
00:00:36 #1441 [verbose] > │ Test case 4. CA. Time: 2L │
00:00:36 #1442 [verbose] > │ Test case 5. CB. Time: 1L │
00:00:36 #1443 [verbose] > │ Test case 6. D. Time: 1L │
00:00:36 #1444 [verbose] > │ Test case 7. E. Time: 1L │
00:00:36 #1445 [verbose] > │ Test case 8. F. Time: 1L │
00:00:36 #1446 [verbose] > │ Test case 9. FA. Time: 1L │
00:00:36 #1447 [verbose] > │ Test case 10. FB. Time: 1L │
00:00:36 #1448 [verbose] > │ Test case 11. FC. Time: 5L │
00:00:36 #1449 [verbose] > │ │
00:00:36 #1450 [verbose] > │ Solution: aa │
00:00:36 #1451 [verbose] > │ Test case 1. A. Time: 0L │
00:00:36 #1452 [verbose] > │ Test case 2. B. Time: 0L │
00:00:36 #1453 [verbose] > │ Test case 3. C. Time: 0L │
00:00:36 #1454 [verbose] > │ Test case 4. CA. Time: 1L │
00:00:36 #1455 [verbose] > │ Test case 5. CB. Time: 0L │
00:00:36 #1456 [verbose] > │ Test case 6. D. Time: 0L │
00:00:36 #1457 [verbose] > │ Test case 7. E. Time: 0L │
00:00:36 #1458 [verbose] > │ Test case 8. F. Time: 0L │
00:00:36 #1459 [verbose] > │ Test case 9. FA. Time: 0L │
00:00:36 #1460 [verbose] > │ Test case 10. FB. Time: 0L │
00:00:36 #1461 [verbose] > │ Test case 11. FC. Time: 4L │
00:00:36 #1462 [verbose] > │ │
00:00:36 #1463 [verbose] > │ Solution: z │
00:00:36 #1464 [verbose] > │ Test case 1. A. Time: 0L │
00:00:36 #1465 [verbose] > │ Test case 2. B. Time: 0L │
00:00:36 #1466 [verbose] > │ Test case 3. C. Time: 0L │
00:00:36 #1467 [verbose] > │ Test case 4. CA. Time: 0L │
00:00:36 #1468 [verbose] > │ Test case 5. CB. Time: 0L │
00:00:36 #1469 [verbose] > │ Test case 6. D. Time: 0L │
00:00:36 #1470 [verbose] > │ Test case 7. E. Time: 0L │
00:00:36 #1471 [verbose] > │ Test case 8. F. Time: 0L │
00:00:36 #1472 [verbose] > │ Test case 9. FA. Time: 0L │
00:00:36 #1473 [verbose] > │ Test case 10. FB. Time: 0L │
00:00:36 #1474 [verbose] > │ Test case 11. FC. Time: 4L │
00:00:36 #1475 [verbose] > │ │
00:00:36 #1476 [verbose] > │ Input | Expected │
00:00:36 #1477 [verbose] > │ │
00:00:36 #1478 [verbose] > │ | Result │
00:00:36 #1479 [verbose] > │ │
00:00:36 #1480 [verbose] > │ | Best │
00:00:36 #1481 [verbose] > │ --- | --- │
00:00:36 #1482 [verbose] > │ │
00:00:36 #1483 [verbose] > │ | --- │
00:00:36 #1484 [verbose] > │ │
00:00:36 #1485 [verbose] > │ | --- │
00:00:36 #1486 [verbose] > │ abc | bca cab abc │
00:00:36 #1487 [verbose] > │ │
00:00:36 #1488 [verbose] > │ | bca cab abc │
00:00:36 #1489 [verbose] > │ │
00:00:36 #1490 [verbose] > │ | (7, 1) │
00:00:36 #1491 [verbose] > │ abcde | bcdea cdeab deabc eabcd abcde │
00:00:36 #1492 [verbose] > │ | bcdea cdeab deabc eabcd abcde │
00:00:36 #1493 [verbose] > │ | (8, 0) │
00:00:36 #1494 [verbose] > │ abcdefghi | bcdefghia cdefghiab defghiabc efghiabcd fghiabcde ghiabcdef │
00:00:36 #1495 [verbose] > │ hiabcdefg iabcdefgh abcdefghi | bcdefghia cdefghiab defghiabc efghiabcd │
00:00:36 #1496 [verbose] > │ fghiabcde ghiabcdef hiabcdefg iabcdefgh abcdefghi | (2, 1) │
00:00:36 #1497 [verbose] > │ abab | baba abab baba abab │
00:00:36 #1498 [verbose] > │ | baba abab baba abab │
00:00:36 #1499 [verbose] > │ | (1, 1) │
00:00:36 #1500 [verbose] > │ aa | aa aa │
00:00:36 #1501 [verbose] > │ │
00:00:36 #1502 [verbose] > │ | aa aa │
00:00:36 #1503 [verbose] > │ │
00:00:36 #1504 [verbose] > │ | (1, 0) │
00:00:36 #1505 [verbose] > │ z | z │
00:00:36 #1506 [verbose] > │ │
00:00:36 #1507 [verbose] > │ | z │
00:00:36 #1508 [verbose] > │ │
00:00:36 #1509 [verbose] > │ | (1, 0) │
00:00:36 #1510 [verbose] > │ │
00:00:36 #1511 [verbose] > │ Average Ranking │
00:00:36 #1512 [verbose] > │ Test case 8. Average Time: 0L │
00:00:36 #1513 [verbose] > │ Test case 1. Average Time: 1L │
00:00:36 #1514 [verbose] > │ Test case 2. Average Time: 1L │
00:00:36 #1515 [verbose] > │ Test case 3. Average Time: 1L │
00:00:36 #1516 [verbose] > │ Test case 4. Average Time: 1L │
00:00:36 #1517 [verbose] > │ Test case 5. Average Time: 1L │
00:00:36 #1518 [verbose] > │ Test case 7. Average Time: 1L │
00:00:36 #1519 [verbose] > │ Test case 9. Average Time: 1L │
00:00:36 #1520 [verbose] > │ Test case 6. Average Time: 2L │
00:00:36 #1521 [verbose] > │ Test case 10. Average Time: 2L │
00:00:36 #1522 [verbose] > │ Test case 11. Average Time: 5L │
00:00:36 #1523 [verbose] > │ │
00:00:36 #1524 [verbose] > ╰──────────────────────────────────────────────────────────────────────────────╯
00:00:36 #1525 [verbose] >
00:00:36 #1526 [verbose] > ── markdown ────────────────────────────────────────────────────────────────────
00:00:36 #1527 [verbose] > ╭──────────────────────────────────────────────────────────────────────────────╮
00:00:36 #1528 [verbose] > │ ## rotate_strings_tests │
00:00:36 #1529 [verbose] > ╰──────────────────────────────────────────────────────────────────────────────╯
00:00:36 #1530 [verbose] >
00:00:36 #1531 [verbose] > ── spiral ──────────────────────────────────────────────────────────────────────
00:00:36 #1532 [verbose] > // // test
00:00:36 #1533 [verbose] > // // timeout=60000
00:00:36 #1534 [verbose] > // // print_code=true
00:00:36 #1535 [verbose] >
00:00:36 #1536 [verbose] > inl get_solutions () =
00:00:36 #1537 [verbose] > [[
00:00:36 #1538 [verbose] > // "A",
00:00:36 #1539 [verbose] > // fun (input : string) =>
00:00:36 #1540 [verbose] > // let resultList =
00:00:36 #1541 [verbose] > // List.fold (fun acc x =>
00:00:36 #1542 [verbose] > // let rotate (text : string) (letter : string) =
00:00:36 #1543 [verbose] > text.Substring (1, input.Length - 1) + letter
00:00:36 #1544 [verbose] > // [[ rotate (if acc.IsEmpty then input else acc.Head)
00:00:36 #1545 [verbose] > (string x) ]] /@ acc
00:00:36 #1546 [verbose] > // ) [[]] (Seq.toList input)
00:00:36 #1547 [verbose] >
00:00:36 #1548 [verbose] > // List.foldBack (fun acc x => x + acc + " ") resultList ""
00:00:36 #1549 [verbose] > // |> fun x => x.TrimEnd ()
00:00:36 #1550 [verbose] >
00:00:36 #1551 [verbose] > // "B",
00:00:36 #1552 [verbose] > // fun input =>
00:00:36 #1553 [verbose] > // input
00:00:36 #1554 [verbose] > // |> Seq.toList
00:00:36 #1555 [verbose] > // |> List.fold (fun (acc : string list) letter =>
00:00:36 #1556 [verbose] > // let last =
00:00:36 #1557 [verbose] > // if acc.IsEmpty
00:00:36 #1558 [verbose] > // then input
00:00:36 #1559 [verbose] > // else acc.Head
00:00:36 #1560 [verbose] >
00:00:36 #1561 [verbose] > // let item = last.[[1 .. input.Length - 1]] + string letter
00:00:36 #1562 [verbose] >
00:00:36 #1563 [verbose] > // item :: acc
00:00:36 #1564 [verbose] > // ) [[]]
00:00:36 #1565 [verbose] > // |> List.rev
00:00:36 #1566 [verbose] > // |> SpiralSm.concat " "
00:00:36 #1567 [verbose] >
00:00:36 #1568 [verbose] > // "C",
00:00:36 #1569 [verbose] > // fun input =>
00:00:36 #1570 [verbose] > // input
00:00:36 #1571 [verbose] > // |> Seq.toList
00:00:36 #1572 [verbose] > // |> List.fold (fun (acc : list string) letter => acc.Head.[[ 1 ..
00:00:36 #1573 [verbose] > input.Length - 1 ]] + string letter :: acc) [[ input ]]
00:00:36 #1574 [verbose] > // |> List.rev
00:00:36 #1575 [verbose] > // |> List.skip 1
00:00:36 #1576 [verbose] > // |> SpiralSm.concat " "
00:00:36 #1577 [verbose] >
00:00:36 #1578 [verbose] > // "CA",
00:00:36 #1579 [verbose] > // fun input =>
00:00:36 #1580 [verbose] > // input
00:00:36 #1581 [verbose] > // |> Seq.fold (fun (acc : list string) letter => acc.Head.[[ 1 ..
00:00:36 #1582 [verbose] > input.Length - 1 ]] + string letter :: acc) [[ input ]]
00:00:36 #1583 [verbose] > // |> Seq.rev
00:00:36 #1584 [verbose] > // |> Seq.skip 1
00:00:36 #1585 [verbose] > // |> SpiralSm.concat " "
00:00:36 #1586 [verbose] >
00:00:36 #1587 [verbose] > // "CB",
00:00:36 #1588 [verbose] > // fun input =>
00:00:36 #1589 [verbose] > // input
00:00:36 #1590 [verbose] > // |> Seq.toArray
00:00:36 #1591 [verbose] > // |> Array.fold (fun (acc : a _ string) letter => acc |>
00:00:36 #1592 [verbose] > Array.append (a ;[[ acc.[[0]].[[ 1 .. input.Length - 1 ]] + string letter ]]))
00:00:36 #1593 [verbose] > (a ;[[ input ]])
00:00:36 #1594 [verbose] > // |> Array.rev
00:00:36 #1595 [verbose] > // |> Array.skip 1
00:00:36 #1596 [verbose] > // |> SpiralSm.concat " "
00:00:36 #1597 [verbose] >
00:00:36 #1598 [verbose] > // "D",
00:00:36 #1599 [verbose] > // fun input =>
00:00:36 #1600 [verbose] > // input
00:00:36 #1601 [verbose] > // |> Seq.toList
00:00:36 #1602 [verbose] > // |> fun list =>
00:00:36 #1603 [verbose] > // let rec loop (acc : list (list char)) = function
00:00:36 #1604 [verbose] > // | _ when acc.Length = list.Length => acc
00:00:36 #1605 [verbose] > // | head :: tail =>
00:00:36 #1606 [verbose] > // let item = tail /@ [[ head ]]
00:00:36 #1607 [verbose] > // loop (item :: acc) item
00:00:36 #1608 [verbose] > // | [[]] => [[]]
00:00:36 #1609 [verbose] > // loop [[]] list
00:00:36 #1610 [verbose] > // |> List.rev
00:00:36 #1611 [verbose] > // |> List.map (List.toArray >> String)
00:00:36 #1612 [verbose] > // |> SpiralSm.concat " "
00:00:36 #1613 [verbose] >
00:00:36 #1614 [verbose] > // "E",
00:00:36 #1615 [verbose] > // fun input =>
00:00:36 #1616 [verbose] > // input
00:00:36 #1617 [verbose] > // |> Seq.toList
00:00:36 #1618 [verbose] > // |> fun list =>
00:00:36 #1619 [verbose] > // let rec loop (last : string) = function
00:00:36 #1620 [verbose] > // | head :: tail =>
00:00:36 #1621 [verbose] > // let item = last.[[1 .. input.Length - 1]] + string
00:00:36 #1622 [verbose] > head
00:00:36 #1623 [verbose] > // item :: loop item tail
00:00:36 #1624 [verbose] > // | [[]] => [[]]
00:00:36 #1625 [verbose] > // loop input list
00:00:36 #1626 [verbose] > // |> SpiralSm.concat " "
00:00:36 #1627 [verbose] >
00:00:36 #1628 [verbose] > "F",
00:00:36 #1629 [verbose] > fun input =>
00:00:36 #1630 [verbose] > // Array.singleton 0
00:00:36 #1631 [verbose] > // |> Array.append [[| 1 .. input.Length - 1 |]]
00:00:36 #1632 [verbose] > // |> Array.map (fun i -> input.[[ i .. ]] + input.[[ .. i - 1 ]])
00:00:36 #1633 [verbose] > // |> SpiralSm.concat " "
00:00:36 #1634 [verbose] > inl input_length = input |> sm.length
00:00:36 #1635 [verbose] > am.singleton 0i32
00:00:36 #1636 [verbose] > |> am.append (am'.init_series 1 (input_length - 1) 1)
00:00:36 #1637 [verbose] > |> am.map (fun i =>
00:00:36 #1638 [verbose] > inl a = input |> sm'.slice i (input_length - 1)
00:00:36 #1639 [verbose] > inl b = input |> sm'.slice 0 (i - 1)
00:00:36 #1640 [verbose] > $"!a + !b" : string
00:00:36 #1641 [verbose] > )
00:00:36 #1642 [verbose] > |> seq.of_array
00:00:36 #1643 [verbose] > |> sm'.concat " "
00:00:36 #1644 [verbose] >
00:00:36 #1645 [verbose] > "FA",
00:00:36 #1646 [verbose] > fun input =>
00:00:36 #1647 [verbose] > // List.singleton 0
00:00:36 #1648 [verbose] > // |> List.append [[ 1 .. input.Length - 1 ]]
00:00:36 #1649 [verbose] > // // |> List.map (fun i => input.[[ i .. ]] + input.[[ .. i - 1 ]])
00:00:36 #1650 [verbose] > // |> SpiralSm.concat " "
00:00:36 #1651 [verbose] > inl input_length = input |> sm.length
00:00:36 #1652 [verbose] > listm.singleton 0i32
00:00:36 #1653 [verbose] > |> listm.append (listm'.init_series 1 (input_length - 1) 1)
00:00:36 #1654 [verbose] > |> listm.map (fun i =>
00:00:36 #1655 [verbose] > inl a = input |> sm'.slice i (input_length - 1)
00:00:36 #1656 [verbose] > inl b = if i = 0 then "" else input |> sm'.slice 0 (i - 1)
00:00:36 #1657 [verbose] > $"!a + !b" : string
00:00:36 #1658 [verbose] > )
00:00:36 #1659 [verbose] > |> listm.toArray
00:00:36 #1660 [verbose] > |> fun x => x : a i32 _
00:00:36 #1661 [verbose] > |> seq.of_array
00:00:36 #1662 [verbose] > |> sm'.concat " "
00:00:36 #1663 [verbose] >
00:00:36 #1664 [verbose] > // "FB",
00:00:36 #1665 [verbose] > // fun input =>
00:00:36 #1666 [verbose] > // Seq.singleton 0
00:00:36 #1667 [verbose] > // // |> Seq.append (seq { 1 .. input.Length - 1 })
00:00:36 #1668 [verbose] > // // |> Seq.map (fun i => input.[[ i .. ]] + input.[[ .. i - 1 ]])
00:00:36 #1669 [verbose] > // |> SpiralSm.concat " "
00:00:36 #1670 [verbose] >
00:00:36 #1671 [verbose] > // "FC",
00:00:36 #1672 [verbose] > // fun input =>
00:00:36 #1673 [verbose] > // Array.singleton 0
00:00:36 #1674 [verbose] > // |> Array.append (a ;[[ 1 .. input.Length - 1 ]])
00:00:36 #1675 [verbose] > // // |> Array.Parallel.map (fun i => input.[[ i .. ]] + input.[[ ..
00:00:36 #1676 [verbose] > i - 1 ]])
00:00:36 #1677 [verbose] > // |> SpiralSm.concat " "
00:00:36 #1678 [verbose] > ]]
00:00:36 #1679 [verbose] >
00:00:36 #1680 [verbose] > inl rec rotate_strings_tests () =
00:00:36 #1681 [verbose] > inl test_cases = [[
00:00:36 #1682 [verbose] > "abc", "bca cab abc"
00:00:36 #1683 [verbose] > "abcde", "bcdea cdeab deabc eabcd abcde"
00:00:36 #1684 [verbose] > "abcdefghi", "bcdefghia cdefghiab defghiabc efghiabcd fghiabcde
00:00:36 #1685 [verbose] > ghiabcdef hiabcdefg iabcdefgh abcdefghi"
00:00:36 #1686 [verbose] > "abab", "baba abab baba abab"
00:00:36 #1687 [verbose] > "aa", "aa aa"
00:00:36 #1688 [verbose] > "z", "z"
00:00:36 #1689 [verbose] > ]]
00:00:36 #1690 [verbose] >
00:00:36 #1691 [verbose] > inl solutions = get_solutions ()
00:00:36 #1692 [verbose] >
00:00:36 #1693 [verbose] > // inl is_fast () = true
00:00:36 #1694 [verbose] >
00:00:36 #1695 [verbose] > inl count =
00:00:36 #1696 [verbose] > if is_fast ()
00:00:36 #1697 [verbose] > then 1000i32
00:00:36 #1698 [verbose] > else 2000000i32
00:00:36 #1699 [verbose] >
00:00:36 #1700 [verbose] > run_all (nameof rotate_strings_tests) count solutions test_cases
00:00:36 #1701 [verbose] > |> sort_result_list
00:00:36 #1702 [verbose] >
00:00:36 #1703 [verbose] > rotate_strings_tests ()
00:00:36 #1704 [verbose] > Building c:\home\git\polyglot\target\polyglot\spiral_eval\packages\76d7bcd708a3099b4dcc5eec6b0320a5bf8f94d9c03c9fc07fbbdbd447b691db\main.spi
00:01:00 #1705 [verbose] >
00:01:00 #1706 [verbose] > ╭─[ 24.18s - stdout ]──────────────────────────────────────────────────────────╮
00:01:00 #1707 [verbose] > │ type UH0 = │
00:01:00 #1708 [verbose] > │ | UH0_0 │
00:01:00 #1709 [verbose] > │ | UH0_1 of string * string * UH0 │
00:01:00 #1710 [verbose] > │ and Mut0 = {mutable l0 : uint64} │
00:01:00 #1711 [verbose] > │ and Mut1 = {mutable l0 : int32} │
00:01:00 #1712 [verbose] > │ and UH1 = │
00:01:00 #1713 [verbose] > │ | UH1_0 │
00:01:00 #1714 [verbose] > │ | UH1_1 of int32 * UH1 │
00:01:00 #1715 [verbose] > │ and UH2 = │
00:01:00 #1716 [verbose] > │ | UH2_0 │
00:01:00 #1717 [verbose] > │ | UH2_1 of string * UH2 │
00:01:00 #1718 [verbose] > │ and UH3 = │
00:01:00 #1719 [verbose] > │ | UH3_0 │
00:01:00 #1720 [verbose] > │ | UH3_1 of int32 * string * (string -> string) * UH3 │
00:01:00 #1721 [verbose] > │ and [<Struct>] US0 = │
00:01:00 #1722 [verbose] > │ | US0_0 of f0_0 : System.ConsoleColor │
00:01:00 #1723 [verbose] > │ | US0_1 │
00:01:00 #1724 [verbose] > │ and UH4 = │
00:01:00 #1725 [verbose] > │ | UH4_0 │
00:01:00 #1726 [verbose] > │ | UH4_1 of int64 * int64 * UH4 │
00:01:00 #1727 [verbose] > │ and Mut2 = {mutable l0 : uint64; mutable l1 : UH4; mutable l2 : int64} │
00:01:00 #1728 [verbose] > │ and UH5 = │
00:01:00 #1729 [verbose] > │ | UH5_0 │
00:01:00 #1730 [verbose] > │ | UH5_1 of UH2 * US0 * UH5 │
00:01:00 #1731 [verbose] > │ and [<Struct>] US1 = │
00:01:00 #1732 [verbose] > │ | US1_0 of f0_0 : int64 │
00:01:00 #1733 [verbose] > │ | US1_1 │
00:01:00 #1734 [verbose] > │ and UH6 = │
00:01:00 #1735 [verbose] > │ | UH6_0 │
00:01:00 #1736 [verbose] > │ | UH6_1 of int32 * int64 * UH6 │
00:01:00 #1737 [verbose] > │ and Mut3 = {mutable l0 : uint64; mutable l1 : UH6; mutable l2 : int32} │
00:01:00 #1738 [verbose] > │ and UH7 = │
00:01:00 #1739 [verbose] > │ | UH7_0 │
00:01:00 #1740 [verbose] > │ | UH7_1 of int32 * string * UH7 │
00:01:00 #1741 [verbose] > │ let rec method2 (v0 : UH0, v1 : uint64) : uint64 = │
00:01:00 #1742 [verbose] > │ match v0 with │
00:01:00 #1743 [verbose] > │ | UH0_1(v2, v3, v4) -> (* Cons *) │
00:01:00 #1744 [verbose] > │ let v5 : uint64 = v1 + 1UL │
00:01:00 #1745 [verbose] > │ method2(v4, v5) │
00:01:00 #1746 [verbose] > │ | UH0_0 -> (* Nil *) │
00:01:00 #1747 [verbose] > │ v1 │
00:01:00 #1748 [verbose] > │ and method3 (v0 : (struct (string * string) []), v1 : UH0, v2 : uint64) : │
00:01:00 #1749 [verbose] > │ uint64 = │
00:01:00 #1750 [verbose] > │ match v1 with │
00:01:00 #1751 [verbose] > │ | UH0_1(v3, v4, v5) -> (* Cons *) │
00:01:00 #1752 [verbose] > │ v0.[int v2] <- struct (v3, v4) │
00:01:00 #1753 [verbose] > │ let v6 : uint64 = v2 + 1UL │
00:01:00 #1754 [verbose] > │ method3(v0, v5, v6) │
00:01:00 #1755 [verbose] > │ | UH0_0 -> (* Nil *) │
00:01:00 #1756 [verbose] > │ v2 │
00:01:00 #1757 [verbose] > │ and method1 (v0 : UH0) : (struct (string * string) []) = │
00:01:00 #1758 [verbose] > │ let v1 : uint64 = 0UL │
00:01:00 #1759 [verbose] > │ let v2 : uint64 = method2(v0, v1) │
00:01:00 #1760 [verbose] > │ let v3 : (struct (string * string) []) = Array.zeroCreate<struct (string │
00:01:00 #1761 [verbose] > │ * string)> (System.Convert.ToInt32(v2)) │
00:01:00 #1762 [verbose] > │ let v4 : uint64 = 0UL │
00:01:00 #1763 [verbose] > │ let v5 : uint64 = method3(v3, v0, v4) │
00:01:00 #1764 [verbose] > │ v3 │
00:01:00 #1765 [verbose] > │ and method4 (v0 : uint64, v1 : Mut0) : bool = │
00:01:00 #1766 [verbose] > │ let v2 : uint64 = v1.l0 │
00:01:00 #1767 [verbose] > │ let v3 : bool = v2 < v0 │
00:01:00 #1768 [verbose] > │ v3 │
00:01:00 #1769 [verbose] > │ and method5 (v0 : int32, v1 : Mut1) : bool = │
00:01:00 #1770 [verbose] > │ let v2 : int32 = v1.l0 │
00:01:00 #1771 [verbose] > │ let v3 : bool = v2 < v0 │
00:01:00 #1772 [verbose] > │ v3 │
00:01:00 #1773 [verbose] > │ and method6 () : string = │
00:01:00 #1774 [verbose] > │ let v0 : string = " " │
00:01:00 #1775 [verbose] > │ v0 │
00:01:00 #1776 [verbose] > │ and closure1 () (v0 : string) : string = │
00:01:00 #1777 [verbose] > │ let v1 : int32 = v0.Length │
00:01:00 #1778 [verbose] > │ let v2 : (int32 []) = Array.zeroCreate<int32> (1) │
00:01:00 #1779 [verbose] > │ v2.[int 0] <- 0 │
00:01:00 #1780 [verbose] > │ let v3 : int32 = v1 - 1 │
00:01:00 #1781 [verbose] > │ let v4 : int32 = v3 - 1 │
00:01:00 #1782 [verbose] > │ let v5 : int32 = v4 + 1 │
00:01:00 #1783 [verbose] > │ let v6 : (int32 []) = Array.zeroCreate<int32> (v5) │
00:01:00 #1784 [verbose] > │ let v7 : Mut1 = {l0 = 0} : Mut1 │
00:01:00 #1785 [verbose] > │ while method5(v5, v7) do │
00:01:00 #1786 [verbose] > │ let v9 : int32 = v7.l0 │
00:01:00 #1787 [verbose] > │ let v10 : int32 = 1 + v9 │
00:01:00 #1788 [verbose] > │ v6.[int v9] <- v10 │
00:01:00 #1789 [verbose] > │ let v11 : int32 = v9 + 1 │
00:01:00 #1790 [verbose] > │ v7.l0 <- v11 │
00:01:00 #1791 [verbose] > │ () │
00:01:00 #1792 [verbose] > │ let v12 : int32 = v6.Length │
00:01:00 #1793 [verbose] > │ let v13 : int32 = v2.Length │
00:01:00 #1794 [verbose] > │ let v14 : int32 = v12 + v13 │
00:01:00 #1795 [verbose] > │ let v15 : (int32 []) = Array.zeroCreate<int32> (v14) │
00:01:00 #1796 [verbose] > │ let v16 : Mut1 = {l0 = 0} : Mut1 │
00:01:00 #1797 [verbose] > │ while method5(v14, v16) do │
00:01:00 #1798 [verbose] > │ let v18 : int32 = v16.l0 │
00:01:00 #1799 [verbose] > │ let v19 : bool = v18 < v12 │
00:01:00 #1800 [verbose] > │ let v23 : int32 = │
00:01:00 #1801 [verbose] > │ if v19 then │
00:01:00 #1802 [verbose] > │ let v20 : int32 = v6.[int v18] │
00:01:00 #1803 [verbose] > │ v20 │
00:01:00 #1804 [verbose] > │ else │
00:01:00 #1805 [verbose] > │ let v21 : int32 = v18 - v12 │
00:01:00 #1806 [verbose] > │ let v22 : int32 = v2.[int v21] │
00:01:00 #1807 [verbose] > │ v22 │
00:01:00 #1808 [verbose] > │ v15.[int v18] <- v23 │
00:01:00 #1809 [verbose] > │ let v24 : int32 = v18 + 1 │
00:01:00 #1810 [verbose] > │ v16.l0 <- v24 │
00:01:00 #1811 [verbose] > │ () │
00:01:00 #1812 [verbose] > │ let v25 : int32 = v15.Length │
00:01:00 #1813 [verbose] > │ let v26 : (string []) = Array.zeroCreate<string> (v25) │
00:01:00 #1814 [verbose] > │ let v27 : Mut1 = {l0 = 0} : Mut1 │
00:01:00 #1815 [verbose] > │ while method5(v25, v27) do │
00:01:00 #1816 [verbose] > │ let v29 : int32 = v27.l0 │
00:01:00 #1817 [verbose] > │ let v30 : int32 = v15.[int v29] │
00:01:00 #1818 [verbose] > │ let v31 : string = v0.[int v30..int v3] │
00:01:00 #1819 [verbose] > │ let v32 : int32 = v30 - 1 │
00:01:00 #1820 [verbose] > │ let v33 : string = v0.[int 0..int v32] │
00:01:00 #1821 [verbose] > │ let v34 : string = v31 + v33 │
00:01:00 #1822 [verbose] > │ v26.[int v29] <- v34 │
00:01:00 #1823 [verbose] > │ let v35 : int32 = v29 + 1 │
00:01:00 #1824 [verbose] > │ v27.l0 <- v35 │
00:01:00 #1825 [verbose] > │ () │
00:01:00 #1826 [verbose] > │ let v36 : ((string []) -> string seq) = Seq.ofArray │
00:01:00 #1827 [verbose] > │ let v37 : string seq = v36 v26 │
00:01:00 #1828 [verbose] > │ let v38 : string = method6() │
00:01:00 #1829 [verbose] > │ let v39 : (string -> (string seq -> string)) = String.concat │
00:01:00 #1830 [verbose] > │ let v40 : (string seq -> string) = v39 v38 │
00:01:00 #1831 [verbose] > │ v40 v37 │
00:01:00 #1832 [verbose] > │ and method7 (v0 : float, v1 : float) : UH1 = │
00:01:00 #1833 [verbose] > │ let v2 : bool = v1 < v0 │
00:01:00 #1834 [verbose] > │ if v2 then │
00:01:00 #1835 [verbose] > │ let v3 : int32 = int32 v1 │
00:01:00 #1836 [verbose] > │ let v4 : int32 = 1 + v3 │
00:01:00 #1837 [verbose] > │ let v5 : float = v1 + 1.0 │
00:01:00 #1838 [verbose] > │ let v6 : UH1 = method7(v0, v5) │
00:01:00 #1839 [verbose] > │ UH1_1(v4, v6) │
00:01:00 #1840 [verbose] > │ else │
00:01:00 #1841 [verbose] > │ UH1_0 │
00:01:00 #1842 [verbose] > │ and method8 (v0 : UH1, v1 : UH1) : UH1 = │
00:01:00 #1843 [verbose] > │ match v0 with │
00:01:00 #1844 [verbose] > │ | UH1_1(v2, v3) -> (* Cons *) │
00:01:00 #1845 [verbose] > │ let v4 : UH1 = method8(v3, v1) │
00:01:00 #1846 [verbose] > │ UH1_1(v2, v4) │
00:01:00 #1847 [verbose] > │ | UH1_0 -> (* Nil *) │
00:01:00 #1848 [verbose] > │ v1 │
00:01:00 #1849 [verbose] > │ and method9 (v0 : string, v1 : int32, v2 : UH1, v3 : UH2) : UH2 = │
00:01:00 #1850 [verbose] > │ match v2 with │
00:01:00 #1851 [verbose] > │ | UH1_1(v4, v5) -> (* Cons *) │
00:01:00 #1852 [verbose] > │ let v6 : UH2 = method9(v0, v1, v5, v3) │
00:01:00 #1853 [verbose] > │ let v7 : int32 = v1 - 1 │
00:01:00 #1854 [verbose] > │ let v8 : string = v0.[int v4..int v7] │
00:01:00 #1855 [verbose] > │ let v9 : bool = v4 = 0 │
00:01:00 #1856 [verbose] > │ let v13 : string = │
00:01:00 #1857 [verbose] > │ if v9 then │
00:01:00 #1858 [verbose] > │ let v10 : string = "" │
00:01:00 #1859 [verbose] > │ v10 │
00:01:00 #1860 [verbose] > │ else │
00:01:00 #1861 [verbose] > │ let v11 : int32 = v4 - 1 │
00:01:00 #1862 [verbose] > │ let v12 : string = v0.[int 0..int v11] │
00:01:00 #1863 [verbose] > │ v12 │
00:01:00 #1864 [verbose] > │ let v14 : string = v8 + v13 │
00:01:00 #1865 [verbose] > │ UH2_1(v14, v6) │
00:01:00 #1866 [verbose] > │ | UH1_0 -> (* Nil *) │
00:01:00 #1867 [verbose] > │ v3 │
00:01:00 #1868 [verbose] > │ and method11 (v0 : UH2, v1 : int32) : int32 = │
00:01:00 #1869 [verbose] > │ match v0 with │
00:01:00 #1870 [verbose] > │ | UH2_1(v2, v3) -> (* Cons *) │
00:01:00 #1871 [verbose] > │ let v4 : int32 = v1 + 1 │
00:01:00 #1872 [verbose] > │ method11(v3, v4) │
00:01:00 #1873 [verbose] > │ | UH2_0 -> (* Nil *) │
00:01:00 #1874 [verbose] > │ v1 │
00:01:00 #1875 [verbose] > │ and method12 (v0 : (string []), v1 : UH2, v2 : int32) : int32 = │
00:01:00 #1876 [verbose] > │ match v1 with │
00:01:00 #1877 [verbose] > │ | UH2_1(v3, v4) -> (* Cons *) │
00:01:00 #1878 [verbose] > │ v0.[int v2] <- v3 │
00:01:00 #1879 [verbose] > │ let v5 : int32 = v2 + 1 │
00:01:00 #1880 [verbose] > │ method12(v0, v4, v5) │
00:01:00 #1881 [verbose] > │ | UH2_0 -> (* Nil *) │
00:01:00 #1882 [verbose] > │ v2 │
00:01:00 #1883 [verbose] > │ and method10 (v0 : UH2) : (string []) = │
00:01:00 #1884 [verbose] > │ let v1 : int32 = 0 │
00:01:00 #1885 [verbose] > │ let v2 : int32 = method11(v0, v1) │
00:01:00 #1886 [verbose] > │ let v3 : (string []) = Array.zeroCreate<string> (v2) │
00:01:00 #1887 [verbose] > │ let v4 : int32 = 0 │
00:01:00 #1888 [verbose] > │ let v5 : int32 = method12(v3, v0, v4) │
00:01:00 #1889 [verbose] > │ v3 │
00:01:00 #1890 [verbose] > │ and closure2 () (v0 : string) : string = │
00:01:00 #1891 [verbose] > │ let v1 : int32 = v0.Length │
00:01:00 #1892 [verbose] > │ let v2 : int32 = v1 - 1 │
00:01:00 #1893 [verbose] > │ let v3 : int32 = v2 - 1 │
00:01:00 #1894 [verbose] > │ let v4 : float = float v3 │
00:01:00 #1895 [verbose] > │ let v5 : float = v4 + 1.0 │
00:01:00 #1896 [verbose] > │ let v6 : float = 0.0 │
00:01:00 #1897 [verbose] > │ let v7 : UH1 = method7(v5, v6) │
00:01:00 #1898 [verbose] > │ let v8 : int32 = 0 │
00:01:00 #1899 [verbose] > │ let v9 : UH1 = UH1_0 │
00:01:00 #1900 [verbose] > │ let v10 : UH1 = UH1_1(v8, v9) │
00:01:00 #1901 [verbose] > │ let v11 : UH1 = method8(v7, v10) │
00:01:00 #1902 [verbose] > │ let v12 : UH2 = UH2_0 │
00:01:00 #1903 [verbose] > │ let v13 : UH2 = method9(v0, v1, v11, v12) │
00:01:00 #1904 [verbose] > │ let v14 : (string []) = method10(v13) │
00:01:00 #1905 [verbose] > │ let v15 : ((string []) -> string seq) = Seq.ofArray │
00:01:00 #1906 [verbose] > │ let v16 : string seq = v15 v14 │
00:01:00 #1907 [verbose] > │ let v17 : string = method6() │
00:01:00 #1908 [verbose] > │ let v18 : (string -> (string seq -> string)) = String.concat │
00:01:00 #1909 [verbose] > │ let v19 : (string seq -> string) = v18 v17 │
00:01:00 #1910 [verbose] > │ v19 v16 │
00:01:00 #1911 [verbose] > │ and method14 (v0 : UH3, v1 : uint64) : uint64 = │
00:01:00 #1912 [verbose] > │ match v0 with │
00:01:00 #1913 [verbose] > │ | UH3_1(v2, v3, v4, v5) -> (* Cons *) │
00:01:00 #1914 [verbose] > │ let v6 : uint64 = v1 + 1UL │
00:01:00 #1915 [verbose] > │ method14(v5, v6) │
00:01:00 #1916 [verbose] > │ | UH3_0 -> (* Nil *) │
00:01:00 #1917 [verbose] > │ v1 │
00:01:00 #1918 [verbose] > │ and method15 (v0 : (struct (int32 * string * (string -> string)) []), v1 : │
00:01:00 #1919 [verbose] > │ UH3, v2 : uint64) : uint64 = │
00:01:00 #1920 [verbose] > │ match v1 with │
00:01:00 #1921 [verbose] > │ | UH3_1(v3, v4, v5, v6) -> (* Cons *) │
00:01:00 #1922 [verbose] > │ v0.[int v2] <- struct (v3, v4, v5) │
00:01:00 #1923 [verbose] > │ let v7 : uint64 = v2 + 1UL │
00:01:00 #1924 [verbose] > │ method15(v0, v6, v7) │
00:01:00 #1925 [verbose] > │ | UH3_0 -> (* Nil *) │
00:01:00 #1926 [verbose] > │ v2 │
00:01:00 #1927 [verbose] > │ and method13 (v0 : UH3) : (struct (int32 * string * (string -> string)) []) │
00:01:00 #1928 [verbose] > │ = │
00:01:00 #1929 [verbose] > │ let v1 : uint64 = 0UL │
00:01:00 #1930 [verbose] > │ let v2 : uint64 = method14(v0, v1) │
00:01:00 #1931 [verbose] > │ let v3 : (struct (int32 * string * (string -> string)) []) = │
00:01:00 #1932 [verbose] > │ Array.zeroCreate<struct (int32 * string * (string -> string))> │
00:01:00 #1933 [verbose] > │ (System.Convert.ToInt32(v2)) │
00:01:00 #1934 [verbose] > │ let v4 : uint64 = 0UL │
00:01:00 #1935 [verbose] > │ let v5 : uint64 = method15(v3, v0, v4) │
00:01:00 #1936 [verbose] > │ v3 │
00:01:00 #1937 [verbose] > │ and method16 (v0 : Mut1) : bool = │
00:01:00 #1938 [verbose] > │ let v1 : int32 = v0.l0 │
00:01:00 #1939 [verbose] > │ let v2 : bool = v1 < 2000001 │
00:01:00 #1940 [verbose] > │ v2 │
00:01:00 #1941 [verbose] > │ and closure3 (v0 : string, v1 : (string -> string)) (v2 : int32) : string = │
00:01:00 #1942 [verbose] > │ v1 v0 │
00:01:00 #1943 [verbose] > │ and method17 (v0 : string, v1 : (string []), v2 : uint64) : bool = │
00:01:00 #1944 [verbose] > │ let v3 : uint64 = System.Convert.ToUInt64 v1.Length │
00:01:00 #1945 [verbose] > │ let v4 : bool = v2 < v3 │
00:01:00 #1946 [verbose] > │ if v4 then │
00:01:00 #1947 [verbose] > │ let v5 : string = v1.[int v2] │
00:01:00 #1948 [verbose] > │ let v6 : bool = v0 = v5 │
00:01:00 #1949 [verbose] > │ if v6 then │
00:01:00 #1950 [verbose] > │ let v7 : uint64 = v2 + 1UL │
00:01:00 #1951 [verbose] > │ method17(v0, v1, v7) │
00:01:00 #1952 [verbose] > │ else │
00:01:00 #1953 [verbose] > │ false │
00:01:00 #1954 [verbose] > │ else │
00:01:00 #1955 [verbose] > │ true │
00:01:00 #1956 [verbose] > │ and method18 (v0 : uint64, v1 : Mut2) : bool = │
00:01:00 #1957 [verbose] > │ let v2 : uint64 = v1.l0 │
00:01:00 #1958 [verbose] > │ let v3 : bool = v2 < v0 │
00:01:00 #1959 [verbose] > │ v3 │
00:01:00 #1960 [verbose] > │ and method19 (v0 : UH4, v1 : UH4) : UH4 = │
00:01:00 #1961 [verbose] > │ match v0 with │
00:01:00 #1962 [verbose] > │ | UH4_1(v2, v3, v4) -> (* Cons *) │
00:01:00 #1963 [verbose] > │ let v5 : UH4 = UH4_1(v2, v3, v1) │
00:01:00 #1964 [verbose] > │ method19(v4, v5) │
00:01:00 #1965 [verbose] > │ | UH4_0 -> (* Nil *) │
00:01:00 #1966 [verbose] > │ v1 │
00:01:00 #1967 [verbose] > │ and method21 (v0 : UH4, v1 : int32) : int32 = │
00:01:00 #1968 [verbose] > │ match v0 with │
00:01:00 #1969 [verbose] > │ | UH4_1(v2, v3, v4) -> (* Cons *) │
00:01:00 #1970 [verbose] > │ let v5 : int32 = v1 + 1 │
00:01:00 #1971 [verbose] > │ method21(v4, v5) │
00:01:00 #1972 [verbose] > │ | UH4_0 -> (* Nil *) │
00:01:00 #1973 [verbose] > │ v1 │
00:01:00 #1974 [verbose] > │ and method22 (v0 : (struct (int64 * int64) []), v1 : UH4, v2 : int32) : │
00:01:00 #1975 [verbose] > │ int32 = │
00:01:00 #1976 [verbose] > │ match v1 with │
00:01:00 #1977 [verbose] > │ | UH4_1(v3, v4, v5) -> (* Cons *) │
00:01:00 #1978 [verbose] > │ v0.[int v2] <- struct (v3, v4) │
00:01:00 #1979 [verbose] > │ let v6 : int32 = v2 + 1 │
00:01:00 #1980 [verbose] > │ method22(v0, v5, v6) │
00:01:00 #1981 [verbose] > │ | UH4_0 -> (* Nil *) │
00:01:00 #1982 [verbose] > │ v2 │
00:01:00 #1983 [verbose] > │ and method20 (v0 : UH4) : (struct (int64 * int64) []) = │
00:01:00 #1984 [verbose] > │ let v1 : int32 = 0 │
00:01:00 #1985 [verbose] > │ let v2 : int32 = method21(v0, v1) │
00:01:00 #1986 [verbose] > │ let v3 : (struct (int64 * int64) []) = Array.zeroCreate<struct (int64 * │
00:01:00 #1987 [verbose] > │ int64)> (v2) │
00:01:00 #1988 [verbose] > │ let v4 : int32 = 0 │
00:01:00 #1989 [verbose] > │ let v5 : int32 = method22(v3, v0, v4) │
00:01:00 #1990 [verbose] > │ v3 │
00:01:00 #1991 [verbose] > │ and closure4 () struct (v0 : int64, v1 : int64) : int64 = │
00:01:00 #1992 [verbose] > │ v1 │
00:01:00 #1993 [verbose] > │ and method24 (v0 : UH5, v1 : uint64) : uint64 = │
00:01:00 #1994 [verbose] > │ match v0 with │
00:01:00 #1995 [verbose] > │ | UH5_1(v2, v3, v4) -> (* Cons *) │
00:01:00 #1996 [verbose] > │ let v5 : uint64 = v1 + 1UL │
00:01:00 #1997 [verbose] > │ method24(v4, v5) │
00:01:00 #1998 [verbose] > │ | UH5_0 -> (* Nil *) │
00:01:00 #1999 [verbose] > │ v1 │
00:01:00 #2000 [verbose] > │ and method25 (v0 : (struct (UH2 * US0) []), v1 : UH5, v2 : uint64) : uint64 │
00:01:00 #2001 [verbose] > │ = │
00:01:00 #2002 [verbose] > │ match v1 with │
00:01:00 #2003 [verbose] > │ | UH5_1(v3, v4, v5) -> (* Cons *) │
00:01:00 #2004 [verbose] > │ v0.[int v2] <- struct (v3, v4) │
00:01:00 #2005 [verbose] > │ let v6 : uint64 = v2 + 1UL │
00:01:00 #2006 [verbose] > │ method25(v0, v5, v6) │
00:01:00 #2007 [verbose] > │ | UH5_0 -> (* Nil *) │
00:01:00 #2008 [verbose] > │ v2 │
00:01:00 #2009 [verbose] > │ and method23 (v0 : UH5) : (struct (UH2 * US0) []) = │
00:01:00 #2010 [verbose] > │ let v1 : uint64 = 0UL │
00:01:00 #2011 [verbose] > │ let v2 : uint64 = method24(v0, v1) │
00:01:00 #2012 [verbose] > │ let v3 : (struct (UH2 * US0) []) = Array.zeroCreate<struct (UH2 * US0)> │
00:01:00 #2013 [verbose] > │ (System.Convert.ToInt32(v2)) │
00:01:00 #2014 [verbose] > │ let v4 : uint64 = 0UL │
00:01:00 #2015 [verbose] > │ let v5 : uint64 = method25(v3, v0, v4) │
00:01:00 #2016 [verbose] > │ v3 │
00:01:00 #2017 [verbose] > │ and method27 (v0 : UH2, v1 : uint64) : uint64 = │
00:01:00 #2018 [verbose] > │ match v0 with │
00:01:00 #2019 [verbose] > │ | UH2_1(v2, v3) -> (* Cons *) │
00:01:00 #2020 [verbose] > │ let v4 : uint64 = v1 + 1UL │
00:01:00 #2021 [verbose] > │ method27(v3, v4) │
00:01:00 #2022 [verbose] > │ | UH2_0 -> (* Nil *) │
00:01:00 #2023 [verbose] > │ v1 │
00:01:00 #2024 [verbose] > │ and method28 (v0 : (string []), v1 : UH2, v2 : uint64) : uint64 = │
00:01:00 #2025 [verbose] > │ match v1 with │
00:01:00 #2026 [verbose] > │ | UH2_1(v3, v4) -> (* Cons *) │
00:01:00 #2027 [verbose] > │ v0.[int v2] <- v3 │
00:01:00 #2028 [verbose] > │ let v5 : uint64 = v2 + 1UL │
00:01:00 #2029 [verbose] > │ method28(v0, v4, v5) │
00:01:00 #2030 [verbose] > │ | UH2_0 -> (* Nil *) │
00:01:00 #2031 [verbose] > │ v2 │
00:01:00 #2032 [verbose] > │ and method26 (v0 : UH2) : (string []) = │
00:01:00 #2033 [verbose] > │ let v1 : uint64 = 0UL │
00:01:00 #2034 [verbose] > │ let v2 : uint64 = method27(v0, v1) │
00:01:00 #2035 [verbose] > │ let v3 : (string []) = Array.zeroCreate<string> │
00:01:00 #2036 [verbose] > │ (System.Convert.ToInt32(v2)) │
00:01:00 #2037 [verbose] > │ let v4 : uint64 = 0UL │
00:01:00 #2038 [verbose] > │ let v5 : uint64 = method28(v3, v0, v4) │
00:01:00 #2039 [verbose] > │ v3 │
00:01:00 #2040 [verbose] > │ and closure5 () (v0 : int64) : US1 = │
00:01:00 #2041 [verbose] > │ US1_0(v0) │
00:01:00 #2042 [verbose] > │ and method29 () : (int64 -> US1) = │
00:01:00 #2043 [verbose] > │ closure5() │
00:01:00 #2044 [verbose] > │ and method30 (v0 : uint64, v1 : Mut3) : bool = │
00:01:00 #2045 [verbose] > │ let v2 : uint64 = v1.l0 │
00:01:00 #2046 [verbose] > │ let v3 : bool = v2 < v0 │
00:01:00 #2047 [verbose] > │ v3 │
00:01:00 #2048 [verbose] > │ and method31 (v0 : UH6, v1 : UH6) : UH6 = │
00:01:00 #2049 [verbose] > │ match v0 with │
00:01:00 #2050 [verbose] > │ | UH6_1(v2, v3, v4) -> (* Cons *) │
00:01:00 #2051 [verbose] > │ let v5 : UH6 = UH6_1(v2, v3, v1) │
00:01:00 #2052 [verbose] > │ method31(v4, v5) │
00:01:00 #2053 [verbose] > │ | UH6_0 -> (* Nil *) │
00:01:00 #2054 [verbose] > │ v1 │
00:01:00 #2055 [verbose] > │ and method33 (v0 : UH6, v1 : int32) : int32 = │
00:01:00 #2056 [verbose] > │ match v0 with │
00:01:00 #2057 [verbose] > │ | UH6_1(v2, v3, v4) -> (* Cons *) │
00:01:00 #2058 [verbose] > │ let v5 : int32 = v1 + 1 │
00:01:00 #2059 [verbose] > │ method33(v4, v5) │
00:01:00 #2060 [verbose] > │ | UH6_0 -> (* Nil *) │
00:01:00 #2061 [verbose] > │ v1 │
00:01:00 #2062 [verbose] > │ and method34 (v0 : (struct (int32 * int64) []), v1 : UH6, v2 : int32) : │
00:01:00 #2063 [verbose] > │ int32 = │
00:01:00 #2064 [verbose] > │ match v1 with │
00:01:00 #2065 [verbose] > │ | UH6_1(v3, v4, v5) -> (* Cons *) │
00:01:00 #2066 [verbose] > │ v0.[int v2] <- struct (v3, v4) │
00:01:00 #2067 [verbose] > │ let v6 : int32 = v2 + 1 │
00:01:00 #2068 [verbose] > │ method34(v0, v5, v6) │
00:01:00 #2069 [verbose] > │ | UH6_0 -> (* Nil *) │
00:01:00 #2070 [verbose] > │ v2 │
00:01:00 #2071 [verbose] > │ and method32 (v0 : UH6) : (struct (int32 * int64) []) = │
00:01:00 #2072 [verbose] > │ let v1 : int32 = 0 │
00:01:00 #2073 [verbose] > │ let v2 : int32 = method33(v0, v1) │
00:01:00 #2074 [verbose] > │ let v3 : (struct (int32 * int64) []) = Array.zeroCreate<struct (int32 * │
00:01:00 #2075 [verbose] > │ int64)> (v2) │
00:01:00 #2076 [verbose] > │ let v4 : int32 = 0 │
00:01:00 #2077 [verbose] > │ let v5 : int32 = method34(v3, v0, v4) │
00:01:00 #2078 [verbose] > │ v3 │
00:01:00 #2079 [verbose] > │ and method35 (v0 : UH2, v1 : UH7, v2 : int32) : struct (UH7 * int32) = │
00:01:01 #2080 [verbose] > │ match v0 with │
00:01:01 #2081 [verbose] > │ | UH2_1(v3, v4) -> (* Cons *) │
00:01:01 #2082 [verbose] > │ let v5 : int32 = v2 + 1 │
00:01:01 #2083 [verbose] > │ let v6 : UH7 = UH7_1(v2, v3, v1) │
00:01:01 #2084 [verbose] > │ method35(v4, v6, v5) │
00:01:01 #2085 [verbose] > │ | UH2_0 -> (* Nil *) │
00:01:01 #2086 [verbose] > │ struct (v1, v2) │
00:01:01 #2087 [verbose] > │ and method36 (v0 : UH7, v1 : UH7) : UH7 = │
00:01:01 #2088 [verbose] > │ match v0 with │
00:01:01 #2089 [verbose] > │ | UH7_1(v2, v3, v4) -> (* Cons *) │
00:01:01 #2090 [verbose] > │ let v5 : UH7 = UH7_1(v2, v3, v1) │
00:01:01 #2091 [verbose] > │ method36(v4, v5) │
00:01:01 #2092 [verbose] > │ | UH7_0 -> (* Nil *) │
00:01:01 #2093 [verbose] > │ v1 │
00:01:01 #2094 [verbose] > │ and method37 (v0 : Map<int32, int64>, v1 : UH7, v2 : UH2) : UH2 = │
00:01:01 #2095 [verbose] > │ match v1 with │
00:01:01 #2096 [verbose] > │ | UH7_1(v3, v4, v5) -> (* Cons *) │
00:01:01 #2097 [verbose] > │ let v6 : UH2 = method37(v0, v5, v2) │
00:01:01 #2098 [verbose] > │ let v7 : int64 = v0.[v3] │
00:01:01 #2099 [verbose] > │ let v8 : int32 = int32 v7 │
00:01:01 #2100 [verbose] > │ let v9 : string = v4.PadRight v8 │
00:01:01 #2101 [verbose] > │ UH2_1(v9, v6) │
00:01:01 #2102 [verbose] > │ | UH7_0 -> (* Nil *) │
00:01:01 #2103 [verbose] > │ v2 │
00:01:01 #2104 [verbose] > │ and method39 (v0 : UH6, v1 : uint64) : uint64 = │
00:01:01 #2105 [verbose] > │ match v0 with │
00:01:01 #2106 [verbose] > │ | UH6_1(v2, v3, v4) -> (* Cons *) │
00:01:01 #2107 [verbose] > │ let v5 : uint64 = v1 + 1UL │
00:01:01 #2108 [verbose] > │ method39(v4, v5) │
00:01:01 #2109 [verbose] > │ | UH6_0 -> (* Nil *) │
00:01:01 #2110 [verbose] > │ v1 │
00:01:01 #2111 [verbose] > │ and method40 (v0 : (struct (int32 * int64) []), v1 : UH6, v2 : uint64) : │
00:01:01 #2112 [verbose] > │ uint64 = │
00:01:01 #2113 [verbose] > │ match v1 with │
00:01:01 #2114 [verbose] > │ | UH6_1(v3, v4, v5) -> (* Cons *) │
00:01:01 #2115 [verbose] > │ v0.[int v2] <- struct (v3, v4) │
00:01:01 #2116 [verbose] > │ let v6 : uint64 = v2 + 1UL │
00:01:01 #2117 [verbose] > │ method40(v0, v5, v6) │
00:01:01 #2118 [verbose] > │ | UH6_0 -> (* Nil *) │
00:01:01 #2119 [verbose] > │ v2 │
00:01:01 #2120 [verbose] > │ and method38 (v0 : UH6) : (struct (int32 * int64) []) = │
00:01:01 #2121 [verbose] > │ let v1 : uint64 = 0UL │
00:01:01 #2122 [verbose] > │ let v2 : uint64 = method39(v0, v1) │
00:01:01 #2123 [verbose] > │ let v3 : (struct (int32 * int64) []) = Array.zeroCreate<struct (int32 * │
00:01:01 #2124 [verbose] > │ int64)> (System.Convert.ToInt32(v2)) │
00:01:01 #2125 [verbose] > │ let v4 : uint64 = 0UL │
00:01:01 #2126 [verbose] > │ let v5 : uint64 = method40(v3, v0, v4) │
00:01:01 #2127 [verbose] > │ v3 │
00:01:01 #2128 [verbose] > │ and closure6 () struct (v0 : int32, v1 : int64) : int64 = │
00:01:01 #2129 [verbose] > │ v1 │
00:01:01 #2130 [verbose] > │ and closure0 () () : unit = │
00:01:01 #2131 [verbose] > │ let v0 : (unit -> unit) = closure0() │
00:01:01 #2132 [verbose] > │ let v1 : string = nameof v0 │
00:01:01 #2133 [verbose] > │ let v2 : string = "" │
00:01:01 #2134 [verbose] > │ System.Console.WriteLine v2 │
00:01:01 #2135 [verbose] > │ System.Console.WriteLine v2 │
00:01:01 #2136 [verbose] > │ let v3 : string = $"Test: {v1}" │
00:01:01 #2137 [verbose] > │ System.Console.WriteLine v3 │
00:01:01 #2138 [verbose] > │ let v4 : string = "abc" │
00:01:01 #2139 [verbose] > │ let v5 : string = "bca cab abc" │
00:01:01 #2140 [verbose] > │ let v6 : string = "abcde" │
00:01:01 #2141 [verbose] > │ let v7 : string = "bcdea cdeab deabc eabcd abcde" │
00:01:01 #2142 [verbose] > │ let v8 : string = "abcdefghi" │
00:01:01 #2143 [verbose] > │ let v9 : string = "bcdefghia cdefghiab defghiabc efghiabcd fghiabcde │
00:01:01 #2144 [verbose] > │ ghiabcdef hiabcdefg iabcdefgh abcdefghi" │
00:01:01 #2145 [verbose] > │ let v10 : string = "abab" │
00:01:01 #2146 [verbose] > │ let v11 : string = "baba abab baba abab" │
00:01:01 #2147 [verbose] > │ let v12 : string = "aa" │
00:01:01 #2148 [verbose] > │ let v13 : string = "aa aa" │
00:01:01 #2149 [verbose] > │ let v14 : string = "z" │
00:01:01 #2150 [verbose] > │ let v15 : UH0 = UH0_0 │
00:01:01 #2151 [verbose] > │ let v16 : UH0 = UH0_1(v14, v14, v15) │
00:01:01 #2152 [verbose] > │ let v17 : UH0 = UH0_1(v12, v13, v16) │
00:01:01 #2153 [verbose] > │ let v18 : UH0 = UH0_1(v10, v11, v17) │
00:01:01 #2154 [verbose] > │ let v19 : UH0 = UH0_1(v8, v9, v18) │
00:01:01 #2155 [verbose] > │ let v20 : UH0 = UH0_1(v6, v7, v19) │
00:01:01 #2156 [verbose] > │ let v21 : UH0 = UH0_1(v4, v5, v20) │
00:01:01 #2157 [verbose] > │ let v22 : (struct (string * string) []) = method1(v21) │
00:01:01 #2158 [verbose] > │ let v23 : uint64 = System.Convert.ToUInt64 v22.Length │
00:01:01 #2159 [verbose] > │ let v24 : (struct (string * string * string * (int64 [])) []) = │
00:01:01 #2160 [verbose] > │ Array.zeroCreate<struct (string * string * string * (int64 []))> │
00:01:01 #2161 [verbose] > │ (System.Convert.ToInt32(v23)) │
00:01:01 #2162 [verbose] > │ let v25 : Mut0 = {l0 = 0UL} : Mut0 │
00:01:01 #2163 [verbose] > │ while method4(v23, v25) do │
00:01:01 #2164 [verbose] > │ let v27 : uint64 = v25.l0 │
00:01:01 #2165 [verbose] > │ let struct (v28 : string, v29 : string) = v22.[int v27] │
00:01:01 #2166 [verbose] > │ let v30 : string = $"%A{v28}" │
00:01:01 #2167 [verbose] > │ System.Console.WriteLine v2 │
00:01:01 #2168 [verbose] > │ let v31 : string = $"Solution: {v30} " │
00:01:01 #2169 [verbose] > │ System.Console.WriteLine v31 │
00:01:01 #2170 [verbose] > │ let v32 : int32 = 0 │
00:01:01 #2171 [verbose] > │ let v33 : string = "F" │
00:01:01 #2172 [verbose] > │ let v34 : (string -> string) = closure1() │
00:01:01 #2173 [verbose] > │ let v35 : int32 = 1 │
00:01:01 #2174 [verbose] > │ let v36 : string = "FA" │
00:01:01 #2175 [verbose] > │ let v37 : (string -> string) = closure2() │
00:01:01 #2176 [verbose] > │ let v38 : UH3 = UH3_0 │
00:01:01 #2177 [verbose] > │ let v39 : UH3 = UH3_1(v35, v36, v37, v38) │
00:01:01 #2178 [verbose] > │ let v40 : UH3 = UH3_1(v32, v33, v34, v39) │
00:01:01 #2179 [verbose] > │ let v41 : (struct (int32 * string * (string -> string)) []) = │
00:01:01 #2180 [verbose] > │ method13(v40) │
00:01:01 #2181 [verbose] > │ let v42 : uint64 = System.Convert.ToUInt64 v41.Length │
00:01:01 #2182 [verbose] > │ let v43 : (struct (string * int64) []) = Array.zeroCreate<struct │
00:01:01 #2183 [verbose] > │ (string * int64)> (System.Convert.ToInt32(v42)) │
00:01:01 #2184 [verbose] > │ let v44 : Mut0 = {l0 = 0UL} : Mut0 │
00:01:01 #2185 [verbose] > │ while method4(v42, v44) do │
00:01:01 #2186 [verbose] > │ let v46 : uint64 = v44.l0 │
00:01:01 #2187 [verbose] > │ let struct (v47 : int32, v48 : string, v49 : (string -> string)) │
00:01:01 #2188 [verbose] > │ = v41.[int v46] │
00:01:01 #2189 [verbose] > │ let v50 : unit option = None │
00:01:01 #2190 [verbose] > │ let mutable _v50 = v50 │
00:01:01 #2191 [verbose] > │ #if FABLE_COMPILER_RUST && !WASM && !CONTRACT │
00:01:01 #2192 [verbose] > │ () │
00:01:01 #2193 [verbose] > │ #endif │
00:01:01 #2194 [verbose] > │ #if FABLE_COMPILER_RUST && WASM │
00:01:01 #2195 [verbose] > │ () │
00:01:01 #2196 [verbose] > │ #endif │
00:01:01 #2197 [verbose] > │ #if FABLE_COMPILER_RUST && CONTRACT │
00:01:01 #2198 [verbose] > │ () │
00:01:01 #2199 [verbose] > │ #endif │
00:01:01 #2200 [verbose] > │ #if !FABLE_COMPILER && !FABLE_COMPILER_RUST && │
00:01:01 #2201 [verbose] > │ !FABLE_COMPILER_TYPESCRIPT && !WASM && !CONTRACT │
00:01:01 #2202 [verbose] > │ System.GC.Collect () │
00:01:01 #2203 [verbose] > │ () │
00:01:01 #2204 [verbose] > │ #endif │
00:01:01 #2205 [verbose] > │ #if FABLE_COMPILER_TYPESCRIPT │
00:01:01 #2206 [verbose] > │ () │
00:01:01 #2207 [verbose] > │ #endif │
00:01:01 #2208 [verbose] > │ #if FABLE_COMPILER_PYTHON || FABLE_COMPILER_PHP || │
00:01:01 #2209 [verbose] > │ FABLE_COMPILER_DART │
00:01:01 #2210 [verbose] > │ Unchecked.defaultof<unit> │
00:01:01 #2211 [verbose] > │ () │
00:01:01 #2212 [verbose] > │ #endif │
00:01:01 #2213 [verbose] > │ |> fun x -> _v50 <- Some x │
00:01:01 #2214 [verbose] > │ _v50.Value │
00:01:01 #2215 [verbose] > │ let v51 : (unit -> System.Diagnostics.Stopwatch) = │
00:01:01 #2216 [verbose] > │ System.Diagnostics.Stopwatch │
00:01:01 #2217 [verbose] > │ let v52 : System.Diagnostics.Stopwatch = v51 () │
00:01:01 #2218 [verbose] > │ v52.Start () │
00:01:01 #2219 [verbose] > │ let v53 : int64 = v52.ElapsedMilliseconds │
00:01:01 #2220 [verbose] > │ let v54 : (int32 []) = Array.zeroCreate<int32> (2000001) │
00:01:01 #2221 [verbose] > │ let v55 : Mut1 = {l0 = 0} : Mut1 │
00:01:01 #2222 [verbose] > │ while method16(v55) do │
00:01:01 #2223 [verbose] > │ let v57 : int32 = v55.l0 │
00:01:01 #2224 [verbose] > │ v54.[int v57] <- v57 │
00:01:01 #2225 [verbose] > │ let v58 : int32 = v57 + 1 │
00:01:01 #2226 [verbose] > │ v55.l0 <- v58 │
00:01:01 #2227 [verbose] > │ () │
00:01:01 #2228 [verbose] > │ let v59 : ((int32 -> string) -> ((int32 []) -> (string []))) = │
00:01:01 #2229 [verbose] > │ Array.Parallel.map │
00:01:01 #2230 [verbose] > │ let v60 : (int32 -> string) = closure3(v28, v49) │
00:01:01 #2231 [verbose] > │ let v61 : ((int32 []) -> (string [])) = v59 v60 │
00:01:01 #2232 [verbose] > │ let v62 : (string []) = v61 v54 │
00:01:01 #2233 [verbose] > │ let v63 : int32 = v62.Length │
00:01:01 #2234 [verbose] > │ let v64 : int32 = v63 - 1 │
00:01:01 #2235 [verbose] > │ let v65 : string = v62.[int v64] │
00:01:01 #2236 [verbose] > │ let v66 : int64 = v52.ElapsedMilliseconds │
00:01:01 #2237 [verbose] > │ let v67 : int64 = v66 - v53 │
00:01:01 #2238 [verbose] > │ let v68 : string = $"Test case {v47 + 1}. {v48}. Time: {v67} " │
00:01:01 #2239 [verbose] > │ System.Console.WriteLine v68 │
00:01:01 #2240 [verbose] > │ v43.[int v46] <- struct (v65, v67) │
00:01:01 #2241 [verbose] > │ let v69 : uint64 = v46 + 1UL │
00:01:01 #2242 [verbose] > │ v44.l0 <- v69 │
00:01:01 #2243 [verbose] > │ () │
00:01:01 #2244 [verbose] > │ let v70 : uint64 = System.Convert.ToUInt64 v43.Length │
00:01:01 #2245 [verbose] > │ let v71 : (string []) = Array.zeroCreate<string> │
00:01:01 #2246 [verbose] > │ (System.Convert.ToInt32(v70)) │
00:01:01 #2247 [verbose] > │ let v72 : Mut0 = {l0 = 0UL} : Mut0 │
00:01:01 #2248 [verbose] > │ while method4(v70, v72) do │
00:01:01 #2249 [verbose] > │ let v74 : uint64 = v72.l0 │
00:01:01 #2250 [verbose] > │ let struct (v75 : string, v76 : int64) = v43.[int v74] │
00:01:01 #2251 [verbose] > │ v71.[int v74] <- v75 │
00:01:01 #2252 [verbose] > │ let v77 : uint64 = v74 + 1UL │
00:01:01 #2253 [verbose] > │ v72.l0 <- v77 │
00:01:01 #2254 [verbose] > │ () │
00:01:01 #2255 [verbose] > │ let v78 : uint64 = System.Convert.ToUInt64 v71.Length │
00:01:01 #2256 [verbose] > │ let v79 : bool = v78 <= 1UL │
00:01:01 #2257 [verbose] > │ if v79 then │
00:01:01 #2258 [verbose] > │ () │
00:01:01 #2259 [verbose] > │ else │
00:01:01 #2260 [verbose] > │ let v80 : string = v71.[int 0UL] │
00:01:01 #2261 [verbose] > │ let v81 : uint64 = 0UL │
00:01:01 #2262 [verbose] > │ let v82 : bool = method17(v80, v71, v81) │
00:01:01 #2263 [verbose] > │ if v82 then │
00:01:01 #2264 [verbose] > │ () │
00:01:01 #2265 [verbose] > │ else │
00:01:01 #2266 [verbose] > │ let v83 : string = $"Challenge error: {v71}" │
00:01:01 #2267 [verbose] > │ failwith<unit> v83 │
00:01:01 #2268 [verbose] > │ let v84 : string = $"%A{v29}" │
00:01:01 #2269 [verbose] > │ let v85 : (string []) = Array.zeroCreate<string> │
00:01:01 #2270 [verbose] > │ (System.Convert.ToInt32(v70)) │
00:01:01 #2271 [verbose] > │ let v86 : Mut0 = {l0 = 0UL} : Mut0 │
00:01:01 #2272 [verbose] > │ while method4(v70, v86) do │
00:01:01 #2273 [verbose] > │ let v88 : uint64 = v86.l0 │
00:01:01 #2274 [verbose] > │ let struct (v89 : string, v90 : int64) = v43.[int v88] │
00:01:01 #2275 [verbose] > │ v85.[int v88] <- v89 │
00:01:01 #2276 [verbose] > │ let v91 : uint64 = v88 + 1UL │
00:01:01 #2277 [verbose] > │ v86.l0 <- v91 │
00:01:01 #2278 [verbose] > │ () │
00:01:01 #2279 [verbose] > │ let v92 : string = v85.[int 0UL] │
00:01:01 #2280 [verbose] > │ let v93 : string = $"%A{v92}" │
00:01:01 #2281 [verbose] > │ let v94 : (int64 []) = Array.zeroCreate<int64> │
00:01:01 #2282 [verbose] > │ (System.Convert.ToInt32(v70)) │
00:01:01 #2283 [verbose] > │ let v95 : Mut0 = {l0 = 0UL} : Mut0 │
00:01:01 #2284 [verbose] > │ while method4(v70, v95) do │
00:01:01 #2285 [verbose] > │ let v97 : uint64 = v95.l0 │
00:01:01 #2286 [verbose] > │ let struct (v98 : string, v99 : int64) = v43.[int v97] │
00:01:01 #2287 [verbose] > │ v94.[int v97] <- v99 │
00:01:01 #2288 [verbose] > │ let v100 : uint64 = v97 + 1UL │
00:01:01 #2289 [verbose] > │ v95.l0 <- v100 │
00:01:01 #2290 [verbose] > │ () │
00:01:01 #2291 [verbose] > │ v24.[int v27] <- struct (v84, v30, v93, v94) │
00:01:01 #2292 [verbose] > │ let v101 : uint64 = v27 + 1UL │
00:01:01 #2293 [verbose] > │ v25.l0 <- v101 │
00:01:01 #2294 [verbose] > │ () │
00:01:01 #2295 [verbose] > │ let v102 : uint64 = System.Convert.ToUInt64 v24.Length │
00:01:01 #2296 [verbose] > │ let v103 : (struct (UH2 * US0) []) = Array.zeroCreate<struct (UH2 * │
00:01:01 #2297 [verbose] > │ US0)> (System.Convert.ToInt32(v102)) │
00:01:01 #2298 [verbose] > │ let v104 : Mut0 = {l0 = 0UL} : Mut0 │
00:01:01 #2299 [verbose] > │ while method4(v102, v104) do │
00:01:01 #2300 [verbose] > │ let v106 : uint64 = v104.l0 │
00:01:01 #2301 [verbose] > │ let struct (v107 : string, v108 : string, v109 : string, v110 : │
00:01:01 #2302 [verbose] > │ (int64 [])) = v24.[int v106] │
00:01:01 #2303 [verbose] > │ let v111 : uint64 = System.Convert.ToUInt64 v110.Length │
00:01:01 #2304 [verbose] > │ let v112 : UH4 = UH4_0 │
00:01:01 #2305 [verbose] > │ let v113 : Mut2 = {l0 = 0UL; l1 = v112; l2 = 0L} : Mut2 │
00:01:01 #2306 [verbose] > │ while method18(v111, v113) do │
00:01:01 #2307 [verbose] > │ let v115 : uint64 = v113.l0 │
00:01:01 #2308 [verbose] > │ let struct (v116 : UH4, v117 : int64) = v113.l1, v113.l2 │
00:01:01 #2309 [verbose] > │ let v118 : int64 = v110.[int v115] │
00:01:01 #2310 [verbose] > │ let v119 : int64 = v117 + 1L │
00:01:01 #2311 [verbose] > │ let v120 : uint64 = v115 + 1UL │
00:01:01 #2312 [verbose] > │ let v121 : UH4 = UH4_1(v117, v118, v116) │
00:01:01 #2313 [verbose] > │ v113.l0 <- v120 │
00:01:01 #2314 [verbose] > │ v113.l1 <- v121 │
00:01:01 #2315 [verbose] > │ v113.l2 <- v119 │
00:01:01 #2316 [verbose] > │ () │
00:01:01 #2317 [verbose] > │ let struct (v122 : UH4, v123 : int64) = v113.l1, v113.l2 │
00:01:01 #2318 [verbose] > │ let v124 : UH4 = UH4_0 │
00:01:01 #2319 [verbose] > │ let v125 : UH4 = method19(v122, v124) │
00:01:01 #2320 [verbose] > │ let v126 : (struct (int64 * int64) []) = method20(v125) │
00:01:01 #2321 [verbose] > │ let v127 : int32 = v126.Length │
00:01:01 #2322 [verbose] > │ let v128 : (struct (int64 * int64) []) = Array.zeroCreate<struct │
00:01:01 #2323 [verbose] > │ (int64 * int64)> (v127) │
00:01:01 #2324 [verbose] > │ let v129 : Mut1 = {l0 = 0} : Mut1 │
00:01:01 #2325 [verbose] > │ while method5(v127, v129) do │
00:01:01 #2326 [verbose] > │ let v131 : int32 = v129.l0 │
00:01:01 #2327 [verbose] > │ let struct (v132 : int64, v133 : int64) = v126.[int v131] │
00:01:01 #2328 [verbose] > │ let v134 : int64 = v132 + 1L │
00:01:01 #2329 [verbose] > │ v128.[int v131] <- struct (v134, v133) │
00:01:01 #2330 [verbose] > │ let v135 : int32 = v131 + 1 │
00:01:01 #2331 [verbose] > │ v129.l0 <- v135 │
00:01:01 #2332 [verbose] > │ () │
00:01:01 #2333 [verbose] > │ let v136 : ((struct (int64 * int64) -> int64) -> ((struct (int64 * │
00:01:01 #2334 [verbose] > │ int64) []) -> (struct (int64 * int64) []))) = Array.sortBy │
00:01:01 #2335 [verbose] > │ let v137 : (struct (int64 * int64) -> int64) = closure4() │
00:01:01 #2336 [verbose] > │ let v138 : ((struct (int64 * int64) []) -> (struct (int64 * int64) [ │
00:01:01 #2337 [verbose] > │ ])) = v136 v137 │
00:01:01 #2338 [verbose] > │ let v139 : (struct (int64 * int64) []) = v138 v128 │
00:01:01 #2339 [verbose] > │ let struct (v140 : int64, v141 : int64) = v139.[int 0] │
00:01:01 #2340 [verbose] > │ let v142 : string = $"%A{struct (v140, v141)}" │
00:01:01 #2341 [verbose] > │ let v143 : bool = v107 = v109 │
00:01:01 #2342 [verbose] > │ let v148 : US0 = │
00:01:01 #2343 [verbose] > │ if v143 then │
00:01:01 #2344 [verbose] > │ let v144 : System.ConsoleColor = │
00:01:01 #2345 [verbose] > │ System.ConsoleColor.DarkGreen │
00:01:01 #2346 [verbose] > │ US0_0(v144) │
00:01:01 #2347 [verbose] > │ else │
00:01:01 #2348 [verbose] > │ let v146 : System.ConsoleColor = System.ConsoleColor.DarkRed │
00:01:01 #2349 [verbose] > │ US0_0(v146) │
00:01:01 #2350 [verbose] > │ let v149 : UH2 = UH2_0 │
00:01:01 #2351 [verbose] > │ let v150 : UH2 = UH2_1(v142, v149) │
00:01:01 #2352 [verbose] > │ let v151 : UH2 = UH2_1(v109, v150) │
00:01:01 #2353 [verbose] > │ let v152 : UH2 = UH2_1(v107, v151) │
00:01:01 #2354 [verbose] > │ let v153 : UH2 = UH2_1(v108, v152) │
00:01:01 #2355 [verbose] > │ v103.[int v106] <- struct (v153, v148) │
00:01:01 #2356 [verbose] > │ let v154 : uint64 = v106 + 1UL │
00:01:01 #2357 [verbose] > │ v104.l0 <- v154 │
00:01:01 #2358 [verbose] > │ () │
00:01:01 #2359 [verbose] > │ let v155 : string = "Input" │
00:01:01 #2360 [verbose] > │ let v156 : string = "Expected" │
00:01:01 #2361 [verbose] > │ let v157 : string = "Result" │
00:01:01 #2362 [verbose] > │ let v158 : string = "Best" │
00:01:01 #2363 [verbose] > │ let v159 : UH2 = UH2_0 │
00:01:01 #2364 [verbose] > │ let v160 : UH2 = UH2_1(v158, v159) │
00:01:01 #2365 [verbose] > │ let v161 : UH2 = UH2_1(v157, v160) │
00:01:01 #2366 [verbose] > │ let v162 : UH2 = UH2_1(v156, v161) │
00:01:01 #2367 [verbose] > │ let v163 : UH2 = UH2_1(v155, v162) │
00:01:01 #2368 [verbose] > │ let v164 : US0 = US0_1 │
00:01:01 #2369 [verbose] > │ let v165 : string = "---" │
00:01:01 #2370 [verbose] > │ let v166 : UH2 = UH2_0 │
00:01:01 #2371 [verbose] > │ let v167 : UH2 = UH2_1(v165, v166) │
00:01:01 #2372 [verbose] > │ let v168 : UH2 = UH2_1(v165, v167) │
00:01:01 #2373 [verbose] > │ let v169 : UH2 = UH2_1(v165, v168) │
00:01:01 #2374 [verbose] > │ let v170 : UH2 = UH2_1(v165, v169) │
00:01:01 #2375 [verbose] > │ let v171 : US0 = US0_1 │
00:01:01 #2376 [verbose] > │ let v172 : UH5 = UH5_0 │
00:01:01 #2377 [verbose] > │ let v173 : UH5 = UH5_1(v170, v171, v172) │
00:01:01 #2378 [verbose] > │ let v174 : UH5 = UH5_1(v163, v164, v173) │
00:01:01 #2379 [verbose] > │ let v175 : (struct (UH2 * US0) []) = method23(v174) │
00:01:01 #2380 [verbose] > │ let v176 : uint64 = System.Convert.ToUInt64 v175.Length │
00:01:01 #2381 [verbose] > │ let v177 : uint64 = System.Convert.ToUInt64 v103.Length │
00:01:01 #2382 [verbose] > │ let v178 : uint64 = v176 + v177 │
00:01:01 #2383 [verbose] > │ let v179 : (struct (UH2 * US0) []) = Array.zeroCreate<struct (UH2 * │
00:01:01 #2384 [verbose] > │ US0)> (System.Convert.ToInt32(v178)) │
00:01:01 #2385 [verbose] > │ let v180 : Mut0 = {l0 = 0UL} : Mut0 │
00:01:01 #2386 [verbose] > │ while method4(v178, v180) do │
00:01:01 #2387 [verbose] > │ let v182 : uint64 = v180.l0 │
00:01:01 #2388 [verbose] > │ let v183 : bool = v182 < v176 │
00:01:01 #2389 [verbose] > │ let struct (v189 : UH2, v190 : US0) = │
00:01:01 #2390 [verbose] > │ if v183 then │
00:01:01 #2391 [verbose] > │ let struct (v184 : UH2, v185 : US0) = v175.[int v182] │
00:01:01 #2392 [verbose] > │ struct (v184, v185) │
00:01:01 #2393 [verbose] > │ else │
00:01:01 #2394 [verbose] > │ let v186 : uint64 = v182 - v176 │
00:01:01 #2395 [verbose] > │ let struct (v187 : UH2, v188 : US0) = v103.[int v186] │
00:01:01 #2396 [verbose] > │ struct (v187, v188) │
00:01:01 #2397 [verbose] > │ v179.[int v182] <- struct (v189, v190) │
00:01:01 #2398 [verbose] > │ let v191 : uint64 = v182 + 1UL │
00:01:01 #2399 [verbose] > │ v180.l0 <- v191 │
00:01:01 #2400 [verbose] > │ () │
00:01:01 #2401 [verbose] > │ let v192 : uint64 = System.Convert.ToUInt64 v179.Length │
00:01:01 #2402 [verbose] > │ let v193 : ((string []) []) = Array.zeroCreate<(string [])> │
00:01:01 #2403 [verbose] > │ (System.Convert.ToInt32(v192)) │
00:01:01 #2404 [verbose] > │ let v194 : Mut0 = {l0 = 0UL} : Mut0 │
00:01:01 #2405 [verbose] > │ while method4(v192, v194) do │
00:01:01 #2406 [verbose] > │ let v196 : uint64 = v194.l0 │
00:01:01 #2407 [verbose] > │ let struct (v197 : UH2, v198 : US0) = v179.[int v196] │
00:01:01 #2408 [verbose] > │ let v199 : (string []) = method26(v197) │
00:01:01 #2409 [verbose] > │ v193.[int v196] <- v199 │
00:01:01 #2410 [verbose] > │ let v200 : uint64 = v196 + 1UL │
00:01:01 #2411 [verbose] > │ v194.l0 <- v200 │
00:01:01 #2412 [verbose] > │ () │
00:01:01 #2413 [verbose] > │ let v201 : (((string []) []) -> ((string []) [])) = Array.transpose │
00:01:01 #2414 [verbose] > │ let v202 : ((string []) []) = v201 v193 │
00:01:01 #2415 [verbose] > │ let v203 : uint64 = System.Convert.ToUInt64 v202.Length │
00:01:01 #2416 [verbose] > │ let v204 : (int64 []) = Array.zeroCreate<int64> │
00:01:01 #2417 [verbose] > │ (System.Convert.ToInt32(v203)) │
00:01:01 #2418 [verbose] > │ let v205 : Mut0 = {l0 = 0UL} : Mut0 │
00:01:01 #2419 [verbose] > │ while method4(v203, v205) do │
00:01:01 #2420 [verbose] > │ let v207 : uint64 = v205.l0 │
00:01:01 #2421 [verbose] > │ let v208 : (string []) = v202.[int v207] │
00:01:01 #2422 [verbose] > │ let v209 : uint64 = System.Convert.ToUInt64 v208.Length │
00:01:01 #2423 [verbose] > │ let v210 : (int64 []) = Array.zeroCreate<int64> │
00:01:01 #2424 [verbose] > │ (System.Convert.ToInt32(v209)) │
00:01:01 #2425 [verbose] > │ let v211 : Mut0 = {l0 = 0UL} : Mut0 │
00:01:01 #2426 [verbose] > │ while method4(v209, v211) do │
00:01:01 #2427 [verbose] > │ let v213 : uint64 = v211.l0 │
00:01:01 #2428 [verbose] > │ let v214 : string = v208.[int v213] │
00:01:01 #2429 [verbose] > │ let v215 : int64 = System.Convert.ToInt64 v214.Length │
00:01:01 #2430 [verbose] > │ v210.[int v213] <- v215 │
00:01:01 #2431 [verbose] > │ let v216 : uint64 = v213 + 1UL │
00:01:01 #2432 [verbose] > │ v211.l0 <- v216 │
00:01:01 #2433 [verbose] > │ () │
00:01:01 #2434 [verbose] > │ let v217 : ((int64 []) -> (int64 [])) = Array.sortDescending │
00:01:01 #2435 [verbose] > │ let v218 : (int64 []) = v217 v210 │
00:01:01 #2436 [verbose] > │ let v219 : (int32 -> ((int64 []) -> int64 option)) = Array.tryItem │
00:01:01 #2437 [verbose] > │ let v220 : ((int64 []) -> int64 option) = v219 0 │
00:01:01 #2438 [verbose] > │ let v221 : int64 option = v220 v218 │
00:01:01 #2439 [verbose] > │ let v222 : (int64 -> US1) = method29() │
00:01:01 #2440 [verbose] > │ let v223 : US1 = US1_1 │
00:01:01 #2441 [verbose] > │ let v224 : US1 = v221 |> Option.map v222 |> Option.defaultValue v223 │
00:01:01 #2442 [verbose] > │ let v227 : int64 = │
00:01:01 #2443 [verbose] > │ match v224 with │
00:01:01 #2444 [verbose] > │ | US1_1 -> (* None *) │
00:01:01 #2445 [verbose] > │ 0L │
00:01:01 #2446 [verbose] > │ | US1_0(v225) -> (* Some *) │
00:01:01 #2447 [verbose] > │ v225 │
00:01:01 #2448 [verbose] > │ v204.[int v207] <- v227 │
00:01:01 #2449 [verbose] > │ let v228 : uint64 = v207 + 1UL │
00:01:01 #2450 [verbose] > │ v205.l0 <- v228 │
00:01:01 #2451 [verbose] > │ () │
00:01:01 #2452 [verbose] > │ let v229 : uint64 = System.Convert.ToUInt64 v204.Length │
00:01:01 #2453 [verbose] > │ let v230 : UH6 = UH6_0 │
00:01:01 #2454 [verbose] > │ let v231 : Mut3 = {l0 = 0UL; l1 = v230; l2 = 0} : Mut3 │
00:01:01 #2455 [verbose] > │ while method30(v229, v231) do │
00:01:01 #2456 [verbose] > │ let v233 : uint64 = v231.l0 │
00:01:01 #2457 [verbose] > │ let struct (v234 : UH6, v235 : int32) = v231.l1, v231.l2 │
00:01:01 #2458 [verbose] > │ let v236 : int64 = v204.[int v233] │
00:01:01 #2459 [verbose] > │ let v237 : int32 = v235 + 1 │
00:01:01 #2460 [verbose] > │ let v238 : uint64 = v233 + 1UL │
00:01:01 #2461 [verbose] > │ let v239 : UH6 = UH6_1(v235, v236, v234) │
00:01:01 #2462 [verbose] > │ v231.l0 <- v238 │
00:01:01 #2463 [verbose] > │ v231.l1 <- v239 │
00:01:01 #2464 [verbose] > │ v231.l2 <- v237 │
00:01:01 #2465 [verbose] > │ () │
00:01:01 #2466 [verbose] > │ let struct (v240 : UH6, v241 : int32) = v231.l1, v231.l2 │
00:01:01 #2467 [verbose] > │ let v242 : UH6 = UH6_0 │
00:01:01 #2468 [verbose] > │ let v243 : UH6 = method31(v240, v242) │
00:01:01 #2469 [verbose] > │ let v244 : (struct (int32 * int64) []) = method32(v243) │
00:01:01 #2470 [verbose] > │ let v245 : Map<int32, int64> = v244 |> Array.map (fun (struct (a, b)) -> │
00:01:01 #2471 [verbose] > │ a, b) |> Map.ofArray │
00:01:01 #2472 [verbose] > │ let v246 : (struct ((string []) * US0) []) = Array.zeroCreate<struct │
00:01:01 #2473 [verbose] > │ ((string []) * US0)> (System.Convert.ToInt32(v192)) │
00:01:01 #2474 [verbose] > │ let v247 : Mut0 = {l0 = 0UL} : Mut0 │
00:01:01 #2475 [verbose] > │ while method4(v192, v247) do │
00:01:01 #2476 [verbose] > │ let v249 : uint64 = v247.l0 │
00:01:01 #2477 [verbose] > │ let struct (v250 : UH2, v251 : US0) = v179.[int v249] │
00:01:01 #2478 [verbose] > │ let v252 : UH7 = UH7_0 │
00:01:01 #2479 [verbose] > │ let v253 : int32 = 0 │
00:01:01 #2480 [verbose] > │ let struct (v254 : UH7, v255 : int32) = method35(v250, v252, v253) │
00:01:01 #2481 [verbose] > │ let v256 : UH7 = UH7_0 │
00:01:01 #2482 [verbose] > │ let v257 : UH7 = method36(v254, v256) │
00:01:01 #2483 [verbose] > │ let v258 : UH2 = UH2_0 │
00:01:01 #2484 [verbose] > │ let v259 : UH2 = method37(v245, v257, v258) │
00:01:01 #2485 [verbose] > │ let v260 : (string []) = method10(v259) │
00:01:01 #2486 [verbose] > │ v246.[int v249] <- struct (v260, v251) │
00:01:01 #2487 [verbose] > │ let v261 : uint64 = v249 + 1UL │
00:01:01 #2488 [verbose] > │ v247.l0 <- v261 │
00:01:01 #2489 [verbose] > │ () │
00:01:01 #2490 [verbose] > │ System.Console.WriteLine v2 │
00:01:01 #2491 [verbose] > │ let v262 : uint64 = System.Convert.ToUInt64 v246.Length │
00:01:01 #2492 [verbose] > │ let v263 : Mut0 = {l0 = 0UL} : Mut0 │
00:01:01 #2493 [verbose] > │ while method4(v262, v263) do │
00:01:01 #2494 [verbose] > │ let v265 : uint64 = v263.l0 │
00:01:01 #2495 [verbose] > │ let struct (v266 : (string []), v267 : US0) = v246.[int v265] │
00:01:01 #2496 [verbose] > │ match v267 with │
00:01:01 #2497 [verbose] > │ | US0_1 -> (* None *) │
00:01:01 #2498 [verbose] > │ let v270 : unit option = None │
00:01:01 #2499 [verbose] > │ let mutable _v270 = v270 │
00:01:01 #2500 [verbose] > │ #if FABLE_COMPILER_RUST && !WASM && !CONTRACT │
00:01:01 #2501 [verbose] > │ () │
00:01:01 #2502 [verbose] > │ #endif │
00:01:01 #2503 [verbose] > │ #if FABLE_COMPILER_RUST && WASM │
00:01:01 #2504 [verbose] > │ () │
00:01:01 #2505 [verbose] > │ #endif │
00:01:01 #2506 [verbose] > │ #if FABLE_COMPILER_RUST && CONTRACT │
00:01:01 #2507 [verbose] > │ () │
00:01:01 #2508 [verbose] > │ #endif │
00:01:01 #2509 [verbose] > │ #if !FABLE_COMPILER && !FABLE_COMPILER_RUST && │
00:01:01 #2510 [verbose] > │ !FABLE_COMPILER_TYPESCRIPT && !WASM && !CONTRACT │
00:01:01 #2511 [verbose] > │ System.Console.ResetColor () │
00:01:01 #2512 [verbose] > │ () │
00:01:01 #2513 [verbose] > │ #endif │
00:01:01 #2514 [verbose] > │ #if FABLE_COMPILER_TYPESCRIPT │
00:01:01 #2515 [verbose] > │ () │
00:01:01 #2516 [verbose] > │ #endif │
00:01:01 #2517 [verbose] > │ #if FABLE_COMPILER_PYTHON || FABLE_COMPILER_PHP || │
00:01:01 #2518 [verbose] > │ FABLE_COMPILER_DART │
00:01:01 #2519 [verbose] > │ Unchecked.defaultof<unit> │
00:01:01 #2520 [verbose] > │ () │
00:01:01 #2521 [verbose] > │ #endif │
00:01:01 #2522 [verbose] > │ |> fun x -> _v270 <- Some x │
00:01:01 #2523 [verbose] > │ _v270.Value │
00:01:01 #2524 [verbose] > │ () │
00:01:01 #2525 [verbose] > │ | US0_0(v268) -> (* Some *) │
00:01:01 #2526 [verbose] > │ let v269 : unit option = None │
00:01:01 #2527 [verbose] > │ let mutable _v269 = v269 │
00:01:01 #2528 [verbose] > │ #if FABLE_COMPILER_RUST && !WASM && !CONTRACT │
00:01:01 #2529 [verbose] > │ () │
00:01:01 #2530 [verbose] > │ #endif │
00:01:01 #2531 [verbose] > │ #if FABLE_COMPILER_RUST && WASM │
00:01:01 #2532 [verbose] > │ () │
00:01:01 #2533 [verbose] > │ #endif │
00:01:01 #2534 [verbose] > │ #if FABLE_COMPILER_RUST && CONTRACT │
00:01:01 #2535 [verbose] > │ () │
00:01:01 #2536 [verbose] > │ #endif │
00:01:01 #2537 [verbose] > │ #if !FABLE_COMPILER && !FABLE_COMPILER_RUST && │
00:01:01 #2538 [verbose] > │ !FABLE_COMPILER_TYPESCRIPT && !WASM && !CONTRACT │
00:01:01 #2539 [verbose] > │ System.Console.ForegroundColor <- v268 │
00:01:01 #2540 [verbose] > │ () │
00:01:01 #2541 [verbose] > │ #endif │
00:01:01 #2542 [verbose] > │ #if FABLE_COMPILER_TYPESCRIPT │
00:01:01 #2543 [verbose] > │ () │
00:01:01 #2544 [verbose] > │ #endif │
00:01:01 #2545 [verbose] > │ #if FABLE_COMPILER_PYTHON || FABLE_COMPILER_PHP || │
00:01:01 #2546 [verbose] > │ FABLE_COMPILER_DART │
00:01:01 #2547 [verbose] > │ Unchecked.defaultof<unit> │
00:01:01 #2548 [verbose] > │ () │
00:01:01 #2549 [verbose] > │ #endif │
00:01:01 #2550 [verbose] > │ |> fun x -> _v269 <- Some x │
00:01:01 #2551 [verbose] > │ _v269.Value │
00:01:01 #2552 [verbose] > │ () │
00:01:01 #2553 [verbose] > │ let v271 : string = "\t| " │
00:01:01 #2554 [verbose] > │ let v272 : string = System.String.Join (v271, v266) │
00:01:01 #2555 [verbose] > │ System.Console.WriteLine v272 │
00:01:01 #2556 [verbose] > │ let v273 : unit option = None │
00:01:01 #2557 [verbose] > │ let mutable _v273 = v273 │
00:01:01 #2558 [verbose] > │ #if FABLE_COMPILER_RUST && !WASM && !CONTRACT │
00:01:01 #2559 [verbose] > │ () │
00:01:01 #2560 [verbose] > │ #endif │
00:01:01 #2561 [verbose] > │ #if FABLE_COMPILER_RUST && WASM │
00:01:01 #2562 [verbose] > │ () │
00:01:01 #2563 [verbose] > │ #endif │
00:01:01 #2564 [verbose] > │ #if FABLE_COMPILER_RUST && CONTRACT │
00:01:01 #2565 [verbose] > │ () │
00:01:01 #2566 [verbose] > │ #endif │
00:01:01 #2567 [verbose] > │ #if !FABLE_COMPILER && !FABLE_COMPILER_RUST && │
00:01:01 #2568 [verbose] > │ !FABLE_COMPILER_TYPESCRIPT && !WASM && !CONTRACT │
00:01:01 #2569 [verbose] > │ System.Console.ResetColor () │
00:01:01 #2570 [verbose] > │ () │
00:01:01 #2571 [verbose] > │ #endif │
00:01:01 #2572 [verbose] > │ #if FABLE_COMPILER_TYPESCRIPT │
00:01:01 #2573 [verbose] > │ () │
00:01:01 #2574 [verbose] > │ #endif │
00:01:01 #2575 [verbose] > │ #if FABLE_COMPILER_PYTHON || FABLE_COMPILER_PHP || │
00:01:01 #2576 [verbose] > │ FABLE_COMPILER_DART │
00:01:01 #2577 [verbose] > │ Unchecked.defaultof<unit> │
00:01:01 #2578 [verbose] > │ () │
00:01:01 #2579 [verbose] > │ #endif │
00:01:01 #2580 [verbose] > │ |> fun x -> _v273 <- Some x │
00:01:01 #2581 [verbose] > │ _v273.Value │
00:01:01 #2582 [verbose] > │ let v274 : uint64 = v265 + 1UL │
00:01:01 #2583 [verbose] > │ v263.l0 <- v274 │
00:01:01 #2584 [verbose] > │ () │
00:01:01 #2585 [verbose] > │ let v275 : ((float []) []) = Array.zeroCreate<(float [])> │
00:01:01 #2586 [verbose] > │ (System.Convert.ToInt32(v102)) │
00:01:01 #2587 [verbose] > │ let v276 : Mut0 = {l0 = 0UL} : Mut0 │
00:01:01 #2588 [verbose] > │ while method4(v102, v276) do │
00:01:01 #2589 [verbose] > │ let v278 : uint64 = v276.l0 │
00:01:01 #2590 [verbose] > │ let struct (v279 : string, v280 : string, v281 : string, v282 : │
00:01:01 #2591 [verbose] > │ (int64 [])) = v24.[int v278] │
00:01:01 #2592 [verbose] > │ let v283 : (int64 -> float) = float │
00:01:01 #2593 [verbose] > │ let v284 : uint64 = System.Convert.ToUInt64 v282.Length │
00:01:01 #2594 [verbose] > │ let v285 : (float []) = Array.zeroCreate<float> │
00:01:01 #2595 [verbose] > │ (System.Convert.ToInt32(v284)) │
00:01:01 #2596 [verbose] > │ let v286 : Mut0 = {l0 = 0UL} : Mut0 │
00:01:01 #2597 [verbose] > │ while method4(v284, v286) do │
00:01:01 #2598 [verbose] > │ let v288 : uint64 = v286.l0 │
00:01:01 #2599 [verbose] > │ let v289 : int64 = v282.[int v288] │
00:01:01 #2600 [verbose] > │ let v290 : float = v283 v289 │
00:01:01 #2601 [verbose] > │ v285.[int v288] <- v290 │
00:01:01 #2602 [verbose] > │ let v291 : uint64 = v288 + 1UL │
00:01:01 #2603 [verbose] > │ v286.l0 <- v291 │
00:01:01 #2604 [verbose] > │ () │
00:01:01 #2605 [verbose] > │ v275.[int v278] <- v285 │
00:01:01 #2606 [verbose] > │ let v292 : uint64 = v278 + 1UL │
00:01:01 #2607 [verbose] > │ v276.l0 <- v292 │
00:01:01 #2608 [verbose] > │ () │
00:01:01 #2609 [verbose] > │ let v293 : (((float []) []) -> ((float []) [])) = Array.transpose │
00:01:01 #2610 [verbose] > │ let v294 : ((float []) []) = v293 v275 │
00:01:01 #2611 [verbose] > │ let v295 : uint64 = System.Convert.ToUInt64 v294.Length │
00:01:01 #2612 [verbose] > │ let v296 : (float []) = Array.zeroCreate<float> │
00:01:01 #2613 [verbose] > │ (System.Convert.ToInt32(v295)) │
00:01:01 #2614 [verbose] > │ let v297 : Mut0 = {l0 = 0UL} : Mut0 │
00:01:01 #2615 [verbose] > │ while method4(v295, v297) do │
00:01:01 #2616 [verbose] > │ let v299 : uint64 = v297.l0 │
00:01:01 #2617 [verbose] > │ let v300 : (float []) = v294.[int v299] │
00:01:01 #2618 [verbose] > │ let v301 : ((float []) -> float) = Array.average │
00:01:01 #2619 [verbose] > │ let v302 : float = v301 v300 │
00:01:01 #2620 [verbose] > │ v296.[int v299] <- v302 │
00:01:01 #2621 [verbose] > │ let v303 : uint64 = v299 + 1UL │
00:01:01 #2622 [verbose] > │ v297.l0 <- v303 │
00:01:01 #2623 [verbose] > │ () │
00:01:01 #2624 [verbose] > │ let v304 : (float -> int64) = int64 │
00:01:01 #2625 [verbose] > │ let v305 : uint64 = System.Convert.ToUInt64 v296.Length │
00:01:01 #2626 [verbose] > │ let v306 : (int64 []) = Array.zeroCreate<int64> │
00:01:01 #2627 [verbose] > │ (System.Convert.ToInt32(v305)) │
00:01:01 #2628 [verbose] > │ let v307 : Mut0 = {l0 = 0UL} : Mut0 │
00:01:01 #2629 [verbose] > │ while method4(v305, v307) do │
00:01:01 #2630 [verbose] > │ let v309 : uint64 = v307.l0 │
00:01:01 #2631 [verbose] > │ let v310 : float = v296.[int v309] │
00:01:01 #2632 [verbose] > │ let v311 : int64 = v304 v310 │
00:01:01 #2633 [verbose] > │ v306.[int v309] <- v311 │
00:01:01 #2634 [verbose] > │ let v312 : uint64 = v309 + 1UL │
00:01:01 #2635 [verbose] > │ v307.l0 <- v312 │
00:01:01 #2636 [verbose] > │ () │
00:01:01 #2637 [verbose] > │ let v313 : uint64 = System.Convert.ToUInt64 v306.Length │
00:01:01 #2638 [verbose] > │ let v314 : UH6 = UH6_0 │
00:01:01 #2639 [verbose] > │ let v315 : Mut3 = {l0 = 0UL; l1 = v314; l2 = 0} : Mut3 │
00:01:01 #2640 [verbose] > │ while method30(v313, v315) do │
00:01:01 #2641 [verbose] > │ let v317 : uint64 = v315.l0 │
00:01:01 #2642 [verbose] > │ let struct (v318 : UH6, v319 : int32) = v315.l1, v315.l2 │
00:01:01 #2643 [verbose] > │ let v320 : int64 = v306.[int v317] │
00:01:01 #2644 [verbose] > │ let v321 : int32 = v319 + 1 │
00:01:01 #2645 [verbose] > │ let v322 : uint64 = v317 + 1UL │
00:01:01 #2646 [verbose] > │ let v323 : UH6 = UH6_1(v319, v320, v318) │
00:01:01 #2647 [verbose] > │ v315.l0 <- v322 │
00:01:01 #2648 [verbose] > │ v315.l1 <- v323 │
00:01:01 #2649 [verbose] > │ v315.l2 <- v321 │
00:01:01 #2650 [verbose] > │ () │
00:01:01 #2651 [verbose] > │ let struct (v324 : UH6, v325 : int32) = v315.l1, v315.l2 │
00:01:01 #2652 [verbose] > │ let v326 : UH6 = UH6_0 │
00:01:01 #2653 [verbose] > │ let v327 : UH6 = method31(v324, v326) │
00:01:01 #2654 [verbose] > │ let v328 : (struct (int32 * int64) []) = method38(v327) │
00:01:01 #2655 [verbose] > │ System.Console.WriteLine v2 │
00:01:01 #2656 [verbose] > │ let v329 : string = "Average Ranking " │
00:01:01 #2657 [verbose] > │ System.Console.WriteLine v329 │
00:01:01 #2658 [verbose] > │ let v330 : ((struct (int32 * int64) -> int64) -> ((struct (int32 * │
00:01:01 #2659 [verbose] > │ int64) []) -> (struct (int32 * int64) []))) = Array.sortBy │
00:01:01 #2660 [verbose] > │ let v331 : (struct (int32 * int64) -> int64) = closure6() │
00:01:01 #2661 [verbose] > │ let v332 : ((struct (int32 * int64) []) -> (struct (int32 * int64) [])) │
00:01:01 #2662 [verbose] > │ = v330 v331 │
00:01:01 #2663 [verbose] > │ let v333 : (struct (int32 * int64) []) = v332 v328 │
00:01:01 #2664 [verbose] > │ let v334 : uint64 = System.Convert.ToUInt64 v333.Length │
00:01:01 #2665 [verbose] > │ let v335 : Mut0 = {l0 = 0UL} : Mut0 │
00:01:01 #2666 [verbose] > │ while method4(v334, v335) do │
00:01:01 #2667 [verbose] > │ let v337 : uint64 = v335.l0 │
00:01:01 #2668 [verbose] > │ let struct (v338 : int32, v339 : int64) = v333.[int v337] │
00:01:01 #2669 [verbose] > │ let v340 : string = $"Test case %d{v338 + 1}. Average Time: %A{v339} │
00:01:01 #2670 [verbose] > │ " │
00:01:01 #2671 [verbose] > │ System.Console.WriteLine v340 │
00:01:01 #2672 [verbose] > │ let v341 : uint64 = v337 + 1UL │
00:01:01 #2673 [verbose] > │ v335.l0 <- v341 │
00:01:01 #2674 [verbose] > │ () │
00:01:01 #2675 [verbose] > │ () │
00:01:01 #2676 [verbose] > │ and method0 () : unit = │
00:01:01 #2677 [verbose] > │ let v0 : (unit -> unit) = closure0() │
00:01:01 #2678 [verbose] > │ let v1 : string = nameof v0 │
00:01:01 #2679 [verbose] > │ let v2 : string = "" │
00:01:01 #2680 [verbose] > │ System.Console.WriteLine v2 │
00:01:01 #2681 [verbose] > │ System.Console.WriteLine v2 │
00:01:01 #2682 [verbose] > │ let v3 : string = $"Test: {v1}" │
00:01:01 #2683 [verbose] > │ System.Console.WriteLine v3 │
00:01:01 #2684 [verbose] > │ let v4 : string = "abc" │
00:01:01 #2685 [verbose] > │ let v5 : string = "bca cab abc" │
00:01:01 #2686 [verbose] > │ let v6 : string = "abcde" │
00:01:01 #2687 [verbose] > │ let v7 : string = "bcdea cdeab deabc eabcd abcde" │
00:01:01 #2688 [verbose] > │ let v8 : string = "abcdefghi" │
00:01:01 #2689 [verbose] > │ let v9 : string = "bcdefghia cdefghiab defghiabc efghiabcd fghiabcde │
00:01:01 #2690 [verbose] > │ ghiabcdef hiabcdefg iabcdefgh abcdefghi" │
00:01:01 #2691 [verbose] > │ let v10 : string = "abab" │
00:01:01 #2692 [verbose] > │ let v11 : string = "baba abab baba abab" │
00:01:01 #2693 [verbose] > │ let v12 : string = "aa" │
00:01:01 #2694 [verbose] > │ let v13 : string = "aa aa" │
00:01:01 #2695 [verbose] > │ let v14 : string = "z" │
00:01:01 #2696 [verbose] > │ let v15 : UH0 = UH0_0 │
00:01:01 #2697 [verbose] > │ let v16 : UH0 = UH0_1(v14, v14, v15) │
00:01:01 #2698 [verbose] > │ let v17 : UH0 = UH0_1(v12, v13, v16) │
00:01:01 #2699 [verbose] > │ let v18 : UH0 = UH0_1(v10, v11, v17) │
00:01:01 #2700 [verbose] > │ let v19 : UH0 = UH0_1(v8, v9, v18) │
00:01:01 #2701 [verbose] > │ let v20 : UH0 = UH0_1(v6, v7, v19) │
00:01:01 #2702 [verbose] > │ let v21 : UH0 = UH0_1(v4, v5, v20) │
00:01:01 #2703 [verbose] > │ let v22 : (struct (string * string) []) = method1(v21) │
00:01:01 #2704 [verbose] > │ let v23 : uint64 = System.Convert.ToUInt64 v22.Length │
00:01:01 #2705 [verbose] > │ let v24 : (struct (string * string * string * (int64 [])) []) = │
00:01:01 #2706 [verbose] > │ Array.zeroCreate<struct (string * string * string * (int64 []))> │
00:01:01 #2707 [verbose] > │ (System.Convert.ToInt32(v23)) │
00:01:01 #2708 [verbose] > │ let v25 : Mut0 = {l0 = 0UL} : Mut0 │
00:01:01 #2709 [verbose] > │ while method4(v23, v25) do │
00:01:01 #2710 [verbose] > │ let v27 : uint64 = v25.l0 │
00:01:01 #2711 [verbose] > │ let struct (v28 : string, v29 : string) = v22.[int v27] │
00:01:01 #2712 [verbose] > │ let v30 : string = $"%A{v28}" │
00:01:01 #2713 [verbose] > │ System.Console.WriteLine v2 │
00:01:01 #2714 [verbose] > │ let v31 : string = $"Solution: {v30} " │
00:01:01 #2715 [verbose] > │ System.Console.WriteLine v31 │
00:01:01 #2716 [verbose] > │ let v32 : int32 = 0 │
00:01:01 #2717 [verbose] > │ let v33 : string = "F" │
00:01:01 #2718 [verbose] > │ let v34 : (string -> string) = closure1() │
00:01:01 #2719 [verbose] > │ let v35 : int32 = 1 │
00:01:01 #2720 [verbose] > │ let v36 : string = "FA" │
00:01:01 #2721 [verbose] > │ let v37 : (string -> string) = closure2() │
00:01:01 #2722 [verbose] > │ let v38 : UH3 = UH3_0 │
00:01:01 #2723 [verbose] > │ let v39 : UH3 = UH3_1(v35, v36, v37, v38) │
00:01:01 #2724 [verbose] > │ let v40 : UH3 = UH3_1(v32, v33, v34, v39) │
00:01:01 #2725 [verbose] > │ let v41 : (struct (int32 * string * (string -> string)) []) = │
00:01:01 #2726 [verbose] > │ method13(v40) │
00:01:01 #2727 [verbose] > │ let v42 : uint64 = System.Convert.ToUInt64 v41.Length │
00:01:01 #2728 [verbose] > │ let v43 : (struct (string * int64) []) = Array.zeroCreate<struct │
00:01:01 #2729 [verbose] > │ (string * int64)> (System.Convert.ToInt32(v42)) │
00:01:01 #2730 [verbose] > │ let v44 : Mut0 = {l0 = 0UL} : Mut0 │
00:01:01 #2731 [verbose] > │ while method4(v42, v44) do │
00:01:01 #2732 [verbose] > │ let v46 : uint64 = v44.l0 │
00:01:01 #2733 [verbose] > │ let struct (v47 : int32, v48 : string, v49 : (string -> string)) │
00:01:01 #2734 [verbose] > │ = v41.[int v46] │
00:01:01 #2735 [verbose] > │ let v50 : unit option = None │
00:01:01 #2736 [verbose] > │ let mutable _v50 = v50 │
00:01:01 #2737 [verbose] > │ #if FABLE_COMPILER_RUST && !WASM && !CONTRACT │
00:01:01 #2738 [verbose] > │ () │
00:01:01 #2739 [verbose] > │ #endif │
00:01:01 #2740 [verbose] > │ #if FABLE_COMPILER_RUST && WASM │
00:01:01 #2741 [verbose] > │ () │
00:01:01 #2742 [verbose] > │ #endif │
00:01:01 #2743 [verbose] > │ #if FABLE_COMPILER_RUST && CONTRACT │
00:01:01 #2744 [verbose] > │ () │
00:01:01 #2745 [verbose] > │ #endif │
00:01:01 #2746 [verbose] > │ #if !FABLE_COMPILER && !FABLE_COMPILER_RUST && │
00:01:01 #2747 [verbose] > │ !FABLE_COMPILER_TYPESCRIPT && !WASM && !CONTRACT │
00:01:01 #2748 [verbose] > │ System.GC.Collect () │
00:01:01 #2749 [verbose] > │ () │
00:01:01 #2750 [verbose] > │ #endif │
00:01:01 #2751 [verbose] > │ #if FABLE_COMPILER_TYPESCRIPT │
00:01:01 #2752 [verbose] > │ () │
00:01:01 #2753 [verbose] > │ #endif │
00:01:01 #2754 [verbose] > │ #if FABLE_COMPILER_PYTHON || FABLE_COMPILER_PHP || │
00:01:01 #2755 [verbose] > │ FABLE_COMPILER_DART │
00:01:01 #2756 [verbose] > │ Unchecked.defaultof<unit> │
00:01:01 #2757 [verbose] > │ () │
00:01:01 #2758 [verbose] > │ #endif │
00:01:01 #2759 [verbose] > │ |> fun x -> _v50 <- Some x │
00:01:01 #2760 [verbose] > │ _v50.Value │
00:01:01 #2761 [verbose] > │ let v51 : (unit -> System.Diagnostics.Stopwatch) = │
00:01:01 #2762 [verbose] > │ System.Diagnostics.Stopwatch │
00:01:01 #2763 [verbose] > │ let v52 : System.Diagnostics.Stopwatch = v51 () │
00:01:01 #2764 [verbose] > │ v52.Start () │
00:01:01 #2765 [verbose] > │ let v53 : int64 = v52.ElapsedMilliseconds │
00:01:01 #2766 [verbose] > │ let v54 : (int32 []) = Array.zeroCreate<int32> (2000001) │
00:01:01 #2767 [verbose] > │ let v55 : Mut1 = {l0 = 0} : Mut1 │
00:01:01 #2768 [verbose] > │ while method16(v55) do │
00:01:01 #2769 [verbose] > │ let v57 : int32 = v55.l0 │
00:01:01 #2770 [verbose] > │ v54.[int v57] <- v57 │
00:01:01 #2771 [verbose] > │ let v58 : int32 = v57 + 1 │
00:01:01 #2772 [verbose] > │ v55.l0 <- v58 │
00:01:01 #2773 [verbose] > │ () │
00:01:01 #2774 [verbose] > │ let v59 : ((int32 -> string) -> ((int32 []) -> (string []))) = │
00:01:01 #2775 [verbose] > │ Array.Parallel.map │
00:01:01 #2776 [verbose] > │ let v60 : (int32 -> string) = closure3(v28, v49) │
00:01:01 #2777 [verbose] > │ let v61 : ((int32 []) -> (string [])) = v59 v60 │
00:01:01 #2778 [verbose] > │ let v62 : (string []) = v61 v54 │
00:01:01 #2779 [verbose] > │ let v63 : int32 = v62.Length │
00:01:01 #2780 [verbose] > │ let v64 : int32 = v63 - 1 │
00:01:01 #2781 [verbose] > │ let v65 : string = v62.[int v64] │
00:01:01 #2782 [verbose] > │ let v66 : int64 = v52.ElapsedMilliseconds │
00:01:01 #2783 [verbose] > │ let v67 : int64 = v66 - v53 │
00:01:01 #2784 [verbose] > │ let v68 : string = $"Test case {v47 + 1}. {v48}. Time: {v67} " │
00:01:01 #2785 [verbose] > │ System.Console.WriteLine v68 │
00:01:01 #2786 [verbose] > │ v43.[int v46] <- struct (v65, v67) │
00:01:01 #2787 [verbose] > │ let v69 : uint64 = v46 + 1UL │
00:01:01 #2788 [verbose] > │ v44.l0 <- v69 │
00:01:01 #2789 [verbose] > │ () │
00:01:01 #2790 [verbose] > │ let v70 : uint64 = System.Convert.ToUInt64 v43.Length │
00:01:01 #2791 [verbose] > │ let v71 : (string []) = Array.zeroCreate<string> │
00:01:01 #2792 [verbose] > │ (System.Convert.ToInt32(v70)) │
00:01:01 #2793 [verbose] > │ let v72 : Mut0 = {l0 = 0UL} : Mut0 │
00:01:01 #2794 [verbose] > │ while method4(v70, v72) do │
00:01:01 #2795 [verbose] > │ let v74 : uint64 = v72.l0 │
00:01:01 #2796 [verbose] > │ let struct (v75 : string, v76 : int64) = v43.[int v74] │
00:01:01 #2797 [verbose] > │ v71.[int v74] <- v75 │
00:01:01 #2798 [verbose] > │ let v77 : uint64 = v74 + 1UL │
00:01:01 #2799 [verbose] > │ v72.l0 <- v77 │
00:01:01 #2800 [verbose] > │ () │
00:01:01 #2801 [verbose] > │ let v78 : uint64 = System.Convert.ToUInt64 v71.Length │
00:01:01 #2802 [verbose] > │ let v79 : bool = v78 <= 1UL │
00:01:01 #2803 [verbose] > │ if v79 then │
00:01:01 #2804 [verbose] > │ () │
00:01:01 #2805 [verbose] > │ else │
00:01:01 #2806 [verbose] > │ let v80 : string = v71.[int 0UL] │
00:01:01 #2807 [verbose] > │ let v81 : uint64 = 0UL │
00:01:01 #2808 [verbose] > │ let v82 : bool = method17(v80, v71, v81) │
00:01:01 #2809 [verbose] > │ if v82 then │
00:01:01 #2810 [verbose] > │ () │
00:01:01 #2811 [verbose] > │ else │
00:01:01 #2812 [verbose] > │ let v83 : string = $"Challenge error: {v71}" │
00:01:01 #2813 [verbose] > │ failwith<unit> v83 │
00:01:01 #2814 [verbose] > │ let v84 : string = $"%A{v29}" │
00:01:01 #2815 [verbose] > │ let v85 : (string []) = Array.zeroCreate<string> │
00:01:01 #2816 [verbose] > │ (System.Convert.ToInt32(v70)) │
00:01:01 #2817 [verbose] > │ let v86 : Mut0 = {l0 = 0UL} : Mut0 │
00:01:01 #2818 [verbose] > │ while method4(v70, v86) do │
00:01:01 #2819 [verbose] > │ let v88 : uint64 = v86.l0 │
00:01:01 #2820 [verbose] > │ let struct (v89 : string, v90 : int64) = v43.[int v88] │
00:01:01 #2821 [verbose] > │ v85.[int v88] <- v89 │
00:01:01 #2822 [verbose] > │ let v91 : uint64 = v88 + 1UL │
00:01:01 #2823 [verbose] > │ v86.l0 <- v91 │
00:01:01 #2824 [verbose] > │ () │
00:01:01 #2825 [verbose] > │ let v92 : string = v85.[int 0UL] │
00:01:01 #2826 [verbose] > │ let v93 : string = $"%A{v92}" │
00:01:01 #2827 [verbose] > │ let v94 : (int64 []) = Array.zeroCreate<int64> │
00:01:01 #2828 [verbose] > │ (System.Convert.ToInt32(v70)) │
00:01:01 #2829 [verbose] > │ let v95 : Mut0 = {l0 = 0UL} : Mut0 │
00:01:01 #2830 [verbose] > │ while method4(v70, v95) do │
00:01:01 #2831 [verbose] > │ let v97 : uint64 = v95.l0 │
00:01:01 #2832 [verbose] > │ let struct (v98 : string, v99 : int64) = v43.[int v97] │
00:01:01 #2833 [verbose] > │ v94.[int v97] <- v99 │
00:01:01 #2834 [verbose] > │ let v100 : uint64 = v97 + 1UL │
00:01:01 #2835 [verbose] > │ v95.l0 <- v100 │
00:01:01 #2836 [verbose] > │ () │
00:01:01 #2837 [verbose] > │ v24.[int v27] <- struct (v84, v30, v93, v94) │
00:01:01 #2838 [verbose] > │ let v101 : uint64 = v27 + 1UL │
00:01:01 #2839 [verbose] > │ v25.l0 <- v101 │
00:01:01 #2840 [verbose] > │ () │
00:01:01 #2841 [verbose] > │ let v102 : uint64 = System.Convert.ToUInt64 v24.Length │
00:01:01 #2842 [verbose] > │ let v103 : (struct (UH2 * US0) []) = Array.zeroCreate<struct (UH2 * │
00:01:01 #2843 [verbose] > │ US0)> (System.Convert.ToInt32(v102)) │
00:01:01 #2844 [verbose] > │ let v104 : Mut0 = {l0 = 0UL} : Mut0 │
00:01:01 #2845 [verbose] > │ while method4(v102, v104) do │
00:01:01 #2846 [verbose] > │ let v106 : uint64 = v104.l0 │
00:01:01 #2847 [verbose] > │ let struct (v107 : string, v108 : string, v109 : string, v110 : │
00:01:01 #2848 [verbose] > │ (int64 [])) = v24.[int v106] │
00:01:01 #2849 [verbose] > │ let v111 : uint64 = System.Convert.ToUInt64 v110.Length │
00:01:01 #2850 [verbose] > │ let v112 : UH4 = UH4_0 │
00:01:01 #2851 [verbose] > │ let v113 : Mut2 = {l0 = 0UL; l1 = v112; l2 = 0L} : Mut2 │
00:01:01 #2852 [verbose] > │ while method18(v111, v113) do │
00:01:01 #2853 [verbose] > │ let v115 : uint64 = v113.l0 │
00:01:01 #2854 [verbose] > │ let struct (v116 : UH4, v117 : int64) = v113.l1, v113.l2 │
00:01:01 #2855 [verbose] > │ let v118 : int64 = v110.[int v115] │
00:01:01 #2856 [verbose] > │ let v119 : int64 = v117 + 1L │
00:01:01 #2857 [verbose] > │ let v120 : uint64 = v115 + 1UL │
00:01:01 #2858 [verbose] > │ let v121 : UH4 = UH4_1(v117, v118, v116) │
00:01:01 #2859 [verbose] > │ v113.l0 <- v120 │
00:01:01 #2860 [verbose] > │ v113.l1 <- v121 │
00:01:01 #2861 [verbose] > │ v113.l2 <- v119 │
00:01:01 #2862 [verbose] > │ () │
00:01:01 #2863 [verbose] > │ let struct (v122 : UH4, v123 : int64) = v113.l1, v113.l2 │
00:01:01 #2864 [verbose] > │ let v124 : UH4 = UH4_0 │
00:01:01 #2865 [verbose] > │ let v125 : UH4 = method19(v122, v124) │
00:01:01 #2866 [verbose] > │ let v126 : (struct (int64 * int64) []) = method20(v125) │
00:01:01 #2867 [verbose] > │ let v127 : int32 = v126.Length │
00:01:01 #2868 [verbose] > │ let v128 : (struct (int64 * int64) []) = Array.zeroCreate<struct │
00:01:01 #2869 [verbose] > │ (int64 * int64)> (v127) │
00:01:01 #2870 [verbose] > │ let v129 : Mut1 = {l0 = 0} : Mut1 │
00:01:01 #2871 [verbose] > │ while method5(v127, v129) do │
00:01:01 #2872 [verbose] > │ let v131 : int32 = v129.l0 │
00:01:01 #2873 [verbose] > │ let struct (v132 : int64, v133 : int64) = v126.[int v131] │
00:01:01 #2874 [verbose] > │ let v134 : int64 = v132 + 1L │
00:01:01 #2875 [verbose] > │ v128.[int v131] <- struct (v134, v133) │
00:01:01 #2876 [verbose] > │ let v135 : int32 = v131 + 1 │
00:01:01 #2877 [verbose] > │ v129.l0 <- v135 │
00:01:01 #2878 [verbose] > │ () │
00:01:01 #2879 [verbose] > │ let v136 : ((struct (int64 * int64) -> int64) -> ((struct (int64 * │
00:01:01 #2880 [verbose] > │ int64) []) -> (struct (int64 * int64) []))) = Array.sortBy │
00:01:01 #2881 [verbose] > │ let v137 : (struct (int64 * int64) -> int64) = closure4() │
00:01:01 #2882 [verbose] > │ let v138 : ((struct (int64 * int64) []) -> (struct (int64 * int64) [ │
00:01:01 #2883 [verbose] > │ ])) = v136 v137 │
00:01:01 #2884 [verbose] > │ let v139 : (struct (int64 * int64) []) = v138 v128 │
00:01:01 #2885 [verbose] > │ let struct (v140 : int64, v141 : int64) = v139.[int 0] │
00:01:01 #2886 [verbose] > │ let v142 : string = $"%A{struct (v140, v141)}" │
00:01:01 #2887 [verbose] > │ let v143 : bool = v107 = v109 │
00:01:01 #2888 [verbose] > │ let v148 : US0 = │
00:01:01 #2889 [verbose] > │ if v143 then │
00:01:01 #2890 [verbose] > │ let v144 : System.ConsoleColor = │
00:01:01 #2891 [verbose] > │ System.ConsoleColor.DarkGreen │
00:01:01 #2892 [verbose] > │ US0_0(v144) │
00:01:01 #2893 [verbose] > │ else │
00:01:01 #2894 [verbose] > │ let v146 : System.ConsoleColor = System.ConsoleColor.DarkRed │
00:01:01 #2895 [verbose] > │ US0_0(v146) │
00:01:01 #2896 [verbose] > │ let v149 : UH2 = UH2_0 │
00:01:01 #2897 [verbose] > │ let v150 : UH2 = UH2_1(v142, v149) │
00:01:01 #2898 [verbose] > │ let v151 : UH2 = UH2_1(v109, v150) │
00:01:01 #2899 [verbose] > │ let v152 : UH2 = UH2_1(v107, v151) │
00:01:01 #2900 [verbose] > │ let v153 : UH2 = UH2_1(v108, v152) │
00:01:01 #2901 [verbose] > │ v103.[int v106] <- struct (v153, v148) │
00:01:01 #2902 [verbose] > │ let v154 : uint64 = v106 + 1UL │
00:01:01 #2903 [verbose] > │ v104.l0 <- v154 │
00:01:01 #2904 [verbose] > │ () │
00:01:01 #2905 [verbose] > │ let v155 : string = "Input" │
00:01:01 #2906 [verbose] > │ let v156 : string = "Expected" │
00:01:01 #2907 [verbose] > │ let v157 : string = "Result" │
00:01:01 #2908 [verbose] > │ let v158 : string = "Best" │
00:01:01 #2909 [verbose] > │ let v159 : UH2 = UH2_0 │
00:01:01 #2910 [verbose] > │ let v160 : UH2 = UH2_1(v158, v159) │
00:01:01 #2911 [verbose] > │ let v161 : UH2 = UH2_1(v157, v160) │
00:01:01 #2912 [verbose] > │ let v162 : UH2 = UH2_1(v156, v161) │
00:01:01 #2913 [verbose] > │ let v163 : UH2 = UH2_1(v155, v162) │
00:01:01 #2914 [verbose] > │ let v164 : US0 = US0_1 │
00:01:01 #2915 [verbose] > │ let v165 : string = "---" │
00:01:01 #2916 [verbose] > │ let v166 : UH2 = UH2_0 │
00:01:01 #2917 [verbose] > │ let v167 : UH2 = UH2_1(v165, v166) │
00:01:01 #2918 [verbose] > │ let v168 : UH2 = UH2_1(v165, v167) │
00:01:01 #2919 [verbose] > │ let v169 : UH2 = UH2_1(v165, v168) │
00:01:01 #2920 [verbose] > │ let v170 : UH2 = UH2_1(v165, v169) │
00:01:01 #2921 [verbose] > │ let v171 : US0 = US0_1 │
00:01:01 #2922 [verbose] > │ let v172 : UH5 = UH5_0 │
00:01:01 #2923 [verbose] > │ let v173 : UH5 = UH5_1(v170, v171, v172) │
00:01:01 #2924 [verbose] > │ let v174 : UH5 = UH5_1(v163, v164, v173) │
00:01:01 #2925 [verbose] > │ let v175 : (struct (UH2 * US0) []) = method23(v174) │
00:01:01 #2926 [verbose] > │ let v176 : uint64 = System.Convert.ToUInt64 v175.Length │
00:01:01 #2927 [verbose] > │ let v177 : uint64 = System.Convert.ToUInt64 v103.Length │
00:01:01 #2928 [verbose] > │ let v178 : uint64 = v176 + v177 │
00:01:01 #2929 [verbose] > │ let v179 : (struct (UH2 * US0) []) = Array.zeroCreate<struct (UH2 * │
00:01:01 #2930 [verbose] > │ US0)> (System.Convert.ToInt32(v178)) │
00:01:01 #2931 [verbose] > │ let v180 : Mut0 = {l0 = 0UL} : Mut0 │
00:01:01 #2932 [verbose] > │ while method4(v178, v180) do │
00:01:01 #2933 [verbose] > │ let v182 : uint64 = v180.l0 │
00:01:01 #2934 [verbose] > │ let v183 : bool = v182 < v176 │
00:01:01 #2935 [verbose] > │ let struct (v189 : UH2, v190 : US0) = │
00:01:01 #2936 [verbose] > │ if v183 then │
00:01:01 #2937 [verbose] > │ let struct (v184 : UH2, v185 : US0) = v175.[int v182] │
00:01:01 #2938 [verbose] > │ struct (v184, v185) │
00:01:01 #2939 [verbose] > │ else │
00:01:01 #2940 [verbose] > │ let v186 : uint64 = v182 - v176 │
00:01:01 #2941 [verbose] > │ let struct (v187 : UH2, v188 : US0) = v103.[int v186] │
00:01:01 #2942 [verbose] > │ struct (v187, v188) │
00:01:01 #2943 [verbose] > │ v179.[int v182] <- struct (v189, v190) │
00:01:01 #2944 [verbose] > │ let v191 : uint64 = v182 + 1UL │
00:01:01 #2945 [verbose] > │ v180.l0 <- v191 │
00:01:01 #2946 [verbose] > │ () │
00:01:01 #2947 [verbose] > │ let v192 : uint64 = System.Convert.ToUInt64 v179.Length │
00:01:01 #2948 [verbose] > │ let v193 : ((string []) []) = Array.zeroCreate<(string [])> │
00:01:01 #2949 [verbose] > │ (System.Convert.ToInt32(v192)) │
00:01:01 #2950 [verbose] > │ let v194 : Mut0 = {l0 = 0UL} : Mut0 │
00:01:01 #2951 [verbose] > │ while method4(v192, v194) do │
00:01:01 #2952 [verbose] > │ let v196 : uint64 = v194.l0 │
00:01:01 #2953 [verbose] > │ let struct (v197 : UH2, v198 : US0) = v179.[int v196] │
00:01:01 #2954 [verbose] > │ let v199 : (string []) = method26(v197) │
00:01:01 #2955 [verbose] > │ v193.[int v196] <- v199 │
00:01:01 #2956 [verbose] > │ let v200 : uint64 = v196 + 1UL │
00:01:01 #2957 [verbose] > │ v194.l0 <- v200 │
00:01:01 #2958 [verbose] > │ () │
00:01:01 #2959 [verbose] > │ let v201 : (((string []) []) -> ((string []) [])) = Array.transpose │
00:01:01 #2960 [verbose] > │ let v202 : ((string []) []) = v201 v193 │
00:01:01 #2961 [verbose] > │ let v203 : uint64 = System.Convert.ToUInt64 v202.Length │
00:01:01 #2962 [verbose] > │ let v204 : (int64 []) = Array.zeroCreate<int64> │
00:01:01 #2963 [verbose] > │ (System.Convert.ToInt32(v203)) │
00:01:01 #2964 [verbose] > │ let v205 : Mut0 = {l0 = 0UL} : Mut0 │
00:01:01 #2965 [verbose] > │ while method4(v203, v205) do │
00:01:01 #2966 [verbose] > │ let v207 : uint64 = v205.l0 │
00:01:01 #2967 [verbose] > │ let v208 : (string []) = v202.[int v207] │
00:01:01 #2968 [verbose] > │ let v209 : uint64 = System.Convert.ToUInt64 v208.Length │
00:01:01 #2969 [verbose] > │ let v210 : (int64 []) = Array.zeroCreate<int64> │
00:01:01 #2970 [verbose] > │ (System.Convert.ToInt32(v209)) │
00:01:01 #2971 [verbose] > │ let v211 : Mut0 = {l0 = 0UL} : Mut0 │
00:01:01 #2972 [verbose] > │ while method4(v209, v211) do │
00:01:01 #2973 [verbose] > │ let v213 : uint64 = v211.l0 │
00:01:01 #2974 [verbose] > │ let v214 : string = v208.[int v213] │
00:01:01 #2975 [verbose] > │ let v215 : int64 = System.Convert.ToInt64 v214.Length │
00:01:01 #2976 [verbose] > │ v210.[int v213] <- v215 │
00:01:01 #2977 [verbose] > │ let v216 : uint64 = v213 + 1UL │
00:01:01 #2978 [verbose] > │ v211.l0 <- v216 │
00:01:01 #2979 [verbose] > │ () │
00:01:01 #2980 [verbose] > │ let v217 : ((int64 []) -> (int64 [])) = Array.sortDescending │
00:01:01 #2981 [verbose] > │ let v218 : (int64 []) = v217 v210 │
00:01:01 #2982 [verbose] > │ let v219 : (int32 -> ((int64 []) -> int64 option)) = Array.tryItem │
00:01:01 #2983 [verbose] > │ let v220 : ((int64 []) -> int64 option) = v219 0 │
00:01:01 #2984 [verbose] > │ let v221 : int64 option = v220 v218 │
00:01:01 #2985 [verbose] > │ let v222 : (int64 -> US1) = method29() │
00:01:01 #2986 [verbose] > │ let v223 : US1 = US1_1 │
00:01:01 #2987 [verbose] > │ let v224 : US1 = v221 |> Option.map v222 |> Option.defaultValue v223 │
00:01:01 #2988 [verbose] > │ let v227 : int64 = │
00:01:01 #2989 [verbose] > │ match v224 with │
00:01:01 #2990 [verbose] > │ | US1_1 -> (* None *) │
00:01:01 #2991 [verbose] > │ 0L │
00:01:01 #2992 [verbose] > │ | US1_0(v225) -> (* Some *) │
00:01:01 #2993 [verbose] > │ v225 │
00:01:01 #2994 [verbose] > │ v204.[int v207] <- v227 │
00:01:01 #2995 [verbose] > │ let v228 : uint64 = v207 + 1UL │
00:01:01 #2996 [verbose] > │ v205.l0 <- v228 │
00:01:01 #2997 [verbose] > │ () │
00:01:01 #2998 [verbose] > │ let v229 : uint64 = System.Convert.ToUInt64 v204.Length │
00:01:01 #2999 [verbose] > │ let v230 : UH6 = UH6_0 │
00:01:01 #3000 [verbose] > │ let v231 : Mut3 = {l0 = 0UL; l1 = v230; l2 = 0} : Mut3 │
00:01:01 #3001 [verbose] > │ while method30(v229, v231) do │
00:01:01 #3002 [verbose] > │ let v233 : uint64 = v231.l0 │
00:01:01 #3003 [verbose] > │ let struct (v234 : UH6, v235 : int32) = v231.l1, v231.l2 │
00:01:01 #3004 [verbose] > │ let v236 : int64 = v204.[int v233] │
00:01:01 #3005 [verbose] > │ let v237 : int32 = v235 + 1 │
00:01:01 #3006 [verbose] > │ let v238 : uint64 = v233 + 1UL │
00:01:01 #3007 [verbose] > │ let v239 : UH6 = UH6_1(v235, v236, v234) │
00:01:01 #3008 [verbose] > │ v231.l0 <- v238 │
00:01:01 #3009 [verbose] > │ v231.l1 <- v239 │
00:01:01 #3010 [verbose] > │ v231.l2 <- v237 │
00:01:01 #3011 [verbose] > │ () │
00:01:01 #3012 [verbose] > │ let struct (v240 : UH6, v241 : int32) = v231.l1, v231.l2 │
00:01:01 #3013 [verbose] > │ let v242 : UH6 = UH6_0 │
00:01:01 #3014 [verbose] > │ let v243 : UH6 = method31(v240, v242) │
00:01:01 #3015 [verbose] > │ let v244 : (struct (int32 * int64) []) = method32(v243) │
00:01:01 #3016 [verbose] > │ let v245 : Map<int32, int64> = v244 |> Array.map (fun (struct (a, b)) -> │
00:01:01 #3017 [verbose] > │ a, b) |> Map.ofArray │
00:01:01 #3018 [verbose] > │ let v246 : (struct ((string []) * US0) []) = Array.zeroCreate<struct │
00:01:01 #3019 [verbose] > │ ((string []) * US0)> (System.Convert.ToInt32(v192)) │
00:01:01 #3020 [verbose] > │ let v247 : Mut0 = {l0 = 0UL} : Mut0 │
00:01:01 #3021 [verbose] > │ while method4(v192, v247) do │
00:01:01 #3022 [verbose] > │ let v249 : uint64 = v247.l0 │
00:01:01 #3023 [verbose] > │ let struct (v250 : UH2, v251 : US0) = v179.[int v249] │
00:01:01 #3024 [verbose] > │ let v252 : UH7 = UH7_0 │
00:01:01 #3025 [verbose] > │ let v253 : int32 = 0 │
00:01:01 #3026 [verbose] > │ let struct (v254 : UH7, v255 : int32) = method35(v250, v252, v253) │
00:01:01 #3027 [verbose] > │ let v256 : UH7 = UH7_0 │
00:01:01 #3028 [verbose] > │ let v257 : UH7 = method36(v254, v256) │
00:01:01 #3029 [verbose] > │ let v258 : UH2 = UH2_0 │
00:01:01 #3030 [verbose] > │ let v259 : UH2 = method37(v245, v257, v258) │
00:01:01 #3031 [verbose] > │ let v260 : (string []) = method10(v259) │
00:01:01 #3032 [verbose] > │ v246.[int v249] <- struct (v260, v251) │
00:01:01 #3033 [verbose] > │ let v261 : uint64 = v249 + 1UL │
00:01:01 #3034 [verbose] > │ v247.l0 <- v261 │
00:01:01 #3035 [verbose] > │ () │
00:01:01 #3036 [verbose] > │ System.Console.WriteLine v2 │
00:01:01 #3037 [verbose] > │ let v262 : uint64 = System.Convert.ToUInt64 v246.Length │
00:01:01 #3038 [verbose] > │ let v263 : Mut0 = {l0 = 0UL} : Mut0 │
00:01:01 #3039 [verbose] > │ while method4(v262, v263) do │
00:01:01 #3040 [verbose] > │ let v265 : uint64 = v263.l0 │
00:01:01 #3041 [verbose] > │ let struct (v266 : (string []), v267 : US0) = v246.[int v265] │
00:01:01 #3042 [verbose] > │ match v267 with │
00:01:01 #3043 [verbose] > │ | US0_1 -> (* None *) │
00:01:01 #3044 [verbose] > │ let v270 : unit option = None │
00:01:01 #3045 [verbose] > │ let mutable _v270 = v270 │
00:01:01 #3046 [verbose] > │ #if FABLE_COMPILER_RUST && !WASM && !CONTRACT │
00:01:01 #3047 [verbose] > │ () │
00:01:01 #3048 [verbose] > │ #endif │
00:01:01 #3049 [verbose] > │ #if FABLE_COMPILER_RUST && WASM │
00:01:01 #3050 [verbose] > │ () │
00:01:01 #3051 [verbose] > │ #endif │
00:01:01 #3052 [verbose] > │ #if FABLE_COMPILER_RUST && CONTRACT │
00:01:01 #3053 [verbose] > │ () │
00:01:01 #3054 [verbose] > │ #endif │
00:01:01 #3055 [verbose] > │ #if !FABLE_COMPILER && !FABLE_COMPILER_RUST && │
00:01:01 #3056 [verbose] > │ !FABLE_COMPILER_TYPESCRIPT && !WASM && !CONTRACT │
00:01:01 #3057 [verbose] > │ System.Console.ResetColor () │
00:01:01 #3058 [verbose] > │ () │
00:01:01 #3059 [verbose] > │ #endif │
00:01:01 #3060 [verbose] > │ #if FABLE_COMPILER_TYPESCRIPT │
00:01:01 #3061 [verbose] > │ () │
00:01:01 #3062 [verbose] > │ #endif │
00:01:01 #3063 [verbose] > │ #if FABLE_COMPILER_PYTHON || FABLE_COMPILER_PHP || │
00:01:01 #3064 [verbose] > │ FABLE_COMPILER_DART │
00:01:01 #3065 [verbose] > │ Unchecked.defaultof<unit> │
00:01:01 #3066 [verbose] > │ () │
00:01:01 #3067 [verbose] > │ #endif │
00:01:01 #3068 [verbose] > │ |> fun x -> _v270 <- Some x │
00:01:01 #3069 [verbose] > │ _v270.Value │
00:01:01 #3070 [verbose] > │ () │
00:01:01 #3071 [verbose] > │ | US0_0(v268) -> (* Some *) │
00:01:01 #3072 [verbose] > │ let v269 : unit option = None │
00:01:01 #3073 [verbose] > │ let mutable _v269 = v269 │
00:01:01 #3074 [verbose] > │ #if FABLE_COMPILER_RUST && !WASM && !CONTRACT │
00:01:01 #3075 [verbose] > │ () │
00:01:01 #3076 [verbose] > │ #endif │
00:01:01 #3077 [verbose] > │ #if FABLE_COMPILER_RUST && WASM │
00:01:01 #3078 [verbose] > │ () │
00:01:01 #3079 [verbose] > │ #endif │
00:01:01 #3080 [verbose] > │ #if FABLE_COMPILER_RUST && CONTRACT │
00:01:01 #3081 [verbose] > │ () │
00:01:01 #3082 [verbose] > │ #endif │
00:01:01 #3083 [verbose] > │ #if !FABLE_COMPILER && !FABLE_COMPILER_RUST && │
00:01:01 #3084 [verbose] > │ !FABLE_COMPILER_TYPESCRIPT && !WASM && !CONTRACT │
00:01:01 #3085 [verbose] > │ System.Console.ForegroundColor <- v268 │
00:01:01 #3086 [verbose] > │ () │
00:01:01 #3087 [verbose] > │ #endif │
00:01:01 #3088 [verbose] > │ #if FABLE_COMPILER_TYPESCRIPT │
00:01:01 #3089 [verbose] > │ () │
00:01:01 #3090 [verbose] > │ #endif │
00:01:01 #3091 [verbose] > │ #if FABLE_COMPILER_PYTHON || FABLE_COMPILER_PHP || │
00:01:01 #3092 [verbose] > │ FABLE_COMPILER_DART │
00:01:01 #3093 [verbose] > │ Unchecked.defaultof<unit> │
00:01:01 #3094 [verbose] > │ () │
00:01:01 #3095 [verbose] > │ #endif │
00:01:01 #3096 [verbose] > │ |> fun x -> _v269 <- Some x │
00:01:01 #3097 [verbose] > │ _v269.Value │
00:01:01 #3098 [verbose] > │ () │
00:01:01 #3099 [verbose] > │ let v271 : string = "\t| " │
00:01:01 #3100 [verbose] > │ let v272 : string = System.String.Join (v271, v266) │
00:01:01 #3101 [verbose] > │ System.Console.WriteLine v272 │
00:01:01 #3102 [verbose] > │ let v273 : unit option = None │
00:01:01 #3103 [verbose] > │ let mutable _v273 = v273 │
00:01:01 #3104 [verbose] > │ #if FABLE_COMPILER_RUST && !WASM && !CONTRACT │
00:01:01 #3105 [verbose] > │ () │
00:01:01 #3106 [verbose] > │ #endif │
00:01:01 #3107 [verbose] > │ #if FABLE_COMPILER_RUST && WASM │
00:01:01 #3108 [verbose] > │ () │
00:01:01 #3109 [verbose] > │ #endif │
00:01:01 #3110 [verbose] > │ #if FABLE_COMPILER_RUST && CONTRACT │
00:01:01 #3111 [verbose] > │ () │
00:01:01 #3112 [verbose] > │ #endif │
00:01:01 #3113 [verbose] > │ #if !FABLE_COMPILER && !FABLE_COMPILER_RUST && │
00:01:01 #3114 [verbose] > │ !FABLE_COMPILER_TYPESCRIPT && !WASM && !CONTRACT │
00:01:01 #3115 [verbose] > │ System.Console.ResetColor () │
00:01:01 #3116 [verbose] > │ () │
00:01:01 #3117 [verbose] > │ #endif │
00:01:01 #3118 [verbose] > │ #if FABLE_COMPILER_TYPESCRIPT │
00:01:01 #3119 [verbose] > │ () │
00:01:01 #3120 [verbose] > │ #endif │
00:01:01 #3121 [verbose] > │ #if FABLE_COMPILER_PYTHON || FABLE_COMPILER_PHP || │
00:01:01 #3122 [verbose] > │ FABLE_COMPILER_DART │
00:01:01 #3123 [verbose] > │ Unchecked.defaultof<unit> │
00:01:01 #3124 [verbose] > │ () │
00:01:01 #3125 [verbose] > │ #endif │
00:01:01 #3126 [verbose] > │ |> fun x -> _v273 <- Some x │
00:01:01 #3127 [verbose] > │ _v273.Value │
00:01:01 #3128 [verbose] > │ let v274 : uint64 = v265 + 1UL │
00:01:01 #3129 [verbose] > │ v263.l0 <- v274 │
00:01:01 #3130 [verbose] > │ () │
00:01:01 #3131 [verbose] > │ let v275 : ((float []) []) = Array.zeroCreate<(float [])> │
00:01:01 #3132 [verbose] > │ (System.Convert.ToInt32(v102)) │
00:01:01 #3133 [verbose] > │ let v276 : Mut0 = {l0 = 0UL} : Mut0 │
00:01:01 #3134 [verbose] > │ while method4(v102, v276) do │
00:01:01 #3135 [verbose] > │ let v278 : uint64 = v276.l0 │
00:01:01 #3136 [verbose] > │ let struct (v279 : string, v280 : string, v281 : string, v282 : │
00:01:01 #3137 [verbose] > │ (int64 [])) = v24.[int v278] │
00:01:01 #3138 [verbose] > │ let v283 : (int64 -> float) = float │
00:01:01 #3139 [verbose] > │ let v284 : uint64 = System.Convert.ToUInt64 v282.Length │
00:01:01 #3140 [verbose] > │ let v285 : (float []) = Array.zeroCreate<float> │
00:01:01 #3141 [verbose] > │ (System.Convert.ToInt32(v284)) │
00:01:01 #3142 [verbose] > │ let v286 : Mut0 = {l0 = 0UL} : Mut0 │
00:01:01 #3143 [verbose] > │ while method4(v284, v286) do │
00:01:01 #3144 [verbose] > │ let v288 : uint64 = v286.l0 │
00:01:01 #3145 [verbose] > │ let v289 : int64 = v282.[int v288] │
00:01:01 #3146 [verbose] > │ let v290 : float = v283 v289 │
00:01:01 #3147 [verbose] > │ v285.[int v288] <- v290 │
00:01:01 #3148 [verbose] > │ let v291 : uint64 = v288 + 1UL │
00:01:01 #3149 [verbose] > │ v286.l0 <- v291 │
00:01:01 #3150 [verbose] > │ () │
00:01:01 #3151 [verbose] > │ v275.[int v278] <- v285 │
00:01:01 #3152 [verbose] > │ let v292 : uint64 = v278 + 1UL │
00:01:01 #3153 [verbose] > │ v276.l0 <- v292 │
00:01:01 #3154 [verbose] > │ () │
00:01:01 #3155 [verbose] > │ let v293 : (((float []) []) -> ((float []) [])) = Array.transpose │
00:01:01 #3156 [verbose] > │ let v294 : ((float []) []) = v293 v275 │
00:01:01 #3157 [verbose] > │ let v295 : uint64 = System.Convert.ToUInt64 v294.Length │
00:01:01 #3158 [verbose] > │ let v296 : (float []) = Array.zeroCreate<float> │
00:01:01 #3159 [verbose] > │ (System.Convert.ToInt32(v295)) │
00:01:01 #3160 [verbose] > │ let v297 : Mut0 = {l0 = 0UL} : Mut0 │
00:01:01 #3161 [verbose] > │ while method4(v295, v297) do │
00:01:01 #3162 [verbose] > │ let v299 : uint64 = v297.l0 │
00:01:01 #3163 [verbose] > │ let v300 : (float []) = v294.[int v299] │
00:01:01 #3164 [verbose] > │ let v301 : ((float []) -> float) = Array.average │
00:01:01 #3165 [verbose] > │ let v302 : float = v301 v300 │
00:01:01 #3166 [verbose] > │ v296.[int v299] <- v302 │
00:01:01 #3167 [verbose] > │ let v303 : uint64 = v299 + 1UL │
00:01:01 #3168 [verbose] > │ v297.l0 <- v303 │
00:01:01 #3169 [verbose] > │ () │
00:01:01 #3170 [verbose] > │ let v304 : (float -> int64) = int64 │
00:01:01 #3171 [verbose] > │ let v305 : uint64 = System.Convert.ToUInt64 v296.Length │
00:01:01 #3172 [verbose] > │ let v306 : (int64 []) = Array.zeroCreate<int64> │
00:01:01 #3173 [verbose] > │ (System.Convert.ToInt32(v305)) │
00:01:01 #3174 [verbose] > │ let v307 : Mut0 = {l0 = 0UL} : Mut0 │
00:01:01 #3175 [verbose] > │ while method4(v305, v307) do │
00:01:01 #3176 [verbose] > │ let v309 : uint64 = v307.l0 │
00:01:01 #3177 [verbose] > │ let v310 : float = v296.[int v309] │
00:01:01 #3178 [verbose] > │ let v311 : int64 = v304 v310 │
00:01:01 #3179 [verbose] > │ v306.[int v309] <- v311 │
00:01:01 #3180 [verbose] > │ let v312 : uint64 = v309 + 1UL │
00:01:01 #3181 [verbose] > │ v307.l0 <- v312 │
00:01:01 #3182 [verbose] > │ () │
00:01:01 #3183 [verbose] > │ let v313 : uint64 = System.Convert.ToUInt64 v306.Length │
00:01:01 #3184 [verbose] > │ let v314 : UH6 = UH6_0 │
00:01:01 #3185 [verbose] > │ let v315 : Mut3 = {l0 = 0UL; l1 = v314; l2 = 0} : Mut3 │
00:01:01 #3186 [verbose] > │ while method30(v313, v315) do │
00:01:01 #3187 [verbose] > │ let v317 : uint64 = v315.l0 │
00:01:01 #3188 [verbose] > │ let struct (v318 : UH6, v319 : int32) = v315.l1, v315.l2 │
00:01:01 #3189 [verbose] > │ let v320 : int64 = v306.[int v317] │
00:01:01 #3190 [verbose] > │ let v321 : int32 = v319 + 1 │
00:01:01 #3191 [verbose] > │ let v322 : uint64 = v317 + 1UL │
00:01:01 #3192 [verbose] > │ let v323 : UH6 = UH6_1(v319, v320, v318) │
00:01:01 #3193 [verbose] > │ v315.l0 <- v322 │
00:01:01 #3194 [verbose] > │ v315.l1 <- v323 │
00:01:01 #3195 [verbose] > │ v315.l2 <- v321 │
00:01:01 #3196 [verbose] > │ () │
00:01:01 #3197 [verbose] > │ let struct (v324 : UH6, v325 : int32) = v315.l1, v315.l2 │
00:01:01 #3198 [verbose] > │ let v326 : UH6 = UH6_0 │
00:01:01 #3199 [verbose] > │ let v327 : UH6 = method31(v324, v326) │
00:01:01 #3200 [verbose] > │ let v328 : (struct (int32 * int64) []) = method38(v327) │
00:01:01 #3201 [verbose] > │ System.Console.WriteLine v2 │
00:01:01 #3202 [verbose] > │ let v329 : string = "Average Ranking " │
00:01:01 #3203 [verbose] > │ System.Console.WriteLine v329 │
00:01:01 #3204 [verbose] > │ let v330 : ((struct (int32 * int64) -> int64) -> ((struct (int32 * │
00:01:01 #3205 [verbose] > │ int64) []) -> (struct (int32 * int64) []))) = Array.sortBy │
00:01:01 #3206 [verbose] > │ let v331 : (struct (int32 * int64) -> int64) = closure6() │
00:01:01 #3207 [verbose] > │ let v332 : ((struct (int32 * int64) []) -> (struct (int32 * int64) [])) │
00:01:01 #3208 [verbose] > │ = v330 v331 │
00:01:01 #3209 [verbose] > │ let v333 : (struct (int32 * int64) []) = v332 v328 │
00:01:01 #3210 [verbose] > │ let v334 : uint64 = System.Convert.ToUInt64 v333.Length │
00:01:01 #3211 [verbose] > │ let v335 : Mut0 = {l0 = 0UL} : Mut0 │
00:01:01 #3212 [verbose] > │ while method4(v334, v335) do │
00:01:01 #3213 [verbose] > │ let v337 : uint64 = v335.l0 │
00:01:01 #3214 [verbose] > │ let struct (v338 : int32, v339 : int64) = v333.[int v337] │
00:01:01 #3215 [verbose] > │ let v340 : string = $"Test case %d{v338 + 1}. Average Time: %A{v339} │
00:01:01 #3216 [verbose] > │ " │
00:01:01 #3217 [verbose] > │ System.Console.WriteLine v340 │
00:01:01 #3218 [verbose] > │ let v341 : uint64 = v337 + 1UL │
00:01:01 #3219 [verbose] > │ v335.l0 <- v341 │
00:01:01 #3220 [verbose] > │ () │
00:01:01 #3221 [verbose] > │ () │
00:01:01 #3222 [verbose] > │ method0() │
00:01:01 #3223 [verbose] > │ │
00:01:01 #3224 [verbose] > │ │
00:01:01 #3225 [verbose] > │ │
00:01:01 #3226 [verbose] > │ Test: v0 │
00:01:01 #3227 [verbose] > │ │
00:01:01 #3228 [verbose] > │ Solution: "abc" │
00:01:01 #3229 [verbose] > │ Test case 1. F. Time: 1064 │
00:01:01 #3230 [verbose] > │ Test case 2. FA. Time: 1424 │
00:01:01 #3231 [verbose] > │ │
00:01:01 #3232 [verbose] > │ Solution: "abcde" │
00:01:01 #3233 [verbose] > │ Test case 1. F. Time: 1591 │
00:01:01 #3234 [verbose] > │ Test case 2. FA. Time: 1481 │
00:01:01 #3235 [verbose] > │ │
00:01:01 #3236 [verbose] > │ Solution: "abcdefghi" │
00:01:01 #3237 [verbose] > │ Test case 1. F. Time: 2130 │
00:01:01 #3238 [verbose] > │ Test case 2. FA. Time: 2230 │
00:01:01 #3239 [verbose] > │ │
00:01:01 #3240 [verbose] > │ Solution: "abab" │
00:01:01 #3241 [verbose] > │ Test case 1. F. Time: 1081 │
00:01:01 #3242 [verbose] > │ Test case 2. FA. Time: 1309 │
00:01:01 #3243 [verbose] > │ │
00:01:01 #3244 [verbose] > │ Solution: "aa" │
00:01:01 #3245 [verbose] > │ Test case 1. F. Time: 819 │
00:01:01 #3246 [verbose] > │ Test case 2. FA. Time: 820 │
00:01:01 #3247 [verbose] > │ │
00:01:01 #3248 [verbose] > │ Solution: "z" │
00:01:01 #3249 [verbose] > │ Test case 1. F. Time: 200 │
00:01:01 #3250 [verbose] > │ Test case 2. FA. Time: 197 │
00:01:01 #3251 [verbose] > │ │
00:01:01 #3252 [verbose] > │ Input | Expected │
00:01:01 #3253 [verbose] > │ │
00:01:01 #3254 [verbose] > │ | Result │
00:01:01 #3255 [verbose] > │ │
00:01:01 #3256 [verbose] > │ | Best │
00:01:01 #3257 [verbose] > │ --- | --- │
00:01:01 #3258 [verbose] > │ │
00:01:01 #3259 [verbose] > │ | --- │
00:01:01 #3260 [verbose] > │ │
00:01:01 #3261 [verbose] > │ | --- │
00:01:01 #3262 [verbose] > │ "abc" | "bca cab abc" │
00:01:01 #3263 [verbose] > │ │
00:01:01 #3264 [verbose] > │ | "bca cab abc" │
00:01:01 #3265 [verbose] > │ │
00:01:01 #3266 [verbose] > │ | struct (1L, 1064L) │
00:01:01 #3267 [verbose] > │ "abcde" | "bcdea cdeab deabc eabcd abcde" │
00:01:01 #3268 [verbose] > │ | "bcdea cdeab deabc eabcd abcde" │
00:01:01 #3269 [verbose] > │ | struct (2L, 1481L) │
00:01:01 #3270 [verbose] > │ "abcdefghi" | "bcdefghia cdefghiab defghiabc efghiabcd fghiabcde ghiabcdef │
00:01:01 #3271 [verbose] > │ hiabcdefg iabcdefgh abcdefghi" | "bcdefghia cdefghiab defghiabc efghiabcd │
00:01:01 #3272 [verbose] > │ fghiabcde ghiabcdef hiabcdefg iabcdefgh abcdefghi" | struct (1L, 2130L) │
00:01:01 #3273 [verbose] > │ "abab" | "baba abab baba abab" │
00:01:01 #3274 [verbose] > │ | "baba abab baba abab" │
00:01:01 #3275 [verbose] > │ | struct (1L, 1081L) │
00:01:01 #3276 [verbose] > │ "aa" | "aa aa" │
00:01:01 #3277 [verbose] > │ │
00:01:01 #3278 [verbose] > │ | "aa aa" │
00:01:01 #3279 [verbose] > │ │
00:01:01 #3280 [verbose] > │ | struct (1L, 819L) │
00:01:01 #3281 [verbose] > │ "z" | "z" │
00:01:01 #3282 [verbose] > │ │
00:01:01 #3283 [verbose] > │ | "z" │
00:01:01 #3284 [verbose] > │ │
00:01:01 #3285 [verbose] > │ | struct (2L, 197L) │
00:01:01 #3286 [verbose] > │ │
00:01:01 #3287 [verbose] > │ Average Ranking │
00:01:01 #3288 [verbose] > │ Test case 1. Average Time: 1147L │
00:01:01 #3289 [verbose] > │ Test case 2. Average Time: 1243L │
00:01:01 #3290 [verbose] > │ │
00:01:01 #3291 [verbose] > ╰──────────────────────────────────────────────────────────────────────────────╯
00:01:01 #3292 [verbose] >
00:01:01 #3293 [verbose] > ── spiral ──────────────────────────────────────────────────────────────────────
00:01:01 #3294 [verbose] > // // test
00:01:01 #3295 [verbose] > // // rust=
00:01:01 #3296 [verbose] > // // print_code=false
00:01:01 #3297 [verbose] >
00:01:01 #3298 [verbose] > // rotate_strings_tests ()
00:01:01 #3299 [verbose] > Building c:\home\git\polyglot\target\polyglot\spiral_eval\packages\2baedc80fd0ccb38f314423ad51257774a895780bb4bcc5a04a1b9d6e1c38a8f\main.spi
00:01:01 #3300 [verbose] >
00:01:01 #3301 [verbose] > ── markdown ────────────────────────────────────────────────────────────────────
00:01:01 #3302 [verbose] > ╭──────────────────────────────────────────────────────────────────────────────╮
00:01:01 #3303 [verbose] > │ ## binary_search_tests │
00:01:01 #3304 [verbose] > ╰──────────────────────────────────────────────────────────────────────────────╯
00:01:01 #3305 [verbose] >
00:01:01 #3306 [verbose] > ── spiral ──────────────────────────────────────────────────────────────────────
00:01:01 #3307 [verbose] > // // test
00:01:01 #3308 [verbose] > // // timeout=90000
00:01:01 #3309 [verbose] > // // print_code=true
00:01:01 #3310 [verbose] >
00:01:01 #3311 [verbose] > inl binary_search_semi_open_1 arr target left right =
00:01:01 #3312 [verbose] > inl rec body left right =
00:01:01 #3313 [verbose] > if left >= right
00:01:01 #3314 [verbose] > then None
00:01:01 #3315 [verbose] > else
00:01:01 #3316 [verbose] > inl mid = (left + right) / 2
00:01:01 #3317 [verbose] > inl item = index arr mid
00:01:01 #3318 [verbose] > if item = target
00:01:01 #3319 [verbose] > then Some mid
00:01:01 #3320 [verbose] > elif item < target
00:01:01 #3321 [verbose] > then loop (mid + 1) right
00:01:01 #3322 [verbose] > else loop left mid
00:01:01 #3323 [verbose] > and inl loop left right =
00:01:01 #3324 [verbose] > if var_is right |> not
00:01:01 #3325 [verbose] > then body left right
00:01:01 #3326 [verbose] > else
00:01:01 #3327 [verbose] > inl left = dyn left
00:01:01 #3328 [verbose] > join body left right
00:01:01 #3329 [verbose] > loop left right
00:01:01 #3330 [verbose] >
00:01:01 #3331 [verbose] > inl binary_search_closed_1 arr target left right =
00:01:01 #3332 [verbose] > inl rec body left right =
00:01:01 #3333 [verbose] > if left > right
00:01:01 #3334 [verbose] > then None
00:01:01 #3335 [verbose] > else
00:01:01 #3336 [verbose] > inl mid = (left + right) / 2
00:01:01 #3337 [verbose] > inl item = index arr mid
00:01:01 #3338 [verbose] > if item = target
00:01:01 #3339 [verbose] > then Some mid
00:01:01 #3340 [verbose] > elif item < target
00:01:01 #3341 [verbose] > then loop (mid + 1) right
00:01:01 #3342 [verbose] > else loop left (mid - 1)
00:01:01 #3343 [verbose] > and inl loop left right =
00:01:01 #3344 [verbose] > if var_is right |> not
00:01:01 #3345 [verbose] > then body left right
00:01:01 #3346 [verbose] > else
00:01:01 #3347 [verbose] > inl left = dyn left
00:01:01 #3348 [verbose] > join body left right
00:01:01 #3349 [verbose] > loop left right
00:01:01 #3350 [verbose] >
00:01:01 #3351 [verbose] > inl binary_search_semi_open_2 arr target left right =
00:01:01 #3352 [verbose] > let rec body left right =
00:01:01 #3353 [verbose] > if left >= right
00:01:01 #3354 [verbose] > then None
00:01:01 #3355 [verbose] > else
00:01:01 #3356 [verbose] > inl mid = (left + right) / 2
00:01:01 #3357 [verbose] > inl item = index arr mid
00:01:01 #3358 [verbose] > if item = target
00:01:01 #3359 [verbose] > then Some mid
00:01:01 #3360 [verbose] > elif item < target
00:01:01 #3361 [verbose] > then loop (mid + 1) right
00:01:01 #3362 [verbose] > else loop left mid
00:01:01 #3363 [verbose] > and inl loop left right = body left right
00:01:01 #3364 [verbose] > loop left right
00:01:01 #3365 [verbose] >
00:01:01 #3366 [verbose] > inl binary_search_closed_2 arr target left right =
00:01:01 #3367 [verbose] > let rec body left right =
00:01:01 #3368 [verbose] > if left > right
00:01:01 #3369 [verbose] > then None
00:01:01 #3370 [verbose] > else
00:01:01 #3371 [verbose] > inl mid = (left + right) / 2
00:01:01 #3372 [verbose] > inl item = index arr mid
00:01:01 #3373 [verbose] > if item = target
00:01:01 #3374 [verbose] > then Some mid
00:01:01 #3375 [verbose] > elif item < target
00:01:01 #3376 [verbose] > then loop (mid + 1) right
00:01:01 #3377 [verbose] > else loop left (mid - 1)
00:01:01 #3378 [verbose] > and inl loop left right = body left right
00:01:01 #3379 [verbose] > loop left right
00:01:01 #3380 [verbose] >
00:01:01 #3381 [verbose] > inl get_solutions () =
00:01:01 #3382 [verbose] > [[
00:01:01 #3383 [verbose] > "semi_open_1",
00:01:01 #3384 [verbose] > fun (arr, (target, len)) =>
00:01:01 #3385 [verbose] > binary_search_semi_open_1 arr target 0 len
00:01:01 #3386 [verbose] >
00:01:01 #3387 [verbose] > "closed_1",
00:01:01 #3388 [verbose] > fun (arr, (target, len)) =>
00:01:01 #3389 [verbose] > binary_search_closed_1 arr target 0 (len - 1)
00:01:01 #3390 [verbose] >
00:01:01 #3391 [verbose] > "semi_open_2",
00:01:01 #3392 [verbose] > fun (arr, (target, len)) =>
00:01:01 #3393 [verbose] > binary_search_semi_open_2 arr target 0 len
00:01:01 #3394 [verbose] >
00:01:01 #3395 [verbose] > "closed_2",
00:01:01 #3396 [verbose] > fun (arr, (target, len)) =>
00:01:01 #3397 [verbose] > binary_search_closed_2 arr target 0 (len - 1)
00:01:01 #3398 [verbose] > ]]
00:01:01 #3399 [verbose] >
00:01:01 #3400 [verbose] > inl rec binary_search_tests () =
00:01:01 #3401 [verbose] > inl arr_with_len target len arr =
00:01:01 #3402 [verbose] > arr, (target, (len |> optionm'.default_with fun () => length arr))
00:01:01 #3403 [verbose] >
00:01:01 #3404 [verbose] > inl test_cases = [[
00:01:01 #3405 [verbose] > (a ;[[ 1i32; 3; 4; 6; 8; 9; 11 ]] |> arr_with_len 6 None), (Some 3i32)
00:01:01 #3406 [verbose] > (a ;[[ 1i32; 3; 4; 6; 8; 9; 11 ]] |> arr_with_len 1 None), (Some 0i32)
00:01:01 #3407 [verbose] > (a ;[[ 1i32; 3; 4; 6; 8; 9; 11 ]] |> arr_with_len 11 None), (Some 6i32)
00:01:01 #3408 [verbose] > (a ;[[ 1i32; 3; 4; 6; 8; 9; 11 ]] |> arr_with_len 12 None), None
00:01:01 #3409 [verbose] > ((am'.init_series 1i32 100 1) |> arr_with_len 60 None), (Some 59)
00:01:01 #3410 [verbose] >
00:01:01 #3411 [verbose] > (a ;[[ 1i32; 3; 4; 6; 8; 9; 11 ]] |> arr_with_len 6 (Some 7)), (Some
00:01:01 #3412 [verbose] > 3i32)
00:01:01 #3413 [verbose] > (a ;[[ 1i32; 3; 4; 6; 8; 9; 11 ]] |> arr_with_len 1 (Some 7)), (Some
00:01:01 #3414 [verbose] > 0i32)
00:01:01 #3415 [verbose] > (a ;[[ 1i32; 3; 4; 6; 8; 9; 11 ]] |> arr_with_len 11 (Some 7)), (Some
00:01:01 #3416 [verbose] > 6i32)
00:01:01 #3417 [verbose] > (a ;[[ 1i32; 3; 4; 6; 8; 9; 11 ]] |> arr_with_len 12 (Some 7)), None
00:01:01 #3418 [verbose] > ((am'.init_series 1i32 100 1) |> arr_with_len 60 (Some 100)), (Some 59)
00:01:01 #3419 [verbose] > ]]
00:01:01 #3420 [verbose] >
00:01:01 #3421 [verbose] > inl solutions = get_solutions ()
00:01:01 #3422 [verbose] >
00:01:01 #3423 [verbose] > // inl is_fast () = true
00:01:01 #3424 [verbose] >
00:01:01 #3425 [verbose] > inl count =
00:01:01 #3426 [verbose] > if is_fast ()
00:01:01 #3427 [verbose] > then 1000i32
00:01:01 #3428 [verbose] > else 8000000i32
00:01:01 #3429 [verbose] >
00:01:01 #3430 [verbose] > run_all (nameof binary_search_tests) count solutions test_cases
00:01:01 #3431 [verbose] > |> sort_result_list
00:01:01 #3432 [verbose] >
00:01:01 #3433 [verbose] >
00:01:01 #3434 [verbose] > let main () =
00:01:01 #3435 [verbose] > binary_search_tests ()
00:01:01 #3436 [verbose] > Building c:\home\git\polyglot\target\polyglot\spiral_eval\packages\11813c38f8e45986382057254f110b885bd9e2b5a252c3ec6b9e7106723daadd\main.spi
00:01:33 #3437 [verbose] >
00:01:33 #3438 [verbose] > ╭─[ 31.59s - stdout ]──────────────────────────────────────────────────────────╮
00:01:33 #3439 [verbose] > │ type Mut0 = {mutable l0 : int32} │
00:01:33 #3440 [verbose] > │ and [<Struct>] US0 = │
00:01:33 #3441 [verbose] > │ | US0_0 of f0_0 : int32 │
00:01:33 #3442 [verbose] > │ | US0_1 │
00:01:33 #3443 [verbose] > │ and UH0 = │
00:01:33 #3444 [verbose] > │ | UH0_0 │
00:01:33 #3445 [verbose] > │ | UH0_1 of (int32 []) * int32 * int32 * US0 * UH0 │
00:01:33 #3446 [verbose] > │ and Mut1 = {mutable l0 : uint64} │
00:01:33 #3447 [verbose] > │ and UH1 = │
00:01:33 #3448 [verbose] > │ | UH1_0 │
00:01:33 #3449 [verbose] > │ | UH1_1 of int32 * string * (struct ((int32 []) * int32 * int32) -> US0) │
00:01:33 #3450 [verbose] > │ * UH1 │
00:01:33 #3451 [verbose] > │ and UH2 = │
00:01:33 #3452 [verbose] > │ | UH2_0 │
00:01:33 #3453 [verbose] > │ | UH2_1 of string * UH2 │
00:01:33 #3454 [verbose] > │ and [<Struct>] US1 = │
00:01:33 #3455 [verbose] > │ | US1_0 of f0_0 : System.ConsoleColor │
00:01:33 #3456 [verbose] > │ | US1_1 │
00:01:33 #3457 [verbose] > │ and UH3 = │
00:01:33 #3458 [verbose] > │ | UH3_0 │
00:01:33 #3459 [verbose] > │ | UH3_1 of int64 * int64 * UH3 │
00:01:33 #3460 [verbose] > │ and Mut2 = {mutable l0 : uint64; mutable l1 : UH3; mutable l2 : int64} │
00:01:33 #3461 [verbose] > │ and UH4 = │
00:01:33 #3462 [verbose] > │ | UH4_0 │
00:01:33 #3463 [verbose] > │ | UH4_1 of UH2 * US1 * UH4 │
00:01:33 #3464 [verbose] > │ and [<Struct>] US2 = │
00:01:33 #3465 [verbose] > │ | US2_0 of f0_0 : int64 │
00:01:33 #3466 [verbose] > │ | US2_1 │
00:01:33 #3467 [verbose] > │ and UH5 = │
00:01:33 #3468 [verbose] > │ | UH5_0 │
00:01:33 #3469 [verbose] > │ | UH5_1 of int32 * int64 * UH5 │
00:01:33 #3470 [verbose] > │ and Mut3 = {mutable l0 : uint64; mutable l1 : UH5; mutable l2 : int32} │
00:01:33 #3471 [verbose] > │ and UH6 = │
00:01:33 #3472 [verbose] > │ | UH6_0 │
00:01:33 #3473 [verbose] > │ | UH6_1 of int32 * string * UH6 │
00:01:33 #3474 [verbose] > │ let rec method1 (v0 : Mut0) : bool = │
00:01:33 #3475 [verbose] > │ let v1 : int32 = v0.l0 │
00:01:33 #3476 [verbose] > │ let v2 : bool = v1 < 100 │
00:01:33 #3477 [verbose] > │ v2 │
00:01:33 #3478 [verbose] > │ and method3 (v0 : UH0, v1 : uint64) : uint64 = │
00:01:33 #3479 [verbose] > │ match v0 with │
00:01:33 #3480 [verbose] > │ | UH0_1(v2, v3, v4, v5, v6) -> (* Cons *) │
00:01:33 #3481 [verbose] > │ let v7 : uint64 = v1 + 1UL │
00:01:33 #3482 [verbose] > │ method3(v6, v7) │
00:01:33 #3483 [verbose] > │ | UH0_0 -> (* Nil *) │
00:01:33 #3484 [verbose] > │ v1 │
00:01:33 #3485 [verbose] > │ and method4 (v0 : (struct ((int32 []) * int32 * int32 * US0) []), v1 : UH0, │
00:01:33 #3486 [verbose] > │ v2 : uint64) : uint64 = │
00:01:33 #3487 [verbose] > │ match v1 with │
00:01:33 #3488 [verbose] > │ | UH0_1(v3, v4, v5, v6, v7) -> (* Cons *) │
00:01:33 #3489 [verbose] > │ v0.[int v2] <- struct (v3, v4, v5, v6) │
00:01:33 #3490 [verbose] > │ let v8 : uint64 = v2 + 1UL │
00:01:33 #3491 [verbose] > │ method4(v0, v7, v8) │
00:01:33 #3492 [verbose] > │ | UH0_0 -> (* Nil *) │
00:01:33 #3493 [verbose] > │ v2 │
00:01:33 #3494 [verbose] > │ and method2 (v0 : UH0) : (struct ((int32 []) * int32 * int32 * US0) []) = │
00:01:33 #3495 [verbose] > │ let v1 : uint64 = 0UL │
00:01:33 #3496 [verbose] > │ let v2 : uint64 = method3(v0, v1) │
00:01:33 #3497 [verbose] > │ let v3 : (struct ((int32 []) * int32 * int32 * US0) []) = │
00:01:33 #3498 [verbose] > │ Array.zeroCreate<struct ((int32 []) * int32 * int32 * US0)> │
00:01:33 #3499 [verbose] > │ (System.Convert.ToInt32(v2)) │
00:01:33 #3500 [verbose] > │ let v4 : uint64 = 0UL │
00:01:33 #3501 [verbose] > │ let v5 : uint64 = method4(v3, v0, v4) │
00:01:33 #3502 [verbose] > │ v3 │
00:01:33 #3503 [verbose] > │ and method5 (v0 : uint64, v1 : Mut1) : bool = │
00:01:33 #3504 [verbose] > │ let v2 : uint64 = v1.l0 │
00:01:33 #3505 [verbose] > │ let v3 : bool = v2 < v0 │
00:01:33 #3506 [verbose] > │ v3 │
00:01:33 #3507 [verbose] > │ and method6 (v0 : (int32 []), v1 : int32, v2 : int32, v3 : int32) : US0 = │
00:01:33 #3508 [verbose] > │ let v4 : bool = v3 >= v2 │
00:01:33 #3509 [verbose] > │ if v4 then │
00:01:33 #3510 [verbose] > │ US0_1 │
00:01:33 #3511 [verbose] > │ else │
00:01:33 #3512 [verbose] > │ let v6 : int32 = v3 + v2 │
00:01:33 #3513 [verbose] > │ let v7 : int32 = v6 / 2 │
00:01:33 #3514 [verbose] > │ let v8 : int32 = v0.[int v7] │
00:01:33 #3515 [verbose] > │ let v9 : bool = v8 = v1 │
00:01:33 #3516 [verbose] > │ if v9 then │
00:01:33 #3517 [verbose] > │ US0_0(v7) │
00:01:33 #3518 [verbose] > │ else │
00:01:33 #3519 [verbose] > │ let v11 : bool = v8 < v1 │
00:01:33 #3520 [verbose] > │ if v11 then │
00:01:33 #3521 [verbose] > │ let v12 : int32 = v7 + 1 │
00:01:33 #3522 [verbose] > │ method6(v0, v1, v2, v12) │
00:01:33 #3523 [verbose] > │ else │
00:01:33 #3524 [verbose] > │ method6(v0, v1, v7, v3) │
00:01:33 #3525 [verbose] > │ and closure1 () struct (v0 : (int32 []), v1 : int32, v2 : int32) : US0 = │
00:01:33 #3526 [verbose] > │ let v3 : int32 = 0 │
00:01:33 #3527 [verbose] > │ method6(v0, v1, v2, v3) │
00:01:33 #3528 [verbose] > │ and method7 (v0 : (int32 []), v1 : int32, v2 : int32, v3 : int32) : US0 = │
00:01:33 #3529 [verbose] > │ let v4 : bool = v3 > v2 │
00:01:33 #3530 [verbose] > │ if v4 then │
00:01:33 #3531 [verbose] > │ US0_1 │
00:01:33 #3532 [verbose] > │ else │
00:01:33 #3533 [verbose] > │ let v6 : int32 = v3 + v2 │
00:01:33 #3534 [verbose] > │ let v7 : int32 = v6 / 2 │
00:01:33 #3535 [verbose] > │ let v8 : int32 = v0.[int v7] │
00:01:33 #3536 [verbose] > │ let v9 : bool = v8 = v1 │
00:01:33 #3537 [verbose] > │ if v9 then │
00:01:33 #3538 [verbose] > │ US0_0(v7) │
00:01:33 #3539 [verbose] > │ else │
00:01:33 #3540 [verbose] > │ let v11 : bool = v8 < v1 │
00:01:33 #3541 [verbose] > │ if v11 then │
00:01:33 #3542 [verbose] > │ let v12 : int32 = v7 + 1 │
00:01:33 #3543 [verbose] > │ method7(v0, v1, v2, v12) │
00:01:33 #3544 [verbose] > │ else │
00:01:33 #3545 [verbose] > │ let v14 : int32 = v7 - 1 │
00:01:33 #3546 [verbose] > │ method7(v0, v1, v14, v3) │
00:01:33 #3547 [verbose] > │ and closure2 () struct (v0 : (int32 []), v1 : int32, v2 : int32) : US0 = │
00:01:33 #3548 [verbose] > │ let v3 : int32 = v2 - 1 │
00:01:33 #3549 [verbose] > │ let v4 : int32 = 0 │
00:01:33 #3550 [verbose] > │ method7(v0, v1, v3, v4) │
00:01:33 #3551 [verbose] > │ and method8 (v0 : (int32 []), v1 : int32, v2 : int32, v3 : int32) : US0 = │
00:01:33 #3552 [verbose] > │ let v4 : bool = v2 >= v3 │
00:01:33 #3553 [verbose] > │ if v4 then │
00:01:33 #3554 [verbose] > │ US0_1 │
00:01:33 #3555 [verbose] > │ else │
00:01:33 #3556 [verbose] > │ let v6 : int32 = v2 + v3 │
00:01:33 #3557 [verbose] > │ let v7 : int32 = v6 / 2 │
00:01:33 #3558 [verbose] > │ let v8 : int32 = v0.[int v7] │
00:01:33 #3559 [verbose] > │ let v9 : bool = v8 = v1 │
00:01:33 #3560 [verbose] > │ if v9 then │
00:01:33 #3561 [verbose] > │ US0_0(v7) │
00:01:33 #3562 [verbose] > │ else │
00:01:33 #3563 [verbose] > │ let v11 : bool = v8 < v1 │
00:01:33 #3564 [verbose] > │ if v11 then │
00:01:33 #3565 [verbose] > │ let v12 : int32 = v7 + 1 │
00:01:33 #3566 [verbose] > │ method8(v0, v1, v12, v3) │
00:01:33 #3567 [verbose] > │ else │
00:01:33 #3568 [verbose] > │ method8(v0, v1, v2, v7) │
00:01:33 #3569 [verbose] > │ and closure3 () struct (v0 : (int32 []), v1 : int32, v2 : int32) : US0 = │
00:01:33 #3570 [verbose] > │ let v3 : int32 = 0 │
00:01:33 #3571 [verbose] > │ method8(v0, v1, v3, v2) │
00:01:33 #3572 [verbose] > │ and method9 (v0 : (int32 []), v1 : int32, v2 : int32, v3 : int32) : US0 = │
00:01:33 #3573 [verbose] > │ let v4 : bool = v2 > v3 │
00:01:33 #3574 [verbose] > │ if v4 then │
00:01:33 #3575 [verbose] > │ US0_1 │
00:01:33 #3576 [verbose] > │ else │
00:01:33 #3577 [verbose] > │ let v6 : int32 = v2 + v3 │
00:01:33 #3578 [verbose] > │ let v7 : int32 = v6 / 2 │
00:01:33 #3579 [verbose] > │ let v8 : int32 = v0.[int v7] │
00:01:33 #3580 [verbose] > │ let v9 : bool = v8 = v1 │
00:01:33 #3581 [verbose] > │ if v9 then │
00:01:33 #3582 [verbose] > │ US0_0(v7) │
00:01:33 #3583 [verbose] > │ else │
00:01:33 #3584 [verbose] > │ let v11 : bool = v8 < v1 │
00:01:33 #3585 [verbose] > │ if v11 then │
00:01:33 #3586 [verbose] > │ let v12 : int32 = v7 + 1 │
00:01:33 #3587 [verbose] > │ method9(v0, v1, v12, v3) │
00:01:33 #3588 [verbose] > │ else │
00:01:33 #3589 [verbose] > │ let v14 : int32 = v7 - 1 │
00:01:33 #3590 [verbose] > │ method9(v0, v1, v2, v14) │
00:01:33 #3591 [verbose] > │ and closure4 () struct (v0 : (int32 []), v1 : int32, v2 : int32) : US0 = │
00:01:33 #3592 [verbose] > │ let v3 : int32 = v2 - 1 │
00:01:33 #3593 [verbose] > │ let v4 : int32 = 0 │
00:01:33 #3594 [verbose] > │ method9(v0, v1, v4, v3) │
00:01:33 #3595 [verbose] > │ and method11 (v0 : UH1, v1 : uint64) : uint64 = │
00:01:33 #3596 [verbose] > │ match v0 with │
00:01:33 #3597 [verbose] > │ | UH1_1(v2, v3, v4, v5) -> (* Cons *) │
00:01:33 #3598 [verbose] > │ let v6 : uint64 = v1 + 1UL │
00:01:33 #3599 [verbose] > │ method11(v5, v6) │
00:01:33 #3600 [verbose] > │ | UH1_0 -> (* Nil *) │
00:01:33 #3601 [verbose] > │ v1 │
00:01:33 #3602 [verbose] > │ and method12 (v0 : (struct (int32 * string * (struct ((int32 []) * int32 * │
00:01:33 #3603 [verbose] > │ int32) -> US0)) []), v1 : UH1, v2 : uint64) : uint64 = │
00:01:33 #3604 [verbose] > │ match v1 with │
00:01:33 #3605 [verbose] > │ | UH1_1(v3, v4, v5, v6) -> (* Cons *) │
00:01:33 #3606 [verbose] > │ v0.[int v2] <- struct (v3, v4, v5) │
00:01:33 #3607 [verbose] > │ let v7 : uint64 = v2 + 1UL │
00:01:33 #3608 [verbose] > │ method12(v0, v6, v7) │
00:01:33 #3609 [verbose] > │ | UH1_0 -> (* Nil *) │
00:01:33 #3610 [verbose] > │ v2 │
00:01:33 #3611 [verbose] > │ and method10 (v0 : UH1) : (struct (int32 * string * (struct ((int32 []) * │
00:01:33 #3612 [verbose] > │ int32 * int32) -> US0)) []) = │
00:01:33 #3613 [verbose] > │ let v1 : uint64 = 0UL │
00:01:33 #3614 [verbose] > │ let v2 : uint64 = method11(v0, v1) │
00:01:33 #3615 [verbose] > │ let v3 : (struct (int32 * string * (struct ((int32 []) * int32 * int32) │
00:01:33 #3616 [verbose] > │ -> US0)) []) = Array.zeroCreate<struct (int32 * string * (struct ((int32 []) │
00:01:33 #3617 [verbose] > │ * int32 * int32) -> US0))> (System.Convert.ToInt32(v2)) │
00:01:33 #3618 [verbose] > │ let v4 : uint64 = 0UL │
00:01:33 #3619 [verbose] > │ let v5 : uint64 = method12(v3, v0, v4) │
00:01:33 #3620 [verbose] > │ v3 │
00:01:33 #3621 [verbose] > │ and method13 (v0 : Mut0) : bool = │
00:01:33 #3622 [verbose] > │ let v1 : int32 = v0.l0 │
00:01:33 #3623 [verbose] > │ let v2 : bool = v1 < 8000001 │
00:01:33 #3624 [verbose] > │ v2 │
00:01:33 #3625 [verbose] > │ and closure5 (v0 : (int32 []), v1 : int32, v2 : int32, v3 : (struct ((int32 │
00:01:33 #3626 [verbose] > │ []) * int32 * int32) -> US0)) (v4 : int32) : US0 = │
00:01:33 #3627 [verbose] > │ v3 struct (v0, v1, v2) │
00:01:33 #3628 [verbose] > │ and method14 (v0 : US0, v1 : (US0 []), v2 : uint64) : bool = │
00:01:33 #3629 [verbose] > │ let v3 : uint64 = System.Convert.ToUInt64 v1.Length │
00:01:33 #3630 [verbose] > │ let v4 : bool = v2 < v3 │
00:01:33 #3631 [verbose] > │ if v4 then │
00:01:33 #3632 [verbose] > │ let v5 : US0 = v1.[int v2] │
00:01:33 #3633 [verbose] > │ let v9 : bool = │
00:01:33 #3634 [verbose] > │ match v0, v5 with │
00:01:33 #3635 [verbose] > │ | US0_1, US0_1 -> (* None *) │
00:01:33 #3636 [verbose] > │ true │
00:01:33 #3637 [verbose] > │ | US0_0(v6), US0_0(v7) -> (* Some *) │
00:01:33 #3638 [verbose] > │ let v8 : bool = v6 = v7 │
00:01:33 #3639 [verbose] > │ v8 │
00:01:33 #3640 [verbose] > │ | _ -> │
00:01:33 #3641 [verbose] > │ false │
00:01:33 #3642 [verbose] > │ if v9 then │
00:01:33 #3643 [verbose] > │ let v10 : uint64 = v2 + 1UL │
00:01:33 #3644 [verbose] > │ method14(v0, v1, v10) │
00:01:33 #3645 [verbose] > │ else │
00:01:33 #3646 [verbose] > │ false │
00:01:33 #3647 [verbose] > │ else │
00:01:33 #3648 [verbose] > │ true │
00:01:33 #3649 [verbose] > │ and method15 (v0 : uint64, v1 : Mut2) : bool = │
00:01:33 #3650 [verbose] > │ let v2 : uint64 = v1.l0 │
00:01:33 #3651 [verbose] > │ let v3 : bool = v2 < v0 │
00:01:33 #3652 [verbose] > │ v3 │
00:01:33 #3653 [verbose] > │ and method16 (v0 : UH3, v1 : UH3) : UH3 = │
00:01:33 #3654 [verbose] > │ match v0 with │
00:01:33 #3655 [verbose] > │ | UH3_1(v2, v3, v4) -> (* Cons *) │
00:01:33 #3656 [verbose] > │ let v5 : UH3 = UH3_1(v2, v3, v1) │
00:01:33 #3657 [verbose] > │ method16(v4, v5) │
00:01:33 #3658 [verbose] > │ | UH3_0 -> (* Nil *) │
00:01:33 #3659 [verbose] > │ v1 │
00:01:33 #3660 [verbose] > │ and method18 (v0 : UH3, v1 : int32) : int32 = │
00:01:33 #3661 [verbose] > │ match v0 with │
00:01:33 #3662 [verbose] > │ | UH3_1(v2, v3, v4) -> (* Cons *) │
00:01:33 #3663 [verbose] > │ let v5 : int32 = v1 + 1 │
00:01:33 #3664 [verbose] > │ method18(v4, v5) │
00:01:33 #3665 [verbose] > │ | UH3_0 -> (* Nil *) │
00:01:33 #3666 [verbose] > │ v1 │
00:01:33 #3667 [verbose] > │ and method19 (v0 : (struct (int64 * int64) []), v1 : UH3, v2 : int32) : │
00:01:33 #3668 [verbose] > │ int32 = │
00:01:33 #3669 [verbose] > │ match v1 with │
00:01:33 #3670 [verbose] > │ | UH3_1(v3, v4, v5) -> (* Cons *) │
00:01:33 #3671 [verbose] > │ v0.[int v2] <- struct (v3, v4) │
00:01:33 #3672 [verbose] > │ let v6 : int32 = v2 + 1 │
00:01:33 #3673 [verbose] > │ method19(v0, v5, v6) │
00:01:33 #3674 [verbose] > │ | UH3_0 -> (* Nil *) │
00:01:33 #3675 [verbose] > │ v2 │
00:01:33 #3676 [verbose] > │ and method17 (v0 : UH3) : (struct (int64 * int64) []) = │
00:01:33 #3677 [verbose] > │ let v1 : int32 = 0 │
00:01:33 #3678 [verbose] > │ let v2 : int32 = method18(v0, v1) │
00:01:33 #3679 [verbose] > │ let v3 : (struct (int64 * int64) []) = Array.zeroCreate<struct (int64 * │
00:01:33 #3680 [verbose] > │ int64)> (v2) │
00:01:33 #3681 [verbose] > │ let v4 : int32 = 0 │
00:01:33 #3682 [verbose] > │ let v5 : int32 = method19(v3, v0, v4) │
00:01:33 #3683 [verbose] > │ v3 │
00:01:33 #3684 [verbose] > │ and method20 (v0 : int32, v1 : Mut0) : bool = │
00:01:33 #3685 [verbose] > │ let v2 : int32 = v1.l0 │
00:01:33 #3686 [verbose] > │ let v3 : bool = v2 < v0 │
00:01:33 #3687 [verbose] > │ v3 │
00:01:33 #3688 [verbose] > │ and closure6 () struct (v0 : int64, v1 : int64) : int64 = │
00:01:33 #3689 [verbose] > │ v1 │
00:01:33 #3690 [verbose] > │ and method22 (v0 : UH4, v1 : uint64) : uint64 = │
00:01:33 #3691 [verbose] > │ match v0 with │
00:01:33 #3692 [verbose] > │ | UH4_1(v2, v3, v4) -> (* Cons *) │
00:01:33 #3693 [verbose] > │ let v5 : uint64 = v1 + 1UL │
00:01:33 #3694 [verbose] > │ method22(v4, v5) │
00:01:33 #3695 [verbose] > │ | UH4_0 -> (* Nil *) │
00:01:33 #3696 [verbose] > │ v1 │
00:01:33 #3697 [verbose] > │ and method23 (v0 : (struct (UH2 * US1) []), v1 : UH4, v2 : uint64) : uint64 │
00:01:33 #3698 [verbose] > │ = │
00:01:33 #3699 [verbose] > │ match v1 with │
00:01:33 #3700 [verbose] > │ | UH4_1(v3, v4, v5) -> (* Cons *) │
00:01:33 #3701 [verbose] > │ v0.[int v2] <- struct (v3, v4) │
00:01:33 #3702 [verbose] > │ let v6 : uint64 = v2 + 1UL │
00:01:33 #3703 [verbose] > │ method23(v0, v5, v6) │
00:01:33 #3704 [verbose] > │ | UH4_0 -> (* Nil *) │
00:01:33 #3705 [verbose] > │ v2 │
00:01:33 #3706 [verbose] > │ and method21 (v0 : UH4) : (struct (UH2 * US1) []) = │
00:01:33 #3707 [verbose] > │ let v1 : uint64 = 0UL │
00:01:33 #3708 [verbose] > │ let v2 : uint64 = method22(v0, v1) │
00:01:33 #3709 [verbose] > │ let v3 : (struct (UH2 * US1) []) = Array.zeroCreate<struct (UH2 * US1)> │
00:01:33 #3710 [verbose] > │ (System.Convert.ToInt32(v2)) │
00:01:33 #3711 [verbose] > │ let v4 : uint64 = 0UL │
00:01:33 #3712 [verbose] > │ let v5 : uint64 = method23(v3, v0, v4) │
00:01:33 #3713 [verbose] > │ v3 │
00:01:33 #3714 [verbose] > │ and method25 (v0 : UH2, v1 : uint64) : uint64 = │
00:01:33 #3715 [verbose] > │ match v0 with │
00:01:33 #3716 [verbose] > │ | UH2_1(v2, v3) -> (* Cons *) │
00:01:33 #3717 [verbose] > │ let v4 : uint64 = v1 + 1UL │
00:01:33 #3718 [verbose] > │ method25(v3, v4) │
00:01:33 #3719 [verbose] > │ | UH2_0 -> (* Nil *) │
00:01:33 #3720 [verbose] > │ v1 │
00:01:33 #3721 [verbose] > │ and method26 (v0 : (string []), v1 : UH2, v2 : uint64) : uint64 = │
00:01:33 #3722 [verbose] > │ match v1 with │
00:01:33 #3723 [verbose] > │ | UH2_1(v3, v4) -> (* Cons *) │
00:01:33 #3724 [verbose] > │ v0.[int v2] <- v3 │
00:01:33 #3725 [verbose] > │ let v5 : uint64 = v2 + 1UL │
00:01:33 #3726 [verbose] > │ method26(v0, v4, v5) │
00:01:33 #3727 [verbose] > │ | UH2_0 -> (* Nil *) │
00:01:33 #3728 [verbose] > │ v2 │
00:01:33 #3729 [verbose] > │ and method24 (v0 : UH2) : (string []) = │
00:01:33 #3730 [verbose] > │ let v1 : uint64 = 0UL │
00:01:33 #3731 [verbose] > │ let v2 : uint64 = method25(v0, v1) │
00:01:33 #3732 [verbose] > │ let v3 : (string []) = Array.zeroCreate<string> │
00:01:33 #3733 [verbose] > │ (System.Convert.ToInt32(v2)) │
00:01:33 #3734 [verbose] > │ let v4 : uint64 = 0UL │
00:01:33 #3735 [verbose] > │ let v5 : uint64 = method26(v3, v0, v4) │
00:01:33 #3736 [verbose] > │ v3 │
00:01:33 #3737 [verbose] > │ and closure7 () (v0 : int64) : US2 = │
00:01:33 #3738 [verbose] > │ US2_0(v0) │
00:01:33 #3739 [verbose] > │ and method27 () : (int64 -> US2) = │
00:01:33 #3740 [verbose] > │ closure7() │
00:01:33 #3741 [verbose] > │ and method28 (v0 : uint64, v1 : Mut3) : bool = │
00:01:33 #3742 [verbose] > │ let v2 : uint64 = v1.l0 │
00:01:33 #3743 [verbose] > │ let v3 : bool = v2 < v0 │
00:01:33 #3744 [verbose] > │ v3 │
00:01:33 #3745 [verbose] > │ and method29 (v0 : UH5, v1 : UH5) : UH5 = │
00:01:33 #3746 [verbose] > │ match v0 with │
00:01:33 #3747 [verbose] > │ | UH5_1(v2, v3, v4) -> (* Cons *) │
00:01:33 #3748 [verbose] > │ let v5 : UH5 = UH5_1(v2, v3, v1) │
00:01:33 #3749 [verbose] > │ method29(v4, v5) │
00:01:33 #3750 [verbose] > │ | UH5_0 -> (* Nil *) │
00:01:33 #3751 [verbose] > │ v1 │
00:01:33 #3752 [verbose] > │ and method31 (v0 : UH5, v1 : int32) : int32 = │
00:01:33 #3753 [verbose] > │ match v0 with │
00:01:33 #3754 [verbose] > │ | UH5_1(v2, v3, v4) -> (* Cons *) │
00:01:33 #3755 [verbose] > │ let v5 : int32 = v1 + 1 │
00:01:33 #3756 [verbose] > │ method31(v4, v5) │
00:01:33 #3757 [verbose] > │ | UH5_0 -> (* Nil *) │
00:01:33 #3758 [verbose] > │ v1 │
00:01:33 #3759 [verbose] > │ and method32 (v0 : (struct (int32 * int64) []), v1 : UH5, v2 : int32) : │
00:01:33 #3760 [verbose] > │ int32 = │
00:01:33 #3761 [verbose] > │ match v1 with │
00:01:33 #3762 [verbose] > │ | UH5_1(v3, v4, v5) -> (* Cons *) │
00:01:33 #3763 [verbose] > │ v0.[int v2] <- struct (v3, v4) │
00:01:33 #3764 [verbose] > │ let v6 : int32 = v2 + 1 │
00:01:33 #3765 [verbose] > │ method32(v0, v5, v6) │
00:01:33 #3766 [verbose] > │ | UH5_0 -> (* Nil *) │
00:01:33 #3767 [verbose] > │ v2 │
00:01:33 #3768 [verbose] > │ and method30 (v0 : UH5) : (struct (int32 * int64) []) = │
00:01:33 #3769 [verbose] > │ let v1 : int32 = 0 │
00:01:33 #3770 [verbose] > │ let v2 : int32 = method31(v0, v1) │
00:01:33 #3771 [verbose] > │ let v3 : (struct (int32 * int64) []) = Array.zeroCreate<struct (int32 * │
00:01:33 #3772 [verbose] > │ int64)> (v2) │
00:01:33 #3773 [verbose] > │ let v4 : int32 = 0 │
00:01:33 #3774 [verbose] > │ let v5 : int32 = method32(v3, v0, v4) │
00:01:33 #3775 [verbose] > │ v3 │
00:01:33 #3776 [verbose] > │ and method33 (v0 : UH2, v1 : UH6, v2 : int32) : struct (UH6 * int32) = │
00:01:33 #3777 [verbose] > │ match v0 with │
00:01:33 #3778 [verbose] > │ | UH2_1(v3, v4) -> (* Cons *) │
00:01:33 #3779 [verbose] > │ let v5 : int32 = v2 + 1 │
00:01:33 #3780 [verbose] > │ let v6 : UH6 = UH6_1(v2, v3, v1) │
00:01:33 #3781 [verbose] > │ method33(v4, v6, v5) │
00:01:33 #3782 [verbose] > │ | UH2_0 -> (* Nil *) │
00:01:33 #3783 [verbose] > │ struct (v1, v2) │
00:01:33 #3784 [verbose] > │ and method34 (v0 : UH6, v1 : UH6) : UH6 = │
00:01:33 #3785 [verbose] > │ match v0 with │
00:01:33 #3786 [verbose] > │ | UH6_1(v2, v3, v4) -> (* Cons *) │
00:01:33 #3787 [verbose] > │ let v5 : UH6 = UH6_1(v2, v3, v1) │
00:01:33 #3788 [verbose] > │ method34(v4, v5) │
00:01:33 #3789 [verbose] > │ | UH6_0 -> (* Nil *) │
00:01:33 #3790 [verbose] > │ v1 │
00:01:33 #3791 [verbose] > │ and method35 (v0 : Map<int32, int64>, v1 : UH6, v2 : UH2) : UH2 = │
00:01:33 #3792 [verbose] > │ match v1 with │
00:01:33 #3793 [verbose] > │ | UH6_1(v3, v4, v5) -> (* Cons *) │
00:01:33 #3794 [verbose] > │ let v6 : UH2 = method35(v0, v5, v2) │
00:01:33 #3795 [verbose] > │ let v7 : int64 = v0.[v3] │
00:01:33 #3796 [verbose] > │ let v8 : int32 = int32 v7 │
00:01:33 #3797 [verbose] > │ let v9 : string = v4.PadRight v8 │
00:01:33 #3798 [verbose] > │ UH2_1(v9, v6) │
00:01:33 #3799 [verbose] > │ | UH6_0 -> (* Nil *) │
00:01:33 #3800 [verbose] > │ v2 │
00:01:33 #3801 [verbose] > │ and method37 (v0 : UH2, v1 : int32) : int32 = │
00:01:33 #3802 [verbose] > │ match v0 with │
00:01:33 #3803 [verbose] > │ | UH2_1(v2, v3) -> (* Cons *) │
00:01:33 #3804 [verbose] > │ let v4 : int32 = v1 + 1 │
00:01:33 #3805 [verbose] > │ method37(v3, v4) │
00:01:33 #3806 [verbose] > │ | UH2_0 -> (* Nil *) │
00:01:33 #3807 [verbose] > │ v1 │
00:01:33 #3808 [verbose] > │ and method38 (v0 : (string []), v1 : UH2, v2 : int32) : int32 = │
00:01:33 #3809 [verbose] > │ match v1 with │
00:01:33 #3810 [verbose] > │ | UH2_1(v3, v4) -> (* Cons *) │
00:01:33 #3811 [verbose] > │ v0.[int v2] <- v3 │
00:01:33 #3812 [verbose] > │ let v5 : int32 = v2 + 1 │
00:01:33 #3813 [verbose] > │ method38(v0, v4, v5) │
00:01:33 #3814 [verbose] > │ | UH2_0 -> (* Nil *) │
00:01:33 #3815 [verbose] > │ v2 │
00:01:33 #3816 [verbose] > │ and method36 (v0 : UH2) : (string []) = │
00:01:33 #3817 [verbose] > │ let v1 : int32 = 0 │
00:01:33 #3818 [verbose] > │ let v2 : int32 = method37(v0, v1) │
00:01:33 #3819 [verbose] > │ let v3 : (string []) = Array.zeroCreate<string> (v2) │
00:01:33 #3820 [verbose] > │ let v4 : int32 = 0 │
00:01:33 #3821 [verbose] > │ let v5 : int32 = method38(v3, v0, v4) │
00:01:33 #3822 [verbose] > │ v3 │
00:01:33 #3823 [verbose] > │ and method40 (v0 : UH5, v1 : uint64) : uint64 = │
00:01:33 #3824 [verbose] > │ match v0 with │
00:01:33 #3825 [verbose] > │ | UH5_1(v2, v3, v4) -> (* Cons *) │
00:01:33 #3826 [verbose] > │ let v5 : uint64 = v1 + 1UL │
00:01:33 #3827 [verbose] > │ method40(v4, v5) │
00:01:33 #3828 [verbose] > │ | UH5_0 -> (* Nil *) │
00:01:33 #3829 [verbose] > │ v1 │
00:01:33 #3830 [verbose] > │ and method41 (v0 : (struct (int32 * int64) []), v1 : UH5, v2 : uint64) : │
00:01:33 #3831 [verbose] > │ uint64 = │
00:01:33 #3832 [verbose] > │ match v1 with │
00:01:33 #3833 [verbose] > │ | UH5_1(v3, v4, v5) -> (* Cons *) │
00:01:33 #3834 [verbose] > │ v0.[int v2] <- struct (v3, v4) │
00:01:33 #3835 [verbose] > │ let v6 : uint64 = v2 + 1UL │
00:01:33 #3836 [verbose] > │ method41(v0, v5, v6) │
00:01:33 #3837 [verbose] > │ | UH5_0 -> (* Nil *) │
00:01:33 #3838 [verbose] > │ v2 │
00:01:33 #3839 [verbose] > │ and method39 (v0 : UH5) : (struct (int32 * int64) []) = │
00:01:33 #3840 [verbose] > │ let v1 : uint64 = 0UL │
00:01:33 #3841 [verbose] > │ let v2 : uint64 = method40(v0, v1) │
00:01:33 #3842 [verbose] > │ let v3 : (struct (int32 * int64) []) = Array.zeroCreate<struct (int32 * │
00:01:33 #3843 [verbose] > │ int64)> (System.Convert.ToInt32(v2)) │
00:01:33 #3844 [verbose] > │ let v4 : uint64 = 0UL │
00:01:33 #3845 [verbose] > │ let v5 : uint64 = method41(v3, v0, v4) │
00:01:33 #3846 [verbose] > │ v3 │
00:01:33 #3847 [verbose] > │ and closure8 () struct (v0 : int32, v1 : int64) : int64 = │
00:01:33 #3848 [verbose] > │ v1 │
00:01:33 #3849 [verbose] > │ and closure0 () () : unit = │
00:01:33 #3850 [verbose] > │ let v0 : (int32 []) = [|1; 3; 4; 6; 8; 9; 11|] │
00:01:33 #3851 [verbose] > │ let v1 : int32 = v0.Length │
00:01:33 #3852 [verbose] > │ let v2 : (int32 []) = [|1; 3; 4; 6; 8; 9; 11|] │
00:01:33 #3853 [verbose] > │ let v3 : int32 = v2.Length │
00:01:33 #3854 [verbose] > │ let v4 : (int32 []) = [|1; 3; 4; 6; 8; 9; 11|] │
00:01:33 #3855 [verbose] > │ let v5 : int32 = v4.Length │
00:01:33 #3856 [verbose] > │ let v6 : (int32 []) = [|1; 3; 4; 6; 8; 9; 11|] │
00:01:33 #3857 [verbose] > │ let v7 : int32 = v6.Length │
00:01:33 #3858 [verbose] > │ let v8 : (int32 []) = Array.zeroCreate<int32> (100) │
00:01:33 #3859 [verbose] > │ let v9 : Mut0 = {l0 = 0} : Mut0 │
00:01:33 #3860 [verbose] > │ while method1(v9) do │
00:01:33 #3861 [verbose] > │ let v11 : int32 = v9.l0 │
00:01:33 #3862 [verbose] > │ let v12 : int32 = 1 + v11 │
00:01:33 #3863 [verbose] > │ v8.[int v11] <- v12 │
00:01:33 #3864 [verbose] > │ let v13 : int32 = v11 + 1 │
00:01:33 #3865 [verbose] > │ v9.l0 <- v13 │
00:01:33 #3866 [verbose] > │ () │
00:01:33 #3867 [verbose] > │ let v14 : int32 = v8.Length │
00:01:33 #3868 [verbose] > │ let v15 : (int32 []) = [|1; 3; 4; 6; 8; 9; 11|] │
00:01:33 #3869 [verbose] > │ let v16 : (int32 []) = [|1; 3; 4; 6; 8; 9; 11|] │
00:01:33 #3870 [verbose] > │ let v17 : (int32 []) = [|1; 3; 4; 6; 8; 9; 11|] │
00:01:33 #3871 [verbose] > │ let v18 : (int32 []) = [|1; 3; 4; 6; 8; 9; 11|] │
00:01:33 #3872 [verbose] > │ let v19 : (int32 []) = Array.zeroCreate<int32> (100) │
00:01:33 #3873 [verbose] > │ let v20 : Mut0 = {l0 = 0} : Mut0 │
00:01:33 #3874 [verbose] > │ while method1(v20) do │
00:01:33 #3875 [verbose] > │ let v22 : int32 = v20.l0 │
00:01:33 #3876 [verbose] > │ let v23 : int32 = 1 + v22 │
00:01:33 #3877 [verbose] > │ v19.[int v22] <- v23 │
00:01:33 #3878 [verbose] > │ let v24 : int32 = v22 + 1 │
00:01:33 #3879 [verbose] > │ v20.l0 <- v24 │
00:01:33 #3880 [verbose] > │ () │
00:01:33 #3881 [verbose] > │ let v25 : (unit -> unit) = closure0() │
00:01:33 #3882 [verbose] > │ let v26 : string = nameof v25 │
00:01:33 #3883 [verbose] > │ let v27 : string = "" │
00:01:33 #3884 [verbose] > │ System.Console.WriteLine v27 │
00:01:33 #3885 [verbose] > │ System.Console.WriteLine v27 │
00:01:33 #3886 [verbose] > │ let v28 : string = $"Test: {v26}" │
00:01:33 #3887 [verbose] > │ System.Console.WriteLine v28 │
00:01:33 #3888 [verbose] > │ let v29 : int32 = 6 │
00:01:33 #3889 [verbose] > │ let v30 : int32 = 3 │
00:01:33 #3890 [verbose] > │ let v31 : US0 = US0_0(v30) │
00:01:33 #3891 [verbose] > │ let v32 : int32 = 1 │
00:01:33 #3892 [verbose] > │ let v33 : int32 = 0 │
00:01:33 #3893 [verbose] > │ let v34 : US0 = US0_0(v33) │
00:01:33 #3894 [verbose] > │ let v35 : int32 = 11 │
00:01:33 #3895 [verbose] > │ let v36 : int32 = 6 │
00:01:33 #3896 [verbose] > │ let v37 : US0 = US0_0(v36) │
00:01:33 #3897 [verbose] > │ let v38 : int32 = 12 │
00:01:33 #3898 [verbose] > │ let v39 : US0 = US0_1 │
00:01:33 #3899 [verbose] > │ let v40 : int32 = 60 │
00:01:33 #3900 [verbose] > │ let v41 : int32 = 59 │
00:01:33 #3901 [verbose] > │ let v42 : US0 = US0_0(v41) │
00:01:33 #3902 [verbose] > │ let v43 : int32 = 6 │
00:01:33 #3903 [verbose] > │ let v44 : int32 = 7 │
00:01:33 #3904 [verbose] > │ let v45 : int32 = 3 │
00:01:33 #3905 [verbose] > │ let v46 : US0 = US0_0(v45) │
00:01:33 #3906 [verbose] > │ let v47 : int32 = 1 │
00:01:33 #3907 [verbose] > │ let v48 : int32 = 7 │
00:01:33 #3908 [verbose] > │ let v49 : int32 = 0 │
00:01:33 #3909 [verbose] > │ let v50 : US0 = US0_0(v49) │
00:01:33 #3910 [verbose] > │ let v51 : int32 = 11 │
00:01:33 #3911 [verbose] > │ let v52 : int32 = 7 │
00:01:33 #3912 [verbose] > │ let v53 : int32 = 6 │
00:01:33 #3913 [verbose] > │ let v54 : US0 = US0_0(v53) │
00:01:33 #3914 [verbose] > │ let v55 : int32 = 12 │
00:01:33 #3915 [verbose] > │ let v56 : int32 = 7 │
00:01:33 #3916 [verbose] > │ let v57 : US0 = US0_1 │
00:01:33 #3917 [verbose] > │ let v58 : int32 = 60 │
00:01:33 #3918 [verbose] > │ let v59 : int32 = 100 │
00:01:33 #3919 [verbose] > │ let v60 : int32 = 59 │
00:01:33 #3920 [verbose] > │ let v61 : US0 = US0_0(v60) │
00:01:33 #3921 [verbose] > │ let v62 : UH0 = UH0_0 │
00:01:33 #3922 [verbose] > │ let v63 : UH0 = UH0_1(v19, v58, v59, v61, v62) │
00:01:33 #3923 [verbose] > │ let v64 : UH0 = UH0_1(v18, v55, v56, v57, v63) │
00:01:33 #3924 [verbose] > │ let v65 : UH0 = UH0_1(v17, v51, v52, v54, v64) │
00:01:33 #3925 [verbose] > │ let v66 : UH0 = UH0_1(v16, v47, v48, v50, v65) │
00:01:33 #3926 [verbose] > │ let v67 : UH0 = UH0_1(v15, v43, v44, v46, v66) │
00:01:33 #3927 [verbose] > │ let v68 : UH0 = UH0_1(v8, v40, v14, v42, v67) │
00:01:33 #3928 [verbose] > │ let v69 : UH0 = UH0_1(v6, v38, v7, v39, v68) │
00:01:33 #3929 [verbose] > │ let v70 : UH0 = UH0_1(v4, v35, v5, v37, v69) │
00:01:33 #3930 [verbose] > │ let v71 : UH0 = UH0_1(v2, v32, v3, v34, v70) │
00:01:33 #3931 [verbose] > │ let v72 : UH0 = UH0_1(v0, v29, v1, v31, v71) │
00:01:33 #3932 [verbose] > │ let v73 : (struct ((int32 []) * int32 * int32 * US0) []) = method2(v72) │
00:01:33 #3933 [verbose] > │ let v74 : uint64 = System.Convert.ToUInt64 v73.Length │
00:01:33 #3934 [verbose] > │ let v75 : (struct (string * string * string * (int64 [])) []) = │
00:01:33 #3935 [verbose] > │ Array.zeroCreate<struct (string * string * string * (int64 []))> │
00:01:33 #3936 [verbose] > │ (System.Convert.ToInt32(v74)) │
00:01:33 #3937 [verbose] > │ let v76 : Mut1 = {l0 = 0UL} : Mut1 │
00:01:33 #3938 [verbose] > │ while method5(v74, v76) do │
00:01:33 #3939 [verbose] > │ let v78 : uint64 = v76.l0 │
00:01:33 #3940 [verbose] > │ let struct (v79 : (int32 []), v80 : int32, v81 : int32, v82 : US0) = │
00:01:33 #3941 [verbose] > │ v73.[int v78] │
00:01:33 #3942 [verbose] > │ let v83 : string = $"%A{struct (v79, v80, v81)}" │
00:01:33 #3943 [verbose] > │ System.Console.WriteLine v27 │
00:01:33 #3944 [verbose] > │ let v84 : string = $"Solution: {v83} " │
00:01:33 #3945 [verbose] > │ System.Console.WriteLine v84 │
00:01:33 #3946 [verbose] > │ let v85 : int32 = 0 │
00:01:33 #3947 [verbose] > │ let v86 : string = "semi_open_1" │
00:01:33 #3948 [verbose] > │ let v87 : (struct ((int32 []) * int32 * int32) -> US0) = closure1() │
00:01:33 #3949 [verbose] > │ let v88 : int32 = 1 │
00:01:33 #3950 [verbose] > │ let v89 : string = "closed_1" │
00:01:33 #3951 [verbose] > │ let v90 : (struct ((int32 []) * int32 * int32) -> US0) = closure2() │
00:01:33 #3952 [verbose] > │ let v91 : int32 = 2 │
00:01:33 #3953 [verbose] > │ let v92 : string = "semi_open_2" │
00:01:33 #3954 [verbose] > │ let v93 : (struct ((int32 []) * int32 * int32) -> US0) = closure3() │
00:01:33 #3955 [verbose] > │ let v94 : int32 = 3 │
00:01:33 #3956 [verbose] > │ let v95 : string = "closed_2" │
00:01:33 #3957 [verbose] > │ let v96 : (struct ((int32 []) * int32 * int32) -> US0) = closure4() │
00:01:33 #3958 [verbose] > │ let v97 : UH1 = UH1_0 │
00:01:33 #3959 [verbose] > │ let v98 : UH1 = UH1_1(v94, v95, v96, v97) │
00:01:33 #3960 [verbose] > │ let v99 : UH1 = UH1_1(v91, v92, v93, v98) │
00:01:33 #3961 [verbose] > │ let v100 : UH1 = UH1_1(v88, v89, v90, v99) │
00:01:33 #3962 [verbose] > │ let v101 : UH1 = UH1_1(v85, v86, v87, v100) │
00:01:33 #3963 [verbose] > │ let v102 : (struct (int32 * string * (struct ((int32 []) * int32 * │
00:01:33 #3964 [verbose] > │ int32) -> US0)) []) = method10(v101) │
00:01:33 #3965 [verbose] > │ let v103 : uint64 = System.Convert.ToUInt64 v102.Length │
00:01:33 #3966 [verbose] > │ let v104 : (struct (US0 * int64) []) = Array.zeroCreate<struct (US0 │
00:01:33 #3967 [verbose] > │ * int64)> (System.Convert.ToInt32(v103)) │
00:01:33 #3968 [verbose] > │ let v105 : Mut1 = {l0 = 0UL} : Mut1 │
00:01:33 #3969 [verbose] > │ while method5(v103, v105) do │
00:01:33 #3970 [verbose] > │ let v107 : uint64 = v105.l0 │
00:01:33 #3971 [verbose] > │ let struct (v108 : int32, v109 : string, v110 : (struct ((int32 │
00:01:33 #3972 [verbose] > │ []) * int32 * int32) -> US0)) = v102.[int v107] │
00:01:33 #3973 [verbose] > │ let v111 : unit option = None │
00:01:33 #3974 [verbose] > │ let mutable _v111 = v111 │
00:01:33 #3975 [verbose] > │ #if FABLE_COMPILER_RUST && !WASM && !CONTRACT │
00:01:33 #3976 [verbose] > │ () │
00:01:33 #3977 [verbose] > │ #endif │
00:01:33 #3978 [verbose] > │ #if FABLE_COMPILER_RUST && WASM │
00:01:33 #3979 [verbose] > │ () │
00:01:33 #3980 [verbose] > │ #endif │
00:01:33 #3981 [verbose] > │ #if FABLE_COMPILER_RUST && CONTRACT │
00:01:33 #3982 [verbose] > │ () │
00:01:33 #3983 [verbose] > │ #endif │
00:01:33 #3984 [verbose] > │ #if !FABLE_COMPILER && !FABLE_COMPILER_RUST && │
00:01:33 #3985 [verbose] > │ !FABLE_COMPILER_TYPESCRIPT && !WASM && !CONTRACT │
00:01:33 #3986 [verbose] > │ System.GC.Collect () │
00:01:33 #3987 [verbose] > │ () │
00:01:33 #3988 [verbose] > │ #endif │
00:01:33 #3989 [verbose] > │ #if FABLE_COMPILER_TYPESCRIPT │
00:01:33 #3990 [verbose] > │ () │
00:01:33 #3991 [verbose] > │ #endif │
00:01:33 #3992 [verbose] > │ #if FABLE_COMPILER_PYTHON || FABLE_COMPILER_PHP || │
00:01:33 #3993 [verbose] > │ FABLE_COMPILER_DART │
00:01:33 #3994 [verbose] > │ Unchecked.defaultof<unit> │
00:01:33 #3995 [verbose] > │ () │
00:01:33 #3996 [verbose] > │ #endif │
00:01:33 #3997 [verbose] > │ |> fun x -> _v111 <- Some x │
00:01:33 #3998 [verbose] > │ _v111.Value │
00:01:33 #3999 [verbose] > │ let v112 : (unit -> System.Diagnostics.Stopwatch) = │
00:01:33 #4000 [verbose] > │ System.Diagnostics.Stopwatch │
00:01:33 #4001 [verbose] > │ let v113 : System.Diagnostics.Stopwatch = v112 () │
00:01:33 #4002 [verbose] > │ v113.Start () │
00:01:33 #4003 [verbose] > │ let v114 : int64 = v113.ElapsedMilliseconds │
00:01:33 #4004 [verbose] > │ let v115 : (int32 []) = Array.zeroCreate<int32> (8000001) │
00:01:33 #4005 [verbose] > │ let v116 : Mut0 = {l0 = 0} : Mut0 │
00:01:33 #4006 [verbose] > │ while method13(v116) do │
00:01:33 #4007 [verbose] > │ let v118 : int32 = v116.l0 │
00:01:33 #4008 [verbose] > │ v115.[int v118] <- v118 │
00:01:33 #4009 [verbose] > │ let v119 : int32 = v118 + 1 │
00:01:33 #4010 [verbose] > │ v116.l0 <- v119 │
00:01:33 #4011 [verbose] > │ () │
00:01:33 #4012 [verbose] > │ let v120 : ((int32 -> US0) -> ((int32 []) -> (US0 []))) = │
00:01:33 #4013 [verbose] > │ Array.Parallel.map │
00:01:33 #4014 [verbose] > │ let v121 : (int32 -> US0) = closure5(v79, v80, v81, v110) │
00:01:33 #4015 [verbose] > │ let v122 : ((int32 []) -> (US0 [])) = v120 v121 │
00:01:33 #4016 [verbose] > │ let v123 : (US0 []) = v122 v115 │
00:01:33 #4017 [verbose] > │ let v124 : int32 = v123.Length │
00:01:33 #4018 [verbose] > │ let v125 : int32 = v124 - 1 │
00:01:33 #4019 [verbose] > │ let v126 : US0 = v123.[int v125] │
00:01:33 #4020 [verbose] > │ let v127 : int64 = v113.ElapsedMilliseconds │
00:01:33 #4021 [verbose] > │ let v128 : int64 = v127 - v114 │
00:01:33 #4022 [verbose] > │ let v129 : string = $"Test case {v108 + 1}. {v109}. Time: {v128} │
00:01:33 #4023 [verbose] > │ " │
00:01:33 #4024 [verbose] > │ System.Console.WriteLine v129 │
00:01:33 #4025 [verbose] > │ v104.[int v107] <- struct (v126, v128) │
00:01:33 #4026 [verbose] > │ let v130 : uint64 = v107 + 1UL │
00:01:33 #4027 [verbose] > │ v105.l0 <- v130 │
00:01:33 #4028 [verbose] > │ () │
00:01:33 #4029 [verbose] > │ let v131 : uint64 = System.Convert.ToUInt64 v104.Length │
00:01:33 #4030 [verbose] > │ let v132 : (US0 []) = Array.zeroCreate<US0> │
00:01:33 #4031 [verbose] > │ (System.Convert.ToInt32(v131)) │
00:01:33 #4032 [verbose] > │ let v133 : Mut1 = {l0 = 0UL} : Mut1 │
00:01:33 #4033 [verbose] > │ while method5(v131, v133) do │
00:01:33 #4034 [verbose] > │ let v135 : uint64 = v133.l0 │
00:01:33 #4035 [verbose] > │ let struct (v136 : US0, v137 : int64) = v104.[int v135] │
00:01:33 #4036 [verbose] > │ v132.[int v135] <- v136 │
00:01:33 #4037 [verbose] > │ let v138 : uint64 = v135 + 1UL │
00:01:33 #4038 [verbose] > │ v133.l0 <- v138 │
00:01:33 #4039 [verbose] > │ () │
00:01:33 #4040 [verbose] > │ let v139 : uint64 = System.Convert.ToUInt64 v132.Length │
00:01:33 #4041 [verbose] > │ let v140 : bool = v139 <= 1UL │
00:01:33 #4042 [verbose] > │ if v140 then │
00:01:33 #4043 [verbose] > │ () │
00:01:33 #4044 [verbose] > │ else │
00:01:33 #4045 [verbose] > │ let v141 : US0 = v132.[int 0UL] │
00:01:33 #4046 [verbose] > │ let v142 : uint64 = 0UL │
00:01:33 #4047 [verbose] > │ let v143 : bool = method14(v141, v132, v142) │
00:01:33 #4048 [verbose] > │ if v143 then │
00:01:33 #4049 [verbose] > │ () │
00:01:33 #4050 [verbose] > │ else │
00:01:33 #4051 [verbose] > │ let v144 : string = $"Challenge error: {v132}" │
00:01:33 #4052 [verbose] > │ failwith<unit> v144 │
00:01:33 #4053 [verbose] > │ let v145 : string = $"%A{v82}" │
00:01:33 #4054 [verbose] > │ let v146 : (US0 []) = Array.zeroCreate<US0> │
00:01:33 #4055 [verbose] > │ (System.Convert.ToInt32(v131)) │
00:01:33 #4056 [verbose] > │ let v147 : Mut1 = {l0 = 0UL} : Mut1 │
00:01:33 #4057 [verbose] > │ while method5(v131, v147) do │
00:01:33 #4058 [verbose] > │ let v149 : uint64 = v147.l0 │
00:01:33 #4059 [verbose] > │ let struct (v150 : US0, v151 : int64) = v104.[int v149] │
00:01:33 #4060 [verbose] > │ v146.[int v149] <- v150 │
00:01:33 #4061 [verbose] > │ let v152 : uint64 = v149 + 1UL │
00:01:33 #4062 [verbose] > │ v147.l0 <- v152 │
00:01:33 #4063 [verbose] > │ () │
00:01:33 #4064 [verbose] > │ let v153 : US0 = v146.[int 0UL] │
00:01:33 #4065 [verbose] > │ let v154 : string = $"%A{v153}" │
00:01:33 #4066 [verbose] > │ let v155 : (int64 []) = Array.zeroCreate<int64> │
00:01:33 #4067 [verbose] > │ (System.Convert.ToInt32(v131)) │
00:01:33 #4068 [verbose] > │ let v156 : Mut1 = {l0 = 0UL} : Mut1 │
00:01:33 #4069 [verbose] > │ while method5(v131, v156) do │
00:01:33 #4070 [verbose] > │ let v158 : uint64 = v156.l0 │
00:01:33 #4071 [verbose] > │ let struct (v159 : US0, v160 : int64) = v104.[int v158] │
00:01:33 #4072 [verbose] > │ v155.[int v158] <- v160 │
00:01:33 #4073 [verbose] > │ let v161 : uint64 = v158 + 1UL │
00:01:33 #4074 [verbose] > │ v156.l0 <- v161 │
00:01:33 #4075 [verbose] > │ () │
00:01:33 #4076 [verbose] > │ v75.[int v78] <- struct (v145, v83, v154, v155) │
00:01:33 #4077 [verbose] > │ let v162 : uint64 = v78 + 1UL │
00:01:33 #4078 [verbose] > │ v76.l0 <- v162 │
00:01:33 #4079 [verbose] > │ () │
00:01:33 #4080 [verbose] > │ let v163 : uint64 = System.Convert.ToUInt64 v75.Length │
00:01:33 #4081 [verbose] > │ let v164 : (struct (UH2 * US1) []) = Array.zeroCreate<struct (UH2 * │
00:01:33 #4082 [verbose] > │ US1)> (System.Convert.ToInt32(v163)) │
00:01:33 #4083 [verbose] > │ let v165 : Mut1 = {l0 = 0UL} : Mut1 │
00:01:33 #4084 [verbose] > │ while method5(v163, v165) do │
00:01:33 #4085 [verbose] > │ let v167 : uint64 = v165.l0 │
00:01:33 #4086 [verbose] > │ let struct (v168 : string, v169 : string, v170 : string, v171 : │
00:01:33 #4087 [verbose] > │ (int64 [])) = v75.[int v167] │
00:01:33 #4088 [verbose] > │ let v172 : uint64 = System.Convert.ToUInt64 v171.Length │
00:01:33 #4089 [verbose] > │ let v173 : UH3 = UH3_0 │
00:01:33 #4090 [verbose] > │ let v174 : Mut2 = {l0 = 0UL; l1 = v173; l2 = 0L} : Mut2 │
00:01:33 #4091 [verbose] > │ while method15(v172, v174) do │
00:01:33 #4092 [verbose] > │ let v176 : uint64 = v174.l0 │
00:01:33 #4093 [verbose] > │ let struct (v177 : UH3, v178 : int64) = v174.l1, v174.l2 │
00:01:33 #4094 [verbose] > │ let v179 : int64 = v171.[int v176] │
00:01:33 #4095 [verbose] > │ let v180 : int64 = v178 + 1L │
00:01:33 #4096 [verbose] > │ let v181 : uint64 = v176 + 1UL │
00:01:33 #4097 [verbose] > │ let v182 : UH3 = UH3_1(v178, v179, v177) │
00:01:33 #4098 [verbose] > │ v174.l0 <- v181 │
00:01:33 #4099 [verbose] > │ v174.l1 <- v182 │
00:01:33 #4100 [verbose] > │ v174.l2 <- v180 │
00:01:33 #4101 [verbose] > │ () │
00:01:33 #4102 [verbose] > │ let struct (v183 : UH3, v184 : int64) = v174.l1, v174.l2 │
00:01:33 #4103 [verbose] > │ let v185 : UH3 = UH3_0 │
00:01:33 #4104 [verbose] > │ let v186 : UH3 = method16(v183, v185) │
00:01:33 #4105 [verbose] > │ let v187 : (struct (int64 * int64) []) = method17(v186) │
00:01:33 #4106 [verbose] > │ let v188 : int32 = v187.Length │
00:01:33 #4107 [verbose] > │ let v189 : (struct (int64 * int64) []) = Array.zeroCreate<struct │
00:01:33 #4108 [verbose] > │ (int64 * int64)> (v188) │
00:01:33 #4109 [verbose] > │ let v190 : Mut0 = {l0 = 0} : Mut0 │
00:01:33 #4110 [verbose] > │ while method20(v188, v190) do │
00:01:33 #4111 [verbose] > │ let v192 : int32 = v190.l0 │
00:01:33 #4112 [verbose] > │ let struct (v193 : int64, v194 : int64) = v187.[int v192] │
00:01:33 #4113 [verbose] > │ let v195 : int64 = v193 + 1L │
00:01:33 #4114 [verbose] > │ v189.[int v192] <- struct (v195, v194) │
00:01:33 #4115 [verbose] > │ let v196 : int32 = v192 + 1 │
00:01:33 #4116 [verbose] > │ v190.l0 <- v196 │
00:01:33 #4117 [verbose] > │ () │
00:01:33 #4118 [verbose] > │ let v197 : ((struct (int64 * int64) -> int64) -> ((struct (int64 * │
00:01:33 #4119 [verbose] > │ int64) []) -> (struct (int64 * int64) []))) = Array.sortBy │
00:01:33 #4120 [verbose] > │ let v198 : (struct (int64 * int64) -> int64) = closure6() │
00:01:33 #4121 [verbose] > │ let v199 : ((struct (int64 * int64) []) -> (struct (int64 * int64) [ │
00:01:33 #4122 [verbose] > │ ])) = v197 v198 │
00:01:33 #4123 [verbose] > │ let v200 : (struct (int64 * int64) []) = v199 v189 │
00:01:33 #4124 [verbose] > │ let struct (v201 : int64, v202 : int64) = v200.[int 0] │
00:01:33 #4125 [verbose] > │ let v203 : string = $"%A{struct (v201, v202)}" │
00:01:33 #4126 [verbose] > │ let v204 : bool = v168 = v170 │
00:01:33 #4127 [verbose] > │ let v209 : US1 = │
00:01:33 #4128 [verbose] > │ if v204 then │
00:01:33 #4129 [verbose] > │ let v205 : System.ConsoleColor = │
00:01:33 #4130 [verbose] > │ System.ConsoleColor.DarkGreen │
00:01:33 #4131 [verbose] > │ US1_0(v205) │
00:01:33 #4132 [verbose] > │ else │
00:01:33 #4133 [verbose] > │ let v207 : System.ConsoleColor = System.ConsoleColor.DarkRed │
00:01:33 #4134 [verbose] > │ US1_0(v207) │
00:01:33 #4135 [verbose] > │ let v210 : UH2 = UH2_0 │
00:01:33 #4136 [verbose] > │ let v211 : UH2 = UH2_1(v203, v210) │
00:01:33 #4137 [verbose] > │ let v212 : UH2 = UH2_1(v170, v211) │
00:01:33 #4138 [verbose] > │ let v213 : UH2 = UH2_1(v168, v212) │
00:01:33 #4139 [verbose] > │ let v214 : UH2 = UH2_1(v169, v213) │
00:01:33 #4140 [verbose] > │ v164.[int v167] <- struct (v214, v209) │
00:01:33 #4141 [verbose] > │ let v215 : uint64 = v167 + 1UL │
00:01:33 #4142 [verbose] > │ v165.l0 <- v215 │
00:01:33 #4143 [verbose] > │ () │
00:01:33 #4144 [verbose] > │ let v216 : string = "Input" │
00:01:33 #4145 [verbose] > │ let v217 : string = "Expected" │
00:01:33 #4146 [verbose] > │ let v218 : string = "Result" │
00:01:33 #4147 [verbose] > │ let v219 : string = "Best" │
00:01:33 #4148 [verbose] > │ let v220 : UH2 = UH2_0 │
00:01:33 #4149 [verbose] > │ let v221 : UH2 = UH2_1(v219, v220) │
00:01:33 #4150 [verbose] > │ let v222 : UH2 = UH2_1(v218, v221) │
00:01:33 #4151 [verbose] > │ let v223 : UH2 = UH2_1(v217, v222) │
00:01:33 #4152 [verbose] > │ let v224 : UH2 = UH2_1(v216, v223) │
00:01:33 #4153 [verbose] > │ let v225 : US1 = US1_1 │
00:01:33 #4154 [verbose] > │ let v226 : string = "---" │
00:01:33 #4155 [verbose] > │ let v227 : UH2 = UH2_0 │
00:01:33 #4156 [verbose] > │ let v228 : UH2 = UH2_1(v226, v227) │
00:01:33 #4157 [verbose] > │ let v229 : UH2 = UH2_1(v226, v228) │
00:01:33 #4158 [verbose] > │ let v230 : UH2 = UH2_1(v226, v229) │
00:01:33 #4159 [verbose] > │ let v231 : UH2 = UH2_1(v226, v230) │
00:01:33 #4160 [verbose] > │ let v232 : US1 = US1_1 │
00:01:33 #4161 [verbose] > │ let v233 : UH4 = UH4_0 │
00:01:33 #4162 [verbose] > │ let v234 : UH4 = UH4_1(v231, v232, v233) │
00:01:33 #4163 [verbose] > │ let v235 : UH4 = UH4_1(v224, v225, v234) │
00:01:33 #4164 [verbose] > │ let v236 : (struct (UH2 * US1) []) = method21(v235) │
00:01:33 #4165 [verbose] > │ let v237 : uint64 = System.Convert.ToUInt64 v236.Length │
00:01:33 #4166 [verbose] > │ let v238 : uint64 = System.Convert.ToUInt64 v164.Length │
00:01:33 #4167 [verbose] > │ let v239 : uint64 = v237 + v238 │
00:01:33 #4168 [verbose] > │ let v240 : (struct (UH2 * US1) []) = Array.zeroCreate<struct (UH2 * │
00:01:33 #4169 [verbose] > │ US1)> (System.Convert.ToInt32(v239)) │
00:01:33 #4170 [verbose] > │ let v241 : Mut1 = {l0 = 0UL} : Mut1 │
00:01:33 #4171 [verbose] > │ while method5(v239, v241) do │
00:01:33 #4172 [verbose] > │ let v243 : uint64 = v241.l0 │
00:01:33 #4173 [verbose] > │ let v244 : bool = v243 < v237 │
00:01:33 #4174 [verbose] > │ let struct (v250 : UH2, v251 : US1) = │
00:01:33 #4175 [verbose] > │ if v244 then │
00:01:33 #4176 [verbose] > │ let struct (v245 : UH2, v246 : US1) = v236.[int v243] │
00:01:33 #4177 [verbose] > │ struct (v245, v246) │
00:01:33 #4178 [verbose] > │ else │
00:01:33 #4179 [verbose] > │ let v247 : uint64 = v243 - v237 │
00:01:33 #4180 [verbose] > │ let struct (v248 : UH2, v249 : US1) = v164.[int v247] │
00:01:33 #4181 [verbose] > │ struct (v248, v249) │
00:01:33 #4182 [verbose] > │ v240.[int v243] <- struct (v250, v251) │
00:01:33 #4183 [verbose] > │ let v252 : uint64 = v243 + 1UL │
00:01:33 #4184 [verbose] > │ v241.l0 <- v252 │
00:01:33 #4185 [verbose] > │ () │
00:01:33 #4186 [verbose] > │ let v253 : uint64 = System.Convert.ToUInt64 v240.Length │
00:01:33 #4187 [verbose] > │ let v254 : ((string []) []) = Array.zeroCreate<(string [])> │
00:01:33 #4188 [verbose] > │ (System.Convert.ToInt32(v253)) │
00:01:33 #4189 [verbose] > │ let v255 : Mut1 = {l0 = 0UL} : Mut1 │
00:01:33 #4190 [verbose] > │ while method5(v253, v255) do │
00:01:33 #4191 [verbose] > │ let v257 : uint64 = v255.l0 │
00:01:33 #4192 [verbose] > │ let struct (v258 : UH2, v259 : US1) = v240.[int v257] │
00:01:33 #4193 [verbose] > │ let v260 : (string []) = method24(v258) │
00:01:33 #4194 [verbose] > │ v254.[int v257] <- v260 │
00:01:33 #4195 [verbose] > │ let v261 : uint64 = v257 + 1UL │
00:01:33 #4196 [verbose] > │ v255.l0 <- v261 │
00:01:33 #4197 [verbose] > │ () │
00:01:33 #4198 [verbose] > │ let v262 : (((string []) []) -> ((string []) [])) = Array.transpose │
00:01:33 #4199 [verbose] > │ let v263 : ((string []) []) = v262 v254 │
00:01:33 #4200 [verbose] > │ let v264 : uint64 = System.Convert.ToUInt64 v263.Length │
00:01:33 #4201 [verbose] > │ let v265 : (int64 []) = Array.zeroCreate<int64> │
00:01:33 #4202 [verbose] > │ (System.Convert.ToInt32(v264)) │
00:01:33 #4203 [verbose] > │ let v266 : Mut1 = {l0 = 0UL} : Mut1 │
00:01:33 #4204 [verbose] > │ while method5(v264, v266) do │
00:01:33 #4205 [verbose] > │ let v268 : uint64 = v266.l0 │
00:01:33 #4206 [verbose] > │ let v269 : (string []) = v263.[int v268] │
00:01:33 #4207 [verbose] > │ let v270 : uint64 = System.Convert.ToUInt64 v269.Length │
00:01:33 #4208 [verbose] > │ let v271 : (int64 []) = Array.zeroCreate<int64> │
00:01:33 #4209 [verbose] > │ (System.Convert.ToInt32(v270)) │
00:01:33 #4210 [verbose] > │ let v272 : Mut1 = {l0 = 0UL} : Mut1 │
00:01:33 #4211 [verbose] > │ while method5(v270, v272) do │
00:01:33 #4212 [verbose] > │ let v274 : uint64 = v272.l0 │
00:01:33 #4213 [verbose] > │ let v275 : string = v269.[int v274] │
00:01:33 #4214 [verbose] > │ let v276 : int64 = System.Convert.ToInt64 v275.Length │
00:01:33 #4215 [verbose] > │ v271.[int v274] <- v276 │
00:01:33 #4216 [verbose] > │ let v277 : uint64 = v274 + 1UL │
00:01:33 #4217 [verbose] > │ v272.l0 <- v277 │
00:01:33 #4218 [verbose] > │ () │
00:01:33 #4219 [verbose] > │ let v278 : ((int64 []) -> (int64 [])) = Array.sortDescending │
00:01:33 #4220 [verbose] > │ let v279 : (int64 []) = v278 v271 │
00:01:33 #4221 [verbose] > │ let v280 : (int32 -> ((int64 []) -> int64 option)) = Array.tryItem │
00:01:33 #4222 [verbose] > │ let v281 : ((int64 []) -> int64 option) = v280 0 │
00:01:33 #4223 [verbose] > │ let v282 : int64 option = v281 v279 │
00:01:33 #4224 [verbose] > │ let v283 : (int64 -> US2) = method27() │
00:01:33 #4225 [verbose] > │ let v284 : US2 = US2_1 │
00:01:33 #4226 [verbose] > │ let v285 : US2 = v282 |> Option.map v283 |> Option.defaultValue v284 │
00:01:33 #4227 [verbose] > │ let v288 : int64 = │
00:01:33 #4228 [verbose] > │ match v285 with │
00:01:33 #4229 [verbose] > │ | US2_1 -> (* None *) │
00:01:33 #4230 [verbose] > │ 0L │
00:01:33 #4231 [verbose] > │ | US2_0(v286) -> (* Some *) │
00:01:33 #4232 [verbose] > │ v286 │
00:01:33 #4233 [verbose] > │ v265.[int v268] <- v288 │
00:01:33 #4234 [verbose] > │ let v289 : uint64 = v268 + 1UL │
00:01:33 #4235 [verbose] > │ v266.l0 <- v289 │
00:01:33 #4236 [verbose] > │ () │
00:01:33 #4237 [verbose] > │ let v290 : uint64 = System.Convert.ToUInt64 v265.Length │
00:01:33 #4238 [verbose] > │ let v291 : UH5 = UH5_0 │
00:01:33 #4239 [verbose] > │ let v292 : Mut3 = {l0 = 0UL; l1 = v291; l2 = 0} : Mut3 │
00:01:33 #4240 [verbose] > │ while method28(v290, v292) do │
00:01:33 #4241 [verbose] > │ let v294 : uint64 = v292.l0 │
00:01:33 #4242 [verbose] > │ let struct (v295 : UH5, v296 : int32) = v292.l1, v292.l2 │
00:01:33 #4243 [verbose] > │ let v297 : int64 = v265.[int v294] │
00:01:33 #4244 [verbose] > │ let v298 : int32 = v296 + 1 │
00:01:33 #4245 [verbose] > │ let v299 : uint64 = v294 + 1UL │
00:01:33 #4246 [verbose] > │ let v300 : UH5 = UH5_1(v296, v297, v295) │
00:01:33 #4247 [verbose] > │ v292.l0 <- v299 │
00:01:33 #4248 [verbose] > │ v292.l1 <- v300 │
00:01:33 #4249 [verbose] > │ v292.l2 <- v298 │
00:01:33 #4250 [verbose] > │ () │
00:01:33 #4251 [verbose] > │ let struct (v301 : UH5, v302 : int32) = v292.l1, v292.l2 │
00:01:33 #4252 [verbose] > │ let v303 : UH5 = UH5_0 │
00:01:33 #4253 [verbose] > │ let v304 : UH5 = method29(v301, v303) │
00:01:33 #4254 [verbose] > │ let v305 : (struct (int32 * int64) []) = method30(v304) │
00:01:33 #4255 [verbose] > │ let v306 : Map<int32, int64> = v305 |> Array.map (fun (struct (a, b)) -> │
00:01:33 #4256 [verbose] > │ a, b) |> Map.ofArray │
00:01:33 #4257 [verbose] > │ let v307 : (struct ((string []) * US1) []) = Array.zeroCreate<struct │
00:01:33 #4258 [verbose] > │ ((string []) * US1)> (System.Convert.ToInt32(v253)) │
00:01:33 #4259 [verbose] > │ let v308 : Mut1 = {l0 = 0UL} : Mut1 │
00:01:33 #4260 [verbose] > │ while method5(v253, v308) do │
00:01:33 #4261 [verbose] > │ let v310 : uint64 = v308.l0 │
00:01:33 #4262 [verbose] > │ let struct (v311 : UH2, v312 : US1) = v240.[int v310] │
00:01:33 #4263 [verbose] > │ let v313 : UH6 = UH6_0 │
00:01:33 #4264 [verbose] > │ let v314 : int32 = 0 │
00:01:33 #4265 [verbose] > │ let struct (v315 : UH6, v316 : int32) = method33(v311, v313, v314) │
00:01:33 #4266 [verbose] > │ let v317 : UH6 = UH6_0 │
00:01:33 #4267 [verbose] > │ let v318 : UH6 = method34(v315, v317) │
00:01:33 #4268 [verbose] > │ let v319 : UH2 = UH2_0 │
00:01:33 #4269 [verbose] > │ let v320 : UH2 = method35(v306, v318, v319) │
00:01:33 #4270 [verbose] > │ let v321 : (string []) = method36(v320) │
00:01:33 #4271 [verbose] > │ v307.[int v310] <- struct (v321, v312) │
00:01:33 #4272 [verbose] > │ let v322 : uint64 = v310 + 1UL │
00:01:33 #4273 [verbose] > │ v308.l0 <- v322 │
00:01:33 #4274 [verbose] > │ () │
00:01:33 #4275 [verbose] > │ System.Console.WriteLine v27 │
00:01:33 #4276 [verbose] > │ let v323 : uint64 = System.Convert.ToUInt64 v307.Length │
00:01:33 #4277 [verbose] > │ let v324 : Mut1 = {l0 = 0UL} : Mut1 │
00:01:33 #4278 [verbose] > │ while method5(v323, v324) do │
00:01:33 #4279 [verbose] > │ let v326 : uint64 = v324.l0 │
00:01:33 #4280 [verbose] > │ let struct (v327 : (string []), v328 : US1) = v307.[int v326] │
00:01:33 #4281 [verbose] > │ match v328 with │
00:01:33 #4282 [verbose] > │ | US1_1 -> (* None *) │
00:01:33 #4283 [verbose] > │ let v331 : unit option = None │
00:01:33 #4284 [verbose] > │ let mutable _v331 = v331 │
00:01:33 #4285 [verbose] > │ #if FABLE_COMPILER_RUST && !WASM && !CONTRACT │
00:01:33 #4286 [verbose] > │ () │
00:01:33 #4287 [verbose] > │ #endif │
00:01:33 #4288 [verbose] > │ #if FABLE_COMPILER_RUST && WASM │
00:01:33 #4289 [verbose] > │ () │
00:01:33 #4290 [verbose] > │ #endif │
00:01:33 #4291 [verbose] > │ #if FABLE_COMPILER_RUST && CONTRACT │
00:01:33 #4292 [verbose] > │ () │
00:01:33 #4293 [verbose] > │ #endif │
00:01:33 #4294 [verbose] > │ #if !FABLE_COMPILER && !FABLE_COMPILER_RUST && │
00:01:33 #4295 [verbose] > │ !FABLE_COMPILER_TYPESCRIPT && !WASM && !CONTRACT │
00:01:33 #4296 [verbose] > │ System.Console.ResetColor () │
00:01:33 #4297 [verbose] > │ () │
00:01:33 #4298 [verbose] > │ #endif │
00:01:33 #4299 [verbose] > │ #if FABLE_COMPILER_TYPESCRIPT │
00:01:33 #4300 [verbose] > │ () │
00:01:33 #4301 [verbose] > │ #endif │
00:01:33 #4302 [verbose] > │ #if FABLE_COMPILER_PYTHON || FABLE_COMPILER_PHP || │
00:01:33 #4303 [verbose] > │ FABLE_COMPILER_DART │
00:01:33 #4304 [verbose] > │ Unchecked.defaultof<unit> │
00:01:33 #4305 [verbose] > │ () │
00:01:33 #4306 [verbose] > │ #endif │
00:01:33 #4307 [verbose] > │ |> fun x -> _v331 <- Some x │
00:01:33 #4308 [verbose] > │ _v331.Value │
00:01:33 #4309 [verbose] > │ () │
00:01:33 #4310 [verbose] > │ | US1_0(v329) -> (* Some *) │
00:01:33 #4311 [verbose] > │ let v330 : unit option = None │
00:01:33 #4312 [verbose] > │ let mutable _v330 = v330 │
00:01:33 #4313 [verbose] > │ #if FABLE_COMPILER_RUST && !WASM && !CONTRACT │
00:01:33 #4314 [verbose] > │ () │
00:01:33 #4315 [verbose] > │ #endif │
00:01:33 #4316 [verbose] > │ #if FABLE_COMPILER_RUST && WASM │
00:01:33 #4317 [verbose] > │ () │
00:01:33 #4318 [verbose] > │ #endif │
00:01:33 #4319 [verbose] > │ #if FABLE_COMPILER_RUST && CONTRACT │
00:01:33 #4320 [verbose] > │ () │
00:01:33 #4321 [verbose] > │ #endif │
00:01:33 #4322 [verbose] > │ #if !FABLE_COMPILER && !FABLE_COMPILER_RUST && │
00:01:33 #4323 [verbose] > │ !FABLE_COMPILER_TYPESCRIPT && !WASM && !CONTRACT │
00:01:33 #4324 [verbose] > │ System.Console.ForegroundColor <- v329 │
00:01:33 #4325 [verbose] > │ () │
00:01:33 #4326 [verbose] > │ #endif │
00:01:33 #4327 [verbose] > │ #if FABLE_COMPILER_TYPESCRIPT │
00:01:33 #4328 [verbose] > │ () │
00:01:33 #4329 [verbose] > │ #endif │
00:01:33 #4330 [verbose] > │ #if FABLE_COMPILER_PYTHON || FABLE_COMPILER_PHP || │
00:01:33 #4331 [verbose] > │ FABLE_COMPILER_DART │
00:01:33 #4332 [verbose] > │ Unchecked.defaultof<unit> │
00:01:33 #4333 [verbose] > │ () │
00:01:33 #4334 [verbose] > │ #endif │
00:01:33 #4335 [verbose] > │ |> fun x -> _v330 <- Some x │
00:01:33 #4336 [verbose] > │ _v330.Value │
00:01:33 #4337 [verbose] > │ () │
00:01:33 #4338 [verbose] > │ let v332 : string = "\t| " │
00:01:33 #4339 [verbose] > │ let v333 : string = System.String.Join (v332, v327) │
00:01:33 #4340 [verbose] > │ System.Console.WriteLine v333 │
00:01:33 #4341 [verbose] > │ let v334 : unit option = None │
00:01:33 #4342 [verbose] > │ let mutable _v334 = v334 │
00:01:33 #4343 [verbose] > │ #if FABLE_COMPILER_RUST && !WASM && !CONTRACT │
00:01:33 #4344 [verbose] > │ () │
00:01:33 #4345 [verbose] > │ #endif │
00:01:33 #4346 [verbose] > │ #if FABLE_COMPILER_RUST && WASM │
00:01:33 #4347 [verbose] > │ () │
00:01:33 #4348 [verbose] > │ #endif │
00:01:33 #4349 [verbose] > │ #if FABLE_COMPILER_RUST && CONTRACT │
00:01:33 #4350 [verbose] > │ () │
00:01:33 #4351 [verbose] > │ #endif │
00:01:33 #4352 [verbose] > │ #if !FABLE_COMPILER && !FABLE_COMPILER_RUST && │
00:01:33 #4353 [verbose] > │ !FABLE_COMPILER_TYPESCRIPT && !WASM && !CONTRACT │
00:01:33 #4354 [verbose] > │ System.Console.ResetColor () │
00:01:33 #4355 [verbose] > │ () │
00:01:33 #4356 [verbose] > │ #endif │
00:01:33 #4357 [verbose] > │ #if FABLE_COMPILER_TYPESCRIPT │
00:01:33 #4358 [verbose] > │ () │
00:01:33 #4359 [verbose] > │ #endif │
00:01:33 #4360 [verbose] > │ #if FABLE_COMPILER_PYTHON || FABLE_COMPILER_PHP || │
00:01:33 #4361 [verbose] > │ FABLE_COMPILER_DART │
00:01:33 #4362 [verbose] > │ Unchecked.defaultof<unit> │
00:01:33 #4363 [verbose] > │ () │
00:01:33 #4364 [verbose] > │ #endif │
00:01:33 #4365 [verbose] > │ |> fun x -> _v334 <- Some x │
00:01:33 #4366 [verbose] > │ _v334.Value │
00:01:33 #4367 [verbose] > │ let v335 : uint64 = v326 + 1UL │
00:01:33 #4368 [verbose] > │ v324.l0 <- v335 │
00:01:33 #4369 [verbose] > │ () │
00:01:33 #4370 [verbose] > │ let v336 : ((float []) []) = Array.zeroCreate<(float [])> │
00:01:33 #4371 [verbose] > │ (System.Convert.ToInt32(v163)) │
00:01:33 #4372 [verbose] > │ let v337 : Mut1 = {l0 = 0UL} : Mut1 │
00:01:33 #4373 [verbose] > │ while method5(v163, v337) do │
00:01:33 #4374 [verbose] > │ let v339 : uint64 = v337.l0 │
00:01:33 #4375 [verbose] > │ let struct (v340 : string, v341 : string, v342 : string, v343 : │
00:01:33 #4376 [verbose] > │ (int64 [])) = v75.[int v339] │
00:01:33 #4377 [verbose] > │ let v344 : (int64 -> float) = float │
00:01:33 #4378 [verbose] > │ let v345 : uint64 = System.Convert.ToUInt64 v343.Length │
00:01:33 #4379 [verbose] > │ let v346 : (float []) = Array.zeroCreate<float> │
00:01:33 #4380 [verbose] > │ (System.Convert.ToInt32(v345)) │
00:01:33 #4381 [verbose] > │ let v347 : Mut1 = {l0 = 0UL} : Mut1 │
00:01:33 #4382 [verbose] > │ while method5(v345, v347) do │
00:01:33 #4383 [verbose] > │ let v349 : uint64 = v347.l0 │
00:01:33 #4384 [verbose] > │ let v350 : int64 = v343.[int v349] │
00:01:33 #4385 [verbose] > │ let v351 : float = v344 v350 │
00:01:33 #4386 [verbose] > │ v346.[int v349] <- v351 │
00:01:33 #4387 [verbose] > │ let v352 : uint64 = v349 + 1UL │
00:01:33 #4388 [verbose] > │ v347.l0 <- v352 │
00:01:33 #4389 [verbose] > │ () │
00:01:33 #4390 [verbose] > │ v336.[int v339] <- v346 │
00:01:33 #4391 [verbose] > │ let v353 : uint64 = v339 + 1UL │
00:01:33 #4392 [verbose] > │ v337.l0 <- v353 │
00:01:33 #4393 [verbose] > │ () │
00:01:33 #4394 [verbose] > │ let v354 : (((float []) []) -> ((float []) [])) = Array.transpose │
00:01:33 #4395 [verbose] > │ let v355 : ((float []) []) = v354 v336 │
00:01:33 #4396 [verbose] > │ let v356 : uint64 = System.Convert.ToUInt64 v355.Length │
00:01:33 #4397 [verbose] > │ let v357 : (float []) = Array.zeroCreate<float> │
00:01:33 #4398 [verbose] > │ (System.Convert.ToInt32(v356)) │
00:01:33 #4399 [verbose] > │ let v358 : Mut1 = {l0 = 0UL} : Mut1 │
00:01:33 #4400 [verbose] > │ while method5(v356, v358) do │
00:01:33 #4401 [verbose] > │ let v360 : uint64 = v358.l0 │
00:01:33 #4402 [verbose] > │ let v361 : (float []) = v355.[int v360] │
00:01:33 #4403 [verbose] > │ let v362 : ((float []) -> float) = Array.average │
00:01:33 #4404 [verbose] > │ let v363 : float = v362 v361 │
00:01:33 #4405 [verbose] > │ v357.[int v360] <- v363 │
00:01:33 #4406 [verbose] > │ let v364 : uint64 = v360 + 1UL │
00:01:33 #4407 [verbose] > │ v358.l0 <- v364 │
00:01:33 #4408 [verbose] > │ () │
00:01:33 #4409 [verbose] > │ let v365 : (float -> int64) = int64 │
00:01:33 #4410 [verbose] > │ let v366 : uint64 = System.Convert.ToUInt64 v357.Length │
00:01:33 #4411 [verbose] > │ let v367 : (int64 []) = Array.zeroCreate<int64> │
00:01:33 #4412 [verbose] > │ (System.Convert.ToInt32(v366)) │
00:01:33 #4413 [verbose] > │ let v368 : Mut1 = {l0 = 0UL} : Mut1 │
00:01:33 #4414 [verbose] > │ while method5(v366, v368) do │
00:01:33 #4415 [verbose] > │ let v370 : uint64 = v368.l0 │
00:01:33 #4416 [verbose] > │ let v371 : float = v357.[int v370] │
00:01:33 #4417 [verbose] > │ let v372 : int64 = v365 v371 │
00:01:33 #4418 [verbose] > │ v367.[int v370] <- v372 │
00:01:33 #4419 [verbose] > │ let v373 : uint64 = v370 + 1UL │
00:01:33 #4420 [verbose] > │ v368.l0 <- v373 │
00:01:33 #4421 [verbose] > │ () │
00:01:33 #4422 [verbose] > │ let v374 : uint64 = System.Convert.ToUInt64 v367.Length │
00:01:33 #4423 [verbose] > │ let v375 : UH5 = UH5_0 │
00:01:33 #4424 [verbose] > │ let v376 : Mut3 = {l0 = 0UL; l1 = v375; l2 = 0} : Mut3 │
00:01:33 #4425 [verbose] > │ while method28(v374, v376) do │
00:01:33 #4426 [verbose] > │ let v378 : uint64 = v376.l0 │
00:01:33 #4427 [verbose] > │ let struct (v379 : UH5, v380 : int32) = v376.l1, v376.l2 │
00:01:33 #4428 [verbose] > │ let v381 : int64 = v367.[int v378] │
00:01:33 #4429 [verbose] > │ let v382 : int32 = v380 + 1 │
00:01:33 #4430 [verbose] > │ let v383 : uint64 = v378 + 1UL │
00:01:33 #4431 [verbose] > │ let v384 : UH5 = UH5_1(v380, v381, v379) │
00:01:33 #4432 [verbose] > │ v376.l0 <- v383 │
00:01:33 #4433 [verbose] > │ v376.l1 <- v384 │
00:01:33 #4434 [verbose] > │ v376.l2 <- v382 │
00:01:33 #4435 [verbose] > │ () │
00:01:33 #4436 [verbose] > │ let struct (v385 : UH5, v386 : int32) = v376.l1, v376.l2 │
00:01:33 #4437 [verbose] > │ let v387 : UH5 = UH5_0 │
00:01:33 #4438 [verbose] > │ let v388 : UH5 = method29(v385, v387) │
00:01:33 #4439 [verbose] > │ let v389 : (struct (int32 * int64) []) = method39(v388) │
00:01:33 #4440 [verbose] > │ System.Console.WriteLine v27 │
00:01:33 #4441 [verbose] > │ let v390 : string = "Average Ranking " │
00:01:33 #4442 [verbose] > │ System.Console.WriteLine v390 │
00:01:33 #4443 [verbose] > │ let v391 : ((struct (int32 * int64) -> int64) -> ((struct (int32 * │
00:01:33 #4444 [verbose] > │ int64) []) -> (struct (int32 * int64) []))) = Array.sortBy │
00:01:33 #4445 [verbose] > │ let v392 : (struct (int32 * int64) -> int64) = closure8() │
00:01:33 #4446 [verbose] > │ let v393 : ((struct (int32 * int64) []) -> (struct (int32 * int64) [])) │
00:01:33 #4447 [verbose] > │ = v391 v392 │
00:01:33 #4448 [verbose] > │ let v394 : (struct (int32 * int64) []) = v393 v389 │
00:01:33 #4449 [verbose] > │ let v395 : uint64 = System.Convert.ToUInt64 v394.Length │
00:01:33 #4450 [verbose] > │ let v396 : Mut1 = {l0 = 0UL} : Mut1 │
00:01:33 #4451 [verbose] > │ while method5(v395, v396) do │
00:01:33 #4452 [verbose] > │ let v398 : uint64 = v396.l0 │
00:01:33 #4453 [verbose] > │ let struct (v399 : int32, v400 : int64) = v394.[int v398] │
00:01:33 #4454 [verbose] > │ let v401 : string = $"Test case %d{v399 + 1}. Average Time: %A{v400} │
00:01:33 #4455 [verbose] > │ " │
00:01:33 #4456 [verbose] > │ System.Console.WriteLine v401 │
00:01:33 #4457 [verbose] > │ let v402 : uint64 = v398 + 1UL │
00:01:33 #4458 [verbose] > │ v396.l0 <- v402 │
00:01:33 #4459 [verbose] > │ () │
00:01:33 #4460 [verbose] > │ () │
00:01:33 #4461 [verbose] > │ and method0 () : unit = │
00:01:33 #4462 [verbose] > │ let v0 : (int32 []) = [|1; 3; 4; 6; 8; 9; 11|] │
00:01:33 #4463 [verbose] > │ let v1 : int32 = v0.Length │
00:01:33 #4464 [verbose] > │ let v2 : (int32 []) = [|1; 3; 4; 6; 8; 9; 11|] │
00:01:33 #4465 [verbose] > │ let v3 : int32 = v2.Length │
00:01:33 #4466 [verbose] > │ let v4 : (int32 []) = [|1; 3; 4; 6; 8; 9; 11|] │
00:01:33 #4467 [verbose] > │ let v5 : int32 = v4.Length │
00:01:33 #4468 [verbose] > │ let v6 : (int32 []) = [|1; 3; 4; 6; 8; 9; 11|] │
00:01:33 #4469 [verbose] > │ let v7 : int32 = v6.Length │
00:01:33 #4470 [verbose] > │ let v8 : (int32 []) = Array.zeroCreate<int32> (100) │
00:01:33 #4471 [verbose] > │ let v9 : Mut0 = {l0 = 0} : Mut0 │
00:01:33 #4472 [verbose] > │ while method1(v9) do │
00:01:33 #4473 [verbose] > │ let v11 : int32 = v9.l0 │
00:01:33 #4474 [verbose] > │ let v12 : int32 = 1 + v11 │
00:01:33 #4475 [verbose] > │ v8.[int v11] <- v12 │
00:01:33 #4476 [verbose] > │ let v13 : int32 = v11 + 1 │
00:01:33 #4477 [verbose] > │ v9.l0 <- v13 │
00:01:33 #4478 [verbose] > │ () │
00:01:33 #4479 [verbose] > │ let v14 : int32 = v8.Length │
00:01:33 #4480 [verbose] > │ let v15 : (int32 []) = [|1; 3; 4; 6; 8; 9; 11|] │
00:01:33 #4481 [verbose] > │ let v16 : (int32 []) = [|1; 3; 4; 6; 8; 9; 11|] │
00:01:33 #4482 [verbose] > │ let v17 : (int32 []) = [|1; 3; 4; 6; 8; 9; 11|] │
00:01:33 #4483 [verbose] > │ let v18 : (int32 []) = [|1; 3; 4; 6; 8; 9; 11|] │
00:01:33 #4484 [verbose] > │ let v19 : (int32 []) = Array.zeroCreate<int32> (100) │
00:01:33 #4485 [verbose] > │ let v20 : Mut0 = {l0 = 0} : Mut0 │
00:01:33 #4486 [verbose] > │ while method1(v20) do │
00:01:33 #4487 [verbose] > │ let v22 : int32 = v20.l0 │
00:01:33 #4488 [verbose] > │ let v23 : int32 = 1 + v22 │
00:01:33 #4489 [verbose] > │ v19.[int v22] <- v23 │
00:01:33 #4490 [verbose] > │ let v24 : int32 = v22 + 1 │
00:01:33 #4491 [verbose] > │ v20.l0 <- v24 │
00:01:33 #4492 [verbose] > │ () │
00:01:33 #4493 [verbose] > │ let v25 : (unit -> unit) = closure0() │
00:01:33 #4494 [verbose] > │ let v26 : string = nameof v25 │
00:01:33 #4495 [verbose] > │ let v27 : string = "" │
00:01:33 #4496 [verbose] > │ System.Console.WriteLine v27 │
00:01:33 #4497 [verbose] > │ System.Console.WriteLine v27 │
00:01:33 #4498 [verbose] > │ let v28 : string = $"Test: {v26}" │
00:01:33 #4499 [verbose] > │ System.Console.WriteLine v28 │
00:01:33 #4500 [verbose] > │ let v29 : int32 = 6 │
00:01:33 #4501 [verbose] > │ let v30 : int32 = 3 │
00:01:33 #4502 [verbose] > │ let v31 : US0 = US0_0(v30) │
00:01:33 #4503 [verbose] > │ let v32 : int32 = 1 │
00:01:33 #4504 [verbose] > │ let v33 : int32 = 0 │
00:01:33 #4505 [verbose] > │ let v34 : US0 = US0_0(v33) │
00:01:33 #4506 [verbose] > │ let v35 : int32 = 11 │
00:01:33 #4507 [verbose] > │ let v36 : int32 = 6 │
00:01:33 #4508 [verbose] > │ let v37 : US0 = US0_0(v36) │
00:01:33 #4509 [verbose] > │ let v38 : int32 = 12 │
00:01:33 #4510 [verbose] > │ let v39 : US0 = US0_1 │
00:01:33 #4511 [verbose] > │ let v40 : int32 = 60 │
00:01:33 #4512 [verbose] > │ let v41 : int32 = 59 │
00:01:33 #4513 [verbose] > │ let v42 : US0 = US0_0(v41) │
00:01:33 #4514 [verbose] > │ let v43 : int32 = 6 │
00:01:33 #4515 [verbose] > │ let v44 : int32 = 7 │
00:01:33 #4516 [verbose] > │ let v45 : int32 = 3 │
00:01:33 #4517 [verbose] > │ let v46 : US0 = US0_0(v45) │
00:01:33 #4518 [verbose] > │ let v47 : int32 = 1 │
00:01:33 #4519 [verbose] > │ let v48 : int32 = 7 │
00:01:33 #4520 [verbose] > │ let v49 : int32 = 0 │
00:01:33 #4521 [verbose] > │ let v50 : US0 = US0_0(v49) │
00:01:33 #4522 [verbose] > │ let v51 : int32 = 11 │
00:01:33 #4523 [verbose] > │ let v52 : int32 = 7 │
00:01:33 #4524 [verbose] > │ let v53 : int32 = 6 │
00:01:33 #4525 [verbose] > │ let v54 : US0 = US0_0(v53) │
00:01:33 #4526 [verbose] > │ let v55 : int32 = 12 │
00:01:33 #4527 [verbose] > │ let v56 : int32 = 7 │
00:01:33 #4528 [verbose] > │ let v57 : US0 = US0_1 │
00:01:33 #4529 [verbose] > │ let v58 : int32 = 60 │
00:01:33 #4530 [verbose] > │ let v59 : int32 = 100 │
00:01:33 #4531 [verbose] > │ let v60 : int32 = 59 │
00:01:33 #4532 [verbose] > │ let v61 : US0 = US0_0(v60) │
00:01:33 #4533 [verbose] > │ let v62 : UH0 = UH0_0 │
00:01:33 #4534 [verbose] > │ let v63 : UH0 = UH0_1(v19, v58, v59, v61, v62) │
00:01:33 #4535 [verbose] > │ let v64 : UH0 = UH0_1(v18, v55, v56, v57, v63) │
00:01:33 #4536 [verbose] > │ let v65 : UH0 = UH0_1(v17, v51, v52, v54, v64) │
00:01:33 #4537 [verbose] > │ let v66 : UH0 = UH0_1(v16, v47, v48, v50, v65) │
00:01:33 #4538 [verbose] > │ let v67 : UH0 = UH0_1(v15, v43, v44, v46, v66) │
00:01:33 #4539 [verbose] > │ let v68 : UH0 = UH0_1(v8, v40, v14, v42, v67) │
00:01:33 #4540 [verbose] > │ let v69 : UH0 = UH0_1(v6, v38, v7, v39, v68) │
00:01:33 #4541 [verbose] > │ let v70 : UH0 = UH0_1(v4, v35, v5, v37, v69) │
00:01:33 #4542 [verbose] > │ let v71 : UH0 = UH0_1(v2, v32, v3, v34, v70) │
00:01:33 #4543 [verbose] > │ let v72 : UH0 = UH0_1(v0, v29, v1, v31, v71) │
00:01:33 #4544 [verbose] > │ let v73 : (struct ((int32 []) * int32 * int32 * US0) []) = method2(v72) │
00:01:33 #4545 [verbose] > │ let v74 : uint64 = System.Convert.ToUInt64 v73.Length │
00:01:33 #4546 [verbose] > │ let v75 : (struct (string * string * string * (int64 [])) []) = │
00:01:33 #4547 [verbose] > │ Array.zeroCreate<struct (string * string * string * (int64 []))> │
00:01:33 #4548 [verbose] > │ (System.Convert.ToInt32(v74)) │
00:01:33 #4549 [verbose] > │ let v76 : Mut1 = {l0 = 0UL} : Mut1 │
00:01:33 #4550 [verbose] > │ while method5(v74, v76) do │
00:01:33 #4551 [verbose] > │ let v78 : uint64 = v76.l0 │
00:01:33 #4552 [verbose] > │ let struct (v79 : (int32 []), v80 : int32, v81 : int32, v82 : US0) = │
00:01:33 #4553 [verbose] > │ v73.[int v78] │
00:01:33 #4554 [verbose] > │ let v83 : string = $"%A{struct (v79, v80, v81)}" │
00:01:33 #4555 [verbose] > │ System.Console.WriteLine v27 │
00:01:33 #4556 [verbose] > │ let v84 : string = $"Solution: {v83} " │
00:01:33 #4557 [verbose] > │ System.Console.WriteLine v84 │
00:01:33 #4558 [verbose] > │ let v85 : int32 = 0 │
00:01:33 #4559 [verbose] > │ let v86 : string = "semi_open_1" │
00:01:33 #4560 [verbose] > │ let v87 : (struct ((int32 []) * int32 * int32) -> US0) = closure1() │
00:01:33 #4561 [verbose] > │ let v88 : int32 = 1 │
00:01:33 #4562 [verbose] > │ let v89 : string = "closed_1" │
00:01:33 #4563 [verbose] > │ let v90 : (struct ((int32 []) * int32 * int32) -> US0) = closure2() │
00:01:33 #4564 [verbose] > │ let v91 : int32 = 2 │
00:01:33 #4565 [verbose] > │ let v92 : string = "semi_open_2" │
00:01:33 #4566 [verbose] > │ let v93 : (struct ((int32 []) * int32 * int32) -> US0) = closure3() │
00:01:33 #4567 [verbose] > │ let v94 : int32 = 3 │
00:01:33 #4568 [verbose] > │ let v95 : string = "closed_2" │
00:01:33 #4569 [verbose] > │ let v96 : (struct ((int32 []) * int32 * int32) -> US0) = closure4() │
00:01:33 #4570 [verbose] > │ let v97 : UH1 = UH1_0 │
00:01:33 #4571 [verbose] > │ let v98 : UH1 = UH1_1(v94, v95, v96, v97) │
00:01:33 #4572 [verbose] > │ let v99 : UH1 = UH1_1(v91, v92, v93, v98) │
00:01:33 #4573 [verbose] > │ let v100 : UH1 = UH1_1(v88, v89, v90, v99) │
00:01:33 #4574 [verbose] > │ let v101 : UH1 = UH1_1(v85, v86, v87, v100) │
00:01:33 #4575 [verbose] > │ let v102 : (struct (int32 * string * (struct ((int32 []) * int32 * │
00:01:33 #4576 [verbose] > │ int32) -> US0)) []) = method10(v101) │
00:01:33 #4577 [verbose] > │ let v103 : uint64 = System.Convert.ToUInt64 v102.Length │
00:01:33 #4578 [verbose] > │ let v104 : (struct (US0 * int64) []) = Array.zeroCreate<struct (US0 │
00:01:33 #4579 [verbose] > │ * int64)> (System.Convert.ToInt32(v103)) │
00:01:33 #4580 [verbose] > │ let v105 : Mut1 = {l0 = 0UL} : Mut1 │
00:01:33 #4581 [verbose] > │ while method5(v103, v105) do │
00:01:33 #4582 [verbose] > │ let v107 : uint64 = v105.l0 │
00:01:33 #4583 [verbose] > │ let struct (v108 : int32, v109 : string, v110 : (struct ((int32 │
00:01:33 #4584 [verbose] > │ []) * int32 * int32) -> US0)) = v102.[int v107] │
00:01:33 #4585 [verbose] > │ let v111 : unit option = None │
00:01:33 #4586 [verbose] > │ let mutable _v111 = v111 │
00:01:33 #4587 [verbose] > │ #if FABLE_COMPILER_RUST && !WASM && !CONTRACT │
00:01:33 #4588 [verbose] > │ () │
00:01:33 #4589 [verbose] > │ #endif │
00:01:33 #4590 [verbose] > │ #if FABLE_COMPILER_RUST && WASM │
00:01:33 #4591 [verbose] > │ () │
00:01:33 #4592 [verbose] > │ #endif │
00:01:33 #4593 [verbose] > │ #if FABLE_COMPILER_RUST && CONTRACT │
00:01:33 #4594 [verbose] > │ () │
00:01:33 #4595 [verbose] > │ #endif │
00:01:33 #4596 [verbose] > │ #if !FABLE_COMPILER && !FABLE_COMPILER_RUST && │
00:01:33 #4597 [verbose] > │ !FABLE_COMPILER_TYPESCRIPT && !WASM && !CONTRACT │
00:01:33 #4598 [verbose] > │ System.GC.Collect () │
00:01:33 #4599 [verbose] > │ () │
00:01:33 #4600 [verbose] > │ #endif │
00:01:33 #4601 [verbose] > │ #if FABLE_COMPILER_TYPESCRIPT │
00:01:33 #4602 [verbose] > │ () │
00:01:33 #4603 [verbose] > │ #endif │
00:01:33 #4604 [verbose] > │ #if FABLE_COMPILER_PYTHON || FABLE_COMPILER_PHP || │
00:01:33 #4605 [verbose] > │ FABLE_COMPILER_DART │
00:01:33 #4606 [verbose] > │ Unchecked.defaultof<unit> │
00:01:33 #4607 [verbose] > │ () │
00:01:33 #4608 [verbose] > │ #endif │
00:01:33 #4609 [verbose] > │ |> fun x -> _v111 <- Some x │
00:01:33 #4610 [verbose] > │ _v111.Value │
00:01:33 #4611 [verbose] > │ let v112 : (unit -> System.Diagnostics.Stopwatch) = │
00:01:33 #4612 [verbose] > │ System.Diagnostics.Stopwatch │
00:01:33 #4613 [verbose] > │ let v113 : System.Diagnostics.Stopwatch = v112 () │
00:01:33 #4614 [verbose] > │ v113.Start () │
00:01:33 #4615 [verbose] > │ let v114 : int64 = v113.ElapsedMilliseconds │
00:01:33 #4616 [verbose] > │ let v115 : (int32 []) = Array.zeroCreate<int32> (8000001) │
00:01:33 #4617 [verbose] > │ let v116 : Mut0 = {l0 = 0} : Mut0 │
00:01:33 #4618 [verbose] > │ while method13(v116) do │
00:01:33 #4619 [verbose] > │ let v118 : int32 = v116.l0 │
00:01:33 #4620 [verbose] > │ v115.[int v118] <- v118 │
00:01:33 #4621 [verbose] > │ let v119 : int32 = v118 + 1 │
00:01:33 #4622 [verbose] > │ v116.l0 <- v119 │
00:01:33 #4623 [verbose] > │ () │
00:01:33 #4624 [verbose] > │ let v120 : ((int32 -> US0) -> ((int32 []) -> (US0 []))) = │
00:01:33 #4625 [verbose] > │ Array.Parallel.map │
00:01:33 #4626 [verbose] > │ let v121 : (int32 -> US0) = closure5(v79, v80, v81, v110) │
00:01:33 #4627 [verbose] > │ let v122 : ((int32 []) -> (US0 [])) = v120 v121 │
00:01:33 #4628 [verbose] > │ let v123 : (US0 []) = v122 v115 │
00:01:33 #4629 [verbose] > │ let v124 : int32 = v123.Length │
00:01:33 #4630 [verbose] > │ let v125 : int32 = v124 - 1 │
00:01:33 #4631 [verbose] > │ let v126 : US0 = v123.[int v125] │
00:01:33 #4632 [verbose] > │ let v127 : int64 = v113.ElapsedMilliseconds │
00:01:33 #4633 [verbose] > │ let v128 : int64 = v127 - v114 │
00:01:33 #4634 [verbose] > │ let v129 : string = $"Test case {v108 + 1}. {v109}. Time: {v128} │
00:01:33 #4635 [verbose] > │ " │
00:01:33 #4636 [verbose] > │ System.Console.WriteLine v129 │
00:01:33 #4637 [verbose] > │ v104.[int v107] <- struct (v126, v128) │
00:01:33 #4638 [verbose] > │ let v130 : uint64 = v107 + 1UL │
00:01:33 #4639 [verbose] > │ v105.l0 <- v130 │
00:01:33 #4640 [verbose] > │ () │
00:01:33 #4641 [verbose] > │ let v131 : uint64 = System.Convert.ToUInt64 v104.Length │
00:01:33 #4642 [verbose] > │ let v132 : (US0 []) = Array.zeroCreate<US0> │
00:01:33 #4643 [verbose] > │ (System.Convert.ToInt32(v131)) │
00:01:33 #4644 [verbose] > │ let v133 : Mut1 = {l0 = 0UL} : Mut1 │
00:01:33 #4645 [verbose] > │ while method5(v131, v133) do │
00:01:33 #4646 [verbose] > │ let v135 : uint64 = v133.l0 │
00:01:33 #4647 [verbose] > │ let struct (v136 : US0, v137 : int64) = v104.[int v135] │
00:01:33 #4648 [verbose] > │ v132.[int v135] <- v136 │
00:01:33 #4649 [verbose] > │ let v138 : uint64 = v135 + 1UL │
00:01:33 #4650 [verbose] > │ v133.l0 <- v138 │
00:01:33 #4651 [verbose] > │ () │
00:01:33 #4652 [verbose] > │ let v139 : uint64 = System.Convert.ToUInt64 v132.Length │
00:01:33 #4653 [verbose] > │ let v140 : bool = v139 <= 1UL │
00:01:33 #4654 [verbose] > │ if v140 then │
00:01:33 #4655 [verbose] > │ () │
00:01:33 #4656 [verbose] > │ else │
00:01:33 #4657 [verbose] > │ let v141 : US0 = v132.[int 0UL] │
00:01:33 #4658 [verbose] > │ let v142 : uint64 = 0UL │
00:01:33 #4659 [verbose] > │ let v143 : bool = method14(v141, v132, v142) │
00:01:33 #4660 [verbose] > │ if v143 then │
00:01:33 #4661 [verbose] > │ () │
00:01:33 #4662 [verbose] > │ else │
00:01:33 #4663 [verbose] > │ let v144 : string = $"Challenge error: {v132}" │
00:01:33 #4664 [verbose] > │ failwith<unit> v144 │
00:01:33 #4665 [verbose] > │ let v145 : string = $"%A{v82}" │
00:01:33 #4666 [verbose] > │ let v146 : (US0 []) = Array.zeroCreate<US0> │
00:01:33 #4667 [verbose] > │ (System.Convert.ToInt32(v131)) │
00:01:33 #4668 [verbose] > │ let v147 : Mut1 = {l0 = 0UL} : Mut1 │
00:01:33 #4669 [verbose] > │ while method5(v131, v147) do │
00:01:33 #4670 [verbose] > │ let v149 : uint64 = v147.l0 │
00:01:33 #4671 [verbose] > │ let struct (v150 : US0, v151 : int64) = v104.[int v149] │
00:01:33 #4672 [verbose] > │ v146.[int v149] <- v150 │
00:01:33 #4673 [verbose] > │ let v152 : uint64 = v149 + 1UL │
00:01:33 #4674 [verbose] > │ v147.l0 <- v152 │
00:01:33 #4675 [verbose] > │ () │
00:01:33 #4676 [verbose] > │ let v153 : US0 = v146.[int 0UL] │
00:01:33 #4677 [verbose] > │ let v154 : string = $"%A{v153}" │
00:01:33 #4678 [verbose] > │ let v155 : (int64 []) = Array.zeroCreate<int64> │
00:01:33 #4679 [verbose] > │ (System.Convert.ToInt32(v131)) │
00:01:33 #4680 [verbose] > │ let v156 : Mut1 = {l0 = 0UL} : Mut1 │
00:01:33 #4681 [verbose] > │ while method5(v131, v156) do │
00:01:33 #4682 [verbose] > │ let v158 : uint64 = v156.l0 │
00:01:33 #4683 [verbose] > │ let struct (v159 : US0, v160 : int64) = v104.[int v158] │
00:01:33 #4684 [verbose] > │ v155.[int v158] <- v160 │
00:01:33 #4685 [verbose] > │ let v161 : uint64 = v158 + 1UL │
00:01:33 #4686 [verbose] > │ v156.l0 <- v161 │
00:01:33 #4687 [verbose] > │ () │
00:01:33 #4688 [verbose] > │ v75.[int v78] <- struct (v145, v83, v154, v155) │
00:01:33 #4689 [verbose] > │ let v162 : uint64 = v78 + 1UL │
00:01:33 #4690 [verbose] > │ v76.l0 <- v162 │
00:01:33 #4691 [verbose] > │ () │
00:01:33 #4692 [verbose] > │ let v163 : uint64 = System.Convert.ToUInt64 v75.Length │
00:01:33 #4693 [verbose] > │ let v164 : (struct (UH2 * US1) []) = Array.zeroCreate<struct (UH2 * │
00:01:33 #4694 [verbose] > │ US1)> (System.Convert.ToInt32(v163)) │
00:01:33 #4695 [verbose] > │ let v165 : Mut1 = {l0 = 0UL} : Mut1 │
00:01:33 #4696 [verbose] > │ while method5(v163, v165) do │
00:01:33 #4697 [verbose] > │ let v167 : uint64 = v165.l0 │
00:01:33 #4698 [verbose] > │ let struct (v168 : string, v169 : string, v170 : string, v171 : │
00:01:33 #4699 [verbose] > │ (int64 [])) = v75.[int v167] │
00:01:33 #4700 [verbose] > │ let v172 : uint64 = System.Convert.ToUInt64 v171.Length │
00:01:33 #4701 [verbose] > │ let v173 : UH3 = UH3_0 │
00:01:33 #4702 [verbose] > │ let v174 : Mut2 = {l0 = 0UL; l1 = v173; l2 = 0L} : Mut2 │
00:01:33 #4703 [verbose] > │ while method15(v172, v174) do │
00:01:33 #4704 [verbose] > │ let v176 : uint64 = v174.l0 │
00:01:33 #4705 [verbose] > │ let struct (v177 : UH3, v178 : int64) = v174.l1, v174.l2 │
00:01:33 #4706 [verbose] > │ let v179 : int64 = v171.[int v176] │
00:01:33 #4707 [verbose] > │ let v180 : int64 = v178 + 1L │
00:01:33 #4708 [verbose] > │ let v181 : uint64 = v176 + 1UL │
00:01:33 #4709 [verbose] > │ let v182 : UH3 = UH3_1(v178, v179, v177) │
00:01:33 #4710 [verbose] > │ v174.l0 <- v181 │
00:01:33 #4711 [verbose] > │ v174.l1 <- v182 │
00:01:33 #4712 [verbose] > │ v174.l2 <- v180 │
00:01:34 #4713 [verbose] > │ () │
00:01:34 #4714 [verbose] > │ let struct (v183 : UH3, v184 : int64) = v174.l1, v174.l2 │
00:01:34 #4715 [verbose] > │ let v185 : UH3 = UH3_0 │
00:01:34 #4716 [verbose] > │ let v186 : UH3 = method16(v183, v185) │
00:01:34 #4717 [verbose] > │ let v187 : (struct (int64 * int64) []) = method17(v186) │
00:01:34 #4718 [verbose] > │ let v188 : int32 = v187.Length │
00:01:34 #4719 [verbose] > │ let v189 : (struct (int64 * int64) []) = Array.zeroCreate<struct │
00:01:34 #4720 [verbose] > │ (int64 * int64)> (v188) │
00:01:34 #4721 [verbose] > │ let v190 : Mut0 = {l0 = 0} : Mut0 │
00:01:34 #4722 [verbose] > │ while method20(v188, v190) do │
00:01:34 #4723 [verbose] > │ let v192 : int32 = v190.l0 │
00:01:34 #4724 [verbose] > │ let struct (v193 : int64, v194 : int64) = v187.[int v192] │
00:01:34 #4725 [verbose] > │ let v195 : int64 = v193 + 1L │
00:01:34 #4726 [verbose] > │ v189.[int v192] <- struct (v195, v194) │
00:01:34 #4727 [verbose] > │ let v196 : int32 = v192 + 1 │
00:01:34 #4728 [verbose] > │ v190.l0 <- v196 │
00:01:34 #4729 [verbose] > │ () │
00:01:34 #4730 [verbose] > │ let v197 : ((struct (int64 * int64) -> int64) -> ((struct (int64 * │
00:01:34 #4731 [verbose] > │ int64) []) -> (struct (int64 * int64) []))) = Array.sortBy │
00:01:34 #4732 [verbose] > │ let v198 : (struct (int64 * int64) -> int64) = closure6() │
00:01:34 #4733 [verbose] > │ let v199 : ((struct (int64 * int64) []) -> (struct (int64 * int64) [ │
00:01:34 #4734 [verbose] > │ ])) = v197 v198 │
00:01:34 #4735 [verbose] > │ let v200 : (struct (int64 * int64) []) = v199 v189 │
00:01:34 #4736 [verbose] > │ let struct (v201 : int64, v202 : int64) = v200.[int 0] │
00:01:34 #4737 [verbose] > │ let v203 : string = $"%A{struct (v201, v202)}" │
00:01:34 #4738 [verbose] > │ let v204 : bool = v168 = v170 │
00:01:34 #4739 [verbose] > │ let v209 : US1 = │
00:01:34 #4740 [verbose] > │ if v204 then │
00:01:34 #4741 [verbose] > │ let v205 : System.ConsoleColor = │
00:01:34 #4742 [verbose] > │ System.ConsoleColor.DarkGreen │
00:01:34 #4743 [verbose] > │ US1_0(v205) │
00:01:34 #4744 [verbose] > │ else │
00:01:34 #4745 [verbose] > │ let v207 : System.ConsoleColor = System.ConsoleColor.DarkRed │
00:01:34 #4746 [verbose] > │ US1_0(v207) │
00:01:34 #4747 [verbose] > │ let v210 : UH2 = UH2_0 │
00:01:34 #4748 [verbose] > │ let v211 : UH2 = UH2_1(v203, v210) │
00:01:34 #4749 [verbose] > │ let v212 : UH2 = UH2_1(v170, v211) │
00:01:34 #4750 [verbose] > │ let v213 : UH2 = UH2_1(v168, v212) │
00:01:34 #4751 [verbose] > │ let v214 : UH2 = UH2_1(v169, v213) │
00:01:34 #4752 [verbose] > │ v164.[int v167] <- struct (v214, v209) │
00:01:34 #4753 [verbose] > │ let v215 : uint64 = v167 + 1UL │
00:01:34 #4754 [verbose] > │ v165.l0 <- v215 │
00:01:34 #4755 [verbose] > │ () │
00:01:34 #4756 [verbose] > │ let v216 : string = "Input" │
00:01:34 #4757 [verbose] > │ let v217 : string = "Expected" │
00:01:34 #4758 [verbose] > │ let v218 : string = "Result" │
00:01:34 #4759 [verbose] > │ let v219 : string = "Best" │
00:01:34 #4760 [verbose] > │ let v220 : UH2 = UH2_0 │
00:01:34 #4761 [verbose] > │ let v221 : UH2 = UH2_1(v219, v220) │
00:01:34 #4762 [verbose] > │ let v222 : UH2 = UH2_1(v218, v221) │
00:01:34 #4763 [verbose] > │ let v223 : UH2 = UH2_1(v217, v222) │
00:01:34 #4764 [verbose] > │ let v224 : UH2 = UH2_1(v216, v223) │
00:01:34 #4765 [verbose] > │ let v225 : US1 = US1_1 │
00:01:34 #4766 [verbose] > │ let v226 : string = "---" │
00:01:34 #4767 [verbose] > │ let v227 : UH2 = UH2_0 │
00:01:34 #4768 [verbose] > │ let v228 : UH2 = UH2_1(v226, v227) │
00:01:34 #4769 [verbose] > │ let v229 : UH2 = UH2_1(v226, v228) │
00:01:34 #4770 [verbose] > │ let v230 : UH2 = UH2_1(v226, v229) │
00:01:34 #4771 [verbose] > │ let v231 : UH2 = UH2_1(v226, v230) │
00:01:34 #4772 [verbose] > │ let v232 : US1 = US1_1 │
00:01:34 #4773 [verbose] > │ let v233 : UH4 = UH4_0 │
00:01:34 #4774 [verbose] > │ let v234 : UH4 = UH4_1(v231, v232, v233) │
00:01:34 #4775 [verbose] > │ let v235 : UH4 = UH4_1(v224, v225, v234) │
00:01:34 #4776 [verbose] > │ let v236 : (struct (UH2 * US1) []) = method21(v235) │
00:01:34 #4777 [verbose] > │ let v237 : uint64 = System.Convert.ToUInt64 v236.Length │
00:01:34 #4778 [verbose] > │ let v238 : uint64 = System.Convert.ToUInt64 v164.Length │
00:01:34 #4779 [verbose] > │ let v239 : uint64 = v237 + v238 │
00:01:34 #4780 [verbose] > │ let v240 : (struct (UH2 * US1) []) = Array.zeroCreate<struct (UH2 * │
00:01:34 #4781 [verbose] > │ US1)> (System.Convert.ToInt32(v239)) │
00:01:34 #4782 [verbose] > │ let v241 : Mut1 = {l0 = 0UL} : Mut1 │
00:01:34 #4783 [verbose] > │ while method5(v239, v241) do │
00:01:34 #4784 [verbose] > │ let v243 : uint64 = v241.l0 │
00:01:34 #4785 [verbose] > │ let v244 : bool = v243 < v237 │
00:01:34 #4786 [verbose] > │ let struct (v250 : UH2, v251 : US1) = │
00:01:34 #4787 [verbose] > │ if v244 then │
00:01:34 #4788 [verbose] > │ let struct (v245 : UH2, v246 : US1) = v236.[int v243] │
00:01:34 #4789 [verbose] > │ struct (v245, v246) │
00:01:34 #4790 [verbose] > │ else │
00:01:34 #4791 [verbose] > │ let v247 : uint64 = v243 - v237 │
00:01:34 #4792 [verbose] > │ let struct (v248 : UH2, v249 : US1) = v164.[int v247] │
00:01:34 #4793 [verbose] > │ struct (v248, v249) │
00:01:34 #4794 [verbose] > │ v240.[int v243] <- struct (v250, v251) │
00:01:34 #4795 [verbose] > │ let v252 : uint64 = v243 + 1UL │
00:01:34 #4796 [verbose] > │ v241.l0 <- v252 │
00:01:34 #4797 [verbose] > │ () │
00:01:34 #4798 [verbose] > │ let v253 : uint64 = System.Convert.ToUInt64 v240.Length │
00:01:34 #4799 [verbose] > │ let v254 : ((string []) []) = Array.zeroCreate<(string [])> │
00:01:34 #4800 [verbose] > │ (System.Convert.ToInt32(v253)) │
00:01:34 #4801 [verbose] > │ let v255 : Mut1 = {l0 = 0UL} : Mut1 │
00:01:34 #4802 [verbose] > │ while method5(v253, v255) do │
00:01:34 #4803 [verbose] > │ let v257 : uint64 = v255.l0 │
00:01:34 #4804 [verbose] > │ let struct (v258 : UH2, v259 : US1) = v240.[int v257] │
00:01:34 #4805 [verbose] > │ let v260 : (string []) = method24(v258) │
00:01:34 #4806 [verbose] > │ v254.[int v257] <- v260 │
00:01:34 #4807 [verbose] > │ let v261 : uint64 = v257 + 1UL │
00:01:34 #4808 [verbose] > │ v255.l0 <- v261 │
00:01:34 #4809 [verbose] > │ () │
00:01:34 #4810 [verbose] > │ let v262 : (((string []) []) -> ((string []) [])) = Array.transpose │
00:01:34 #4811 [verbose] > │ let v263 : ((string []) []) = v262 v254 │
00:01:34 #4812 [verbose] > │ let v264 : uint64 = System.Convert.ToUInt64 v263.Length │
00:01:34 #4813 [verbose] > │ let v265 : (int64 []) = Array.zeroCreate<int64> │
00:01:34 #4814 [verbose] > │ (System.Convert.ToInt32(v264)) │
00:01:34 #4815 [verbose] > │ let v266 : Mut1 = {l0 = 0UL} : Mut1 │
00:01:34 #4816 [verbose] > │ while method5(v264, v266) do │
00:01:34 #4817 [verbose] > │ let v268 : uint64 = v266.l0 │
00:01:34 #4818 [verbose] > │ let v269 : (string []) = v263.[int v268] │
00:01:34 #4819 [verbose] > │ let v270 : uint64 = System.Convert.ToUInt64 v269.Length │
00:01:34 #4820 [verbose] > │ let v271 : (int64 []) = Array.zeroCreate<int64> │
00:01:34 #4821 [verbose] > │ (System.Convert.ToInt32(v270)) │
00:01:34 #4822 [verbose] > │ let v272 : Mut1 = {l0 = 0UL} : Mut1 │
00:01:34 #4823 [verbose] > │ while method5(v270, v272) do │
00:01:34 #4824 [verbose] > │ let v274 : uint64 = v272.l0 │
00:01:34 #4825 [verbose] > │ let v275 : string = v269.[int v274] │
00:01:34 #4826 [verbose] > │ let v276 : int64 = System.Convert.ToInt64 v275.Length │
00:01:34 #4827 [verbose] > │ v271.[int v274] <- v276 │
00:01:34 #4828 [verbose] > │ let v277 : uint64 = v274 + 1UL │
00:01:34 #4829 [verbose] > │ v272.l0 <- v277 │
00:01:34 #4830 [verbose] > │ () │
00:01:34 #4831 [verbose] > │ let v278 : ((int64 []) -> (int64 [])) = Array.sortDescending │
00:01:34 #4832 [verbose] > │ let v279 : (int64 []) = v278 v271 │
00:01:34 #4833 [verbose] > │ let v280 : (int32 -> ((int64 []) -> int64 option)) = Array.tryItem │
00:01:34 #4834 [verbose] > │ let v281 : ((int64 []) -> int64 option) = v280 0 │
00:01:34 #4835 [verbose] > │ let v282 : int64 option = v281 v279 │
00:01:34 #4836 [verbose] > │ let v283 : (int64 -> US2) = method27() │
00:01:34 #4837 [verbose] > │ let v284 : US2 = US2_1 │
00:01:34 #4838 [verbose] > │ let v285 : US2 = v282 |> Option.map v283 |> Option.defaultValue v284 │
00:01:34 #4839 [verbose] > │ let v288 : int64 = │
00:01:34 #4840 [verbose] > │ match v285 with │
00:01:34 #4841 [verbose] > │ | US2_1 -> (* None *) │
00:01:34 #4842 [verbose] > │ 0L │
00:01:34 #4843 [verbose] > │ | US2_0(v286) -> (* Some *) │
00:01:34 #4844 [verbose] > │ v286 │
00:01:34 #4845 [verbose] > │ v265.[int v268] <- v288 │
00:01:34 #4846 [verbose] > │ let v289 : uint64 = v268 + 1UL │
00:01:34 #4847 [verbose] > │ v266.l0 <- v289 │
00:01:34 #4848 [verbose] > │ () │
00:01:34 #4849 [verbose] > │ let v290 : uint64 = System.Convert.ToUInt64 v265.Length │
00:01:34 #4850 [verbose] > │ let v291 : UH5 = UH5_0 │
00:01:34 #4851 [verbose] > │ let v292 : Mut3 = {l0 = 0UL; l1 = v291; l2 = 0} : Mut3 │
00:01:34 #4852 [verbose] > │ while method28(v290, v292) do │
00:01:34 #4853 [verbose] > │ let v294 : uint64 = v292.l0 │
00:01:34 #4854 [verbose] > │ let struct (v295 : UH5, v296 : int32) = v292.l1, v292.l2 │
00:01:34 #4855 [verbose] > │ let v297 : int64 = v265.[int v294] │
00:01:34 #4856 [verbose] > │ let v298 : int32 = v296 + 1 │
00:01:34 #4857 [verbose] > │ let v299 : uint64 = v294 + 1UL │
00:01:34 #4858 [verbose] > │ let v300 : UH5 = UH5_1(v296, v297, v295) │
00:01:34 #4859 [verbose] > │ v292.l0 <- v299 │
00:01:34 #4860 [verbose] > │ v292.l1 <- v300 │
00:01:34 #4861 [verbose] > │ v292.l2 <- v298 │
00:01:34 #4862 [verbose] > │ () │
00:01:34 #4863 [verbose] > │ let struct (v301 : UH5, v302 : int32) = v292.l1, v292.l2 │
00:01:34 #4864 [verbose] > │ let v303 : UH5 = UH5_0 │
00:01:34 #4865 [verbose] > │ let v304 : UH5 = method29(v301, v303) │
00:01:34 #4866 [verbose] > │ let v305 : (struct (int32 * int64) []) = method30(v304) │
00:01:34 #4867 [verbose] > │ let v306 : Map<int32, int64> = v305 |> Array.map (fun (struct (a, b)) -> │
00:01:34 #4868 [verbose] > │ a, b) |> Map.ofArray │
00:01:34 #4869 [verbose] > │ let v307 : (struct ((string []) * US1) []) = Array.zeroCreate<struct │
00:01:34 #4870 [verbose] > │ ((string []) * US1)> (System.Convert.ToInt32(v253)) │
00:01:34 #4871 [verbose] > │ let v308 : Mut1 = {l0 = 0UL} : Mut1 │
00:01:34 #4872 [verbose] > │ while method5(v253, v308) do │
00:01:34 #4873 [verbose] > │ let v310 : uint64 = v308.l0 │
00:01:34 #4874 [verbose] > │ let struct (v311 : UH2, v312 : US1) = v240.[int v310] │
00:01:34 #4875 [verbose] > │ let v313 : UH6 = UH6_0 │
00:01:34 #4876 [verbose] > │ let v314 : int32 = 0 │
00:01:34 #4877 [verbose] > │ let struct (v315 : UH6, v316 : int32) = method33(v311, v313, v314) │
00:01:34 #4878 [verbose] > │ let v317 : UH6 = UH6_0 │
00:01:34 #4879 [verbose] > │ let v318 : UH6 = method34(v315, v317) │
00:01:34 #4880 [verbose] > │ let v319 : UH2 = UH2_0 │
00:01:34 #4881 [verbose] > │ let v320 : UH2 = method35(v306, v318, v319) │
00:01:34 #4882 [verbose] > │ let v321 : (string []) = method36(v320) │
00:01:34 #4883 [verbose] > │ v307.[int v310] <- struct (v321, v312) │
00:01:34 #4884 [verbose] > │ let v322 : uint64 = v310 + 1UL │
00:01:34 #4885 [verbose] > │ v308.l0 <- v322 │
00:01:34 #4886 [verbose] > │ () │
00:01:34 #4887 [verbose] > │ System.Console.WriteLine v27 │
00:01:34 #4888 [verbose] > │ let v323 : uint64 = System.Convert.ToUInt64 v307.Length │
00:01:34 #4889 [verbose] > │ let v324 : Mut1 = {l0 = 0UL} : Mut1 │
00:01:34 #4890 [verbose] > │ while method5(v323, v324) do │
00:01:34 #4891 [verbose] > │ let v326 : uint64 = v324.l0 │
00:01:34 #4892 [verbose] > │ let struct (v327 : (string []), v328 : US1) = v307.[int v326] │
00:01:34 #4893 [verbose] > │ match v328 with │
00:01:34 #4894 [verbose] > │ | US1_1 -> (* None *) │
00:01:34 #4895 [verbose] > │ let v331 : unit option = None │
00:01:34 #4896 [verbose] > │ let mutable _v331 = v331 │
00:01:34 #4897 [verbose] > │ #if FABLE_COMPILER_RUST && !WASM && !CONTRACT │
00:01:34 #4898 [verbose] > │ () │
00:01:34 #4899 [verbose] > │ #endif │
00:01:34 #4900 [verbose] > │ #if FABLE_COMPILER_RUST && WASM │
00:01:34 #4901 [verbose] > │ () │
00:01:34 #4902 [verbose] > │ #endif │
00:01:34 #4903 [verbose] > │ #if FABLE_COMPILER_RUST && CONTRACT │
00:01:34 #4904 [verbose] > │ () │
00:01:34 #4905 [verbose] > │ #endif │
00:01:34 #4906 [verbose] > │ #if !FABLE_COMPILER && !FABLE_COMPILER_RUST && │
00:01:34 #4907 [verbose] > │ !FABLE_COMPILER_TYPESCRIPT && !WASM && !CONTRACT │
00:01:34 #4908 [verbose] > │ System.Console.ResetColor () │
00:01:34 #4909 [verbose] > │ () │
00:01:34 #4910 [verbose] > │ #endif │
00:01:34 #4911 [verbose] > │ #if FABLE_COMPILER_TYPESCRIPT │
00:01:34 #4912 [verbose] > │ () │
00:01:34 #4913 [verbose] > │ #endif │
00:01:34 #4914 [verbose] > │ #if FABLE_COMPILER_PYTHON || FABLE_COMPILER_PHP || │
00:01:34 #4915 [verbose] > │ FABLE_COMPILER_DART │
00:01:34 #4916 [verbose] > │ Unchecked.defaultof<unit> │
00:01:34 #4917 [verbose] > │ () │
00:01:34 #4918 [verbose] > │ #endif │
00:01:34 #4919 [verbose] > │ |> fun x -> _v331 <- Some x │
00:01:34 #4920 [verbose] > │ _v331.Value │
00:01:34 #4921 [verbose] > │ () │
00:01:34 #4922 [verbose] > │ | US1_0(v329) -> (* Some *) │
00:01:34 #4923 [verbose] > │ let v330 : unit option = None │
00:01:34 #4924 [verbose] > │ let mutable _v330 = v330 │
00:01:34 #4925 [verbose] > │ #if FABLE_COMPILER_RUST && !WASM && !CONTRACT │
00:01:34 #4926 [verbose] > │ () │
00:01:34 #4927 [verbose] > │ #endif │
00:01:34 #4928 [verbose] > │ #if FABLE_COMPILER_RUST && WASM │
00:01:34 #4929 [verbose] > │ () │
00:01:34 #4930 [verbose] > │ #endif │
00:01:34 #4931 [verbose] > │ #if FABLE_COMPILER_RUST && CONTRACT │
00:01:34 #4932 [verbose] > │ () │
00:01:34 #4933 [verbose] > │ #endif │
00:01:34 #4934 [verbose] > │ #if !FABLE_COMPILER && !FABLE_COMPILER_RUST && │
00:01:34 #4935 [verbose] > │ !FABLE_COMPILER_TYPESCRIPT && !WASM && !CONTRACT │
00:01:34 #4936 [verbose] > │ System.Console.ForegroundColor <- v329 │
00:01:34 #4937 [verbose] > │ () │
00:01:34 #4938 [verbose] > │ #endif │
00:01:34 #4939 [verbose] > │ #if FABLE_COMPILER_TYPESCRIPT │
00:01:34 #4940 [verbose] > │ () │
00:01:34 #4941 [verbose] > │ #endif │
00:01:34 #4942 [verbose] > │ #if FABLE_COMPILER_PYTHON || FABLE_COMPILER_PHP || │
00:01:34 #4943 [verbose] > │ FABLE_COMPILER_DART │
00:01:34 #4944 [verbose] > │ Unchecked.defaultof<unit> │
00:01:34 #4945 [verbose] > │ () │
00:01:34 #4946 [verbose] > │ #endif │
00:01:34 #4947 [verbose] > │ |> fun x -> _v330 <- Some x │
00:01:34 #4948 [verbose] > │ _v330.Value │
00:01:34 #4949 [verbose] > │ () │
00:01:34 #4950 [verbose] > │ let v332 : string = "\t| " │
00:01:34 #4951 [verbose] > │ let v333 : string = System.String.Join (v332, v327) │
00:01:34 #4952 [verbose] > │ System.Console.WriteLine v333 │
00:01:34 #4953 [verbose] > │ let v334 : unit option = None │
00:01:34 #4954 [verbose] > │ let mutable _v334 = v334 │
00:01:34 #4955 [verbose] > │ #if FABLE_COMPILER_RUST && !WASM && !CONTRACT │
00:01:34 #4956 [verbose] > │ () │
00:01:34 #4957 [verbose] > │ #endif │
00:01:34 #4958 [verbose] > │ #if FABLE_COMPILER_RUST && WASM │
00:01:34 #4959 [verbose] > │ () │
00:01:34 #4960 [verbose] > │ #endif │
00:01:34 #4961 [verbose] > │ #if FABLE_COMPILER_RUST && CONTRACT │
00:01:34 #4962 [verbose] > │ () │
00:01:34 #4963 [verbose] > │ #endif │
00:01:34 #4964 [verbose] > │ #if !FABLE_COMPILER && !FABLE_COMPILER_RUST && │
00:01:34 #4965 [verbose] > │ !FABLE_COMPILER_TYPESCRIPT && !WASM && !CONTRACT │
00:01:34 #4966 [verbose] > │ System.Console.ResetColor () │
00:01:34 #4967 [verbose] > │ () │
00:01:34 #4968 [verbose] > │ #endif │
00:01:34 #4969 [verbose] > │ #if FABLE_COMPILER_TYPESCRIPT │
00:01:34 #4970 [verbose] > │ () │
00:01:34 #4971 [verbose] > │ #endif │
00:01:34 #4972 [verbose] > │ #if FABLE_COMPILER_PYTHON || FABLE_COMPILER_PHP || │
00:01:34 #4973 [verbose] > │ FABLE_COMPILER_DART │
00:01:34 #4974 [verbose] > │ Unchecked.defaultof<unit> │
00:01:34 #4975 [verbose] > │ () │
00:01:34 #4976 [verbose] > │ #endif │
00:01:34 #4977 [verbose] > │ |> fun x -> _v334 <- Some x │
00:01:34 #4978 [verbose] > │ _v334.Value │
00:01:34 #4979 [verbose] > │ let v335 : uint64 = v326 + 1UL │
00:01:34 #4980 [verbose] > │ v324.l0 <- v335 │
00:01:34 #4981 [verbose] > │ () │
00:01:34 #4982 [verbose] > │ let v336 : ((float []) []) = Array.zeroCreate<(float [])> │
00:01:34 #4983 [verbose] > │ (System.Convert.ToInt32(v163)) │
00:01:34 #4984 [verbose] > │ let v337 : Mut1 = {l0 = 0UL} : Mut1 │
00:01:34 #4985 [verbose] > │ while method5(v163, v337) do │
00:01:34 #4986 [verbose] > │ let v339 : uint64 = v337.l0 │
00:01:34 #4987 [verbose] > │ let struct (v340 : string, v341 : string, v342 : string, v343 : │
00:01:34 #4988 [verbose] > │ (int64 [])) = v75.[int v339] │
00:01:34 #4989 [verbose] > │ let v344 : (int64 -> float) = float │
00:01:34 #4990 [verbose] > │ let v345 : uint64 = System.Convert.ToUInt64 v343.Length │
00:01:34 #4991 [verbose] > │ let v346 : (float []) = Array.zeroCreate<float> │
00:01:34 #4992 [verbose] > │ (System.Convert.ToInt32(v345)) │
00:01:34 #4993 [verbose] > │ let v347 : Mut1 = {l0 = 0UL} : Mut1 │
00:01:34 #4994 [verbose] > │ while method5(v345, v347) do │
00:01:34 #4995 [verbose] > │ let v349 : uint64 = v347.l0 │
00:01:34 #4996 [verbose] > │ let v350 : int64 = v343.[int v349] │
00:01:34 #4997 [verbose] > │ let v351 : float = v344 v350 │
00:01:34 #4998 [verbose] > │ v346.[int v349] <- v351 │
00:01:34 #4999 [verbose] > │ let v352 : uint64 = v349 + 1UL │
00:01:34 #5000 [verbose] > │ v347.l0 <- v352 │
00:01:34 #5001 [verbose] > │ () │
00:01:34 #5002 [verbose] > │ v336.[int v339] <- v346 │
00:01:34 #5003 [verbose] > │ let v353 : uint64 = v339 + 1UL │
00:01:34 #5004 [verbose] > │ v337.l0 <- v353 │
00:01:34 #5005 [verbose] > │ () │
00:01:34 #5006 [verbose] > │ let v354 : (((float []) []) -> ((float []) [])) = Array.transpose │
00:01:34 #5007 [verbose] > │ let v355 : ((float []) []) = v354 v336 │
00:01:34 #5008 [verbose] > │ let v356 : uint64 = System.Convert.ToUInt64 v355.Length │
00:01:34 #5009 [verbose] > │ let v357 : (float []) = Array.zeroCreate<float> │
00:01:34 #5010 [verbose] > │ (System.Convert.ToInt32(v356)) │
00:01:34 #5011 [verbose] > │ let v358 : Mut1 = {l0 = 0UL} : Mut1 │
00:01:34 #5012 [verbose] > │ while method5(v356, v358) do │
00:01:34 #5013 [verbose] > │ let v360 : uint64 = v358.l0 │
00:01:34 #5014 [verbose] > │ let v361 : (float []) = v355.[int v360] │
00:01:34 #5015 [verbose] > │ let v362 : ((float []) -> float) = Array.average │
00:01:34 #5016 [verbose] > │ let v363 : float = v362 v361 │
00:01:34 #5017 [verbose] > │ v357.[int v360] <- v363 │
00:01:34 #5018 [verbose] > │ let v364 : uint64 = v360 + 1UL │
00:01:34 #5019 [verbose] > │ v358.l0 <- v364 │
00:01:34 #5020 [verbose] > │ () │
00:01:34 #5021 [verbose] > │ let v365 : (float -> int64) = int64 │
00:01:34 #5022 [verbose] > │ let v366 : uint64 = System.Convert.ToUInt64 v357.Length │
00:01:34 #5023 [verbose] > │ let v367 : (int64 []) = Array.zeroCreate<int64> │
00:01:34 #5024 [verbose] > │ (System.Convert.ToInt32(v366)) │
00:01:34 #5025 [verbose] > │ let v368 : Mut1 = {l0 = 0UL} : Mut1 │
00:01:34 #5026 [verbose] > │ while method5(v366, v368) do │
00:01:34 #5027 [verbose] > │ let v370 : uint64 = v368.l0 │
00:01:34 #5028 [verbose] > │ let v371 : float = v357.[int v370] │
00:01:34 #5029 [verbose] > │ let v372 : int64 = v365 v371 │
00:01:34 #5030 [verbose] > │ v367.[int v370] <- v372 │
00:01:34 #5031 [verbose] > │ let v373 : uint64 = v370 + 1UL │
00:01:34 #5032 [verbose] > │ v368.l0 <- v373 │
00:01:34 #5033 [verbose] > │ () │
00:01:34 #5034 [verbose] > │ let v374 : uint64 = System.Convert.ToUInt64 v367.Length │
00:01:34 #5035 [verbose] > │ let v375 : UH5 = UH5_0 │
00:01:34 #5036 [verbose] > │ let v376 : Mut3 = {l0 = 0UL; l1 = v375; l2 = 0} : Mut3 │
00:01:34 #5037 [verbose] > │ while method28(v374, v376) do │
00:01:34 #5038 [verbose] > │ let v378 : uint64 = v376.l0 │
00:01:34 #5039 [verbose] > │ let struct (v379 : UH5, v380 : int32) = v376.l1, v376.l2 │
00:01:34 #5040 [verbose] > │ let v381 : int64 = v367.[int v378] │
00:01:34 #5041 [verbose] > │ let v382 : int32 = v380 + 1 │
00:01:34 #5042 [verbose] > │ let v383 : uint64 = v378 + 1UL │
00:01:34 #5043 [verbose] > │ let v384 : UH5 = UH5_1(v380, v381, v379) │
00:01:34 #5044 [verbose] > │ v376.l0 <- v383 │
00:01:34 #5045 [verbose] > │ v376.l1 <- v384 │
00:01:34 #5046 [verbose] > │ v376.l2 <- v382 │
00:01:34 #5047 [verbose] > │ () │
00:01:34 #5048 [verbose] > │ let struct (v385 : UH5, v386 : int32) = v376.l1, v376.l2 │
00:01:34 #5049 [verbose] > │ let v387 : UH5 = UH5_0 │
00:01:34 #5050 [verbose] > │ let v388 : UH5 = method29(v385, v387) │
00:01:34 #5051 [verbose] > │ let v389 : (struct (int32 * int64) []) = method39(v388) │
00:01:34 #5052 [verbose] > │ System.Console.WriteLine v27 │
00:01:34 #5053 [verbose] > │ let v390 : string = "Average Ranking " │
00:01:34 #5054 [verbose] > │ System.Console.WriteLine v390 │
00:01:34 #5055 [verbose] > │ let v391 : ((struct (int32 * int64) -> int64) -> ((struct (int32 * │
00:01:34 #5056 [verbose] > │ int64) []) -> (struct (int32 * int64) []))) = Array.sortBy │
00:01:34 #5057 [verbose] > │ let v392 : (struct (int32 * int64) -> int64) = closure8() │
00:01:34 #5058 [verbose] > │ let v393 : ((struct (int32 * int64) []) -> (struct (int32 * int64) [])) │
00:01:34 #5059 [verbose] > │ = v391 v392 │
00:01:34 #5060 [verbose] > │ let v394 : (struct (int32 * int64) []) = v393 v389 │
00:01:34 #5061 [verbose] > │ let v395 : uint64 = System.Convert.ToUInt64 v394.Length │
00:01:34 #5062 [verbose] > │ let v396 : Mut1 = {l0 = 0UL} : Mut1 │
00:01:34 #5063 [verbose] > │ while method5(v395, v396) do │
00:01:34 #5064 [verbose] > │ let v398 : uint64 = v396.l0 │
00:01:34 #5065 [verbose] > │ let struct (v399 : int32, v400 : int64) = v394.[int v398] │
00:01:34 #5066 [verbose] > │ let v401 : string = $"Test case %d{v399 + 1}. Average Time: %A{v400} │
00:01:34 #5067 [verbose] > │ " │
00:01:34 #5068 [verbose] > │ System.Console.WriteLine v401 │
00:01:34 #5069 [verbose] > │ let v402 : uint64 = v398 + 1UL │
00:01:34 #5070 [verbose] > │ v396.l0 <- v402 │
00:01:34 #5071 [verbose] > │ () │
00:01:34 #5072 [verbose] > │ () │
00:01:34 #5073 [verbose] > │ method0() │
00:01:34 #5074 [verbose] > │ │
00:01:34 #5075 [verbose] > │ │
00:01:34 #5076 [verbose] > │ │
00:01:34 #5077 [verbose] > │ Test: v25 │
00:01:34 #5078 [verbose] > │ │
00:01:34 #5079 [verbose] > │ Solution: struct ([|1; 3; 4; 6; 8; 9; 11|], 6, 7) │
00:01:34 #5080 [verbose] > │ Test case 1. semi_open_1. Time: 551 │
00:01:34 #5081 [verbose] > │ Test case 2. closed_1. Time: 536 │
00:01:34 #5082 [verbose] > │ Test case 3. semi_open_2. Time: 579 │
00:01:34 #5083 [verbose] > │ Test case 4. closed_2. Time: 466 │
00:01:34 #5084 [verbose] > │ │
00:01:34 #5085 [verbose] > │ Solution: struct ([|1; 3; 4; 6; 8; 9; 11|], 1, 7) │
00:01:34 #5086 [verbose] > │ Test case 1. semi_open_1. Time: 492 │
00:01:34 #5087 [verbose] > │ Test case 2. closed_1. Time: 457 │
00:01:34 #5088 [verbose] > │ Test case 3. semi_open_2. Time: 446 │
00:01:34 #5089 [verbose] > │ Test case 4. closed_2. Time: 455 │
00:01:34 #5090 [verbose] > │ │
00:01:34 #5091 [verbose] > │ Solution: struct ([|1; 3; 4; 6; 8; 9; 11|], 11, 7) │
00:01:34 #5092 [verbose] > │ Test case 1. semi_open_1. Time: 464 │
00:01:34 #5093 [verbose] > │ Test case 2. closed_1. Time: 486 │
00:01:34 #5094 [verbose] > │ Test case 3. semi_open_2. Time: 457 │
00:01:34 #5095 [verbose] > │ Test case 4. closed_2. Time: 442 │
00:01:34 #5096 [verbose] > │ │
00:01:34 #5097 [verbose] > │ Solution: struct ([|1; 3; 4; 6; 8; 9; 11|], 12, 7) │
00:01:34 #5098 [verbose] > │ Test case 1. semi_open_1. Time: 470 │
00:01:34 #5099 [verbose] > │ Test case 2. closed_1. Time: 460 │
00:01:34 #5100 [verbose] > │ Test case 3. semi_open_2. Time: 461 │
00:01:34 #5101 [verbose] > │ Test case 4. closed_2. Time: 456 │
00:01:34 #5102 [verbose] > │ │
00:01:34 #5103 [verbose] > │ Solution: struct ([|1; 2; 3; 4; 5; 6; 7; 8; 9; 10; 11; 12; 13; 14; 15; 16; │
00:01:34 #5104 [verbose] > │ 17; 18; 19; 20; │
00:01:34 #5105 [verbose] > │ 21; 22; 23; 24; 25; 26; 27; 28; 29; 30; 31; 32; 33; 34; 35; 36; │
00:01:34 #5106 [verbose] > │ 37; 38; │
00:01:34 #5107 [verbose] > │ 39; 40; 41; 42; 43; 44; 45; 46; 47; 48; 49; 50; 51; 52; 53; 54; │
00:01:34 #5108 [verbose] > │ 55; 56; │
00:01:34 #5109 [verbose] > │ 57; 58; 59; 60; 61; 62; 63; 64; 65; 66; 67; 68; 69; 70; 71; 72; │
00:01:34 #5110 [verbose] > │ 73; 74; │
00:01:34 #5111 [verbose] > │ 75; 76; 77; 78; 79; 80; 81; 82; 83; 84; 85; 86; 87; 88; 89; 90; │
00:01:34 #5112 [verbose] > │ 91; 92; │
00:01:34 #5113 [verbose] > │ 93; 94; 95; 96; 97; 98; 99; 100|], 60, 100) │
00:01:34 #5114 [verbose] > │ Test case 1. semi_open_1. Time: 536 │
00:01:34 #5115 [verbose] > │ Test case 2. closed_1. Time: 480 │
00:01:34 #5116 [verbose] > │ Test case 3. semi_open_2. Time: 473 │
00:01:34 #5117 [verbose] > │ Test case 4. closed_2. Time: 469 │
00:01:34 #5118 [verbose] > │ │
00:01:34 #5119 [verbose] > │ Solution: struct ([|1; 3; 4; 6; 8; 9; 11|], 6, 7) │
00:01:34 #5120 [verbose] > │ Test case 1. semi_open_1. Time: 465 │
00:01:34 #5121 [verbose] > │ Test case 2. closed_1. Time: 484 │
00:01:34 #5122 [verbose] > │ Test case 3. semi_open_2. Time: 428 │
00:01:34 #5123 [verbose] > │ Test case 4. closed_2. Time: 437 │
00:01:34 #5124 [verbose] > │ │
00:01:34 #5125 [verbose] > │ Solution: struct ([|1; 3; 4; 6; 8; 9; 11|], 1, 7) │
00:01:34 #5126 [verbose] > │ Test case 1. semi_open_1. Time: 458 │
00:01:34 #5127 [verbose] > │ Test case 2. closed_1. Time: 439 │
00:01:34 #5128 [verbose] > │ Test case 3. semi_open_2. Time: 453 │
00:01:34 #5129 [verbose] > │ Test case 4. closed_2. Time: 544 │
00:01:34 #5130 [verbose] > │ │
00:01:34 #5131 [verbose] > │ Solution: struct ([|1; 3; 4; 6; 8; 9; 11|], 11, 7) │
00:01:34 #5132 [verbose] > │ Test case 1. semi_open_1. Time: 462 │
00:01:34 #5133 [verbose] > │ Test case 2. closed_1. Time: 455 │
00:01:34 #5134 [verbose] > │ Test case 3. semi_open_2. Time: 460 │
00:01:34 #5135 [verbose] > │ Test case 4. closed_2. Time: 453 │
00:01:34 #5136 [verbose] > │ │
00:01:34 #5137 [verbose] > │ Solution: struct ([|1; 3; 4; 6; 8; 9; 11|], 12, 7) │
00:01:34 #5138 [verbose] > │ Test case 1. semi_open_1. Time: 562 │
00:01:34 #5139 [verbose] > │ Test case 2. closed_1. Time: 450 │
00:01:34 #5140 [verbose] > │ Test case 3. semi_open_2. Time: 451 │
00:01:34 #5141 [verbose] > │ Test case 4. closed_2. Time: 462 │
00:01:34 #5142 [verbose] > │ │
00:01:34 #5143 [verbose] > │ Solution: struct ([|1; 2; 3; 4; 5; 6; 7; 8; 9; 10; 11; 12; 13; 14; 15; 16; │
00:01:34 #5144 [verbose] > │ 17; 18; 19; 20; │
00:01:34 #5145 [verbose] > │ 21; 22; 23; 24; 25; 26; 27; 28; 29; 30; 31; 32; 33; 34; 35; 36; │
00:01:34 #5146 [verbose] > │ 37; 38; │
00:01:34 #5147 [verbose] > │ 39; 40; 41; 42; 43; 44; 45; 46; 47; 48; 49; 50; 51; 52; 53; 54; │
00:01:34 #5148 [verbose] > │ 55; 56; │
00:01:34 #5149 [verbose] > │ 57; 58; 59; 60; 61; 62; 63; 64; 65; 66; 67; 68; 69; 70; 71; 72; │
00:01:34 #5150 [verbose] > │ 73; 74; │
00:01:34 #5151 [verbose] > │ 75; 76; 77; 78; 79; 80; 81; 82; 83; 84; 85; 86; 87; 88; 89; 90; │
00:01:34 #5152 [verbose] > │ 91; 92; │
00:01:34 #5153 [verbose] > │ 93; 94; 95; 96; 97; 98; 99; 100|], 60, 100) │
00:01:34 #5154 [verbose] > │ Test case 1. semi_open_1. Time: 467 │
00:01:34 #5155 [verbose] > │ Test case 2. closed_1. Time: 480 │
00:01:34 #5156 [verbose] > │ Test case 3. semi_open_2. Time: 468 │
00:01:34 #5157 [verbose] > │ Test case 4. closed_2. Time: 468 │
00:01:34 #5158 [verbose] > │ │
00:01:34 #5159 [verbose] > │ Input │
00:01:34 #5160 [verbose] > │ │
00:01:34 #5161 [verbose] > │ │
00:01:34 #5162 [verbose] > │ │
00:01:34 #5163 [verbose] > │ | Expected | Result | Best │
00:01:34 #5164 [verbose] > │ --- │
00:01:34 #5165 [verbose] > │ │
00:01:34 #5166 [verbose] > │ │
00:01:34 #5167 [verbose] > │ │
00:01:34 #5168 [verbose] > │ | --- | --- | --- │
00:01:34 #5169 [verbose] > │ struct ([|1; 3; 4; 6; 8; 9; 11|], 6, 7) │
00:01:34 #5170 [verbose] > │ │
00:01:34 #5171 [verbose] > │ │
00:01:34 #5172 [verbose] > │ │
00:01:34 #5173 [verbose] > │ | US0_0 3 | US0_0 3 | struct (4L, 466L) │
00:01:34 #5174 [verbose] > │ struct ([|1; 3; 4; 6; 8; 9; 11|], 1, 7) │
00:01:34 #5175 [verbose] > │ │
00:01:34 #5176 [verbose] > │ │
00:01:34 #5177 [verbose] > │ │
00:01:34 #5178 [verbose] > │ | US0_0 0 | US0_0 0 | struct (3L, 446L) │
00:01:34 #5179 [verbose] > │ struct ([|1; 3; 4; 6; 8; 9; 11|], 11, 7) │
00:01:34 #5180 [verbose] > │ │
00:01:34 #5181 [verbose] > │ │
00:01:34 #5182 [verbose] > │ │
00:01:34 #5183 [verbose] > │ | US0_0 6 | US0_0 6 | struct (4L, 442L) │
00:01:34 #5184 [verbose] > │ struct ([|1; 3; 4; 6; 8; 9; 11|], 12, 7) │
00:01:34 #5185 [verbose] > │ │
00:01:34 #5186 [verbose] > │ │
00:01:34 #5187 [verbose] > │ │
00:01:34 #5188 [verbose] > │ | US0_1 | US0_1 | struct (4L, 456L) │
00:01:34 #5189 [verbose] > │ struct ([|1; 2; 3; 4; 5; 6; 7; 8; 9; 10; 11; 12; 13; 14; 15; 16; 17; 18; 19; │
00:01:34 #5190 [verbose] > │ 20; │
00:01:34 #5191 [verbose] > │ 21; 22; 23; 24; 25; 26; 27; 28; 29; 30; 31; 32; 33; 34; 35; 36; │
00:01:34 #5192 [verbose] > │ 37; 38; │
00:01:34 #5193 [verbose] > │ 39; 40; 41; 42; 43; 44; 45; 46; 47; 48; 49; 50; 51; 52; 53; 54; │
00:01:34 #5194 [verbose] > │ 55; 56; │
00:01:34 #5195 [verbose] > │ 57; 58; 59; 60; 61; 62; 63; 64; 65; 66; 67; 68; 69; 70; 71; 72; │
00:01:34 #5196 [verbose] > │ 73; 74; │
00:01:34 #5197 [verbose] > │ 75; 76; 77; 78; 79; 80; 81; 82; 83; 84; 85; 86; 87; 88; 89; 90; │
00:01:34 #5198 [verbose] > │ 91; 92; │
00:01:34 #5199 [verbose] > │ 93; 94; 95; 96; 97; 98; 99; 100|], 60, 100) | US0_0 59 | US0_0 59 | │
00:01:34 #5200 [verbose] > │ struct (4L, 469L) │
00:01:34 #5201 [verbose] > │ struct ([|1; 3; 4; 6; 8; 9; 11|], 6, 7) │
00:01:34 #5202 [verbose] > │ │
00:01:34 #5203 [verbose] > │ │
00:01:34 #5204 [verbose] > │ │
00:01:34 #5205 [verbose] > │ | US0_0 3 | US0_0 3 | struct (3L, 428L) │
00:01:34 #5206 [verbose] > │ struct ([|1; 3; 4; 6; 8; 9; 11|], 1, 7) │
00:01:34 #5207 [verbose] > │ │
00:01:34 #5208 [verbose] > │ │
00:01:34 #5209 [verbose] > │ │
00:01:34 #5210 [verbose] > │ | US0_0 0 | US0_0 0 | struct (2L, 439L) │
00:01:34 #5211 [verbose] > │ struct ([|1; 3; 4; 6; 8; 9; 11|], 11, 7) │
00:01:34 #5212 [verbose] > │ │
00:01:34 #5213 [verbose] > │ │
00:01:34 #5214 [verbose] > │ │
00:01:34 #5215 [verbose] > │ | US0_0 6 | US0_0 6 | struct (4L, 453L) │
00:01:34 #5216 [verbose] > │ struct ([|1; 3; 4; 6; 8; 9; 11|], 12, 7) │
00:01:34 #5217 [verbose] > │ │
00:01:34 #5218 [verbose] > │ │
00:01:34 #5219 [verbose] > │ │
00:01:34 #5220 [verbose] > │ | US0_1 | US0_1 | struct (2L, 450L) │
00:01:34 #5221 [verbose] > │ struct ([|1; 2; 3; 4; 5; 6; 7; 8; 9; 10; 11; 12; 13; 14; 15; 16; 17; 18; 19; │
00:01:34 #5222 [verbose] > │ 20; │
00:01:34 #5223 [verbose] > │ 21; 22; 23; 24; 25; 26; 27; 28; 29; 30; 31; 32; 33; 34; 35; 36; │
00:01:34 #5224 [verbose] > │ 37; 38; │
00:01:34 #5225 [verbose] > │ 39; 40; 41; 42; 43; 44; 45; 46; 47; 48; 49; 50; 51; 52; 53; 54; │
00:01:34 #5226 [verbose] > │ 55; 56; │
00:01:34 #5227 [verbose] > │ 57; 58; 59; 60; 61; 62; 63; 64; 65; 66; 67; 68; 69; 70; 71; 72; │
00:01:34 #5228 [verbose] > │ 73; 74; │
00:01:34 #5229 [verbose] > │ 75; 76; 77; 78; 79; 80; 81; 82; 83; 84; 85; 86; 87; 88; 89; 90; │
00:01:34 #5230 [verbose] > │ 91; 92; │
00:01:34 #5231 [verbose] > │ 93; 94; 95; 96; 97; 98; 99; 100|], 60, 100) | US0_0 59 | US0_0 59 | │
00:01:34 #5232 [verbose] > │ struct (1L, 467L) │
00:01:34 #5233 [verbose] > │ │
00:01:34 #5234 [verbose] > │ Average Ranking │
00:01:34 #5235 [verbose] > │ Test case 4. Average Time: 465L │
00:01:34 #5236 [verbose] > │ Test case 3. Average Time: 467L │
00:01:34 #5237 [verbose] > │ Test case 2. Average Time: 472L │
00:01:34 #5238 [verbose] > │ Test case 1. Average Time: 492L │
00:01:34 #5239 [verbose] > │ │
00:01:34 #5240 [verbose] > ╰──────────────────────────────────────────────────────────────────────────────╯
00:01:34 #5241 [verbose] >
00:01:34 #5242 [verbose] > ── markdown ────────────────────────────────────────────────────────────────────
00:01:34 #5243 [verbose] > ╭──────────────────────────────────────────────────────────────────────────────╮
00:01:34 #5244 [verbose] > │ ## returnLettersWithOddCountTests │
00:01:34 #5245 [verbose] > ╰──────────────────────────────────────────────────────────────────────────────╯
00:01:34 #5246 [verbose] >
00:01:34 #5247 [verbose] > ── markdown ────────────────────────────────────────────────────────────────────
00:01:34 #5248 [verbose] > ╭──────────────────────────────────────────────────────────────────────────────╮
00:01:34 #5249 [verbose] > │ Test: ReturnLettersWithOddCount │
00:01:34 #5250 [verbose] > │ │
00:01:34 #5251 [verbose] > │ Solution: 1 │
00:01:34 #5252 [verbose] > │ Test case 1. A. Time: 645L │
00:01:34 #5253 [verbose] > │ │
00:01:34 #5254 [verbose] > │ Solution: 2 │
00:01:34 #5255 [verbose] > │ Test case 1. A. Time: 663L │
00:01:34 #5256 [verbose] > │ │
00:01:34 #5257 [verbose] > │ Solution: 3 │
00:01:34 #5258 [verbose] > │ Test case 1. A. Time: 680L │
00:01:34 #5259 [verbose] > │ │
00:01:34 #5260 [verbose] > │ Solution: 9 │
00:01:34 #5261 [verbose] > │ Test case 1. A. Time: 730L │
00:01:34 #5262 [verbose] > │ │
00:01:34 #5263 [verbose] > │ Solution: 10 │
00:01:34 #5264 [verbose] > │ Test case 1. A. Time: 815L │
00:01:34 #5265 [verbose] > │ │
00:01:34 #5266 [verbose] > │ Input | Expected | Result | Best │
00:01:34 #5267 [verbose] > │ --- | --- | --- | --- │
00:01:34 #5268 [verbose] > │ 1 | a | a | (1, 645) │
00:01:34 #5269 [verbose] > │ 2 | ba | ba | (1, 663) │
00:01:34 #5270 [verbose] > │ 3 | aaa | aaa | (1, 680) │
00:01:34 #5271 [verbose] > │ 9 | aaaaaaaaa | aaaaaaaaa | (1, 730) │
00:01:34 #5272 [verbose] > │ 10 | baaaaaaaaa | baaaaaaaaa | (1, 815) │
00:01:34 #5273 [verbose] > │ │
00:01:34 #5274 [verbose] > │ Averages │
00:01:34 #5275 [verbose] > │ Test case 1. Average Time: 706L │
00:01:34 #5276 [verbose] > │ │
00:01:34 #5277 [verbose] > │ Ranking │
00:01:34 #5278 [verbose] > │ Test case 1. Average Time: 706L │
00:01:34 #5279 [verbose] > ╰──────────────────────────────────────────────────────────────────────────────╯
00:01:34 #5280 [verbose] >
00:01:34 #5281 [verbose] > ── fsharp ──────────────────────────────────────────────────────────────────────
00:01:34 #5282 [verbose] > //// test
00:01:34 #5283 [verbose] >
00:01:34 #5284 [verbose] > let solutions = [[
00:01:34 #5285 [verbose] > "A",
00:01:34 #5286 [verbose] > fun n ->
00:01:34 #5287 [verbose] > let mutable _builder = StringBuilder (new string('a', n))
00:01:34 #5288 [verbose] > if n % 2 = 0 then
00:01:34 #5289 [verbose] > _builder.[[0]] <- 'b'
00:01:34 #5290 [verbose] >
00:01:34 #5291 [verbose] > _builder.ToString ()
00:01:34 #5292 [verbose] > ]]
00:01:34 #5293 [verbose] > let testCases = seq {
00:01:34 #5294 [verbose] > 1, "a"
00:01:34 #5295 [verbose] > 2, "ba"
00:01:34 #5296 [verbose] > 3, "aaa"
00:01:34 #5297 [verbose] > 9, "aaaaaaaaa"
00:01:34 #5298 [verbose] > 10, "baaaaaaaaa"
00:01:34 #5299 [verbose] > }
00:01:34 #5300 [verbose] > let rec returnLettersWithOddCountTests =
00:01:34 #5301 [verbose] > runAll (nameof returnLettersWithOddCountTests) _count solutions testCases
00:01:34 #5302 [verbose] > returnLettersWithOddCountTests
00:01:34 #5303 [verbose] > |> sortResultList
00:01:35 #5304 [verbose] >
00:01:35 #5305 [verbose] > ╭─[ 866.72ms - stdout ]────────────────────────────────────────────────────────╮
00:01:35 #5306 [verbose] > │ │
00:01:35 #5307 [verbose] > │ │
00:01:35 #5308 [verbose] > │ Test: returnLettersWithOddCountTests │
00:01:35 #5309 [verbose] > │ │
00:01:35 #5310 [verbose] > │ Solution: 1 │
00:01:35 #5311 [verbose] > │ Test case 1. A. Time: 0L │
00:01:35 #5312 [verbose] > │ │
00:01:35 #5313 [verbose] > │ Solution: 2 │
00:01:35 #5314 [verbose] > │ Test case 1. A. Time: 0L │
00:01:35 #5315 [verbose] > │ │
00:01:35 #5316 [verbose] > │ Solution: 3 │
00:01:35 #5317 [verbose] > │ Test case 1. A. Time: 0L │
00:01:35 #5318 [verbose] > │ │
00:01:35 #5319 [verbose] > │ Solution: 9 │
00:01:35 #5320 [verbose] > │ Test case 1. A. Time: 0L │
00:01:35 #5321 [verbose] > │ │
00:01:35 #5322 [verbose] > │ Solution: 10 │
00:01:35 #5323 [verbose] > │ Test case 1. A. Time: 2L │
00:01:35 #5324 [verbose] > │ │
00:01:35 #5325 [verbose] > │ Input | Expected | Result | Best │
00:01:35 #5326 [verbose] > │ --- | --- | --- | --- │
00:01:35 #5327 [verbose] > │ 1 | a | a | (1, 0) │
00:01:35 #5328 [verbose] > │ 2 | ba | ba | (1, 0) │
00:01:35 #5329 [verbose] > │ 3 | aaa | aaa | (1, 0) │
00:01:35 #5330 [verbose] > │ 9 | aaaaaaaaa | aaaaaaaaa | (1, 0) │
00:01:35 #5331 [verbose] > │ 10 | baaaaaaaaa | baaaaaaaaa | (1, 2) │
00:01:35 #5332 [verbose] > │ │
00:01:35 #5333 [verbose] > │ Average Ranking │
00:01:35 #5334 [verbose] > │ Test case 1. Average Time: 0L │
00:01:35 #5335 [verbose] > │ │
00:01:35 #5336 [verbose] > ╰──────────────────────────────────────────────────────────────────────────────╯
00:01:35 #5337 [verbose] >
00:01:35 #5338 [verbose] > ── markdown ────────────────────────────────────────────────────────────────────
00:01:35 #5339 [verbose] > ╭──────────────────────────────────────────────────────────────────────────────╮
00:01:35 #5340 [verbose] > │ ## hasAnyPairCloseToEachotherTests │
00:01:35 #5341 [verbose] > ╰──────────────────────────────────────────────────────────────────────────────╯
00:01:35 #5342 [verbose] >
00:01:35 #5343 [verbose] > ── markdown ────────────────────────────────────────────────────────────────────
00:01:35 #5344 [verbose] > ╭──────────────────────────────────────────────────────────────────────────────╮
00:01:35 #5345 [verbose] > │ Test: HasAnyPairCloseToEachother │
00:01:35 #5346 [verbose] > │ │
00:01:35 #5347 [verbose] > │ Solution: 0 │
00:01:35 #5348 [verbose] > │ Test case 1. A. Time: 137L │
00:01:35 #5349 [verbose] > │ │
00:01:35 #5350 [verbose] > │ Solution: 1,2 │
00:01:35 #5351 [verbose] > │ Test case 1. A. Time: 186L │
00:01:35 #5352 [verbose] > │ │
00:01:35 #5353 [verbose] > │ Solution: 3,5 │
00:01:35 #5354 [verbose] > │ Test case 1. A. Time: 206L │
00:01:35 #5355 [verbose] > │ │
00:01:35 #5356 [verbose] > │ Solution: 3,4,6 │
00:01:35 #5357 [verbose] > │ Test case 1. A. Time: 149L │
00:01:35 #5358 [verbose] > │ │
00:01:35 #5359 [verbose] > │ Solution: 2,4,6 │
00:01:35 #5360 [verbose] > │ Test case 1. A. Time: 150L │
00:01:35 #5361 [verbose] > │ │
00:01:35 #5362 [verbose] > │ Input | Expected | Result | Best │
00:01:35 #5363 [verbose] > │ --- | --- | --- | --- │
00:01:35 #5364 [verbose] > │ 0 | False | False | (1, 137) │
00:01:35 #5365 [verbose] > │ 1,2 | True | True | (1, 186) │
00:01:35 #5366 [verbose] > │ 3,5 | False | False | (1, 206) │
00:01:35 #5367 [verbose] > │ 3,4,6 | True | True | (1, 149) │
00:01:35 #5368 [verbose] > │ 2,4,6 | False | False | (1, 150) │
00:01:35 #5369 [verbose] > │ │
00:01:35 #5370 [verbose] > │ Averages │
00:01:35 #5371 [verbose] > │ Test case 1. Average Time: 165L │
00:01:35 #5372 [verbose] > │ │
00:01:35 #5373 [verbose] > │ Ranking │
00:01:35 #5374 [verbose] > │ Test case 1. Average Time: 165L │
00:01:35 #5375 [verbose] > ╰──────────────────────────────────────────────────────────────────────────────╯
00:01:35 #5376 [verbose] >
00:01:35 #5377 [verbose] > ── fsharp ──────────────────────────────────────────────────────────────────────
00:01:35 #5378 [verbose] > //// test
00:01:35 #5379 [verbose] >
00:01:35 #5380 [verbose] > let solutions = [[
00:01:35 #5381 [verbose] > "A",
00:01:35 #5382 [verbose] > fun (a: int[[]]) ->
00:01:35 #5383 [verbose] > let indices = System.Linq.Enumerable.Range(0, a.Length) |>
00:01:35 #5384 [verbose] > System.Linq.Enumerable.ToArray
00:01:35 #5385 [verbose] > System.Array.Sort (a, indices)
00:01:35 #5386 [verbose] >
00:01:35 #5387 [verbose] > indices
00:01:35 #5388 [verbose] > |> Array.take (a.Length - 1)
00:01:35 #5389 [verbose] > |> Array.exists (fun i -> a.[[i + 1]] - a.[[i]] = 1)
00:01:35 #5390 [verbose] > ]]
00:01:35 #5391 [verbose] > let testCases = seq {
00:01:35 #5392 [verbose] > [[| 0 |]], false
00:01:35 #5393 [verbose] > [[| 1; 2 |]], true
00:01:35 #5394 [verbose] > [[| 3; 5 |]], false
00:01:35 #5395 [verbose] > [[| 3; 4; 6 |]], true
00:01:35 #5396 [verbose] > [[| 2; 4; 6 |]], false
00:01:35 #5397 [verbose] > }
00:01:35 #5398 [verbose] > let rec hasAnyPairCloseToEachotherTests =
00:01:35 #5399 [verbose] > runAll (nameof hasAnyPairCloseToEachotherTests) _count solutions testCases
00:01:35 #5400 [verbose] > hasAnyPairCloseToEachotherTests
00:01:35 #5401 [verbose] > |> sortResultList
00:01:35 #5402 [verbose] >
00:01:35 #5403 [verbose] > ╭─[ 825.20ms - stdout ]────────────────────────────────────────────────────────╮
00:01:35 #5404 [verbose] > │ │
00:01:35 #5405 [verbose] > │ │
00:01:35 #5406 [verbose] > │ Test: hasAnyPairCloseToEachotherTests │
00:01:35 #5407 [verbose] > │ │
00:01:35 #5408 [verbose] > │ Solution: 0 │
00:01:35 #5409 [verbose] > │ Test case 1. A. Time: 2L │
00:01:35 #5410 [verbose] > │ │
00:01:35 #5411 [verbose] > │ Solution: 1,2 │
00:01:35 #5412 [verbose] > │ Test case 1. A. Time: 0L │
00:01:35 #5413 [verbose] > │ │
00:01:35 #5414 [verbose] > │ Solution: 3,5 │
00:01:35 #5415 [verbose] > │ Test case 1. A. Time: 0L │
00:01:35 #5416 [verbose] > │ │
00:01:35 #5417 [verbose] > │ Solution: 3,4,6 │
00:01:35 #5418 [verbose] > │ Test case 1. A. Time: 0L │
00:01:35 #5419 [verbose] > │ │
00:01:35 #5420 [verbose] > │ Solution: 2,4,6 │
00:01:35 #5421 [verbose] > │ Test case 1. A. Time: 0L │
00:01:35 #5422 [verbose] > │ │
00:01:35 #5423 [verbose] > │ Input | Expected | Result | Best │
00:01:35 #5424 [verbose] > │ --- | --- | --- | --- │
00:01:35 #5425 [verbose] > │ 0 | False | False | (1, 2) │
00:01:35 #5426 [verbose] > │ 1,2 | True | True | (1, 0) │
00:01:35 #5427 [verbose] > │ 3,5 | False | False | (1, 0) │
00:01:35 #5428 [verbose] > │ 3,4,6 | True | True | (1, 0) │
00:01:35 #5429 [verbose] > │ 2,4,6 | False | False | (1, 0) │
00:01:35 #5430 [verbose] > │ │
00:01:35 #5431 [verbose] > │ Average Ranking │
00:01:35 #5432 [verbose] > │ Test case 1. Average Time: 0L │
00:01:35 #5433 [verbose] > │ │
00:01:35 #5434 [verbose] > ╰──────────────────────────────────────────────────────────────────────────────╯
00:01:35 #5435 [verbose] >
00:01:35 #5436 [verbose] > ── spiral ──────────────────────────────────────────────────────────────────────
00:01:35 #5437 [verbose] > // // test
00:01:35 #5438 [verbose] >
00:01:35 #5439 [verbose] > ()
00:01:36 #5440 [verbose] > Building c:\home\git\polyglot\target\polyglot\spiral_eval\packages\8014057efde7e134b1cff739bd09ed6e4a1f298b31dc495e67550ecb034721ec\main.spi
00:01:36 #5441 [verbose] >
00:01:36 #5442 [verbose] > ╭─[ 253.85ms - stdout ]────────────────────────────────────────────────────────╮
00:01:36 #5443 [verbose] > │ let rec method0 () : unit = │
00:01:36 #5444 [verbose] > │ () │
00:01:36 #5445 [verbose] > │ method0() │
00:01:36 #5446 [verbose] > │ │
00:01:36 #5447 [verbose] > │ │
00:01:36 #5448 [verbose] > ╰──────────────────────────────────────────────────────────────────────────────╯
00:01:38 #5449 [verbose] > [NbConvertApp] Converting notebook Perf.dib.ipynb to html
00:01:38 #5450 [verbose] > C:\Users\i574n\scoop\apps\python\current\Lib\site-packages\nbformat\__init__.py:93: MissingIDFieldWarning: Code cell is missing an id field, this will become a hard error in future nbformat versions. You may want to use `normalize()` on your notebooks before validations (available since nbformat 5.1.4). Previous versions of nbformat are fixing this issue transparently, and will stop doing so in the future.
00:01:38 #5451 [verbose] > validate(nb)
00:01:38 #5452 [verbose] > C:\Users\i574n\scoop\apps\python\current\Lib\site-packages\nbconvert\filters\highlight.py:71: UserWarning: IPython3 lexer unavailable, falling back on Python 3
00:01:38 #5453 [verbose] > return _pygments_highlight(
00:01:39 #5454 [verbose] > [NbConvertApp] Writing 567474 bytes to Perf.dib.html
00:01:40 #5455 [debug] execute_with_options_async / exit_code: 0 / output.Length: 376211
00:01:40 #6 [debug] main / executeCommand / exitCode: 0
00:01:42 #7 [debug] runWithTimeoutChildAsync / timeout: 2000
00:00:00 #1 [debug] writeDibCode / output: Fs / path: Perf.dib
00:00:00 #2 [debug] parseDibCode / output: Fs / file: Perf.dib
In [ ]:
{ . "$ScriptDir/../apps/dir-tree-html/build.ps1" } | Invoke-Block
── markdown ────────────────────────────────────────────────────────────────────
╭──────────────────────────────────────────────────────────────────────────────╮
│ # DirTreeHtml (Polyglot) │
╰──────────────────────────────────────────────────────────────────────────────╯
── fsharp ──────────────────────────────────────────────────────────────────────
#!import ../../lib/fsharp/Notebooks.dib
#!import ../../lib/fsharp/Testing.dib
── fsharp - import ─────────────────────────────────────────────────────────────
#r
"C:/Users/i574n/.nuget/packages/dotnet-repl/0.1.204/tools/net7.0/any/Microsoft.A
spNetCore.Html.Abstractions.dll"
#r
"C:/Users/i574n/.nuget/packages/dotnet-repl/0.1.204/tools/net7.0/any/Microsoft.D
otNet.Interactive.dll"
#r
"C:/Users/i574n/.nuget/packages/dotnet-repl/0.1.204/tools/net7.0/any/Microsoft.D
otNet.Interactive.FSharp.dll"
#r
"C:/Users/i574n/.nuget/packages/dotnet-repl/0.1.204/tools/net7.0/any/Microsoft.D
otNet.Interactive.Formatting.dll"
open System
open System.IO
open System.Text
open Microsoft.DotNet.Interactive.Formatting
── fsharp - import ─────────────────────────────────────────────────────────────
#r
"C:/Users/i574n/.nuget/packages/dotnet-repl/0.1.204/tools/net7.0/any/Microsoft.D
otNet.Interactive.FSharp.dll"
open Microsoft.DotNet.Interactive.FSharp.FSharpKernelHelpers
#r
"C:/Users/i574n/.nuget/packages/dotnet-repl/0.1.204/tools/net7.0/any/Microsoft.D
otNet.Interactive.dll"
open type Microsoft.DotNet.Interactive.Kernel
── fsharp - import ─────────────────────────────────────────────────────────────
//// test
Formatter.ListExpansionLimit <- 100
── fsharp - import ─────────────────────────────────────────────────────────────
type [[<Struct>]] US0 =
| US0_0
| US0_1
and [[<Struct>]] US1 =
| US1_0 of f0_0 : US0
| US1_1
let rec closure0 () (v0 : (unit -> unit)) : System.IDisposable =
let v1 : System.IDisposable option = None
let mutable _v1 = v1
#if FABLE_COMPILER_RUST && !WASM && !CONTRACT
let v2 : System.IDisposable = null |> unbox<System.IDisposable>
v2
#endif
#if FABLE_COMPILER_RUST && WASM
let v3 : System.IDisposable = null |> unbox<System.IDisposable>
v3
#endif
#if FABLE_COMPILER_RUST && CONTRACT
let v4 : System.IDisposable = null |> unbox<System.IDisposable>
v4
#endif
#if !FABLE_COMPILER && !FABLE_COMPILER_RUST && !FABLE_COMPILER_TYPESCRIPT &&
!WASM && !CONTRACT
let v5 : System.ID...
── fsharp - import ─────────────────────────────────────────────────────────────
type Mut0 = {mutable l0 : int32; mutable l1 : string}
and Mut1 = {mutable l0 : int32}
let rec closure1 (v0 : string) (v1 : string) : bool =
let v2 : bool = v1.Contains v0
v2
and closure0 () (v0 : string) : (string -> bool) =
closure1(v0)
and closure3 (v0 : string) (v1 : string) : bool =
let v2 : bool = v1.EndsWith v0
v2
and closure2 () (v0 : string) : (string -> bool) =
closure3(v0)
and closure6 (v0 : int32, v1 : char) (v2 : string) : string =
let v3 : string = v2.PadLeft (v0, v1)
v3
and closure5 (v0 : int32) (v1 : char) : (string -> string) =
closure6(v0, v1)
and closure4 () (v0 : int32) : (char -> (string -> string)) =
closure5(v0)
and closure8 (v0 : int32) (v1 : string) : string =
let v2 : stri...
── fsharp - import ─────────────────────────────────────────────────────────────
type ICryptoCreateHash = abstract createHash: x: string -> obj
type Mut0 = {mutable l0 : int32}
let rec method0 (v0 : int32, v1 : Mut0) : bool =
let v2 : int32 = v1.l0
let v3 : bool = v2 < v0
v3
and method1 () : string =
let v0 : string = ""
v0
and closure0 () (v0 : string) : string =
let v1 : string option = None
let mutable _v1 = v1
#if FABLE_COMPILER_RUST && !WASM && !CONTRACT
let v2 : string = null |> unbox<string>
v2
#endif
#if FABLE_COMPILER_RUST && WASM
let v3 : string = null |> unbox<string>
v3
#endif
#if FABLE_COMPILER_RUST && CONTRACT
let v4 : string = null |> unbox<string>
v4
#endif
#if !FABLE_COMPILER && !FABLE_COMPILER_RUST && !FABLE_COMPILER_TYP...
── fsharp - import ─────────────────────────────────────────────────────────────
let rec closure1 (v0 : System.Guid) (v1 : System.DateTime) : System.Guid =
let v2 : (System.Guid -> string) = _.ToString()
let v3 : string = v2 v0
let v4 : string = v1.ToString "yyyyMMdd-HHmm-ssff-ffff-f"
let v5 : System.Guid = System.Guid $"{v4}{v3.[[v4.Length..]]}"
v5
and closure0 () (v0 : System.Guid) : (System.DateTime -> System.Guid) =
closure1(v0)
and closure5 (v0 : string, v1 : string) (v2 : string) : string =
let v3 : string = v2.Replace (v0, v1)
v3
and closure4 (v0 : string) (v1 : string) : (string -> string) =
closure5(v0, v1)
and closure3 () (v0 : string) : (string -> (string -> string)) =
closure4(v0)
and method0 () : (string -> (string -> (string -> string))) =
closure3()
and closure2 (...
── fsharp - import ─────────────────────────────────────────────────────────────
let rec closure0 () (v0 : System.Threading.CancellationToken) :
Async<System.Threading.CancellationToken> =
let v1 : Async<System.Threading.CancellationToken> option = None
let mutable _v1 = v1
#if FABLE_COMPILER_RUST && !WASM && !CONTRACT
let v2 : Async<System.Threading.CancellationToken> = null |>
unbox<Async<System.Threading.CancellationToken>>
v2
#endif
#if FABLE_COMPILER_RUST && WASM
let v3 : Async<System.Threading.CancellationToken> = null |>
unbox<Async<System.Threading.CancellationToken>>
v3
#endif
#if FABLE_COMPILER_RUST && CONTRACT
let v4 : Async<System.Threading.CancellationToken> = null |>
unbox<Async<System.Threading.CancellationToken>>
v4
#endif
#if !FABLE_COMPILER...
── fsharp - import ─────────────────────────────────────────────────────────────
#if FABLE_COMPILER
[[<CompilationRepresentation (CompilationRepresentationFlags.ModuleSuffix)>]]
module System =
module Diagnostics =
type Process = unit
type DataReceivedEventArgs = unit
#endif
module State = let mutable trace_state = None
type [[<Struct>]] US0 =
| US0_0
| US0_1
| US0_2
| US0_3
| US0_4
and UH0 =
| UH0_0
| UH0_1 of char * UH0
and [[<Struct>]] US2 =
| US2_0
| US2_1
and [[<Struct>]] US1 =
| US1_0
| US1_1 of f1_0 : US2
| US1_2
and [[<Struct>]] US3 =
| US3_0 of f0_0 : string
| US3_1
and Mut0 = {mutable l0 : int64}
and Mut1 = {mutable l0 : bool}
and Mut2 = {mutable l0 : US0}
and [[<Struct>]] US4 =
| US4_0 of f0_0 : int64
| US4_1
and [[<Struct>]] US5 =
| US5_0 of f0_0 : i...
── fsharp - import ─────────────────────────────────────────────────────────────
#if FABLE_COMPILER // file_system.types
[[<Fable.Core.Erase; Fable.Core.Emit("str")>]] type Str = class end
[[<Fable.Core.Erase; Fable.Core.Emit("base64::DecodeError")>]] type
base64_DecodeError = class end
[[<Fable.Core.Erase; Fable.Core.Emit("borsh::io::Error")>]] type borsh_io_Error
= class end
[[<Fable.Core.Erase; Fable.Core.Emit("js_sys::JsString")>]] type js_sys_JsString
= class end
[[<Fable.Core.Erase; Fable.Core.Emit("serde_json::Error")>]] type
serde_json_Error = class end
[[<Fable.Core.Erase; Fable.Core.Emit("serde_json::Value")>]] type
serde_json_Value = class end
[[<Fable.Core.Erase; Fable.Core.Emit("serde_wasm_bindgen::Error")>]] type
serde_wasm_bindgen_Error = class end
[[<Fable.Core.Erase; Fable.Core.Emit("std::ffi::OsStr")>]] type std_ffi_O...
── fsharp - import ─────────────────────────────────────────────────────────────
module State = let mutable trace_state = None
type [[<Struct>]] US0 =
| US0_0
| US0_1
| US0_2
| US0_3
| US0_4
and Mut0 = {mutable l0 : int64}
and Mut1 = {mutable l0 : bool}
and Mut2 = {mutable l0 : US0}
and [[<Struct>]] US1 =
| US1_0 of f0_0 : int64
| US1_1
and [[<Struct>]] US2 =
| US2_0 of f0_0 : int64
| US2_1
let rec method1 (v0 : int64 option) : int64 option =
v0
and method2 (v0 : int64 option) : int64 option =
v0
and closure3 () () : struct (Mut0 * Mut1 * Mut1 * Mut2 * int64 option) =
let v0 : Mut1 = {l0 = true} : Mut1
let v1 : Mut0 = {l0 = 0L} : Mut0
let v2 : US0 = US0_0
let v3 : Mut2 = {l0 = v2} : Mut2
let v4 : Mut1 = {l0 = false} : Mut1
let v5 : int64 option option = None
...
── fsharp - import ─────────────────────────────────────────────────────────────
module SpiralTrace =
let get_trace_state () =
#if !INTERACTIVE
Trace.get_trace_state ()
#else
get_trace_state ()
#endif
let trace x =
#if !INTERACTIVE
Trace.trace x
#else
trace x
#endif
type TraceLevel =
#if !INTERACTIVE
Trace.US0
#else
US0
#endif
#if !FABLE_COMPILER && !WASM && !CONTRACT
module SpiralAsync =
let merge_cancellation_token_with_default_async x =
#if !INTERACTIVE
Async_.merge_cancellation_token_with_default_async x
#else
merge_cancellation_token_with_default_async x
#endif
module SpiralRuntime =
let get_executable_suffix () =
#if !INTERACTIVE
Runtime.get_executable_suffix ()
#else
get_executable_suffix ()
#endif
let is...
── fsharp - import ─────────────────────────────────────────────────────────────
#r @"../../../../../../../.nuget/packages/expecto/10.2.1/lib/net6.0/Expecto.dll"
── fsharp - import ─────────────────────────────────────────────────────────────
//// test
type AssertExceptionFormatter (ex) =
member _.Text =
ex.ToString()
.Replace("32m", "<span style=\"color: green;\">")
.Replace("36m", "</span>")
.Replace("31m", "<span style=\"color: red;\">")
.Replace("\n", "<br/>\n")
Formatter.Register<AssertExceptionFormatter> ((fun (x :
AssertExceptionFormatter) -> x.Text), "text/html")
── fsharp - import ─────────────────────────────────────────────────────────────
//// test
let inline __expect fn log expected actual =
if log then printfn $"{actual.ToDisplayString ()}"
try
"Testing.__expect" |> fn actual expected
with :? Expecto.AssertException as ex ->
AssertExceptionFormatter(ex).Display () |> ignore
failwith (ex.GetType().FullName)
let inline __contains log expected actual = __expect Expecto.Expect.contains log
expected actual
let inline _contains expected actual = __contains true expected actual
let inline __assertEqual log expected actual = __expect Expecto.Expect.equal log
expected actual
let inline _assertEqual expected actual = __assertEqual true expected actual
let inline __isGreaterThan log expected actual = __expect
Expecto.Expect.isGreaterThan log ex...
── fsharp - import ─────────────────────────────────────────────────────────────
//// test
let inline __isBetween log a b actual =
let inline isBetween actual (a, b) _ =
__isGreaterThanOrEqual log a actual
__isLessThanOrEqual log b actual
__expect isBetween log (a, b) actual
let inline _isBetween a b actual = __isBetween true a b actual
── fsharp ──────────────────────────────────────────────────────────────────────
#r
@"../../../../../../../.nuget/packages/fsharp.control.asyncseq/3.2.1/lib/netstan
dard2.1/FSharp.Control.AsyncSeq.dll"
#r
@"../../../../../../../.nuget/packages/system.reactive/6.0.1-preview.1/lib/net6.
0/System.Reactive.dll"
#r
@"../../../../../../../.nuget/packages/system.reactive.linq/6.0.1-preview.1/lib/
netstandard2.0/System.Reactive.Linq.dll"
#r
@"../../../../../../../.nuget/packages/argu/6.2.2/lib/netstandard2.0/Argu.dll"
#r
@"../../../../../../../.nuget/packages/system.commandline/2.0.0-beta4.22272.1/li
b/net6.0/System.CommandLine.dll"
#r
@"../../../../../../../.nuget/packages/falco.markup/1.1.1/lib/netstandard2.0/Fal
co.Markup.dll"
── fsharp ──────────────────────────────────────────────────────────────────────
#!import ../../lib/fsharp/Common.fs
#!import ../../lib/fsharp/CommonFSharp.fs
#!import ../../lib/fsharp/Async.fs
#!import ../../lib/fsharp/AsyncSeq.fs
#!import ../../lib/fsharp/Networking.fs
#!import ../../lib/fsharp/Runtime.fs
#!import ../../lib/fsharp/FileSystem.fs
── fsharp - import ─────────────────────────────────────────────────────────────
#if !INTERACTIVE
namespace Polyglot
#endif
module Common =
#if !INTERACTIVE
open Lib
#endif
let nl = System.Environment.NewLine
let q = @""""
let inline cons head tail = head :: tail
/// ## memoize
let inline memoize fn =
let result = lazy fn ()
fun () -> result.Value
/// ## TraceLevel
type TraceLevel =
| Verbose
| Debug
| Info
| Warning
| Critical
let inline getLocals () = ""
/// ## trace
let to_trace_level = function
| Verbose -> SpiralTrace.TraceLevel.US0_0
| Debug -> SpiralTrace.TraceLevel.US0_1
| Info -> SpiralTrace.TraceLevel.US0_2
| Warning -> SpiralTrace.TraceLevel.US0_3
| Critical ->...
── fsharp - import ─────────────────────────────────────────────────────────────
#if !INTERACTIVE
namespace Polyglot
#endif
module CommonFSharp =
open Common
/// ## getUnionCaseName
let inline getUnionCaseName<'T> (x: 'T) =
match Reflection.FSharpValue.GetUnionFields(x, typeof<'T>) with
| case, _ -> case.Name
── fsharp - import ─────────────────────────────────────────────────────────────
#if !INTERACTIVE
namespace Polyglot
#endif
module Async =
#if !INTERACTIVE
open Lib
#endif
open Common
/// ## choice
let inline choice asyncs = async {
let e = Event<_> ()
use cts = new System.Threading.CancellationTokenSource ()
let fn =
asyncs
|> Seq.map (fun a -> async {
let! x = a
e.Trigger x
})
|> Async.Parallel
|> Async.Ignore
Async.Start (fn, cts.Token)
let! result = Async.AwaitEvent e.Publish
cts.Cancel ()
return result
}
/// ## map
let inline map fn a = async {
let! x = a
return fn x
}
/// ## catch
let inline catch a =
...
── fsharp - import ─────────────────────────────────────────────────────────────
#if !INTERACTIVE
namespace Polyglot
#endif
module AsyncSeq =
#if !INTERACTIVE
open Lib
#endif
open Common
/// ## subscribeEvent
let inline subscribeEvent (event: IEvent<'H, 'A>) map =
let observable = System.Reactive.Linq.Observable.FromEventPattern<'H,
'A>(event.AddHandler, event.RemoveHandler)
System.Reactive.Linq.Observable.Select (observable, fun event -> map
event.EventArgs)
|> FSharp.Control.AsyncSeq.ofObservableBuffered
let subscribeToken (token : System.Threading.CancellationToken) =
let tcs = new System.Threading.Tasks.TaskCompletionSource ()
System.Action tcs.SetResult |> token.Register |> ignore
let start = System.DateTime.Now.Ticks
FSharp.Control.A...
── fsharp - import ─────────────────────────────────────────────────────────────
#if !INTERACTIVE
namespace Polyglot
#endif
module Networking =
#if !INTERACTIVE
open Lib
#endif
open Common
/// ## testPortOpen
let inline testPortOpen port = async {
let! ct = Async.CancellationToken
use client = new System.Net.Sockets.TcpClient ()
try
do! client.ConnectAsync ("127.0.0.1", port, ct) |>
Async.awaitValueTaskUnit
return true
with ex ->
trace Verbose (fun () -> $"testPortOpen / ex: {ex |>
SpiralSm.format_exception}") getLocals
return false
}
let inline testPortOpenTimeout timeout port = async {
let! result =
testPortOpen port
|> Async.runWithTimeoutAsync timeout
return
...
── fsharp - import ─────────────────────────────────────────────────────────────
#if !INTERACTIVE
namespace Polyglot
#endif
module Runtime =
#if !INTERACTIVE
open Lib
#endif
open Common
/// ## splitArgs
let inline splitArgs commandLine =
commandLine
|> System.CommandLine.Parsing.CommandLineStringSplitter.Instance.Split
/// ## parseArgs
let inline parseArgs<'T when 'T :> Argu.IArgParserTemplate> args =
let assemblyName =
System.Reflection.Assembly.GetEntryAssembly().GetName().Name
let errorHandler : Argu.IExiter =
if [[ "Microsoft.DotNet.Interactive.App"; "dotnet-repl" ]] |>
List.contains assemblyName
then Argu.ExceptionExiter ()
else Argu.ProcessExiter (function Argu.ErrorCode.HelpText -> None |
_ -> Some System.ConsoleColor...
── fsharp - import ─────────────────────────────────────────────────────────────
#if !INTERACTIVE
namespace Polyglot
#endif
module FileSystem =
#if !INTERACTIVE
open Lib
#endif
open Common
open SpiralFileSystem.Operators
/// ## watchDirectory
[[<RequireQualifiedAccess>]]
type FileSystemChangeType =
| Failure
| Changed
| Created
| Deleted
| Renamed
[[<RequireQualifiedAccess>]]
type FileSystemChange =
| Failure of exn: exn
| Changed of path: string * content: string option
| Created of path: string * content: string option
| Deleted of path: string
| Renamed of oldPath: string * (string * string option)
let inline watchDirectoryWithFilter filter shouldReadContent path =
let fullPath = path |> Sys...
── fsharp ──────────────────────────────────────────────────────────────────────
#if !INTERACTIVE
open Lib
#endif
── fsharp ──────────────────────────────────────────────────────────────────────
open SpiralFileSystem.Operators
open Falco.Markup
── fsharp ──────────────────────────────────────────────────────────────────────
type FileSystemNode =
| File of string * string * int64
| Folder of string * string * FileSystemNode list
| Root of FileSystemNode list
let rec scanDirectory isRoot (basePath : string) (path : string) =
let relativePath =
path
|> SpiralSm.replace basePath ""
|> SpiralSm.replace "\\" "/"
|> SpiralSm.replace "//" "/"
|> SpiralSm.trim_start [[| '/' |]]
let directories =
path
|> System.IO.Directory.GetDirectories
|> Array.toList
|> List.sort
|> List.map (scanDirectory false basePath)
let files =
path
|> System.IO.Directory.GetFiles
|> Array.toList
|> List.sort
|> List.map (fun f -> File (System.IO.Path.GetFileName f, relativePath,
System.IO.FileInfo(f).Length))
let children = directories @ files
if isRoot
then Root children
else Folder (path |> System.IO.Path.GetFileName, relativePath, children)
let rec generateHtml fsNode =
let sizeLabel size =
match float size with
| size when size > 1024.0 * 1024.0 -> $"%.2f{size / 1024.0 / 1024.0} MB"
| size when size > 1024.0 -> $"%.2f{size / 1024.0} KB"
| size -> $"%.2f{size} B"
match fsNode with
| File (fileName, relativePath, size) ->
Elem.div [[]] [[
Text.raw "📄 "
Elem.a [[
Attr.href $"""{relativePath}{if relativePath = "" then "" else
"/"}{fileName}"""
]] [[
Text.raw fileName
]]
Elem.span [[]] [[
Text.raw $" ({size |> sizeLabel})"
]]
]]
| Folder (folderName, relativePath, children) ->
let size =
let rec loop children =
children
|> List.sumBy (function
| File (_, _, size) -> size
| Folder (_, _, children)
| Root children -> loop children
)
loop children
Elem.details [[
Attr.open' "true"
]] [[
Elem.summary [[]] [[
Text.raw "📂 "
Elem.a [[
Attr.href relativePath
]] [[
Text.raw folderName
]]
Elem.span [[]] [[
Text.raw $" ({size |> sizeLabel})"
]]
]]
Elem.div [[]] [[
yield! children |> List.map generateHtml
]]
]]
| Root children ->
Elem.div [[]] [[
yield! children |> List.map generateHtml
]]
let generateHtmlForFileSystem root =
$"""<!DOCTYPE html>
<html lang="en">
<head>
<meta charset="UTF-8">
<style>
body {{
background-color: #222;
color: #ccc;
}}
a {{
color: #777;
font-size: 15px;
}}
span {{
font-size: 11px;
}}
div > div {{
padding-left: 10px;
}}
details > div {{
padding-left: 19px;
}}
</style>
</head>
<body>
{root |> generateHtml |> renderNode}
</body>
</html>
"""
── fsharp ──────────────────────────────────────────────────────────────────────
//// test
let struct (tempFolder, disposable) = SpiralFileSystem.create_temp_directory ()
let rec loop d n = async {
if n >= 0 then
tempFolder </> d |> System.IO.Directory.CreateDirectory |> ignore
do!
n
|> string
|> String.replicate (n + 1)
|> SpiralFileSystem.write_all_text_async (tempFolder </> d </>
$"file.txt")
do! loop $"{d}/{n}" (n - 1)
}
loop "_.root" 3
|> Async.RunSynchronously
let html =
scanDirectory true tempFolder tempFolder
|> generateHtmlForFileSystem
html
|> _assertEqual """<!DOCTYPE html>
<html lang="en">
<head>
<meta charset="UTF-8">
<style>
body {
background-color: #222;
color: #ccc;
}
a {
color: #777;
font-size: 15px;
}
span {
font-size: 11px;
}
div > div {
padding-left: 10px;
}
details > div {
padding-left: 19px;
}
</style>
</head>
<body>
<div><details open="true"><summary>📂 <a href="_.root">_.root</a><span>
(10.00 B)</span></summary><div><details open="true"><summary>📂 <a
href="_.root/3">3</a><span> (6.00 B)</span></summary><div><details
open="true"><summary>📂 <a href="_.root/3/2">2</a><span> (3.00
B)</span></summary><div><details open="true"><summary>📂 <a
href="_.root/3/2/1">1</a><span> (1.00 B)</span></summary><div><div>📄 <a
href="_.root/3/2/1/file.txt">file.txt</a><span> (1.00
B)</span></div></div></details><div>📄 <a
href="_.root/3/2/file.txt">file.txt</a><span> (2.00
B)</span></div></div></details><div>📄 <a
href="_.root/3/file.txt">file.txt</a><span> (3.00
B)</span></div></div></details><div>📄 <a
href="_.root/file.txt">file.txt</a><span> (4.00
B)</span></div></div></details></div>
</body>
</html>
"""
html |> Microsoft.DotNet.Interactive.Formatting.Html.ToHtmlContent
disposable.Dispose ()
╭─[ 150.44ms - stdout ]────────────────────────────────────────────────────────╮
│ <!DOCTYPE html> │
│ <html lang="en"> │
│ <head> │
│ <meta charset="UTF-8"> │
│ <style> │
│ body { │
│ background-color: #222; │
│ color: #ccc; │
│ } │
│ a { │
│ color: #777; │
│ font-size: 15px; │
│ } │
│ span { │
│ font-size: 11px; │
│ } │
│ div > div { │
│ padding-left: 10px; │
│ } │
│ details > div { │
│ padding-left: 19px; │
│ } │
│ </style> │
│ </head> │
│ <body> │
│ <div><details open="true"><summary>📂 <a │
│ href="_.root">_.root</a><span> (10.00 B)</span></summary><div><details │
│ open="true"><summary>📂 <a href="_.root/3">3</a><span> (6.00 │
│ B)</span></summary><div><details open="true"><summary>📂 <a │
│ href="_.root/3/2">2</a><span> (3.00 B)</span></summary><div><details │
│ open="true"><summary>📂 <a href="_.root/3/2/1">1</a><span> (1.00 │
│ B)</span></summary><div><div>📄 <a │
│ href="_.root/3/2/1/file.txt">file.txt</a><span> (1.00 │
│ B)</span></div></div></details><div>📄 <a │
│ href="_.root/3/2/file.txt">file.txt</a><span> (2.00 │
│ B)</span></div></div></details><div>📄 <a │
│ href="_.root/3/file.txt">file.txt</a><span> (3.00 │
│ B)</span></div></div></details><div>📄 <a │
│ href="_.root/file.txt">file.txt</a><span> (4.00 │
│ B)</span></div></div></details></div> │
│ </body> │
│ </html> │
│ │
│ │
╰──────────────────────────────────────────────────────────────────────────────╯
── markdown ────────────────────────────────────────────────────────────────────
╭──────────────────────────────────────────────────────────────────────────────╮
│ ## Arguments │
╰──────────────────────────────────────────────────────────────────────────────╯
── fsharp ──────────────────────────────────────────────────────────────────────
[[<RequireQualifiedAccess>]]
type Arguments =
| [[<Argu.ArguAttributes.ExactlyOnce>]] Dir of string
| [[<Argu.ArguAttributes.ExactlyOnce>]] Html of string
interface Argu.IArgParserTemplate with
member s.Usage =
match s with
| Dir _ -> nameof Dir
| Html _ -> nameof Html
── fsharp ──────────────────────────────────────────────────────────────────────
//// test
Argu.ArgumentParser.Create<Arguments>().PrintUsage ()
╭─[ 128.25ms - return value ]──────────────────────────────────────────────────╮
│ USAGE: dotnet-repl [--help] --dir <string> --html <string> │
│ │
│ OPTIONS: │
│ │
│ --dir <string> Dir │
│ --html <string> Html │
│ --help display this list of options. │
│ │
╰──────────────────────────────────────────────────────────────────────────────╯
── markdown ────────────────────────────────────────────────────────────────────
╭──────────────────────────────────────────────────────────────────────────────╮
│ ## main │
╰──────────────────────────────────────────────────────────────────────────────╯
── fsharp ──────────────────────────────────────────────────────────────────────
let main args =
let argsMap = args |> Runtime.parseArgsMap<Arguments>
let dir =
match argsMap.[[nameof Arguments.Dir]] with
| [[ Arguments.Dir dir ]] -> Some dir
| _ -> None
|> Option.get
let htmlPath =
match argsMap.[[nameof Arguments.Html]] with
| [[ Arguments.Html html ]] -> Some html
| _ -> None
|> Option.get
let fileSystem = scanDirectory true dir dir
let html = generateHtmlForFileSystem fileSystem
html |> SpiralFileSystem.write_all_text_async htmlPath
|> Async.runWithTimeout 30000
|> function
| Some () -> 0
| None -> 1
── fsharp ──────────────────────────────────────────────────────────────────────
//// test
let args =
System.Environment.GetEnvironmentVariable "ARGS"
|> Runtime.splitArgs
|> Seq.toArray
match args with
| [[||]] -> 0
| args -> if main args = 0 then 0 else failwith "main failed"
╭─[ 87.62ms - return value ]───────────────────────────────────────────────────╮
│ <div class="dni-plaintext"><pre>0</pre></div><style> │
│ .dni-code-hint { │
│ font-style: italic; │
│ overflow: hidden; │
│ white-space: nowrap; │
│ } │
│ .dni-treeview { │
│ white-space: nowrap; │
│ } │
│ .dni-treeview td { │
│ vertical-align: top; │
│ text-align: start; │
│ } │
│ details.dni-treeview { │
│ padding-left: 1em; │
│ } │
│ table td { │
│ text-align: start; │
│ } │
│ table tr { │
│ vertical-align: top; │
│ margin: 0em 0px; │
│ } │
│ table tr td pre │
│ { │
│ vertical-align: top !important; │
│ margin: 0em 0px !important; │
│ } │
│ table th { │
│ text-align: start; │
│ } │
│ </style> │
╰──────────────────────────────────────────────────────────────────────────────╯
[NbConvertApp] Converting notebook DirTreeHtml.dib.ipynb to html
C:\Users\i574n\scoop\apps\python\current\Lib\site-packages\nbformat\__init__.py:93: MissingIDFieldWarning: Code cell is missing an id field, this will become a hard error in future nbformat versions. You may want to use `normalize()` on your notebooks before validations (available since nbformat 5.1.4). Previous versions of nbformat are fixing this issue transparently, and will stop doing so in the future.
validate(nb)
C:\Users\i574n\scoop\apps\python\current\Lib\site-packages\nbconvert\filters\highlight.py:71: UserWarning: IPython3 lexer unavailable, falling back on Python 3
return _pygments_highlight(
[NbConvertApp] Writing 308515 bytes to DirTreeHtml.dib.html
00:00:00 #1 [debug] writeDibCode / output: Fs / path: DirTreeHtml.dib
00:00:00 #2 [debug] parseDibCode / output: Fs / file: DirTreeHtml.dib
00:00:00 #1 [debug] persistCodeProject / packages: [Argu; Falco.Markup; FSharp.Control.AsyncSeq; ... ] / modules: [lib/spiral/common.fsx; lib/spiral/sm.fsx; lib/spiral/crypto.fsx; ... ] / name: DirTreeHtml / code.Length: 4640
00:00:00 #2 [debug] buildProject / fullPath: C:\home\git\polyglot\target\polyglot\builder\DirTreeHtml\DirTreeHtml.fsproj
00:00:00 #1 [debug] execute_with_options_async / options: struct (None,
"dotnet publish "C:\home\git\polyglot\target/polyglot/builder\DirTreeHtml\DirTreeHtml.fsproj" --configuration Release --output "C:\home\git\polyglot\apps\dir-tree-html\dist" --runtime linux-x64",
None, None,
Some "C:\home\git\polyglot\target\polyglot\builder\DirTreeHtml")
00:00:00 #2 [verbose] > MSBuild version 17.10.0-preview-24101-01+07fd5d51f for .NET
00:00:00 #3 [verbose] > Determining projects to restore...
00:00:02 #4 [verbose] > Restored C:\home\git\polyglot\target\polyglot\builder\DirTreeHtml\DirTreeHtml.fsproj (in 1.38 sec).
00:00:02 #5 [verbose] > C:\Users\i574n\scoop\apps\dotnet-sdk-preview\current\sdk\9.0.100-preview.1.24101.2\Sdks\Microsoft.NET.Sdk\targets\Microsoft.NET.RuntimeIdentifierInference.targets(313,5): message NETSDK1057: You are using a preview version of .NET. See: https://aka.ms/dotnet-support-policy [C:\home\git\polyglot\target\polyglot\builder\DirTreeHtml\DirTreeHtml.fsproj]
00:00:09 #6 [verbose] > DirTreeHtml -> C:\home\git\polyglot\target\polyglot\builder\DirTreeHtml\bin\Release\net9.0\linux-x64\DirTreeHtml.dll
00:00:11 #7 [verbose] > DirTreeHtml -> C:\home\git\polyglot\apps\dir-tree-html\dist\
00:00:11 #8 [debug] execute_with_options_async / exit_code: 0 / output.Length: 732
00:00:11 #9 [debug] execute_with_options_async / options: struct (None,
"dotnet publish "C:\home\git\polyglot\target/polyglot/builder\DirTreeHtml\DirTreeHtml.fsproj" --configuration Release --output "C:\home\git\polyglot\apps\dir-tree-html\dist" --runtime win-x64",
None, None,
Some "C:\home\git\polyglot\target\polyglot\builder\DirTreeHtml")
00:00:11 #10 [verbose] > MSBuild version 17.10.0-preview-24101-01+07fd5d51f for .NET
00:00:12 #11 [verbose] > Determining projects to restore...
00:00:12 #12 [verbose] > Restored C:\home\git\polyglot\target\polyglot\builder\DirTreeHtml\DirTreeHtml.fsproj (in 378 ms).
00:00:13 #13 [verbose] > C:\Users\i574n\scoop\apps\dotnet-sdk-preview\current\sdk\9.0.100-preview.1.24101.2\Sdks\Microsoft.NET.Sdk\targets\Microsoft.NET.RuntimeIdentifierInference.targets(313,5): message NETSDK1057: You are using a preview version of .NET. See: https://aka.ms/dotnet-support-policy [C:\home\git\polyglot\target\polyglot\builder\DirTreeHtml\DirTreeHtml.fsproj]
00:00:19 #14 [verbose] > DirTreeHtml -> C:\home\git\polyglot\target\polyglot\builder\DirTreeHtml\bin\Release\net9.0\win-x64\DirTreeHtml.dll
00:00:27 #15 [verbose] > DirTreeHtml -> C:\home\git\polyglot\apps\dir-tree-html\dist\
00:00:27 #16 [debug] execute_with_options_async / exit_code: 0 / output.Length: 728
In [ ]:
{ . "$ScriptDir/../apps/ipfs/build.ps1" } | Invoke-Block
bun install v1.1.0 (5903a614)
Done! Checked 220 packages (no changes) [1437.00ms]
In [ ]:
{ . "$ScriptDir/outdated.ps1" } | Invoke-Block
Paket version 8.1.0-alpha001+8e77fe66ac27ddecf519e0df5a4d3327ca9250e2
Resolving dependency graph...
Outdated packages found:
Group: Main
* Argu 6.2.2 -> 6.2.3
* Expecto.FsCheck 10.2.1-fscheck3 -> 10.2.1
* FsCheck 3.0.0-rc3 -> 2.16.6
* FSharp.Core 8.0.300-beta.24080.5 -> 8.0.300-beta.24178.1
* Microsoft.AspNetCore.Connections.Abstractions 7.0 -> 9.0.0-preview.3.24172.13
* Microsoft.AspNetCore.Http.Connections.Client 7.0 -> 9.0.0-preview.3.24172.13
* Microsoft.AspNetCore.Http.Connections.Common 7.0 -> 9.0.0-preview.3.24172.13
* Microsoft.AspNetCore.SignalR.Client 7.0 -> 9.0.0-preview.3.24172.13
* Microsoft.AspNetCore.SignalR.Client.Core 7.0 -> 9.0.0-preview.3.24172.13
* Microsoft.AspNetCore.SignalR.Common 7.0 -> 9.0.0-preview.3.24172.13
* Microsoft.AspNetCore.SignalR.Protocols.Json 7.0 -> 9.0.0-preview.3.24172.13
* Microsoft.Extensions.DependencyInjection 8.0 -> 9.0.0-preview.3.24172.9
* Microsoft.Extensions.DependencyInjection.Abstractions 8.0.1 -> 9.0.0-preview.3.24172.9
* Microsoft.Extensions.Features 7.0 -> 9.0.0-preview.3.24172.13
* Microsoft.Extensions.Logging 8.0 -> 9.0.0-preview.3.24172.9
* Microsoft.Extensions.Logging.Abstractions 8.0.1 -> 9.0.0-preview.3.24172.9
* Microsoft.Extensions.Options 8.0.2 -> 9.0.0-preview.3.24172.9
* Microsoft.Extensions.Primitives 8.0 -> 9.0.0-preview.3.24172.9
* System.IO.Pipelines 8.0 -> 9.0.0-preview.3.24172.9
* System.Threading.Channels 8.0 -> 9.0.0-preview.3.24172.9
Total time taken: 56 seconds
CheckToml / toml: C:\home\git\polyglot\Cargo.toml
chat_contract_tests
================
Name Project Compat Latest Kind Platform
---- ------- ------ ------ ---- --------
ahash 0.8.11 Removed Removed Normal ---
allocator-api2 0.2.18 Removed Removed Normal ---
cfg-if 1.0.0 Removed Removed Normal ---
equivalent 1.0.1 Removed Removed Normal ---
hashbrown 0.14.3 0.12.3 0.12.3 Normal ---
indexmap 2.2.6 1.9.3 1.9.3 Normal ---
once_cell 1.19.0 Removed Removed Normal cfg(not(all(target_arch = "arm", target_os = "none")))
proc-macro2 1.0.79 Removed Removed Normal ---
quote 1.0.36 Removed Removed Normal ---
syn 2.0.58 Removed Removed Normal ---
unicode-ident 1.0.12 Removed Removed Normal ---
version_check 0.9.4 Removed Removed Build ---
zerocopy 0.7.32 Removed Removed Normal ---
zerocopy-derive 0.7.32 Removed Removed Normal ---
CheckToml / toml: C:\home\git\polyglot\apps\chat\contract\Cargo.toml
All dependencies are up to date, yay!
CheckToml / toml: C:\home\git\polyglot\apps\chat\contract\tests\Cargo.toml
Name Project Compat Latest Kind Platform
---- ------- ------ ------ ---- --------
ahash->cfg-if 1.0.0 Removed --- Normal ---
ahash->once_cell 1.19.0 Removed --- Normal cfg(not(all(target_arch = "arm", target_os = "none")))
ahash->version_check 0.9.4 Removed --- Build ---
ahash->zerocopy 0.7.32 Removed --- Normal ---
hashbrown->ahash 0.8.11 Removed --- Normal ---
hashbrown->allocator-api2 0.2.18 Removed --- Normal ---
indexmap->autocfg 1.2.0 --- Removed Build ---
indexmap->equivalent 1.0.1 Removed --- Normal ---
indexmap->hashbrown 0.12.3 --- 0.14.3 Normal ---
indexmap->hashbrown 0.14.3 0.12.3 --- Normal ---
proc-macro2->unicode-ident 1.0.12 Removed --- Normal ---
quote->proc-macro2 1.0.79 Removed --- Normal ---
serde_with->indexmap 1.9.3 --- 2.2.6 Normal ---
serde_with->indexmap 2.2.6 1.9.3 --- Normal ---
syn->proc-macro2 1.0.79 Removed --- Normal ---
syn->quote 1.0.36 Removed --- Normal ---
syn->unicode-ident 1.0.12 Removed --- Normal ---
zerocopy->zerocopy-derive 0.7.32 Removed --- Normal ---
zerocopy-derive->proc-macro2 1.0.79 Removed --- Normal ---
zerocopy-derive->quote 1.0.36 Removed --- Normal ---
zerocopy-derive->syn 2.0.58 Removed --- Normal ---
CheckToml / toml: C:\home\git\polyglot\apps\plot\Cargo.toml
All dependencies are up to date, yay!
CheckJson / json: C:/home/git/polyglot
$ npm-check-updates --target greatest
Using bun
Checking C:\home\git\polyglot\package.json
All dependencies match the greatest package versions :)
CheckJson / json: C:/home/git/polyglot/apps/ipfs
$ npm-check-updates --target greatest
Using bun
Checking C:\home\git\polyglot\apps\ipfs\package.json
All dependencies match the greatest package versions :)
CheckJson / json: C:/home/git/polyglot/apps/spiral/temp/extension
$ npm-check-updates --target greatest
Using bun
Checking C:\home\git\polyglot\apps\spiral\temp\extension\package.json
@playwright/test 1.42.1 → 1.44.0-alpha-2024-04-13
@types/chrome ~0.0.263 → ~0.0.266
Run ncu --target greatest -u to upgrade package.json